611 lines
7.6 KiB
Plaintext
Executable File
611 lines
7.6 KiB
Plaintext
Executable File
USE 36
|
|
JOIN 37 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 72 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 73 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 74 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 75 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 76 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 77 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 9 TO 36 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
|
|
JOIN 6 TO 8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR
|
|
JOIN 9 TO 36 ALIAS 104 INTO CODDITTA==DITTACAAF
|
|
JOIN 6 TO 104@ ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
36->* "Base 770"
|
|
37->* "Basebis 770"
|
|
72->* "Quadro N"
|
|
73->* "Quadro P"
|
|
74->* "Quadro Q"
|
|
75->* "Quadro R"
|
|
76->* "Quadro S"
|
|
77->* "Quadro T"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CA "X"
|
|
IN 3 2
|
|
FI 131
|
|
END
|
|
|
|
SECTION HEADER FIRST 7
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "M1"
|
|
PROMPT 60 1 ""
|
|
FIELD 37->ECCRIT12
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "M2"
|
|
PROMPT 117 1 ""
|
|
FIELD 37->ECCRIT23
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "M3"
|
|
PROMPT 60 3 ""
|
|
FIELD 37->CRIMPDL
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "M4"
|
|
PROMPT 60 5 ""
|
|
FIELD 37->CRIMPIVA
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "M5"
|
|
PROMPT 117 3 ""
|
|
FIELD 37->CRIMPRIT
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "M6"
|
|
PROMPT 117 5 ""
|
|
FIELD 37->CRIMPRES
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "MeseRif"
|
|
PROMPT 25 1 ""
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "AnnoRif"
|
|
PROMPT 28 1 ""
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "imp. rimb"
|
|
PROMPT 37 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Compensi"
|
|
PROMPT 58 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "MeseRif"
|
|
PROMPT 83 1 ""
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "AnnoRif"
|
|
PROMPT 86 1 ""
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "imp. rimb"
|
|
PROMPT 96 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "Compensi"
|
|
PROMPT 116 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "R - MeseRif"
|
|
PROMPT 25 1 ""
|
|
// FIELD 75->MESERIF
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "R - AnnoRif"
|
|
PROMPT 28 1 ""
|
|
// FIELD 75->ANNORIF
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "R - imp. rimb"
|
|
PROMPT 37 1 ""
|
|
// FIELD 75->IMPRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "R - Compensi"
|
|
PROMPT 58 1 ""
|
|
// FIELD 75->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "R - MeseRif"
|
|
PROMPT 83 1 ""
|
|
// FIELD 75->MESERIF
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "R - AnnoRif"
|
|
PROMPT 86 1 ""
|
|
// FIELD 75->ANNORIF
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "R - imp. rimb"
|
|
PROMPT 96 1 ""
|
|
// FIELD 75->IMPRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "R - Compensi"
|
|
PROMPT 116 1 ""
|
|
// FIELD 75->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "PS Imp.versata"
|
|
PROMPT 22 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "PS Inter.lav.dip"
|
|
PROMPT 38 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "PS Inter.dat.lav."
|
|
PROMPT 53 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "PS Modalita' vers"
|
|
PROMPT 73 1 ""
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "PS Cod.trib"
|
|
PROMPT 80 1 ""
|
|
END
|
|
|
|
DATA 6
|
|
BEGIN
|
|
KEY "PS DATA VERS."
|
|
PROMPT 89 1 ""
|
|
PICTURE "## ^ ## ^####"
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PS Serie"
|
|
PROMPT 107 1 ""
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "PS Numero"
|
|
PROMPT 117 1 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "Q Mese paga"
|
|
PROMPT 25 1 ""
|
|
// FIELD 74->MESEPAG
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "Q Anno paga"
|
|
PROMPT 28 1 ""
|
|
// FIELD 74->ANNOPAG
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "Q Contr.versato"
|
|
PROMPT 46 1 ""
|
|
// FIELD 74->CONTVERS
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Q Contr.rimborsati"
|
|
PROMPT 75 1 ""
|
|
// FIELD 74->CONTRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "Q Interes.e/o soprattasse"
|
|
PROMPT 104 1 ""
|
|
// FIELD 74->INTERESSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Q Cod.Reg"
|
|
PROMPT 126 1 ""
|
|
// FIELD 74->CODREG
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER ODD 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "T Mese paga"
|
|
PROMPT 25 1 ""
|
|
// FIELD 77->MESEPAG
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "T Anno paga"
|
|
PROMPT 28 1 ""
|
|
// FIELD 77->ANNOPAG
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "T Contr.versato"
|
|
PROMPT 46 1 ""
|
|
// FIELD 77->CONTVERS
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "T Contr.rimborsati"
|
|
PROMPT 75 1 ""
|
|
// FIELD 77->CONTRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "T Interes.e/o soprattasse"
|
|
PROMPT 104 1 ""
|
|
// FIELD 77->INTERESSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "T Cod.Reg"
|
|
PROMPT 126 1 ""
|
|
// FIELD 77->CODREG
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER FIRST 26
|
|
|
|
STRINGA 650
|
|
BEGIN
|
|
KEY "Quadro A"
|
|
PROMPT 21 3 ""
|
|
FIELD 37->QCOMP[1,1]
|
|
END
|
|
|
|
STRINGA 653
|
|
BEGIN
|
|
KEY "Quadro A3"
|
|
PROMPT 26 3 ""
|
|
FIELD 37->QCOMP[4,4]
|
|
END
|
|
|
|
STRINGA 660
|
|
BEGIN
|
|
KEY "Quadro B"
|
|
PROMPT 31 3 ""
|
|
FIELD 37->QCOMP[5,5]
|
|
END
|
|
|
|
STRINGA 661
|
|
BEGIN
|
|
KEY "Quadro B1"
|
|
PROMPT 36 3 ""
|
|
FIELD 37->QCOMP[6,6]
|
|
END
|
|
|
|
STRINGA 670
|
|
BEGIN
|
|
KEY "Quadro C"
|
|
PROMPT 41 3 ""
|
|
FIELD 37->QCOMP[7,7]
|
|
END
|
|
|
|
STRINGA 680
|
|
BEGIN
|
|
KEY "Quadro D"
|
|
PROMPT 46 3 ""
|
|
FIELD 37->QCOMP[8,8]
|
|
END
|
|
|
|
STRINGA 681
|
|
BEGIN
|
|
KEY "Quadro D1"
|
|
PROMPT 51 3 ""
|
|
FIELD 37->QCOMP[9,9]
|
|
END
|
|
|
|
STRINGA 690
|
|
BEGIN
|
|
KEY "Quadro E"
|
|
PROMPT 56 3 ""
|
|
FIELD 37->QCOMP[10,10]
|
|
END
|
|
|
|
STRINGA 691
|
|
BEGIN
|
|
KEY "Quadro E1"
|
|
PROMPT 62 3 ""
|
|
FIELD 37->QCOMP[11,11]
|
|
END
|
|
|
|
STRINGA 692
|
|
BEGIN
|
|
KEY "Quadro E2"
|
|
PROMPT 67 3 ""
|
|
FIELD 37->QCOMP[12,12]
|
|
END
|
|
|
|
STRINGA 700
|
|
BEGIN
|
|
KEY "Quadro F"
|
|
PROMPT 72 3 ""
|
|
FIELD 37->QCOMP[13,13]
|
|
END
|
|
|
|
STRINGA 701
|
|
BEGIN
|
|
KEY "Quadro F1"
|
|
PROMPT 77 3 ""
|
|
FIELD 37->QCOMP[14,14]
|
|
END
|
|
|
|
STRINGA 702
|
|
BEGIN
|
|
KEY "Quadro F2"
|
|
PROMPT 82 3 ""
|
|
FIELD 37->QCOMP[15,15]
|
|
END
|
|
|
|
STRINGA 710
|
|
BEGIN
|
|
KEY "Quadro G"
|
|
PROMPT 87 3 ""
|
|
FIELD 37->QCOMP[16,16]
|
|
END
|
|
|
|
STRINGA 711
|
|
BEGIN
|
|
KEY "Quadro G1"
|
|
PROMPT 92 3 ""
|
|
FIELD 37->QCOMP[17,17]
|
|
END
|
|
|
|
STRINGA 720
|
|
BEGIN
|
|
KEY "Quadro H"
|
|
PROMPT 97 3 ""
|
|
FIELD 37->QCOMP[18,18]
|
|
END
|
|
|
|
STRINGA 730
|
|
BEGIN
|
|
KEY "Quadro I"
|
|
PROMPT 102 3 ""
|
|
FIELD 37->QCOMP[19,19]
|
|
END
|
|
|
|
STRINGA 651
|
|
BEGIN
|
|
KEY "Quadro A1"
|
|
PROMPT 21 7 ""
|
|
FIELD 37->QCOMP[2,2]
|
|
END
|
|
|
|
STRINGA 652
|
|
BEGIN
|
|
KEY "Quadro A2"
|
|
PROMPT 26 7 ""
|
|
FIELD 37->QCOMP[3,3]
|
|
END
|
|
|
|
STRINGA 760
|
|
BEGIN
|
|
KEY "Quadro N"
|
|
PROMPT 31 7 ""
|
|
FIELD 37->QCOMP[20,20]
|
|
END
|
|
|
|
STRINGA 780
|
|
BEGIN
|
|
KEY "Quadro P"
|
|
PROMPT 37 7 ""
|
|
FIELD 37->QCOMP[21,21]
|
|
END
|
|
|
|
STRINGA 790
|
|
BEGIN
|
|
KEY "Quadro Q"
|
|
PROMPT 42 7 ""
|
|
FIELD 37->QCOMP[22,22]
|
|
END
|
|
|
|
STRINGA 800
|
|
BEGIN
|
|
KEY "Quadro R"
|
|
PROMPT 47 7 ""
|
|
FIELD 37->QCOMP[23,23]
|
|
END
|
|
|
|
STRINGA 810
|
|
BEGIN
|
|
KEY "Quadro S"
|
|
PROMPT 52 7 ""
|
|
FIELD 37->QCOMP[24,24]
|
|
END
|
|
|
|
STRINGA 820
|
|
BEGIN
|
|
KEY "Quadro T"
|
|
PROMPT 57 7 ""
|
|
FIELD 37->QCOMP[25,25]
|
|
END
|
|
|
|
STRINGA 821
|
|
BEGIN
|
|
PROMPT 85 9 ""
|
|
KEY "Numero quadri aggiuntivi L P Q S T"
|
|
FIELD 37->H0NQLAGG
|
|
END
|
|
|
|
STRINGA 822
|
|
BEGIN
|
|
PROMPT 75 11 ""
|
|
KEY "Numero quadri su supporto magnetico"
|
|
FIELD 37->NSUPPM
|
|
END
|
|
|
|
STRINGA 823
|
|
BEGIN
|
|
KEY "Presidente"
|
|
PROMPT 51 15 ""
|
|
END
|
|
|
|
STRINGA 824
|
|
BEGIN
|
|
KEY "Dichiarante"
|
|
PROMPT 95 15 ""
|
|
FIELD 6->RAGSOC
|
|
END
|
|
|
|
DATA 825
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 29 16 ""
|
|
FLAGS "A"
|
|
END
|
|
|
|
STRINGA 826
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 51 18 ""
|
|
FIELD 206@->COFI
|
|
END
|
|
|
|
NUMERO 827
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 126 18 ""
|
|
FIELD 104@->NISCRAA
|
|
PICTURE "#####"
|
|
END
|
|
|
|
STRINGA 828
|
|
BEGIN
|
|
KEY "CODICE FISCALE PROF."
|
|
PROMPT 92 20 ""
|
|
FIELD 106@->COFI
|
|
END
|
|
|
|
STRINGA 829
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 84 25 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|
|
|
|
|
|
|