campo-sirio/dl/dl0700a.uml
luca f6b085b355 Patch level :2.0 nopatch
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunti files discolatio alla 32 bit


git-svn-id: svn://10.65.10.50/trunk@11035 c028cbd2-c16b-5b4b-a496-9718f37d4682
2003-04-22 09:13:51 +00:00

114 lines
1.6 KiB
Plaintext
Executable File

#include "dl0700a.h"
TOOLBAR "" 0 -3 0 3
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
PAGE "Top Ten" -1 -1 96 24
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "@bIntervallo date"
FLAGS "R"
END
DATE F_DATAINI
BEGIN
PROMPT 2 2 "Data inizio "
END
DATE F_DATAFINE
BEGIN
FLAGS "A"
PROMPT 2 3 "Data fine "
VALIDATE DATE_CMP_FUNC >= F_DATAINI
WARNING "Specificare una 'Data fine' non inferiore alla 'Data inizio'"
END
SPREADSHEET F_RIGHE 78
BEGIN
PROMPT 1 6 "@bCriteri di selezione "
ITEM "Supporto"
ITEM "Genere"
ITEM "Da prezzo"
ITEM "A prezzo"
ITEM "Numero righe"
END
ENDPAGE
ENDMASK
//------------------------------------------------------------------------------------------------
PAGE "Criteri di selezione" -1 -1 44 9
STRING F_SUPPORTO 2
BEGIN
FLAGS "U"
PROMPT 1 1 "Tipo supporto "
USE %UMS
INPUT CODTAB F_SUPPORTO
DISPLAY "Tipo supporto" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_SUPPORTO CODTAB
CHECKTYPE REQUIRED
END
STRING F_GENERE 3
BEGIN
PROMPT 1 2 "Genere "
USE GMC
INPUT CODTAB F_GENERE
DISPLAY "Genere" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_GENERE CODTAB
CHECKTYPE NORMAL
END
CURRENCY F_DAPREZZO 18
BEGIN
PROMPT 1 3 "Da prezzo "
END
CURRENCY F_APREZZO 18
BEGIN
PROMPT 1 4 "A prezzo "
END
NUMBER F_VISUAL 4
BEGIN
PROMPT 1 5 "Numero righe "
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK