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