campo-sirio/m770/771150a.uml

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

PAGE "Anagrafica dipendenti" -1 -1 78 21

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 ""
END

NUMBER ADF_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta     "
  FLAGS "RDG"
  USE LF_NDITTE KEY 1 
  FIELD LF_DIPEND->CODDITTA
  CHECKTYPE REQUIRED
  INPUT CODDITTA ADF_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_RAGSOCIALE RAGSOC
  KEY 1
END

STRING F_RAGSOCIALE 50
BEGIN
  PROMPT 19 1 ""
  FLAGS "D"
END

NUMBER ADF_DIP_CODDIP 6
BEGIN
  PROMPT 1 3 "Codice dipendente "
  USE LF_DIPEND  
  FIELD LF_DIPEND->CODDIP 
  INPUT CODDITTA ADF_CODDITTA SELECT
  INPUT CODDIP 	 ADF_DIP_CODDIP
  DISPLAY "Codice" 	CODDIP
  DISPLAY "Cognome@24" 			COGNOME
  DISPLAY "Nome@20" 			NOME
  OUTPUT ADF_DIP_CODDIP CODDIP
  OUTPUT F_DIP_COGNOME 	COGNOME
  OUTPUT F_DIP_NOME 	NOME
  FLAGS "R"
  CHECKTYPE REQUIRED
  KEY 1
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 0 4 ""
END

STRING F_DIP_CODFI 16
BEGIN      
  PROMPT 1 5 "Codice fiscale    "
  FLAGS "U"
  FIELD LF_DIPEND->CODFI
  VALIDATE XTCF_FUNC F_DIPCODFI F_DIP_SESSO F_DIP_DATANA ADF_CODCOMNASC
END

STRING F_DIP_COGNOME 24
BEGIN              
  PROMPT 1 6 "Cognome           "
  FIELD LF_DIPEND->COGNOME
END
                
STRING F_DIP_NOME 20
BEGIN
  PROMPT 50 6 "Nome " 
  FIELD LF_DIPEND->NOME   
END

LIST F_DIP_SESSO 1
BEGIN
  PROMPT 1 7 "Sesso             "
  ITEM "M|M"
  ITEM "F|F"
  FIELD LF_DIPEND->SESSO
END

DATA F_DIP_DATANA 
BEGIN
  PROMPT 35 7 "Data di nascita   "
  FIELD LF_DIPEND->DATANA
END

STRING ADF_CODCOMNASC 4
BEGIN
  PROMPT 1 8 "Codice Comune di nascita "
  USE LF_COMUNI
  INPUT COM ADF_CODCOMNASC
#include <comdcod.h>  
CHECKYPE NORMAL
  OUTPUT ADF_COMNASC	DENCOM
  OUTPUT F_DIP_PROVNA	PROVCOM
  FLAGS "HG"
END

STRING ADF_COMNASC 50
BEGIN
  PROMPT 1 8 "Comune di nascita "
  USE LF_COMUNI KEY 2
  INPUT DENCOM ADF_COMNASC
#include <comdcod.h>  
  OUTPUT ADF_COMNASC	DENCOM
  OUTPUT F_DIP_PROVNA	PROVCOM
  FIELD LF_DIPEND->COMUNENA
END

STRING F_DIP_PROVNA 2
BEGIN
  PROMPT 1 9 "Provincia di nascita "
  FIELD LF_DIPEND->PROVNA
END            
                             
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 11 "Residenza"
END       
          
STRING ADF_COMRES 50
BEGIN
  PROMPT 1 12 "Comune "
  USE LF_COMUNI KEY 2
  INPUT DENCOM ADF_COMRES
#include <comdcod.h>  
  OUTPUT ADF_COMRES		DENCOM
  OUTPUT F_DIP_PROVRE	PROVCOM
  FIELD LF_DIPEND->COMRES
END
          
STRING F_DIP_PROVRE 2
BEGIN
  PROMPT 1 13 "Provincia "
  FIELD LF_DIPEND->PROVRES
END      

STRING F_DIP_INDRE 24
BEGIN
  PROMPT 22 13 "Indirizzo "
  FIELD LF_DIPEND->INDRES
END
                             
NUMBER F_DIP_QUALIFICA 2
BEGIN
  PROMPT 1 15 "Qualifica         "
  FIELD LF_DIPEND->QUALIFICA
  SHEET "Codice|Descrizione@85"
  INPUT F_DIP_QUALIFICA
  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_DIP_QUALIFICA
