campo-sirio/m770/771200b.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_QUAA->CODDITTA
  KEY 1               
  GROUP 10
END

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

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 3 "@bDati relativi al rapporto di lavoro"
END

LISTBOX QAF_AREAATT 1 19
BEGIN
  PROMPT 2 4 "13 Area attivit<69> "
  ITEM " |"
  ITEM "A|Area amministrativa"
  ITEM "B|Area vendita"
  ITEM "C|Area produzione"
  ITEM "D|Aree non definite"
  FIELD LF_QUAA->AREAATT
  GROUP G_ALL
END                  

STRING QAF_TIPOATT 1
BEGIN             
  PROMPT 42 4 "14 Tipo "
  SHEET "Codice|Descrizione@70"
  INPUT QAF_TIPOATT
  ITEM " |"
  ITEM "A|Tempo parziale"
  ITEM "B|Apprendistato"
  ITEM "C|Formazione lavoro"
  OUTPUT QAF_TIPOATT
  FIELD LF_QUAA->TIPO
  FLAGS "U"
  GROUP G_ALL  
END

NUMBER F_NUMGIORNI 3
BEGIN
  PROMPT 55 4 "15 Numero giorni "
  FIELD LF_QUAA->NUMGIO
  GROUP G_ALL  
END

DATE F_DATAFR
BEGIN
  PROMPT 2 5 "16 Data fine rapporto "
  FIELD LF_QUAA->DATAFR  
  GROUP G_ALL  
END

