campo-sirio/m770/771300a.uml

// Quadro I
#include "771300.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

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

LISTBOX F_TIPOQUA2 2
BEGIN
  PROMPT 90 90 ""
//  PROMPT 10 3 ""
  ITEM " |Normale"
  ITEM "D|Dichiarante"
  FLAGS "D"
  KEY 1             
  FIELD LF_BASE->CODDIC
//  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta           "
  FLAGS "RG"             
  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 1 2 "Ragione sociale "                        
  FLAGS "D"
END

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

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 4 "I1 - Quadro A"
END

NUMBER F_A0NFCOM 5
BEGIN
  PROMPT 1 5 "N.fogli    "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->A0NFCOM
  FLAGS "R"
END

NUMBER F_A0NLDIP 5
BEGIN
  PROMPT 21 5 "N.dipendenti "
  HELP "Numero complessivo di lavoratori dipendenti"
  FIELD LF_BASE->A0NLDIP
  FLAGS "R"
END

NUMBER F_A0COBB 15
BEGIN
  PROMPT 41 5 "Contrib.obbligatori "         
  HELP "Contributi obbligatori"
  FIELD LF_BASE->A0COBB
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0CNET 15
BEGIN
  PROMPT 1 6 "Compensi netti      "       
  HELP "Compensi netti"
  FIELD LF_BASE->A0CNET
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0IITRA 15
BEGIN         
  PROMPT 41 6 "Ind.trasf.imponibile"      
  HELP " Imponibile indennita' trasferta"
  FIELD LF_BASE->A0IITRA
  PICTURE "."
  FLAGS "R"
END           

NUMBER F_A0EPREV 15
BEGIN
  PROMPT 1 7 "Assegni enti previd."         
  HELP "Assegni Enti previdenziali"
  FIELD LF_BASE->A0EPREV
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
//  PROMPT 0 8 "I2 - Quadro A"
  PROMPT 0 9 "I2 - Quadro A"
END

NUMBER F_A0CTER 15
BEGIN
  PROMPT 1 10 "Compensi da terzi   "
  FIELD LF_BASE->A0CTER
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0TIMP 15
BEGIN
  PROMPT 41 10 "Totale imponibile   "
  FIELD LF_BASE->A0TIMP
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0ILOR 15
BEGIN
  PROMPT 1 11 "Imposta lorda       "
  FIELD LF_BASE->A0ILOR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0TDET 15
BEGIN
  PROMPT 41 11 "Totale detrazioni   "
  FIELD LF_BASE->A0TDET
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0INCDET 15
BEGIN
  PROMPT 1 12 "Increm.detrazioni   "
  FIELD LF_BASE->A0INCDET
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 14 "I3 - Quadro A"
END

NUMBER F_A0RTER 15
BEGIN
  PROMPT 1 15 "Ritenute da terzi   "
  FIELD LF_BASE->A0RTER
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0RDAT 15
BEGIN
  PROMPT 41 15 "Riten.datore lavoro "
  HELP "Ritenute datore di lavoro"
  FIELD LF_BASE->A0RDAT
  PICTURE "."
  FLAGS "R"
END                                

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

NUMBER F_A0CARR 15
BEGIN
  PROMPT 41 16 "Contributi arretrati"
  FIELD LF_BASE->A0CARR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0AARR 15
BEGIN
  PROMPT 1 17 "Ammontare arretrati "
  FIELD LF_BASE->A0AARR
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I4 - Quadro A"
END

NUMBER F_A0DARR 15
BEGIN
  PROMPT 1 1 "Detrazioni arretrati"
  FIELD LF_BASE->A0DARR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0RARR 15
BEGIN
  PROMPT 41 1 "Ritenute arretrati  "
  FIELD LF_BASE->A0RARR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0CINPS 15
BEGIN
  PROMPT 1 2 "Comp.fini contr.Inps"
  HELP "Compensi ai fini contributivi Inps"
  FIELD LF_BASE->A0CINPS
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0RITOPEVA 15
BEGIN
  PROMPT 41 2 "Ritenute operate VA "
  HELP "Ritenute operate VA"
  FIELD LF_BASE->A0RITOPEVA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0RITOPESA 15
