72 lines
1.0 KiB
Plaintext
Executable File
72 lines
1.0 KiB
Plaintext
Executable File
// 771231c.uml - quadro F prospetto B-C-D
|
|
|
|
PAGE "" -1 -1 76 9
|
|
|
|
NUMBER 101 2
|
|
BEGIN
|
|
PROMPT 1 1 "Causale "
|
|
USE %CA7 SELECT (S1="F")
|
|
VALIDATE REQIF_FUNC 3 102 103 104
|
|
INPUT CODTAB 101
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione @60" S0
|
|
DISPLAY "Codice tributo" I0
|
|
DISPLAY "Articolo di bilancio" I3
|
|
OUTPUT 101 CODTAB
|
|
OUTPUT 102 S0
|
|
OUTPUT 103 R0
|
|
FLAGS "Z"
|
|
WARNING "Manca la causale"
|
|
ADD RUN 773mod -3 %CA7
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 102 60
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
FLAGS "D"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 103 6
|
|
BEGIN
|
|
PROMPT 1 3 "Aliquota applicata "
|
|
PICTURE ".2"
|
|
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
|
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
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_AZZERA 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "A~zzera"
|
|
MESSAGE RESET,1@
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|