477 lines
5.7 KiB
Plaintext
Executable File
477 lines
5.7 KiB
Plaintext
Executable File
USE 59
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
59->* "Quadro B 770"
|
|
45->* "Anagrafica dei dipendenti"
|
|
9->* "Ditte"
|
|
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CARATTERE "X"
|
|
INIZIO 3 3
|
|
FINE 130
|
|
END
|
|
|
|
SECTION GRAPHICS FIRST 66
|
|
|
|
FIGURA 1 130 65
|
|
BEGIN
|
|
PROMPT 1 5 "770_B_1.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS EVEN 66
|
|
|
|
FIGURA 1 130 61
|
|
BEGIN
|
|
PROMPT 1 4 "770_B_2.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS ODD 66
|
|
|
|
FIGURA 1 130 61
|
|
BEGIN
|
|
PROMPT 1 4 "770_B_3.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS LAST 66
|
|
|
|
FIGURA 1 130 58
|
|
BEGIN
|
|
PROMPT 1 4 "770_B_4.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER FIRST 22
|
|
|
|
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
|
|
|
|
SECTION HEADER ODD 5
|
|
// Header pagina 2 e successive
|
|
END
|
|
|
|
SECTION BODY ODD 12
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 9 1 ""
|
|
FIELD 45->CODFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 42 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 127 1 ""
|
|
FIELD 45->SESSO
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 9 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 "PROV. RESIDENZA"
|
|
PROMPT 86 3 ""
|
|
FIELD 45->PROVRES
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "INDIRIZZO RES."
|
|
PROMPT 92 3 ""
|
|
FIELD 45->INDRES
|
|
END
|
|
|
|
DATA 11
|
|
BEGIN
|
|
KEY "DATA INIZIO RAPPORTO"
|
|
PROMPT 10 5 ""
|
|
PICTURE "## ^ ## ^ ^^ ##"
|
|
FIELD DATAINI
|
|
END
|
|
|
|
DATA 12
|
|
BEGIN
|
|
KEY "DATA FINE RAPPORTO"
|
|
PROMPT 29 5 ""
|
|
PICTURE "## ^ ## ^ ^^ ##"
|
|
FIELD DATAFIN
|
|
END
|
|
|
|
NUMERO 131
|
|
BEGIN
|
|
KEY "ANNI COMMISURAZIONE"
|
|
PROMPT 48 5 ""
|
|
FIELD ANNICOMM
|
|
END
|
|
|
|
NUMERO 132
|
|
BEGIN
|
|
KEY "MESI COMMISURAZIONE"
|
|
PROMPT 54 5 ""
|
|
FIELD MESICOMM
|
|
END
|
|
|
|
NUMERO 141
|
|
BEGIN
|
|
KEY "ANNI CONVENZIONALI"
|
|
PROMPT 59 5 ""
|
|
FIELD ANNICONV
|
|
END
|
|
|
|
NUMERO 142
|
|
BEGIN
|
|
KEY "MESI CONVENZIONALI"
|
|
PROMPT 64 5 ""
|
|
FIELD MESICONV
|
|
END
|
|
|
|
NUMERO 151
|
|
BEGIN
|
|
KEY "ANNI PARZIALI"
|
|
PROMPT 70 5 ""
|
|
FIELD ANNIPARZ
|
|
PICTURE "##"
|
|
END
|
|
|
|
NUMERO 152
|
|
BEGIN
|
|
KEY "MESI PARZIALI"
|
|
PROMPT 75 5 ""
|
|
FIELD MESIPARZ
|
|
PICTURE "##"
|
|
END
|
|
|
|
NUMERO 153
|
|
BEGIN
|
|
KEY "PERCENTUALE TEMPO PARZIALE"
|
|
PROMPT 80 5 ""
|
|
PICTURE "##@,@@"
|
|
FIELD PERCPARZ
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "QUOTA ECCEDENTE"
|
|
PROMPT 88 5 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD QUOTAECC
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "MESE EROGAZIONE"
|
|
PROMPT 102 5 ""
|
|
FIELD MESEEROG
|
|
END
|
|
|
|
STRINGA 18
|
|
BEGIN
|
|
KEY "TITOLO EROGAZIONE"
|
|
PROMPT 108 5 ""
|
|
FIELD TITEROG
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "PERCENTUALE ABBATTIMENTO"
|
|
PROMPT 110 5 ""
|
|
PICTURE "##@,@@"
|
|
FIELD PERCABB
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "AMMONTARE NETTO"
|
|
PROMPT 117 5 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD AMMNETTO
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "MESE EROGAZIONE"
|
|
PROMPT 9 7 ""
|
|
FIELD MESEEROG2
|
|
END
|
|
|
|
STRINGA 22
|
|
BEGIN
|
|
KEY "TITOLO EROGAZIONE"
|
|
PROMPT 14 7 ""
|
|
FIELD TITEROG2
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "ABBATTIMENTO"
|
|
PROMPT 20 7 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD ABBATT
|
|
END
|
|
|
|
NUMERO 24
|
|
BEGIN
|
|
KEY "AMMONTARE NETTO"
|
|
PROMPT 34 7 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD AMMNETTO2
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
|
|
PROMPT 48 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD CONTLAV
|
|
END
|
|
|
|
NUMERO 26
|
|
BEGIN
|
|
KEY "T.F.R."
|
|
PROMPT 65 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD TFR7494
|
|
END
|
|
|
|
NUMERO 27
|
|
BEGIN
|
|
KEY "ALTRE INDENNITA'"
|
|
PROMPT 82 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD INDEN7494
|
|
END
|
|
|
|
NUMERO 28
|
|
BEGIN
|
|
KEY "TOTALE INDENNITA'"
|
|
PROMPT 102 7 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD TIND7494
|
|
END
|
|
|
|
NUMERO 29
|
|
BEGIN
|
|
KEY "TOTALE RIDUZIONI"
|
|
PROMPT 115 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD TRID
|
|
END
|
|
|
|
NUMERO 30
|
|
BEGIN
|
|
KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
|
|
PROMPT 9 9 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD TFRIND
|
|
END
|
|
|
|
NUMERO 31
|
|
BEGIN
|
|
KEY "ALIQUOTA"
|
|
PROMPT 25 9 ""
|
|
PICTURE "##@,@@"
|
|
FIELD ALIQUOTA
|
|
END
|
|
|
|
NUMERO 32
|
|
BEGIN
|
|
KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE"
|
|
PROMPT 31 9 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD RETRMEDIA
|
|
END
|
|
|
|
NUMERO 33
|
|
BEGIN
|
|
KEY "ALIQUOTA"
|
|
PROMPT 47 9 ""
|
|
PICTURE "##@,@@"
|
|
FIELD ALIQUOTA2
|
|
END
|
|
|
|
NUMERO 34
|
|
BEGIN
|
|
KEY "IMPONIBILE T.F.R."
|
|
PROMPT 57 9 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD IMPTFR
|
|
END
|
|
|
|
NUMERO 35
|
|
BEGIN
|
|
KEY "IMPONIBILE ALTRE INDENNITA'"
|
|
PROMPT 70 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD IMPIND
|
|
END
|
|
|
|
NUMERO 36
|
|
BEGIN
|
|
KEY "IMPONIBILE DELL'ANNO"
|
|
PROMPT 86 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD IMPANNO
|
|
END
|
|
|
|
NUMERO 37
|
|
BEGIN
|
|
KEY "TOTALE REDDITO IMPONIBILE"
|
|
PROMPT 101 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD TOTIMP
|
|
END
|
|
|
|
NUMERO 38
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE"
|
|
PROMPT 117 9 ""
|
|
PICTURE "#.###.###.###^^^"
|
|
FIELD ROPEACC
|
|
END
|
|
|
|
NUMERO 39
|
|
BEGIN
|
|
KEY "IMPOSTA DOVUTA"
|
|
PROMPT 9 11 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD IMPDOV
|
|
END
|
|
|
|
NUMERO 40
|
|
BEGIN
|
|
KEY "RITENUTE FISCALI"
|
|
PROMPT 26 11 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD RITECC
|
|
END
|
|
|
|
STRINGA 41
|
|
BEGIN
|
|
KEY "Art.2122 - Tipo"
|
|
PROMPT 43 11 ""
|
|
FIELD QB2122TIPO
|
|
END
|
|
|
|
NUMERO 42
|
|
BEGIN
|
|
KEY "QUOTA SPETTANTE"
|
|
PROMPT 50 11 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD QUOTASPET
|
|
END
|
|
|
|
NUMERO 43
|
|
BEGIN
|
|
KEY "INDENNITA' SPETTANTE"
|
|
PROMPT 67 11 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD INDSPETT
|
|
END
|
|
|
|
NUMERO 44
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE"
|
|
PROMPT 84 11 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD ROPE
|
|
END
|
|
|
|
NUMERO 45
|
|
BEGIN
|
|
KEY "IMPONIBILE C.S.S.N."
|
|
PROMPT 101 11 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD IMPOCSSN
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 8
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 8 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|