689 lines
9.3 KiB
Plaintext
Executable File
689 lines
9.3 KiB
Plaintext
Executable File
USE 37
|
|
JOIN 72 INTO CODDITTA=CODDITTA
|
|
JOIN 73 TO 37 INTO CODDITTA=CODDITTA
|
|
JOIN 74 TO 37 INTO CODDITTA=CODDITTA
|
|
JOIN 75 TO 37 INTO CODDITTA=CODDITTA
|
|
JOIN 76 TO 37 INTO CODDITTA=CODDITTA
|
|
JOIN 77 TO 37 INTO CODDITTA=CODDITTA
|
|
JOIN 36 TO 37 INTO CODDITTA=CODDITTA
|
|
JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
|
|
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
|
|
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 "Courier 17cpi"
|
|
SIZE 10
|
|
CA "X"
|
|
IN 3 2
|
|
FI 131
|
|
END
|
|
|
|
SECTION HEADER FIRST 7
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "M1"
|
|
PROMPT 61 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 61 3 ""
|
|
FIELD 37->CRIMPDL
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "M4"
|
|
PROMPT 61 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 27 1 ""
|
|
FIELD 72->MESERIF
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "AnnoRif"
|
|
PROMPT 31 1 ""
|
|
FIELD 72->ANNORIF
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "imp. rimb"
|
|
PROMPT 39 1 ""
|
|
FIELD 72->IMPOSTA
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Compensi"
|
|
PROMPT 60 1 ""
|
|
FIELD 72->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "MeseRif"
|
|
PROMPT 85 1 ""
|
|
FIELD 72->MESERIF
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "AnnoRif"
|
|
PROMPT 89 1 ""
|
|
FIELD 72->ANNORIF
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "imp. rimb"
|
|
PROMPT 99 1 ""
|
|
FIELD 72->IMPOSTA
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "Compensi"
|
|
PROMPT 119 1 ""
|
|
FIELD 72->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "R - MeseRif"
|
|
PROMPT 27 1 ""
|
|
FIELD 75->MESERIF
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "R - AnnoRif"
|
|
PROMPT 31 1 ""
|
|
FIELD 75->ANNORIF
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "R - imp. rimb"
|
|
PROMPT 41 1 ""
|
|
FIELD 75->IMPRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "R - Compensi"
|
|
PROMPT 62 1 ""
|
|
FIELD 75->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "R - MeseRif"
|
|
PROMPT 85 1 ""
|
|
FIELD 75->MESERIF
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "R - AnnoRif"
|
|
PROMPT 89 1 ""
|
|
FIELD 75->ANNORIF
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "R - imp. rimb"
|
|
PROMPT 99 1 ""
|
|
FIELD 75->IMPRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "R - Compensi"
|
|
PROMPT 120 1 ""
|
|
FIELD 75->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "P Imp.versata"
|
|
PROMPT 24 1 ""
|
|
FIELD 73->IMPOSTA
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "P Inter.lav.dip"
|
|
PROMPT 41 1 ""
|
|
FIELD 73->INTERDIP
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "P Inter.dat.lav."
|
|
PROMPT 56 1 ""
|
|
FIELD 73->INTERDAT
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "P Modalita' vers"
|
|
PROMPT 76 1 ""
|
|
FIELD 73->TIPOVERS
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "P Cod.trib"
|
|
PROMPT 82 1 ""
|
|
FIELD 73->CODTRIB
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "P DATA VERS."
|
|
PROMPT 89 1 ""
|
|
FIELD 73->DATAVERS
|
|
PICTURE "## ^ ## ^####"
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "P Serie"
|
|
PROMPT 108 1 ""
|
|
FIELD 73->SERIE
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "P Numero"
|
|
PROMPT 117 1 ""
|
|
FIELD 73->NUMERO
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER ODD 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "S Imp.versata"
|
|
PROMPT 24 1 ""
|
|
FIELD 76->IMPOSTA
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "S Inter.lav.dip"
|
|
PROMPT 41 1 ""
|
|
FIELD 76->INTERDIP
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "S Inter.dat.lav."
|
|
PROMPT 56 1 ""
|
|
FIELD 76->INTERDAT
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "S Modalita' vers"
|
|
PROMPT 76 1 ""
|
|
FIELD 73->TIPOVERS
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "S Cod.trib"
|
|
PROMPT 82 1 ""
|
|
FIELD 76->CODTRIB
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "S DATA VERS."
|
|
PROMPT 89 1 ""
|
|
FIELD 76->DATAVERS
|
|
PICTURE "## ^ ## ^####"
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "S Serie"
|
|
PROMPT 108 1 ""
|
|
FIELD 76->SERIE
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "S Numero"
|
|
PROMPT 117 1 ""
|
|
FIELD 76->NUMERO
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "Q Mese paga"
|
|
PROMPT 27 1 ""
|
|
FIELD 74->MESEPAG
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "Q Anno paga"
|
|
PROMPT 32 1 ""
|
|
FIELD 74->ANNOPAG
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "Q Contr.versato"
|
|
PROMPT 41 1 ""
|
|
FIELD 74->CONTVERS
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Q Contr.rimborsati"
|
|
PROMPT 65 1 ""
|
|
FIELD 74->CONTRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "Q Interes.e/o soprattasse"
|
|
PROMPT 94 1 ""
|
|
FIELD 74->INTERESSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Q Cod.Reg"
|
|
PROMPT 123 1 ""
|
|
FIELD 74->CODREG
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER ODD 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "T Mese paga"
|
|
PROMPT 27 1 ""
|
|
FIELD 77->MESEPAG
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "T Anno paga"
|
|
PROMPT 32 1 ""
|
|
FIELD 77->ANNOPAG
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "T Contr.versato"
|
|
PROMPT 41 1 ""
|
|
FIELD 77->CONTVERS
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "T Contr.rimborsati"
|
|
PROMPT 65 1 ""
|
|
FIELD 77->CONTRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "T Interes.e/o soprattasse"
|
|
PROMPT 94 1 ""
|
|
FIELD 77->INTERESSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "T Cod.Reg"
|
|
PROMPT 123 1 ""
|
|
FIELD 77->CODREG
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER FIRST 25
|
|
|
|
STRINGA 650
|
|
BEGIN
|
|
KEY "Quadro A"
|
|
PROMPT 19 3 ""
|
|
FIELD 37->QCOMP[1,1]
|
|
END
|
|
|
|
STRINGA 653
|
|
BEGIN
|
|
KEY "Quadro A3"
|
|
PROMPT 24 3 ""
|
|
FIELD 37->QCOMP[4,4]
|
|
END
|
|
|
|
STRINGA 660
|
|
BEGIN
|
|
KEY "Quadro B"
|
|
PROMPT 29 3 ""
|
|
FIELD 37->QCOMP[5,5]
|
|
END
|
|
|
|
STRINGA 661
|
|
BEGIN
|
|
KEY "Quadro B1"
|
|
PROMPT 34 3 ""
|
|
FIELD 37->QCOMP[6,6]
|
|
END
|
|
|
|
STRINGA 670
|
|
BEGIN
|
|
KEY "Quadro C"
|
|
PROMPT 39 3 ""
|
|
FIELD 37->QCOMP[7,7]
|
|
END
|
|
|
|
STRINGA 680
|
|
BEGIN
|
|
KEY "Quadro D"
|
|
PROMPT 44 3 ""
|
|
FIELD 37->QCOMP[8,8]
|
|
END
|
|
|
|
STRINGA 681
|
|
BEGIN
|
|
KEY "Quadro D1"
|
|
PROMPT 49 3 ""
|
|
FIELD 37->QCOMP[9,9]
|
|
END
|
|
|
|
STRINGA 690
|
|
BEGIN
|
|
KEY "Quadro E"
|
|
PROMPT 54 3 ""
|
|
FIELD 37->QCOMP[10,10]
|
|
END
|
|
|
|
STRINGA 691
|
|
BEGIN
|
|
KEY "Quadro E1"
|
|
PROMPT 60 3 ""
|
|
FIELD 37->QCOMP[11,11]
|
|
END
|
|
|
|
STRINGA 692
|
|
BEGIN
|
|
KEY "Quadro E2"
|
|
PROMPT 65 3 ""
|
|
FIELD 37->QCOMP[12,12]
|
|
END
|
|
|
|
STRINGA 700
|
|
BEGIN
|
|
KEY "Quadro F"
|
|
PROMPT 70 3 ""
|
|
FIELD 37->QCOMP[13,13]
|
|
END
|
|
|
|
STRINGA 701
|
|
BEGIN
|
|
KEY "Quadro F1"
|
|
PROMPT 75 3 ""
|
|
FIELD 37->QCOMP[14,14]
|
|
END
|
|
|
|
STRINGA 702
|
|
BEGIN
|
|
KEY "Quadro F2"
|
|
PROMPT 80 3 ""
|
|
FIELD 37->QCOMP[15,15]
|
|
END
|
|
|
|
STRINGA 710
|
|
BEGIN
|
|
KEY "Quadro G"
|
|
PROMPT 85 3 ""
|
|
FIELD 37->QCOMP[16,16]
|
|
END
|
|
|
|
STRINGA 711
|
|
BEGIN
|
|
KEY "Quadro G1"
|
|
PROMPT 90 3 ""
|
|
FIELD 37->QCOMP[17,17]
|
|
END
|
|
|
|
STRINGA 720
|
|
BEGIN
|
|
KEY "Quadro H"
|
|
PROMPT 95 3 ""
|
|
FIELD 37->QCOMP[18,18]
|
|
END
|
|
|
|
STRINGA 730
|
|
BEGIN
|
|
KEY "Quadro I"
|
|
PROMPT 100 3 ""
|
|
FIELD 37->QCOMP[19,19]
|
|
END
|
|
|
|
STRINGA 651
|
|
BEGIN
|
|
KEY "Quadro A1"
|
|
PROMPT 19 7 ""
|
|
FIELD 37->QCOMP[2,2]
|
|
END
|
|
|
|
STRINGA 652
|
|
BEGIN
|
|
KEY "Quadro A2"
|
|
PROMPT 24 7 ""
|
|
FIELD 37->QCOMP[3,3]
|
|
END
|
|
|
|
STRINGA 760
|
|
BEGIN
|
|
KEY "Quadro N"
|
|
PROMPT 29 7 ""
|
|
FIELD 37->QCOMP[20,20]
|
|
END
|
|
|
|
STRINGA 780
|
|
BEGIN
|
|
KEY "Quadro P"
|
|
PROMPT 35 7 ""
|
|
FIELD 37->QCOMP[21,21]
|
|
END
|
|
|
|
STRINGA 790
|
|
BEGIN
|
|
KEY "Quadro Q"
|
|
PROMPT 40 7 ""
|
|
FIELD 37->QCOMP[22,22]
|
|
END
|
|
|
|
STRINGA 800
|
|
BEGIN
|
|
KEY "Quadro R"
|
|
PROMPT 45 7 ""
|
|
FIELD 37->QCOMP[23,23]
|
|
END
|
|
|
|
STRINGA 810
|
|
BEGIN
|
|
KEY "Quadro S"
|
|
PROMPT 50 7 ""
|
|
FIELD 37->QCOMP[24,24]
|
|
END
|
|
|
|
STRINGA 820
|
|
BEGIN
|
|
KEY "Quadro T"
|
|
PROMPT 55 7 ""
|
|
FIELD 37->QCOMP[25,25]
|
|
END
|
|
|
|
STRINGA 821
|
|
BEGIN
|
|
PROMPT 80 9 ""
|
|
KEY "Numero quadri aggiuntivi"
|
|
FIELD 37->H0NQLAGG
|
|
END
|
|
|
|
STRINGA 822
|
|
BEGIN
|
|
PROMPT 72 11 ""
|
|
KEY "Numero quadri su supporto magnetico"
|
|
FIELD 37->NSUPPM
|
|
END
|
|
|
|
DATA 823
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 29 16 ""
|
|
END
|
|
|
|
STRINGA 824
|
|
BEGIN
|
|
KEY "Presidente"
|
|
PROMPT 51 15 ""
|
|
END
|
|
|
|
STRINGA 825
|
|
BEGIN
|
|
KEY "Dichiarante"
|
|
PROMPT 95 15 ""
|
|
FIELD 6->RAGSOC
|
|
END
|
|
|
|
STRINGA 826
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 48 18 ""
|
|
FIELD 104@->S1
|
|
END
|
|
|
|
NUMERO 827
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 122 18 ""
|
|
FIELD 104@->I1
|
|
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
|
|
|
|
|
|
|