campo-sirio/m770/771200f.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_QUAA2->CODDITTA
  KEY 1
END

NUMBER F_CODIP 6
BEGIN   
  PROMPT 17 1 ""
  USE LF_DIPEND KEY 1
  FIELD LF_QUAA2->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"  
  MESSAGE COPY,2@ 
  KEY 1
END  

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

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

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

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

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

STRING QA2F_CNEFF 1
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA2->CONEFF
  SHEET "Codice|Descrizione@60"
  INPUT QA2F_CNEFF
  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 o rimborso effettuato parzialmente"
  OUTPUT QA2F_CNEFF     
  FLAGS "U"
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 " 9 Rettifica conguaglio"
END                              

STRING QA2F_RETCON 1
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA2->RETCON
  SHEET "Codice|Descrizione@60"
  INPUT QA2F_RETCON
  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 QA2F_RETCON
  FLAGS "U"
END                                        

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 8 "@bSaldo Irpef per il 1995 "
END

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

NUMBER F_IIRPEFVER8 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAA2->SIRPEFRIMB
  PICTURE "."
END

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


NUMBER F_IIRPEFRI9 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA2->VIRPEF
  PICTURE "."
END

TEXT DLG_NULL
BEGIN         
  PROMPT 2 11 "12 Interessi"
END

NUMBER F_INTER11 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA2->INTIRPEF
  PICTURE "."
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "13 Imposta versata"
END

NUMBER F_PRIRPEF10 LENIMP
BEGIN
  PROMPT  STDIMP 15 ""
  FIELD LF_QUAA2->AIRPEFIV
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "14 Interessi"
END

NUMBER F_AIRPEFINT LENIMP
BEGIN
  PROMPT STDIMP 16 ""
  FIELD LF_QUAA2->AIRPEFINT
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 19 "15 Soprattasse su Irpef saldo 95 e 1°rata acconto 96"
END

NUMBER F_STASSA12 LENIMP
BEGIN
  PROMPT STDIMP 19 ""
  FIELD LF_QUAA2->STASSA15
  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 "@bSaldo C.s.s.n. per il 1995"
END

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

NUMBER QA2F_CSSNCRIMB LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA2->CONTR16
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "17 Contributo versato"
END

NUMBER QA2F_CSSNCVER LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA2->CONTRVER
  PICTURE "."
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "18 Interessi"
END

NUMBER QA2F_CSSNINT LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA2->INTER18
  PICTURE "."
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "19 Contributo versato"
END

NUMBER QA2F_CSSNAIV LENIMP
BEGIN
  PROMPT  STDIMP 10 ""
  FIELD LF_QUAA2->CONTV19
  PICTURE "."
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "20 Interessi"
END                   

NUMBER QA2F_CSSNAINT LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA2->INTE20
  PICTURE "."
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "21 Soprattasse su C.s.s.n. saldo 95 e 1°rata acconto 96"
END          

NUMBER QA2F_STCSSN LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAA2->SOPRAT21
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "22 Modello 730/96 non liquidabile"
END          

STRING QA2F_730NLIQ 2
BEGIN
  PROMPT STDIMP 16 ""
  SHEET "Codice|Descrizione (Errata o incompleta ...)@60"
  INPUT QA2F_730NLIQ 
  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/96 del dichiarante"
  ITEM "05|..dichiarazione quadro A Mod.730/96 del coniuge"      
  ITEM "06|..dichiarazione quadro B Mod.730/96 del dichiarante"
  ITEM "07|..dichiarazione quadro B Mod.730/96 del coniuge"      
  ITEM "08|..dichiarazione quadro C Mod.730/96 del dichiarante"
  ITEM "09|..dichiarazione quadro D Mod.730/96 del dichiarante"
  ITEM "10|..dichiarazione quadro E Mod.730/96 del dichiarante"
  ITEM "11|..dichiarazione quadro E Mod.730/96 del coniuge"      
  ITEM "12|..dichiarazione quadro F Mod.730/96 del dichiarante"
  ITEM "13|..dichiarazione quadro F Mod.730/96 del coniuge"      
  FIELD LF_QUAA2->M730NLIQ
  OUTPUT QA2F_730NLIQ     
  FLAGS "Z"
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 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_QUAA2->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 "23 Codice fiscale"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "24 Denominazione"
END

STRING F_DENCAAF 50
BEGIN
  PROMPT 25 7 "" 
  FLAGS "DU"            
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "23 N°iscrizione albo"
END          

NUMBER F_NISCRA 5
BEGIN
  PROMPT 25 8 ""
  FLAGS "D"
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 10
BEGIN
  PROMPT 1 3 "@bOperazioni di conguaglio"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "10 Importo da versare/trattenere Irpef"
END                      

NUMBER F_QA2RCB10 LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA2->QA2RCB10
  PICTURE "."
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "11 Importo da rimborsare Irpef"
END                      

NUMBER F_QA2RCB11 LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA2->QA2RCB11
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "12 Prima rata acconto Irpef 1996"
END                      

NUMBER F_QA2RCB12 LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA2->QA2RCB12
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "13 Seconda rata acconto Irpef 1996"
END                      

NUMBER F_QA2RCB13 LENIMP
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAA2->QA2RCB13
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "14 Importo da versare/trattenere C.s.s.n."
END                      

NUMBER F_QA2RCB14 LENIMP
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAA2->QA2RCB14
  PICTURE "."    
  GROUP G_OPECONG
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "15 Importo da rimborsare C.s.s.n."
END                      

NUMBER F_QA2RCB15 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAA2->QA2RCB15
  PICTURE "."    
  GROUP G_OPECONG
END
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "16 Prima rata acconto C.s.s.n. 1996"
END                      

NUMBER F_QA2RCB16 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA2->QA2RCB16
  PICTURE "."    
  GROUP G_OPECONG
END   

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "17 Seconda rata acconto C.s.s.n. 1996"
END                      

NUMBER F_QA2RCB17 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA2->QA2RCB17
  PICTURE "."    
  GROUP G_OPECONG
END

ENDPAGE

ENDMASK