END


LIST F_DIP_STATOCIV 23
BEGIN
  PROMPT 37 15 "Stato civile "
  FIELD LF_DIPEND->STATOCIV
  ITEM "|"
  ITEM "1|Celibe/Nubile"
  ITEM "2|Coniugato/a"
  ITEM "3|Vedovo/a"
  ITEM "4|Separato/a legalmente"
  ITEM "5|Divorziato/a"
  ITEM "6|Deceduto/a"
  ITEM "7|Tutelato/a"
  ITEM "8|Figlio/a minore"
  FLAG "H" // non visualizzato per dichiarazioni 97 
END

NUMBER ADF_CODDIPDEC 6
BEGIN
  PROMPT 1 16 "Codice dipendente deceduto "
  USE LF_DIPEND KEY 1 SELECT ((CODDITTA==#ADF_CODDITTA)&&(CODDIP!=#ADF_DIP_CODDIP)&&(QUALIFICA!="11"))
  FIELD LF_DIPEND->CODDIPDEC
  INPUT CODDITTA	ADF_CODDITTA
  INPUT CODDIP		ADF_CODDIPDEC
  DISPLAY "Codice dipendente" 	CODDIP
  DISPLAY "Cognome@24"  		COGNOME
  DISPLAY "Nome@20" 			NOME
  OUTPUT ADF_CODDIPDEC 			CODDIP
  WARNING "Codice dipendente deceduto non valido"
  VALIDATE NOT_EMPTY_CHECK_FIELD
  CHECKTYPE NORMAL
END

LISTBOX ADF_ASSFIS 1 40
BEGIN
  PROMPT 1 17 "Assistenza fiscale per l'anno 97 "
  ITEM "0|Non si <20> avvalso dell'assistenza fiscale"
  ITEM "1|Del datore di lavoro"
  ITEM "2|Del CAAF"
  FIELD LF_DIPEND->ASSFIS
END

ENDPAGE

PAGE "Eredi" -1 -1 78 21

GROUPBOX DLG_NULL 76 12
BEGIN
  PROMPT 1 1 "Eredi"
END       
                   
NUMBER F_DIP_CODEREDE0 6
BEGIN
  PROMPT 3 2 "Codice  "
  FIELD LF_DIPEND->CODEREDE0
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA	ADF_CODDITTA
  INPUT CODDIP    	F_DIP_CODEREDE0      
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME 
  OUTPUT F_DIP_CODEREDE0  CODDIP
  OUTPUT F_DIP_COGNEREDE0 COGNOME
  OUTPUT F_DIP_NOMEREDE0  NOME
  FLAG "DGR"
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE0 24
BEGIN
  PROMPT 22 2 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE0 20
BEGIN
  PROMPT 50 2 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE1 6
BEGIN
  PROMPT 11 3 ""
  FIELD LF_DIPEND->CODEREDE1
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA	ADF_CODDITTA
  INPUT CODDIP		F_DIP_CODEREDE1
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE1	CODDIP
  OUTPUT F_DIP_COGNEREDE1 	COGNOME
  OUTPUT F_DIP_NOMEREDE1 	NOME
  CHECKTYPE NORMAL
  FLAG "DR"              
END
           
STRING F_DIP_COGNEREDE1 24
BEGIN
  PROMPT 22 3 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE1 20
BEGIN
  PROMPT 50 3 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE2 6
BEGIN
  PROMPT 11 4 ""
  FIELD LF_DIPEND->CODEREDE2
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA	ADF_CODDITTA
  INPUT CODDIP		F_DIP_CODEREDE2
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE2 	CODDIP
  OUTPUT F_DIP_COGNEREDE2 	COGNOME
  OUTPUT F_DIP_NOMEREDE2 	NOME
  CHECKTYPE NORMAL  
  FLAG "DR"       
END
           
STRING F_DIP_COGNEREDE2 24
BEGIN
  PROMPT 22 4 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE2 20
BEGIN
  PROMPT 50 4 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE3 6
BEGIN
  PROMPT 11 5 ""
  FIELD LF_DIPEND->CODEREDE3
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA	ADF_CODDITTA
  INPUT CODDIP		F_DIP_CODEREDE3
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE3	CODDIP
  OUTPUT F_DIP_COGNEREDE3 	COGNOME
  OUTPUT F_DIP_NOMEREDE3 	NOME
  CHECKTYPE NORMAL  
  FLAG "DR"       
END
           
STRING F_DIP_COGNEREDE3 24
BEGIN
  PROMPT 22 5 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE3 20
BEGIN
  PROMPT 50 5 ""
  FLAG "D"
END
             
NUMBER F_DIP_CODEREDE4 6
BEGIN
  PROMPT 11 6 ""
  FIELD LF_DIPEND->CODEREDE4
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA 	ADF_CODDITTA
  INPUT CODDIP		F_DIP_CODEREDE4
  DISPLAY "Codice"		CODDIP
  DISPLAY "Cognome@24"	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE4	CODDIP
  OUTPUT F_DIP_COGNEREDE4 	COGNOME
  OUTPUT F_DIP_NOMEREDE4 	NOME
  FLAG "DR"       
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE4 24
BEGIN
  PROMPT 22 6 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE4 20
BEGIN
  PROMPT 50 6 ""
  FLAG "D"
END
             
NUMBER F_DIP_CODEREDE5 6
BEGIN
  PROMPT 11 7 ""
  FIELD LF_DIPEND->CODEREDE5
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA 	ADF_CODDITTA
  INPUT CODDIP 		F_DIP_CODEREDE5
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE5 	CODDIP
  OUTPUT F_DIP_COGNEREDE5 	COGNOME
  OUTPUT F_DIP_NOMEREDE5 	NOME
  FLAG "DR"       
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE5 24
BEGIN
  PROMPT 22 7 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE5 20
BEGIN
  PROMPT 50 7 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE6 6
BEGIN
  PROMPT 11 8 ""
  FIELD LF_DIPEND->CODEREDE6
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA 	ADF_CODDITTA
  INPUT CODDIP 		F_DIP_CODEREDE6
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE6	CODDIP
  OUTPUT F_DIP_COGNEREDE6 	COGNOME
  OUTPUT F_DIP_NOMEREDE6 	NOME
  FLAG "DR"       
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE6 24
BEGIN
  PROMPT 22 8 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE6 20
BEGIN
  PROMPT 50 8 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE7 6
BEGIN
  PROMPT 11 9 ""
  FIELD LF_DIPEND->CODEREDE7
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA 	ADF_CODDITTA
  INPUT CODDIP 		F_DIP_CODEREDE7
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE7 	CODDIP
  OUTPUT F_DIP_COGNEREDE7 	COGNOME
  OUTPUT F_DIP_NOMEREDE7 	NOME
  FLAG "DR"       
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE7 24
BEGIN
  PROMPT 22 9 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE7 20
BEGIN
  PROMPT 50 9 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE8 6
BEGIN
  PROMPT 11 10 ""
  FIELD LF_DIPEND->CODEREDE8
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA 	ADF_CODDITTA
  INPUT CODDIP 		F_DIP_CODEREDE8
  DISPLAY "Codice" 		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE8	CODDIP
  OUTPUT F_DIP_COGNEREDE8 	COGNOME
  OUTPUT F_DIP_NOMEREDE8 	NOME
  FLAG "DR"       
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE8 24
BEGIN
  PROMPT 22 10 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE8 20
BEGIN
  PROMPT 50 10 ""
  FLAG "D"
END

NUMBER F_DIP_CODEREDE9 6
BEGIN
  PROMPT 11 11 ""
  FIELD LF_DIPEND->CODEREDE9
  USE LF_DIPEND KEY 1  SELECT ((CODDITTA=#ADF_CODDITTA))
  INPUT CODDITTA 	ADF_CODDITTA
  INPUT CODDIP		F_DIP_CODEREDE9
  DISPLAY "Codice"		CODDIP
  DISPLAY "Cognome@24" 	COGNOME
  DISPLAY "Nome@20" 	NOME  
  OUTPUT F_DIP_CODEREDE9	CODDIP
  OUTPUT F_DIP_COGNEREDE9 	COGNOME
  OUTPUT F_DIP_NOMEREDE9 	NOME
  FLAG "DR"       
  CHECKTYPE NORMAL
END
           
STRING F_DIP_COGNEREDE9 24
BEGIN
  PROMPT 22 11 ""
  FLAG "D"                  
END

STRING F_DIP_NOMEREDE9 20
BEGIN
  PROMPT 50 11 ""
  FLAG "D"
END

ENDPAGE

ENDMASK