local m_get[70]
local o_get[70]
local oFont, oFontU
DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12
DEFINE FONT oFontU NAME "Tahoma" SIZE 0, -12 UNDERLINE
DEFINE DIALOG m_get[32] SIZE 1300,700 PIXEL FONT oFont;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME ) ;
TITLE "Interrogazione distinta base"
@ 10, 30 GET o_get[04] VAR m_get[04] SIZE 10, 10 PIXEL OF m_get[32] NOBORDER PICTURE "@ !"
@ 10, 45 SAY oSay PROMPT "Tipo Interrogazione" SIZE 65, 10 PIXEL OF m_get[32]
@ 20, 45 SAY oSay PROMPT "ESPLOSIONE" SIZE 65, 10 PIXEL OF m_get[32] FONT oFontU
@ 28, 45 SAY oSay PROMPT "1 - a singolo livello" SIZE 65, 10 PIXEL OF m_get[32]
@ 36, 45 SAY oSay PROMPT "2 - scalare" SIZE 65, 10 PIXEL OF m_get[32]
@ 44, 45 SAY oSay PROMPT "4 - ai materiali di base" SIZE 65, 10 PIXEL OF m_get[32]
@ 20, 120 SAY oSay PROMPT "IMPLOSIONE" SIZE 65, 10 PIXEL OF m_get[32] FONT oFontU
@ 28, 120 SAY oSay PROMPT "5 - a singolo livello" SIZE 65, 10 PIXEL OF m_get[32]
@ 36, 120 SAY oSay PROMPT "6 - scalare" SIZE 65, 10 PIXEL OF m_get[32]
@ 44, 120 SAY oSay PROMPT "8 - ai prodotti finiti" SIZE 65, 10 PIXEL OF m_get[32]
@ 10, 210 SAY oSay PROMPT "Articolo" SIZE 40, 10 PIXEL OF m_get[32]
@ 10, 243 GET o_get[01] VAR m_get[01] PICTURE "@!!!!!!!!!!!!!!!" SIZE 55, 10 OF m_get[32] NOBORDER pixel ;
VALID (msginfo("VALID"))
@ 10, 305 GET o_get[02] VAR m_get[02] SIZE 150, 10 PIXEL OF m_get[32] NOBORDER COLOR ;
PICTURE "@ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
@ 23, 210 SAY oSay PROMPT hb_OemToAnsi( hb_utf8tostr("Validità")) SIZE 40, 10 PIXEL OF m_get[32]
@ 23, 243 GET o_get[03] VAR m_get[03] SIZE 50, 10 PIXEL OF m_get[32] NOBORDER COLOR ;
PICTURE "@ / / "
@ 23, 305 SAY o_get[06] VAR m_get[06] SIZE 150, 10 PIXEL OF m_get[32]
@ 36, 210 SAY oSay PROMPT hb_OemToAnsi( hb_utf8tostr("Quantità")) SIZE 40, 10 PIXEL OF m_get[32]
@ 36, 243 GET o_get[05] VAR m_get[05] SIZE 50, 10 PIXEL OF m_get[32] NOBORDER RIGHT ;
PICTURE "@ZE 99999.999999"
@ 63,10 XBROWSE oBrw SIZE -10,-45 PIXEL ;
RECORDSET M_GET[21] /* AdoDb object */;
COLUMNS "LIVELLO" ;
COLSIZES 70 ;
HEADERS "LIV." ;
PICTURE "@ !!!!!!!!!!!!!!" ;
OF m_get[32] LINES NOBORDER ;
ON DBLCLICK(msginfo("dblclick"))
oBrw:CreateFromCode()
WITH OBJECT oBrw
:GoTop()
:lHScroll := .T.
:lVScroll := .T.
:lRecordSelector := .t.
:nColDividerStyle := LINESTYLE_BLACK
:nRowDividerStyle := LINESTYLE_BLACK
:lColDividerComplete := .T.
:bClrSelFocus = { || { 16777215, 15512898 } }
:bClrSel = { || { 16777215, 15512898 } }
END
@ 10,460 BTNBMP o_get[51] SIZE 28,10 PIXEL OF m_get[32] RESOURCE "search" 2007 ;
ACTION (msginfo("find"))
@ 320,10 BTNBMP o_get[61] SIZE 50,20 OF m_get[32] RESOURCE "ok" 2007 ;
TOOLTIP "CONFERMA" ;
ACTION (msginfo("ok"))
@ 320,70 BTNBMP o_get[62] SIZE 50,20 OF m_get[32] RESOURCE "chiudi" 2007 ;
TOOLTIP "ESCI" ;
ACTION (msginfo("exit"))
@ 320,130 BTNBMP o_get[63] SIZE 50,20 OF m_get[32] RESOURCE "excel" 2007 ;
TOOLTIP "Esporta in"+CRLF+"Excel" ;
ACTION (msginfo("excel"))
if ExcelObj() == NIL
o_get[63]:Disable()
endif
m_get[32]:bResized := { || ;
oRect := m_get[32]:GetCliRect(), ;
o_get[61]:nTop := oRect:nBottom -60, ;
o_get[61]:nLeft := oRect:nLeft +10, ;
o_get[62]:nTop := oRect:nBottom -60, ;
o_get[62]:nLeft := oRect:nLeft +135, ;
o_get[63]:nTop := oRect:nBottom -60, ;
o_get[63]:nLeft := oRect:nLeft +260 ;
}
ACTIVATE DIALOG m_get[32] ;
CENTERED