campo-sirio/m770/771200d.uml

#include "771200.h"    
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "MODULO 770 - Manutenzione Quadro A1" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QAF_CODDITTA 5
BEGIN 
  FLAGS "H"
  FIELD LF_QUAA1->CODDITTA
  KEY 1               
  MESSAGE COPY,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

LISTBOX F_MESEANNO 9
BEGIN
  PROMPT 2 3 "8 Periodo di riferimento   "
  FLAGS "M"
  FIELD LF_QUAA1->MESERIF
END

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 4 "@bSaldo IRPEF per il 1994"
END

NUMBER F_IMPRIMB9 15
BEGIN
  PROMPT 2 5 "9 Imposta rimbors. "
  FIELD LF_QUAA1->IMPRIMB9
  PICTURE "."
END

NUMBER F_IMPVERS10 15
BEGIN
  PROMPT 45 5 "10 Imposta ver. "
  FIELD LF_QUAA1->IMPVERS10
  PICTURE "."
END

NUMBER F_INTER11 15
BEGIN
  PROMPT 2 6 "11 Interessi       "
  FIELD LF_QUAA1->INTER11         
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995"
END

NUMBER F_IMPVERS12 15
BEGIN
  PROMPT 2 9 "12 Imposta versata "
  FIELD LF_QUAA1->IMPVERS12
  PICTURE "."
END

NUMBER F_INTER13 15
BEGIN
  PROMPT 45 9 "13 Interessi    "
  FIELD LF_QUAA1->INTER13
  PICTURE "."
END

NUMBER F_STASSA14 15
BEGIN
  PROMPT 2 10 "14 Soprattassa su IRPEF saldo 94 e prima rata acconto 95   "
  FIELD LF_QUAA1->STASSA14
  PICTURE "."
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 12 "@bSaldo C.S.S.N. per il 1994"
END

NUMBER F_CONTRIMB15 15
BEGIN
  PROMPT 2 13 "15 Cont. a rimborso"
  FIELD LF_QUAA1->CONTRIMB15
  PICTURE "."               
  HELP "Contributo a rimborso"
END

NUMBER F_CONTVERS16 15
BEGIN
  PROMPT 45 13 "16 Cont.versato "
  FIELD LF_QUAA1->CONTVERS16
  PICTURE "."                  
  HELP "Contributo versato"
END

NUMBER F_INTER17 15
BEGIN
  PROMPT 2 14 "17 Interessi       "
  FIELD LF_QUAA1->INTER17
  PICTURE "."
END

ENDPAGE

PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
END

NUMBER QAF_CODDITTA 5
BEGIN 
  FLAGS "H"
  GROUP 1
END

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

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

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

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

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1995"
END

NUMBER F_CONTVER18 15
BEGIN
  PROMPT 2 4 "18 Contributo vers."
  FIELD LF_QUAA1->CONTVER18
  PICTURE "."                           
END

NUMBER F_INTER19 15
BEGIN
  PROMPT 45 4 "19 Interessi    "
  FIELD LF_QUAA1->INTER19
  PICTURE "."                                  
END

NUMBER F_STASSA20 15
BEGIN
  PROMPT 2 5 "20 Soprattassa su C.S.S.N. saldo 94 e prima rata acconto 95"
  FIELD LF_QUAA1->STASSA20
  PICTURE "."
END   

STRING F_CONNEFF21 1
BEGIN
  PROMPT 2 6 "21 Cong. n/effet. "
  FIELD LF_QUAA1->CONNEFF21
  HELP "Conguagli non effettuati"
  SHEET "Codice|Descrizione@85"
  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|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici"  
  ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente"
  OUTPUT F_CONNEFF21 
  FLAGS "U" 
END

STRING F_TIPOCONG22 1
BEGIN
  PROMPT 45 6 "22 Tipo cong.   "
  FIELD LF_QUAA1->TIPOCONG22
  SHEET "Codice|Descrizione@155"
  INPUT F_TIPOCONG22 
  ITEM " |Niente"
  ITEM "R|conguaglio tardivo derivante da Mod.730/93 rettificativo ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94 rettificativo"
  ITEM "S|Conguaglio tardivo derivante da comunicazione Mod.730/94 pervenuta entro i termini"
  ITEM "T|Conguaglio tardivo derivante da Mod.730/93 ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94"
  ITEM "U|Conguaglio conseguente ad incapienza della retribuzione corrisposta nei periodi di paga precedenti ovvero insufficienza del monte ritenute e/o contributi"
  OUTPUT F_TIPOCONG22  
  FLAGS "U"
END

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

NUMBER F_CODCAAF 5
BEGIN
  PROMPT 2 10 "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
END

STRING F_DENCAAF 50
BEGIN
  PROMPT 26 10 "" 
  FLAGS "DU"            
END

STRING F_CODFISCAAF 16
BEGIN
  PROMPT 2 11 "23 Cod.fiscale "
  FLAGS "D"
END

NUMBER F_NISCRA 5
BEGIN
  PROMPT 50 11 "25 N.iscrizione albo "
  FLAGS "D"
END

DATE F_DATARIC29 
BEGIN
  PROMPT 2 12 "26 Data ricezione Modello 730-5 "
  FIELD LF_QUAA1->DATARIC26
END

ENDPAGE

ENDMASK