campo-sirio/m770/771200m.uml

#include "771200.h"            

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

PAGE "1" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QAF_CODDITTA 5
BEGIN       
  PROMPT 80 80 ""
  FLAGS "D"
  FIELD LF_QUAAB->CODDITTA
  KEY 1               
  GROUP 10
END

NUMBER F_CODIP 6
BEGIN   
  PROMPT 17 1 ""
  USE LF_DIPEND KEY 1
  FIELD LF_QUAAB->CODDIP
  INPUT CODDITTA QAF_CODDITTA 
  INPUT CODDIP F_CODIP
  DISPLAY "Cognome@24" COGNOME
  DISPLAY "Nome@20" NOME
  OUTPUT QAF_COGNOME COGNOME
  OUTPUT QAF_NOME NOME
  CHECKTYPE REQUIRED
  FLAGS "DG"  
  GROUP 10 
  MESSAGE COPY,2@ 
  KEY 1
END  

STRING QAF_COGNOME 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"      
  GROUP 10 
  MESSAGE COPY,3@
END

STRING QAF_NOME 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"      
  GROUP 10 
  MESSAGE COPY,4@
END

NUMBER QAF_NPROG 4
BEGIN
  PROMPT 72 1 ""
  FIELD LF_QUAAB->NPROG
  FLAGS "DG"
  KEY 1  
  GROUP 10         
  MESSAGE COPY,5@
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 3 "@bAssistenza 1996"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 " 8 Conguagli non effettuati"
END           

STRING F_CONEFF50 1
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAAB->CONEFF
  SHEET "Codice|Descrizione@60"
  INPUT F_CONEFF50
  ITEM " |Niente"
  ITEM "A|Cessazione del rapporto di lavoro"
  ITEM "B|Aspettativa senza retribuzione"  
  ITEM "C|Decesso"
  ITEM "D|Richiesta di minore secondo o unico acconto"
  ITEM "E|Retribuzione insufficiente"
  ITEM "F|Situaz. per le quali dovrebbero essere indicati più codici"  
  OUTPUT F_CONEFF50  
  FLAGS "U"
END                                        

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 7 "@bSeconda rata acconto Irpef 1996"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 8 " 9 Imposta trattenuta"
END           

NUMBER F_IMPVERS51 LENIMP
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAAB->IMPVERS
  PICTURE "."
END                                        
             
TEXT DLG_NULL 
BEGIN
  PROMPT 2 9 "10 Interessi"
END           

NUMBER F_ISOPTAS52 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAAB->INTERE
  PICTURE "."
END          
                	
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 12 "@bSeconda rata acconto C.s.s.n. 1996"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 13 "11 Contributo trattenuto"
END           

NUMBER F_CONTRVER53 LENIMP
BEGIN
  PROMPT STDIMP 13 ""
  FIELD LF_QUAAB->CSSN95CV
  PICTURE "."
END                                        
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 14 "12 Interessi"
END                         
              
NUMBER F_ISOPTAS54 LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAAB->INTERE2
  PICTURE "."
END                  

ENDPAGE

PAGE "2" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER DLG_NULL 6
BEGIN           
  PROMPT 17 1 ""
  FLAGS "DG"
  GROUP 2
END  

STRING DLG_NULL 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"           
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG" 
  GROUP 4
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 72 1 ""
  FLAGS "DG"
  GROUP 5
END              
              
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 3 "@bAssistenza 1997"
END 

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 "13 Conguagli non effettuati"
END           

STRING F_CNEFF55 1
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAAB->CNEFF
  SHEET "Codice|Descrizione@60"
  INPUT F_CNEFF55
  ITEM " |Niente"
  ITEM "A|Cessazione del rapporto di lavoro"
  ITEM "B|Aspettativa senza retribuzione"  
  ITEM "C|Decesso"
  ITEM "D|Richiesta di minore secondo acconto"
  ITEM "E|Retribuzione insufficiente"
  ITEM "F|Situaz. per le quali dovrebbero essere indicati più codici"  
  ITEM "G|Rimborso non effettuato in tutto o in parte"
  OUTPUT F_CNEFF55  
  FLAGS "U"
END                                        
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 5 "14 Rettifica conguaglio"
END                         
              
STRING F_RETCON56 1
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAAB->RETCON
  SHEET "Codice|Descrizione@60"
  INPUT F_RETCON56
  ITEM " |Niente"
  ITEM "A|Rettifica importi da conguagliare... (I num. d'ordine)"
  ITEM "C|Cong. a seguito rett.prec.comunicaz.tardivam.perven..."
  ITEM "D|Cong. a seguito rett.prec.comunicaz.tempestivam.perven..."
  ITEM "E|Cong. tardivo per mod.730-4 pervenuto tardivamente"
  ITEM "F|Cong. tardivo per causa dipendente dal sostituto d'imposta"
  OUTPUT F_RETCON56
  FLAGS "U"  
END          
             
TEXT DLG_NULL 
BEGIN
  PROMPT 2 6 "15 Mod.730/97 non liquidabile"
