campo-sirio/m770/771200b.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_QUAA->CODDITTA
  KEY 1
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"
  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 47 7
BEGIN
  PROMPT 1 3 "@bDati relativi al rapporto di lavoro"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 "11 Qualifica"
END           

NUMBER F_QAQUALIF 2
BEGIN
  PROMPT STDINF 4 ""
  FIELD LF_QUAA->QAQUALIF
  SHEET "Codice|Descrizione@77"
  INPUT F_QAQUALIF
  ITEM "01|Pensionati"
  ITEM "02|Operai generici"
  ITEM "03|Operai specializzati"
  ITEM "04|Impiegati"
  ITEM "05|Quadri"
  ITEM "06|Dirigenti"
  ITEM "07|Insegnanti universitari compresi docenti,incaricati,ricercatori,e assimilati"
  ITEM "08|Insegnanti e presidi di scuola media"
  ITEM "09|Insegnanti e direttori di scuola elementare e materna"
  ITEM "10|Ministri di culto"
  ITEM "11|Eredi"      
  FLAG "Z"         
  WARNING "Qualifica errata"
  OUTPUT F_QAQUALIF
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 5 "12 Area attività"
END           

LISTBOX QAF_AREAATT 1 19
BEGIN
  PROMPT STDINF 5 ""
  ITEM " |"
  ITEM "A|Area amministrativa"
  ITEM "B|Area vendita"
  ITEM "C|Area produzione"
  ITEM "D|Aree non definite"
  FIELD LF_QUAA->AREAATT
END                  

TEXT DLG_NULL 
BEGIN
  PROMPT 2 6 "13 Tipo"
END           

STRING QAF_TIPOATT 1
BEGIN             
  PROMPT STDINF 6 ""
  SHEET "Codice|Descrizione@50"
  INPUT QAF_TIPOATT
  ITEM " |Niente"
  ITEM "A|se a tempo parziale"
  ITEM "B|se di apprendistato"
  ITEM "C|se di formazione lavoro" 
  ITEM "D|se di formazione lavoro a tempo parziale"
  OUTPUT QAF_TIPOATT
  FIELD LF_QUAA->TIPO
  FLAGS "U"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 7 "14 Numero giorni"
END           

NUMBER F_NUMGIORNI 3
BEGIN
  PROMPT STDINF 7 ""
  FIELD LF_QUAA->NUMGIO
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 8 "15 Data fine rapporto"
END           

DATE F_DATAFR
BEGIN
  PROMPT STDINF 8 ""
  FIELD LF_QUAA->DATAFR
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 11 "16 Numero giorni detrazioni per lavoro dipendente"
END           

NUMBER QAF_GIODET 3
BEGIN
  PROMPT STDIMP 11 ""
  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              
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 12 "17 Codice fiscale precedente datore di lavoro"
END           

STRING F_CODFISDL 16
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAA->CFDLPREC            
  FLAGS "U"
  VALIDATE CF_FUNC F_CODFISDL
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 13 "18 Causa"
END           

NUMBER F_CAUSA 1
BEGIN
  PROMPT STDIMP 13 ""
  FIELD LF_QUAA->CAUSA
  SHEET "Codice|Descrizione@60"
  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..."
  ITEM "5|Altro"  
  ITEM "6|Sanatoria e compensi in natura e rimborsi spese"
  OUTPUT F_CAUSA
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 14 "19 Somme assoggettate ai contributi previd.e assist."
END                  

CURRENCY F_QASACTRPA LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAA->QASACTRPA
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 15 "20 Somme assoggettate a C.s.s.n."
END                  
                  
CURRENCY F_AIFCSSN49 LENIMP
BEGIN
  PROMPT STDIMP 15 ""
  FIELD LF_QUAA->AIFCSSN
  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

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 "21 Contributi previdenz.ed assist.obblig.lav.dip."
END                         
              
CURRENCY F_COBBDIP21 LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA->COBBDIP
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 5 "22 Contributi previdenza complementare ex D.Lgs.124/93"
END                         
              
CURRENCY F_QAEXCTRPC LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA->QAEXCTRPC
  PICTURE "."
END              
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 6 "23 Contributi lavoratore dipendente ex D.Lgs.579/95"
END                         
              
CURRENCY F_QAEXCTRLD LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA->QAEXCTRLD
  PICTURE "."
END                         
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 7 "24 Somme e valori non assoggettati a ritenuta"
END                         
              
CURRENCY QAF_SVNSOGRIT LENIMP
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAA->NORIT
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 8 "25 Erogazioni spese sanitarie (detrazioni importo interno)"
END                         
              
CURRENCY F_QAERGSAN LENIMP
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAA->QAERGSAN
  PICTURE "."
END       
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 9 "26 Erogazioni spese sanitarie (detrazioni importo parziale)"
END                         
              
CURRENCY F_ERSPSAN41 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAA->ERSPSAN
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 10 "27 Premi di assicurazione vita e infortuni"
END           

CURRENCY F_PRASSVI42 LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA->PRASSVI
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 11 "28 Contributi previd.complementare ex art.15,c.8,L.335/95"
END           

CURRENCY F_CONPRECO43 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA->CONPRECO
  PICTURE "."
END 
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 12 "29 Retribuzioni e pensioni"
END                         
              
CURRENCY F_DENARO LENIMP
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAA->DENARO
  PICTURE "."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 13 "30 Assegni e indennità erogati da enti previdenz.e assist."
END             
  
CURRENCY F_AIEREP23 LENIMP
BEGIN
  PROMPT STDIMP 13 ""
  FIELD LF_QUAA->AIENTIPREV
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 14 "31 Compensi da terzi"
END                         
              
