1996-06-17 08:46:44 +00:00
|
|
|
// 771232b.uml - quadro F1 prospetto B
|
|
|
|
|
|
|
|
|
|
PAGE "Prospetto B" -1 -1 76 9
|
|
|
|
|
|
|
|
|
|
NUMBER 101 2
|
|
|
|
|
BEGIN
|
|
|
|
|
PROMPT 1 1 "Causale "
|
|
|
|
|
USE %CA7 SELECT (S1="F1")
|
|
|
|
|
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"
|
1996-06-20 07:24:36 +00:00
|
|
|
ADD RUN 773mod -3 %CA7
|
1996-06-17 08:46:44 +00:00
|
|
|
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_NULL 9 2
|
|
|
|
|
BEGIN
|
|
|
|
|
PROMPT -33 -1 "Azzera"
|
|
|
|
|
MESSAGE RESET,1@
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
ENDPAGE
|
|
|
|
|
|
|
|
|
|
ENDMASK
|
