campo-sirio/m770/77base4.frm

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 "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 ""
  FIELD 72->MESERIF
END

NUMERO 2
BEGIN
  KEY "AnnoRif"
  PROMPT 28 1 ""
  FIELD 72->ANNORIF
END

NUMERO 3
BEGIN
  KEY "imp. rimb"
  PROMPT 37 1 ""
  FIELD 72->IMPOSTA
  PICTURE "###.###.###.###^^^"      
END

NUMERO 4
BEGIN
  KEY "Compensi"
  PROMPT 58 1 ""
  FIELD 72->COMPENSI
  PICTURE "###.###.###.###^^^"      
END

NUMERO 5
BEGIN
  KEY "MeseRif"
  PROMPT 83 1 ""
  FIELD 72->MESERIF
END

NUMERO 6
BEGIN
  KEY "AnnoRif"
  PROMPT 86 1 ""
  FIELD 72->ANNORIF
END

NUMERO 7
BEGIN
  KEY "imp. rimb"
  PROMPT 96 1 ""
  FIELD 72->IMPOSTA
  PICTURE "###.###.###.###^^^"      
END

NUMERO 8
BEGIN
  KEY "Compensi"
  PROMPT 116 1 ""
  FIELD 72->COMPENSI
  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 25

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

DATA 823
BEGIN
  KEY "Data"
  PROMPT 29 16 ""
  FLAGS "A"
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