campo-sirio/m770/771200f.uml

#include "771200.h"    
TOOLBAR "" 0 20 0 2
#include <toolbar.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 3
BEGIN
  PROMPT 1 3 "@bASSISTENZA 1995 "
END

STRING QA2F_CNEFF 1
BEGIN
  PROMPT 2 4 "8 Conguagli non effettuati "
  FIELD LF_QUAA2->CONEFF
  FLAGS "U"
  HELP "Conguagli non effettuati relativi all'assistenza 1995"
  SHEET "Codice|Descrizione@85"
  INPUT QA2F_CNEFF
  ITEM " |Niente"
  ITEM "A|Cessazione del rapporto di lavoro"
  ITEM "B|Decesso"
  ITEM "C|Richiesta di minore secondo acconto"
  ITEM "D|Retribuzione insufficiente"
  ITEM "E|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici"  
  ITEM "F|Rimborso non effettuato o rimborso effettuato parzialmente"
  OUTPUT QA2F_CNEFF
  GROUP G_ALL
END                                        

STRING QA2F_RETCON 1
BEGIN
  PROMPT 38 4 "9 Rettifica conguaglio    "
  FIELD LF_QUAA2->RETCON
  SHEET "Codice|Descrizione@65"
  INPUT QA2F_RETCON
  ITEM " | "
  ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e gi<67> consegnati entro il 15.5.95 (per il primo numero d'ordine)" 
  ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e gi<67> consegnati entro il 15.5.95 (per il primo numero d'ordine)" 
  ITEM "C|Conguaglio tardivamente effettuato nel mese di luglio"
  OUTPUT QA2F_RETCON
  FLAGS "U"
END                                        

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 "
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "10 Imp.ver/tr.IRPEF"  
  GROUP G_730
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "10 Imposta rimbor. "
  GROUP G_770
END

NUMBER F_IIRPEFVER8 15
BEGIN
  PROMPT 21 7 ""
  FIELD LF_QUAA2->SIRPEFRIMB
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 7 "11 Imp.da rim.IRPEF"      
  GROUP G_730
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 7 "11 Imposta versata "
  GROUP G_770
END

NUMBER F_IIRPEFRI9 15
BEGIN
  PROMPT 61 7 ""
  FIELD LF_QUAA2->VIRPEF
  PICTURE "."
END

TEXT DLG_NULL
BEGIN         
  PROMPT 2 8 "12 Interessi          "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "12 1rata ac.IRPEF95"
  GROUP G_730
END

NUMBER F_INTER11 15
BEGIN
  PROMPT 21 8 ""
  FIELD LF_QUAA2->INTIRPEF
  PICTURE "."
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 "
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "13 Imposta versata "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "13 2rata ac.IRPEF95"
  GROUP G_730
END

NUMBER F_PRIRPEF10 15
BEGIN
//  PROMPT  2 11 "Imposta versata    "
  PROMPT  21 11 ""
  FIELD LF_QUAA2->AIRPEFIV
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 11 "14 Interessi       "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 11 "14 I.v.trat.CSSN "
  GROUP G_730
END

NUMBER F_AIRPEFINT 15
BEGIN
  PROMPT 61 11 ""
  FIELD LF_QUAA2->AIRPEFINT
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "15 Soprattasse IRPEF saldo 94 e prima rata acc.95 "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "15 Importo da rimborsare CSSN "
  GROUP G_730
END

NUMBER F_STASSA12 15
BEGIN
  PROMPT 61 13 ""
  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 4
BEGIN
  PROMPT 1 4 "@bSALDO C.S.S.N. PER IL 1994 "
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "16 Cont.a rimborso "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "16 1r.acc.CSSN 95  "
  GROUP G_730
END

NUMBER QA2F_CSSNCRIMB 15
BEGIN
  PROMPT 21 5 ""
  FIELD LF_QUAA2->CONTR16
  PICTURE "."
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 5 "17 Cont. versato   " 
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 5 "17 2r.acc.CSSN 95  "
  GROUP G_730
END

NUMBER QA2F_CSSNCVER 15
BEGIN
//  PROMPT 41 5 "Contr. versato      "
  PROMPT 61 5 ""
  FIELD LF_QUAA2->CONTRVER
  PICTURE "."
END

NUMBER QA2F_CSSNINT 15
BEGIN
  PROMPT 2 6 "18 Interessi       "
  FIELD LF_QUAA2->INTER18
  PICTURE "."   
  GROUP G_ALL
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 "@bPRIMA RATA ACCONTO C.S.S.N. PER IL 1995 "
END

NUMBER QA2F_CSSNAIV 15
BEGIN
  PROMPT  2 9 "19 Contrib.versato "
  FIELD LF_QUAA2->CONTV19
  PICTURE "."
  GROUP G_ALL
END                             

NUMBER QA2F_CSSNAINT 15
BEGIN
  PROMPT 41 9 "20 Interessi       "
  FIELD LF_QUAA2->INTE20
  PICTURE "."
  GROUP G_ALL  
END

NUMBER QA2F_STCSSN 15
BEGIN
  PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
  FIELD LF_QUAA2->SOPRAT21
  PICTURE "."
  GROUP G_ALL  
END

STRING QA2F_730NLIQ 2
BEGIN
  PROMPT 2 12 "22 Mod.730/95 non liquidabile "
  SHEET "Codice|Descrizione@80"
  INPUT QA2F_730NLIQ 
  ITEM "|"
  ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante"
  ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico"
  ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge"
  ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/95 del dichiarante"
  ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/95 del coniuge"      
  ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/95 del dichiarante"
  ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/95 del coniuge"      
  ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/95 del dichiarante"
  ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/95 del dichiarante"
  ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/95 del dichiarante"
  ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/95 del coniuge"      
  ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/95 del dichiarante"
  ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/95 del coniuge"      
  FIELD LF_QUAA2->M730NLIQ
  FLAGS "Z"
  OUTPUT QA2F_730NLIQ
  GROUP G_ALL  
END

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

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

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

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

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

ENDPAGE

ENDMASK