530 lines
7.3 KiB
Plaintext
Executable File
530 lines
7.3 KiB
Plaintext
Executable File
USE 101
|
|
JOIN 70 INTO CODDITTA==CODDITTA
|
|
JOIN 9 TO 101 INTO CODDITTA==CODDITTA
|
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 216@ ALIAS 208 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 208@ ALIAS 313 INTO COM==COMNASC
|
|
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
|
|
JOIN 13 TO 216@ ALIAS 513 INTO COM==COMRF
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
101->* "770 Quadro G distinta"
|
|
70->* "770 Quadro G"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
216@->* "Anagrafica persone fisiche e giuridiche"
|
|
218@->* "Anagrafica persone giuridiche"
|
|
313@->* "Comune nascita"
|
|
413@->* "Comune residenza"
|
|
513@->* "Comune residenza fiscale"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 10
|
|
CA "X"
|
|
IN 3 3
|
|
FI 130
|
|
END
|
|
|
|
|
|
SECTION GRAPHICS FIRST 66
|
|
|
|
FIGURA 1 129 56
|
|
BEGIN
|
|
PROMPT 3 5 "770_G_1.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS EVEN 66
|
|
|
|
FIGURA 1 131 31
|
|
BEGIN
|
|
PROMPT 1 3 "770_G_2.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS ODD 66
|
|
|
|
FIGURA 1 129 58
|
|
BEGIN
|
|
PROMPT 3 3 "770_G_3.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS LAST 66
|
|
|
|
FIGURA 1 129 64
|
|
BEGIN
|
|
PROMPT 3 3 "770_G_4.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER FIRST 17
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 55 8 ""
|
|
FIELD 106@->COFI
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 88 8 ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 8 ""
|
|
END
|
|
|
|
END
|
|
|
|
// PROSPETTO 1 - SEZIONE 1
|
|
SECTION HEADER ODD 2
|
|
|
|
STRING 1
|
|
BEGIN
|
|
KEY "Data della deliberazione"
|
|
PROMPT 5 1 ""
|
|
FIELD DATADEL
|
|
PICTURE "## ^ ##^ ####"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "Importo imputabile a ciascuna azione o quota"
|
|
PROMPT 41 1 ""
|
|
FIELD UTILI1S
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "Numero azioni o quote"
|
|
PROMPT 73 1 ""
|
|
FIELD NUMQUOTE
|
|
PICTURE "###.###.###"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Ammontare complessivo"
|
|
PROMPT 119 1 ""
|
|
FIELD UTILI2S
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
// PRIMA RIGA PROSPETTO 1 - SEZIONE 2
|
|
SECTION BODY FIRST 4
|
|
|
|
STRING 1
|
|
BEGIN
|
|
KEY "Data della deliberazione"
|
|
PROMPT 31 1 ""
|
|
FIELD 70->P2DATADE
|
|
PICTURE "## ^ ##^ ####"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "Importo imputabile a ciascuna azione o quota"
|
|
PROMPT 115 1 ""
|
|
FIELD 70->P2IMPQ
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
END
|
|
|
|
// PROSPETTO 1 - SEZIONE 2
|
|
SECTION HEADER EVEN 2
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "Descrizione dei beni distribuiti"
|
|
PROMPT 4 1 ""
|
|
FIELD DESCRBENI
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "Valore dei beni"
|
|
PROMPT 119 1 ""
|
|
FIELD UTILI1S
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
// PROSPETTO 2 - SEZIONE 1 e 2
|
|
SECTION FOOTER ODD 1
|
|
|
|
NUMBER 1
|
|
BEGIN
|
|
KEY "Utili anno precendete"
|
|
PROMPT 9 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 2
|
|
BEGIN
|
|
KEY "Utili"
|
|
PROMPT 28 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 3
|
|
BEGIN
|
|
KEY "Utili primo semestre"
|
|
PROMPT 47 1 ""
|
|
FIELD UTILI1S
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 4
|
|
BEGIN
|
|
KEY "Utili secondo semestre"
|
|
PROMPT 66 1 ""
|
|
FIELD UTILI2S
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 5
|
|
BEGIN
|
|
KEY "Aliquota"
|
|
PROMPT 79 1 ""
|
|
FIELD ALIQUOTA
|
|
PICTURE "##@,@@"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Titolo della ritenuta"
|
|
PROMPT 90 1 ""
|
|
FIELD TITOLO
|
|
END
|
|
|
|
NUMBER 7
|
|
BEGIN
|
|
KEY "Ritenute operate"
|
|
PROMPT 100 1 ""
|
|
FIELD ROPE
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 8
|
|
BEGIN
|
|
KEY "Utili anno corrente"
|
|
PROMPT 119 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
// DISTINTA
|
|
SECTION BODY ODD 8
|
|
|
|
LISTA 99
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
PROMPT 1 1 ""
|
|
FIELD TIPOA
|
|
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
|
|
END
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 9 1 ""
|
|
FIELD 216@->COFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 42 1 ""
|
|
FIELD 216@->RAGSOC[1,30]
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 21 3 ""
|
|
FIELD 216@->RAGSOC[31,50]
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 102
|
|
BEGIN
|
|
KEY "RAGSOC GIURIDICHE"
|
|
PROMPT 42 1 ""
|
|
FIELD 216@->RAGSOC
|
|
GROUP 2
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 57 3 ""
|
|
FIELD 208@->SESSO
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 64 3 ""
|
|
FIELD 208@->DATANASC
|
|
PICTURE "##^##^####"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 77 3 ""
|
|
FIELD 313@->DENCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PROV DI NASCITA"
|
|
PROMPT 126 3 ""
|
|
FIELD 313@->PROVCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA FISCALE"
|
|
PROMPT 24 5 ""
|
|
FIELD 513@->DENCOM
|
|
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
|
MESSAGE SHOW,4@|HIDE,3@
|
|
END
|
|
|
|
STRINGA 80
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA"
|
|
PROMPT 24 5 ""
|
|
FIELD 413@->DENCOM
|
|
GROUP 3
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "PROV. RESIDENZA"
|
|
PROMPT 73 5 ""
|
|
FIELD 513@->PROVCOM
|
|
FIELD 413@->PROVCOM
|
|
END
|
|
|
|
STRINGA 101
|
|
BEGIN
|
|
KEY "VIA RES."
|
|
FIELD 216@->INDRES[1,35]
|
|
FLAGS "H"
|
|
MESSAGE COPY,10
|
|
END
|
|
|
|
STRINGA 102
|
|
BEGIN
|
|
KEY "NUM.CIV DI RESIDENZA"
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRES
|
|
MESSAGE APPEND,10
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "VIA RES. + NUMCIVRES"
|
|
PROMPT 79 5 ""
|
|
GROUP 3
|
|
END
|
|
|
|
STRINGA 103
|
|
BEGIN
|
|
KEY "VIA RES."
|
|
FIELD 216@->INDRF[1,35]
|
|
FLAGS "H"
|
|
MESSAGE COPY,100
|
|
END
|
|
|
|
STRINGA 104
|
|
BEGIN
|
|
KEY "NUM.CIV DI RESIDENZA"
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRF
|
|
MESSAGE APPEND,100
|
|
END
|
|
|
|
STRINGA 100
|
|
BEGIN
|
|
KEY "VIA RF + NUMCIVRF"
|
|
PROMPT 79 5 ""
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER 11
|
|
BEGIN
|
|
KEY "NUMERO QUOTE"
|
|
PROMPT 21 7 ""
|
|
FIELD 101->NUMQUOTE
|
|
PICTURE "##@,@@"
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "UTILI SPETTANTI"
|
|
PROMPT 41 7 ""
|
|
FIELD 101->UTSPETT
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
|
|
PROMPT 67 7 ""
|
|
FIELD 101->ROPESPET
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "UTILI PAGATI"
|
|
PROMPT 93 7 ""
|
|
FIELD 101->UTPAG
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
|
|
PROMPT 118 7 ""
|
|
FIELD 101->ROPE
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 5
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 5 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
// PROSPETTO 3
|
|
SECTION BODY EVEN 25
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "SEZ.1 IMPORTO VERSATO"
|
|
PROMPT 118 1 ""
|
|
FIELD 70->P31
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "SEZ.2 MAGG. RIT. VERS. PRIMO SEM. 96"
|
|
PROMPT 39 5 ""
|
|
FIELD 70->P32AT
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE COPY,4
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "SEZ.2 RECUPERI PRIMO SEM. 96"
|
|
PROMPT 84 5 ""
|
|
FIELD 70->P32AR
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE SUB,4
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "SEZ.1 IMPORTO VERSATO"
|
|
PROMPT 118 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "SEZ.2 MAGG. RIT. VERS. SECONDO SEM. 96"
|
|
PROMPT 39 8 ""
|
|
FIELD 70->P32BT
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE COPY,7
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "SEZ.2 RECUPERI SECONDO SEM. 96"
|
|
PROMPT 84 8 ""
|
|
FIELD 70->P32BR
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE SUB,7
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "SEZ.2 IMPORTO VERSATO"
|
|
PROMPT 118 8 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "SEZ.3 IMPORTO VERSATO PRIMO SEM. 96"
|
|
PROMPT 118 13 ""
|
|
FIELD 70->P33A
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "SEZ.3 IMPORTO VERSATO SECONDO SEM. 96"
|
|
PROMPT 118 16 ""
|
|
FIELD 70->P33B
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "SEZ.4 IMPORTO VERSATO PRIMO SEM. 96"
|
|
PROMPT 118 21 ""
|
|
FIELD 70->P34A
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "SEZ.4 IMPORTO VERSATO SECONDO SEM. 96"
|
|
PROMPT 118 24 ""
|
|
FIELD 70->P34B
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
END |