MOdifiche al libgro giornale
git-svn-id: svn://10.65.10.50/trunk@287 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
8415f44f68
commit
fb03331361
898
cg/cg3400.cpp
898
cg/cg3400.cpp
File diff suppressed because it is too large
Load Diff
@ -4,58 +4,59 @@ PAGE "Stampa Libro Giornale" -1 -1 70 15
|
||||
|
||||
STRING CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice registro "
|
||||
USE REG SELECT (I0 = 5) || (I0 = 4)
|
||||
INPUT CODTAB[1,4] ANNO_ESER
|
||||
INPUT CODTAB[5,7] CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
// OUTPUT ANNO_ESER CODTAB[1,4]
|
||||
OUTPUT CODREG CODTAB[5,7]
|
||||
OUTPUT REG_DESC S0
|
||||
OUTPUT PAGINA_DA I1
|
||||
PROMPT 1 1 "Codice registro "
|
||||
USE REG SELECT (I0 = 5) || (I0 = 4)
|
||||
INPUT CODTAB[1,4] ANNO_ESER
|
||||
INPUT CODTAB[5,7] CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
// OUTPUT ANNO_ESER CODTAB[1,4]
|
||||
OUTPUT CODREG CODTAB[5,7]
|
||||
OUTPUT REG_DESC S0
|
||||
OUTPUT PAGINA_DA I1
|
||||
// OUTPUT DATA_DA D0
|
||||
// OUTPUT DATA_A D1
|
||||
// CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
// CHECKTYPE NORMAL
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
NUMBER ANNO_ESER 4
|
||||
BEGIN
|
||||
PROMPT 30 1 "Esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB ANNO_ESER
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio " D0
|
||||
DISPLAY "Data fine " D1
|
||||
OUTPUT ANNO_ESER CODTAB
|
||||
// CHECKTYPE REQUIRED
|
||||
FLAGS "HRZ"
|
||||
PROMPT 30 1 "Esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB ANNO_ESER
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio " D0
|
||||
DISPLAY "Data fine " D1
|
||||
DISPLAY "Data scarico" D2
|
||||
OUTPUT ANNO_ESER CODTAB
|
||||
// CHECKTYPE REQUIRED
|
||||
FLAGS "HRZ"
|
||||
END
|
||||
|
||||
STRING REG_DESC 50
|
||||
BEGIN
|
||||
PROMPT 1 3 "Descrizione: "
|
||||
FLAGS "D"
|
||||
PROMPT 1 3 "Descrizione: "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 25 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "Intervallo"
|
||||
PROMPT 1 5 "Intervallo"
|
||||
END
|
||||
|
||||
RADIOBUTTON DLG_NULL 20
|
||||
BEGIN
|
||||
PROMPT 1 5 ""
|
||||
ITEM "1|Tutto" MESSAGE DISABLE, PAGINA_DA
|
||||
ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
|
||||
PROMPT 1 5 ""
|
||||
ITEM "1|Tutto" MESSAGE DISABLE, PAGINA_DA
|
||||
ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
|
||||
END
|
||||
|
||||
NUMBER PAGINA_DA 5
|
||||
BEGIN
|
||||
PROMPT 13 8 ""
|
||||
PROMPT 13 8 ""
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 33 5
|
||||
@ -83,8 +84,8 @@ END
|
||||
DATE DATA_A
|
||||
BEGIN
|
||||
PROMPT 2 11 "Alla data "
|
||||
VALIDATE DATE_CMP_FUNC >= DATA_DA
|
||||
WARNING "Questa data deve essere posteriore alla precedente"
|
||||
// VALIDATE DATE_CMP_FUNC >= DATA_DA
|
||||
WARNING "Specificare la data di fine stampa"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user