campo-sirio/m770/771300a.uml

// Quadro I
#include "771300.h"    

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "1" 0 2 0 0

LISTBOX F_TIPOQUA1 12
BEGIN
  PROMPT 90 90 ""
  ITEM " |Normale"
  ITEM "D|Dichiarante"
  FLAGS "D"
  KEY 1             
  FIELD LF_BASEBIS->CODDIC
END

LISTBOX F_TIPOQUA2 12
BEGIN
  PROMPT 90 90 ""
  ITEM " |Normale"
  ITEM "D|Dichiarante"
  FLAGS "D"
  KEY 1             
  FIELD LF_BASE->CODDIC
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "RGDP"             
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC 
  CHECKTYPE REQUIRED
  FIELD LF_BASE->CODDITTA
  KEY 1                   
  MESSAGE COPY,F_CODDITTAG
END
                        
STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Ragione "                        
  FLAGS "DP"
END

NUMBER F_CODDITTAG 5
BEGIN  
  PROMPT 45 1 "Ditta "
  FLAGS "HR"
  FIELD LF_BASEBIS->CODDITTA
END


//--- QUADRO A ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 4 "@BMod.770/A"
END	             
             
// (I1)
TEXT DLG_NULL
BEGIN
	PROMPT 0 5 "1 Fogli"
END	

NUMBER F_A0NFCOM 5
BEGIN
  PROMPT 0 6 ""
  FIELD LF_BASE->A0NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 5 "2 Dipen"
END	

NUMBER F_A0NLDIP 5
BEGIN
  PROMPT 8 6 ""
  FIELD LF_BASE->A0NLDIP
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 5 "3 Contr.obblig." 
END	

NUMBER F_A0COBB 15
BEGIN
  PROMPT 16 6 ""
  FIELD LF_BASE->A0COBB
  PICTURE "."
  FLAGS "R"
END                
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 5 "4 Som.non sogg." 
END	             
             
NUMBER F_A0NSRIT 15
BEGIN         
  PROMPT 32 6 ""
  FIELD LF_BASE->A0NSRIT
  PICTURE "."
  FLAGS "R"
END           

TEXT DLG_NULL
BEGIN
	PROMPT 48 5 "5 Retr.e Pens. " 
END	         

NUMBER F_A0RETPEN 15
BEGIN
  PROMPT 48 6 ""
  FIELD LF_BASE->A0RETPEN
  PICTURE "."
  FLAGS "R"
END                

TEXT DLG_NULL
BEGIN
	PROMPT 64 5 "6 Ass.enti prev" 
END	         

NUMBER F_A0EPREV 15
BEGIN
  PROMPT 64 6 ""
  FIELD LF_BASE->A0EPREV
  PICTURE "."
  FLAGS "R"
END

// (I2)
TEXT DLG_NULL
BEGIN
	PROMPT 0 7 "7 Comp.da terzi"
END	

NUMBER F_A0CTER 15
BEGIN
  PROMPT 0 8 ""
  FIELD LF_BASE->A0CTER
  PICTURE "."
  FLAGS "R"
END          

TEXT DLG_NULL
BEGIN
	PROMPT 16 7 "8 Tot.imponib. "
END	

NUMBER F_A0TIMP 15
BEGIN
  PROMPT 16 8 ""
  FIELD LF_BASE->A0TIMP
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 7 "9 Imposta lorda"
END	

NUMBER F_A0ILOR 15
BEGIN
  PROMPT 32 8 ""
  FIELD LF_BASE->A0ILOR
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 7 "10 Tot.detraz. "
END	

NUMBER F_A0TDET 15
BEGIN
  PROMPT 48 8 ""
  FIELD LF_BASE->A0TDET
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 64 7 "11 Rit.da terzi"
END	             
             
NUMBER F_A0RTER 15
BEGIN
  PROMPT 64 8 ""
  FIELD LF_BASE->A0RTER
  PICTURE "."
  FLAGS "R"
END

// (I3)
TEXT DLG_NULL
BEGIN
	PROMPT 0 9 "12 Rit.dat.lav."
END	

NUMBER F_A0RDAT 15
BEGIN
  PROMPT 0 10 ""
  FIELD LF_BASE->A0RDAT
  PICTURE "."
  FLAGS "R"
END          

TEXT DLG_NULL
BEGIN
	PROMPT 16 9 "13 Ecc.ritenute"
END	                      

NUMBER F_A0ERIT 15
BEGIN
  PROMPT 16 10 ""  
  FIELD LF_BASE->A0ERIT
  PICTURE "."
  FLAGS "R"
END          

TEXT DLG_NULL
BEGIN
	PROMPT 32 9 "14 Contr.Europa"
END	              

NUMBER F_A0EUROT 15
BEGIN
  PROMPT 32 10 ""  
  FIELD LF_BASE->A0EUROT
  PICTURE "."
  FLAGS "R"
