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