NUMBER QAF_GIODET 3
BEGIN
  PROMPT 40 5 "17 Num.gio.det.lav.dip "
  FIELD LF_QUAA->NUMGIODET  
  NUM_EXPR {(#THIS>=0)&&(#THIS<=366)}
  WARNING "I giorni detrazione per lav.dip. devono essere compresi tra 0 e 366"
  GROUP G_ALL  
END                       

STRING F_CODFISDL 16
BEGIN
  PROMPT 2 6 "18 Cod.fis.prec.dat.lav.  "
  FIELD LF_QUAA->CFDLPREC            
  FLAGS "U"
  VALIDATE CF_FUNC F_CODFISDL
  GROUP G_ALL  
END

NUMBER F_CAUSA 1
BEGIN
  PROMPT 60 6 "19 Causa "
  FIELD LF_QUAA->CAUSA
  SHEET "Codice|Descrizione@70"
  INPUT F_CAUSA  
  ITEM " |Niente"
  ITEM "1|Fusione (anche per incorporazione)"
  ITEM "2|Scissione"
  ITEM "3|Conferimento o cessione a titolo oneroso"
  ITEM "4|Esercizio della facolta' prevista da art.23, comma 7, D.P.R. 600/73"
  ITEM "5|Altro"  
  ITEM "6|Forme pensionistiche complementari (I num.d'ordine)"
  ITEM "7|Forme pensionistiche complementari (II num.d'ordine)"
  OUTPUT F_CAUSA                          
  GROUP G_ALL  
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 "@bCompensi lordi, stipendi, pensioni ecc."
END

NUMBER F_DENARO 15
BEGIN
  PROMPT 2 9 "20 In denaro           "
  FIELD LF_QUAA->DENARO
  PICTURE "."
  GROUP G_ALL  
END

NUMBER F_NATURA 15
BEGIN
  PROMPT 45 9 "21 In natura     "
  FIELD LF_QUAA->NATURA
  PICTURE "."
  GROUP G_ALL  
END

NUMBER F_COBBDIP21 15
BEGIN
  PROMPT 2 11 "22 Contr.obb.car. dip. "
  HELP "Contributi obbligatori a carico del dipendente"
  FIELD LF_QUAA->COBBDIP
  PICTURE "."
  GROUP G_ALL  
END

NUMBER F_COMPNETTI 15
BEGIN
  PROMPT 45 11 "23 Compensi netti"
  FIELD LF_QUAA->COMPNETTI
  PICTURE "."          
  FLAGS "D"
  GROUP G_2342
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 13 "@bIndennita' e assegni ex Art.48, C.4 e 5, T.U.I.R."
END

NUMBER F_AMMLORDO24 15
BEGIN
  PROMPT 2 14 "24 Ammontare lordo   "
  FIELD LF_QUAA->AMMLORDO
  PICTURE "."
  GROUP G_ALL  
END

NUMBER F_IACOBBCD25 15
BEGIN
  PROMPT 39 14 "25 Contr.obb.car. dip. "
  FIELD LF_QUAA->IACOBBCD
  PICTURE "."              
  HELP "Contributi obbligatori a carico del dipendente"
  GROUP G_ALL  
END

NUMBER QAF_SVNSOGRIT 15
BEGIN
  PROMPT 2 15 "26 Som.v.non sog.rit."
  FIELD LF_QUAA->NORIT
  PICTURE "."
  GROUP G_ALL  
END

NUMBER F_TOTIMP26 15
BEGIN
  PROMPT 39 15 "27 Totale imponibile   "
  FIELD LF_QUAA->TOTIMP
  PICTURE "."
  GROUP G_ALL  
END

ENDPAGE

PAGE "2" -1 -1 78 21

TEXT DLG_NULL 
BEGIN
  PROMPT 1 1 "@bDipendente"
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

NUMBER F_AIEREP23 15
BEGIN
  PROMPT 2 3 "28 Assegni indennita' erogati da  enti previdenziali        "
  FIELD LF_QUAA->AIENTIPREV
  PICTURE "."                  
  HELP "Assegni e indennita' erogati da enti previdenziali"
  GROUP G_ALL  
END

NUMBER F_CCTAMMCONT 15
BEGIN
  PROMPT 2 4 "29 Ammontare compensi corrisposti da terzi  "
  FIELD LF_QUAA->CCTAMMCONT
  PICTURE "."
  GROUP G_ALL                             
END

NUMBER F_TOTIMP29 15
BEGIN
  PROMPT 2 5 "30 Totale imponibile                        "
  FIELD LF_QUAA->TOTIMP2
  PICTURE "."     
  GROUP G_ALL 
END

NUMBER F_ICTOTIMP30 15
BEGIN
  PROMPT 2 6 "31 Imposta corrispondente totale imponibile "
  FIELD LF_QUAA->ICTOTIMP
  PICTURE "."              
  HELP "Imposta corrispondente al totale imponibile"
  GROUP G_ALL  
END

NUMBER F_DETCC 15
BEGIN
  PROMPT 2 7 "32 Detr.coniuge carico "
  FIELD LF_QUAA->DETCC
  PICTURE "."                         
  HELP "Detrazione per coniuge a carico"
  GROUP G_ALL  
END

NUMBER F_DETFC 15
BEGIN
  PROMPT 41 7 "33 Detr.figli carico "
  FIELD LF_QUAA->DETFC
  PICTURE "."         
  HELP "Detrazione per figli a carico"
  GROUP G_ALL  
END

NUMBER F_DETAF 15
BEGIN
  PROMPT 2 8 "34 Det.altri fam.carico"
  FIELD LF_QUAA->DETAF
  PICTURE "."         
  HELP "Detrazione per altri famigliari a carico"
  GROUP G_ALL  
END                                              

NUMBER F_DETLD 15
BEGIN
  PROMPT 41 8 "35 Detr.lav. dipend. "
  FIELD LF_QUAA->DETLD
  PICTURE "."         
  HELP "Detrazione per lavoro dipendente"
  GROUP G_ALL  
END                                      

NUMBER F_DETO 15
BEGIN
  PROMPT 2 9 "36 Detr. per oneri     "
  FIELD LF_QUAA->DETO
  PICTURE "."        
  HELP "Detrazione per oneri"
  GROUP G_ALL  
END

NUMBER F_TOTDET36 15
BEGIN
  PROMPT 41 9 "37 Totale detrazione "
  FIELD LF_QUAA->TOTDET
  PICTURE "."
  GROUP G_ALL  
END

NUMBER QAF_INCDETFC 15
BEGIN
  PROMPT 2 10 "38 Inc.detr.figli a ca."
  FIELD LF_QUAA->INCDETFC
  PICTURE "."
  GROUP G_ALL          
END

NUMBER F_AMRIOT37 15
BEGIN
  PROMPT 2 11 "39 Ammontare delle ritenute operate da terzi"
  FIELD LF_QUAA->AMRIOT
  PICTURE "."         
  HELP "Ammontare delle ritenute operate da terzi"
  GROUP G_ALL  
END

NUMBER F_AMRIODL38 15
BEGIN
  PROMPT 2 12 "40 Ammontare ritenute operate datore lavoro "
  FIELD LF_QUAA->AMRIODL
  PICTURE "."         
  HELP "Ammontare delle ritenute operate dal datore di lavoro"
  GROUP G_ALL  
END

NUMBER F_ECCRITRIMB 15
BEGIN
  PROMPT 2 13 "41 Eccedenza delle ritenute da rimborsare   "
  FIELD LF_QUAA->ECCRITRIMB
  PICTURE "."         
  HELP "Eccedenza delle ritenute da rimborsare"
  GROUP G_ALL  
END

NUMBER F_AMMRITDOV 15
BEGIN
  PROMPT 2 14 "42 Ammont.riten. dovute"
  FIELD LF_QUAA->AMMRITDOV
  PICTURE "."         
  HELP "Ammontare delle ritenute dovute"
  FLAGS "D"
  GROUP G_2342
END

NUMBER F_ERSPSAN41 15
BEGIN
  PROMPT 41 14 "43 Er.spese sanitarie"
  FIELD LF_QUAA->ERSPSAN
  PICTURE "."         
  HELP "Erogazioni per spese sanitarie, anche in forma assicurativa"
  GROUP G_ALL  
END

NUMBER F_PRASSVI42 15
BEGIN
  PROMPT 2 15 "44 Premi di assicurazione vita e infortuni  "
  FIELD LF_QUAA->PRASSVI
  PICTURE "."         
  HELP "Premi di assicurazione vita e infortuni"
  GROUP G_ALL  
END

NUMBER F_CONPRECO43 15
BEGIN
  PROMPT 2 16 "45 Contributi per previdenza complementare  "
  FIELD LF_QUAA->CONPRECO
  PICTURE "."         
  HELP "Contributi per previdenza complementare"
  GROUP G_ALL  
END

ENDPAGE    

PAGE "3" -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 6
BEGIN
  PROMPT 1 3 "@bArretrati relativi ad anni precedenti"
END

NUMBER F_COBBDIP44 15
BEGIN
  PROMPT 2 4 "46 Cont.obb.carico dip."
  FIELD LF_QUAA->COBBDIP2
  PICTURE "."         
  HELP "Contributi obbligatori a carico del dipendente"
  GROUP G_ALL  
END

NUMBER F_AMMIMP45 15
BEGIN
  PROMPT 41 4 "47 Ammontare imponib."
  FIELD LF_QUAA->AMMIMP
  PICTURE "."                    
  HELP "Ammontare imponibile"
  GROUP G_ALL  
END

NUMBER F_DETIMPOS46 15
BEGIN
  PROMPT 2 5 "48 Detrazioni d'imposta"
  FIELD LF_QUAA->DETIMPOS
  PICTURE "."
  GROUP G_ALL           
END

NUMBER F_RITESEG47 15
BEGIN
  PROMPT 41 5 "49 Ritenuta eseguita "
  FIELD LF_QUAA->RITESEG
  PICTURE "."
  GROUP G_ALL           
END

NUMBER F_SVNASSRI48 15
BEGIN
  PROMPT 2 6 "50 Altre somme e valori non ass.a ritenuta  "
  FIELD LF_QUAA->SVNASSRI
  PICTURE "."
  GROUP G_ALL                
END

NUMBER F_AIFCSSN49 15
BEGIN
  PROMPT 2 7 "51 Ammontare imponibile ai fini del C.S.S.N."
  FIELD LF_QUAA->AIFCSSN
  PICTURE "."             
  HELP "Ammontare imponibile ai fini del C.S.S.N."
  GROUP G_ALL  
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bVERSAMENTI E RIMBORSI CONSEGUENTI ALL'ASSISTENZA FISCALE      "
END

GROUPBOX DLG_NULL 0 3
BEGIN
  PROMPT 1 10 "@bAssistenza 1995"
END

STRING F_CONEFF50 1
BEGIN
  PROMPT 2 11 "52 conguagli non effettuati nel 95   "
  FIELD LF_QUAA->CONEFF
  SHEET "Codice|Descrizione@85"
  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 acconto"
  ITEM "E|Retribuzione insufficiente"
  ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici"  
  OUTPUT F_CONEFF50  
  FLAGS "U"  
  GROUP G_ALL  
END                                        

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 13 "@bSeconda rata acconto IRPEF 1995"
END

NUMBER F_IMPVERS51 15
BEGIN
  PROMPT 2 14 "53 Imposta vers. "
  FIELD LF_QUAA->IMPVERS
  PICTURE "."
  GROUP G_ALL  
END                                        
             
NUMBER F_ISOPTAS52 15
BEGIN
  PROMPT 37 14 "54 Interessi     "
  FIELD LF_QUAA->INTERE
  PICTURE "."          
  GROUP G_ALL
END          

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 16 "@bSeconda rata acconto C.S.S.N. 1995"
END

NUMBER F_CONTRVER53 15
BEGIN
  PROMPT 2 17 "55 Contr. versato"
  FIELD LF_QUAA->CSSN95CV
  PICTURE "."
  GROUP G_ALL  
END                                        

NUMBER F_ISOPTAS54 15
BEGIN
  PROMPT 37 17 "56 Interessi     "
  FIELD LF_QUAA->INTERE2
  PICTURE "."
  GROUP G_ALL  
END                                        

ENDPAGE

PAGE "4" -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 3
BEGIN
  PROMPT 1 3 "@bAssistenza 1996"
END 

STRING F_CNEFF55 1
BEGIN
  PROMPT 2 4 "57 Conguagli n/eff. "
  FIELD LF_QUAA->CNEFF
  SHEET "Codice|Descrizione@85"
  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|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici"  
  ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente"
  OUTPUT F_CNEFF55  
  FLAGS "U"
  GROUP G_ALL  
END                                        

STRING F_RETCON56 1
BEGIN
  PROMPT 37 4 "58 Rettifica conguaglio    "
  FIELD LF_QUAA->RETCON
  SHEET "Cod.|Descrizione@200"
  INPUT F_RETCON56
  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.96 (I n. 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.96 (II n. d'ordine)" 
  ITEM "C|Conguaglio a seguito di rettifica di una precedente comunicazione tardivamente pervenuta al sostituto"
  ITEM "D|Conguaglio a seguito di rett. prec. comunic. tempestivam. pervenuta al sostituto ma per la quale non <20> stato effettuato il conguaglio nel mese di giugno"
  ITEM "E|Conguaglio tardivo per mod.730-4 pervenuto tardivamente"
  ITEM "F|Conguaglio tardivo per causa dipendente dal sostituto d'imposta"
  OUTPUT F_RETCON56
  FLAGS "U"  
END                                        

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

NUMBER F_IMPRIMB57 15
BEGIN
  PROMPT 2 7 "59 Impo. rimborsata "
  FIELD LF_QUAA->IMPRIMB
  PICTURE "."
  GROUP G_ALL  
END                                        

NUMBER F_IMPVER58 15
BEGIN
  PROMPT 44 7 "60 Imposta versata"
  FIELD LF_QUAA->IMPVER
  PICTURE "."
  GROUP G_ALL  
END                                        

NUMBER F_INTIRPEF59 15
BEGIN
  PROMPT 2 8 "61 Interessi        "
  FIELD LF_QUAA->INTIRPEF
  PICTURE "."             
  HELP "Interessi IRPEF"
  GROUP G_ALL  
END                                        

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "62 Impo. versata "
  GROUP G_770  
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "62 I.ver/tr.IRPEF"
  GROUP G_730
END

NUMBER F_IMPVER60 15
BEGIN
  PROMPT 23 11 ""
  FIELD LF_QUAA->IMPVER2
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 44 11 "63 Interessi "
  GROUP G_770  
END

TEXT DLG_NULL
BEGIN
  PROMPT 44 11 "63 I.ri.IRPEF"
  GROUP G_730
END

NUMBER F_INTER61 15
BEGIN
  PROMPT 61 11 ""
  FIELD LF_QUAA->INTER
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "64 Soprattasse saldo IRPEF per 95 e prima rata acconto 96 "
  GROUP G_770  
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "64 Prima rata di acconto IRPEF per il 1996                "
  GROUP G_730
END

NUMBER F_STSIRPEF62 15
BEGIN
  PROMPT 61 12 ""
  FIELD LF_QUAA->STSIRPEF
  PICTURE "."             
  HELP "Interessi IRPEF"
END                                        
 
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bSaldo C.S.S.N. per il 1995"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "65 Contr. rimborso "
  GROUP G_770  
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "65 2rata ac.IRPEF96"
  GROUP G_730
END

NUMBER F_CONRIMB63 15
BEGIN
  PROMPT 21 15 ""
  FIELD LF_QUAA->CONRIMB
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 44 15 "66 Contr.versato "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 44 15 "66 I.v.trat.CSSN "
  GROUP G_730
END

NUMBER F_CONVER64 15
BEGIN        
  PROMPT 61 15 ""
  FIELD LF_QUAA->CONVER
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "67 Interessi      "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "67 Imp. rimb. CSSN "
  GROUP G_730
END

NUMBER F_INTER65 15
BEGIN
// "Interessi          "
  PROMPT 21 16 ""
  FIELD LF_QUAA->INTER2
  PICTURE "."             
END                                        

ENDPAGE

PAGE "5" -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 1996"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "68 Contr. versato  "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "68 1r.acc.CSSN 96  "
  GROUP G_730
END

NUMBER F_CONVER66 15
BEGIN
//  "Contributo versato "
  PROMPT 21 4 ""
  FIELD LF_QUAA->CONVER2
  PICTURE "."
END                                        

TEXT DLG_NULL
BEGIN
  PROMPT 44 4 "69 Interessi     "
  GROUP G_770
END

TEXT DLG_NULL
BEGIN
  PROMPT 44 4 "69 2r.acc.CSSN 96"
  GROUP G_730
END

NUMBER F_INTER67 15
BEGIN
//  "69 Interessi        "
  PROMPT 61 4 ""  
  FIELD LF_QUAA->INTER3
  PICTURE "."
END                                        

NUMBER F_STSCSSN68 15
BEGIN
  PROMPT 2 5 "70 Soprattasse saldo C.S.S.N. 95 e prima rata acconto 96   "
  FIELD LF_QUAA->STSCSSN70
  GROUP G_ALL  
  PICTURE "."             
END                                        

NUMBER F_SEGDICNL69 2
BEGIN
  PROMPT 2 6 "71 Mod.730/96 non liquidabile      "
  FIELD LF_QUAA->M730NLIQ
  FLAGS "Z"
  SHEET "Codice|Descrizione@200"
  INPUT F_SEGDICNL69  
  ITEM " |Niente"
  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/96 del dichiarante"
  ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/96 del coniuge"
  ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/96 del dichiarante"
  ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/96 del coniuge"
  ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/96 del dichiarante"
  ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/96 del dichiarante"
  ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/96 del dichiarante"
  ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/96 del coniuge"
  ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/96 del dichiarante"
  ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/96 del coniuge"  
  OUTPUT F_SEGDICNL69  
  GROUP G_ALL  
END                                        

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

NUMBER F_CODCAAF 5
BEGIN
  PROMPT 2 11 "Codice         "
  FIELD LF_QUAA->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 11 "" 
  FLAGS "DU"            
END

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

NUMBER F_NISCRA 5
BEGIN
  PROMPT 50 12 "74 N.iscrizione albo "
  FLAGS "D"
END

ENDPAGE

ENDMASK