CURRENCY F_CCTAMMCONT LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAA->CCTAMMCONT
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 15 "32 Imponibile"
END                         
              
CURRENCY F_QAIMPON LENIMP
BEGIN
  PROMPT STDIMP 15 ""
  FIELD LF_QUAA->QAIMPON
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 16 "33 Imposta corrispondente al totale imponibile"
END                         

CURRENCY F_ICTOTIMP30 LENIMP
BEGIN
  PROMPT STDIMP 16 ""
  FIELD LF_QUAA->ICTOTIMP
  PICTURE "."
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

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 "34 Detrazioni per coniuge a carico"
END           

CURRENCY F_DETCC LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA->DETCC
  PICTURE "."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 5 "35 Detrazioni per figli a carico"
END           

CURRENCY F_DETFC LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA->DETFC
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 6 "36 Detrazioni per altri familiari a carico"
END                         
              
CURRENCY F_DETAF LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA->DETAF
  PICTURE "."
END                                              

TEXT DLG_NULL 
BEGIN
  PROMPT 2 7 "37 Detrazioni per lavoro dipendente"
END           

CURRENCY F_DETLD LENIMP
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAA->DETLD
  PICTURE "."
END                                      
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 8 "38 Detrazioni per oneri"
END                         
              
CURRENCY F_DETO LENIMP
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAA->DETO
  PICTURE "."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 9 "39 Totale detrazioni"
END           

CURRENCY F_TOTDET36 LENIMP
BEGIN
  PROMPT STDIMP 9 ""
  FIELD LF_QUAA->TOTDET
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 10 "40 Ammontare delle ritenute dovute"
END           

CURRENCY F_AMMRITDOV LENIMP
BEGIN
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA->AMMRITDOV
  PICTURE "."
  FLAGS "D"
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 11 "41 Ammontare delle ritenute operate da terzi"
END                         
              
CURRENCY F_AMRIOT37 LENIMP
BEGIN
  PROMPT STDIMP 11 ""
  FIELD LF_QUAA->AMRIOT
  PICTURE "."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 12 "42 Ammontare delle ritenute operate dal datore lavoro"
END           

CURRENCY F_AMRIODL38 LENIMP
BEGIN
  PROMPT STDIMP 12 ""
  FIELD LF_QUAA->AMRIODL
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 13 "43 Eccedenza delle ritenute da rimborsare"
END           

CURRENCY F_ECCRITRIMB LENIMP
BEGIN
  PROMPT STDIMP 13 ""
  FIELD LF_QUAA->ECCRITRIMB
  PICTURE "."
END
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 14 "44 Contributo straordinario per l'Europa da trattenere"
END           

CURRENCY F_QACTREURO LENIMP
BEGIN
  PROMPT STDIMP 14 ""
  FIELD LF_QUAA->QACTREURO
  PICTURE "."
END  

ENDPAGE

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

TEXT DLG_NULL 
BEGIN
  PROMPT 2 4 "45 Contributi obbligatori a carico del dipendente"
END           

CURRENCY F_COBBDIP44 LENIMP
BEGIN
  PROMPT STDIMP 4 ""
  FIELD LF_QUAA->COBBDIP2
  PICTURE "."
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 5 "46 Imponibile"
END           

CURRENCY F_AMMIMP45 LENIMP
BEGIN
  PROMPT STDIMP 5 ""
  FIELD LF_QUAA->AMMIMP
  PICTURE "."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 6 "47 Detrazioni d'imposta"
END           

CURRENCY F_DETIMPOS46 LENIMP
BEGIN
  PROMPT STDIMP 6 ""
  FIELD LF_QUAA->DETIMPOS
  PICTURE "."
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 7 "48 Ritenuta eseguita"
END           

CURRENCY F_RITESEG47 LENIMP
BEGIN
  PROMPT STDIMP 7 ""
  FIELD LF_QUAA->RITESEG
  PICTURE "."
END                   
              
TEXT DLG_NULL 
BEGIN
  PROMPT 2 8 "49 Titolo"
END           

NUMBER F_QATITOLO 1
BEGIN
  PROMPT STDIMP 8 ""
  FIELD LF_QUAA->QATITOLO
  SHEET "Codice|Descrizione@60"
  INPUT F_QATITOLO
  ITEM " |Niente"
  ITEM "1|Legge"
  ITEM "2|Contratti collettivi"
  ITEM "3|Sentenze"
  ITEM "4|Amministrativi"
  ITEM "5|Altre cause non dipendenti dalla volontà delle parti"  
  ITEM "6|Se concorrono due o più dei codici precedenti"
  OUTPUT F_QATITOLO
  FLAGS "D"  
  MESSAGE ENABLE,F_QAPEIMP|ENABLE,F_QAARRETR           
  MESSAGE EMPTY DISABLE,F_QAPEIMP|DISABLE,F_QAARRETR          
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 9 "50 Periodo d'imposta"
END           

NUMBER F_QAPEIMP 2
BEGIN
  PROMPT STDIMP 9 "@b19 "
  FIELD LF_QUAA->QAPEIMP
  FLAGS "D"             
END           

TEXT DLG_NULL 
BEGIN
  PROMPT 2 10 "51 Arretrati relativi a più anni precedenti"
END           
              
BOOLEAN F_QAARRETR
BEGIN        
  PROMPT STDIMP 10 ""
  FIELD LF_QUAA->QAARRETR
  FLAGS "D"             
END

ENDPAGE

ENDMASK