270 lines
3.4 KiB
Plaintext
Executable File
270 lines
3.4 KiB
Plaintext
Executable File
USE 56
|
|
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
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
56->* "Quadro A1 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 11
|
|
CARATTERE "X"
|
|
INIZIO_POS 3 3
|
|
FINE_POS 130
|
|
GRID "+++++++++-|"
|
|
END
|
|
|
|
SECTION HEADER FIRST 22
|
|
|
|
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 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 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
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "MESE DI RIFERIMENTO"
|
|
PROMPT 13 5 ""
|
|
FIELD 56->MESERIF
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "IMPOSTA RIMBORSATA"
|
|
PROMPT 25 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->IMPRIMB9
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 43 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->IMPVERS10
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 62 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->INTER11
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 81 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->IMPVERS12
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 100 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->INTER13
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU IRPEF"
|
|
PROMPT 115 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->STASSA14
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "CONTRIBUTO A RIMBORSO"
|
|
PROMPT 11 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->CONTRIMB15
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 30 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->CONTVERS16
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 48 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->INTER17
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 67 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->CONTVER18
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 86 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->INTER19
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU IRPEF"
|
|
PROMPT 101 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 56->STASSA20
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "CONGUAGLI NON EFFETTUATI"
|
|
PROMPT 121 7 ""
|
|
FIELD 56->CONNEFF21
|
|
END
|
|
|
|
STRINGA 22
|
|
BEGIN
|
|
KEY "TIPO CONGUAGLIO"
|
|
PROMPT 128 7 ""
|
|
FIELD 56->TIPOCONG22
|
|
END
|
|
|
|
STRINGA 23
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 11 9 ""
|
|
FIELD 104@->S1
|
|
END
|
|
|
|
STRINGA 24
|
|
BEGIN
|
|
KEY "DENOMINAZIONE CAAF"
|
|
PROMPT 43 9 ""
|
|
FIELD 104@->S0
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 100 9 ""
|
|
PICTURE "#####"
|
|
FIELD 104@->I1
|
|
END
|
|
|
|
DATA 26
|
|
BEGIN
|
|
KEY "DATA RICEZIONE MOD.730-5"
|
|
PROMPT 115 9 ""
|
|
FORMAT "1444-"
|
|
PICTURE "## ^ ##^^^^^"
|
|
FIELD 56->DATARIC26
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 6
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 6 ""
|
|
FIELD 206@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|