90 lines
1.4 KiB
Plaintext
Executable File
90 lines
1.4 KiB
Plaintext
Executable File
// 771231b.uml - quadro F prospetto A-B-C
|
|
|
|
PAGE "" -1 -1 52 9
|
|
|
|
NUMBER 101 2
|
|
BEGIN
|
|
PROMPT 1 1 "Causale "
|
|
USE %CA7 SELECT (S1="F")
|
|
INPUT CODTAB 101
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione @35" S0
|
|
DISPLAY "Codice tributo" I0
|
|
DISPLAY "Articolo di bilancio" I3
|
|
OUTPUT 101 CODTAB
|
|
OUTPUT 102 S0
|
|
OUTPUT 103 R0
|
|
CHECKTYPE SEARCH
|
|
FLAGS "Z"
|
|
FIELD CODTAB
|
|
ADD RUN 773mod -3 %CA7
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 102 35
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
USE %CA7 KEY 2 SELECT (S1="F")
|
|
INPUT S0 102
|
|
DISPLAY "Descrizione @35" S0
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Codice tributo" I0
|
|
DISPLAY "Articolo di bilancio" I3
|
|
COPY OUTPUT 101
|
|
VALIDATE REQIF_FUNC 2 103 104
|
|
FIELD S0
|
|
WARNING "Descrizione obbligatoria"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 103 6
|
|
BEGIN
|
|
PROMPT 1 3 "Aliquota applicata "
|
|
PICTURE ".2"
|
|
NUM_EXPR {(#103>=0) && (#103<=100)}
|
|
FIELD R0
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 104 15
|
|
BEGIN
|
|
PROMPT 1 4 "Somme soggette a ritenuta "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 105 15
|
|
BEGIN
|
|
PROMPT 1 5 "Ritenuta operata "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 106 15
|
|
BEGIN
|
|
PROMPT 1 6 "Somma versata "
|
|
FLAGS "D"
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_AZZERA 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "A~zzera"
|
|
MESSAGE RESET,1@
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|