campo-sirio/m770/771231c.uml

72 lines
1.0 KiB
Plaintext
Raw Normal View History

// 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