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

NUMBER F_CODIP 6
BEGIN   
  PROMPT 17 1 ""
  USE LF_DIPEND KEY 1
  FIELD LF_QUAA1->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_QUAA1->NPROG
  FLAGS "DG"
  KEY 1          
  MESSAGE COPY,5@
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 3 "@bPeriodo di riferimento"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 " 8 Mese e anno periodo di riferimento "
END  

LISTBOX F_MESEANNO 9
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA1->MESERIF
  FLAGS "M"
END

NUMBER QA1F_ANNORIF 4
BEGIN
  PROMPT 73 4 ""
  FIELD LF_QUAA1->ANNORIF
  FLAGS "D"
END

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

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

NUMBER F_IMPRIMB9 LENIMP
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAA1->IMPRIMB9
  PICTURE "."
END           

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

NUMBER F_IMPVERS10 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAA1->IMPVERS10
  PICTURE "."
END       

TEXT DLG_NULL 
BEGIN
  PROMPT 2 10 "11 Interessi"
END  

NUMBER F_INTER11 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA1->INTER11         
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 13 "@bPrima rata acconto Irpef per il 1996"
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 14 "12 Imposta versata"
END                
              
NUMBER F_IMPVERS12 LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAA1->IMPVERS12
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 15 "13 Interessi"
END                         
              
NUMBER F_INTER13 LENIMP
BEGIN
  PROMPT STDIMP 15 ""
  FIELD LF_QUAA1->INTER13
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 18 "14 Soprattassa su Irpef saldo 95 e prima rata acconto 96"
END                         
              
NUMBER F_STASSA14 LENIMP
BEGIN
  PROMPT STDIMP 18 ""
  FIELD LF_QUAA1->STASSA14
  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 "15 Contributo a rimborso"
END           

NUMBER F_CONTRIMB15 LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA1->CONTRIMB15
  PICTURE "."
END           

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

NUMBER F_CONTVERS16 LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA1->CONTVERS16
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 6 "17 Interessi"
END                         
              
NUMBER F_INTER17 LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA1->INTER17
  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 "18 Contributo versato"
END           

NUMBER F_CONTVER18 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA1->CONTVER18
  PICTURE "."                           
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 11 "19 Interessi"
END                         
              
NUMBER F_INTER19 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA1->INTER19
  PICTURE "."                                  
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 14 "20 Soprattassa su C.s.s.n. saldo 95 e prima rata acconto 96"
END           

NUMBER F_STASSA20 LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAA1->STASSA20
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 15 "21 Conguagli non effettuati"
END           

STRING F_CONNEFF21 1
BEGIN
  PROMPT STDIMP 15 ""
  FIELD LF_QUAA1->CONNEFF21
  SHEET "Codice|Descrizione@60"
  INPUT F_CONNEFF21
  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<70> codici"  
  ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente"
  OUTPUT F_CONNEFF21 
  FLAGS "U" 
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 16 "22 Tipo conguaglio"
END           

STRING F_TIPOCONG22 1
BEGIN
  PROMPT STDIMP 16 ""
  FIELD LF_QUAA1->TIPOCONG22
  SHEET "Codice|Descrizione@60"
  INPUT F_TIPOCONG22 
  ITEM " |Niente"
  ITEM "R|Cong.tardivo derivante da Mod.730-3 rettificativo..."
  ITEM "S|Cong.tardivo derivante da comunicazione Mod.730-4..."
  ITEM "T|Cong.tardivo derivante da Mod.730-3 ovvero conguaglio..."
  ITEM "U|Cong.conseguente ad incapienza della retribuzione..."
  OUTPUT F_TIPOCONG22  
  FLAGS "U"
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 17 "26 Data ricezione Modello 730-5"
END           

DATE F_DATARIC29 
BEGIN
  PROMPT STDIMP 17 ""
  FIELD LF_QUAA1->DATARIC26
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_QUAA1->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 "25 N<>iscrizione albo"
END          

NUMBER F_NISCRA 5
BEGIN
  PROMPT 25 8 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK