228 lines
2.7 KiB
Plaintext
Executable File
228 lines
2.7 KiB
Plaintext
Executable File
USE 60
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
60->* "Quadro B1 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
|
|
GRID "+++++++++-|"
|
|
END
|
|
|
|
SECTION HEADER FIRST 20
|
|
|
|
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
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "ANNO"
|
|
PROMPT 90 10 "1996"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER ODD 5
|
|
// Header pagine successive
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 6
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 10 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 113 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 10 3 ""
|
|
FIELD 45->COMUNENA
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PROV DI NASCITA"
|
|
PROMPT 46 3 ""
|
|
FIELD 45->PROVNA
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA"
|
|
PROMPT 52 3 ""
|
|
FIELD 45->COMRES
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "PROVINCIA DI RESIDENZA"
|
|
PROMPT 88 3 ""
|
|
FIELD 45->PROVRES
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "VIA E NUMERO CIVICO"
|
|
PROMPT 93 3 ""
|
|
FIELD 45->INDRES
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "INDENNITA"
|
|
PROMPT 12 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD INDEN
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "AMMONTARE IMPONIBILE"
|
|
PROMPT 24 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD AMMIMP
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "IMPONIBILE 4%"
|
|
PROMPT 36 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMP4
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "IMPONIBILE 8%"
|
|
PROMPT 48 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMP8
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "IMPONIBILE 10%"
|
|
PROMPT 60 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMP10
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "IMPONIBILE 12%"
|
|
PROMPT 72 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMP12
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "IMPONIBILE AL 15%"
|
|
PROMPT 84 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMP15
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "IMPONIBILE NETTO"
|
|
PROMPT 96 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMPNETTO
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "IMPONIBILE COMPLEMENTARE 1,5%"
|
|
PROMPT 108 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMPO15
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "IMPONIBILE COMPLEMENTARE 4%"
|
|
PROMPT 120 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMPO4
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 5
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 5 ""
|
|
FIELD 206@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|