campo-sirio/cg/cg4700a.uml

86 lines
1.7 KiB
Plaintext
Raw Normal View History

#include "cg4700.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Gestione acconti di Dicembre" -1 -1 78 15
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FIELD CODTAB[1,5]
FLAGS "ZFR"
KEY 1
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE FORCED
WARNING "Ditta assente"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 16 1 "Rag.Soc "
KEY 1
USE LF_NDITTE KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Ditta" CODDITTA
COPY OUTPUT F_CODDITTA
WARNING "Ditta assente"
CHECKTYPE NORMAL
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 3 "Anno liquidazione "
HELP "Introdurre l'anno liquidazione"
FIELD CODTAB[6,9]
CHECKTYPE REQUIRED
KEY 1
USE %LIA
JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
INPUT CODTAB[1,5] F_CODDITTA
INPUT CODTAB[6,9] F_ANNO
DISPLAY "Ditta" CODTAB[1,5]
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
DISPLAY "Anno" CODTAB[6,9]
OUTPUT F_CODDITTA CODTAB[1,5]
OUTPUT F_ANNO CODTAB[6,9]
VALIDATE FIXLEN_FUNC 4
END
NUMBER F_ACCONTO 15
BEGIN
PROMPT 1 7 "Acconto dovuto "
HELP "Introdurre l'acconto dovuto"
PICTURE "."
FLAGS "R"
FIELD R4
NUM_CALC ROUND(#THIS_FIELD,-3)
//NUM_EXPR (#THIS_FIELD>=0.0)
//WARNING "Valore non valido (>=0.0)"
END
NUMBER F_CREDITO 15
BEGIN
PROMPT 1 9 "Credito utilizzato "
HELP "Introdurre il credito utilizzato"
PICTURE "."
FLAGS "R"
FIELD R6
NUM_CALC ROUND(#THIS_FIELD,-3)
//NUM_EXPR (#THIS_FIELD>=0.0)
//WARNING "Valore non valido (>=0.0)"
END
ENDPAGE
ENDMASK