END          

TEXT DLG_NULL
BEGIN
	PROMPT 48 9 "15 Contr.arret."
END	              

NUMBER F_A0CARR 15
BEGIN
  PROMPT 48 10 ""
  FIELD LF_BASE->A0CARR
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 64 9 "16 Imp.arretr. "
END	         
             
NUMBER F_A0AARR 15
BEGIN
  PROMPT 64 10 ""
  FIELD LF_BASE->A0AARR
  PICTURE "."
  FLAGS "R"
END    

// (I4)
TEXT DLG_NULL
BEGIN
	PROMPT 0 11 "17 Detr.arretr."
END

NUMBER F_A0DARR 15
BEGIN
  PROMPT 0 12 ""
  FIELD LF_BASE->A0DARR
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 11 "18 Rit.arretr. "
END

NUMBER F_A0RARR 15
BEGIN
  PROMPT 16 12 ""
  FIELD LF_BASE->A0RARR
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 11 "19 Comp.Inps   "
END

NUMBER F_A0CINPS 15
BEGIN
  PROMPT 32 12 ""
  FIELD LF_BASE->A0CINPS
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 11 "20 Rit.oper.VA "
END
             
NUMBER F_A0RITOPEVA 15
BEGIN
  PROMPT 48 12 ""
  FIELD LF_BASE->A0RITOPEVA
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 11 "21 Rit.oper.SA "
END	         

NUMBER F_A0RITOPESA 15
BEGIN
  PROMPT 64 12 ""
  FIELD LF_BASE->A0RITOPESA
  PICTURE "."
  FLAGS "R"
END

// (I5)
TEXT DLG_NULL
BEGIN
	PROMPT 0 13 "22 Rit.oper.SI "
END

NUMBER F_A0RITSI 15
BEGIN
  PROMPT 0 14 ""
  FIELD LF_BASE->A0RITSI
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 13 "23 Cre.imp.auto"
END

NUMBER F_A0CIIAUT 15
BEGIN
  PROMPT 16 14 ""
  FIELD LF_BASE->A0CIIAUT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 13 "24 Cre.imp.ass."
END

NUMBER F_A0CRIMPRAS 15
BEGIN
  PROMPT 32 14 ""
  FIELD LF_BASE->A0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 13 "25 Cre.imp.L85 "
END

NUMBER F_A0CRIMPL85 15
BEGIN
  PROMPT 48 14 ""
  FIELD LF_BASE->A0CRIMP85
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "2" -1 -1 78 18

//--- QUADRO A bis ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 1 "@BMod.770/A bis"
END

// (I6)      
TEXT DLG_NULL
BEGIN
	PROMPT 0 2 "1 Fogli"
END	

NUMBER F_ABNFCOM 5
BEGIN
  PROMPT 0 3 ""
  FIELD LF_BASE->ABNFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 10 2 "2 A.dat."
END	

NUMBER F_ABNADLAV 5
BEGIN
  PROMPT 10 3 ""
  FIELD LF_BASE->ABNADLAV
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 20 2 "3 A.CAAF" 
END	

NUMBER F_ABNACAAF 5
BEGIN
  PROMPT 20 3 ""
  FIELD LF_BASE->ABNACAAF
  FLAGS "R"
END                
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 2 "4 Irpef 2<>ac.96" 
END	             
             
NUMBER F_ABIR2R 15
BEGIN         
  PROMPT 32 3 ""
  FIELD LF_BASEBIS->ABIR2R
  PICTURE "."
  FLAGS "R"
END           

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "5 Cssn 2<>ac.96 " 
END	         

NUMBER F_ABCS2R 15
BEGIN
  PROMPT 48 3 ""
  FIELD LF_BASEBIS->ABCS2R
  PICTURE "."
  FLAGS "R"
END                

TEXT DLG_NULL
BEGIN
	PROMPT 64 2 "6 Irpef sal.96 " 
END	         

NUMBER F_ABIRSA 15
BEGIN
  PROMPT 64 3 ""
  FIELD LF_BASEBIS->ABIRSA 
  PICTURE "."
  FLAGS "R"
END

// (I7)
TEXT DLG_NULL
BEGIN
	PROMPT 0 4 "7 Irpef 1<>ac.97"
END

NUMBER F_ABIR1R 15
BEGIN
  PROMPT 0 5 ""
  FIELD LF_BASEBIS->ABIR1R
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 4 "8 Cssn sal.96  "
END

NUMBER F_ABCSSA 15
BEGIN
  PROMPT 16 5 ""
  FIELD LF_BASEBIS->ABCSSA
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 4 "9 Cssn 1<>ac.97 "
END

NUMBER F_ABCS1R 15
BEGIN
  PROMPT 32 5 ""
  FIELD LF_BASEBIS->ABCS1R
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 4 "10 Contr.Europa"
END
             