BEGIN
  PROMPT 1 3 "Ritenute operate SA "
  HELP "Ritenute operate SA"
  FIELD LF_BASE->A0RITOPESA
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 5 "I5 - Quadro A"
END

NUMBER F_A0RITSI 15
BEGIN
  PROMPT 1 6 "Ritenute operate SI "
  HELP "Ritenute operate SI"
  FIELD LF_BASE->A0RITSI
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0CIIAUT 15
BEGIN
  PROMPT 41 6 "Cred.imp.impr.autot."
  HELP "Credito di imposta imprese di autotrasporto"
  FIELD LF_BASE->A0CIIAUT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0CRIMPRAS 15
BEGIN
  PROMPT 1 7 "Cred.imp.pre.assun. "
  HELP "Credito di imposta premio di assunzione"
  FIELD LF_BASE->A0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0CRIMPL85 15
BEGIN
  PROMPT 41 7 "Cred.imp.ex L.85/95 "
  HELP "Credito di imposta ex L.85/95"
  FIELD LF_BASE->A0CRIMP85
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A0NADLAV 5
BEGIN
  PROMPT 1 8 "Num.assis.dat.lavoro"
  HELP "Numero assistiti dal datore di lavoro"
  FIELD LF_BASE->A0NADLAV
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 10 "I6 - Quadro A"
END

NUMBER F_A0NACAAF 5
BEGIN
  PROMPT 1 11 "Num.assis. C.A.A.F. "
  HELP "Numero assistiti dal C.A.A.F."
  FIELD LF_BASE->A0NACAAF
  FLAGS "R"
END  


GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 13 "I7 - Quadro A-3"
END

NUMBER F_A3NFCOM 5
BEGIN
  PROMPT 1 14 "Num.fogli compilati "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->A3NFCOM
  FLAGS "R"
END

NUMBER F_A3NUMPER 5
BEGIN          
  PROMPT 41 14 "Numero percipienti  "
  HELP "Numero di percipienti"
  FIELD LF_BASE->A3NUMPER
  FLAGS "R"
END

NUMBER F_A3REPT10 15
BEGIN         
  PROMPT 1 15 "Redd.corr.(p.to 10) "
  HELP "Reddito corrisposto (punto 10)"
  FIELD LF_BASE->A3REPT10
  PICTURE "."
  FLAGS "R"
END

NUMBER F_A3REPT12 15
BEGIN
  PROMPT 41 15 "Redd.corr.(p.to 12) "
  HELP "Reddito corrisposto (punto 12)"
  FIELD LF_BASE->A3REPT12        
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I8 - Quadro B"
END            

NUMBER F_B0NFCOM 5
BEGIN
  PROMPT 1 1 "N.fogli "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->B0NFCOM
  FLAGS "R"
END

NUMBER F_B0NLDIP 5
BEGIN
  PROMPT 21 1 "N.dipendenti "
  HELP "Numero complessivo di lavoratori dipendenti"
  FIELD LF_BASE->B0NLDIP
  FLAGS "R"
END

NUMBER F_B0TFR93 15
BEGIN
  PROMPT 41 1 "T.F.R.corrisposto 95"
  HELP "T.F.R. corrisposto nel 1995"
  FIELD LF_BASE->B0TFR93
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0AI 15
BEGIN
  PROMPT 1 2 "Altre indennit<69> 95  "
  HELP "Altre indennita nel 1995"
  FIELD LF_BASE->B0AI 
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0COLAV 15
BEGIN
  PROMPT 41 2 "Cont.obb.caric.lav. "
  HELP "Contributi obbligatori a carico del lavoratore"
  FIELD LF_BASE->B0COLAV
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0TFR7492 15
BEGIN
  PROMPT 1 3 "T.F.R. erogato 74-94"
  HELP "T.F.R. erogato dal 1974 al 1994"
  FIELD LF_BASE->B0TFR7492
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 5 "I9 - Quadro B"
END

