campo-sirio/cg/cg4100b.uml

38 lines
726 B
Plaintext
Raw Normal View History

#define FLD_CG41_YEAR 100
TOOLBAR "Toolbar" 0 0 0 2
#include <elabar.h>
ENDPAGE
PAGE "Ricalcolo Saldi" 0 2 0 0
TEXT DLG_NULL
BEGIN
PROMPT 16 1 "ATTENZIONE !"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "Il ricalcolo dei saldi puo' richiedere tempo. Siate certi di voler proseguire."
END
NUMBER FLD_CG41_YEAR 4
BEGIN
PROMPT 2 5 "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
ENDMASK