NUMBER F_ABEURO 15
BEGIN
  PROMPT 48 5 ""
  FIELD LF_BASEBIS->ABEURO
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 4 "11 Acc.tas.sep."
END	         

NUMBER F_ABACCTS 15
BEGIN
  PROMPT 64 5 ""
  FIELD LF_BASEBIS->ABACCTS
  PICTURE "."
  FLAGS "R"
END

//--- QUADRO A3 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 7 "@BMod.770/A3"
END	             
             
// (I8)
TEXT DLG_NULL
BEGIN
	PROMPT 0 8 "1 Fogli"
END

NUMBER F_A3NFCOM 5
BEGIN
  PROMPT 0 9 ""
  FIELD LF_BASE->A3NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 8 "2 Perc"
END

NUMBER F_A3NUMPER 5
BEGIN          
  PROMPT 8 9 ""
  FIELD LF_BASE->A3NUMPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 8 "3 Red.cor.P.10 " 
END 
             
NUMBER F_A3REPT10 15
BEGIN         
  PROMPT 16 9 ""
  FIELD LF_BASE->A3REPT10
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 8 "4 Red.cor.P.12 "  
END

NUMBER F_A3REPT12 15
BEGIN
  PROMPT 32 9 ""
  FIELD LF_BASE->A3REPT12        
  PICTURE "."
  FLAGS "R"
END

//--- QUADRO B ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 11 "@BMod.770/B"
END	             
             
// (I9)
TEXT DLG_NULL
BEGIN
	PROMPT 0 12 "1 Fogli"
END	

NUMBER F_B0NFCOM 5
BEGIN
  PROMPT 0 13 ""
  FIELD LF_BASE->B0NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 12 "2 Dipen"
END	

NUMBER F_B0NLDIP 5
BEGIN
  PROMPT 8 13 ""
  FIELD LF_BASE->B0NLDIP
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 12 "3 TFR corr.96  " 
END	

NUMBER F_B0TFR93 15
BEGIN
  PROMPT 16 13 ""
  FIELD LF_BASE->B0TFR93
  PICTURE "."
  FLAGS "R"
END 
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 12 "4 Altre ind.96 " 
END	             
             
NUMBER F_B0AI 15
BEGIN
  PROMPT 32 13 ""
  FIELD LF_BASE->B0AI 
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 12 "5 Cont.obb.dip." 
END	         

NUMBER F_B0COLAV 15
BEGIN
  PROMPT 48 13 ""
  FIELD LF_BASE->B0COLAV
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 12 "6 TFR erogato  " 
END	         

NUMBER F_B0TFR7492 15
BEGIN
  PROMPT 64 13 ""
  FIELD LF_BASE->B0TFR7492
  PICTURE "."
  FLAGS "R"
END    

// (I10)
TEXT DLG_NULL
BEGIN
	PROMPT 0 14 "7 Alt.ind.erog."
END	

NUMBER F_B0AI7492 15
BEGIN
  PROMPT 0 15 ""
  FIELD LF_BASE->B0AI7492
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 14 "8 Imp.dell'anno"
END	

NUMBER F_B0IMP 15
BEGIN
  PROMPT 16 15 ""
  FIELD LF_BASE->B0IMP 
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 14 "9 Tot.imponib. "
END	

NUMBER F_B0TIMP 15
BEGIN
  PROMPT 32 15 ""
  FIELD LF_BASE->B0TIMP
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 14 "10 Rit.operate "
END	

NUMBER F_B0ROP 15
BEGIN
  PROMPT 48 15 ""
  FIELD LF_BASE->B0ROP
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 64 14 "11 Alt.ind.Inps"
END	             
             
NUMBER F_B0AIINPS 15
BEGIN
  PROMPT 64 15 ""
  FIELD LF_BASE->B0AIINPS
  PICTURE "."
  FLAGS "R"
END
        
// (I11)
TEXT DLG_NULL
BEGIN
	PROMPT 0 16 "12 Rit.oper.SA "
END	

NUMBER F_B0ROPESA 15
BEGIN
  PROMPT 0 17 ""
  FIELD LF_BASE->B0ROPESA
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 16 "13 Rit.oper.SI "
END	

NUMBER F_B0RITSI 15
BEGIN
  PROMPT 16 17 ""
  FIELD LF_BASE->B0RITSI
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 32 16 "14 Cre.imp.auto"
END	

NUMBER F_B0CIIAUT 15
BEGIN
  PROMPT 32 17 ""
  FIELD LF_BASE->B0CIIAUT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 16 "15 Cre.imp.ass."
END	

NUMBER F_B0CRIMPRAS 15
BEGIN
  PROMPT 48 17 ""
  FIELD LF_BASE->B0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 64 16 "16 Cre.imp.L85 "
END	             
             