NUMBER F_B0AI7492 15
BEGIN
  PROMPT 1 6 "Altr.ind.erog. 74-94"
  HELP "Altre indennita erogate dal 1974 al 1994"
  FIELD LF_BASE->B0AI7492
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0IMP 15
BEGIN
  PROMPT 41 6 "Imponibile dell'anno"
  FIELD LF_BASE->B0IMP 
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0TIMP 15
BEGIN
  PROMPT 1 7 "Totale imponibile   "
  FIELD LF_BASE->B0TIMP
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0ROP 15
BEGIN
  PROMPT 41 7 "Ritenute operate    "
  FIELD LF_BASE->B0ROP
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0AIINPS 15
BEGIN
  PROMPT 1 8 "Alt.ind.fin.con.Inps"
  HELP "Altre indennita ai fini contributivi Inps"
  FIELD LF_BASE->B0AIINPS
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 10 "I10 - Quadro B"
END

NUMBER F_B0ROPESA 15
BEGIN
  PROMPT 1 11 "Ritenute operate SA "
  FIELD LF_BASE->B0ROPESA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0RITSI 15
BEGIN
  PROMPT 41 11 "Ritenute operate SI "
  FIELD LF_BASE->B0RITSI
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0CIIAUT 15
BEGIN
  PROMPT 1 12 "Cred.imp.impr.autot."
  HELP "Credito di imposta imprese di autotrasporto"
  FIELD LF_BASE->B0CIIAUT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0CRIMPRAS 15
BEGIN
  PROMPT 41 12 "Cred.imp.pre.assun. "
  FIELD LF_BASE->B0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B0CRIMPL85 15
BEGIN
  PROMPT 1 13 "Cred.imp.ex L.85/95 "
  FIELD LF_BASE->B0CRIMP85
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18  

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I11 - Quadro B-1"
END

NUMBER F_B1NFCOM 5
BEGIN
  PROMPT 1 1 "Numero di fogli compilati     "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->B1NFCOM
  FLAGS "R"
END

NUMBER F_B1NPER 5
BEGIN
  PROMPT 41 1 "Numero percipienti            "
  HELP "Numero percipienti"
  FIELD LF_BASE->B1NPER
  FLAGS "R"
END

NUMBER F_B1TIND 15
BEGIN
  PROMPT 1 2 "Totale indennit<69>    "
  HELP "Totale indennita"
  FIELD LF_BASE->B1TIND
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B1TIRM 15
BEGIN
  PROMPT 41 2 "Totale imponib. r.m."
  HELP "Totale imponibile r.m."
  FIELD LF_BASE->B1TIRM
  PICTURE "."
  FLAGS "R"
END

NUMBER F_B1TICOM 15
BEGIN
  PROMPT 1 3 "Tot.imp.complessivo "
  HELP "Totale imponibile complessivo"
  FIELD LF_BASE->B1TICOM
  PICTURE "."
  FLAGS "R"
END
                  
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 5 "I12 - Quadro C"
END

NUMBER F_C0NFCOM 5
BEGIN
  PROMPT 1 6 "Numero di fogli compilati     "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->C0NFCOM
  FLAGS "R"
END

NUMBER F_C0NLASS 5
BEGIN
  PROMPT 41 6 "Numero percipienti            "
  HELP "Numero lavoratori assimilati"
  FIELD LF_BASE->C0NLASS
  FLAGS "R"
END

NUMBER F_C0ACTOT 15
BEGIN
  PROMPT 1 7 "Ammont.corris.totale"
  HELP "Ammontare corrisposto totale"
  FIELD LF_BASE->C0ACTOT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_C0CONTSSN 15
BEGIN
  PROMPT 41 7 "Contributi S.S.N.   "
  HELP "Contributo S.S.N."
  FIELD LF_BASE->C0CONTSSN
  PICTURE "."
  FLAGS "R"
END

NUMBER F_C0SNSRIT 15
BEGIN
  PROMPT 1 8 "Somme non sogg.rit. "
  HELP "Somme non soggette a ritenute"
  FIELD LF_BASE->C0SNSRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_C0ROPE 15
BEGIN
  PROMPT 41 8 "Ritenute operate    "
  FIELD LF_BASE->C0ROPE 
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 10 "I13 - Quadro C"
END

NUMBER F_C0CIIAUT 15
BEGIN
  PROMPT 1 11 "Cred.imp.impr.autot."
  HELP "Credito di imposta imprese di autotrasporto"
  FIELD LF_BASE->C0CIIAUT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_C0CRIMPRAS 15