END           

NUMBER F_SEGDICNL69 2
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAAB->M730NLIQ
  FLAGS "Z"
  SHEET "Codice|Descrizione (Errata o incompleta ...)@60"
  INPUT F_SEGDICNL69  
  ITEM "  |Niente"
  ITEM "01|..compilazione dati anagrafici e residenza del dichiarante"
  ITEM "02|..compilazione dati del coniuge e familiari a carico"
  ITEM "03|..compilazione dati anagrafici e residenza del coniuge"
  ITEM "04|..dichiarazione quadro A Mod.730/97 del dichiarante"
  ITEM "05|..dichiarazione quadro A Mod.730/97 del coniuge"      
  ITEM "06|..dichiarazione quadro B Mod.730/97 del dichiarante"
  ITEM "07|..dichiarazione quadro B Mod.730/97 del coniuge"      
  ITEM "08|..dichiarazione quadro C Mod.730/97 del dichiarante"
  ITEM "09|..dichiarazione quadro D Mod.730/97 del dichiarante"
  ITEM "10|..dichiarazione quadro E Mod.730/97 del dichiarante"
  ITEM "11|..dichiarazione quadro E Mod.730/97 del coniuge"      
  ITEM "12|..dichiarazione quadro F Mod.730/97 del dichiarante"
  ITEM "13|..dichiarazione quadro F Mod.730/97 del coniuge"      
  OUTPUT F_SEGDICNL69
END                               
             
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 "@bSaldo Irpef per il 1996"
END 

TEXT DLG_NULL 
BEGIN
  PROMPT 2 10 "16 Imposta rimborsata"
END           

NUMBER F_IMPRIMB57 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAAB->IMPRIMB
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 11 "17 Imposta versata"
END                                        

NUMBER F_IMPVER58 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAAB->IMPVER
  PICTURE "."
END                                        
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 12 "18 Interessi"
END                         
              
NUMBER F_INTIRPEF59 LENIMP
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAAB->INTIRPEF
  PICTURE "."
END                   

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 15 "@bPrima rata acconto Irpef per il 1997"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "19 Imposta trattenuta"
END

NUMBER F_IMPVER60 LENIMP
BEGIN
  PROMPT STDIMP 16 ""
  FIELD LF_QUAAB->IMPVER2
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 17 "20 Interessi"
END

NUMBER F_INTER61 LENIMP
BEGIN
  PROMPT STDIMP 17 ""
  FIELD LF_QUAAB->INTER
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 20 "21 Soprattasse su Irpef saldo 96 e prima rata acconto 97"
END

NUMBER F_STSIRPEF62 LENIMP
BEGIN
  PROMPT STDIMP 20 ""
  FIELD LF_QUAAB->STSIRPEF
  PICTURE "."
END                   

ENDPAGE    

PAGE "3" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER DLG_NULL 6
BEGIN           
  PROMPT 17 1 ""
  FLAGS "DG"
  GROUP 2
END  

STRING DLG_NULL 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"
  GROUP 4
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 72 1 ""
  FLAGS "DG"
  GROUP 5
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 3 "@bSaldo C.s.s.n. per il 1996"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "22 Contributo a rimborso"
END

NUMBER F_CONRIMB63 LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAAB->CONRIMB
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "23 Contributo trattenuto"
END

NUMBER F_CONVER64 LENIMP
BEGIN        
  PROMPT STDIMP 5 ""
  FIELD LF_QUAAB->CONVER
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "24 Interessi"
END

NUMBER F_INTER65 LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAAB->INTER2
  PICTURE "."
END          

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 9 "@bPrima rata acconto C.s.s.n. per il 1997"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "25 Contributo trattenuto"
END

NUMBER F_CONVER66 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAAB->CONVER2
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "26 Interessi"
END

NUMBER F_INTER67 LENIMP
BEGIN
  PROMPT STDIMP 11 ""  
  FIELD LF_QUAAB->INTER3
  PICTURE "."
END                                        
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "27 Soprattasse su C.s.s.n. saldo 96 e prima rata acconto 97"
END             
             
NUMBER F_STSCSSN68 LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAAB->STSCSSN70
  PICTURE "."
END                            

ENDPAGE

PAGE "4" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER DLG_NULL 6
BEGIN           
  PROMPT 17 1 ""
  FLAGS "DG"
  GROUP 2
END  

STRING DLG_NULL 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"
  GROUP 4
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 72 1 ""
  FLAGS "DG"
  GROUP 5
END                         

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 3 "@bContributo straordinario per l'Europa"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "28 Importo a rimborso"
END

NUMBER F_QABEURIMB LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAAB->QABEURIMB
  PICTURE "."
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "29 Importo trattenuto"
END

NUMBER F_QABEUTRAT LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAAB->QABEUTRAT
  PICTURE "."
END                   
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "30 Interessi"
END

NUMBER F_QABEUINTE LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAAB->QABEUINTE
  PICTURE "."