NUMBER F_B0CRIMPL85 15
BEGIN
  PROMPT 64 17 ""
  FIELD LF_BASE->B0CRIMP85
  PICTURE "."
  FLAGS "R"
END
        
ENDPAGE

PAGE "3" -1 -1 78 18

//--- QUADRO B1 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 1 "@BMod.770/B1"
END	             
             
// (I12)
TEXT DLG_NULL
BEGIN
	PROMPT 0 2 "1 Fogli"
END	

NUMBER F_B1NFCOM 5
BEGIN
  PROMPT 0 3 ""
  FIELD LF_BASE->B1NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 2 "2 Perc"
END	

NUMBER F_B1NPER 5
BEGIN
  PROMPT 8 3 ""
  FIELD LF_BASE->B1NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 2 "3 Tot.indennit<69>" 
END	

NUMBER F_B1TIND 15
BEGIN
  PROMPT 16 3 ""
  FIELD LF_BASE->B1TIND
  PICTURE "."
  FLAGS "R"
END 
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 2 "4 Tot.imp.r.m. " 
END	             
             
NUMBER F_B1TIRM 15
BEGIN
  PROMPT 32 3 ""
  FIELD LF_BASE->B1TIRM
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "5 Tot.imp.comp." 
END	         

NUMBER F_B1TICOM 15
BEGIN
  PROMPT 48 3 ""
  FIELD LF_BASE->B1TICOM
  PICTURE "."
  FLAGS "R"
END

//--- QUADRO C ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 5 "@BMod.770/C"
END	             
             
// (I13)
TEXT DLG_NULL
BEGIN
	PROMPT 0 6 "1 Fogli"
END	

NUMBER F_C0NFCOM 5
BEGIN
  PROMPT 0 7 ""
  FIELD LF_BASE->C0NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 6 "2 Perc"
END	

NUMBER F_C0NLASS 5
BEGIN
  PROMPT 8 7 ""
  FIELD LF_BASE->C0NLASS
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 6 "3 Amm.lord.cor." 
END	

NUMBER F_C0ACTOT 15
BEGIN
  PROMPT 16 7 ""
  FIELD LF_BASE->C0ACTOT
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 6 "4 Contr.obblig." 
END	             
             
NUMBER F_C0CONTSSN 15
BEGIN
  PROMPT 32 7 ""
  FIELD LF_BASE->C0CONTSSN
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 6 "5 Som.non sogg." 
END	         

NUMBER F_C0SNSRIT 15
BEGIN
  PROMPT 48 7 ""
  FIELD LF_BASE->C0SNSRIT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 6 "6 Tot.imbonib. " 
END	         

NUMBER F_C0TOTIMP 15
BEGIN
  PROMPT 64 7 ""
  FIELD LF_BASE->C0TOTIMP
  PICTURE "."
  FLAGS "R"
END
        
// (I14)
TEXT DLG_NULL
BEGIN
	PROMPT 0 8 "7 Imposta      "
END	

NUMBER F_C0ROPE 15
BEGIN
  PROMPT 0 9 ""
  FIELD LF_BASE->C0ROPE 
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 8 "8 Tot.detraz.  " 
END	

NUMBER F_C0TOTDET 15
BEGIN
  PROMPT 16 9 ""
  FIELD LF_BASE->C0TOTDET 
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 8 "9 Rit.operate  " 
END	             
             
NUMBER F_C0RITOPE 15
BEGIN
  PROMPT 32 9 ""
  FIELD LF_BASE->C0RITOPE 
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 8 "10 Cre.imp.auto" 
END	         

NUMBER F_C0CIIAUT 15
BEGIN
  PROMPT 48 9 ""
  FIELD LF_BASE->C0CIIAUT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 8 "11 Cre.imp.ass." 
END	         

NUMBER F_C0CRIMPRAS 15
BEGIN
  PROMPT 64 9 ""
  FIELD LF_BASE->C0CRIMPRAS  
  PICTURE "."
  FLAGS "R"
END  
                  
//--- QUADRO D ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 11 "@BMod.770/D"
END	             
             
// (I15)
TEXT DLG_NULL
BEGIN
	PROMPT 0 12 "1 Fogli"
END	

NUMBER F_D0NFCOM 5
BEGIN
  PROMPT 0 13 ""
  FIELD LF_BASE->D0NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 12 "2 Perc"
END	

NUMBER F_D0NLAUT 5
BEGIN
  PROMPT 8 13 ""
  FIELD LF_BASE->D0NLAUT
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 12 "3 Amm.lord.cor." 
END	

NUMBER F_D0ACTOT 15
BEGIN
  PROMPT 16 13 ""
  FIELD LF_BASE->D0ACTOT
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 12 "4 Som.non sogg." 
END	             
             