BEGIN
  PROMPT 41 11 "Cred.imp.pre.assun. "
  HELP "Credito d'imposta premio d'assunzione"
  FIELD LF_BASE->C0CRIMPRAS  
  PICTURE "."
  FLAGS "R"
END  

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I14 - Quadro D"
END

NUMBER F_D0NFCOM 5
BEGIN
  PROMPT 1 1 "Numero di fogli compilati     "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->D0NFCOM
  FLAGS "R"
END

NUMBER F_D0NLAUT 5
BEGIN
  PROMPT 41 1 "Numero percipienti            "
  HELP "Numero percipienti"
  FIELD LF_BASE->D0NLAUT
  FLAGS "R"
END

NUMBER F_D0ACTOT 15
BEGIN
  PROMPT 1 2 "Ammon.corris.totale "
  HELP "Ammontare corrisposto totale"
  FIELD LF_BASE->D0ACTOT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_D0SNSRIT 15
BEGIN
  PROMPT 41 2 "Somme non sogg.rit. "
  HELP "Somme non soggette a ritenute"
  FIELD LF_BASE->D0SNSRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_D0ROPE 15
BEGIN
  PROMPT 1 3 "Ritenute operate    "
  FIELD LF_BASE->D0ROPE 
  PICTURE "."
  FLAGS "R"
END

NUMBER F_D0CIIAUT 15
BEGIN
  PROMPT 41 3 "Cred.imp.impr.autot."
  HELP "Credito di imposta imprese di autotrasporto"
  FIELD LF_BASE->D0CIIAUT
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 5 "I15 - Quadro D"
END

NUMBER F_D0CRIMPRAS 15
BEGIN
  PROMPT 1 6 "Cred.imp.pre.assun. "
  HELP "Credito d'imposta premio d'assunzione"
  FIELD LF_BASE->D0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END  

NUMBER F_D0CRIMPL85 15
BEGIN
  PROMPT 41 6 "Cred.imp.ex L.85/95 "
  HELP "Credito d'imposta ex L.85/95"
  FIELD LF_BASE->D0CRIMP85
  PICTURE "."
  FLAGS "R"
END  

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 8 "I16 - Quadro D1"
END

NUMBER F_D1NFCOM 5
BEGIN
  PROMPT 1 9 "Numero di fogli compilati     "
  HELP "Numero di fogli compilati"
  FIELD LF_BASE->D1NFCOM
  FLAGS "R"
END

NUMBER F_D1NPER 5
BEGIN
  PROMPT 41 9 "Numero percipienti            "
  HELP "Numero percipienti"
  FIELD LF_BASE->D1NPER
  FLAGS "R"
END

NUMBER F_D1TACOR 15
BEGIN
  PROMPT 1 10 "Ammon.corris.totale "
  HELP "Ammontare corrisposto totale"
  FIELD LF_BASE->D1TACOR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_D1SNSRIT 15
BEGIN
  PROMPT 41 10 "Somme non sogg.rit. "
  HELP "Somme non soggette a ritenute"
  FIELD LF_BASE->D1SNSRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_D1ROPE 15
BEGIN
  PROMPT 1 11 "Ritenute operate    "
  FIELD LF_BASE->D1ROPE 
  PICTURE "."
  FLAGS "R"
END

NUMBER F_D1CRIMPRAS 15
BEGIN
  PROMPT 41 11 "Cred.imp.pre.assun. "
  FIELD LF_BASE->D1CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I17 - Quadro E"
END
               
NUMBER F_E0NFCOM 5
BEGIN
  PROMPT 1 1 "Numero di fogli compilati     "
  HELP "Numero di fogli compilati"
  FIELD LF_BASEBIS->E0NFCOM
  FLAGS "R"
END

NUMBER F_E0NPER 5
BEGIN
  PROMPT 41 1 "Numero percipienti            "
  HELP "Numero percipienti"
  FIELD LF_BASEBIS->E0NPER
  FLAGS "R"
END

