1b14ec9415
git-svn-id: svn://10.65.10.50/branches/R_10_00@23236 c028cbd2-c16b-5b4b-a496-9718f37d4682
68 lines
931 B
Plaintext
68 lines
931 B
Plaintext
PAGE "Bilancio di Budget" -1 -1 52 9
|
|
|
|
NUMBER 101 4
|
|
BEGIN
|
|
PROMPT 1 1 "Esercizio "
|
|
USE ESC
|
|
INPUT CODTAB 101
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Inizio Esercizio" D0
|
|
DISPLAY "Fine Esercizio " D1
|
|
OUTPUT 101 CODTAB
|
|
OUTPUT 102 D0
|
|
OUTPUT 103 D1
|
|
CHEKCTYPE REQUIRED
|
|
END
|
|
|
|
DATE 102
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FLAGS "D"
|
|
FIELD DATAINI
|
|
END
|
|
|
|
DATE 103
|
|
BEGIN
|
|
PROMPT 39 1 ""
|
|
FLAGS "D"
|
|
FIELD DATAFIN
|
|
END
|
|
|
|
DATE 104
|
|
BEGIN
|
|
PROMPT 1 2 "Data stampa "
|
|
FIELD DATASTA
|
|
CHECKTYPE REQUIRED
|
|
STR_EXPR BETWEEN(#104,#102,#103)
|
|
WARNING "Data non compresa nell'anno selezionato"
|
|
END
|
|
|
|
STRING 105 20
|
|
BEGIN
|
|
PROMPT 1 3 "Centro di Costo "
|
|
USE 146
|
|
INPUT CODCOSTO 105
|
|
DISPLAY "Centro di Costo@20" CODCOSTO
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT 105 CODCOSTO
|
|
CHECKTYPE NORMAL
|
|
FIELD CODCOSTO
|
|
END
|
|
|
|
|
|
BUTTON 1 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON 2 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|