NUMBER F_D0SNSRIT 15
BEGIN
  PROMPT 32 13 ""
  FIELD LF_BASE->D0SNSRIT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 12 "5 Non sogg.reg." 
END	         

NUMBER F_D0NSRITRC 15
BEGIN
  PROMPT 48 13 ""
  FIELD LF_BASE->D0NSRITRC
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 12 "6 Rit.operate  " 
END	         

NUMBER F_D0ROPE 15
BEGIN
  PROMPT 64 13 ""
  FIELD LF_BASE->D0ROPE 
  PICTURE "."
  FLAGS "R"
END

// (I16)
TEXT DLG_NULL
BEGIN
	PROMPT 0 14 "7 Cre.imp.auto "
END	

NUMBER F_D0CIIAUT 15
BEGIN
  PROMPT 0 15 ""
  FIELD LF_BASE->D0CIIAUT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 14 "8 Cre.imp.ass. " 
END	

NUMBER F_D0CRIMPRAS 15
BEGIN
  PROMPT 16 15 ""
  FIELD LF_BASE->D0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END  
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 14 "9 Cre.imp.L85  " 
END 

NUMBER F_D0CRIMPL85 15
BEGIN
  PROMPT 32 15 ""
  FIELD LF_BASE->D0CRIMP85
  PICTURE "."
  FLAGS "R"
END  
                  
ENDPAGE

PAGE "4" -1 -1 78 18 

//--- QUADRO D bis ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 1 "@BMod.770/D bis"
END	             
             
// (I17)
TEXT DLG_NULL
BEGIN
	PROMPT 0 2 "1 Fogli"
END	

NUMBER F_DBNFCOM 5
BEGIN
  PROMPT 0 3 ""
  FIELD LF_BASEBIS->DBNFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 2 "2 Perc"
END	

NUMBER F_DBNPER 5
BEGIN
  PROMPT 8 3 ""
  FIELD LF_BASEBIS->DBNPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 2 "3 Amm.lord.cor." 
END	

NUMBER F_DBAMMCOR 15
BEGIN
  PROMPT 16 3 ""
  FIELD LF_BASEBIS->DBAMMCOR
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 2 "4 Som.non sogg." 
END	             
             
NUMBER F_DBNSRIT 15
BEGIN
  PROMPT 32 3 ""
  FIELD LF_BASEBIS->DBNSRIT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "5 Non sogg.reg." 
END	         

NUMBER F_DBNSRITRC 15
BEGIN
  PROMPT 48 3 ""
  FIELD LF_BASEBIS->DBNSRITRC
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 2 "6 Rit.operate  " 
END	         

NUMBER F_DBRITOPE 15
BEGIN
  PROMPT 64 3 ""
  FIELD LF_BASEBIS->DBRITOPE 
  PICTURE "."
  FLAGS "R"
END

// (I18)
TEXT DLG_NULL
BEGIN
	PROMPT 0 4 "7 Cre.imp.auto "
END	

NUMBER F_DBCRIMAUT 15
BEGIN
  PROMPT 0 5 ""
  FIELD LF_BASEBIS->DBCRIMAUT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 4 "8 Cre.imp.ass. " 
END	

NUMBER F_DBCRIMASS 15
BEGIN
  PROMPT 16 5 ""
  FIELD LF_BASEBIS->DBCRIMASS
  PICTURE "."
  FLAGS "R"
END  
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 4 "9 Cre.imp.L85  " 
END 

NUMBER F_DBCRIML85 15
BEGIN
  PROMPT 32 5 ""
  FIELD LF_BASEBIS->DBCRIML85
  PICTURE "."
  FLAGS "R"
END                   

//--- QUADRO D1 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 7 "@BMod.770/D1"
END	             
             
// (I19)
TEXT DLG_NULL
BEGIN
	PROMPT 0 8 "1 Fogli"
END	

NUMBER F_D1NFCOM 5
BEGIN
  PROMPT 0 9 ""
  FIELD LF_BASE->D1NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 8 "2 Perc"
END	

NUMBER F_D1NPER 5
BEGIN
  PROMPT 8 9 ""
  FIELD LF_BASE->D1NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 8 "3 Amm.lord.cor." 
END	

NUMBER F_D1TACOR 15
BEGIN
  PROMPT 16 9 ""
  FIELD LF_BASE->D1TACOR
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 8 "4 Som.non sogg." 
END	             
             
NUMBER F_D1SNSRIT 15
BEGIN
  PROMPT 32 9 ""
  FIELD LF_BASE->D1SNSRIT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 8 "5 Rit.operate  " 
END	         

NUMBER F_D1ROPE 15
BEGIN
  PROMPT 48 9 ""
  FIELD LF_BASE->D1ROPE 
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 8 "6 Cre.imp.ass. " 
END	         

NUMBER F_D1CRIMPRAS 15
BEGIN
  PROMPT 64 9 ""
  FIELD LF_BASE->D1CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END                