NUMBER F_E0AIMP 15
BEGIN
  PROMPT 1 2 "Ammontare imponibile"
  FIELD LF_BASEBIS->E0AIMP
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E0ROPE 15
BEGIN
  PROMPT 41 2 "Ritenute operate    "
  FIELD LF_BASEBIS->E0ROPE
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E0SNSRIT 15
BEGIN
  PROMPT 1 3 "Somme non sogg.rit. "
  HELP "Somme non soggette a ritenute"
  FIELD LF_BASEBIS->E0SNSRIT 
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E0CRIMPRAS 15
BEGIN
  PROMPT 41 3 "Cred.imp.pre.assun. "
  HELP "Credito d'imposta premio d'assunzione"
  FIELD LF_BASEBIS->E0CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 5 "I18 - Quadro E1"
END

NUMBER F_E1NFCOM 5
BEGIN
  PROMPT 1 6 "Numero di fogli compilati     "
  HELP "Numero di fogli compilati"
  FIELD LF_BASEBIS->E1NFCOM
  FLAGS "R"
END

NUMBER F_E1NPER 5
BEGIN
  PROMPT 41 6 "Numero percipienti            "
  HELP "Numero percipienti"
  FIELD LF_BASEBIS->E1NPER
  FLAGS "R"
END

NUMBER F_E1SCOR 15
BEGIN
  PROMPT 1 7 "Somme corrisposte   "
  FIELD LF_BASEBIS->E1SCOR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E1BCOM 15
BEGIN
  PROMPT 41 7 "Base commisurazione "
  FIELD LF_BASEBIS->E1BCOM
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E1ROPE 15
BEGIN
  PROMPT 1 8 "Ritenute operate    "
  FIELD LF_BASEBIS->E1ROPE
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E1ACOM 15
BEGIN
  PROMPT 41 8 "Ammontare compless. "
  HELP "Ammontare complessivo"
  FIELD LF_BASEBIS->E1ACOM
  PICTURE "."
  FLAGS "R"
END
                
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 10 "I19 - Quadro E1"
END
                
NUMBER F_E1BCOM2 15
BEGIN
  PROMPT 1 11 "Base commisurazione "
  FIELD LF_BASEBIS->E1BCOM2
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E1ROPE2 15
BEGIN
  PROMPT 41 11 "Ritenute operate    "
  FIELD LF_BASEBIS->E1ROPE2
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E1CRIMPRAS 15
BEGIN
  PROMPT 1 12 "Cred.imp.pre.assun. "
  HELP "Credito d'imposta premio d'assunzione"
  FIELD LF_BASEBIS->E1CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 14 "I20 - Quadro E2"
END

NUMBER F_E2NFCOM 5
BEGIN
  PROMPT 1 15 "Numero di fogli compilati      "
  HELP "Numero di fogli compilati"
  FIELD LF_BASEBIS->E2NFCOM
  FLAGS "R"
END

NUMBER F_E2NPER 5
BEGIN
  PROMPT 41 15 "Numero Percipienti            "
  HELP "Numero percipienti"
  FIELD LF_BASEBIS->E2NPER
  FLAGS "R"
END

NUMBER F_E2SSRIT 15
BEGIN
  PROMPT 1 16 "Somme sogg. ritenute "
  HELP "Somme soggette a ritenute"
  FIELD LF_BASEBIS->E2SSRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E2ROPE 15
BEGIN
  PROMPT 41 16 "Ritenute operate    "
  FIELD LF_BASEBIS->E2ROPE
  PICTURE "."
  FLAGS "R"
END

NUMBER F_E2CRIMPRAS 15
BEGIN
  PROMPT 1 17 "Cred.imp.pre.assun.  "
  HELP "Credito d'imposta premio d'assunzione"
  FIELD LF_BASEBIS->E2CRIMPRAS 
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I21 - Quadro F"
END

NUMBER F_F0SRITA 15
BEGIN
  PROMPT 1 1 "Som.sog.rit.(pros.A)"   
  HELP "Somme soggette a ritenute (prospetto A)"
  FIELD LF_BASEBIS->F0SRITA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0ROPEA 15
BEGIN
  PROMPT 41 1 "Rit.operate(pros.A) "
  HELP "Ritenute operate (prospetto A)"
  FIELD LF_BASEBIS->F0ROPEA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0TACCA 15
BEGIN
  PROMPT 1 2 "Tot.acconti (pros.A)"
  HELP "Totale acconti (prospetto A)"
  FIELD LF_BASEBIS->F0TACCA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0EDACCA 15
