campo-sirio/m770/771200b.uml

#include "771200.h"            
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
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"
  FIELD LF_QUAA->CODDITTA
  KEY 1               
  MESSAGE COPY,1@
END

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

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

LISTBOX QAF_AREAATT 1 22
BEGIN
  PROMPT 2 4 "13 area attività "
  ITEM " |"
  ITEM "A|Area amministrativa"
  ITEM "B|Area vendita"
  ITEM "C|Area produzione"
  ITEM "D|Aree non definite"
  FIELD LF_QUAA->AREAATT
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
END

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

DATE F_DATAFR
BEGIN
  PROMPT 2 5 "16 data fine rapporto "
  FIELD LF_QUAA->DATAFR  
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"
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
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"  
  OUTPUT F_CAUSA                          
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 "."
END

NUMBER F_NATURA 15
BEGIN
  PROMPT 45 9 "21 in natura     "
  FIELD LF_QUAA->NATURA
  PICTURE "."
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 "."
END

NUMBER F_COMPNETTI 15
BEGIN
  PROMPT 45 11 "23 compensi netti"
  FIELD LF_QUAA->COMPNETTI
  PICTURE "."
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 "."
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"
END

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

NUMBER F_TOTIMP26 15
BEGIN
  PROMPT 39 15 "27 totale imponibile   "
  FIELD LF_QUAA->TOTIMP
  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 5
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"
END

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

NUMBER F_TOTIMP29 15
BEGIN
  PROMPT 2 5 "30 totale imponibile                        "
  FIELD LF_QUAA->TOTIMP2
  PICTURE "."
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"
END

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

NUMBER F_DETFC 15
BEGIN
  PROMPT 41 7 "33 detr.figli carico "
  FIELD LF_QUAA->DETFC
  PICTURE "."         
  HELP "Detrazione per figli a carico"
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"
END                                              

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

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

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

NUMBER QAF_INCDETFC 15
BEGIN
  PROMPT 2 10 "38 inc.detr.figli a ca."
  FIELD LF_QUAA->INCDETFC
  PICTURE "."        
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"
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"
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"
END

NUMBER F_AMMRITDOV 15
BEGIN
  PROMPT 2 14 "42 ammont.riten. dovute"
  FIELD LF_QUAA->AMMRITDOV
  PICTURE "."         
  HELP "Ammontare delle ritenute dovute"
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"
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"
END

NUMBER F_CONPRECO43 15
BEGIN
  PROMPT 2 16 "45 contributi per previdenza complementare  "
  FIELD LF_QUAA->CONPRECO
  PICTURE "."         
  HELP "Contributi per previdenza complementare"
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 5
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"
END

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

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

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

NUMBER F_SVNASSRI48 15
BEGIN
  PROMPT 2 6 "50 altre somme e valori non ass.a ritenuta  "
  FIELD LF_QUAA->SVNASSRI
  PICTURE "."              
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."
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  
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 "."
END                                        
             
NUMBER F_ISOPTAS52 15
BEGIN
  PROMPT 37 14 "54 interessi     "
  FIELD LF_QUAA->INTERE
  PICTURE "."          
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 "."
END                                        

NUMBER F_ISOPTAS54 15
BEGIN
  PROMPT 37 17 "56 interessi     "
  FIELD LF_QUAA->INTERE2
  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 5
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.assist.95 "
  FIELD LF_QUAA->CNEFF
  HELP "Conguagli non effettuati relativi all'assistenza 1995"
  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  
END                                        

STRING F_RETCON56 1
BEGIN
  PROMPT 37 4 "58 rettifica conguaglio    "
  FIELD LF_QUAA->RETCON
  SHEET "Codice|Descrizione@65"
  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à consegnati entro il 15.5.96 (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à consegnati entro il 15.5.96 (per il primo numero d'ordine)" 
  ITEM "C|Conguaglio a seguito di rettifica di una precedente comunicazione tardivamente pervenuta al sostituto"
  ITEM "D|Conguaglio a seguito di rettifica di una precedente comunicazione tempestivamente perventuta al sostituto ma per la quale non è 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 "."
END                                        

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

NUMBER F_INTIRPEF59 15
BEGIN
  PROMPT 2 8 "61 interessi        "
  FIELD LF_QUAA->INTIRPEF
  PICTURE "."             
  HELP "Interessi IRPEF"
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 6
END

TEXT DLG_NULL
BEGIN
  PROMPT 44 11 "63 interessi "
//  GROUP 7
END

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

NUMBER F_INTER61 15
BEGIN
//  PROMPT 44 11 "Interessi        "
  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 del 96 "
  GROUP 6
END

NUMBER F_STSIRPEF62 15
BEGIN
//  PROMPT 2 12 "Soprattasse saldo IRPEF per 94 e prima rata acconto del 95 "
  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 6
END

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "67 interessi      "
//  GROUP 7
END

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

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

NUMBER F_INTER65 15
BEGIN
//  PROMPT 2 16 "Interessi          "
  PROMPT 21 16 ""
  FIELD LF_QUAA->INTER2
  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 5
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 7
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 6
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 44 4 "69 interessi     "
  GROUP 6
END

NUMBER F_INTER67 15
BEGIN
//  PROMPT 44 4 "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. 94 e prima rata acconto 95   "
  FIELD LF_QUAA->STSCSSN70
  PICTURE "."             
END                                        

NUMBER F_SEGDICNL69 2
BEGIN
  PROMPT 2 6 "71 Mod.730/95 non liquidabile      "
  FIELD LF_QUAA->M730NLIQ
  SHEET "Codice|Descrizione@65"
  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  
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
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