//--- QUADRO E ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 11 "@BMod.770/E"
END	             
             
// (I20)
TEXT DLG_NULL
BEGIN
	PROMPT 0 12 "1 Fogli"
END	

NUMBER F_E0NFCOM 5
BEGIN
  PROMPT 0 13 ""
  FIELD LF_BASEBIS->E0NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 12 "2 Perc"
END	

NUMBER F_E0NPER 5
BEGIN
  PROMPT 8 13 ""
  FIELD LF_BASEBIS->E0NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 12 "3 Imp.corrisp. " 
END	

NUMBER F_E0AIMP 15
BEGIN
  PROMPT 16 13 ""
  FIELD LF_BASEBIS->E0AIMP
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 12 "4 Rit.operate  " 
END	             
             
NUMBER F_E0ROPE 15
BEGIN
  PROMPT 32 13 ""
  FIELD LF_BASEBIS->E0ROPE
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 12 "5 Som.non sogg." 
END	         

NUMBER F_E0SNSRIT 15
BEGIN
  PROMPT 48 13 ""
  FIELD LF_BASEBIS->E0SNSRIT 
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 12 "6 Cre.imp.ass. " 
END	         

NUMBER F_E0CRIMPRAS 15
BEGIN
  PROMPT 64 13 ""
  FIELD LF_BASEBIS->E0CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END                   

//--- QUADRO E1 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 15 "@BMod.770/E1"
END	             
             
// (I21)
TEXT DLG_NULL
BEGIN
	PROMPT 0 16 "1 Fogli"
END	

NUMBER F_E1NFCOM 5
BEGIN
  PROMPT 0 17 ""
  FIELD LF_BASEBIS->E1NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 16 "2 Perc"
END	

NUMBER F_E1NPER 5
BEGIN
  PROMPT 8 17 ""
  FIELD LF_BASEBIS->E1NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 16 "3 Som.corrisp. " 
END	

NUMBER F_E1SCOR 15
BEGIN
  PROMPT 16 17 ""
  FIELD LF_BASEBIS->E1SCOR
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 16 "4 Base commisu." 
END	             
             
NUMBER F_E1BCOM 15
BEGIN
  PROMPT 32 17 ""
  FIELD LF_BASEBIS->E1BCOM
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 16 "5 Rit.operate  " 
END	         

NUMBER F_E1ROPE 15
BEGIN
  PROMPT 48 17 ""
  FIELD LF_BASEBIS->E1ROPE
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 16 "6 Amm.compless." 
END	         

NUMBER F_E1ACOM 15
BEGIN
  PROMPT 64 17 ""
  FIELD LF_BASEBIS->E1ACOM
  PICTURE "."
  FLAGS "R"
END

// (I22)
TEXT DLG_NULL
BEGIN
	PROMPT 0 18 "7 Base commisu."
END	

NUMBER F_E1BCOM2 15
BEGIN
  PROMPT 0 19 ""
  FIELD LF_BASEBIS->E1BCOM2
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 18 "8 Rit.operate  " 
END	

NUMBER F_E1ROPE2 15
BEGIN
  PROMPT 16 19 ""
  FIELD LF_BASEBIS->E1ROPE2
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 18 "9 Cre.imp.ass. " 
END 

NUMBER F_E1CRIMPRAS 15
BEGIN
  PROMPT 32 19 ""
  FIELD LF_BASEBIS->E1CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END 
                    
ENDPAGE

PAGE "5" -1 -1 78 18  

//--- QUADRO E2 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 1 "@BMod.770/E2"
END	             
             
// (I23)
TEXT DLG_NULL
BEGIN
	PROMPT 0 2 "1 Fogli"
END	

NUMBER F_E2NFCOM 5
BEGIN
  PROMPT 0 3 ""
  FIELD LF_BASEBIS->E2NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 2 "2 Perc"
END	

NUMBER F_E2NPER 5
BEGIN
  PROMPT 8 3 ""
  FIELD LF_BASEBIS->E2NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 2 "3 Som.sogg.rit." 
END	

NUMBER F_E2SSRIT 15
BEGIN
  PROMPT 16 3 ""
  FIELD LF_BASEBIS->E2SSRIT
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 2 "4 Rit.operate  " 
END	             
             
NUMBER F_E2ROPE 15
BEGIN
  PROMPT 32 3 ""
  FIELD LF_BASEBIS->E2ROPE
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "5 Cre.imp.ass. " 
END	         

NUMBER F_E2CRIMPRAS 15
BEGIN
  PROMPT 48 3 ""
  FIELD LF_BASEBIS->E2CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END

//--- QUADRO F ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 5 "@BMod.770/F"
END	             
             

// (I24)
TEXT DLG_NULL
BEGIN
	PROMPT 0 6 "1 Som.sogg.rit."
END	