BEGIN
  PROMPT 41 2 "Ecc.dim.acc.(pros.A)"
  HELP "Eccedenza in diminuzione degli acconti (prospetto A)"
  FIELD LF_BASEBIS->F0EDACCA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0ERIMA 15
BEGIN
  PROMPT 1 3 "Ecc. rimbor.(pros.A)"
  HELP "Eccedenza a rimborso (prospetto A)"
  FIELD LF_BASEBIS->F0ERIMA
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 5 "I22 - Quadro F"
END

NUMBER F_F0SSVA 15
BEGIN
  PROMPT 1 6 "Somme sog.VA(pros.A)"
  HELP "Riepilogo F: somme soggette VA"
  FIELD LF_BASEBIS->F0SSVA
  PICTURE "."
  FLAGS "R"
END                       

NUMBER F_F0ROPEVA 15
BEGIN
  PROMPT 41 6 "Rit.oper.VA (pros.A)"
  HELP "Riepilogo F: ritenute operate VA"
  FIELD LF_BASEBIS->F0ROPEVA
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0SSRITBF 15
BEGIN
  PROMPT 1 7 "Som.sogg.rit.(BCDEF)"
  HELP "Somme soggette a ritenute (prospetti B,C,D,E,F)"
  FIELD LF_BASEBIS->F0SSRITBF
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0ROPEBF 15
BEGIN
  PROMPT 41 7 "Rit.op.(p.B,C,D,E,F)"
  HELP "Ritenute operate (prospetti B,C,D,E,F)"
  FIELD LF_BASEBIS->F0ROPEBF
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F0CRIMPRAS 15
BEGIN
  PROMPT 1 8 "Cred.imp.pre.assun. "
  FIELD LF_BASEBIS->F0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 10 "I23 - Quadro F1"
END

NUMBER F_F1SSRIT 15
BEGIN
  PROMPT 1 11 "Som.sogg.rit.(p.A,B)"
  HELP "Riepilogo F-1: Somme soggette a ritenute (prospetti A,B)"
  FIELD LF_BASEBIS->F1SSRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F1ROPE 15
BEGIN
  PROMPT 41 11 "Riten.operat.(p.A,B)"
  HELP "Riepilogo F-1: ritenute operate (prospetti A,B)"
  FIELD LF_BASEBIS->F1ROPE
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F1CRIMPRAS 15
BEGIN
  PROMPT 1 12 "Cred.imp.pre.assun. "
  FIELD LF_BASEBIS->F1CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 14 "I24 - Quadro F2"
END

NUMBER F_F2SSRIT 15
BEGIN
  PROMPT 1 15 "Somme sogg. ritenute"
  HELP "Riepilogo F-2: Somme soggette a ritenute"
  FIELD LF_BASEBIS->F2SSRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F2ROPE 15
BEGIN
  PROMPT 41 15 "Ritenute operate    "
  FIELD LF_BASEBIS->F2ROPE
  PICTURE "."
  FLAGS "R"
END

NUMBER F_F2CRIMPRAS 15
BEGIN
  PROMPT 1 16 "Cred.imp.pre.assun. "
  FIELD LF_BASEBIS->F2CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "I25 - Quadro G"
END

NUMBER F_G0NFCOM 5
BEGIN
  PROMPT 1 1 "N.fogli    "
  HELP "Numero di fogli compilati"
  FIELD LF_BASEBIS->G0NFCOM
  FLAGS "R"
END

NUMBER F_G0NPER 5
BEGIN
  PROMPT 21 1 "N.percipienti "
  HELP "Numero percipienti"
  FIELD LF_BASEBIS->G0NPER
  FLAGS "R"
END

NUMBER F_G0USPE 15
BEGIN
  PROMPT 41 1 "Utili spettanti     "
  FIELD LF_BASEBIS->G0USPE
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0ROPESPET 15
BEGIN
  PROMPT 1 2 "Rit.utili spettanti "
  FIELD LF_BASEBIS->G0RITSPET
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0UPAG 15
BEGIN
  PROMPT 41 2 "Utili pagati        "
  FIELD LF_BASEBIS->G0UPAG
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0ROPE 15
BEGIN
  PROMPT 1 3 "Rit. su utili pagati"
  FIELD LF_BASEBIS->G0ROPE
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 5 "I26 - Quadro G"
END