END                       
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "31 Soprattasse"
END

NUMBER F_QABEUSOPR LENIMP
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAAB->QABEUSOPR
  PICTURE "."
END                       
                      
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 10 "@bTassazione separata"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "32 Acconto trattenuto"
END

NUMBER F_QABTSTRAT LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAAB->QABTSTRAT
  PICTURE "."
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "33 Interessi"
END

NUMBER F_QABTSINTE LENIMP
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAAB->QABTSINTE
  PICTURE "."
END                                
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "34 Soprattasse"
END

NUMBER F_QABTSSOPR LENIMP
BEGIN
  PROMPT STDIMP 13 ""
  FIELD LF_QUAAB->QABTSSOPR
  PICTURE "."
END                       
                      
ENDPAGE             

PAGE "5" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER DLG_NULL 6
BEGIN           
  PROMPT 17 1 ""
  FLAGS "DG"
  GROUP 2
END  

STRING DLG_NULL 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"
  GROUP 4
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 72 1 ""
  FLAGS "DG"
  GROUP 5
END                         

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 3 "@bDati identificativi del C.A.A.F che ha prestato assistenza"
END 

NUMBER F_CODCAAF 5
BEGIN
  PROMPT 2 4 "Codice "
  FIELD LF_QUAAB->CODCAAF
  USE %CAF 
  CHECKTYPE NORMAL
  INPUT CODTAB F_CODCAAF
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  DISPLAY "N.ro iscrizione" I1
  DISPLAY "Codice fiscale@16" S1
  OUTPUT F_CODCAAF CODTAB
  OUTPUT F_DENCAAF S0    
  OUTPUT F_NISCRA I1
  OUTPUT F_CODFISCAAF S1
  FLAGS "Z"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "35 Codice fiscale"
END

STRING F_CODFISCAAF 16
BEGIN
  PROMPT 25 6 ""
  FLAGS "D"
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "36 Denominazione"
END

STRING F_DENCAAF 50
BEGIN
  PROMPT 25 7 "" 
  FLAGS "DU"
END
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "37 N°iscrizione albo"
END             
             
NUMBER F_NISCRA 5
BEGIN
  PROMPT 25 8 ""
  FLAGS "D"
END    
                      
ENDPAGE               

PAGE "6" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER DLG_NULL 6
BEGIN           
  PROMPT 17 1 ""
  FLAGS "DG"
  GROUP 2
END  

STRING DLG_NULL 24
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 49 1 ""
  FLAGS "DG"
  GROUP 4
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 72 1 ""
  FLAGS "DG"
  GROUP 5
END                         

GROUPBOX DLG_NULL 78 14
BEGIN
  PROMPT 1 3 "@bOperazioni di conguaglio"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "19 Importo da trattenere Irpef saldo 1996"
END                      

NUMBER F_QABRCB19 LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAAB->QABRCB19
  PICTURE "."
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "20 Importo da rimborsare Irpef saldo 1996"
END                      

NUMBER F_QABRCB20 LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAAB->QABRCB20
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "21 Prima rata acconto Irpef 1997"
END                      

NUMBER F_QABRCB21 LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAAB->QABRCB21
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "22 Seconda o unica rata acconto Irpef 1997"
END                      

NUMBER F_QABRCB22 LENIMP
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAAB->QABRCB22
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "23 Importo da trattenere C.s.s.n. saldo 1996"
END                      

NUMBER F_QABRCB23 LENIMP
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAAB->QABRCB23
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "24 Importo da rimborsare C.s.s.n. saldo 1996"
END                      

NUMBER F_QABRCB24 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAAB->QABRCB24
  PICTURE "."    
  GROUP G_OPECONG
END
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "25 Prima rata acconto C.s.s.n. 1997"
END                      

NUMBER F_QABRCB25 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAAB->QABRCB25
  PICTURE "."    
  GROUP G_OPECONG
END   

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "26 Seconda o unica rata acconto C.s.s.n. 1997"
END                      

NUMBER F_QABRCB26 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAAB->QABRCB26
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "27 Importo da trattenere Contrib.Straord. per l'Europa"
END                      

NUMBER F_QABRCB27 LENIMP
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAAB->QABRCB27
  PICTURE "."    
  GROUP G_OPECONG
END          
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "28 Importo da rimborsare Contrib.Straord. per l'Europa"
END                      

NUMBER F_QABRCB28 LENIMP
BEGIN
  PROMPT STDIMP 13 ""
  FIELD LF_QUAAB->QABRCB28
  PICTURE "."    
  GROUP G_OPECONG
END                       
                          
TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "29 Importo da trattenere per acconto imposta sui redditi"
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "   soggetti a tassazione separata"
END                      

NUMBER F_QABRCB29 LENIMP
BEGIN
  PROMPT STDIMP 15 ""
  FIELD LF_QUAAB->QABRCB29
  PICTURE "."    
  GROUP G_OPECONG
END                                    
                          
ENDPAGE

ENDMASK