687 lines
8.6 KiB
Plaintext
Executable File
687 lines
8.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 9
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "M1"
|
|
PROMPT 58 1 ""
|
|
FIELD 37->ECCRIT12
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "M2"
|
|
PROMPT 115 1 ""
|
|
FIELD 37->ECCRIT23
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "M3"
|
|
PROMPT 58 3 ""
|
|
FIELD 37->CRIMPDL
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "M4"
|
|
PROMPT 58 5 ""
|
|
FIELD 37->CRIMPIVA
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "M5"
|
|
PROMPT 115 3 ""
|
|
FIELD 37->CRIMPRIT
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "M6"
|
|
PROMPT 115 5 ""
|
|
FIELD 37->CRIMPRES
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "M7"
|
|
PROMPT 58 7 ""
|
|
FIELD 37->M7IMRITEF
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "MeseRif"
|
|
PROMPT 23 1 ""
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "AnnoRif"
|
|
PROMPT 27 1 ""
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "imp. rimb"
|
|
PROMPT 36 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Compensi"
|
|
PROMPT 56 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "MeseRif"
|
|
PROMPT 81 1 ""
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "AnnoRif"
|
|
PROMPT 85 1 ""
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "imp. rimb"
|
|
PROMPT 94 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 8
|
|
BEGIN
|
|
KEY "Compensi"
|
|
PROMPT 114 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "R - MeseRif"
|
|
PROMPT 23 1 ""
|
|
// FIELD 75->MESERIF
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "R - AnnoRif"
|
|
PROMPT 27 1 ""
|
|
// FIELD 75->ANNORIF
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "R - Tipo"
|
|
PROMPT 35 1 ""
|
|
// FIELD 75->TIPORIMB
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "R - imp. rimb"
|
|
PROMPT 39 1 ""
|
|
// FIELD 75->IMPRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "R - Compensi"
|
|
PROMPT 58 1 ""
|
|
// FIELD 75->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 6
|
|
BEGIN
|
|
KEY "R - MeseRif"
|
|
PROMPT 79 1 ""
|
|
// FIELD 75->MESERIF
|
|
END
|
|
|
|
NUMERO 7
|
|
BEGIN
|
|
KEY "R - AnnoRif"
|
|
PROMPT 83 1 ""
|
|
// FIELD 75->ANNORIF
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "R - Tipo"
|
|
PROMPT 91 1 ""
|
|
// FIELD 75->TIPORIMB
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "R - imp. rimb"
|
|
PROMPT 95 1 ""
|
|
// FIELD 75->IMPRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "R - Compensi"
|
|
PROMPT 114 1 ""
|
|
// FIELD 75->COMPENSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "PS Mese conguaglio"
|
|
PROMPT 23 1 ""
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "PS Imp.versata"
|
|
PROMPT 27 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "PS Inter.lav.dip"
|
|
PROMPT 42 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "PS Inter.dat.lav."
|
|
PROMPT 57 1 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "PS Modalita' vers"
|
|
PROMPT 76 1 ""
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "PS Cod.trib"
|
|
PROMPT 82 1 ""
|
|
END
|
|
|
|
DATA 7
|
|
BEGIN
|
|
KEY "PS DATA VERS."
|
|
PROMPT 91 1 ""
|
|
PICTURE "## ^ ## ^####"
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "PS Serie"
|
|
PROMPT 108 1 ""
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "PS Numero"
|
|
PROMPT 116 1 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER EVEN 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "Q Mese paga"
|
|
PROMPT 23 1 ""
|
|
// FIELD 74->MESEPAG
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "Q Anno paga"
|
|
PROMPT 27 1 ""
|
|
// FIELD 74->ANNOPAG
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "Q Contr.versato"
|
|
PROMPT 44 1 ""
|
|
// FIELD 74->CONTVERS
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "Q Contr.rimborsati"
|
|
PROMPT 73 1 ""
|
|
// FIELD 74->CONTRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "Q Interes.e/o soprattasse"
|
|
PROMPT 102 1 ""
|
|
// FIELD 74->INTERESSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Q Cod.Reg"
|
|
PROMPT 124 1 ""
|
|
// FIELD 74->CODREG
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER ODD 1
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "T Mese paga"
|
|
PROMPT 23 1 ""
|
|
// FIELD 77->MESEPAG
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "T Anno paga"
|
|
PROMPT 27 1 ""
|
|
// FIELD 77->ANNOPAG
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "T Contr.versato"
|
|
PROMPT 44 1 ""
|
|
// FIELD 77->CONTVERS
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "T Contr.rimborsati"
|
|
PROMPT 73 1 ""
|
|
// FIELD 77->CONTRIMB
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "T Interes.e/o soprattasse"
|
|
PROMPT 102 1 ""
|
|
// FIELD 77->INTERESSI
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "T Cod.Reg"
|
|
PROMPT 124 1 ""
|
|
// FIELD 77->CODREG
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER FIRST 23
|
|
|
|
STRINGA 650
|
|
BEGIN
|
|
KEY "Quadro A"
|
|
PROMPT 21 3 ""
|
|
FIELD 37->QCOMP[1,1]
|
|
END
|
|
|
|
STRINGA 651
|
|
BEGIN
|
|
KEY "Quadro Abis"
|
|
PROMPT 26 3 ""
|
|
FIELD 37->QCOMP[27,27]
|
|
END
|
|
|
|
STRINGA 652
|
|
BEGIN
|
|
KEY "Quadro A1"
|
|
PROMPT 31 3 ""
|
|
FIELD 37->QCOMP[2,2]
|
|
END
|
|
|
|
STRINGA 653
|
|
BEGIN
|
|
KEY "Quadro A2"
|
|
PROMPT 36 3 ""
|
|
FIELD 37->QCOMP[3,3]
|
|
END
|
|
|
|
STRINGA 654
|
|
BEGIN
|
|
KEY "Quadro A3"
|
|
PROMPT 41 3 ""
|
|
FIELD 37->QCOMP[4,4]
|
|
END
|
|
|
|
STRINGA 655
|
|
BEGIN
|
|
KEY "Quadro B"
|
|
PROMPT 46 3 ""
|
|
FIELD 37->QCOMP[5,5]
|
|
END
|
|
|
|
STRINGA 656
|
|
BEGIN
|
|
KEY "Quadro B1"
|
|
PROMPT 51 3 ""
|
|
FIELD 37->QCOMP[6,6]
|
|
END
|
|
|
|
STRINGA 657
|
|
BEGIN
|
|
KEY "Quadro C"
|
|
PROMPT 56 3 ""
|
|
FIELD 37->QCOMP[7,7]
|
|
END
|
|
|
|
STRINGA 658
|
|
BEGIN
|
|
KEY "Quadro D"
|
|
PROMPT 61 3 ""
|
|
FIELD 37->QCOMP[8,8]
|
|
END
|
|
|
|
STRINGA 659
|
|
BEGIN
|
|
KEY "Quadro Dbis"
|
|
PROMPT 66 3 ""
|
|
FIELD 37->QCOMP[28,28]
|
|
END
|
|
|
|
STRINGA 660
|
|
BEGIN
|
|
KEY "Quadro D1"
|
|
PROMPT 71 3 ""
|
|
FIELD 37->QCOMP[9,9]
|
|
END
|
|
|
|
STRINGA 661
|
|
BEGIN
|
|
KEY "Quadro E"
|
|
PROMPT 77 3 ""
|
|
FIELD 37->QCOMP[10,10]
|
|
END
|
|
|
|
STRINGA 662
|
|
BEGIN
|
|
KEY "Quadro E1"
|
|
PROMPT 82 3 ""
|
|
FIELD 37->QCOMP[11,11]
|
|
END
|
|
|
|
STRINGA 663
|
|
BEGIN
|
|
KEY "Quadro E2"
|
|
PROMPT 87 3 ""
|
|
FIELD 37->QCOMP[12,12]
|
|
END
|
|
|
|
STRINGA 664
|
|
BEGIN
|
|
KEY "Quadro F"
|
|
PROMPT 92 3 ""
|
|
FIELD 37->QCOMP[13,13]
|
|
END
|
|
|
|
STRINGA 665
|
|
BEGIN
|
|
KEY "Quadro F1"
|
|
PROMPT 97 3 ""
|
|
FIELD 37->QCOMP[14,14]
|
|
END
|
|
|
|
STRINGA 666
|
|
BEGIN
|
|
KEY "Quadro F2"
|
|
PROMPT 102 3 ""
|
|
FIELD 37->QCOMP[15,15]
|
|
END
|
|
|
|
STRINGA 667
|
|
BEGIN
|
|
KEY "Quadro G"
|
|
PROMPT 107 3 ""
|
|
FIELD 37->QCOMP[16,16]
|
|
END
|
|
|
|
STRINGA 668
|
|
BEGIN
|
|
KEY "Quadro G1"
|
|
PROMPT 113 3 ""
|
|
FIELD 37->QCOMP[17,17]
|
|
END
|
|
|
|
STRINGA 669
|
|
BEGIN
|
|
KEY "Quadro H"
|
|
PROMPT 118 3 ""
|
|
FIELD 37->QCOMP[18,18]
|
|
END
|
|
|
|
STRINGA 670
|
|
BEGIN
|
|
KEY "Quadro I"
|
|
PROMPT 123 3 ""
|
|
FIELD 37->QCOMP[19,19]
|
|
END
|
|
|
|
STRINGA 671
|
|
BEGIN
|
|
KEY "Quadro L"
|
|
PROMPT 21 6 ""
|
|
FIELD 37->QCOMP[20,20]
|
|
END
|
|
|
|
STRINGA 672
|
|
BEGIN
|
|
KEY "Quadro N"
|
|
PROMPT 26 6 ""
|
|
FIELD 37->QCOMP[21,21]
|
|
END
|
|
|
|
STRINGA 673
|
|
BEGIN
|
|
KEY "Quadro P"
|
|
PROMPT 31 6 ""
|
|
FIELD 37->QCOMP[22,22]
|
|
END
|
|
|
|
STRINGA 674
|
|
BEGIN
|
|
KEY "Quadro Q"
|
|
PROMPT 36 6 ""
|
|
FIELD 37->QCOMP[23,23]
|
|
END
|
|
|
|
STRINGA 675
|
|
BEGIN
|
|
KEY "Quadro R"
|
|
PROMPT 41 6 ""
|
|
FIELD 37->QCOMP[24,24]
|
|
END
|
|
|
|
STRINGA 676
|
|
BEGIN
|
|
KEY "Quadro S"
|
|
PROMPT 46 6 ""
|
|
FIELD 37->QCOMP[25,25]
|
|
END
|
|
|
|
STRINGA 677
|
|
BEGIN
|
|
KEY "Quadro T"
|
|
PROMPT 51 6 ""
|
|
FIELD 37->QCOMP[26,26]
|
|
END
|
|
|
|
STRINGA 678
|
|
BEGIN
|
|
KEY "Quadro U"
|
|
PROMPT 56 6 ""
|
|
FIELD 37->QCOMP[29,29]
|
|
END
|
|
|
|
STRINGA 679
|
|
BEGIN
|
|
PROMPT 71 6 ""
|
|
KEY "Numero quadri L aggiuntivi"
|
|
END
|
|
|
|
STRINGA 680
|
|
BEGIN
|
|
PROMPT 96 6 ""
|
|
KEY "Numero quadri N P Q R S T aggiuntivi"
|
|
END
|
|
|
|
STRINGA 681
|
|
BEGIN
|
|
PROMPT 60 8 ""
|
|
KEY "Numero quadri su supporto magnetico"
|
|
FIELD 37->NSUPPM
|
|
END
|
|
|
|
NUMERO 682
|
|
BEGIN
|
|
KEY "Dichiara che le ritenute sono state certificate"
|
|
PROMPT 114 10 ""
|
|
FIELD 36->DICRITCER
|
|
PICTURE "###.###.###.###^^^"
|
|
END
|
|
|
|
DATA 683
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 29 14 ""
|
|
FLAGS "A"
|
|
END
|
|
|
|
STRINGA 684
|
|
BEGIN
|
|
KEY "Presidente"
|
|
PROMPT 49 14 ""
|
|
END
|
|
|
|
STRINGA 685
|
|
BEGIN
|
|
KEY "Dichiarante"
|
|
PROMPT 92 14 ""
|
|
FIELD 6->RAGSOC
|
|
END
|
|
|
|
STRINGA 686
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 48 16 ""
|
|
FIELD 206@->COFI
|
|
END
|
|
|
|
NUMERO 687
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 124 16 ""
|
|
FIELD 104@->NISCRAA
|
|
PICTURE "#####"
|
|
END
|
|
|
|
STRINGA 688
|
|
BEGIN
|
|
KEY "CODICE FISCALE PROF."
|
|
PROMPT 90 18 ""
|
|
FIELD 106@->COFI
|
|
END
|
|
|
|
STRINGA 689
|
|
BEGIN
|
|
KEY "Attestazione art.4"
|
|
PROMPT 68 21 ""
|
|
FIELD 36->FLART4
|
|
END
|
|
|
|
STRINGA 690
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 80 22 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|
|
|
|
|
|
|