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