NUMBER F_F0SSRITBF 15
BEGIN
  PROMPT 0 7 ""
  FIELD LF_BASEBIS->F0SSRITBF
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 6 "2 Rit.operate  " 
END	

NUMBER F_F0ROPEBF 15
BEGIN
  PROMPT 16 7 ""
  FIELD LF_BASEBIS->F0ROPEBF
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 6 "3 Amm.proventi " 
END	             
             
NUMBER F_F0AMMPRO 15
BEGIN
  PROMPT 32 7 ""
  FIELD LF_BASEBIS->F0AMMPRO
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 6 "4 Prel.operato " 
END	         

NUMBER F_F0PREOPE 15
BEGIN
  PROMPT 48 7 ""
  FIELD LF_BASEBIS->F0PREOPE
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 6 "5 Cre.imp.ass. "
END	         

NUMBER F_F0CRIMPRAS 15
BEGIN
  PROMPT 64 7 ""
  FIELD LF_BASEBIS->F0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END                

//--- QUADRO F1 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 9 "@BMod.770/F1"
END	             
             
// (I25)
TEXT DLG_NULL
BEGIN
	PROMPT 0 10 "1 Fogli"
END	

NUMBER F_F1NFCOM 5
BEGIN
  PROMPT 0 11 ""
  FIELD LF_BASEBIS->F1NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 10 "2 Perc"
END	

NUMBER F_F1NPER 5
BEGIN
  PROMPT 8 11 ""
  FIELD LF_BASEBIS->F1NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 10 "3 Som.sogg.rit." 
END	

NUMBER F_F1SSRIT 15
BEGIN
  PROMPT 16 11 ""
  FIELD LF_BASEBIS->F1SSRIT
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 10 "4 Rit.operate  " 
END	             
             
NUMBER F_F1ROPE 15
BEGIN
  PROMPT 32 11 ""
  FIELD LF_BASEBIS->F1ROPE
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 10 "5 Cre.imp.ass. " 
END	         

NUMBER F_F1CRIMPRAS 15
BEGIN
  PROMPT 48 11 ""
  FIELD LF_BASEBIS->F1CRIMPRAS
  PICTURE "."
  FLAGS "R"
END               

//--- QUADRO F2 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 13 "@BMod.770/F2"
END	             
             

// (I26)
TEXT DLG_NULL
BEGIN
	PROMPT 0 14 "1 Som.sogg.rit."
END	

NUMBER F_F2SSRIT 15
BEGIN
  PROMPT 0 15 ""
  FIELD LF_BASEBIS->F2SSRIT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 14 "2 Rit.operate  " 
END	

NUMBER F_F2ROPE 15
BEGIN
  PROMPT 16 15 ""
  FIELD LF_BASEBIS->F2ROPE
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 14 "3 Cre.imp.ass. " 
END	             
             
NUMBER F_F2CRIMPRAS 15
BEGIN
  PROMPT 32 15 ""
  FIELD LF_BASEBIS->F2CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "6" -1 -1 78 18

//--- QUADRO G ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 1 "@BMod.770/G"
END	             
             
// (I27)
TEXT DLG_NULL
BEGIN
	PROMPT 0 2 "1 Fogli"
END	

NUMBER F_G0NFCOM 5
BEGIN
  PROMPT 0 3 ""
  FIELD LF_BASEBIS->G0NFCOM
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 8 2 "2 Perc"
END	

NUMBER F_G0NPER 5
BEGIN
  PROMPT 8 3 ""
  FIELD LF_BASEBIS->G0NPER
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 2 "3 Ut.spettanti " 
END	

NUMBER F_G0USPE 15
BEGIN
  PROMPT 16 3 ""
  FIELD LF_BASEBIS->G0USPE
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 2 "4 Rit.ut.spett." 
END	             
             
NUMBER F_G0ROPESPET 15
BEGIN
  PROMPT 32 3 ""
  FIELD LF_BASEBIS->G0RITSPET
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "5 Ut.pagati    " 
END	         

NUMBER F_G0UPAG 15
BEGIN
  PROMPT 48 3 ""
  FIELD LF_BASEBIS->G0UPAG
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 2 "6 Rit.ut.pagati" 
END	         

NUMBER F_G0ROPE 15
BEGIN
  PROMPT 64 3 ""
  FIELD LF_BASEBIS->G0ROPE
  PICTURE "."
  FLAGS "R"
END

// (I28)
TEXT DLG_NULL
BEGIN
	PROMPT 0 4 "7 Ut.da cor.95 "
END	

NUMBER F_G0UTDACOR 15
BEGIN
  PROMPT 0 5 ""
  FIELD LF_BASEBIS->G0UTDACOR
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 4 "8 Ut.del.distr." 
END	

