470 lines
6.1 KiB
Plaintext
Executable File
470 lines
6.1 KiB
Plaintext
Executable File
USE 57
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
|
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
|
JOIN 36 INTO CODDITTA=CODDITTA
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
57->* "Quadro A2 770"
|
|
45->* "Anagrafica dei dipendenti"
|
|
104@->* "Tabella CAAF"
|
|
9->* "Ditte"
|
|
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
|
108@->* "Anagrafica persone fisiche (ditta)"
|
|
113@->* "Comuni DITTA (nascita)"
|
|
213@->* "Comuni DITTA (residenza)"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 11
|
|
CARATTERE "X"
|
|
INIZIO_POS 3 2
|
|
FINE_POS 131
|
|
GRID "+++++++++-|"
|
|
END
|
|
|
|
SECTION HEADER FIRST 28
|
|
|
|
LISTA 1
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FLAGS "H"
|
|
FIELD 106@->TIPOA
|
|
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 3 12 ""
|
|
FIELD 106@->COFI
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "RAGIONE SOCIALE"
|
|
PROMPT 40 12 ""
|
|
GROUP 2
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 40 12 ""
|
|
GROUP 1
|
|
FIELD 106@->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 17 14 ""
|
|
GROUP 1
|
|
FIELD 106@->RAGSOC[31,50]
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 59 14 ""
|
|
GROUP 1
|
|
FIELD 108@->SESSO
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 67 14 ""
|
|
GROUP 1
|
|
FIELD 108@->DATANASC
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 84 14 ""
|
|
GROUP 1
|
|
FIELD 113@->DENCOM
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA"
|
|
PROMPT 125 14 ""
|
|
GROUP 1
|
|
FIELD 113@->PROVCOM
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "COMUNE DI RES.FISCALE"
|
|
PROMPT 17 16 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "PROV DI RES.FISCALE"
|
|
PROMPT 59 16 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "VIA di RES."
|
|
PROMPT 66 16 ""
|
|
FIELD 106@->INDRF
|
|
FIELD 106@->INDRES
|
|
END
|
|
|
|
STRINGA 15
|
|
BEGIN
|
|
KEY "NUM. CIVICO di RES."
|
|
PROMPT 104 16 ""
|
|
FIELD 106@->CIVRF
|
|
FIELD 106@->CIVRES
|
|
END
|
|
|
|
STRINGA 16
|
|
BEGIN
|
|
KEY "CAP"
|
|
PROMPT 123 16 ""
|
|
FIELD 106@->CAPRF
|
|
FIELD 106@->CAPRES
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
|
PROMPT 87 19 ""
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 125 22 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 10
|
|
|
|
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 114 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 "CONGUAGLI NON EFFETTUATI"
|
|
PROMPT 16 5 ""
|
|
FIELD 57->CONEFF
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "RETTIFICA CONGUAGLIO"
|
|
PROMPT 31 5 ""
|
|
FIELD 57->RETCON
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "IMPOSTA RIMBORSATA"
|
|
PROMPT 39 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->10
|
|
FIELD 57->SIRPEFRIMB
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 54 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->11
|
|
FIELD 57->VIRPEF
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 70 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->12
|
|
FIELD 57->INTIRPEF
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 85 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->13
|
|
FIELD 57->AIRPEFIV
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 100 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->14
|
|
FIELD 57->AIRPEFINT
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU IRPEF"
|
|
PROMPT 115 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->15
|
|
FIELD 57->STASSA15
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "CONTRIBUTO A RIMBORSO"
|
|
PROMPT 8 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->16
|
|
FIELD 57->CONTR16
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 23 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->17
|
|
FIELD 57->CONTRVER
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 39 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->18
|
|
FIELD 57->INTER18
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 54 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->19
|
|
FIELD 57->CONTV19
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 70 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->20
|
|
FIELD 57->INTE20
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU CSSN"
|
|
PROMPT 85 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,FL->21
|
|
FIELD 57->SOPRAT21
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "MOD. 730/95 NON LIQUIDABILE"
|
|
PROMPT 108 7 ""
|
|
FIELD 57->M730NLIQ
|
|
END
|
|
|
|
STRINGA 23
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 11 9 ""
|
|
FIELD 104@->S1
|
|
END
|
|
|
|
STRINGA 24
|
|
BEGIN
|
|
KEY "DENOMINAZIONE CAAF"
|
|
PROMPT 44 9 ""
|
|
FIELD 104@->S0
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 125 9 ""
|
|
PICTURE "#####"
|
|
FIELD 104@->I1
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 4
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "IMPOSTA RIMBORSATA"
|
|
PROMPT 39 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 54 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 70 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 85 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 100 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU IRPEF"
|
|
PROMPT 115 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "CONTRIBUTO A RIMBORSO"
|
|
PROMPT 8 3 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 23 3 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 39 3 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 54 3 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 70 3 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU CSSN"
|
|
PROMPT 85 3 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 730
|
|
BEGIN
|
|
KEY "NUMERO MOD.730"
|
|
PROMPT 20 5 ""
|
|
PICTURE "######"
|
|
FIELD 36->N730ALLA2
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 9 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|