campo-sirio/cg/cg4100b.uml
luca 30dcd9d8cb Patch level :10.0
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :bug 830


git-svn-id: svn://10.65.10.50/trunk@17605 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-11-12 12:00:41 +00:00

43 lines
768 B
Plaintext
Executable File

#define FLD_CG41_YEAR 100
PAGE "Ricalcolo Saldi" -1 -1 47 10
TEXT DLG_NULL
BEGIN
PROMPT 16 1 "ATTENZIONE"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "Il ricalcolo dei saldi puo' richiedere"
END
TEXT DLG_NULL
BEGIN
PROMPT 3 4 "tempo. Siate certi di voler proseguire."
END
NUMBER FLD_CG41_YEAR 4
BEGIN
PROMPT 3 6 "Codice esercizio "
USE ESC
INPUT CODTAB FLD_CG41_YEAR
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT FLD_CG41_YEAR CODTAB
CHECKTYPE REQUIRED
FLAGS "Z"
HELP "Codice esercizio per il quale si desidera il ricalcolo dei saldi"
WARNING "Il codice esercizio e' obbligatorio"
ADD RUN cg0 -5 esc
END
ENDPAGE
TOOLBAR "Toolbar" 0 0 0 2
#include <elabar.h>
ENDPAGE
ENDMASK