NUMBER F_G0UTDELDIS 15
BEGIN
  PROMPT 16 5 ""
  FIELD LF_BASEBIS->G0UTDELDIS
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 4 "9 Ut.cor.1<EFBFBD>sem "
END 

NUMBER F_G0UTCOR1S 15
BEGIN
  PROMPT 32 5 ""
  FIELD LF_BASEBIS->G0UTCOR1S
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 4 "10 Ut.cor.2<EFBFBD>sem" 
END	         

NUMBER F_G0UTCOR2S 15
BEGIN
  PROMPT 48 5 ""
  FIELD LF_BASEBIS->G0UTCOR2S
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 4 "11 Rit.acconto " 
END	          

NUMBER F_G0RACC3 15
BEGIN
  PROMPT 64 5 ""
  FIELD LF_BASEBIS->G0RACC3
  PICTURE "."
  FLAGS "R"
END     

// (I29)
TEXT DLG_NULL
BEGIN
	PROMPT 0 6 "12 Rit.imposta "
END	

NUMBER F_G0RIMP3 15
BEGIN
  PROMPT 0 7 ""
  FIELD LF_BASEBIS->G0RIMP3
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 6 "13 Ut.non sogg." 
END	

NUMBER F_G0UNSRIT3 15
BEGIN
  PROMPT 16 7 ""
  FIELD LF_BASEBIS->G0UNSRIT3
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 6 "14 Ut.da cor.96"
END 

NUMBER F_G0UTDACOR2 15
BEGIN
  PROMPT 32 7 ""
  FIELD LF_BASEBIS->G0UTDACOR2
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 6 "15 Cre.imp.ass." 
END	         

NUMBER F_G0CRIMPRAS 15
BEGIN
  PROMPT 48 7 ""
  FIELD LF_BASEBIS->G0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

//--- QUADRO G1 ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 9 "@BMod.770/G1"
END	             

// (I30)
TEXT DLG_NULL
BEGIN
	PROMPT 0 10 "1 Ut.cor.1<EFBFBD>sem."
END	

NUMBER F_G1UTCOR1S 15
BEGIN
  PROMPT 0 11 ""
  FIELD LF_BASEBIS->G1UTCOR1S
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 10 "2 Ut.cor.2<EFBFBD>sem." 
END	

NUMBER F_G1UTCOR2S 15
BEGIN
  PROMPT 16 11 ""
  FIELD LF_BASEBIS->G1UTCOR2S
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 10 "3 Rit.acc.ve.96"
END 

NUMBER F_G1RITAV1 15
BEGIN
  PROMPT 32 11 ""
  FIELD LF_BASEBIS->G1RITAV1
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 10 "4 Rit.acc.ve.97" 
END	         

NUMBER F_G1RITAV2 15
BEGIN
  PROMPT 48 11 ""
  FIELD LF_BASEBIS->G1RITAV2
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 64 10 "5 Rit.imp.ve.96" 
END	          

NUMBER F_G1RITIV1 15
BEGIN
  PROMPT 64 11 ""
  FIELD LF_BASEBIS->G1RITIV1
  PICTURE "."
  FLAGS "R"
END          

// (I31)
TEXT DLG_NULL
BEGIN
	PROMPT 0 12 "6 Rit.imp.ve.97"
END	

NUMBER F_G1RITIV2 15
BEGIN
  PROMPT 0 13 ""
  FIELD LF_BASEBIS->G1RITIV2
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 12 "7 Ut.non ass.1s" 
END	

NUMBER F_G1UTNSR1S 15
BEGIN
  PROMPT 16 13 ""
  FIELD LF_BASEBIS->G1UTNSR1S
  PICTURE "."
  FLAGS "R"
END
             
TEXT DLG_NULL
BEGIN
	PROMPT 32 12 "8 Ut.non ass.2s"
END 

NUMBER F_G1UTNSR2S 15
BEGIN
  PROMPT 32 13 ""
  FIELD LF_BASEBIS->G1UTNSR2S
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 12 "9  Cre.imp.ass." 
END	         

NUMBER F_G1CRIMPRAS 15
BEGIN
  PROMPT 48 13 ""
  FIELD LF_BASEBIS->G1CRIMPRAS
  PICTURE "."
  FLAGS "R"
END                

//--- QUADRO H ---
   
TEXT DLG_NULL
BEGIN
	PROMPT 0 15 "@BMod.770/H"
END	             

// (I32)
TEXT DLG_NULL
BEGIN
	PROMPT 0 16 "1 Cont.obb.dat."
END	

NUMBER F_H0CODLAV 15
BEGIN
  PROMPT 0 17 ""
  FIELD LF_BASEBIS->H0CODLAV
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
	PROMPT 16 16 "2 Cont.obb.dip." 
END	

NUMBER F_H0COLDIP 15
BEGIN
  PROMPT 16 17 ""
  FIELD LF_BASEBIS->H0COLDIP
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

ENDMASK