494 lines
7.4 KiB
Plaintext
Executable File
494 lines
7.4 KiB
Plaintext
Executable File
USE 119
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 36 INTO CODDITTA=CODDITTA
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
119->* "Quadro Abis 770"
|
|
45->* "Anagrafica dei dipendenti"
|
|
104@->* "Tabella CAAF"
|
|
9->* "Ditte"
|
|
206@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CARATTERE "X"
|
|
INIZIO_POS 3 3
|
|
FINE_POS 130
|
|
END
|
|
|
|
SECTION GRAPHICS FIRST 66
|
|
|
|
FIGURA 1 130 66
|
|
BEGIN
|
|
PROMPT 2 5 "770_AB_1.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS EVEN 66
|
|
|
|
FIGURA 1 130 61
|
|
BEGIN
|
|
PROMPT 2 4 "770_AB_2.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS ODD 66
|
|
|
|
FIGURA 1 130 61
|
|
BEGIN
|
|
PROMPT 2 4 "770_AB_3.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS LAST 66
|
|
|
|
FIGURA 1 130 58
|
|
BEGIN
|
|
PROMPT 2 4 "770_AB_4.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER FIRST 23
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 55 8 ""
|
|
FIELD 206@->COFI
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 88 8 ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 8 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER ODD 5
|
|
// Header pagine successive
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 12
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 11 1 ""
|
|
FIELD 45->CODFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 43 1 ""
|
|
FIELD 45->COGNOME
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 80 1 ""
|
|
FIELD 45->NOME
|
|
END
|
|
|
|
DATA 4
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 112 1 ""
|
|
FIELD 45->DATANA
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 128 1 ""
|
|
FIELD 45->SESSO
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 11 3 ""
|
|
FIELD 45->COMUNENA
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA"
|
|
PROMPT 48 3 ""
|
|
FIELD 45->PROVNA
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "ASSISTENZA 1996 - CONGUAGLI NON EFFETTUATI"
|
|
PROMPT 11 5 ""
|
|
FIELD CONEFF
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "SECONDA RATA ACCONTO IRPEF 1996 - IMPOSTA TRATTENUTA"
|
|
PROMPT 14 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD IMPVERS
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "SECONDA RATA ACCONTO IRPEF 1996 - INTERESSI"
|
|
PROMPT 28 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD INTERE
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "SECONDA RATA ACCONTO CSSN 1996 - CONTRIBUTO TRATTNEUTO"
|
|
PROMPT 42 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD CSSN95CV
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "SECONDA RATA ACCONTO CSSN 1996 - INTERESSI"
|
|
PROMPT 56 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD INTERE2
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "ASSISTENZA 1997 - CONGUAGLI NON EFFETTUATI"
|
|
PROMPT 72 5 ""
|
|
FIELD CNEFF
|
|
END
|
|
|
|
STRINGA 14
|
|
BEGIN
|
|
KEY "ASSISTENZA 1997 - RETTIFICA CONGUAGLIO"
|
|
PROMPT 79 5 ""
|
|
FIELD RETCON
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "ASSISTENZA 1997 - MOD730/97 NON LIQUIDABILE"
|
|
PROMPT 85 5 ""
|
|
FIELD M730NLIQ
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "SALDO IRPEF PER IL 1996 - IMPOSTA RIMBORSATA"
|
|
PROMPT 90 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD IMPRIMB
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "SALDO IRPEF PER IL 1996 - IMPOSTA TRATTENUTA"
|
|
PROMPT 104 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD IMPVER
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "SALDO IRPEF PER IL 1996 - INTERESSI"
|
|
PROMPT 118 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD INTIRPEF
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "PRIMA RATA ACCONTO IRPEF 1997 - IMPOSTA TRATTENUTA"
|
|
PROMPT 8 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD IMPVER2
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "PRIMA RATA ACCONTO IRPEF 1997 - INTERESSI"
|
|
PROMPT 21 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD INTER
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "SOPRATTASSE SU IRPEF SALDO 1996 E PRIMA RATA ACCONTO 1997"
|
|
PROMPT 35 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD STSIRPEF
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "SALDO CSSN PER IL 1996 - CONTRIBUTO A RIMBORSO"
|
|
PROMPT 49 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD CONRIMB
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "SALDO CSSN PER IL 1996 - CONTRIBUTO TRATTENUTO"
|
|
PROMPT 63 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD CONVER
|
|
END
|
|
|
|
NUMERO 24
|
|
BEGIN
|
|
KEY "SALDO CSSN PER IL 1996 - INTERESSI"
|
|
PROMPT 76 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD INTER2
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "PRIMA RATA ACCONTO CSSN PER IL 1997 - CONTRIBUTO TRATTENUTO"
|
|
PROMPT 90 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD CONVER2
|
|
END
|
|
|
|
NUMERO 26
|
|
BEGIN
|
|
KEY "PRIMA RATA ACCONTO CSSN PER IL 1997 - INTERESSI"
|
|
PROMPT 104 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD INTER3
|
|
END
|
|
|
|
NUMERO 27
|
|
BEGIN
|
|
KEY "SOPRATTASSE SU CSSN SALDO 1996 e PRIMA RATA ACCONTO 1997"
|
|
PROMPT 118 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD STSCSSN70
|
|
END
|
|
|
|
NUMERO 28
|
|
BEGIN
|
|
KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO RIMBORSATO"
|
|
PROMPT 8 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABEURIMB
|
|
END
|
|
|
|
NUMERO 29
|
|
BEGIN
|
|
KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO TRATTENUTO"
|
|
PROMPT 21 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABEUTRAT
|
|
END
|
|
|
|
NUMERO 30
|
|
BEGIN
|
|
KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - INTERESSI"
|
|
PROMPT 35 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABEUINTE
|
|
END
|
|
|
|
NUMERO 31
|
|
BEGIN
|
|
KEY "CONTRIBUTO STRAORDINARIO PER L'EUROPA - SOPRATTASSE"
|
|
PROMPT 49 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABEUSOPR
|
|
END
|
|
|
|
NUMERO 32
|
|
BEGIN
|
|
KEY "TASSAZIONE SEPARATA - ACCONTO TRATTENUTO"
|
|
PROMPT 63 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABTSTRAT
|
|
END
|
|
|
|
NUMERO 33
|
|
BEGIN
|
|
KEY "TASSAZIONE SEPARATA - INTERESSI"
|
|
PROMPT 76 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABTSINTE
|
|
END
|
|
|
|
NUMERO 34
|
|
BEGIN
|
|
KEY "TASSAZIONE SEPARATA - SOPRATTASSE"
|
|
PROMPT 90 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABTSSOPR
|
|
END
|
|
|
|
STRINGA 35
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 11 11 ""
|
|
FIELD 104@->S1
|
|
END
|
|
|
|
STRINGA 36
|
|
BEGIN
|
|
KEY "DENOMINAZIONE CAAF"
|
|
PROMPT 44 11 ""
|
|
FIELD 104@->S0
|
|
END
|
|
|
|
NUMERO 37
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 125 11 ""
|
|
PICTURE "#####"
|
|
FIELD 104@->I1
|
|
END
|
|
|
|
STRINGA 101
|
|
BEGIN
|
|
KEY "14 - ASSISTENZA 1997 - RETTIFICA CONGUAGLIO (B FISSA)"
|
|
PROMPT 79 5 "B"
|
|
END
|
|
|
|
NUMERO 102
|
|
BEGIN
|
|
KEY "19 - PRIMA RATA ACCONTO IRPEF 1997 - IMPOSTA TRATTENUTA (CONGUAGLIO)"
|
|
PROMPT 8 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB19
|
|
END
|
|
|
|
NUMERO 103
|
|
BEGIN
|
|
KEY "20 - PRIMA RATA ACCONTO IRPEF 1997 - INTERESSI (CONGUAGLIO)"
|
|
PROMPT 21 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB20
|
|
END
|
|
|
|
NUMERO 104
|
|
BEGIN
|
|
KEY "21 - SOPRATTASSE SU IRPEF SALDO 1996 E PRIMA RATA ACCONTO 1997 (CONGUAGLIO)"
|
|
PROMPT 35 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB21
|
|
END
|
|
|
|
NUMERO 105
|
|
BEGIN
|
|
KEY "22 - SALDO CSSN PER IL 1996 - CONTRIBUTO A RIMBORSO (CONGUAGLIO)"
|
|
PROMPT 49 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB22
|
|
END
|
|
|
|
NUMERO 106
|
|
BEGIN
|
|
KEY "23 - SALDO CSSN PER IL 1996 - CONTRIBUTO TRATTENUTO (CONGUAGLIO)"
|
|
PROMPT 63 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB23
|
|
END
|
|
|
|
NUMERO 107
|
|
BEGIN
|
|
KEY "24 - SALDO CSSN PER IL 1996 - INTERESSI (CONGUAGLIO)"
|
|
PROMPT 76 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB24
|
|
END
|
|
|
|
NUMERO 108
|
|
BEGIN
|
|
KEY "25 - PRIMA RATA ACCONTO CSSN PER IL 1997 - CONTRIBUTO TRATTENUTO (CONGUAGLIO)"
|
|
PROMPT 90 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB25
|
|
END
|
|
|
|
NUMERO 109
|
|
BEGIN
|
|
KEY "26 - PRIMA RATA ACCONTO CSSN PER IL 1997 - INTERESSI (CONGUAGLIO)"
|
|
PROMPT 104 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB26
|
|
END
|
|
|
|
NUMERO 110
|
|
BEGIN
|
|
KEY "27 - SOPRATTASSE SU CSSN SALDO 1996 e PRIMA RATA ACCONTO 1997 (CONGUAGLIO)"
|
|
PROMPT 118 7 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB27
|
|
END
|
|
|
|
NUMERO 111
|
|
BEGIN
|
|
KEY "28 - CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO RIMBORSATO (CONGUAGLIO)"
|
|
PROMPT 8 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB28
|
|
END
|
|
|
|
NUMERO 112
|
|
BEGIN
|
|
KEY "29 - CONTRIBUTO STRAORDINARIO PER L'EUROPA - IMPORTO TRATTENUTO (CONGUAGLIO)"
|
|
PROMPT 21 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD QABRCB29
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 8
|
|
|
|
NUMERO 730
|
|
BEGIN
|
|
KEY "NUMERO MOD.730"
|
|
PROMPT 22 4 ""
|
|
PICTURE "######"
|
|
FIELD 36->N730ALLA
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 8 ""
|
|
FIELD 206@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|