NUMBER F_G0NAZI1 15
BEGIN
  PROMPT 1 6 "Azioni o quote(pr.1)"
  HELP "Numero azioni o quote (prospetto 1)"
  FIELD LF_BASEBIS->G0NAZI1
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0UDEN1 15
BEGIN
  PROMPT 41 6 "Utili denaro (pr.1) "
  HELP "Utili in denaro (prospetto 1)"
  FIELD LF_BASEBIS->G0UDEN1
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0UNAT1 15
BEGIN
  PROMPT 1 7 "Utili natura (pr.1) "
  HELP "Utili in natura (prospetto 1)"
  FIELD LF_BASEBIS->G0UNAT1
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0IUTI2 15
BEGIN
  PROMPT 41 7 "Importo utili (pr.2)"
  FIELD LF_BASEBIS->G0IUTI2
  PICTURE "."
  FLAGS "R"
END
          
NUMBER F_G0USRIT3 15
BEGIN
  PROMPT 1 8 "Util.sogg.rit.(pr.3)"
  HELP "Utili soggetti a ritenute (prospetto 3)"
  FIELD LF_BASEBIS->G0USRIT3
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 10 "I27 - Quadro G"
END

NUMBER F_G0RACC3 15
BEGIN
  PROMPT 1 11 "Ritenuta acc.(pr.3) "
  HELP "Ritenuta di acconto (prospetto A)"
  FIELD LF_BASEBIS->G0RACC3
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0RIMP3 15
BEGIN
  PROMPT 41 11 "Riten. impos.(pr.3) "
  HELP "Ritenuta di imposta (prospetto 3)"
  FIELD LF_BASEBIS->G0RIMP3
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0UNSRIT3 15
BEGIN
  PROMPT 1 12 "Ut.non sogg.rit.(p3)"
  HELP "Utili non soggetti a ritenute (prospetto 3)"
  FIELD LF_BASEBIS->G0UNSRIT3
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G0CRIMPRAS 15
BEGIN
  PROMPT 41 12 "Cred.imp.pre.assun. "
  FIELD LF_BASEBIS->G0CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 14 "I28 - Quadro G1"
END

NUMBER F_G1UCOR 15
BEGIN
  PROMPT 1 15 "Utili corrisposti   "
  FIELD LF_BASEBIS->G1UCOR
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G1USRIT 15
BEGIN
  PROMPT 41 15 "Utili sogg. ritenute"
  HELP "Utili soggetti a ritenute"
  FIELD LF_BASEBIS->G1USRIT
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G1RACC 15
BEGIN
  PROMPT 1 16 "Ritenute di acconto "
  FIELD LF_BASEBIS->G1RACC
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G1RIMP 15
BEGIN
  PROMPT 41 16 "Ritenute di imposta "
  FIELD LF_BASEBIS->G1RIMP
  PICTURE "."
  FLAGS "R"
END

NUMBER F_G1UNSRIT 15
BEGIN
  PROMPT 1 17 "Utili non sogg.rit. "
  HELP "Utili non soggetti a ritenute"
  FIELD LF_BASEBIS->G1UNSRIT
  PICTURE "."
  FLAGS "R"
END          

NUMBER F_G1CRIMPRAS 15
BEGIN
  PROMPT 41 17 "Cred.imp.pre.assun. "
  FIELD LF_BASEBIS->G1CRIMPRAS
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

PAGE "QUADRO I" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "I28 - Quadro H"
END

NUMBER F_H0CODLAV 15
BEGIN
  PROMPT 1 1 "Cont.obb.car.dat.lav"
  HELP "Contributi obbligatori a carico del datore di lavoro"
  FIELD LF_BASEBIS->H0CODLAV
  PICTURE "."
  FLAGS "R"
END

NUMBER F_H0COLDIP 15
BEGIN
  PROMPT 41 1 "Cont.ob.car.lav.dip."
  HELP "Contributi obbligatori a carico del dipendente"
  FIELD LF_BASEBIS->H0COLDIP
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

ENDMASK