128 lines
2.0 KiB
Plaintext
Executable File
128 lines
2.0 KiB
Plaintext
Executable File
// 771232b.uml - quadro F1 prospetto A
|
|
|
|
PAGE "" -1 -1 54 10
|
|
|
|
LIST 101 10
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo persona "
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
END
|
|
|
|
NUMBER 102 5
|
|
BEGIN
|
|
PROMPT 39 1 "Codice "
|
|
USE LF_ANAG
|
|
INPUT TIPOA 101 SELECT
|
|
INPUT CODANAGR 102
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Denominazione@50" RAGSOC
|
|
OUTPUT 102 CODANAGR
|
|
OUTPUT 103 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
STRING 103 50
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA 101 SELECT
|
|
INPUT RAGSOC 103
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Denominazione@50" RAGSOC
|
|
DISPLAY "Codice" CODANAGR
|
|
COPY OUTPUT 102
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
NUMBER 104 2
|
|
BEGIN
|
|
PROMPT 1 3 "Causale "
|
|
USE %CA7 SELECT (S1="F1")
|
|
INPUT CODTAB 104
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione @35" S0
|
|
DISPLAY "Codice tributo" I0
|
|
DISPLAY "Articolo di bilancio" I3
|
|
OUTPUT 104 CODTAB
|
|
OUTPUT 105 S0
|
|
OUTPUT 106 R0
|
|
CHECKTYPE SEARCH
|
|
FLAGS "Z"
|
|
FIELD CODTAB
|
|
ADD RUN 773mod -3 %CA7
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 105 35
|
|
BEGIN
|
|
PROMPT 16 3 ""
|
|
FIELD S0
|
|
USE %CA7 KEY 2 SELECT (S1="F1")
|
|
INPUT S0 105
|
|
DISPLAY "Descrizione @35" S0
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Codice tributo" I0
|
|
DISPLAY "Articolo di bilancio" I3
|
|
COPY OUTPUT 104
|
|
VALIDATE REQIF_FUNC 2 106 107
|
|
FIELD S0
|
|
WARNING "Descrizione obbligatoria"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 106 6
|
|
BEGIN
|
|
PROMPT 1 4 "Aliquota applicata "
|
|
FIELD R0
|
|
PICTURE ".2"
|
|
NUM_EXPR {(#106>=0) && (#106<=100)}
|
|
FIELD R0
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 107 15
|
|
BEGIN
|
|
PROMPT 1 5 "Somme soggette a ritenuta "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 108 15
|
|
BEGIN
|
|
PROMPT 1 6 "Ritenuta operata "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 109 15
|
|
BEGIN
|
|
PROMPT 1 7 "Somme corrisposte "
|
|
PICTURE "."
|
|
GROUP 1
|
|
FLAGS "D"
|
|
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
|