*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="opersonal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _container AS container 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />

	*<PropValue>
		BackStyle = 0
		BorderWidth = 0
		Height = 35
		Name = "_container"
		Width = 639
	*</PropValue>

	ADD OBJECT 'Line1' AS line WITH ;
		BorderColor = 99,148,234, ;
		Height = 0, ;
		Left = 0, ;
		Name = "Line1", ;
		Top = 0, ;
		Width = 541
		*< END OBJECT: BaseClass="line" />

	ADD OBJECT 'Shape3' AS _shape WITH ;
		Anchor = 14, ;
		BackColor = 181,198,255, ;
		BorderColor = 99,148,234, ;
		Curvature = 15, ;
		Height = 39, ;
		Left = 0, ;
		Name = "Shape3", ;
		Top = -5, ;
		Width = 541
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
	
	PROCEDURE Init
		This.Shape3.Width = THis.Width - 1
		This.Shape3.Height  = THis.Height - 4
	ENDPROC

ENDDEFINE

DEFINE CLASS but_noup AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_adauga
		cpicturedown = nou_jos_dis.bmp
		cpictureup = nou_sus_dis.bmp
		Name = "but_noup"
		Picture = ..\grafice\nou_sus_dis.bmp
		ToolTipText = "Adaugare (CTRL+N)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cus_odata_articol AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_articol"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lnIdArticol = NVL(ALLTRIM(STR(torec.id_articol)),"")
			lnIdConditie = NVL(ALLTRIM(STR(torec.id_conditie)),"")
			lnCant = NVL(ALLTRIM(STR(torec.cantitate,10,4)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO necesar_echip (id_articol,id_conditie,cantitate) VALUES (] + lnIdArticol + ;
						[,] + lnIdConditie + [,] + lnCant + [)] 
			
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE necesar_echip SET id_articol = ] + lnIdArticol + ;
				[,id_conditie = ] + lnIdConditie + [,cantitate = ] + lnCant + [ where id_nec = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [UPDATE necesar_echip set sters = 1 where id_nec = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_atas AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_atas"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		
		Do Case
			
			Case lcActiune = "DELETE"
			
				lcSql = [UPDATE sal_atasamente set sters = 1 where id_sal_atasamente = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_avize AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_avize"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		*!*		lclook = gcS + ".dev_oper_mecanici"
		*!*		lclookid = "dev_oper_mecanici.id_mecanic"
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
		
			lcAviz = Nvl(ALLTRIM(toRec.aviz),"")
			lcData1 = NVL(ALLTRIM(DTOS(torec.data1)),"")
			lcData2 = NVL(ALLTRIM(DTOS(torec.data2)),"")
			lcIdP = Nvl(ALLTRIM(STR(toRec.id_persoana)),"")
		
		
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_avize (aviz,data1,data2,id_persoana) VALUES ('];
				  + lcAviz + [',to_date('] + lcData1 + [','YYYYMMDD'),to_date('] + lcData2 + [','YYYYMMDD'),]+lcIdp+[)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_avize SET ]+;
				[aviz='] + lcAviz + [',data1 = to_date('] + lcData1 + [','YYYYMMDD')]+;
				[,data2 =to_date('] + lcData2 + [','YYYYMMDD')]+;
				[,id_persoana = ]+ lcIdp +;
				 [ where id_aviz = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [update sal_avize set sters=1 where id_aviz =]+lcid
				*lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		*!*			lcSql = [delete from ] + gcS + [.sal_centralizator WHERE id_centralizator = ] +  lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_bazacm AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_bazacm"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		*!*		lclook = gcS + ".dev_oper_mecanici"
		*!*		lclookid = "dev_oper_mecanici.id_mecanic"
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
		
			lcLuna = Nvl(ALLTRIM(str(toRec.luna)),"0")
			lcAn = Nvl(ALLTRIM(str(toRec.an)),"0")
			lcBazacalcul = Nvl(Alltrim(Str(toRec.bazacalcul)),"0")
			lcZilelucr = Nvl(Alltrim(Str(toRec.zilelucr)),"0")
			lcId_stat = Nvl(Alltrim(Str(toRec.id_stat)),"0")
		
		
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_baze_cm (an,luna,bazacalcul,zilelucr,id_stat) VALUES (];
				  + lcAn + [,] + lcLuna + [,]+lcBazacalcul+[,]+lcZIlelucr + [,]+lcid_stat +[)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_baze_cm SET ]+;
				[an=] + lcAn+ [,luna = ]+ lcLuna +;
				[,Bazacalcul =]+lcBazaCalcul+;
				[,zilelucr = ]+ lcZilelucr +;
				 [ where id_bazacm = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [update sal_baze_cm set sters=1 where id_bazacm =]+lcid
				*lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		*!*			lcSql = [delete from ] + gcS + [.sal_centralizator WHERE id_centralizator = ] +  lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_completeznrdata112 AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_completeznrdata112"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
			lcnom = gcS + ".sal_calendar"
			lcamp = "id_calendar"
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcnrdata112 = NVL(ALLTRIM(torec.nrdata112),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
		*!*			lcSql = [INSERT INTO SAL_NOM_ACTE (nume_act) VALUES ('];
		*!*			 + lcnumeact + [')]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_calendar SET nrdata112 = '] + lcnrdata112 + ;
				[' where id_calendar = ] + lcId
		
			Case lcActiune = "DELETE"
			
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_cond AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_cond"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcDenumire = NVL(UPPER(ALLTRIM(torec.denumire)),"")
			lcConditie = NVL(UPPER(ALLTRIM(torec.conditie)),"")
		
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO nom_conditii_echip (denumire,conditie) VALUES ('] + lcDenumire + ;
				[','] + lcConditie + [')] 
			
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE nom_conditii_echip SET denumire = '] + lcDenumire + [',conditie = '] + lcConditie + ;
				[' where id_conditie = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [begin pack_personal.sterge_conditie(] + lcId + [); end;]
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_curs AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_curs"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
			lcNota = NVL(UPPER(ALLTRIM(torec.nota)),"")
			lcTest = NVL(UPPER(ALLTRIM(torec.test)),"")	
			lnIdCurs = Nvl(ALLTRIM(STR(toRec.id_c)),"")
			ldData = NVL(ALLTRIM(DTOS(torec.data)),"")
		
		*!*		lData = torec.data
			
		
		*!*		lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_cursuri (id_c,id_persoana,nota,test,data) VALUES (] + lnIdCurs + ;
				[,] + lnIdPers + [,'] + lcNota+ [','] + lcTest + [',to_date('] + ldData + [','YYYYMMDD'))] 
			
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_cursuri SET id_c = ] + lnIdCurs + [,id_persoana = ] + lnIdPers + ;
				[,nota = '] + lcNota + [',test = '] + lcTest + [',data = to_date('] + ldData + [','YYYYMMDD')] + ;
				[ where id_curs = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [UPDATE ] + gcs + [.sal_cursuri set sters = 1 where id_curs = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_echip AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_echip"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lnIdPart = NVL(ALLTRIM(STR(torec.id_part)),"")
			lcNumar = NVL(UPPER(ALLTRIM(torec.numar)),"")
			lnidArt = Nvl(ALLTRIM(STR(toRec.id_articol)),"")
		
			
		*!*		lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_echip (id_articol,numar,id_part) VALUES (] + lnidArt + ;
				[,'] + lcNumar + [',] + lnIdPart + [)] 
			
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_echip SET id_articol = ] + lnidArt + [,id_part = ] + lnIdPart + ;
				[,numar = '] + lcNumar + [' where id_echip = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [UPDATE sal_echip set sters = 1 where id_echip = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_fam AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_fam"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
			lcnom = gcS + ".sal_copii"
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcNume = NVL(UPPER(ALLTRIM(torec.nume)),"")
			lcPrenume = NVL(UPPER(ALLTRIM(torec.prenume)),"")
			lnCnp = Nvl(ALLTRIM(STR(toRec.codpers,13)),"")
			lnIdP = Nvl(ALLTRIM(STR(toRec.id_persoana)),"")
			ldDataNast = NVL(ALLTRIM(DTOS(torec.datanast)),"")
		
		*!*		lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_copii (nume,prenume,codpers,id_persoana,datanast) VALUES ('] + lcNume+ [','] + lcPrenume + ;
				[',] + lnCnp + [,] + lnIdP + [,to_date('] + ldDatanast + [','YYYYMMDD'))]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_copii SET nume = '] +lcNume + [',prenume ='] + lcPrenume + ;
				[',codpers = ] + lnCnp + [,datanast = to_date('] + ldDatanast + [','YYYYMMDD') where id_copil = ] + lcId
		
			Case lcActiune = "DELETE"
			
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
				lcSql = [UPDATE sal_copii set sters = 1 where id_copil = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_intret AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_intret"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
			lcnom = gcS + ".sal_persintret"
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcNume = NVL(UPPER(ALLTRIM(torec.nume)),"")
			lcPrenume = NVL(UPPER(ALLTRIM(torec.prenume)),"")
			lnCnp = Nvl(ALLTRIM(STR(toRec.codpers,13)),"")
			lnIdD= Nvl(ALLTRIM(STR(toRec.id_deducere)),"")
			lnIdH = NVL(ALLTRIM(STR(toRec.id_handicap)),"")
			lnIdStat = NVL(ALLTRIM(STR(toRec.id_stat)),"")
		
		*!*		lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_persintret (nume,prenume,codpers,id_deducere,id_handicap,id_stat) VALUES ('] + lcNume+ [','] + lcPrenume + ;
				[',] + lnCnp + [,] + lnIdD + [,] + lnIdH + [,] + lnIdStat +[)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_persintret SET nume = '] +lcNume + [',prenume ='] + lcPrenume + ;
				[',codpers = ] + lnCnp + [,id_deducere = ] + lnIdD + [,id_handicap = ] + lnIdH + ;
				[,id_stat = ] + lnIdStat + [ where id_pers = ] + lcId
		
			Case lcActiune = "DELETE"
			
		*!*			lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
				lcSql = [UPDATE sal_persintret SET STERS = 1  WHERE id_pers = ] +  lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_limbi AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_limbi"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		*!*		lcnom = gcS + ".sal_copii"
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
			lcNota = NVL(UPPER(ALLTRIM(torec.nota)),"")
			lnIdLimba = Nvl(ALLTRIM(STR(toRec.id_limba)),"")
		
		*!*		lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_limbistr (nota,id_persoana,id_limba) VALUES ('] + lcNota+ [',] + ;
				lnIdPers + [,] + lnIdLimba + [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_limbistr SET nota = '] +lcNota + [',id_limba =] + lnIdLimba + ;
				[ where id_str = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [UPDATE sal_limbistr set sters = 1 where id_str = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_nom_acte AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_nom_acte"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
			lcnom = gcS + ".sal_nom_acte"
			lcamp = "id_act"
			lclook = gcS + ".sal_nom_col_acte"
			lclookid = "id_act"
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcnumeact = NVL(ALLTRIM(torec.nume_act),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO SAL_NOM_ACTE (nume_act) VALUES ('];
				 + lcnumeact + [')]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE SAL_NOM_ACTE SET nume_act = '] + lcnumeact + ;
				[' where id_act = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_opers AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_opers"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
			*!*		lcnom = "sal_personal"
			*!*		lcamp = "id_salariat"
			*!*		lcLookUp = "SAL_STAT.id_persoana,1"
		Endif
		SET STEP ON 
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcnume = Nvl(Strtran(Alltrim(Upper(popers.nume)),['],['']),"")
			lcprenume = Nvl(Strtran(Alltrim(Upper(popers.prenume)),['],['']),"")
			lnmarca = Nvl(Alltrim(Str(popers.marca)),"null")
			lnCnp = Nvl(Alltrim(popers.codpers),"null")
			lcNastere = Nvl(Strtran(Alltrim(Upper(popers.locnastere)),['],['']),"")
			lcid_Cetatenie = Nvl(Alltrim(Str(popers.id_cetatenie)),'1')
			lcid_nationalitate =  Nvl(Alltrim(Str(popers.id_nationalit)),'1')
			lcBiSeriaNr = Nvl(Strtran(Alltrim(Upper(popers.biserianr)),['],['']),"")
			lcBiElib = Nvl(Strtran(Alltrim(Upper(popers.bieliberat)),['],['']),"")
			ldData = Nvl(Alltrim(Dtos(popers.bidata)),"")
			lcid_Judet = Nvl(Strtran(Alltrim(Str(popers.id_judet)),['],['']),"null")
			lnSector = Nvl(Alltrim(Str(popers.sector)),"null")
			lcid_Loc = Iif(Empty(popers.id_loc),'null',Nvl(Strtran(Alltrim(Upper(Str(popers.id_loc))),['],['']),"null"))
			lcStrada = Nvl(Strtran(Alltrim(Upper(popers.strada)),['],['']),"")
			lcNumar = Nvl(Strtran(Alltrim(Upper(popers.numar)),['],['']),"")
			lcBloc = Nvl(Strtran(Alltrim(Upper(popers.Bloc)),['],['']),"")
			lcScara = Nvl(Strtran(Alltrim(Upper(popers.scara)),['],['']),"")
			lnEtaj = Nvl(Alltrim(popers.etaj),'')
			lnApart = Nvl(Alltrim(popers.apart),'')
			lcCodP = Nvl(Alltrim(Str(popers.codpostal)),"null")
			lcSitmil = Nvl(Strtran(Alltrim(popers.sitmil),['],['']),"")
			lcLivretMil = Nvl(Strtran(Alltrim(popers.livretmil),['],['']),"")
			lcspecmil = Nvl(Strtran(Alltrim(Upper(popers.specmil)),['],['']),"")
			lcgradmil = Nvl(Strtran(Alltrim(Upper(popers.gradmil)),['],['']),"")
			lnstareciv = Alltrim(Str(NVL(popers.stareciv,0)))
			lcnumetata = Nvl(Strtran(Alltrim(Upper(popers.numetata)),['],['']),"")
			lcnumesot = Nvl(Strtran(Alltrim(Upper(popers.numesot)),['],['']),"")
			lcnumemama = Nvl(Strtran(Alltrim(Upper(popers.numemama)),['],['']),"")
		
			ldDataang = Nvl(Alltrim(Dtos(popers.dataang)),"")
			ldDatasfctr = Nvl(Alltrim(Dtos(popers.datasfctr)),"")
			lnIdTipCtr = Alltrim(Str(NVL(popers.id_tipctr,0)))
			lnIdMeseria = Alltrim(Str(NVL(popers.id_meserie,0)))
			lnIdFormatia = Alltrim(Str(NVL(popers.id_formatie,0)))
			lnIdGrupaMun = Alltrim(Str(NVL(popers.id_cas,0)))
			lnIdClasaSal = Alltrim(Str(NVL(popers.id_clasasal,0)))
			lnTarifar = Alltrim(Str(NVL(popers.tarifar,0)))
			lnIdHandicap = Alltrim(Str(NVL(popers.id_handicap,0)))
			lnPLCas = Alltrim(Str(NVL(popers.plcas,0)))
			lnPLSomaj = Alltrim(Str(NVL(popers.plsomaj,0)))
			lnPensionar = Alltrim(Str(NVL(popers.pensionar,0)))
			lnPLImpozit = Alltrim(Str(NVL(popers.plimpozit,0)))
			lnFractie = Iif(Empty(NVL(popers.fractie,0)),'8',Alltrim(Str(popers.fractie)))
			lnOrenorm = Alltrim(Str(NVL(popers.orenorm,0)))
			lnFunctieBaza = Alltrim(Str(NVL(popers.functiebaza,0)))
			ldDatalic = Nvl(Alltrim(Dtos(popers.datalic)),"")
			lcCmseria = Nvl(Strtran(Alltrim(popers.cmseria),['],['']),"")
			lcCmNr = Nvl(Strtran(Alltrim(popers.cmnr),['],['']),"")
		*!*		lcNrCtrM = Alltrim(Str(NVL(popers.nrctrmchr,null)))
		
			lcNrCtrM = Iif(Empty(NVL(popers.nrctrmchr,'')),'null',[']+Strtran(Alltrim(Upper(popers.nrctrmchr)),['],[''])+['])
			
			lcDatactrM = Nvl(Alltrim(Dtos(popers.datactrM)),"")
			lcNrCtr = Alltrim(Str(NVL(popers.nrctr,0)))
			lcDatactr = Nvl(Alltrim(Dtos(popers.datactr)),"")	
			lnIdCasaasig = Alltrim(Str(NVL(popers.id_caseasig,0)))
			lnIdStat = Alltrim(Str(NVL(popers.id_stat,0)))
			lnIdProfesie = Nvl(Alltrim(Str(popers.id_profesie)),'NULL')
			ldData_vech  = Nvl(Alltrim(Dtos(popers.data_vech)),"")
			lnVechimeI = Nvl(Alltrim(Str(popers.vechimei)),'0')
			lnVechime = Nvl(Alltrim(Str(popers.vechime)),'0')
			lcModIncadr = Nvl(Strtran(Alltrim(popers.modincadr),['],['']),"")
			lcIban = Nvl(Strtran(Alltrim(popers.contiban),['],['']),"")
			lnIdBanca = Nvl(Alltrim(Str(popers.id_banca)),'NULL')
			lnc_vechime = Nvl(Alltrim(Str(popers.c_vechime,5,3)),'0')
			lnIn_tura = Nvl(Alltrim(Str(popers.in_tura)),'0')
			lnId_part = Iif(Empty(popers.id_part),'null',Nvl(Strtran(Alltrim(Upper(Str(popers.id_part))),['],['']),"null"))
			lnid_modlic = Iif(Empty(popers.id_modlic),'null',Nvl(Strtran(Alltrim(Upper(Str(popers.id_modlic))),['],['']),"null"))
			lcmotivLic = Nvl(Strtran(Alltrim(Upper(popers.motivlic)),['],['']),"")
			lcId_tip_act = Nvl(Alltrim(Str(popers.id_tip_act)),'0')
			lcElev = Nvl(Alltrim(Str(popers.elev)),'0')
			lczilecofix = NVL(ALLTRIM(STR(popers.zilecofix)),'0')
			lcSomajTehnic = NVL(ALLTRIM(STR(popers.somaj_tehnic)),'0')
			lcDataST1= Nvl(Alltrim(Dtos(popers.datast1)),"")
			lcDataST2= Nvl(Alltrim(Dtos(popers.datast2)),"")	
		
			*!*	modificare	v 2.0.0
			lcStare = ALLTRIM(STR(popers.stare_contract))
			lcStarePrec = ALLTRIM(STR(popers.stare_contract_prec))
			lcDataInceputS = NVL(ALLTRIM(DTOS(popers.datainceputs)),"")
			lcDataSfarsitS = NVL(ALLTRIM(DTOS(popers.datasfarsits)),"")
			lcIdPartS = NVL(ALLTRIM(STR(popers.id_parts)),"NULL")
			lcIdTaraS = NVL(ALLTRIM(STR(popers.id_taras)),"NULL")
			lcIdTemeiS = NVL(ALLTRIM(STR(popers.id_temeis)),"NULL")
			
			lcIdTipAutorizatie = IIF(EMPTY(NVL(popers.id_tipautorizatie,0)),"NULL",ALLTRIM(STR(popers.id_tipautorizatie)))
			lcDataIAutorizatie = NVL(ALLTRIM(DTOS(popers.datainceputautorizatie)),"")
			lcDataSAutorizatie = NVL(ALLTRIM(DTOS(popers.datasfarsitautorizatie)),"")
			*!*	modificare	v 2.0.0	^
			*!*	modificare	ROARES v 2.0.4
			lcTipModificare = ALLTRIM(STR(popers.tip_modificare))
			lcDataConsemnare = NVL(ALLTRIM(DTOS(popers.dataconsemnare)),"")
			*!*	modificare	ROARES v 2.0.4	^	
			*!*	modificare	ROARES v 2.0.6
			lcIdStareCtr = NVL(ALLTRIM(STR(popers.id_stare_ctr)),"NULL")
			*!*	modificare	ROARES v 2.0.6	^	
			*!*	modificare	ROARES v 2.0.8
			lcIdTipNorma = ALLTRIM(STR(popers.id_tip_norma))
			lcIdDurataMunca = ALLTRIM(STR(popers.id_durata_munca))
			lcIdRepartizareMunca = ALLTRIM(STR(popers.id_repartizare_munca))
			lcIdIntervalMunca = IIF(EMPTY(NVL(popers.id_interval_munca,0)),[NULL],ALLTRIM(STR(popers.id_interval_munca)))
			*!*	modificare	ROARES v 2.0.8	^	
			lcIdSalCtr = Iif(Empty(Nvl(popers.id_sal_ctr,0)),[NULL],Alltrim(Str(popers.id_sal_ctr)))	&&	modificare ROARES v 2.0.11
			lcDataactmodif = NVL(ALLTRIM(DTOS(popers.dataactmodif)),"")
			lcId_tipact = ALLTRIM(STR(popers.id_tipact))	
			lcNrActModif = ALLTRIM(STR(popers.nractmodif))
			lcIdTipApatrid = IIF(EMPTY(NVL(popers.id_tipapatrid,0)),"0",ALLTRIM(STR(popers.id_tipapatrid)))
			lcCassalmin = Nvl(Alltrim(Str(popers.cassalmin)),'0')
			lcoug114 = NVL(ALLTRIM(STR(IIF(popers.oug114>0,popers.oug114-1,0))),'1')
			lcStudiiSup = Nvl(Alltrim(Str(popers.studiisup)),'0')
			&&sc_general,sc_prof,licprofil,licspec,sc_maistri,sc_post,specializare 
			lcSc_general = IIF(EMPTY(NVL(popers.sc_general,'')),'null',[']+ALLTRIM(popers.sc_general)+['])
			lcsc_prof = IIF(EMPTY(NVL(popers.sc_prof,'')),'null',[']+ALLTRIM(popers.sc_prof)+['])
			lclicprofil = IIF(EMPTY(NVL(popers.licprofil,'')),'null',[']+ALLTRIM(popers.licprofil)+['])
			lclicspec = IIF(EMPTY(NVL(popers.licspec,'')),'null',[']+ALLTRIM(popers.licspec)+['])
			lcsc_maistri = IIF(EMPTY(NVL(popers.sc_maistri,'')),'null',[']+ALLTRIM(popers.sc_maistri)+['])
			lcsc_post = IIF(EMPTY(NVL(popers.sc_post,'')),'null',[']+ALLTRIM(popers.sc_post)+['])
			lcspecializare = IIF(EMPTY(NVL(popers.specializare,'')),'null',[']+ALLTRIM(popers.specializare)+['])
			lcCodAcc = IIF(EMPTY(NVL(popers.codacc,'')),'null',[']+ALLTRIM(popers.codacc)+['])
			lcTelefon = IIF(EMPTY(NVL(popers.telefon,'')),'null',[']+ALLTRIM(popers.telefon)+['])
			lcCodCod = IIF(EMPTY(NVL(popers.codcod,'')),'null',[']+ALLTRIM(popers.codcod)+['])
		Endif
		
		Do Case
			Case lcActiune = "INSERT"
				*!*			lcSql = [begin pack_roares.res_adauga_personal(?gcs,?lcnume,?lcprenume,?lnmarca,?lnCnp,?lcJudet,?lcLocalitate,] + ;
				*!*			[?lnSector,?lcStrada,?lcNumar,?lcBloc,?lcScara,?lnEtaj,?lnApart,?lcCmSeria,?lcCmNr,?lcNastere,?lcNationalit,] + ;
				*!*			[?lcCetatenie,?lcBiSeria,?lnBiNr?lcBiElib,?ldData,?lcSitMil,?lcLivretMil); end;]
				lcSql = [begin pack_PERSONAL.res_adauga_personal2('] + gcs + [','] + ;
					lcnume + [','] + lcprenume + [',] + lnmarca + [,'] + lnCnp + [','] + lcNastere + [',] + ;
					lcid_Cetatenie + [,] + lcid_nationalitate + [,'] + lcBiSeriaNr + [','] + ;
					lcBiElib + [',to_date('] + ldData + [','YYYYMMDD'),] + lcid_Judet + [,] + lnSector + [,] +lcid_Loc+ [,'] + ;
					lcStrada + [','] + lcNumar + [','] + lcBloc + [','] + lcScara + [','] + ;
					lnEtaj + [','] + lnApart + [',] + lcCodP + [,'] + lcSitmil + [','] + lcLivretMil + [','] + lcspecmil + [','] + ;
					lcgradmil + [',] + lnstareciv + [,'] + lcnumetata + [','] + lcnumesot + [','] + lcnumemama + ;
					[',to_date('] + ldDataang + [','YYYYMMDD'),to_date('] + ldDatasfctr + [','YYYYMMDD'),] + ;
					lnIdTipCtr + [,] + lnIdMeseria + [,] + lnIdFormatia + [,] + lnIdGrupaMun + [,] + lnIdClasaSal + [,] + ;
					lnTarifar + [,] + lnIdHandicap + [,] + lnPLCas + [,] + lnPLSomaj + [,] + lnPensionar + [,] + ;
					lnPLImpozit + [,] + lnFractie + [,] + lnOrenorm + [,] + lnFunctieBaza + [,to_date(']+ldDatalic+[','YYYYMMDD'),']+;
					lcCmseria + [','] + lcCmNr +[',] + lcNrCtrM + [,to_date(']+lcDatactrM +[','YYYYMMDD'),]+lcNrCtr+[,to_date(']+lcDatactr +[','YYYYMMDD'),]+;
					lnIdCasaasig + [,] + lnIdProfesie + [,to_date('] + ldData_vech + [','YYYYMMDD'),] + lnVechimeI + [,'] + ;
					lcModIncadr +  [','] + lcIban + [',] + lnVechime + [,] + lnIdBanca + [,]+lnc_vechime +[,]+lnIn_tura +;
					[,] + lnid_modlic + [,'] +lcmotivLic+ [',] + lcId_tip_act + [,] + lnId_part +[,]+lcElev+ [,]+lczilecofix +;
					[,]+lcSomajTehnic +[,to_date(']+lcDataST1+[','YYYYMMDD'), TO_DATE(']+lcDataST2+[','YYYYMMDD'),]+;
					lcStare + [,] + lcStarePrec + [,to_date('] + lcDataInceputS + [','YYYYMMDD'),to_date('] + lcDataSfarsitS + [','YYYYMMDD'),] + ;
					lcIdPartS + [,] + lcIdTaraS + [,] + lcIdTemeiS + [,] + lcIdTipAutorizatie + [,] + ;
					[to_date('] + lcDataIAutorizatie + [','YYYYMMDD'), TO_DATE('] + lcDataSAutorizatie + [','YYYYMMDD'),] + ;
					lcIdTipNorma + [,] + lcIdDurataMunca + [,] + lcIdRepartizareMunca + [,] + lcIdIntervalMunca	+ [,] + lcIdSalCtr + [,] + ;
					lcTipModificare + [,to_date('] + lcDataConsemnare + [','YYYYMMDD'),]+;
					lcNrActModif +[,to_date('] + lcDataactmodif + [','YYYYMMDD'),]+lcId_tipact +[,]+lcIdTipApatrid +[,]+lccassalmin+[,]+lcOug114+[,]+lcStudiiSup +;
					[,]+lcsc_general+[,]+lcsc_prof+[,]+lclicprofil+[,]+lclicspec+[,]+lcsc_maistri+[,]+lcsc_post+[,]+lcspecializare+[,]+lcCodAcc +[,]+lcTelefon + [,]+lcCodCod +[); end;]
			Case lcActiune = "UPDATE"
			SET STEP ON 
				lcSql = [begin pack_PERSONAL.res_modifica_personal2('] + gcs + [','] + ;
					lcnume + [','] + lcprenume + [',] + lnmarca + [,'] + lnCnp + [','] + lcNastere + [',] + ;
					lcid_Cetatenie + [,] + lcid_nationalitate + [,'] + lcBiSeriaNr + [','] + ;
					lcBiElib + [',to_date('] + ldData + [','YYYYMMDD'),] + lcid_Judet + [,] + lnSector + [,] +lcid_Loc+ [,'] + ;
					lcStrada + [','] + lcNumar + [','] + lcBloc + [','] + lcScara + [','] + ;
					lnEtaj + [','] + lnApart + [',] + lcCodP + [,'] + lcSitmil + [','] + lcLivretMil + [','] + lcspecmil + [','] + ;
					lcgradmil + [',] + lnstareciv + [,'] + lcnumetata + [','] + lcnumesot + [','] + lcnumemama + ;
					[',to_date('] + ldDataang + [','YYYYMMDD'),to_date('] + ldDatasfctr + [','YYYYMMDD'),] + ;
					lnIdTipCtr + [,] + lnIdMeseria + [,] + lnIdFormatia + [,] + lnIdGrupaMun + [,] + lnIdClasaSal + [,] + ;
					lnTarifar + [,] + lnIdHandicap + [,] + lnPLCas + [,] + lnPLSomaj + [,] + lnPensionar + [,] + ;
					lnPLImpozit + [,] + lnFractie + [,] + lnOrenorm + [,] + lnFunctieBaza + [,to_date(']+ldDatalic+[','YYYYMMDD'),']+;
					lcCmseria + [','] + lcCmNr +[',] + lcNrCtrM + [,to_date(']+lcDatactrM +[','YYYYMMDD'),]+lcNrCtr+[,to_date(']+lcDatactr +[','YYYYMMDD'),]+;
					lnIdCasaasig + [,] + lcId + [,] + lnIdStat + [,] + lnIdProfesie + [,to_date(']+ldData_vech +[','YYYYMMDD'),] + ;
					lnVechimeI + [,'] + lcModIncadr + [','] + lcIban + [',] + lnVechime + [,] + lnIdBanca + ;
					[,]+lnc_vechime +[,]+lnIn_tura +[,] + lnid_modlic + [,'] + lcmotivLic + [',] + lcId_tip_act + [,] + lnId_part+[,]+lcElev+ [,]+lczilecofix +;
					[,]+lcSomajTehnic +[,to_date(']+lcDataST1+[','YYYYMMDD'), TO_DATE(']+lcDataST2+[','YYYYMMDD'),]+;
					lcStare + [,] + lcStarePrec + [,to_date('] + lcDataInceputS + [','YYYYMMDD'),to_date('] + lcDataSfarsitS + [','YYYYMMDD'),] + ;
					lcIdPartS + [,] + lcIdTaraS + [,] + lcIdTemeiS + [,] + lcIdTipAutorizatie + [,] + ;
					[to_date('] + lcDataIAutorizatie + [','YYYYMMDD'), TO_DATE('] + lcDataSAutorizatie + [','YYYYMMDD'),] + ;
					lcIdTipNorma + [,] + lcIdDurataMunca + [,] + lcIdRepartizareMunca + [,] + lcIdIntervalMunca	+ [,] + lcIdSalCtr + [,] + ;			
					lcTipModificare + [,to_date('] + lcDataConsemnare + [','YYYYMMDD'),] + lcIdStareCtr +[,]+;
					lcNrActModif +[,to_date('] + lcDataactmodif + [','YYYYMMDD'),]+lcId_tipact + [,]+lcIdTipApatrid +[,]+lccassalmin+[,]+lcOug114+[,]+lcStudiiSup +;
					[,]+lcsc_general+[,]+lcsc_prof+[,]+lclicprofil+[,]+lclicspec+[,]+lcsc_maistri+[,]+lcsc_post+[,]+lcspecializare+[,]+lcCodAcc  +[,]+lcTelefon +[,]+lcCodCod + [); end;]
					
		
				Local lnTipModif,lcoperatie
				lnTipModif = This.Parent.opt_registru   &&1-Modificare;2-Corectie;3-Nu scrie
				If lnTipModif <> 3 AND gnEvaluareRevisal5 = 1
		
					Local i
					i=0
					Select * From registru_temp Into Cursor registru_modificari Order By ordine
		*!*				Use In registru_temp	: in caz ca imi da eroare, am nevoie de cursor in fereastra de personal
					Select registru_modificari
		
					Scan
						i=i+1
						lnIdCriteriu = Nvl(id_criteriu,1)
						lcIdCriteriu = Nvl(Alltrim(Str(id_criteriu)),'0')
						lnid_modlic = Nvl(Alltrim(Str(id_modlic)),'0')
						lnid_temei = Nvl(Alltrim(Str(id_temei)),'0')
						lcDataMod = Nvl(Alltrim(Dtos(datamod)),"")
						lcExplicatie = Nvl(Strtran(Alltrim(Upper(Explicatie)),['],['']),"")
						lcTipOperatie  = Nvl(Strtran(Alltrim(Upper(tip_operatie)),['],['']),"")
		
						taSqlReg[i] = [begin pack_PERSONAL.registru_ams('] + gcs + [','] + ;
							lcnume + [','] + lcprenume + [',] + lcid_Cetatenie + [,] + lcid_nationalitate + [,'] + lnCnp + [',']+;
							lcCmseria + [','] + lcCmNr +[',] + lcid_Loc + [,'] + lcStrada + [','] + lcNumar + [','] + lcBloc + [','] + ;
							lcScara + [','] + lnEtaj + [','] + lnApart + [',] + lnIdMeseria  + [,to_date(']+ldDatalic+[','YYYYMMDD'),]+;
							[to_date('] + ldDatasfctr + [','YYYYMMDD'),] + lnFractie + [,] + lnOrenorm + [,] + lnIdTipCtr +	 [,] + lcNrCtr+ ;
							[,to_date('] + lcDataCtr + [','YYYYMMDD'),to_date('] + ldDataang + [','YYYYMMDD'),] + lcNrCtrM + [,to_date(']+lcDatactrM +[','YYYYMMDD'),'] + lcExplicatie+;
							[',] + lcIdCriteriu + [,] + lnid_modlic + [,] + lnid_temei + [,to_date(']+lcDataMod +[','YYYYMMDD'),'] +;
							lcExplicatie + [',] + lnIdStat + [,'] + lcTipOperatie  + ['); end;]
						*!*					STRTOFILE(TASQLREG[i],'C:\REG_AMS1.TXT',1)
		
		
		
						Select registru_modificari
					Endscan
					*!*				RETURN
					Use In registru_modificari
				Endif
			Case lcActiune = "DELETE"
				lnIdPers = Nvl(Alltrim(Str(popers.id_salariat)),'0')
				ldDatalic = Nvl(Alltrim(Dtos(popers.datalic)),"")
				*!*			lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid
				*!*			lcSql = [begin nomdelprocs('] + gcs + [','] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclookUp + ['); end;]
		
				lcSql = [begin pack_personal.res_sterge('] + gcs + [',] + lnIdPers + [,] + lcId + [,to_date('] + ldDatalic + [','YYYYMMDD')); end;]
		
		
		Endcase
		
		This.csql = lcSql
		
		
	ENDPROC

	PROCEDURE salvare
		Lparameters toRec,tnId
		
		Private llSucces, lnSucces, buton
		buton = 0
		llSucces = .T.
		lnSucces = -1
		lcActiune = Upper(Alltrim(This.cactiune))
		lcMesaj = ''
		lcTitlu = ''
		Do Case
		Case lcActiune = "INSERT"
			lcMesaj = "Doriti sa adaugati inregistrarea?"
			lcTitlu = "Adaugare"
		*	lnOptiuni = 4 + 32
		Case lcActiune = "UPDATE"
			lcMesaj = "Doriti sa salvati modificarile?"
			lcTitlu = "Modificare"
		*	lnOptiuni = 4 + 32
		Case lcActiune = "DELETE"
			lcMesaj = "Doriti sa stergeti inregistrarea?"
			lcTitlu = "Stergere"
		*	lnOptiuni = 4 + 32 + 512
		Endcase
		
		lcimagine = [intreb.ico]
		lctip = [Intrebare]
		ofrm_intreb = CREATEOBJECT('frm_mesaj',lctitlu,lcimagine,lctip,lcmesaj)
		ofrm_intreb.show(1)
		RELEASE ofrm_intreb
		
		IF buton = 1
			PNIESIRE=1
			gnButon = 1
			If This.validare()
		
				This.make_sql(toRec,tnId)
		
				lcSql = Alltrim(This.csql)
				llConditie = 'INSERT'$UPPER(lcSql) Or 'UPDATE'$UPPER(lcSql) Or 'DELETE'$UPPER(lcSql) Or 'BEGIN'$UPPER(lcSql)
		
				If llConditie
					lnSucces = goExecutor.oExecute(lcSql)
					If lnSucces < 0
		
						lcTextEroare = goExecutor.cEroare
						
						IF LIKE('*ORA-20???:*',lcTextEroare)
							lnPozi=At("ORA-20",lcTextEroare)+11
							lnPozf=At("ORA",lcTextEroare,2)
							lcTextEroare=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)									
		*!*					ELSE
		*!*						lnPozf=At("ORA-",lcTextEroare,3)
		*!*						lcTextEroare=Substr(lcTextEroare,1,lnPozf-1)+[...]
						ENDIF					
		*!*					Case "ORA-20000"$lcTextEroare
		*!*						lnPozi=At("ORA-20000",lcTextEroare)+11
		*!*						lnPozf=At("ORA",lcTextEroare,2)
		*!*						lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
		*!*						lcTitlu="Eroare"
						Do Case
						Case lcActiune = "INSERT"
							lcMesaj = "Inregistrarea nu a fost adaugata." + Chr(13) + Chr(10) + lcTextEroare
							lcTitlu = "Adaugare"
						Case lcActiune = "UPDATE"
							lcMesaj = "Inregistrarea nu a fost modificata." + Chr(13) + Chr(10) + lcTextEroare
							lcTitlu = "Modificare"
						Case lcActiune = "DELETE"
							lcMesaj = "Inregistrarea nu a fost stearsa." + Chr(13) + Chr(10) + lcTextEroare
							lcTitlu = "Stergere"
						Endcase
		
						lcimagine = [info_c.ico]
							lctip = [Informare]
		*!*					ofrm_info = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
		*!*					ofrm_info.show(1)
		*!*					RELEASE ofrm_info		
						AMESSAGE(lcMesaj,0+16,lcTip)
		
						*Messagebox(lcMesaj,0+48,lcTitlu)
						llSucces = .F.
					ELSE 
						IF lcActiune = "UPDATE"
		
							FOR i=1 TO ALEN(taSqlReg)
								IF !EMPTY(taSqlReg[i])						
									lnSucces = goExecutor.oExecute(taSqlReg[i])
									taSqlReg[i]=.f.	
									If lnSucces < 0
										aMessagebox(goExecutor.cEroare,0+16,"Eroare")
									Return
									ENDIF 			
								ENDIF 	
		
					         ENDFOR                                                                
						ENDIF 	
					Endif
		
					If lnSucces >=1 And lcActiune = "DELETE"
						lcTitlu = "Stergere"				
						lctip = [Informare]
						lcimagine = [info_c.ico]
						lcMesaj = "Inregistrarea a fost stearsa."
		*!*					ofrm_mesaj = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
		*!*					ofrm_mesaj.show(1)
		*!*					RELEASE ofrm_mesaj		
						AMESSAGE(lcMesaj,0+48,lcTip)		
						*Messagebox(lcMesaj,0+64,lcTitlu)
					Endif
				Endif
		
			Endif
		
		Else
			PNIESIRE = 2
			gnButon = 2	
		Endif
		
		
		Return llSucces
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_stud AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_stud"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
			lcScoala = NVL(UPPER(ALLTRIM(torec.scoala)),"")
			lcDetalii = NVL(UPPER(ALLTRIM(torec.detalii)),"")	
		
		
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO sal_studii (id_persoana,scoala,detalii) VALUES (] + lnIdPers + [,'] + lcScoala + ;
				[','] + lcDetalii + [')] 
			
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_studii SET id_persoana = ] + lnIdPers + ;
				[,scoala = '] + lcScoala + [',detalii = '] + lcDetalii + ;
				[' where id_studiu = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [UPDATE sal_studii set sters = 1 where id_studiu = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_vech AS _cusodatabase OF "_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_vech"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		
		Endif
		If Inlist(lcActiune, "UPDATE",'INSERT')
		*!*		lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
			lcMod = NVL(UPPER(ALLTRIM(torec.modincadr)),"")
			lcVech = NVL(ALLTRIM(STR(torec.vechimei)),"")	
			ldData = NVL(ALLTRIM(DTOS(torec.data_vech)),"")	
		
		*!*		lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
		*!*			lcSql = [INSERT INTO ] + gcS + [.sal_cursuri (id_c,id_persoana,nota,test,data) VALUES (] + lnIdCurs + ;
		*!*			[,] + lnIdPers + [,'] + lcNota+ [','] + lcTest + [',to_date('] + ldData + [','YYYYMMDD'))] 
			
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE sal_personal SET vechimei = ] + lcVech + [,modincadr = '] + lcMod + ;
				[',data_vech = to_date('] + ldData + [','YYYYMMDD')] + ;
				[ where id_salariat = ] + lcId
		
			Case lcActiune = "DELETE"
			
		*!*			lcSql = [UPDATE ] + gcs + [.sal_cursuri set sters = 1 where id_curs = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_articole_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="CUS_ODATA_ARTICOL1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_articol
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 104
		Name = "frm_articole_nou"
		nid = 0
		orec = 
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "Articole"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 5
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		Gridsort1.Left = 9
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 31
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 4
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 2, ;
		Top = 65, ;
		Width = 175, ;
		TEXT_SIMPLU1.ControlSource = "porec.cantitate", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 101, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 67, ;
		LB_SIMPLU1.Caption = "Canntitate :", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
		cconditie = empty(porec.id_articol), ;
		cprocedura = thisform.do_alege_articol, ;
		cvar_afisata = porec.articol, ;
		Left = 12, ;
		Name = "Ct_clb_cautare1", ;
		TabIndex = 1, ;
		Top = 36, ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Articol", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.ControlSource = "", ;
		clb_tx_cautare.Text_simplu1.Height = 23, ;
		clb_tx_cautare.Text_simplu1.Left = 102, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Top = 3, ;
		clb_tx_cautare.Text_simplu1.Width = 205
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'CUS_ODATA_ARTICOL1' AS cus_odata_articol WITH ;
		Left = 72, ;
		Name = "CUS_ODATA_ARTICOL1", ;
		Top = 12
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE do_alege_articol
		
		*!*	pcselect = [select id_articol,denumire,codmat from vnom_articole]
		
		*!*	pcFiltruOriginal=[inactiv=0]
		*!*	pcfiltru = [1=2]
		*!*	pcorder = [denumire]
		*!*	pccoloane = [denumire,codmat,id_articol]
		*!*	pcTitlu = [Articole]
		*!*	pcTitluColoane = [Denumire,Cod material,Id]
		
		*!*	loHash=gethash()
		*!*	loHash.setvalue('cSelect',pcselect)
		*!*	loHash.setvalue('cFiltru',pcfiltru)
		*!*	loHash.setvalue('cOrder',pcorder)
		*!*	loHash.setvalue('cColoana',pccoloane)
		*!*	loHash.setvalue('cTitlu',pcTitlu)
		*!*	loHash.setvalue('cTitluColoana',pcTitluColoane)
		*!*	loHash.setvalue('cFiltruOriginal',pcFiltruOriginal)
		*!*	loCauta = cauta_alfa_hash(lohash)
		
		*!*	IF !EMPTY(locauta.id_articol)
		*!*		thisform.orec.articol = locauta.denumire
		*!*		thisform.orec.id_articol = locauta.id_articol
		*!*		this.Refresh 
		*!*	ENDIF
		locauta = caut_articol() &&ocautare.prg
		IF !EMPTY(locauta.id_articol)
			porec.articol = locauta.denumire
			porec.id_articol = locauta.id_articol
			this.Refresh 
		ENDIF
			
		
		
		
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_articol1.cactiune 
		
		
		
		PLRETURN=This.cus_odata_articol1.salvare(This.OREC,This.NID)
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_articol1.cactiune = tcActiune
		
		IF This.cus_odata_articol1.cactiune='INSERT'
			porec.cantitate=1
			thisform.do_alege_articol()	
		ENDIF 	
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_atas_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtNume_atasament" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 200
		Name = "frm_atas_nou"
		nid = 0
		orec = 
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 65
		Lb_titlu_alb_b121.Caption = "ATAȘAMENT NOU"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		BUT_TERMIN1.Left = 345
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 24
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 36
		BUT_RENUNT1.Left = 315
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 7
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 4, ;
		Top = 125, ;
		Width = 348, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.ControlSource = "poLink.data_doc", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 240, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = {}, ;
		Text_simplu1.Width = 104, ;
		Lb_simplu1.Caption = "Dată document", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 5, ;
		Top = 153, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "poLink.nr_doc", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 120, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 224, ;
		Lb_simplu1.Caption = "Număr document", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 3, ;
		Top = 97, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "poLink.descriere", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 120, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 224, ;
		Lb_simplu1.Caption = "Descriere", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Caption = "...", ;
		Height = 25, ;
		Left = 307, ;
		Name = "Command1", ;
		TabIndex = 1, ;
		Top = 60, ;
		Width = 24
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "", ;
		Height = 25, ;
		Left = 334, ;
		Name = "Command2", ;
		Picture = ..\grafice\eye_sus.bmp, ;
		PicturePosition = 14, ;
		TabIndex = 2, ;
		Top = 60, ;
		Width = 24
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Atașament", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Lb_simplu1", ;
		TabIndex = 10, ;
		Top = 63, ;
		Width = 65
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'txtNume_atasament' AS textbox WITH ;
		ControlSource = "poLink.nume_atasament", ;
		Enabled = .F., ;
		Format = "!k", ;
		Height = 23, ;
		Left = 84, ;
		Name = "txtNume_atasament", ;
		TabIndex = 9, ;
		Top = 61, ;
		Width = 216
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		DoDefault()
		
	ENDPROC

	PROCEDURE Command1.Click
		LOCAL lcFisier
		
		pcLink = GETFILE("*","Alegeti fisierul")
		lcFisier = JUSTFNAME(pcLink)
		thisform.txtNume_atasament.Value = lcFisier
		thisform.txtNume_atasament.SetFocus 
		
		
	ENDPROC

	PROCEDURE Command2.Click
		PRIVATE oWord
		LOCAL lcDocument
		
		lcDocument = pcLink
		
		IF EMPTY(lcDocument)
			aMESSAGEBOX("Alegeti fisierul pe care doriti sa-l deschideti! "+lcDocument,16,"Eroare")
			RETURN
		ENDIF 
		
		IF !FILE(lcDocument)
			aMESSAGEBOX("Nu exista fisierul "+lcDocument,16,"Eroare")
			RETURN
		ENDIF
		
		open_default_app(lcDocument)
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_avize_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_avize1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 154
		Name = "frm_avize_nou"
		nid = .F.
		orec = .F.
		Width = 317
		_shape1.Name = "_shape1"
		_shape2.Left = 243
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "-"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 6
		BUT_TERMIN1.Left = 285
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		BUT_RENUNT1.Left = 256
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 5
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 52, ;
		TEXT_SIMPLU1.ControlSource = "porec.aviz", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Aviz:", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_simplu5", ;
		TabIndex = 2, ;
		Top = 83, ;
		Width = 192, ;
		Text_simplu1.ControlSource = "porec.data1", ;
		Text_simplu1.Format = "!KD", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 79, ;
		Lb_simplu1.Caption = "Data aviz:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_simplu6", ;
		TabIndex = 3, ;
		Top = 114, ;
		Width = 192, ;
		Text_simplu1.ControlSource = "porec.data2", ;
		Text_simplu1.Format = "!KD", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 79, ;
		Lb_simplu1.Caption = "Data expirarii:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_avize1' AS cus_odata_avize WITH ;
		Left = 215, ;
		Name = "Cus_odata_avize1", ;
		Top = 33
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE inainte_de_do_termin
		LOCAL plReturn 
		PLRETURN=this.cus_odata_avize1.salvare(This.OREC,This.NID)
		
		Return PLRETURN
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		
		this.cus_odata_avize1.cactiune = tcActiune
		 
		
	ENDPROC

	PROCEDURE Clb_tx_simplu5.Text_simplu1.LostFocus
		porec.data2=GOMONTH(porec.data1,12)
		thisform.clb_tx_simplu6.text_simplu1.Refresh 
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_bazacm_nou AS frm_termin_renunt OF "..\..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_bazacm1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 196
		Name = "frm_bazacm_nou"
		nid = .F.
		orec = .F.
		Width = 317
		_shape1.Name = "_shape1"
		_shape2.Left = 243
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "-"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Left = 285
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		BUT_RENUNT1.Left = 256
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 6
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 52, ;
		TEXT_SIMPLU1.ControlSource = "porec.luna", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Luna:", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 83, ;
		TEXT_SIMPLU1.ControlSource = "porec.an", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "An:", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 3, ;
		Top = 114, ;
		TEXT_SIMPLU1.ControlSource = "porec.bazacalcul", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Baza calcul CAS:", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 4, ;
		Top = 145, ;
		TEXT_SIMPLU1.ControlSource = "porec.zilelucr", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Zile lucrate:", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_bazacm1' AS cus_odata_bazacm WITH ;
		Left = 53, ;
		Name = "Cus_odata_bazacm1", ;
		Top = 36
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE inainte_de_do_termin
		LOCAL plReturn 
		PLRETURN=this.cus_odata_bazacm1.salvare(This.OREC,This.NID)
		
		Return PLRETURN
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		
		this.cus_odata_bazacm1.cactiune = tcActiune
		 
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_completeznrdata112 AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 442
		lactiv3 = .T.
		Name = "frm_completeznrdata112"
		Width = 381
		_shape1.Name = "_shape1"
		_shape2.Name = "_shape2"
		Lb_titlu_alb_b121.Caption = "Completati nr/data declaratiei 112"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		Gridsort1.Left = 252
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 12
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		Height = 392, ;
		Left = 4, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crs112", ;
		Top = 36, ;
		Width = 368, ;
		Column1.ControlSource = "an", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 55, ;
		Column2.ControlSource = "Luna", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 32, ;
		Column3.ControlSource = "nrdata112", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 239
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Caption = "An", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Caption = "Luna", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
		Caption = "Nr. / Data declaratiei 112", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
		Left = 310, ;
		Name = "But_modifica1", ;
		Top = 2, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=pod112.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform._grdrow1)
		pod112.ca_baza1.cfiltru=lcFiltru
		pod112.ca_baza1.afisare()
		restore_grid_tag(thisform._grdrow1)
			thisform._grdrow1.SetFocus()
		
	ENDPROC

	PROCEDURE do_modifica
		Private pniesire
		pniesire=0
		Select crs112
		Scatter Name loRec MEMO 
		Do Adauga_Modifica_Inregistrare With "completeznrdata112",loRec,loRec.id_calendar,"UPDATE",,"modd112"
		
		
		If pniesire=1
			This.actualizeaza_grid1()
		Endif
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_completeznrdata112_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_completeznrdata1121" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 95
		Name = "frm_completeznrdata112_nou"
		nid = 
		orec = 
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Name = "_shape2"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 1
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		Gridsort1.Name = "Gridsort1"
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 4
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 22, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 2, ;
		Top = 49, ;
		Width = 319, ;
		Text_simplu1.ControlSource = "pOREC.nrdata112", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 215, ;
		Lb_simplu1.Caption = "Numar si data D112", ;
		Lb_simplu1.FontName = "Arial Narrow", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_completeznrdata1121' AS cus_odata_completeznrdata112 WITH ;
		Left = 168, ;
		Name = "Cus_odata_completeznrdata1121", ;
		Top = 24
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE Activate
		this.lb_titlu_alb_b121.Caption = ALLTRIM(STR(This.OREC.luna))+ [ / ]+ALLTRIM(STR(This.OREC.an))
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN
		
		lccontrol = Upper(This.ActiveControl.BaseClass )
		If   Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
			lcval=This.ActiveControl.ControlSource
			&lcval=Thisform.ActiveControl.Value
		Endif
		
		Do Case
		Case Empty(pOREC.nrdata112)
			Messagebox('Nu ati completat numarul si data declaratiei 112!',0+48,"Atentie")
			This.clb_tx_simplu1.teXT_SIMPLU1.SetFocus()
			PLRETURN=.F.
		Otherwise
		
			PLRETURN=this.cus_odata_completeznrdata1121.salvare(This.OREC,This.NID)
			
		Endcase
		Return PLRETURN
		
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		this.cus_odata_completeznrdata1121.cactiune = tcActiune
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_conditii AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid2.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid2.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_nou2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_sterge2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_modifica2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page1.But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2._grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2.Cmd_executa1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pagina.Page2.lbnr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lista2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: adauga_articol
		*m: cauta_detalii
		*m: cauta_persoane
		*m: decode_string
		*m: detalii_conditie
		*m: modifica_articol
		*m: prep_modifica
		*m: salveaza_conditie
		*m: sterge_articol
		*m: sterge_conditie
		*p: temporar
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = pagina.page1._grid2,pagina.page1._grid1,pagina.page2._grid1,pagina.page2._grid2
		DoCreate = .T.
		Height = 407
		Name = "frm_conditii"
		temporar = 0
		Width = 573
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 576
		_shape2.Height = 29
		_shape2.Left = 540
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 33
		Lb_titlu_alb_b121.Caption = "Conditii echipamente"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 541
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 72
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 12
	*</PropValue>

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Conditii", ;
		FontBold = .T., ;
		Left = 12, ;
		Name = "Lb_simplu1", ;
		Top = 261
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ;
		Caption = "Elemente", ;
		FontBold = .T., ;
		Left = 32, ;
		Name = "Lb_simplu3", ;
		Top = 210
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'lista2' AS _listbox WITH ;
		Height = 120, ;
		Left = 12, ;
		Name = "lista2", ;
		SpecialEffect = 1, ;
		Top = 282, ;
		Width = 426
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />

	ADD OBJECT 'pagina' AS _pageframe WITH ;
		ErasePage = .T., ;
		Height = 224, ;
		Left = 12, ;
		Name = "pagina", ;
		PageCount = 2, ;
		TabOrientation = 0, ;
		TabStyle = 1, ;
		Top = 34, ;
		Width = 552, ;
		Page1.BackColor = 255,255,255, ;
		Page1.Caption = "Grupe", ;
		Page1.FontBold = .T., ;
		Page1.Name = "Page1", ;
		Page2.BackColor = 255,255,255, ;
		Page2.Caption = "Personal", ;
		Page2.FontBold = .T., ;
		Page2.Name = "Page2"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT 'pagina.Page1._grid1' AS _grid WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		GridLineColor = 221,227,252, ;
		GridLines = 1, ;
		Height = 166, ;
		HighlightStyle = 2, ;
		Left = 251, ;
		Name = "_grid1", ;
		Panel = 1, ;
		PanelLink = .T., ;
		RecordSource = "v_articole", ;
		RowHeight = 20, ;
		ScrollBars = 0, ;
		SplitBar = .T., ;
		TabIndex = 1, ;
		Top = 27, ;
		Width = 293, ;
		Column1.ControlSource = "articol", ;
		Column1.Name = "Column1", ;
		Column1.Width = 138, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "cantitate", ;
		Column2.Name = "Column2", ;
		Column2.Width = 65, ;
		Column3.ColumnOrder = 2, ;
		Column3.ControlSource = "codmat", ;
		Column3.Name = "Column3"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT 'pagina.Page1._grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Articol", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page1._grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page1._grid1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Cantitate", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page1._grid1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page1._grid1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Cod material", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page1._grid1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page1._grid2' AS _grid WITH ;
		ColumnCount = 1, ;
		DeleteMark = .F., ;
		GridLineColor = 221,227,252, ;
		GridLines = 1, ;
		Height = 166, ;
		HighlightStyle = 2, ;
		Left = 5, ;
		Name = "_grid2", ;
		Panel = 1, ;
		PanelLink = .T., ;
		RecordSource = "v_conditii", ;
		RowHeight = 20, ;
		ScrollBars = 0, ;
		SplitBar = .T., ;
		TabIndex = 1, ;
		Top = 27, ;
		Width = 240, ;
		Column1.ControlSource = "denumire", ;
		Column1.Name = "Column1", ;
		Column1.Width = 227
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT 'pagina.Page1._grid2.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Grupa", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page1._grid2.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page1.But_excel1' AS but_excel WITH ;
		Left = 213, ;
		Name = "But_excel1", ;
		Top = -1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_listare1' AS but_listare WITH ;
		Left = 184, ;
		Name = "But_listare1", ;
		Top = -1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_modifica1' AS but_modifica WITH ;
		caction = modifica_articol, ;
		Left = 480, ;
		Name = "But_modifica1", ;
		Top = -1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_modifica2' AS but_modifica WITH ;
		caction = do_modifica, ;
		Left = 123, ;
		Name = "But_modifica2", ;
		Top = -1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_nou1' AS but_nou WITH ;
		caction = adauga_articol, ;
		Left = 449, ;
		Name = "But_nou1", ;
		TabIndex = 3, ;
		Top = -1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_nou2' AS but_nou WITH ;
		caction = do_adauga, ;
		Left = 92, ;
		Name = "But_nou2", ;
		TabIndex = 3, ;
		Top = -1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_sterge1' AS but_sterge WITH ;
		caction = sterge_articol, ;
		Left = 511, ;
		Name = "But_sterge1", ;
		TabIndex = 4, ;
		Top = -1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page1.But_sterge2' AS but_sterge WITH ;
		caction = do_sterge, ;
		Left = 154, ;
		Name = "But_sterge2", ;
		TabIndex = 4, ;
		Top = -1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page2._grid1' AS _grid WITH ;
		ColumnCount = 1, ;
		DeleteMark = .F., ;
		GridLineColor = 221,227,252, ;
		GridLines = 1, ;
		Height = 166, ;
		HighlightStyle = 2, ;
		Left = 251, ;
		Name = "_grid1", ;
		Panel = 1, ;
		PanelLink = .T., ;
		RecordSource = "v_art_pers", ;
		RowHeight = 20, ;
		ScrollBars = 0, ;
		SplitBar = .T., ;
		TabIndex = 1, ;
		Top = 27, ;
		Width = 293, ;
		Column1.ControlSource = "articol", ;
		Column1.Name = "Column1", ;
		Column1.Width = 280
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT 'pagina.Page2._grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Articole", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page2._grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page2._grid2' AS _grid WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		GridLineColor = 221,227,252, ;
		GridLines = 1, ;
		Height = 166, ;
		HighlightStyle = 2, ;
		Left = 5, ;
		Name = "_grid2", ;
		Panel = 1, ;
		PanelLink = .T., ;
		RecordSource = "v_pers", ;
		RowHeight = 20, ;
		ScrollBars = 0, ;
		SplitBar = .T., ;
		TabIndex = 1, ;
		Top = 27, ;
		Width = 240, ;
		Column1.ControlSource = "marca", ;
		Column1.Name = "Column1", ;
		Column1.Width = 60, ;
		Column2.ControlSource = "nume", ;
		Column2.Name = "Column2", ;
		Column2.Width = 83, ;
		Column3.ControlSource = "prenume", ;
		Column3.Name = "Column3", ;
		Column3.Width = 81
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT 'pagina.Page2._grid2.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Marca", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page2._grid2.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page2._grid2.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Nume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page2._grid2.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page2._grid2.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 221,227,252, ;
		Caption = "Prenume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pagina.Page2._grid2.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pagina.Page2.Cmd_executa1' AS cmd_executa WITH ;
		AutoSize = .T., ;
		Caption = "Aplica Conditie", ;
		Left = 439, ;
		Name = "Cmd_executa1", ;
		Top = -1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pagina.Page2.lbnr' AS lb_simplu WITH ;
		Caption = "Numar persoane : ", ;
		Left = 5, ;
		Name = "lbnr", ;
		Top = 10
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		If Empty(tcFiltru)
			lcFiltru = pocond.ca_baza1.cfiltru
		Else
			lcFiltru = tcFiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		save_grid_tag(thisform.pagina.page1._grid2)
		pocond.ca_baza1.cfiltru=lcFiltru
		pocond.ca_baza1.afisare()
		restore_grid_tag(thisform.pagina.page1._grid2)
		SELECT v_conditii
		replace ALL nr WITH RECNO()
		GO TOP 
		*!*	thisform.label_conditie.Caption='Conditie : '+ALLTRIM(denumire)
		*!*	thisform.label_conditie.Refresh 
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		this.pagina.page1._grid2.SetFocus()
	ENDPROC

	PROCEDURE adauga_articol
		IF EMPTY(poconditii.id_conditie)
			MESSAGEBOX('Creati intai o conditie pentru a putea introduce articole!',48,'Atentie!')
			RETURN 
		ENDIF 	
		Private pniesire
		pniesire=0
		Select v_articole
		Scatter Name loRec Blank
		lorec.id_conditie = poconditii.id_conditie
		
		Do Adauga_Modifica_Inregistrare With "articole",loRec,,"INSERT",,"addart"
		
	ENDPROC

	PROCEDURE cauta_detalii
		LPARAMETERS tcCamp,tcCampId,tcValId,tcTabela
		LOCAL lcReturn 
		lcSQl = [select ] + tcCamp + [ as rezultat from ] + gcs + [.] +  tcTabela + [ where ] + tcCampID + [=] + tcValId
		lcCursor = 'v_rezultat'
		lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
		
		IF lnSucces < 0
			MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			RETURN null
		ELSE 
			SELECT v_rezultat
			lcReturn = v_rezultat.rezultat
			IF TYPE('lcReturn')='C'
				lcReturn=ALLTRIM(lcREturn)
			ENDIF 	
			RETURN lcReturn
		ENDIF
	ENDPROC

	PROCEDURE cauta_persoane
		lcConditie = ALLTRIM(poconditii.conditie)
		IF EMPTY(lcConditie)
			RETURN
		ENDIF 	
		
		save_grid_tag(thisform.pagina.paGE2._grid2)
		poper.ca_baza1.cfiltru=[1=1 and ] + lcConditie
		poper.ca_baza1.afisare()
		restore_grid_tag(thisform.pagina.paGE2._grid2)
		LOCAL lncount
		lncount = RECCOUNT('v_pers')
		this.pagina.page2.lbnr.Caption = 'Numar persoane : ' + ALLTRIM(STR(lncount))
		this.pagina.page2.lbnr.Refresh 
		IF RECCOUNT('v_pers')=0
			save_grid_tag(thisform.pagina.paGE2._grid1)
			poarticole.ca_baza1.cfiltru=[ 1=2 ]
			poarticole.ca_baza1.afisare()
			restore_grid_tag(thisform.pagina.paGE2._grid1)
		ENDIF 	
		thisform.pagina.paGE2._grid2.SetFocus()
		
		
	ENDPROC

	PROCEDURE decode_string
		LPARAMETERS tcString
		
		thisform.lista2.Clear()
		LOCAL lcstring,lnCond,i,lcWord,lsex
		lcString = UPPER(tcString)
		lsex=.f.
		IF EMPTY(lcstring)
			RETURN 
		ENDIF 
		lcWord=''
		i=0
		j=0
		z=0
		lnCond=0
		lnCond = GETWORDCOUNT(lcstring,')')  &&nr conditii
		
		lcSirLista = ''
		thisform.LockScreen=.t.
		
		
		thisform.temporar=0 &&resetez array
		DIMENSION taCompun[1,3]
		ADEL(taCompun,1)
		
		FOR i=1 TO lnCond
		
			lcWord = STREXTRACT(lcString,'(',')',i,1)
			FOR j=1 TO ALEN(taElemente,1)
				lcCampId = UPPER(ALLTRIM(taElemente[j,3]))   &&cheia primara din tabela de elemente ( nom_sectii,etc)
				IF OCCURS(':',lcCampid)>0
					lsex=.t.
					lcCampId = UPPER(ALLTRIM(taElemente[j,2]))
				ELSE 
					lsex=.f.	
				ENDIF 	
				lcDescCamp = ALLTRIM(taElemente[j,1]) &&descriere camp
				lnCount = OCCURS(lcCampId,lcWord)
				IF lnCount>0
					FOR z =1 TO lnCount
		
						thisform.temporar=thisform.temporar+1
						DIMENSION taCompun[thisform.temporar,3]
						lcValId = ALLTRIM(STREXTRACT(lcWord,'=',' OR ',z,2))  &&&valoare id
						IF lsex 
							lcValoare = lcValId
						ELSE 	
							lcValoare = thisform.cauta_detalii(taElemente[j,2],taElemente[j,3],lcValId,taElemente[j,5])		
						ENDIF 	
						IF ISNULL(lcValoare)
							MESSAGEBOX('Eroare!')
							RETURN 
						ENDIF	
						lcTemp = taElemente[j,1] + ' este '+ lcValoare + ICASE(z<lnCount,' sau ','')	
						taCompun[thisform.temporar,1] = lcTemp
						taCompun[thisform.temporar,2] = lcCampId + '=' + lcValId	
						taCompun[thisform.temporar,3] = j
						thisform.lista2.AddItem(lcTemp)
						IF z=lnCount AND i#lnCond  &&daca sunt pe ultima linie nu mai pun 'si'
							thisform.lista2.AddItem(' si ')
						ENDIF 	
					ENDFOR 	
		
				ELSE 
					LOOP 
				ENDIF 	
				
			ENDFOR 	
			
		ENDFOR 
		thisform.lista2.refresh
		*!*	thisform.pagina.paGE2.lista2.Requery()
		thisform.LockScreen=.f.
		
		
	ENDPROC

	PROCEDURE detalii_conditie
		lcString = v_conditii.conditie
		
		thisform.decode_string(lcString)
		
		
		
		
		
		
			
	ENDPROC

	PROCEDURE do_adauga
		
		
		SELECT v_conditii
		SCATTER NAME poconditii MEMO BLANK 
		
		thisform.temporar=0 &&resetez array
		DIMENSION taCompun[1,3]
		ADEL(taCompun,1)
		
		buton=2
		
		oaddc = CREATEOBJECT('frm_conditii_nou','INSERT',@taCompun,@taElemente,thisform.temporar)
		oaddc.show(1)
		RELEASE oaddc
		
		IF buton = 1
		
			this.actualizeaza_grid1()
			thisform.lista2.clear()
			thisform.lista2.Requery()
			
		ENDIF 	
		
		
		
		
	ENDPROC

	PROCEDURE do_executa
		lnpartrec = RECCOUNT('v_pers')
		IF lnpartrec=0
			AMESSAGEBOX('Nu exista persoane corespunzatoare conditiei!',48,'Atentie!')
			RETURN 	
		ENDIF 
		IF RECCOUNT('v_articole')=0
			AMESSAGEBOX('Nu exista articole atasate conditiei!',48,'Atentie!')
			lcSel = [{call pack_personal.verifica_part_art(?poconditii.id_conditie)}]
			lnSucces = goExecutor.oExecute(lcSel)
			IF lnSucces < 0
				MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			ENDIF
			
			RETURN 
		ENDIF 
		
			lcSel = [{call pack_personal.adauga_cond_articol(?poconditii.id_conditie)}]
			lnSucces = goExecutor.oExecute(lcSel)
			IF lnSucces < 0
				MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			ENDIF
			
			lcSel = [{call pack_personal.verifica_part_art(?poconditii.id_conditie)}]
			lnSucces = goExecutor.oExecute(lcSel)
			IF lnSucces < 0
				MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			ENDIF
		
		
		SELECT v_pers
		SCATTER NAME popersoane 
		save_grid_tag(thisform.pagina.paGE2._grid1)
		poarticole.ca_baza1.cfiltru=[id_part = ] + ALLTRIM(STR(popersoane.id_part))
		poarticole.ca_baza1.afisare()
		restore_grid_tag(thisform.pagina.paGE2._grid1)
		thisform.pagina.paGE2._grid1.SetFocus()
	ENDPROC

	PROCEDURE do_modifica
		
		SELECT v_conditii
		SCATTER NAME poconditii MEMO 
		
		buton=2
		
		oaddc = CREATEOBJECT('frm_conditii_nou','UPDATE',@taCompun,@taElemente,thisform.temporar)
		oaddc.show(1)
		RELEASE oaddc
		
		IF buton = 1
		
			this.actualizeaza_grid1()
			thisform.lista2.clear()
			thisform.lista2.Requery()
			
		ENDIF 	
	ENDPROC

	PROCEDURE do_sterge
		SELECT v_conditii
		SCATTER NAME lorec
		
		DO sterge_inregistrare WITH 'cond',lorec.id_conditie
		
		this.actualizeaza_grid1()
		
		RELEASE lorec
	ENDPROC

	PROCEDURE inainte_de_do_excel
		lcSQl = [select c.id_conditie, c.denumire as grup, n.id_articol, n.cantitate, a.denumire, NVL(a.codmat,'') as codmat, NVL(a.um,'') as um ]+;
			[ from nom_conditii_echip c ]+;
			[ left join necesar_echip n on c.id_conditie = n.id_conditie ]+;
			[ left join nom_articole a on a.id_articol = n.id_articol ]+;
			[ where c.sters = 0 and n.sters = 0 ]+;
			[ order by c.denumire, a.denumire ]
		
		lcCursor = 'cList'
		lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
		
		IF lnSucces < 0
			MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		ENDIF
		
		SELECT cList
		DO export_xls WITH 'cList' IN oproceduri_comune.prg
		
		IF USED('cList')
			USE IN cList
		ENDIF 
	ENDPROC

	PROCEDURE inainte_de_do_listare
		lcSQl = [select c.id_conditie, c.denumire as grup, n.id_articol, n.cantitate, a.denumire, NVL(a.codmat,'') as codmat, NVL(a.um,'') as um ]+;
			[ from nom_conditii_echip c ]+;
			[ left join necesar_echip n on c.id_conditie = n.id_conditie ]+;
			[ left join nom_articole a on a.id_articol = n.id_articol ]+;
			[ where c.sters = 0 and n.sters = 0 ]+;
			[ order by c.denumire, a.denumire ]
		
		lcCursor = 'cList'
		lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
		
		IF lnSucces < 0
			MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		ENDIF
		
		pcTitlu = "Necesar echipament"
		
		thisform.AlwaysOnTop = .F.
		*!*	modificare	v 1.0.48
		goExport.export2frx([cList],[sal_echipament.frx])
		*!*	SELECT cList
		*!*	REPORT FORM sal_echipament.frx TO PRINTER PROMPT PREVIEW 
		*!*	modificare	v 1.0.48	^
		thisform.AlwaysOnTop = .T.
		
		IF USED('cList')
			USE IN cList
		ENDIF 
		 
	ENDPROC

	PROCEDURE Init
		PARAMETERS taElemente,taCompun
		*!*	this.cus_odata_cond1.cactiune=''	
		DODEFAULT()
	ENDPROC

	PROCEDURE modifica_articol
		IF EMPTY(poconditii.id_conditie)
			MESSAGEBOX('Creati intai o conditie !',48,'Atentie!')
			RETURN 
		ENDIF 	
		Private pniesire
		pniesire=0
		Select v_articole
		Scatter Name loRec
		
		Do Adauga_Modifica_Inregistrare With "articole",loRec,lorec.id_nec,"UPDATE",,"addart"
		
	ENDPROC

	PROCEDURE prep_modifica
	ENDPROC

	PROCEDURE salveaza_conditie
	ENDPROC

	PROCEDURE sterge_articol
		SELECT v_articole
		SCATTER NAME lorec
		
		DO sterge_inregistrare WITH 'articol',lorec.id_nec
		
		
		
		RELEASE lorec
	ENDPROC

	PROCEDURE sterge_conditie
	ENDPROC

	PROCEDURE pagina.Page1.Activate
		this._grid2.SetFocus()
	ENDPROC

	PROCEDURE pagina.Page1._grid2.AfterRowColChange
		LPARAMETERS nColIndex
		SELECT v_conditii 
		SCATTER NAME poconditii MEMO 
		thisform.detalii_conditie()
		save_grid_tag(thisform.pagina.paGE1._grid1)
		poart.ca_baza1.cfiltru=[id_conditie = ] + ALLTRIM(STR(poconditii.id_conditie))
		poart.ca_baza1.afisare()
		restore_grid_tag(thisform.pagina.paGE1._grid1)
		DODEFAULT()
		
	ENDPROC

	PROCEDURE pagina.Page2.Activate
		thisform.cauta_persoane()
		this._grid2.SetFocus()
	ENDPROC

	PROCEDURE pagina.Page2._grid2.AfterRowColChange
		LPARAMETERS nColIndex
		SELECT v_pers
		SCATTER NAME popersoane 
		save_grid_tag(thisform.pagina.paGE2._grid1)
		poarticole.ca_baza1.cfiltru=[id_part = ] + ALLTRIM(STR(popersoane.id_part))
		poarticole.ca_baza1.afisare()
		restore_grid_tag(thisform.pagina.paGE2._grid1)
		DODEFAULT()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_conditii_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lista2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CUS_ODATA_COND1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_sterge_conditie
		*p: temporar
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 226
		Name = "frm_conditii_nou"
		temporar = 0
		Width = 533
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 533
		_shape2.Height = 29
		_shape2.Left = 468
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "Adaugare / Modificare conditie"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 6
		BUT_TERMIN1.Left = 497
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Left = 468
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 5
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		caction = do_sterge_conditie, ;
		Left = 479, ;
		Name = "But_sterge1", ;
		TabIndex = 8, ;
		Top = 140, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Cb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 67, ;
		Width = 232, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.BoundTo = .T., ;
		_cbbase1.ColumnCount = 1, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 77, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "taElemente", ;
		_cbbase1.RowSourceType = 5, ;
		_cbbase1.Style = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Value = , ;
		_cbbase1.Width = 152, ;
		_lbbase1.Caption = "Elemente", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 36, ;
		Width = 515, ;
		Text_simplu1.ControlSource = "poconditii.denumire", ;
		Text_simplu1.DisabledBackColor = 242,242,242, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .F., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 410, ;
		Lb_simplu1.Caption = "Denumire", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Left = 251, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 3, ;
		Top = 67
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'CUS_ODATA_COND1' AS cus_odata_cond WITH ;
		Left = 504, ;
		Name = "CUS_ODATA_COND1", ;
		Top = 84
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />

	ADD OBJECT 'lista2' AS _listbox WITH ;
		Height = 120, ;
		Left = 12, ;
		Name = "lista2", ;
		RowSource = "taCompun", ;
		RowSourceType = 5, ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 98, ;
		Width = 464
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />
	
	PROCEDURE do_cauta
		
		IF EMPTY(thisform.cb_tx_simplu2._cbbase1.Value)
			RETURN 
		ENDIF 	
		lnValue = thisform.cb_tx_simplu2._cbbase1.ListIndex
		IF EMPTY(lnValue)
			RETURN 
		ENDIF 	
		lcCamp = taElemente[lnValue,2]
		
		
		lcTabela = taElemente[lnValue,5]
		lcId = taElemente[lnValue,3]
		&&tratare sex 
		lsex=.f.
		IF OCCURS(':',lcId)>0
			lcID=SUBSTR(lcId,2)
			lSex = .t.
		ENDIF 	
		&&tratare sex 
		lcTITLU = taElemente[lnValue,1]
		buton=2
		
		pcselect = [select ] + IIF(lsex=.t.,lcId + ' ' ,lcid+[,]) +  lcCamp +  + [ from ] + gcS + [.] + lcTabela 
		pcfiltruinitial=[sters=0]
		pcfiltru = [2=2]
		pcschema = []
		pcorder = lcCamp	
		pccoloane = lcCamp
		pcTitlu = lcTITLU
		pcTitluColoane = lcTITLU
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,,,pcfiltruinitial)
		IF buton#2
			thisform.temporar=thisform.temporar + 1    &&dimensiune array
			 
			lcValoare = ALLTRIM(locauta.&lcCamp)
			IF !lsex
				lcValId = ALLTRIM(STR(locauta.&lcId))		&&valoare id
			ENDIF 	
			
		
			lnLenTemp = ALEN(taCompun,1)
			IF lnLenTemp < thisform.temporar
				DIMENSION taCompun[thisform.temporar,3]				&&redimensionez array temporar
				taCompun[thisform.temporar,1]=0
				taCompun[thisform.temporar,2]=0
				taCompun[thisform.temporar,3]=0
				lnLenTemp = thisform.temporar   &&dimensiune
			ENDIF 	
		
			lnpoz = ASCAN(taCompun,lnValue,1,lnLenTemp ,3,8)  &&verific daca mai am conditii pt aceasta tabela 
			DO WHILE lnpoz>0
				IF ALLTRIM(lower(RIGHT(taCompun[lnpoz,1],4)))#'sau'
		
					taCompun[lnpoz,1] = taCompun[lnPoz,1] + ' sau '	
				ENDIF 
				lnPoz = ASCAN(taCompun,lnValue,lnpoz+1,lnLenTemp-lnpoz,3,8)
			ENDDO 
			taCompun[thisform.temporar,1] = lcTITLU + ' este ' + lcValoare
			IF lsex
				lcId = lcCamp
				lcValId = [''] + lcValoare + ['']
			ENDIF 	
			taCompun[thisform.temporar,2] = lcId + '=' + lcValId
			taCompun[thisform.temporar,3] = lnValue	
			ASORT(taCompun,3,lnLenTemp)     &&ordonare
			thisform.lista2.Requery()
		
		ENDIF 	
		
	ENDPROC

	PROCEDURE do_sterge_conditie
		thisform.LockScreen=.t.
		
		lnLen = ALEN(taCompun,1)
		lnitem = thisform.lista2.ListItemId
		
		IF TYPE('taCompun[lnitem-1,1]')#'U'  &&verific inregistrarea precedenta ca sa scot 'sau'
			lcValue = taCompun[lnitem-1,1]
			IF ALLTRIM(lower((RIGHT(lcValue,4))))='sau'
				taCompun[lnitem-1,1] = SUBSTR(taCompun[lnitem-1,1],1,LEN(taCompun[lnitem-1,1])-4)
			ENDIF 	
		ENDIF 
		ADEL(taCompun,lnitem)
		IF ALEN(taCompun,1)>1
			DIMENSION taCompun[lnLen-1,3]
			thisform.temporar=ALEN(taCompun,1)
		ELSE 	
			thisform.temporar=0
		ENDIF 	
		thisform.lista2.RemovelistItem(lnitem)
		thisform.lista2.requery
		thisform.LockScreen=.f.
	ENDPROC

	PROCEDURE inainte_de_do_termin
		
		lnLen = ALEN(taCompun,1)
		
		lnFlag = taCompun[1,3]
		
		lcString = ''
		IF TYPE('lnflag')='N'
			FOR i=1 TO lnLen
				lnFlag2 = taCompun[i,3]
				lcCond = taCompun[i,2]
				IF lnFlag=lnFlag2
					IF i=1
						lcString = taCompun[i,2]
					ELSE
						lcString = lcString + ' OR ' + taCompun[i,2]	
					ENDIF 
				ELSE
					lnFlag = taCompun[i,3]
					lcString = lcString + ')' + ' AND ' + '(' + taCompun[i,2]
				ENDIF 
			ENDFOR 
			lcString = '(' + lcString + ')'
		ELSE
			lcString = '1=1'
		ENDIF 	
			poconditii.conditie = lcString
		
			plreturn = This.cus_odata_cond1.salvare(poconditii,poconditii.id_conditie)
		RETURN plreturn 	
		
	ENDPROC

	PROCEDURE Init
		PARAMETERS tcOperatie,taCompun,taElemente,tnTemporar
		
		thisform.temporar=tnTemporar
		this.cuS_ODATA_COND1.cactiune=tcOperatie
		
		DODEFAULT()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_config_acte AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tx_tabel" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lista_st" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="LB_SIMPLU1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lista_dr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_act" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_act.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_act.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_act.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_act.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_executa2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lista_ref" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_adauga_ref
		*m: do_alege_ref
		*m: do_select_ref
		*m: do_sterge_listadr
		*m: do_umple_listadr
		*m: select_coloane
		*p: tabel
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 362
		Name = "frm_config_acte"
		tabel = 
		Width = 751
		_SHAPE1.Height = 29
		_SHAPE1.Left = 0
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 756
		_SHAPE2.Height = 29
		_SHAPE2.Left = 688
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 62
		LB_TITLU_ALB_B121.Caption = "Configurare coloane acte"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 10
		BUT_TERMIN1.Left = 719
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 8
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
		BUT_RENUNT1.Left = 690
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 9
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT 'But_nou1' AS but_nou WITH ;
		caction = do_adauga_ref, ;
		Left = 690, ;
		Name = "But_nou1", ;
		Top = 68
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		caction = do_sterge_listadr, ;
		Height = 27, ;
		Left = 548, ;
		Name = "But_sterge1", ;
		TabIndex = 14, ;
		Top = 68, ;
		Visible = .T., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge2' AS but_sterge WITH ;
		Height = 27, ;
		Left = 719, ;
		Name = "But_sterge2", ;
		TabIndex = 14, ;
		Top = 68, ;
		Visible = .T., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
		Left = 490, ;
		Name = "CMD_CAUTA1", ;
		TabIndex = 3, ;
		Top = 36
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
		Caption = "", ;
		cpicturedown = add.bmp, ;
		cpictureup = add.bmp, ;
		Height = 27, ;
		Left = 369, ;
		Name = "Cmd_executa1", ;
		Picture = ..\grafice\utile\add.bmp, ;
		TabIndex = 5, ;
		Top = 176, ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmd_executa2' AS cmd_executa WITH ;
		Caption = "", ;
		cpicturedown = add.bmp, ;
		cpictureup = add.bmp, ;
		Height = 27, ;
		Left = 369, ;
		Name = "Cmd_executa2", ;
		Picture = ..\grafice\utile\add_ref.bmp, ;
		TabIndex = 5, ;
		Top = 204, ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grd_act' AS _grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		GridLineColor = 192,192,192, ;
		GridLines = 3, ;
		Height = 329, ;
		Left = 4, ;
		Name = "grd_act", ;
		Panel = 1, ;
		RecordSource = "v_nom_acte", ;
		Top = 31, ;
		Width = 225, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "", ;
		Column1.Name = "Column1", ;
		Column1.Visible = .T., ;
		Column1.Width = 20, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ControlSource = "nume_act", ;
		Column2.Name = "Column2", ;
		Column2.Visible = .T., ;
		Column2.Width = 207
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT 'grd_act.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_act.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_act.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Document", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_act.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'LB_SIMPLU1' AS lb_simplu WITH ;
		Caption = "Coloane", ;
		FontBold = .T., ;
		Left = 253, ;
		Name = "LB_SIMPLU1", ;
		TabIndex = 11, ;
		Top = 81
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
		Caption = "Coloane salvate", ;
		FontBold = .T., ;
		Left = 447, ;
		Name = "Lb_simplu2", ;
		TabIndex = 12, ;
		Top = 81
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ;
		Caption = "Referinte", ;
		FontBold = .T., ;
		Left = 605, ;
		Name = "Lb_simplu5", ;
		TabIndex = 12, ;
		Top = 81
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'lista_dr' AS _listbox WITH ;
		AutoHideScrollbar = 1, ;
		ColumnCount = 2, ;
		Height = 263, ;
		Left = 401, ;
		MoverBars = .F., ;
		MultiSelect = .T., ;
		Name = "lista_dr", ;
		RowSource = "taListadr", ;
		RowSourceType = 5, ;
		TabIndex = 6, ;
		Top = 97, ;
		Width = 176
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />

	ADD OBJECT 'lista_ref' AS _listbox WITH ;
		AutoHideScrollbar = 1, ;
		ColumnCount = 2, ;
		Height = 71, ;
		Left = 578, ;
		MoverBars = .F., ;
		Name = "lista_ref", ;
		RowSource = "talistaref", ;
		RowSourceType = 5, ;
		TabIndex = 6, ;
		Top = 97, ;
		Width = 170
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />

	ADD OBJECT 'lista_st' AS _listbox WITH ;
		AutoHideScrollbar = 1, ;
		Height = 263, ;
		Left = 231, ;
		MoverBars = .F., ;
		MultiSelect = .T., ;
		Name = "lista_st", ;
		TabIndex = 4, ;
		Top = 97, ;
		Width = 137
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />

	ADD OBJECT 'tx_tabel' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 247, ;
		Name = "tx_tabel", ;
		TabIndex = 2, ;
		Top = 36, ;
		Width = 240, ;
		TEXT_SIMPLU1.ControlSource = "thisform.tabel", ;
		TEXT_SIMPLU1.Left = 49, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		LB_SIMPLU1.Caption = "Tabel", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE do_adauga_ref
		LPARAMETERS tnOpt
		
		lnOpt = tnOpt
		
		lcTabel = UPPER(ALLTRIM(thisform.tabel))
		lcCol   = this.lista_st.List(this.lista_st.ListIndex)
		lnIdCol = taListadr[this.lista_dr.ListIndex,3]
		
		lcsql = [begin pack_personal.update_nom_col_acte(?lnIdCol,?lcCol,?lcTabel,?lnOpt);end;]
		lnSucces = goExecutor.oExecute(lcsql)
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0+16,"Eroare")
		ENDIF 
		this.do_select_ref()
	ENDPROC

	PROCEDURE do_alege_ref
		lnbar = .null.
		DO add_ref.mpr
		
		
		DO CASE 
			CASE lnbar=1
			 	thisform.do_adauga_ref(lnbar)
			CASE lnbar=0
				thisform.do_adauga_ref(lnbar)
		OTHERWISE 
		
		ENDCASE 	
	ENDPROC

	PROCEDURE do_cauta
		PRIVATE lcTabel
		lcTabel = ALLTRIM(this.tx_tabel.teXT_SIMPLU1.Value )
		this.lista_st.clear()
			IF !EMPTY(lcTabel)
				lcSQl = [select a.table_name,a.column_name from user_tab_columns a where a.table_name ='] + lcTabel + [']
			lcCursor = 'v_coloane'
			lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
		
			IF lnSucces < 0
				MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			ENDIF
			
			LOCAL lnrec 
			lnrec = RECCOUNT('v_coloane')
			IF lnrec=0
				MESSAGEBOX('Tabela nu exista!',16)
				this.lista_st.Clear()
				RETURN 
			ENDIF 
				this.LockScreen=.t.	
			SELECT v_coloane
				SCAN 
					lcColoana = ALLTRIM(column_name)
					this.lista_st.AddItem(lcColoana)
					SELECT v_coloane
				ENDSCAN 
			this.lista_st.Sorted= .T.		
			this.lista_st.Requery()	
			this.LockScreen=.f.
		ENDIF 	
	ENDPROC

	PROCEDURE do_select_ref
		this.lista_ref.Clear()
		
		DIMENSION talistaref[2,2]
		ADEL(talistaref,1)
		
		IF isalpha(talistadr[this.lista_dr.ListIndex,5])
			talistaref[1,1]=ALLTRIM(talistadr[this.lista_dr.ListIndex,5])
			talistaref[1,2]=ALLTRIM(talistadr[this.lista_dr.ListIndex,7]) 
		ENDIF 
		
		IF isalpha(talistadr[this.lista_dr.ListIndex,6])	
			talistaref[2,1]=ALLTRIM(talistadr[this.lista_dr.ListIndex,6])
			talistaref[2,2]=ALLTRIM(talistadr[this.lista_dr.ListIndex,7])
		ENDIF 	
		FOR i=1 TO 2 
			IF TYPE('talistaref[i,1]')='L'
			   talistaref[i,1]=''
			   talistaref[i,2]=''
			ENDIF    
		ENDFOR 
		this.lista_ref.Requery()
	ENDPROC

	PROCEDURE do_sterge_listadr
		LOCAL lnColoane,lnCount,lfColoana
		STORE 0 TO lnColoane,lnCount
		*!*	DEBUG
		*!*	SUSPEND 
		lnCount = this.lista_dr.ListCount 
		this.LockScreen=.t.
		FOR i=lncount TO 1 STEP -1
			lfColoana = this.lista_dr.selected(i) && selectie
			lnitem=i
			IF lfColoana
				lnidCol = taListadr[lnitem,3]
				lcsql = [begin pack_personal.sterge_nom_col_acte(?lnidCol);end;]
				lnSucces = goExecutor.oExecute(lcsql)
				If lnSucces < 0
					Messagebox(goExecutor.cEroare,0+16,"Eroare")
				ELSE 
					lnLen = ALEN(taListadr,1)
					ADEL(taListadr,lnitem)
					IF ALEN(taListadr,1)>1
						DIMENSION taListadr[lnLen-1,4]
					ENDIF 	
					thisform.lista_dr.RemovelistItem(lnitem)
					
				Endif		
			ENDIF  
		ENDFOR 
			thisform.lista_dr.requery()  &&refresh
		this.LockScreen=.f.
		
	ENDPROC

	PROCEDURE do_umple_listadr
		LOCAL lnColoane,lnCount,lfColoana
		STORE 0 TO lnColoane,lnCount,lnCuloare
		lfColoana=.f.
		lcTabel = UPPER(ALLTRIM(thisform.tabel))
		
		lnCount = this.lista_st.ListCount 
		IF !EMPTY(taListadr[1,1])
			j=ALEN(taListadr,1)   &&pt redimensionat array
		ELSE 
			j=0
		ENDIF 		
		this.LockScreen=.t.
		FOR i=1 TO lncount
			lfColoana = this.lista_st.selected(i) && selectie
			lcColoana = ALLTRIM(this.lista_st.List(i))   &&nume coloana
			IF lfColoana
				lnidcol=0
				lcsql = [begin pack_personal.adauga_nom_col_acte(?poact.id_act,?lcColoana,?lcTabel,?lnCuloare,?@lnidcol);end;]
				lnSucces = goExecutor.oExecute(lcsql)
				If lnSucces < 0
					Messagebox(goExecutor.cEroare,0+16,"Eroare")
				ELSE 
					j=j+1
					lnLen = ALEN(taListadr,1)
					
					IF j>lnLen
						DIMENSION taListadr[j,4]
					ENDIF 	
					taListadr[j,1] = lcColoana
					taListadr[j,2] = lcTabel
					taListadr[j,3] = lnidcol
					taListadr[j,4] = lnCuloare
					this.lista_dr.Requery()	
				Endif		
			ENDIF  
		ENDFOR 
		this.LockScreen=.f.
	ENDPROC

	PROCEDURE Init
		PARAMETERS taListadr,talistaref
		this.grd_act.SetFocus()
	ENDPROC

	PROCEDURE select_coloane
		
		LOCAL lnColoane,lnCount,lfColoana
		this.LockScreen=.t.
		DIMENSION taListadr[1,4]
		ADEL(taListadr,1)
		this.lista_dr.clear()
		
		lcsql = [{call pack_personal.select_col_acte(?poact.id_act)}]
		lcCursor = [crsCol]
		lnSucces = goExecutor.oExecute(lcsql,lcCursor)
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0+16,"Eroare")
		ELSE 
			IF RECCOUNT('crsCol')>0
				SELECT * FROM crsCol INTO ARRAY taListadr 
				this.lista_dr.Requery()	
			ENDIF 	
			USE IN crsCol	
		Endif		
		
		this.LockScreen=.f.
	ENDPROC

	PROCEDURE Cmd_executa1.Click
		thisform.do_umple_listadr()
	ENDPROC

	PROCEDURE Cmd_executa2.Click
		thisform.do_alege_ref()
	ENDPROC

	PROCEDURE grd_act.AfterRowColChange
		LPARAMETERS nColIndex
		SELECT v_nom_acte
		SCATTER NAME poact
		thisform.select_coloane()
		DODEFAULT(nColIndex)
	ENDPROC

	PROCEDURE lista_dr.Click
		thisform.do_select_ref()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_copii_toti AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 519
		Name = "frm_copii_toti"
		Width = 792
		WindowState = 2
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 912
		_shape2.Left = 732
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Lista cu angajati si copii"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 752
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 10, ;
		DeleteMark = .F., ;
		Height = 468, ;
		Left = 12, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "salCopii", ;
		Top = 47, ;
		Width = 768, ;
		Column1.ControlSource = "nume", ;
		Column1.Name = "Column1", ;
		Column1.Width = 109, ;
		Column2.ControlSource = "prenume", ;
		Column2.Name = "Column2", ;
		Column2.Width = 113, ;
		Column3.ControlSource = "marca", ;
		Column3.Name = "Column3", ;
		Column3.Width = 61, ;
		Column4.ControlSource = "meseria", ;
		Column4.Name = "Column4", ;
		Column4.Width = 80, ;
		Column5.ControlSource = "formatia", ;
		Column5.Name = "Column5", ;
		Column5.Width = 97, ;
		Column6.ControlSource = "sectie", ;
		Column6.Name = "Column6", ;
		Column6.Width = 94, ;
		Column7.ControlSource = "numec", ;
		Column7.Name = "Column7", ;
		Column7.Width = 132, ;
		Column8.ControlSource = "prenumec", ;
		Column8.Name = "Column8", ;
		Column8.Width = 141, ;
		Column9.ControlSource = "codpersc", ;
		Column9.Name = "Column9", ;
		Column9.Width = 102, ;
		Column10.ControlSource = "datanast", ;
		Column10.Format = "d", ;
		Column10.Name = "Column10", ;
		Column10.Width = 101
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Caption = "Nume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ;
		Caption = "Data nasterii", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Caption = "Prenume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
		Caption = "Marca", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
		Caption = "Meseria", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
		Caption = "Formatia", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
		Caption = "Sectia", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
		Caption = "Nume copil", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ;
		Caption = "Prenume copil", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
		Caption = "Codpers", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		caction = do_excel, ;
		Left = 692, ;
		Name = "But_excel1", ;
		Top = 0, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		caction = do_listare, ;
		Left = 721, ;
		Name = "But_listare1", ;
		Top = 0, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 630, ;
		Name = "But_reset_criterii1", ;
		Top = 1
		*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 662, ;
		Name = "But_start_criterii1", ;
		Top = 0
		*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		If Empty(tcFiltru)
			lcFiltru = poCopii.ca_baza1.cfiltru
		Else
			lcFiltru = tcFiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		save_grid_tag(Thisform._grdrow1)
		
		
		poCopii.ca_baza1.cfiltru=lcFiltru
		poCopii.ca_baza1.afisare()
		restore_grid_tag(Thisform._grdrow1)
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
	ENDPROC

	PROCEDURE do_cauta
		LOCAL lcFiltru
		*!*	lcFiltru =  poCopii.ca_baza1.cfiltru
		lcFiltru = ' 2 = 2 ' 
		IF LEN(THISFORM.filtru_pretty)>0
			filtrutext=THISFORM.filtru_pretty
			IF AT("AND",filtrutext)=1
				filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4)
			ENDIF
		
			lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
		ENDIF
		
		IF (THIS.filtru_pretty#"none")
			THISFORM.actualizeaza_grid1(lcFiltru)
			IF RECCOUNT('salCopii')=0
				aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
			ENDIF
		ENDIF
		THISFORM.but_start_criterii1.SETFOCUS
		
	ENDPROC

	PROCEDURE do_excel
		goExport.export2xls('salCopii',[foaie_excel])
		
	ENDPROC

	PROCEDURE do_listare
		lnMenu = xmenu("Lista cu angajatii si copiii acestora;Lista copii in ordinea varstei")
		If !Between(lnMenu,1,2)
			Return
		ENDIF
		If Inlist(lnMenu, 1)
			this.AlwaysOnTop =.f.
			goExport.export2frx([salCopii],'list_copii')
			this.AlwaysOnTop =.t.
		ENDIF 
		If Inlist(lnMenu, 2)
			this.AlwaysOnTop =.f.
			SELECT * FROM salcopii INTO CURSOR crsCopiiVarsta ORDER BY datanast
			goExport.export2frx([crsCopiiVarsta],'list_copii_varsta')
			this.AlwaysOnTop =.t.
			Use In (Select('crsCopiiVarsta'))
		ENDIF 
	ENDPROC

	PROCEDURE do_reset
		poCopii.ca_baza1.cfiltru = [ 2 = 2 ]
		DODEFAULT()
		
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#DEFINE crlf CHR(13)+CHR(10)
		lcStringCriterii="Marca\marca\N\none\"+crlf+;
						 "Nume salariat\nume\T\none\"+crlf+;
						 "Prenume salariat\prenume\T\none\"+crlf+;
						 "Formatia\formatia\T\none\" + crlf + ;
						 "Meseria\meseria\T\none\" + crlf + ;
						 "Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;				 
						 "CNP angajat\codpers\T\none\"  + crlf + ;	
						 "Nume copil\numec\T\none\"+crlf+;
						 "Prenume copil\prenumec\T\none\"+crlf+;
						 "CNP copil\c_vechimea\T\none\"+crlf+;
						 "Data nasterii\b.datanast\D\none"
		
						
			
		*!*		
		*!*	"Serie act\serie_act\T\none\"+ crlf + ;
		*!*		"Data act\dataact\D\none\" + crlf + ;
		*!*		"Data inreg\dataIREG\D\none\" + crlf + ;
		*!*		"Tip document\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
		*!*		"Numar document\NRACT\N\none\" + crlf + ;
		*!*		"Explicatie D\partD\T\ID_PARTD\nom_parteneri"+ crlf + ;
		*!*		"Explicatie C\partC\T\ID_PARTC\nom_parteneri"+ crlf + ;
		*!*		"Explicatie\explicatia\T\none\"+ crlf + ;
		*!*		"Explicatia 4\explicatia4\T\none\"+ crlf + ;
		*!*		"Explicatia 5\explicatia5\T\none\"+ crlf + ;
		*!*		"Explicatii\partD,partC,explicatia,explicatia4,explicatia5\T\none\"+ crlf + ;
		*!*		"Gestiune destinatie\gestin\T\ID_GESTIN\nom_gestiune"+ crlf + ;
		*!*		"Gestiune sursa\gestout\T\ID_GESTOUT\nom_gestiune" + crlf + ;
		*!*		"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
		*!*		"Contract\contract\T\none\" + crlf + ;
		*!*		"Cont debitor\scd\T\none\" + crlf + ;
		*!*		"Cont debitor analitic\ascd\T\none\" + crlf + ;
		*!*		"Cont creditor\scc\T\none\" + crlf + ;
		*!*		"Cont creditor analitic\ascc\T\none\" + crlf + ;
		*!*		"Suma\suma\N\none\" + crlf + ;
		*!*		"Suma valuta\suma_val\N\none\" + crlf + ;
		*!*		"Nr document incasat\perecheC\N\none\" + crlf + ;
		*!*		"Nr document platit\perecheD\N\none\" + crlf + ;
		*!*		"Nr. NIR/bon\nnir\N\none\" + crlf + ;
		*!*		"Responsabil\nresp\T\ID_RESPONSABIL\nom_parteneri" + crlf + ;
		*!*		"Cheltuieli/Venituri\dst_chlt\T\ ID_VENCHELT\nom_venchel" + crlf + ;
		*!*		"Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
		*!*		"Cod\cod\N\none\" + crlf + ;
		*!*		"Tip operatie\id_set\N\none\" + crlf + ;
		*!*		"Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
		*!*		"Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala" + crlf + ;
		*!*		"Cota TVA\proc_tva\N\none\" + crlf + ;
		*!*		"Explicatie TVA\explicatie_tva\T\none\" + crlf + ;
		*!*		"Data introducerii\trunc(dataora)\D\none\" + crlf + ;
		*!*		"Operator introducere\util\T\ID_UTIL\nom_utilizator" + crlf + ;
		*!*		"Validate\nofiled\E\(validat = 1)\" + crlf + ;
		*!*		"Nevalidate\nofiled\E\(validat = 0)\" + crlf + ;	
		*!*		"Data validarii\trunc(dataorav)\D\none\" + crlf + ;
		*!*		"Operator validare\utilv\T\ID_UTILv\nom_utilizator"
		
		DODEFAULT()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_curs_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_curs1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_curs" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_cauta_curs
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		DoCreate = .T.
		Height = 172
		Name = "frm_curs_nou"
		nid = 0
		orec = 
		Width = 373
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 310
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "CURSURI"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 6
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 104, ;
		Width = 348, ;
		TEXT_SIMPLU1.ControlSource = "porec.test", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 101, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 235, ;
		LB_SIMPLU1.Caption = "Serie/ Nr Act", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 4, ;
		Top = 132, ;
		Width = 209, ;
		TEXT_SIMPLU1.ControlSource = "porec.data", ;
		TEXT_SIMPLU1.Format = "KD", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 101, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 103, ;
		LB_SIMPLU1.Caption = "Data :", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 2, ;
		Top = 76, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.nota", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "Nota :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_curs' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(porec.id_c,0)), ;
		cprocedura = Thisform.do_cauta_curs, ;
		cvar_afisata = porec.denumire, ;
		Height = 31, ;
		Left = 16, ;
		Name = "Ct_clb_curs", ;
		TabIndex = 16, ;
		Top = 42, ;
		Width = 356, ;
		SHAPE_CAUTARE.BorderStyle = 0, ;
		SHAPE_CAUTARE.Name = "SHAPE_CAUTARE", ;
		IMG_CAUTARE.Anchor = 672, ;
		IMG_CAUTARE.Left = 318, ;
		IMG_CAUTARE.Name = "IMG_CAUTARE", ;
		IMG_CAUTARE.Top = 5, ;
		LB_CAUTARE.Caption = "Denumire curs", ;
		LB_CAUTARE.Left = 4, ;
		LB_CAUTARE.Name = "LB_CAUTARE", ;
		LB_CAUTARE.Top = 8, ;
		TX_CAUTARE.Anchor = 672, ;
		TX_CAUTARE.FontName = "Arial Narrow", ;
		TX_CAUTARE.Height = 23, ;
		TX_CAUTARE.Left = 100, ;
		TX_CAUTARE.Name = "TX_CAUTARE", ;
		TX_CAUTARE.Top = 4, ;
		TX_CAUTARE.Width = 214
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_curs1' AS cus_odata_curs WITH ;
		Left = 48, ;
		Name = "Cus_odata_curs1", ;
		Top = 36
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE Destroy
		IF USED('v_curs')
			USE IN v_curs
		ENDIF 	
	ENDPROC

	PROCEDURE do_cauta_curs
		LOCAL loCauta
		SET STEP ON 
		loCauta = caut_curs(.T.)
		If gnButon # 2
			porec.denumire = Alltrim(locauta.denumire)
			porec.id_c = locauta.id_c 
			Thisform.clb_tx_simplu4.text_simplu1.Setfocus()
		Endif
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_curs1.cactiune 
		
		
		
		PLRETURN=This.cus_odata_curs1.salvare(This.OREC,This.NID)
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_curs1.cactiune = tcActiune
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_difpart AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_prenume" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_cnp" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 390
		Name = "frm_difpart"
		Width = 639
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 639
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 577
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 61
		Lb_titlu_alb_b121.Caption = "Parteneri"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 608
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 0
		Gridsort1.Left = 192
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 8
	*</PropValue>

	ADD OBJECT '_GRID1' AS _grid WITH ;
		Anchor = 15, ;
		ColumnCount = 14, ;
		DeleteMark = .F., ;
		Height = 321, ;
		Left = 3, ;
		Name = "_GRID1", ;
		Panel = 1, ;
		RecordSource = "v_dif_part", ;
		Top = 68, ;
		Width = 633, ;
		Column1.ControlSource = "round(nr,0)", ;
		Column1.Name = "Column1", ;
		Column1.Width = 67, ;
		Column2.ControlSource = "nume", ;
		Column2.Name = "Column2", ;
		Column2.Width = 100, ;
		Column3.ControlSource = "prenume", ;
		Column3.Name = "Column3", ;
		Column3.Width = 91, ;
		Column4.ControlSource = "cod_fiscal", ;
		Column4.Name = "Column4", ;
		Column4.Width = 83, ;
		Column5.ControlSource = "reg_comert", ;
		Column5.Name = "Column5", ;
		Column5.Width = 83, ;
		Column6.ControlSource = "strada", ;
		Column6.Name = "Column6", ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "numar", ;
		Column7.Name = "Column7", ;
		Column7.Width = 59, ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "telefon", ;
		Column8.Name = "Column8", ;
		Column9.ColumnOrder = 13, ;
		Column9.ControlSource = "localitate", ;
		Column9.Name = "Column9", ;
		Column9.Width = 95, ;
		Column10.ColumnOrder = 14, ;
		Column10.ControlSource = "judet", ;
		Column10.Name = "Column10", ;
		Column10.Width = 108, ;
		Column11.ColumnOrder = 11, ;
		Column11.ControlSource = "apart", ;
		Column11.Name = "Column14", ;
		Column11.Width = 80, ;
		Column12.ColumnOrder = 10, ;
		Column12.ControlSource = "etaj", ;
		Column12.Name = "Column15", ;
		Column12.Width = 79, ;
		Column13.ColumnOrder = 8, ;
		Column13.ControlSource = "bloc", ;
		Column13.Name = "Column22", ;
		Column13.Width = 58, ;
		Column14.ColumnOrder = 9, ;
		Column14.ControlSource = "scara", ;
		Column14.Name = "Column23", ;
		Column14.Width = 92
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. crt", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Judet", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Apart", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column15.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Etaj", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column15.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column22.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bloc", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column22.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column23.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Scara", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column23.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prenume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CNP", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bi seria,nr", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Strada", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Numar", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Telefon", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Localitate", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
		Left = 578, ;
		Name = "BUT_RENUNT1", ;
		Top = 0
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Ck_cnp' AS ck_filtru_numar WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		camp_nume = cod_fiscal, ;
		Caption = "CNP", ;
		Left = 118, ;
		mask = (replicate('9',13)), ;
		Name = "Ck_cnp", ;
		Top = 33
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		camp_nume = nume, ;
		Caption = "Nume", ;
		Left = 12, ;
		Name = "Ck_nume", ;
		Top = 33
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_prenume' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		camp_nume = prenume, ;
		Caption = "Prenume", ;
		Left = 60, ;
		Name = "Ck_prenume", ;
		Top = 33
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Anchor = 9, ;
		Left = 466, ;
		Name = "Cmd_cauta1", ;
		Top = 31
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
		Anchor = 9, ;
		Left = 551, ;
		Name = "Cmd_reset1", ;
		Top = 31
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters pcFiltru
		Local lcFiltru
		
		lcFiltru=pcFiltru
		If Empty(lcFiltru)
			lcFiltru=podif.ca_baza1.cfiltru
		Endif
		Thisform._grid1.salveaza_grid()
		podif.ca_baza1.cfiltru=lcFiltru
		podif.ca_baza1.afisare()
		Thisform._grid1.incarca_grid()
		If Reccount('v_dif_part')>0
			Select v_dif_part
			Replace All nr With Recno()
			Go Top
			Thisform._grid1.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_cauta
		LOCAL lcFiltru
		lcFiltru = "2=2"
		
		IF thisform.ck_cnp.Value=1
			lcFiltru = lcFiltru + thisform.ck_cnp.filtru 
		ENDIF 	
		
		IF thisform.ck_nume.Value=1
			lcFiltru = lcFiltru + thisform.ck_nume.filtru
		ENDIF 
		
		IF thisform.ck_prenume.Value=1
			lcFiltru = lcFiltru + thisform.ck_prenume.filtru 
		ENDIF 
			SELECT v_dif_part
			replace ALL nr WITH RECNO()	
			GO TOP 
		thisform.actualizeaza_grid1(lcFiltru)
		If Reccount('v_dif_part')=0
			aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
		Endif
	ENDPROC

	PROCEDURE do_reset
		WITH thisform
			.ck_cnp.Value=0	
			.ck_nume.Value=0
			.ck_prenume.Value=0	
			.do_cauta()
		ENDWITH 	
		
	ENDPROC

	PROCEDURE _shape1.DblClick
		IF thisform.WindowState= 0
			thisform.WindowState= 2
		ELSE 
			thisform.WindowState= 0
		ENDIF 	
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_echip_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cus_odata_echip1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_articol
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 97
		Name = "frm_echip_nou"
		nid = 0
		orec = 
		Width = 373
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "Articole"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 1
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		Gridsort1.Left = 9
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 31
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 5
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 65, ;
		Width = 159, ;
		Text_simplu1.ControlSource = "porec.numar", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 71, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 85, ;
		Lb_simplu1.Caption = "Numar :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
		cconditie = empty(porec.id_articol), ;
		cprocedura = thisform.do_alege_articol, ;
		cvar_afisata = porec.articol, ;
		Left = 12, ;
		Name = "Ct_clb_cautare1", ;
		TabIndex = 1, ;
		Top = 33, ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Articol", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.ControlSource = "", ;
		clb_tx_cautare.Text_simplu1.Height = 23, ;
		clb_tx_cautare.Text_simplu1.Left = 102, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Top = 3, ;
		clb_tx_cautare.Text_simplu1.Width = 205
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_echip1' AS cus_odata_echip WITH ;
		Left = 96, ;
		Name = "Cus_odata_echip1", ;
		Top = 12
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE do_alege_articol
		lcSel = [select pack_personal.ver_cond_echip(?popers.id_stat) as rezultat from dual]
		 
		lcCursor = 'crs_id_cond'
		lnSucces = goExecutor.oExecute(lcSel,lcCursor)
		IF lnSucces < 0
			MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		ENDIF
		SELECT crs_id_cond
		lcString=rezultat
		USE IN crs_id_cond
		
		
		IF isnull(lcString)
			MESSAGEBOX('Nu exista nici o conditie configurata pt aceasta persoana!',48,'Atentie')
			RETURN 
		ENDIF 	
		
		pcselect = [select id_nec,id_articol,articol,codmat,denumire as conditie from sal_vcond_echip]
		
		pcfiltruOriginal = [1=1]+lcString
		pcfiltru = [1=2]
		pcorder = [articol]
		pccoloane = [articol,codmat,conditie,id_articol]
		pcTitlu = [Articole]
		pcTitluColoane = [Articol,Cod material,Conditie,Id]
		
		loHash=gethash()
		loHash.setvalue('cSelect',pcselect)
		loHash.setvalue('cFiltru',pcfiltru)
		loHash.setvalue('cOrder',pcorder)
		loHash.setvalue('cColoana',pccoloane)
		loHash.setvalue('cTitlu',pcTitlu)
		loHash.setvalue('cTitluColoana',pcTitluColoane)
		loHash.setvalue('cFiltruOriginal',pcfiltruOriginal)
		loCauta = cauta_alfa_hash(lohash)
		
		IF !EMPTY(locauta.id_articol)
			porec.articol = locauta.articol
			porec.id_articol = locauta.id_articol
			this.Refresh 
		ENDIF
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_echip1.cactiune 
		
		Do Case
		Case Empty(porec.articol)
			Messagebox('Nu ati completat articolul!',0+48,"Atentie")
			this.clb_tx_simplu1.text_simplu1.SetFocus()
			
			plreturn=.F.
		
		OTHERWISE
			PLRETURN=This.cus_odata_echip1.salvare(This.OREC,This.NID)
		
		ENDCASE 
		
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_echip1.cactiune = tcActiune
		
		IF This.cus_odata_echip1.cactiune='INSERT'
			thisform.do_alege_articol()	
		ENDIF 	
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_familie1_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cus_odata_fam1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 200
		Name = "frm_familie1_nou"
		nid = 0
		orec = 
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 308
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 70
		Lb_titlu_alb_b121.Caption = "Date copil"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		BUT_TERMIN1.Left = 345
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Left = 312
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 7
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Cb_tx_simplu1", ;
		TabIndex = 5, ;
		Top = 153, ;
		Width = 166, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "DA,NU", ;
		_cbbase1.RowSourceType = 1, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 53, ;
		_lbbase1.Caption = "În întreținere ?", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 41, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.nume", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "Nume :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 12, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 69, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.prenume", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "Prenume :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Left = 12, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 3, ;
		Top = 97, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.codpers", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "CNP :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 4, ;
		Top = 125, ;
		Width = 192, ;
		Text_simplu1.ControlSource = "porec.datanast", ;
		Text_simplu1.Format = "!KD", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 79, ;
		Lb_simplu1.Caption = "Data nașterii :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_fam1' AS cus_odata_fam WITH ;
		Left = 336, ;
		Name = "Cus_odata_fam1", ;
		Top = 204
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_fam1.cactiune 
		Do Case
		Case Empty(porec.nume)
			Messagebox('Nu ati completat numele copilului!',0+48,"Atentie")
			This.clb_tx_simplu1.SetFocus()
			PLRETURN=.F.
		
		CASE EMPTY(porec.prenume)
			Messagebox('Nu ati completat prenumele copilului!',0+48,"Atentie")
			This.clb_tx_simplu2.SetFocus()
			PLRETURN=.F.
		
		Otherwise
			If Alltrim(Upper(This.cus_odata_fam1.cactiune))="INSERT" 
		
				pcexec=[select * from ]+gcS+[.sal_vcopii where (TRIM(nume)=']+Alltrim(porec.nume)+ [' and TRIM(prenume) = '] + ;
				ALLTRIM(porec.prenume) + ;
				[') and id_persoana=] + ALLTRIM(STR(popers.id_salariat))
				Do While .T.
		
					pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_copil')
					If pnSucces = 0
		* instructiunea in curs de executie
					Else
						Exit
					Endif
				Enddo
				If Reccount('exista_copil')>0
					Messagebox('Mai exista acest copil inregistrat',0+48,"Atentie")
					This.clb_tx_simplu1.text_simplu1.SetFocus()
					Use In exista_copil
					PLRETURN=.F.
				Else
					PLRETURN=This.cus_odata_fam1.salvare(This.OREC,This.NID)
				Endif
			ELSE
		
				PLRETURN=This.cus_odata_fam1.salvare(This.OREC,This.NID)
			Endif
		
		ENDCASE
		
			IF PLRETURN AND THIS.CB_tx_simplu1._cbbase1.Value='DA'
			
				pcexec = [select * from ] + gcS + [.sal_vintret where (TRIM(nume)='] + ALLTRIM(porec.nume) + [' and TRIM(prenume) = '] + ALLTRIM(porec.prenume)+;
				[') and id_persoana=] + ALLTRIM(STR(popers.id_salariat))
				Do While .T.
					pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_intret')
					If pnSucces = 0
		* instructiunea in curs de executie
					Else
						Exit
					Endif
				ENDDO
				If Reccount('exista_intret')>0
					Messagebox('Mai exista aceasta persoana inregistrata in luna in curs',0+48,"Atentie")
					This.clb_tx_simplu1.text_simplu1.SetFocus()
					Use In exista_intret
				ELSE 
					lcSql = [INSERT INTO ] + gcS + [.SAL_PERSINTRET (NUME,PRENUME,CODPERS,ID_STAT,ID_DEDUCERE) VALUES ('] + ALLTRIM(POREC.NUME) + ;
					[','] + ALLTRIM(porec.prenume) + [',] + ALLTRIM(STR(porec.codpers,13)) + [,] + ALLTRIM(STR(popers.id_stat)) + [,2)]	
					lnSucces = goExecutor.oExecute(lcsql)
					If lnSucces < 0
						Messagebox(goExecutor.cEroare,0+16,"Eroare")
					Endif
				ENDIF
			ENDIF 	
		
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_fam1.cactiune = tcActiune
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_fatalegitim AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 345
		Name = "frm_fatalegitim"
		Width = 502
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 516
		_shape2.Left = 444
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "."
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 464
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		caction = do_listare, ;
		Left = 433, ;
		Name = "But_listare1", ;
		Top = 2, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Check1' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Alege fotografie", ;
		Height = 17, ;
		Left = 372, ;
		Name = "Check1", ;
		Top = 200, ;
		Visible = .F., ;
		Width = 103
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check2' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Alege imagine sigla", ;
		Height = 17, ;
		Left = 21, ;
		Name = "Check2", ;
		Top = 200, ;
		Width = 127
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Image1' AS image WITH ;
		Height = 121, ;
		Left = 371, ;
		Name = "Image1", ;
		Top = 74, ;
		Width = 109
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Image2' AS image WITH ;
		Height = 60, ;
		Left = 20, ;
		Name = "Image2", ;
		Picture = ..\..\grafice\backgrnd.bmp, ;
		Top = 74, ;
		Width = 72
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "LEGITIMATIE", ;
		FontBold = .T., ;
		FontSize = 12, ;
		Height = 22, ;
		Left = 200, ;
		Name = "Label1", ;
		Top = 121, ;
		Width = 102
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr:", ;
		Height = 17, ;
		Left = 209, ;
		Name = "Label2", ;
		Top = 151, ;
		Width = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod acces:", ;
		Height = 17, ;
		Left = 20, ;
		Name = "Label3", ;
		Top = 225, ;
		Width = 64
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 2, ;
		BorderStyle = 0, ;
		ControlSource = "m.gcantet", ;
		DisabledBackColor = 255,255,255, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Height = 23, ;
		Left = 32, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Top = 44, ;
		Width = 432
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 1, ;
		BorderStyle = 0, ;
		ControlSource = "pocaut.nume", ;
		DisabledBackColor = 255,255,255, ;
		Height = 23, ;
		Left = 13, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		Top = 254, ;
		Width = 187
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "logelit.formatia", ;
		DisabledBackColor = 255,255,255, ;
		Height = 23, ;
		Left = 13, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		Top = 281, ;
		Width = 372
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "logelit.meseria", ;
		DisabledBackColor = 255,255,255, ;
		Height = 23, ;
		Left = 13, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		Top = 307, ;
		Width = 372
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		ControlSource = "pocaut.MARCA", ;
		DisabledBackColor = 255,255,255, ;
		Height = 23, ;
		Left = 233, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		Top = 148, ;
		Width = 96
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		ControlSource = "pocaut.prenume", ;
		DisabledBackColor = 255,255,255, ;
		Height = 23, ;
		Left = 204, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		Top = 254, ;
		Width = 187
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 0, ;
		ControlSource = "pcCodAcc", ;
		DisabledBackColor = 255,255,255, ;
		Height = 23, ;
		Left = 92, ;
		Name = "Text7", ;
		Top = 222, ;
		Width = 132
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE do_listare
		PRIVATE pcPoza ,pcSigla 
		thisform.AlwaysOnTop = .f.
		pcPoza = ALLTRIM(thisform.imaGE1.Picture)
		pcSigla = ALLTRIM(thisform.image2.Picture)
		pcSigla = GetPozaFile([SIGLA.BMP])
		
		*!*	MESSAGEBOX('pcPoza ='+pcPoza +[;pcSigla =]+pcSigla )
		PRIVATE pcdate
		pcdate=DATE()
		LOCAL loForma
		ON ESCAPE loForma.RELEASE
		loForma = CREATEOBJECT("frm_termin")
		loForma.ADDOBJECT("text_item1","text_item")
		loForma.WIDTH = 236
		loForma.HEIGHT = 108
		loForma.but_termin1.LEFT = 204
		loForma.lb_titlu_alb_b121.CAPTION = 'Data listare legitimatie'
		loForma.lb_titlu_alb_b121.AUTOSIZE = .T.
		loForma.text_item1.LEFT = 48
		loForma.text_item1.TOP = 60
		loForma.text_item1.CONTROLSOURCE = 'pcdate'
		loForma.text_item1.SPECIALEFFECT = 0
		loForma.text_item1.BORDERSTYLE = 1
		loForma.text_item1.FORMAT = 'd'
		loForma.text_item1.VISIBLE = .T.
		loForma.text_item1.TABINDEX = 1
		loForma.AUTOCENTER = .T.
		loForma.SHOW(1)
		goExport.export2frx([crsFisierLegitimatie],'legitimatie2')
		thisform.AlwaysOnTop = .t.
		
	ENDPROC

	PROCEDURE Check1.Click
		IF this.Value = 1
		
			LOCAL lcPoza,lcDirector,lcNPoza,lcCalePozaServer,lcSql,lnSucces
			PRIVATE pcFisier 
			*!*		lcDirector = ADDBS(calefirma) + "datean\poze"
				lcPoza = GETFILE("jpg,bmp","Alegeti fotografia","Alege",0,"Alegere fotografie")
				IF EMPTY(lcPoza)
					RETURN
				ENDIF
				lcCalePozaServer = GetPozaFile(ALLTRIM(STR(pocaut.marca))+[.]+JUSTEXT(lcPoza))
		
		
				lcNPoza = lcCalePozaServer
				IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza))
					IF !FILE(lcNPoza)
		
							lcSQl = [ MERGE INTO sal_legitimatii a ]+;
							  [  USING (SELECT ]+ Alltrim(Str(pocaut.id_salariat)) + [ as id_salariat, ]+;
							          ALLTRIM(STR(pocaut.marca))+[.]+JUSTEXT(lcPoza) +[ as numefis FROM dual) b ]+;
							  [  ON (a.id_salariat = b.id_salariat and a.sters = 0) ]+;
							 [ WHEN MATCHED THEN ]+;
							 [   UPDATE SET a.numefis = b.numefis ]+;
							  [WHEN NOT MATCHED THEN ]+;
							  [  INSERT (a.id_salariat, a.numefis) ]+;
							  [  VALUES (b.id_salariat, b.numefis) ]
							
							
							
							lnSucces = goExecutor.oExecute(lcSQl)
						If lnSucces < 0
							amessagebox(goExecutor.cEroare,16,"Eroare")
							RETURN 
						ENDIF 	
					IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza))
						COPY FILE (lcPOza) TO  &lcNPoza
					ENDIF 
					ENDIF 	
				ENDIF 
			thisform.image1.picture = lcNpoza
		
			thisform.imAGE1.Height = 121
			thisform.imaGE1.Width = 109
			thisform.imAGE1.Stretch= 1
			thisform.Refresh 
				
			*------------------
		
		
		ENDIF 
		
	ENDPROC

	PROCEDURE Check2.Click
		IF this.Value = 1
			LOCAL lcPoza,lcDirector,lcNPoza,lcCalePozaServer,lcSql,lnSucces,lcCalePozaServerRename
			PRIVATE pcFisier 
			*!*		lcDirector = ADDBS(calefirma) + "datean\poze"
				lcPoza = GETFILE("jpg,bmp","Alegeti fotografia","Alege",0,"Alegere fotografie")
				IF EMPTY(lcPoza)
					RETURN
				ENDIF
				lcCalePozaServer = GetPozaFile([SIGLA.BMP])
				IF FILE(lcCalePozaServer) AND UPPER(lcPoza)<> UPPER(lcCalePozaServer)
					lcCalePozaServerRename = GetPozaFile([SIGLA]+ALLTRIM(TRANSFORM(DATETIME()))+[.BMP])
					RENAME (lcCalePozaServer) TO (lcCalePozaServerRename) 
				ENDIF 
				IF UPPER(lcPoza)<> UPPER(lcCalePozaServer)
					COPY FILE (lcPOza) TO  (lcCalePozaServer)
				ENDIF 
				
		
			thisform.image2.picture = lcCalePozaServer 
		
			thisform.imAGE2.Height = 121
			thisform.imaGE2.Width = 109
			thisform.imAGE2.Stretch= 1
			thisform.Refresh 
		ENDIF 
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_incetare_reg AS formtermin OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_editbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 211
		Name = "frm_incetare_reg"
		Width = 498
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 527
		_shape2.Height = 29
		_shape2.Left = 461
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Incetare Contract"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 464
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_editbox1' AS _editbox WITH ;
		ControlSource = "pcExpReg", ;
		Height = 82, ;
		Left = 12, ;
		Name = "_editbox1", ;
		ReadOnly = .F., ;
		Top = 86, ;
		Width = 480
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Cb_tx_simplu1", ;
		Top = 36, ;
		Width = 480, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 152, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "CrsTemei.denumire", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 321, ;
		_lbbase1.Caption = "Temei incetare contract", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		Top = 171, ;
		Width = 291, ;
		Text_simplu1.ControlSource = "pcDataRegistru", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 215, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 73, ;
		Lb_simplu1.Caption = "Data la care se produce modificarea", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Explicatie temei incetare / Decizie incetare", ;
		Left = 12, ;
		Name = "Lb_simplu1", ;
		Top = 68
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE inainte_de_do_termin
		IF EMPTY(pnIdtemei)
			MESSAGEBOX('Alegeti un temei!')
			RETURN .f.
		ENDIF 
		IF EMPTY(pcDataRegistru)
			MESSAGEBOX('Completati data modificarii!')
			RETURN .f.
		ENDIF 
	ENDPROC

	PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange
		SELECT crsTemei
		pnIdTemei=id_temei
		pcExpReg=ALLTRIM(explicatie)
		thisform._editbox1.Refresh 
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_intret_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CUS_ODATA_INTRET1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 202
		Name = "frm_intret_nou"
		nid = 0
		orec = 
		Width = 400
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 402
		_shape1.ZOrderSet = 1
		_shape2.Height = 29
		_shape2.Left = 340
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		_shape2.ZOrderSet = 2
		Lb_titlu_alb_b121.Caption = "Adaugă/modifică persoana aflată în întreținere"
		Lb_titlu_alb_b121.Left = 7
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		Lb_titlu_alb_b121.Top = 6
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Left = 370
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 4
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Left = 341
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 7
		But_renunt1.Top = 1
		But_renunt1.ZOrderSet = 5
	*</PropValue>

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Cb_tx_simplu1", ;
		TabIndex = 5, ;
		Top = 158, ;
		Width = 369, ;
		ZOrderSet = 10, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "v_hand1.denumire,id_handicap", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 259, ;
		_lbbase1.Caption = "Handicap :", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Cb_tx_simplu2", ;
		TabIndex = 4, ;
		Top = 130, ;
		Width = 369, ;
		ZOrderSet = 9, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "v_dedsupl.calitate,id_dedsupl", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 258, ;
		_lbbase1.Caption = "Calitate :", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 46, ;
		Width = 369, ;
		ZOrderSet = 6, ;
		Text_simplu1.ControlSource = "porec.nume", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 257, ;
		Lb_simplu1.Caption = "Nume :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 74, ;
		Width = 369, ;
		ZOrderSet = 7, ;
		Text_simplu1.ControlSource = "porec.prenume", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 258, ;
		Lb_simplu1.Caption = "Prenume :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 3, ;
		Top = 102, ;
		Width = 369, ;
		ZOrderSet = 8, ;
		Text_simplu1.ControlSource = "porec.codpers", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 258, ;
		Lb_simplu1.Caption = "CNP :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'CUS_ODATA_INTRET1' AS cus_odata_intret WITH ;
		Left = 131, ;
		Name = "CUS_ODATA_INTRET1", ;
		Top = 232
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE Destroy
		IF USED('v_hand1')
			USE IN v_hand1
		ENDIF 
		
		IF USED('v_dedsupl')
			USE IN v_dedsupl
		ENDIF 		
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		IF !EMPTY(this.cb_tx_simplu2._cbbase1.value)
			porec.id_deducere = v_dedsupl.id_dedsupl
		ELSE 
			porec.id_deducere = 0	
		ENDIF 
		
		IF !EMPTY(this.cb_tx_simplu1._cbbase1.Value)
			porec.id_handicap = v_hand1.id_handicap
		ELSE 
			porec.id_handicap = 0
		ENDIF 		
		
		Do Case
		Case Empty(porec.nume)
			Messagebox('Nu ati completat numele !',0+48,"Atentie")
			This.clb_tx_simplu1.SetFocus()
			PLRETURN=.F.
		
		CASE EMPTY(porec.prenume)
			Messagebox('Nu ati completat prenumele !',0+48,"Atentie")
			This.clb_tx_simplu2.SetFocus()
			PLRETURN=.F.
			
		CASE EMPTY(porec.id_deducere)
			Messagebox('Nu ati completat calitatea!',0+48,"Atentie")
			This.cb_tx_simplu2.SetFocus()
			PLRETURN=.F.
			
		
		
		Otherwise
			If Alltrim(Upper(This.cus_odata_intret1.cactiune))="INSERT" 
		
				pcexec = [select * from ] + gcS + [.sal_vintret where (TRIM(nume)='] + ALLTRIM(porec.nume) + ;
				[' and TRIM(prenume)='] + ALLTRIM(porec.prenume) + [' and id_persoana=] + ALLTRIM(STR(popers.id_salariat)) + [)]
				Do While .T.
					pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_intret')
					If pnSucces = 0
		* instructiunea in curs de executie
					Else
						Exit
					Endif
				ENDDO
				If Reccount('exista_intret')>0
					Messagebox('Mai exista aceasta persoana inregistrata in luna in curs',0+48,"Atentie")
					This.clb_tx_simplu1.text_simplu1.SetFocus()
					Use In exista_intret
					PLRETURN=.F.
				ELSE 
					PLRETURN=This.cus_odata_intret1.salvare(This.OREC,This.NID)
				ENDIF
			ELSE 
				PLRETURN=This.cus_odata_intret1.salvare(This.OREC,This.NID)	
			ENDIF 	
		ENDCASE 
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_intret1.cactiune = tcActiune
		
		
		IF tcActiune = 'UPDATE'
		
		
			SELECT v_hand1
			LOCATE FOR id_handicap = toRec.id_handicap
			IF FOUND()
				this.cb_tx_simplu1._cbbase1.Value=ALLTRIM(denumire)
				this.cb_tx_simplu1._cbbase1.Requery()
				this.cb_tx_simplu1._cbbase1.Refresh()
			ENDIF 
			SELECT v_dedsupl
				LOCATE FOR id_dedsupl = toRec.id_deducere
				IF FOUND()
					this.cb_tx_simplu2._cbbase1.Value=ALLTRIM(calitate)
					this.cb_tx_simplu2._cbbase1.Requery()
					this.cb_tx_simplu2._cbbase1.Refresh() 
				ENDIF 
		ENDIF 			
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_limbi_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_limbi1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_limba" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_cauta_limba
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		DoCreate = .T.
		Height = 114
		Name = "frm_limbi_nou"
		nid = 0
		orec = 
		Width = 374
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 309
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 66
		Lb_titlu_alb_b121.Caption = "LIMBI STRĂINE"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 5
		BUT_TERMIN1.Left = 343
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 4
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 14, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 2, ;
		Top = 74, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.nota", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "Nota :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_limba' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(porec.id_limba,0)), ;
		cprocedura = Thisform.do_cauta_limba, ;
		cvar_afisata = porec.denumire, ;
		Height = 31, ;
		Left = 16, ;
		Name = "Ct_clb_limba", ;
		TabIndex = 16, ;
		Top = 39, ;
		Width = 356, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 318, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Limba straina", ;
		lb_cautare.Left = 4, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 100, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 214
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_limbi1' AS cus_odata_limbi WITH ;
		Left = 63, ;
		Name = "Cus_odata_limbi1", ;
		Top = 38
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE do_cauta_limba
		LOCAL loCauta
		SET STEP ON 
		loCauta = caut_limba(.T.)
		If gnButon # 2
			porec.denumire = Alltrim(locauta.denumire)
			porec.id_limba = locauta.id_limba 
			Thisform.clb_tx_simplu4.text_simplu1.Setfocus()
		Endif
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_limbi1.cactiune 
		
		
		
		PLRETURN=This.cus_odata_limbi1.salvare(This.OREC,This.NID)
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_limbi1.cactiune = tcActiune
		
		
		
		*!*	IF tcActiune = 'UPDATE'
		
		*!*		SELECT v_limba
		*!*		LOCATE FOR id_LIMBA = toRec.id_LIMBA
		*!*		IF FOUND()
		*!*			this.cb_tx_simplu1._cbbase1.Value=torec.denumire
		*!*			this.cb_tx_simplu1._cbbase1.Refresh()
		*!*		ENDIF 
		
		*!*	ENDIF 	
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_lista_pers_vechime AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cLuna.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cLuna.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cAn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cAn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nan
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 532
		Name = "frm_lista_pers_vechime"
		nan = .F.
		Width = 796
		WindowState = 2
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 804
		_shape2.Left = 662
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Lista cu angajatii care schimba coeficientul de vechime in luna curenta"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 764
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		Height = 468, ;
		Left = 12, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "salVechiSchimb", ;
		Top = 60, ;
		Width = 768, ;
		Column1.ControlSource = "nume", ;
		Column1.Name = "Column1", ;
		Column1.Width = 109, ;
		Column2.ControlSource = "Prenume", ;
		Column2.Name = "Column2", ;
		Column2.Width = 113, ;
		Column3.ControlSource = "marca", ;
		Column3.Name = "Column3", ;
		Column3.Width = 61, ;
		Column4.ControlSource = "meseria", ;
		Column4.Name = "Column4", ;
		Column4.Width = 80, ;
		Column5.ControlSource = "formatia", ;
		Column5.Name = "Column5", ;
		Column5.Width = 97, ;
		Column6.ControlSource = "sectia", ;
		Column6.Name = "Column6", ;
		Column6.Width = 94, ;
		Column7.ControlSource = "vechime", ;
		Column7.Name = "Column7", ;
		Column7.Width = 83, ;
		Column8.ControlSource = 'ALLTRIM(STR(INT(vechime/12)))+"+"+ALLTRIM(STR(MOD(vechime,12)))', ;
		Column8.Name = "Column8", ;
		Column9.ControlSource = "c_vechime", ;
		Column9.InputMask = "9.9999", ;
		Column9.Name = "Column9", ;
		Column9.Width = 102, ;
		Column10.ControlSource = "c_vechimea", ;
		Column10.InputMask = "9.999", ;
		Column10.Name = "Column10", ;
		Column10.Width = 125, ;
		Column11.InputMask = "99", ;
		Column11.Name = "cLuna", ;
		Column11.Visible = .T., ;
		Column11.Width = 32, ;
		Column12.Name = "cAn", ;
		Column12.Width = 46
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cAn.Header1' AS header WITH ;
		Caption = "An", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cAn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cLuna.Header1' AS header WITH ;
		Caption = "Luna", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cLuna.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Caption = "Nume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ;
		Caption = "Coef. sp. vechime ant.", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Caption = "Prenume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
		Caption = "Marca", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
		Caption = "Meseria", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
		Caption = "Formatia", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
		Caption = "Sectia", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
		Caption = "Vechime (luni)", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ;
		Caption = "Vechime", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
		Caption = "Coef. sp. vechime", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		caction = do_excel, ;
		Left = 706, ;
		Name = "But_excel1", ;
		Top = 0, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		caction = do_listare, ;
		Left = 735, ;
		Name = "But_listare1", ;
		Top = 0, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 644, ;
		Name = "But_reset_criterii1", ;
		Top = 1
		*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 676, ;
		Name = "But_start_criterii1", ;
		Top = 0
		*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		If Empty(tcFiltru)
			lcFiltru = poSpvechi.ca_baza1.cfiltru
		Else
			lcFiltru = tcFiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		save_grid_tag(Thisform._grdrow1)
		
		
		poSpvechi.ca_baza1.cfiltru=lcFiltru
		poSpvechi.ca_baza1.afisare()
		restore_grid_tag(Thisform._grdrow1)
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
	ENDPROC

	PROCEDURE do_cauta
		LOCAL lcFiltru
		lcFiltru =  poSpvechi.ca_baza1.cfiltru
		IF LEN(THISFORM.filtru_pretty)>0
			filtrutext=THISFORM.filtru_pretty
			IF AT("AND",filtrutext)=1
				filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4)
			ENDIF
		
			lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
		ENDIF
		
		IF (THIS.filtru_pretty#"none")
			THISFORM.actualizeaza_grid1(lcFiltru)
			IF RECCOUNT('salVechiSchimb')=0
				aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
			ENDIF
		ENDIF
		THISFORM.but_start_criterii1.SETFOCUS
		
	ENDPROC

	PROCEDURE do_excel
		
		IF this.nan
		** coef de vechime schimbati in an
			SELECT salvechischimb
		
			SELECT nume,prenume,marca,meseria,formatia,vechime,ALLTRIM(STR(INT(vechime/12)))+"+"+ALLTRIM(STR(MOD(vechime,12))) as vechimel,;
				c_vechime,c_vechimea,lunaschimb FROM salvechischimb INTO CURSOR crsExcel ORDER BY nume
				goExport.export2xls('crsExcel',[foaie_excel])
				
		
		ELSE 
		** coef de vechime schimbati in luna
			SELECT salvechischimb
		
			SELECT nume,prenume,marca,meseria,formatia,vechime,ALLTRIM(STR(INT(vechime/12)))+"+"+ALLTRIM(STR(MOD(vechime,12))) as vechimel,;
				c_vechime,c_vechimea FROM salvechischimb INTO CURSOR crsExcel ORDER BY nume
				goExport.export2xls('crsExcel',[foaie_excel])
		ENDIF 
		USE IN crsExcel
	ENDPROC

	PROCEDURE do_listare
			THISFORM.ALWAYSONTOP=.F.
		IF this.nan
		** coef de vechime schimbati in an
			SELECT salvechischimb
			INDEX ON formatia TO formatia_index.idx ascending
			REPORT FORM list_vechime_an TO PRINTER PROMPT PREVIEW
		ELSE 
		** coef de vechime schimbati in luna
			SELECT salvechischimb
			INDEX ON formatia TO formatia_index.idx ascending
			REPORT FORM list_pers_vechime_modif TO PRINTER PROMPT PREVIEW
		ENDIF 
			THISFORM.ALWAYSONTOP=.T.
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#DEFINE crlf CHR(13)+CHR(10)
		
		lcStringCriterii="Marca\marca\N\none\"+crlf+;
						 "Nume\nume\T\none\"+crlf+;
						 "Formatia\formatia\T\none\" + crlf + ;
						 "Meseria\meseria\T\none\" + crlf + ;
						 "Sectia\sectia\T\ID_SECTIE\nom_sectie" + crlf + ;				 
						 "Vechime (luni) \vechime\N\none\"  + crlf + ;	
						 "Coef. spor vechime\c_vechime\N\none\"  + crlf + ;	
						 "Coef. spor vechime anterior\c_vechimea\N\none\" 				
			
		*!*		
		*!*	"Serie act\serie_act\T\none\"+ crlf + ;
		*!*		"Data act\dataact\D\none\" + crlf + ;
		*!*		"Data inreg\dataIREG\D\none\" + crlf + ;
		*!*		"Tip document\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
		*!*		"Numar document\NRACT\N\none\" + crlf + ;
		*!*		"Explicatie D\partD\T\ID_PARTD\nom_parteneri"+ crlf + ;
		*!*		"Explicatie C\partC\T\ID_PARTC\nom_parteneri"+ crlf + ;
		*!*		"Explicatie\explicatia\T\none\"+ crlf + ;
		*!*		"Explicatia 4\explicatia4\T\none\"+ crlf + ;
		*!*		"Explicatia 5\explicatia5\T\none\"+ crlf + ;
		*!*		"Explicatii\partD,partC,explicatia,explicatia4,explicatia5\T\none\"+ crlf + ;
		*!*		"Gestiune destinatie\gestin\T\ID_GESTIN\nom_gestiune"+ crlf + ;
		*!*		"Gestiune sursa\gestout\T\ID_GESTOUT\nom_gestiune" + crlf + ;
		*!*		"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
		*!*		"Contract\contract\T\none\" + crlf + ;
		*!*		"Cont debitor\scd\T\none\" + crlf + ;
		*!*		"Cont debitor analitic\ascd\T\none\" + crlf + ;
		*!*		"Cont creditor\scc\T\none\" + crlf + ;
		*!*		"Cont creditor analitic\ascc\T\none\" + crlf + ;
		*!*		"Suma\suma\N\none\" + crlf + ;
		*!*		"Suma valuta\suma_val\N\none\" + crlf + ;
		*!*		"Nr document incasat\perecheC\N\none\" + crlf + ;
		*!*		"Nr document platit\perecheD\N\none\" + crlf + ;
		*!*		"Nr. NIR/bon\nnir\N\none\" + crlf + ;
		*!*		"Responsabil\nresp\T\ID_RESPONSABIL\nom_parteneri" + crlf + ;
		*!*		"Cheltuieli/Venituri\dst_chlt\T\ ID_VENCHELT\nom_venchel" + crlf + ;
		*!*		"Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
		*!*		"Cod\cod\N\none\" + crlf + ;
		*!*		"Tip operatie\id_set\N\none\" + crlf + ;
		*!*		"Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
		*!*		"Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala" + crlf + ;
		*!*		"Cota TVA\proc_tva\N\none\" + crlf + ;
		*!*		"Explicatie TVA\explicatie_tva\T\none\" + crlf + ;
		*!*		"Data introducerii\trunc(dataora)\D\none\" + crlf + ;
		*!*		"Operator introducere\util\T\ID_UTIL\nom_utilizator" + crlf + ;
		*!*		"Validate\nofiled\E\(validat = 1)\" + crlf + ;
		*!*		"Nevalidate\nofiled\E\(validat = 0)\" + crlf + ;	
		*!*		"Data validarii\trunc(dataorav)\D\none\" + crlf + ;
		*!*		"Operator validare\utilv\T\ID_UTILv\nom_utilizator"
		
		DODEFAULT()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_locmunca_reg AS formtermin OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: id_modlic
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 117
		id_modlic = 1
		Name = "frm_locmunca_reg"
		Width = 498
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 527
		_shape2.Height = 29
		_shape2.Left = 461
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Modificare loc de munca / Transfer la alta entitate a angajatorului"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 464
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		Top = 80, ;
		Width = 291, ;
		Text_simplu1.ControlSource = "pcDataRegistru", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 215, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 73, ;
		Lb_simplu1.Caption = "Data la care se produce modificarea", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu2", ;
		Top = 48, ;
		Width = 455, ;
		Text_simplu1.ControlSource = "pcExpReg", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 167, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 284, ;
		Lb_simplu1.Caption = "Denumire entitate angajator", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE inainte_de_do_termin
		IF EMPTY(pcexpreg)
			MESSAGEBOX('Completati denumirea entitatii!')
			RETURN .f.
		ENDIF 
		IF EMPTY(pcDataRegistru)
			MESSAGEBOX('Completati data modificarii!')
			RETURN .f.
		ENDIF 
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_modificari_reg AS formtermin OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_editbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: id_modlic
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 211
		id_modlic = 1
		Name = "frm_modificari_reg"
		Width = 498
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 527
		_shape2.Height = 29
		_shape2.Left = 461
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Modificare Functie ( Meserie )"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 464
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_editbox1' AS _editbox WITH ;
		ControlSource = "pcexpReg", ;
		Height = 82, ;
		Left = 12, ;
		Name = "_editbox1", ;
		Top = 86, ;
		Width = 480
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Cb_tx_simplu1", ;
		Top = 36, ;
		Width = 480, ;
		_cbbase1.FirstElement = 1, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 152, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsModLic.modlic", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 321, ;
		_lbbase1.Caption = "Motiv modificare contract", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		Top = 173, ;
		Width = 291, ;
		Text_simplu1.ControlSource = "pcDataRegistru", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 215, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 73, ;
		Lb_simplu1.Caption = "Data la care se produce modificarea", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Explicatie Motiv Modificare", ;
		Left = 12, ;
		Name = "Lb_simplu1", ;
		Top = 68
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE inainte_de_do_termin
		IF EMPTY(pnIdModLic)
			aMESSAGEBOX('Alegeti un motiv!',48,"Atentie")
			RETURN .f.
		ENDIF 
		IF EMPTY(pcDataRegistru)
			aMESSAGEBOX('Completati data modificarii!',48,"Atentie")
			RETURN .f.
		ENDIF 
		
	ENDPROC

	PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange
		pnIdModLic=id_modlic
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_modificari_salarii AS _frmbase OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cNume.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cNume.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cPrenume.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cPrenume.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cMeseria.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cMeseria.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cFormatia.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cFormatia.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cCodpers.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cCodpers.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar_nou.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar_nou.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 477
		Name = "frm_modificari_salarii"
		Width = 974
		WindowState = 2
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 2
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 972
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 902
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 73
		Lb_titlu_alb_b121.Caption = "Modificare tarifar"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 5
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 942
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		caction = do_listare, ;
		Left = 828, ;
		Name = "But_listare1", ;
		ToolTipText = "Listare decizie colectiva (CTRL+P)", ;
		Top = 0, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 907, ;
		Name = "BUT_RENUNT1", ;
		TabIndex = 4, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 9, ;
		Left = 564, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 36, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.InputMask = (get_mask(9,0)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Value = 0, ;
		Lb_simplu1.Caption = "Tarifar nou", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
		Anchor = 9, ;
		Caption = "\<Actualizează", ;
		Left = 864, ;
		Name = "Cmd_executa1", ;
		TabIndex = 2, ;
		Top = 37
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grd_tarifare' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 8, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 396, ;
		Left = 12, ;
		Name = "grd_tarifare", ;
		Panel = 1, ;
		RecordSource = "crsmoditarifar", ;
		TabIndex = 6, ;
		Top = 72, ;
		Width = 948, ;
		Column1.ControlSource = "nume", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cNume", ;
		Column1.Width = 128, ;
		Column2.ControlSource = "prenume", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cPrenume", ;
		Column2.Width = 142, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "meseria", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cMeseria", ;
		Column3.Width = 130, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "formatia", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cFormatia", ;
		Column4.Width = 130, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "sectie", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cSectie", ;
		Column5.Width = 143, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "tarifar", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.InputMask = (get_mask(9,0)), ;
		Column6.Name = "cTarifar", ;
		Column6.Width = 72, ;
		Column7.ColumnOrder = 3, ;
		Column7.ControlSource = "codpers", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "cCodpers", ;
		Column7.Width = 98, ;
		Column8.ControlSource = "tarifar_nou", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.InputMask = (get_mask(9,0)), ;
		Column8.Name = "cTarifar_nou", ;
		Column8.Width = 65
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grd_tarifare.cCodpers.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CNP", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cCodpers.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cFormatia.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Formatie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cFormatia.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cMeseria.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Meserie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cMeseria.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cNume.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cNume.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cPrenume.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prenume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cPrenume.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cSectie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cSectie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cTarifar.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tarifar actual", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cTarifar.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grd_tarifare.cTarifar_nou.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tarifar nou", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_tarifare.cTarifar_nou.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = Thisform.grd_tarifare, ;
		Left = 144, ;
		Name = "Gridextra1", ;
		Top = 12
		*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
	
	PROCEDURE do_executa
		Select (Thisform.grd_tarifare.RecordSource)
		Replace tarifar_nou With Thisform.clb_tx_simplu1.text_simplu1.Value ALL 
	ENDPROC

	PROCEDURE do_listare
		loRec = template_citeste(-7)
		template_completeaza(loRec,'deciziecolectiva',0,'')
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Private poPers
		Local lcCursor, llReturn, loFrm
		lcCursor = Thisform.grd_tarifare.RecordSource
		Select (lcCursor)
		Scatter Name loRec
		AddProperty(loRec,"tip_modificare",3)
		AddProperty(loRec,"dataconsemnare",{})
		*!*		modificare ROARES 2.1.0
			AddProperty(loRec,"dataactmodif",DATE())
			AddProperty(loRec,"tipactmodif",'ACT ADITIONAL')	
			AddProperty(loRec,"id_tipact",3)		
			AddProperty(loRec,"nractmodif",-100)	
		poPers = loRec
		If gnScrieRegistru = 1
			loFrm = Createobject("frm_salvare_opersonal",.T.)
			loFrm.Show(1)
		Else
			gnButon = 1
			poPers.tip_modificare = 1
			poPers.dataconsemnare = Null
		Endif
		If gnButon = 1
			llReturn = .T.
			If Thisform.do_deschide_tranzactie()
				Select (lcCursor)
				Set Filter To
				Scan For tarifar <> tarifar_nou
					Scatter Name loTarifar
					lcSql = [begin pack_personal.actualizeaza_tarifar(?gnLuna,?gnAn,] + Alltrim(Str(loTarifar.id_sal_ctr)) + [,] + ;
						ALLTRIM(Str(loTarifar.tarifar_nou,14,0)) + [,] + Alltrim(Str(loRec.tip_modificare)) + [,] + ;
						[to_date('] + Nvl(Alltrim(Dtoc(loRec.dataconsemnare,1)),"") + [','YYYYMMDD'),?gnIdUtil); end;]
					If !goExecutor.oExecuta(lcSql)
						llReturn = .F.
						Exit
					Endif
					Select (lcCursor)
				Endscan
				*!*	tranzactie automata
				Thisform.do_inchide_tranzactie(Iif(llReturn,1,2))
			Else
				llReturn = .F.
			Endif
		Else
			llReturn = .F.
		Endif
		Release lcCursor, loFrm, poPers
		Return llReturn
	ENDPROC

	PROCEDURE Init
		DoDefault()
		Thisform.gridextra1.Setup()
		Thisform.grd_tarifare.ctarifar_nou.DynamicBackColor = [Rgb(255,255,128)]
		Thisform.grd_tarifare.SetAll("DynamicFontBold","IIF(tarifar<>tarifar_nou,.T.,.F.)","Column")
		Thisform.grd_tarifare.ctarifar_nou.ReadOnly = .F.
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_nom_acte AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Name = "frm_nom_acte"
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 252
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 122
		Lb_titlu_alb_b121.Caption = "Nomenclator documente"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 9
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 25
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		Height = 200, ;
		Left = 13, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "vnom_acte", ;
		Top = 43, ;
		Width = 347, ;
		Column1.ControlSource = "nr", ;
		Column1.Name = "Column1", ;
		Column1.Width = 39, ;
		Column2.ControlSource = "nume_act", ;
		Column2.Name = "Column2", ;
		Column2.Width = 246
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. crt.", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
		Left = 284, ;
		Name = "But_modifica1", ;
		Top = 2
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_nou1' AS but_nou WITH ;
		Left = 255, ;
		Name = "But_nou1", ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Left = 312, ;
		Name = "But_sterge1", ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=poact.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform._grdrow1)
		poact.ca_baza1.cfiltru=lcFiltru
		poact.ca_baza1.afisare()
		restore_grid_tag(thisform._grdrow1)
			thisform._grdrow1.SetFocus()
		
	ENDPROC

	PROCEDURE do_adauga
		Private pniesire
		 
		pniesire=0
		Select vnom_acte
		Scatter Name loRec Blank
		
		Do Adauga_Modifica_Inregistrare With "nom_acte",loRec,,"INSERT",,"addact"
		
		
		If pniesire=1
			This.actualizeaza_grid1()
		Endif
	ENDPROC

	PROCEDURE do_modifica
		Private pniesire
		pniesire=0
		Select vnom_acte
		Scatter Name loRec 
		Do Adauga_Modifica_Inregistrare With "nom_acte",loRec,loRec.id_act,"UPDATE",,"modact"
		
		
		If pniesire=1
			This.actualizeaza_grid1()
		Endif
	ENDPROC

	PROCEDURE do_sterge
		SELECT vnom_acte
		SCATTER NAME lorec 
		Do STERGE_INREGISTRARE With "nom_acte",loRec.id_act
		This.actualizeaza_grid1()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_nom_acte_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cus_odata_nom_acte1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		Caption = "Form"
		DoCreate = .T.
		Height = 84
		Name = "frm_nom_acte_nou"
		nid = .F.
		orec = .F.
		Width = 473
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 472
		_shape2.Anchor = 6
		_shape2.Height = 29
		_shape2.Left = 409
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 63
		Lb_titlu_alb_b121.Caption = "Documente"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 4
		BUT_TERMIN1.Anchor = 6
		BUT_TERMIN1.Left = 440
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Anchor = 6
		But_renunt1.Left = 411
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 3
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 14, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 41, ;
		Width = 449, ;
		Text_simplu1.ControlSource = "porec.nume_act", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 341, ;
		Lb_simplu1.Caption = "Denumire", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_nom_acte1' AS cus_odata_nom_acte WITH ;
		Left = 13, ;
		Name = "Cus_odata_nom_acte1", ;
		Top = 69
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE inainte_de_do_termin
		Local PLRETURN
		
		lccontrol = Upper(This.ActiveControl.BaseClass )
		If   Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
			lcval=This.ActiveControl.ControlSource
			&lcval=Thisform.ActiveControl.Value
		Endif
		
		Do Case
		Case Empty(porec.nume_act)
			Messagebox('Nu ati completat denumirea!',0+48,"Atentie")
			This.clb_tx_simplu1.teXT_SIMPLU1.SetFocus()
			PLRETURN=.F.
		Otherwise
		
			PLRETURN=this.cus_odata_nom_acte1.salvare(This.OREC,This.NID)
			
		Endcase
		Return PLRETURN
		
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		this.cus_odata_nom_acte1.cactiune = tcActiune
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_opersonal AS frm_termin OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clienttoptabs1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clienttoptabs1.opt_registru" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clienttoptabs1.Lb_registru" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clienttoptabs1._container1.lblHeader" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1._txbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.lb15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1._txbase5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.tx11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_cetatenie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_nationalitate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_tip_act" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_judet" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_localitate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_apatrid" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page1.Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb30" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx41" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb32" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx43" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx40" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx49" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx50" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx51" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.opt_stare_contract" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx54" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_tipcontract" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_meserie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_formatia" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_grupa_munca" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_clasasal" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_casa_sanatate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_banca" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_temei" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_detasatla" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_taradet" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_repartm" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_intm" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_duratam" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_tipn" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_handicap" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_pensionar" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_functiebaza" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx45" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_platacas" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_platasomaj" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.ck_anulare_incetare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx55" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_cautare_var1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx52" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx53" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx_codcod" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx27" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx70" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx31" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx68" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Opt_oug114" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx34" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.lb29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx69" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page2.tx67" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.tx54" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.tx52" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.txcopii" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.tx53" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.But_nou2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.But_modifica2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.But_sterge2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page3.Ct_cb_stareciv" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page4.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Grid3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Ct_clb_meserie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.tx53" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page5.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.But_nou2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.But_modifica2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.But_sterge2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.tx1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.tx2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.tx3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.tx4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.tx5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.tx6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Cmd_executa1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx56" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx57" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx58" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx60" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.lunia" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.ania" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.vechimea" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx65" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx64" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx59" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx61" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx63" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.tx62" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Cmd_executa2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx65" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx66" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx67" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx68" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx69" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx70" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx72" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.tx73" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page8.Ct_clb_tipautorizatie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column1.Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page10.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page1.Page11.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_opers1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Caut_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_noup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: adaugare_parteneri
		*m: adauga_copil
		*m: arata_linkuri
		*m: calcul_vechime
		*m: corder
		*m: co_calculcoefvechime
		*m: do_activeaza
		*m: do_actualizeaza_nom_norme
		*m: do_actualizeaza_norma
		*m: do_actualizeaza_stare
		*m: do_adauga_aviz
		*m: do_adauga_bazacm
		*m: do_adauga_curs
		*m: do_adauga_echip
		*m: do_adauga_intret
		*m: do_adauga_limba
		*m: do_adauga_stud
		*m: do_butoane_stare
		*m: do_cauta_apatrid
		*m: do_cauta_banca
		*m: do_cauta_casaasig
		*m: do_cauta_cetatenie
		*m: do_cauta_clasasal
		*m: do_cauta_formatia
		*m: do_cauta_grupamunca
		*m: do_cauta_judet
		*m: do_cauta_localitate
		*m: do_cauta_meseria
		*m: do_cauta_partener
		*m: do_cauta_plimpozit
		*m: do_cauta_scutireimpozit
		*m: do_cauta_tara
		*m: do_cauta_temei
		*m: do_cauta_tipact
		*m: do_cauta_tipautorizatie
		*m: do_cauta_tipcontract
		*m: do_col_gotfocus
		*m: do_col_interactivechange
		*m: do_col_lostfocus
		*m: do_col_modifica
		*m: do_col_valid
		*m: do_download
		*m: do_modifica_atas
		*m: do_modifica_aviz
		*m: do_modifica_bazacm
		*m: do_modifica_curs
		*m: do_modifica_echip
		*m: do_modifica_intret
		*m: do_modifica_limba
		*m: do_modifica_stare
		*m: do_modifica_stud
		*m: do_modiparam
		*m: do_readonly
		*m: do_sterge_atas
		*m: do_sterge_aviz
		*m: do_sterge_bazacm
		*m: do_sterge_curs
		*m: do_sterge_echip
		*m: do_sterge_intret
		*m: do_sterge_limba
		*m: do_sterge_stud
		*m: do_verifica_date
		*m: do_writeonly
		*m: eticheta
		*m: make_crsatasamente
		*m: modificari_revisal
		*m: modifica_copil
		*m: refresh_pagini
		*m: registru_unic
		*m: setez_exceptii
		*m: sterge_copil
		*m: upload
		*m: vechimeal
		*m: verifica_parteneri
		*p: ccalefisier
		*p: laccesmodif
		*p: lcpozamodif
		*p: lpozamodif
		*p: lsalvat
		*p: nrang
		*p: nrangactivi
		*p: nrincarcaripoze
		*p: nsumainitial
		*p: nsumamodif
		*p: opt_registru
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		ccalefisier = 
		DoCreate = .T.
		Height = 768
		laccesmodif = .F.
		lcpozamodif = 
		lpozamodif = 
		lsalvat = .F.
		Name = "frm_opersonal"
		nrang = 0
		nrangactivi = 0
		nrincarcaripoze = 0
		nsumainitial = 0
		nsumamodif = 0
		opt_registru = 3
		Width = 800
		_memberdata = <VFPData>
			<memberdata name="thisform.do_cauta_tipcontract" display="Thisform.do_cauta_tipcontract"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 800
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 528
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 273
		Lb_titlu_alb_b121.Caption = "Personal"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 3
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Height = 27
		BUT_TERMIN1.Left = 769
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.Width = 30
		Gridsort1.Left = 288
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 12
	*</PropValue>

	ADD OBJECT '_GRID1' AS _grid WITH ;
		Anchor = 195, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		Height = 456, ;
		HighlightStyle = 2, ;
		Left = -2, ;
		Name = "_GRID1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "v_personal", ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 168, ;
		Width = 239, ;
		Column1.ControlSource = "nr", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .F., ;
		Column1.Width = 39, ;
		Column2.ControlSource = "marca", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 42, ;
		Column3.ControlSource = "nume", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 117, ;
		Column4.ControlSource = "prenume", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Width = 138, ;
		Column5.ControlSource = "tarifar", ;
		Column5.InputMask = (get_mask(16,gnPS)), ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 99, ;
		Column6.ControlSource = "dataang", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column7.ControlSource = "codpers", ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .F.
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. Crt", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Marca", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prenume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tarifar", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data ang", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_GRID1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cnp", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 678, ;
		Name = "But_excel1", ;
		TabIndex = 11, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
		Anchor = 9, ;
		caction = do_modifica, ;
		Left = 618, ;
		Name = "But_modifica1", ;
		TabIndex = 8, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
		Anchor = 9, ;
		Left = 529, ;
		Name = "But_modiparam1", ;
		TabIndex = 14, ;
		ToolTipText = "Modificare tarifar pentru contractele active din selectie", ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_nou1' AS but_nou WITH ;
		Anchor = 9, ;
		Left = 589, ;
		Name = "But_nou1", ;
		TabIndex = 6, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_noup1' AS but_noup WITH ;
		Anchor = 9, ;
		caction = adaugare_parteneri, ;
		Left = 559, ;
		Name = "But_noup1", ;
		TabIndex = 13, ;
		Top = 1, ;
		Visible = .F.
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 709, ;
		Name = "BUT_RENUNT1", ;
		TabIndex = 12, ;
		Top = 1, ;
		Visible = .F.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
		Anchor = 9, ;
		Left = 739, ;
		Name = "But_salveaza1", ;
		TabIndex = 7, ;
		Top = 1, ;
		Visible = .F.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Anchor = 9, ;
		caction = do_sterge, ;
		Left = 648, ;
		Name = "But_sterge1", ;
		TabIndex = 9, ;
		ToolTipText = "Lichidare (CTRL+D)", ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Caut_nou1' AS caut_nou WITH ;
		grid = _grid1, ;
		Height = 72, ;
		Left = 12, ;
		Name = "Caut_nou1", ;
		TabIndex = 10, ;
		Top = 71, ;
		Width = 510, ;
		criteriu.Name = "criteriu", ;
		criteriu2.Name = "criteriu2", ;
		Grup_optiuni_filtru1.Name = "Grup_optiuni_filtru1", ;
		Grup_optiuni_filtru1.Option1.Left = 5, ;
		Grup_optiuni_filtru1.Option1.Name = "Option1", ;
		Grup_optiuni_filtru1.Option1.Top = 5, ;
		Grup_optiuni_filtru1.Option2.Left = 66, ;
		Grup_optiuni_filtru1.Option2.Name = "Option2", ;
		Grup_optiuni_filtru1.Option2.Top = 5, ;
		Grup_optiuni_filtru1.Option3.Left = 134, ;
		Grup_optiuni_filtru1.Option3.Name = "Option3", ;
		Grup_optiuni_filtru1.Option3.Top = 5, ;
		Text.Name = "Text", ;
		Text2.Name = "Text2", ;
		_combobox1.Name = "_combobox1", ;
		Cmd_cauta1.Left = 423, ;
		Cmd_cauta1.Name = "Cmd_cauta1", ;
		Cmd_reset1.Left = 423, ;
		Cmd_reset1.Name = "Cmd_reset1", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="cautare.vcx" BaseClass="container" />

	ADD OBJECT 'Clienttoptabs1' AS clienttoptabs WITH ;
		Anchor = 15, ;
		Height = 723, ;
		Left = -5, ;
		Name = "Clienttoptabs1", ;
		otab2use = thisform.page1, ;
		tabbmpstr = homeside.bmp,contacts.bmp,visits.bmp,printersmall.bmp,contacts.bmp,contacts.bmp,contacts.bmp,addressbook.bmp,addressbook.bmp,addressbook.bmp,addressbook.bmp, ;
		tabcaptionstr = Personal,Date angajare,Familie,CM,Calificare,Școlarizare,Vechime,Documente,Altele,Documente atașate,Avize, ;
		TabIndex = 1, ;
		tabnumber = 11, ;
		Top = 33, ;
		Width = 817, ;
		Shape1.Height = 692, ;
		Shape1.Left = 3, ;
		Shape1.Name = "Shape1", ;
		Shape1.Top = 31, ;
		Shape1.Width = 803, ;
		Shape2.Height = 34, ;
		Shape2.Left = 1, ;
		Shape2.Name = "Shape2", ;
		Shape2.Top = 35, ;
		Shape2.Width = 617, ;
		Shape3.Name = "Shape3", ;
		_container1.Anchor = 14, ;
		_container1.Height = 160, ;
		_container1.Left = 3, ;
		_container1.Line1.Anchor = 14, ;
		_container1.Line1.Height = 0, ;
		_container1.Line1.Left = 0, ;
		_container1.Line1.Name = "Line1", ;
		_container1.Line1.Top = 0, ;
		_container1.Line1.Width = 800, ;
		_container1.Name = "_container1", ;
		_container1.Shape3.Height = 165, ;
		_container1.Shape3.Left = 1, ;
		_container1.Shape3.Name = "Shape3", ;
		_container1.Shape3.Top = -5, ;
		_container1.Shape3.Width = 800, ;
		_container1.Top = 551, ;
		_container1.Width = 803, ;
		lblHeader.Caption = "Pagini", ;
		lblHeader.FontSize = 12, ;
		lblHeader.Left = 543, ;
		lblHeader.Name = "lblHeader", ;
		lblHeader.Top = 34, ;
		Line1.Height = 0, ;
		Line1.Left = 530, ;
		Line1.Name = "Line1", ;
		Line1.Top = 54, ;
		Line1.Width = 76, ;
		Tab1.cmdTab.Name = "cmdTab", ;
		Tab1.Image1.Name = "Image1", ;
		Tab1.Image1.Picture = ..\grafice\lbtabh3.bmp, ;
		Tab1.Image2.Name = "Image2", ;
		Tab1.Image2.Picture = ..\grafice\note.gif, ;
		Tab1.Label1.Name = "Label1", ;
		Tab1.Left = 11, ;
		Tab1.Name = "Tab1", ;
		Tab1.Picture = ..\grafice\dbtabh4.bmp, ;
		Tab1.Top = -2, ;
		shpPage.Height = 316, ;
		shpPage.Label2.Name = "Label2", ;
		shpPage.Label3.Name = "Label3", ;
		shpPage.Label4.Name = "Label4", ;
		shpPage.Left = 6, ;
		shpPage.Name = "shpPage", ;
		shpPage.TabIndex = 10, ;
		shpPage.Top = 123, ;
		shpPage.Width = 603
		*< END OBJECT: ClassLib="bbtabs.vcx" BaseClass="container" />

	ADD OBJECT 'Clienttoptabs1._container1.lblHeader' AS _label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Persoana", ;
		FontBold = .T., ;
		FontSize = 14, ;
		ForeColor = 255,134,11, ;
		Height = 25, ;
		Left = 14, ;
		Name = "lblHeader", ;
		TabIndex = 7, ;
		Top = 120, ;
		Width = 91, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'Clienttoptabs1.Lb_registru' AS lb_simplu WITH ;
		Caption = "Registru unic", ;
		Left = 532, ;
		Name = "Lb_registru", ;
		Top = 57, ;
		Visible = .F.
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Clienttoptabs1.opt_registru' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ButtonCount = 3, ;
		ControlSource = "thisform.opt_registru", ;
		Height = 51, ;
		Left = 607, ;
		Name = "opt_registru", ;
		Top = 57, ;
		Value = 1, ;
		Visible = .F., ;
		Width = 84, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Modificare", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 0, ;
		Option1.Value = 1, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Corecție", ;
		Option2.FontCharSet = 238, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 17, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "Nu scrie", ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 34, ;
		Option3.Value = 0, ;
		Option3.Width = 64
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'Cus_odata_opers1' AS cus_odata_opers WITH ;
		Left = 546, ;
		Name = "Cus_odata_opers1", ;
		Top = 38
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />

	ADD OBJECT 'page1' AS _pgfrmbase WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 552, ;
		Left = -1, ;
		Name = "page1", ;
		PageCount = 11, ;
		TabIndex = 2, ;
		Top = 144, ;
		Width = 801, ;
		Page1.BackColor = 255,255,255, ;
		Page1.FontCharSet = 238, ;
		Page1.Name = "Page1", ;
		Page2.BackColor = 255,255,255, ;
		Page2.FontCharSet = 238, ;
		Page2.Name = "Page2", ;
		Page3.BackColor = 255,255,255, ;
		Page3.Caption = "Page3", ;
		Page3.FontCharSet = 238, ;
		Page3.Name = "Page3", ;
		Page4.BackColor = 255,255,255, ;
		Page4.Caption = "Page4", ;
		Page4.FontCharSet = 238, ;
		Page4.Name = "Page4", ;
		Page5.BackColor = 255,255,255, ;
		Page5.Caption = "Page5", ;
		Page5.FontCharSet = 238, ;
		Page5.Name = "Page5", ;
		Page6.BackColor = 255,255,255, ;
		Page6.Caption = "Page6", ;
		Page6.FontCharSet = 238, ;
		Page6.Name = "Page6", ;
		Page7.BackColor = 255,255,255, ;
		Page7.Caption = "Page7", ;
		Page7.FontCharSet = 238, ;
		Page7.Name = "Page7", ;
		Page8.BackColor = 255,255,255, ;
		Page8.Caption = "Page8", ;
		Page8.FontCharSet = 238, ;
		Page8.Name = "Page8", ;
		Page9.BackColor = 255,255,255, ;
		Page9.Caption = "Page9", ;
		Page9.FontCharSet = 238, ;
		Page9.Name = "Page9", ;
		Page10.BackColor = 255,255,255, ;
		Page10.Caption = "Page10", ;
		Page10.FontCharSet = 238, ;
		Page10.Name = "Page10", ;
		Page11.BackColor = 255,255,255, ;
		Page11.Caption = "Page11", ;
		Page11.Name = "Page11"
		*< END OBJECT: ClassLib="_frm_base.vcx" BaseClass="pageframe" />

	ADD OBJECT 'page1.Page1._txbase1' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.codacc", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 367, ;
		Name = "_txbase1", ;
		ReadOnly = .T., ;
		TabIndex = 29, ;
		Top = 390, ;
		Width = 143, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1._txbase5' AS _txbase WITH ;
		Anchor = 672, ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 325, ;
		Name = "_txbase5", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		Top = 120, ;
		Width = 72, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.Ct_clb_apatrid' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_tipapatrid,0)), ;
		cprocedura = Thisform.do_cauta_apatrid, ;
		cvar_afisata = popers.apatrid, ;
		Height = 31, ;
		Left = 245, ;
		Name = "Ct_clb_apatrid", ;
		TabIndex = 7, ;
		Top = 171, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Apatrid", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page1.Ct_clb_cetatenie' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_cetatenie,0)), ;
		cprocedura = Thisform.do_cauta_cetatenie, ;
		cvar_afisata = popers.cetatenie, ;
		Height = 31, ;
		Left = 245, ;
		Name = "Ct_clb_cetatenie", ;
		TabIndex = 8, ;
		Top = 198, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Cetățenie", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page1.Ct_clb_judet' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_judet,0)), ;
		cprocedura = Thisform.do_cauta_judet, ;
		cvar_afisata = popers.judet, ;
		Height = 31, ;
		Left = 520, ;
		Name = "Ct_clb_judet", ;
		TabIndex = 14, ;
		Top = 2, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Județ", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page1.Ct_clb_localitate' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_loc,0)), ;
		cprocedura = Thisform.do_cauta_localitate, ;
		cvar_afisata = popers.localitate, ;
		Height = 31, ;
		Left = 520, ;
		Name = "Ct_clb_localitate", ;
		TabIndex = 15, ;
		Top = 29, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Localitate", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page1.Ct_clb_nationalitate' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_nationalit,0)), ;
		clista_parametri = 1, ;
		cprocedura = Thisform.do_cauta_tara, ;
		cvar_afisata = popers.nationalitate, ;
		Height = 31, ;
		Left = 245, ;
		Name = "Ct_clb_nationalitate", ;
		TabIndex = 9, ;
		Top = 224, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Naționalitate", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page1.Ct_clb_tip_act' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_tip_act,0)), ;
		cprocedura = Thisform.do_cauta_tipact, ;
		cvar_afisata = popers.tip_act, ;
		Height = 31, ;
		Left = 245, ;
		Name = "Ct_clb_tip_act", ;
		TabIndex = 10, ;
		Top = 251, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Tip act", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page1.Image1' AS image WITH ;
		Anchor = 672, ;
		BorderStyle = 1, ;
		Height = 121, ;
		Left = 250, ;
		Name = "Image1", ;
		Picture = ..\grafice\searchalb.bmp, ;
		Top = 366, ;
		Visible = .T., ;
		Width = 109
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'page1.Page1.lb1' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Marca", ;
		Left = 245, ;
		Name = "lb1", ;
		TabIndex = 30, ;
		Top = 13, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb10' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Bloc", ;
		Left = 520, ;
		Name = "lb10", ;
		TabIndex = 44, ;
		Top = 115, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb11' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Scară", ;
		Left = 520, ;
		Name = "lb11", ;
		TabIndex = 45, ;
		Top = 143, ;
		ZOrderSet = 33
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb12' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Apartament", ;
		Left = 520, ;
		Name = "lb12", ;
		TabIndex = 46, ;
		Top = 198, ;
		ZOrderSet = 35
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb13' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Cod poștal", ;
		Left = 520, ;
		Name = "lb13", ;
		TabIndex = 50, ;
		Top = 225, ;
		ZOrderSet = 37
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb15' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Data eliberării", ;
		Left = 245, ;
		Name = "lb15", ;
		TabIndex = 52, ;
		Top = 341, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb2' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Nume", ;
		Left = 245, ;
		Name = "lb2", ;
		TabIndex = 34, ;
		Top = 40, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb3' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Prenume", ;
		Left = 245, ;
		Name = "lb3", ;
		TabIndex = 38, ;
		Top = 68, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb4' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "CNP", ;
		Left = 245, ;
		Name = "lb4", ;
		TabIndex = 39, ;
		Top = 96, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb7' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Sector", ;
		Left = 672, ;
		Name = "lb7", ;
		TabIndex = 41, ;
		Top = 225, ;
		ZOrderSet = 25
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb8' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Stradă", ;
		Left = 520, ;
		Name = "lb8", ;
		TabIndex = 42, ;
		Top = 61, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.lb9' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Număr", ;
		Left = 520, ;
		Name = "lb9", ;
		TabIndex = 43, ;
		Top = 88, ;
		ZOrderSet = 29
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Serie și nr.", ;
		Left = 245, ;
		Name = "Lb_simplu1", ;
		TabIndex = 48, ;
		Top = 287, ;
		ZOrderSet = 37
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu10' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Telefon", ;
		Left = 520, ;
		Name = "Lb_simplu10", ;
		TabIndex = 49, ;
		Top = 251, ;
		ZOrderSet = 37
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu12' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Dată naștere", ;
		Left = 245, ;
		Name = "Lb_simplu12", ;
		TabIndex = 51, ;
		Top = 123, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Cod acces:", ;
		Left = 363, ;
		Name = "Lb_simplu2", ;
		TabIndex = 35, ;
		Top = 371, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Eliberat de", ;
		Left = 245, ;
		Name = "Lb_simplu3", ;
		TabIndex = 36, ;
		Top = 314, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu4' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Situația militară", ;
		Left = 522, ;
		Name = "Lb_simplu4", ;
		TabIndex = 31, ;
		Top = 308, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Livret", ;
		Left = 522, ;
		Name = "Lb_simplu5", ;
		TabIndex = 32, ;
		Top = 331, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu6' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Grad militar", ;
		Left = 522, ;
		Name = "Lb_simplu6", ;
		TabIndex = 33, ;
		Top = 386, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu7' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Specialitate", ;
		Left = 522, ;
		Name = "Lb_simplu7", ;
		TabIndex = 37, ;
		Top = 360, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu8' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Etaj", ;
		Left = 520, ;
		Name = "Lb_simplu8", ;
		TabIndex = 47, ;
		Top = 171, ;
		ZOrderSet = 35
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.Lb_simplu9' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Loc naștere", ;
		Left = 245, ;
		Name = "Lb_simplu9", ;
		TabIndex = 40, ;
		Top = 150, ;
		ZOrderSet = 23
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page1.tx1' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.marca", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "99999999", ;
		Left = 317, ;
		Name = "tx1", ;
		ReadOnly = .T., ;
		TabIndex = 1, ;
		Top = 10, ;
		Width = 72, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx10' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.bieliberat", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 317, ;
		Name = "tx10", ;
		ReadOnly = .T., ;
		TabIndex = 12, ;
		Top = 311, ;
		Width = 182, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx11' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.bidata", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 325, ;
		Name = "tx11", ;
		ReadOnly = .T., ;
		TabIndex = 13, ;
		Top = 338, ;
		Width = 72, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx13' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.sector", ;
		Format = "!K", ;
		Height = 23, ;
		Left = 714, ;
		Name = "tx13", ;
		ReadOnly = .T., ;
		TabIndex = 23, ;
		TabStop = .F., ;
		Top = 222, ;
		Width = 32, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx15' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.strada", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx15", ;
		ReadOnly = .T., ;
		TabIndex = 16, ;
		Top = 58, ;
		Width = 182, ;
		ZOrderSet = 28
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx16' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.numar", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx16", ;
		ReadOnly = .T., ;
		TabIndex = 17, ;
		Top = 85, ;
		Width = 42, ;
		ZOrderSet = 30
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx17' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.bloc", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx17", ;
		ReadOnly = .T., ;
		TabIndex = 18, ;
		Top = 112, ;
		Width = 42, ;
		ZOrderSet = 32
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx18' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.scara", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx18", ;
		ReadOnly = .T., ;
		TabIndex = 19, ;
		Top = 140, ;
		Width = 42, ;
		ZOrderSet = 34
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx19' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.etaj", ;
		DisabledBackColor = 242,242,242, ;
		Format = "K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx19", ;
		ReadOnly = .T., ;
		TabIndex = 20, ;
		Top = 168, ;
		Width = 42, ;
		ZOrderSet = 36
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx2' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.nume", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 317, ;
		Name = "tx2", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 37, ;
		Width = 182, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx20' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.apart", ;
		DisabledBackColor = 242,242,242, ;
		Format = "K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx20", ;
		ReadOnly = .T., ;
		TabIndex = 21, ;
		Top = 195, ;
		Width = 42, ;
		ZOrderSet = 36
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx21' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.codpostal", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx21", ;
		ReadOnly = .T., ;
		TabIndex = 22, ;
		Top = 222, ;
		Width = 72, ;
		ZOrderSet = 38
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx22' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.sitmil", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 618, ;
		Name = "tx22", ;
		ReadOnly = .T., ;
		TabIndex = 25, ;
		Top = 305, ;
		Width = 162, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx23' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.livretmil", ;
		DisabledBackColor = 242,242,242, ;
		Format = "K", ;
		Height = 23, ;
		Left = 618, ;
		Name = "tx23", ;
		ReadOnly = .T., ;
		TabIndex = 26, ;
		Top = 331, ;
		Width = 162, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx24' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.specmil", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 618, ;
		Name = "tx24", ;
		ReadOnly = .T., ;
		TabIndex = 27, ;
		Top = 357, ;
		Width = 162, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx25' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.gradmil", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 618, ;
		Name = "tx25", ;
		ReadOnly = .T., ;
		TabIndex = 28, ;
		Top = 383, ;
		Width = 162, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx26' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.telefon", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 592, ;
		Name = "tx26", ;
		ReadOnly = .T., ;
		TabIndex = 24, ;
		Top = 248, ;
		Width = 72, ;
		ZOrderSet = 38
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx3' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.prenume", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 317, ;
		Name = "tx3", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 65, ;
		Width = 182, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx4' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.codpers", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999999999", ;
		Left = 317, ;
		Name = "tx4", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		Top = 93, ;
		Width = 182, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx5' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.locnastere", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 317, ;
		Name = "tx5", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		Top = 147, ;
		Width = 182, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page1.tx8' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.biserianr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 317, ;
		Name = "tx8", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		ToolTipText = "Serie si numar fara spatii intre ele", ;
		Top = 284, ;
		Width = 182, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.But_nou1' AS but_nou WITH ;
		Anchor = 72, ;
		caction = upload, ;
		Height = 27, ;
		Left = 716, ;
		Name = "But_nou1", ;
		Top = 15, ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page10.But_sterge1' AS but_sterge WITH ;
		Anchor = 72, ;
		caction = do_sterge_atas, ;
		Left = 746, ;
		Name = "But_sterge1", ;
		Top = 15, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page10.gridAtasamente' AS grid WITH ;
		Anchor = 240, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 348, ;
		HighlightStyle = 0, ;
		Left = 239, ;
		Name = "gridAtasamente", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_atas", ;
		Top = 56, ;
		Width = 553, ;
		Column1.ControlSource = "atasament", ;
		Column1.CurrentControl = "Command1", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Sparse = .F., ;
		Column1.Visible = .T., ;
		Column1.Width = 73, ;
		Column2.ControlSource = "nume_atasament", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 113, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "descriere", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 101, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "nr_doc", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 79, ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "data_doc", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 103, ;
		Column6.ControlSource = "utilizator", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 94
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column1.Command1' AS commandbutton WITH ;
		Caption = "", ;
		FontName = "Arial Narrow", ;
		Height = 10, ;
		Left = 11, ;
		Name = "Command1", ;
		Picture = ..\grafice\attach_mic.bmp, ;
		SpecialEffect = 1, ;
		Top = 23, ;
		Width = 10
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column1.Header1' AS header WITH ;
		Caption = "ATASAMENT", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column2.Header1' AS header WITH ;
		Caption = "NUME_ATASAMENT", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column3.Header1' AS header WITH ;
		Caption = "Descriere", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column4.Header1' AS header WITH ;
		Caption = "NR_DOC", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column5.Header1' AS header WITH ;
		Caption = "DATA_DOC", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column6.Header1' AS header WITH ;
		Caption = "UTILIZATOR", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page10.gridAtasamente.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page10.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Atașamente", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Left = 264, ;
		Name = "Lb_simplu1", ;
		Top = 19
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page11.But_modifica1' AS but_modifica WITH ;
		Anchor = 8, ;
		caction = do_modifica_aviz, ;
		Left = 636, ;
		Name = "But_modifica1", ;
		TabIndex = 3, ;
		Top = 18, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page11.But_nou1' AS but_nou WITH ;
		Anchor = 8, ;
		caction = do_adauga_aviz, ;
		Left = 606, ;
		Name = "But_nou1", ;
		TabIndex = 2, ;
		Top = 18
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page11.But_sterge1' AS but_sterge WITH ;
		Anchor = 8, ;
		caction = do_sterge_aviz, ;
		Left = 666, ;
		Name = "But_sterge1", ;
		TabIndex = 4, ;
		Top = 18, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page11.Grid3' AS grid WITH ;
		Anchor = 165, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 348, ;
		Left = 356, ;
		Name = "Grid3", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_avize", ;
		TabIndex = 1, ;
		Top = 52, ;
		Width = 312, ;
		Column1.ControlSource = "Aviz", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 154, ;
		Column2.ControlSource = "data1", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 67, ;
		Column3.ControlSource = "data2", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 95
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page11.Grid3.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data expirarii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page11.Grid3.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page11.Grid3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Aviz", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page11.Grid3.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page11.Grid3.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data aviz", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page11.Grid3.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Anchor = 672, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Persoana fizica cu sudii sup.si vechime >=1an ", ;
		ControlSource = "popers.studiisup", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 252, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		TabIndex = 46, ;
		TabStop = .F., ;
		Top = 412, ;
		Width = 275, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'page1.Page2.ck_anulare_incetare' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 672, ;
		Caption = "Anulare încetare", ;
		FontName = "Arial Narrow", ;
		Left = 242, ;
		Name = "ck_anulare_incetare", ;
		TabIndex = 61, ;
		Top = 24, ;
		Visible = .F.
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page1.Page2.Ct_cb_duratam' AS ct_cb_tx WITH ;
		Anchor = 672, ;
		BorderWidth = 0, ;
		ccrs_col = nume_durata_munca, ;
		ccrs_col_id = id_durata_munca, ;
		ccursor = crsnomduratam, ;
		cprocedura = Thisform.do_actualizeaza_norma, ;
		cvar_afisata = popers.nume_durata_munca, ;
		cvar_id = popers.id_durata_munca, ;
		Height = 29, ;
		Left = 510, ;
		Name = "Ct_cb_duratam", ;
		TabIndex = 28, ;
		Top = 233, ;
		Width = 276, ;
		_CBBASE1.Height = 23, ;
		_CBBASE1.Left = 114, ;
		_CBBASE1.Name = "_CBBASE1", ;
		_CBBASE1.Top = 3, ;
		_CBBASE1.Width = 160, ;
		lb_explicatie.Caption = "Durată timp normă", ;
		lb_explicatie.FontName = "Arial Narrow", ;
		lb_explicatie.Name = "lb_explicatie", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 114, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 160
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_functiebaza' AS ct_cb_tx WITH ;
		Anchor = 544, ;
		BorderWidth = 0, ;
		clista_valori = DA,1,NU,0, ;
		cvar_afisata = popers.functiebaza, ;
		Height = 29, ;
		Left = 422, ;
		Name = "Ct_cb_functiebaza", ;
		ntip = 2, ;
		TabIndex = 25, ;
		Top = 184, ;
		Width = 182, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 98, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 80, ;
		lb_explicatie.Caption = "Funcție bază", ;
		lb_explicatie.Name = "lb_explicatie", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 98, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 80
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_handicap' AS ct_cb_tx WITH ;
		Anchor = 544, ;
		BorderWidth = 0, ;
		ccrs_col = denumire, ;
		ccrs_col_id = id_handicap, ;
		ccursor = v_hand, ;
		cvar_afisata = popers.handicap, ;
		cvar_id = popers.id_handicap, ;
		Height = 29, ;
		Left = 422, ;
		Name = "Ct_cb_handicap", ;
		TabIndex = 21, ;
		Top = 136, ;
		Width = 182, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 98, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 80, ;
		lb_explicatie.Caption = "Invalid", ;
		lb_explicatie.Name = "lb_explicatie", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 98, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 80
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_intm' AS ct_cb_tx WITH ;
		Anchor = 672, ;
		BorderWidth = 0, ;
		ccrs_col = nume_interval_munca, ;
		ccrs_col_id = id_interval_munca, ;
		ccursor = crsnomintm, ;
		cvar_afisata = popers.nume_interval_munca, ;
		cvar_id = popers.id_interval_munca, ;
		Height = 29, ;
		Left = 510, ;
		Name = "Ct_cb_intm", ;
		TabIndex = 30, ;
		Top = 284, ;
		Width = 276, ;
		_CBBASE1.Height = 23, ;
		_CBBASE1.Left = 114, ;
		_CBBASE1.Name = "_CBBASE1", ;
		_CBBASE1.Top = 3, ;
		_CBBASE1.Width = 160, ;
		lb_explicatie.Caption = "Tip interval repartizare", ;
		lb_explicatie.FontName = "Arial Narrow", ;
		lb_explicatie.Name = "lb_explicatie", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 114, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 160
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_pensionar' AS ct_cb_tx WITH ;
		Anchor = 544, ;
		BorderWidth = 0, ;
		clista_valori = DA,1,NU,0, ;
		cvar_afisata = popers.pensionar, ;
		Height = 29, ;
		Left = 422, ;
		Name = "Ct_cb_pensionar", ;
		ntip = 2, ;
		TabIndex = 23, ;
		Top = 160, ;
		Width = 182, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 98, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 80, ;
		lb_explicatie.Caption = "Pensionar", ;
		lb_explicatie.Name = "lb_explicatie", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 98, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 80
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_platacas' AS ct_cb_tx WITH ;
		Anchor = 544, ;
		BorderWidth = 0, ;
		clista_valori = DA,1,NU,0, ;
		cvar_afisata = popers.plcas, ;
		Height = 29, ;
		Left = 598, ;
		Name = "Ct_cb_platacas", ;
		ntip = 2, ;
		TabIndex = 22, ;
		Top = 136, ;
		Width = 182, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 98, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 80, ;
		lb_explicatie.Caption = "Plătește CAS", ;
		lb_explicatie.Name = "lb_explicatie", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 98, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 80
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_platasomaj' AS ct_cb_tx WITH ;
		Anchor = 544, ;
		BorderWidth = 0, ;
		clista_valori = DA,1,NU,0, ;
		cvar_afisata = popers.plsomaj, ;
		Height = 29, ;
		Left = 598, ;
		Name = "Ct_cb_platasomaj", ;
		ntip = 2, ;
		TabIndex = 24, ;
		Top = 160, ;
		Width = 182, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 98, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 80, ;
		lb_explicatie.Caption = "Plătește șomaj", ;
		lb_explicatie.Name = "lb_explicatie", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 98, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 80
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_repartm' AS ct_cb_tx WITH ;
		Anchor = 672, ;
		BorderWidth = 0, ;
		ccrs_col = nume_repartizare_munca, ;
		ccrs_col_id = id_repartizare_munca, ;
		ccursor = crsnomrepartm, ;
		cvar_afisata = popers.nume_repartizare_munca, ;
		cvar_id = popers.id_repartizare_munca, ;
		Height = 29, ;
		Left = 510, ;
		Name = "Ct_cb_repartm", ;
		TabIndex = 29, ;
		Top = 259, ;
		Width = 276, ;
		_CBBASE1.Height = 23, ;
		_CBBASE1.Left = 114, ;
		_CBBASE1.Name = "_CBBASE1", ;
		_CBBASE1.Top = 3, ;
		_CBBASE1.Width = 160, ;
		lb_explicatie.Caption = "Repartizare timp muncă", ;
		lb_explicatie.FontName = "Arial Narrow", ;
		lb_explicatie.Name = "lb_explicatie", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 114, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 160
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_cb_tipn' AS ct_cb_tx WITH ;
		Anchor = 672, ;
		BorderWidth = 0, ;
		ccrs_col = nume_tip_norma, ;
		ccrs_col_id = id_tip_norma, ;
		ccursor = crsnomtipn, ;
		clista_parametri = 1, ;
		cprocedura = Thisform.do_actualizeaza_nom_norme, ;
		cvar_afisata = popers.nume_tip_norma, ;
		cvar_id = popers.id_tip_norma, ;
		Height = 29, ;
		Left = 510, ;
		Name = "Ct_cb_tipn", ;
		TabIndex = 27, ;
		Top = 208, ;
		Width = 276, ;
		_CBBASE1.Height = 23, ;
		_CBBASE1.Left = 114, ;
		_CBBASE1.Name = "_CBBASE1", ;
		_CBBASE1.Top = 3, ;
		_CBBASE1.Width = 160, ;
		lb_explicatie.Caption = "Tip normă", ;
		lb_explicatie.Name = "lb_explicatie", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 114, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 160
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_banca' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_banca,0)), ;
		cprocedura = Thisform.do_cauta_banca, ;
		cvar_afisata = popers.banca, ;
		Height = 31, ;
		Left = 516, ;
		Name = "Ct_clb_banca", ;
		TabIndex = 35, ;
		Top = 385, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Banca", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 96, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 142
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_casa_sanatate' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.casaasig,'')), ;
		cprocedura = Thisform.do_cauta_casaasig, ;
		cvar_afisata = popers.casaasig, ;
		Height = 31, ;
		Left = 516, ;
		Name = "Ct_clb_casa_sanatate", ;
		TabIndex = 33, ;
		Top = 335, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Casă sănătate", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 96, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 142
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_cautare_var1' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.plimpozit,1)), ;
		cprocedura = Thisform.do_cauta_plimpozit, ;
		cvar_afisata = popers.scutireimpozit, ;
		Height = 31, ;
		Left = 606, ;
		Name = "Ct_clb_cautare_var1", ;
		TabIndex = 26, ;
		Top = 182, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 169, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Plateste impozit", ;
		lb_cautare.FontName = "Arial Narrow", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 68, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 97
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_clasasal' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.cod,'')), ;
		cprocedura = Thisform.do_cauta_clasasal, ;
		cvar_afisata = popers.cod, ;
		Height = 31, ;
		Left = 243, ;
		Name = "Ct_clb_clasasal", ;
		TabIndex = 19, ;
		Top = 360, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Clasă salarizare", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 96, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 142
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_detasatla' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_parts,0)) , ;
		clista_parametri = 2, ;
		cprocedura = Thisform.do_cauta_partener, ;
		cvar_afisata = popers.denumires, ;
		Height = 31, ;
		Left = 429, ;
		Name = "Ct_clb_detasatla", ;
		TabIndex = 5, ;
		Top = 50, ;
		Width = 205, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Height = 29, ;
		shape_cautare.Left = 1, ;
		shape_cautare.Name = "shape_cautare", ;
		shape_cautare.Top = 1, ;
		shape_cautare.Width = 216, ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 184, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Detașat la", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 77, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 104
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_formatia' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_formatie,0)), ;
		cprocedura = Thisform.do_cauta_formatia, ;
		cvar_afisata = popers.formatia, ;
		Height = 31, ;
		Left = 243, ;
		Name = "Ct_clb_formatia", ;
		TabIndex = 16, ;
		Top = 283, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Formația", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_grupa_munca' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_cas,0)), ;
		cprocedura = Thisform.do_cauta_grupamunca, ;
		cvar_afisata = popers.grupacas, ;
		Height = 31, ;
		Left = 243, ;
		Name = "Ct_clb_grupa_munca", ;
		TabIndex = 18, ;
		Top = 335, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Condiții de muncă", ;
		lb_cautare.FontName = "Arial", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 103, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 135
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_meserie' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_meserie,0)), ;
		clista_parametri = 1, ;
		cprocedura = Thisform.do_cauta_meseria, ;
		cvar_afisata = popers.meseria, ;
		Height = 31, ;
		Left = 243, ;
		Name = "Ct_clb_meserie", ;
		TabIndex = 14, ;
		Top = 232, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Meseria", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_taradet' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_taras,0)) , ;
		clista_parametri = 2, ;
		cprocedura = Thisform.do_cauta_tara, ;
		cvar_afisata = popers.taras, ;
		Height = 31, ;
		Left = 636, ;
		Name = "Ct_clb_taradet", ;
		TabIndex = 6, ;
		Top = 50, ;
		Width = 168, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Height = 29, ;
		shape_cautare.Left = 1, ;
		shape_cautare.Name = "shape_cautare", ;
		shape_cautare.Top = 1, ;
		shape_cautare.Width = 216, ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 139, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Țară", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 31, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 104
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_temei' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_temeis,0)), ;
		cprocedura = Thisform.do_cauta_temei, ;
		cvar_afisata = popers.explicaties, ;
		Height = 31, ;
		Left = 429, ;
		Name = "Ct_clb_temei", ;
		TabIndex = 4, ;
		Top = 26, ;
		Width = 375, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 345, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Temei legal", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 77, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 265
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.Ct_clb_tipcontract' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.tip_contract,'')), ;
		cprocedura = Thisform.do_cauta_tipcontract, ;
		cvar_afisata = popers.tip_contract, ;
		Height = 31, ;
		Left = 243, ;
		Name = "Ct_clb_tipcontract", ;
		TabIndex = 13, ;
		Top = 207, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Tip contract", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page2.lb15' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Dată angajare", ;
		Left = 243, ;
		Name = "lb15", ;
		TabIndex = 49, ;
		Top = 142, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.lb16' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Dată sfârșit ctr.", ;
		Left = 243, ;
		Name = "lb16", ;
		TabIndex = 50, ;
		Top = 167, ;
		ZOrderSet = 43
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.lb20' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Secția", ;
		Left = 243, ;
		Name = "lb20", ;
		TabIndex = 51, ;
		Top = 317, ;
		ZOrderSet = 49
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.lb23' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Tarifar", ;
		Left = 242, ;
		Name = "lb23", ;
		TabIndex = 55, ;
		Top = 388, ;
		ZOrderSet = 52
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.lb29' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Timp parțial", ;
		Left = 516, ;
		Name = "lb29", ;
		TabIndex = 56, ;
		Top = 317, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.lb30' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Timp normal", ;
		Left = 652, ;
		Name = "lb30", ;
		TabIndex = 57, ;
		Top = 316, ;
		ZOrderSet = 62
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.lb32' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Data lichidării", ;
		Left = 428, ;
		Name = "lb32", ;
		TabIndex = 58, ;
		Top = 9, ;
		ZOrderSet = 65
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 672, ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Valabil doar pentru societatile care se incadreaza in OUG 114/2018:", ;
		Height = 50, ;
		Left = 242, ;
		Name = "Lb_simplu1", ;
		TabIndex = 59, ;
		Top = 456, ;
		Width = 172, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu10' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Nr. și dată contract (ITM)", ;
		Left = 248, ;
		Name = "Lb_simplu10", ;
		TabIndex = 39, ;
		Top = 115, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu11' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "din", ;
		Left = 478, ;
		Name = "Lb_simplu11", ;
		TabIndex = 38, ;
		Top = 115, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Nr. și dată contract (intern)", ;
		Left = 244, ;
		Name = "Lb_simplu2", ;
		TabIndex = 42, ;
		Top = 89, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Cod", ;
		Left = 243, ;
		Name = "Lb_simplu3", ;
		TabIndex = 40, ;
		Top = 265, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu4' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Per. șomaj tehnic", ;
		Left = 337, ;
		Name = "Lb_simplu4", ;
		TabIndex = 54, ;
		Top = 433, ;
		Visible = .F., ;
		ZOrderSet = 52
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "-", ;
		Left = 511, ;
		Name = "Lb_simplu5", ;
		TabIndex = 53, ;
		Top = 433, ;
		Visible = .F., ;
		ZOrderSet = 52
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu6' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Cont IBAN", ;
		Left = 516, ;
		Name = "Lb_simplu6", ;
		TabIndex = 52, ;
		Top = 367, ;
		ZOrderSet = 49
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu7' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "din", ;
		Left = 478, ;
		Name = "Lb_simplu7", ;
		TabIndex = 41, ;
		Top = 89, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu8' AS lb_simplu WITH ;
		Anchor = 672, ;
		Caption = "Stare contract", ;
		Left = 243, ;
		Name = "Lb_simplu8", ;
		TabIndex = 60, ;
		Top = 4
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Lb_simplu9' AS lb_simplu WITH ;
		Anchor = 176, ;
		AutoSize = .F., ;
		Caption = "<motiv lichidare>", ;
		Height = 17, ;
		Left = 592, ;
		Name = "Lb_simplu9", ;
		TabIndex = 44, ;
		Top = 9, ;
		Width = 95, ;
		ZOrderSet = 65
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page2.Opt_oug114' AS optiongroup WITH ;
		Anchor = 672, ;
		BackStyle = 0, ;
		ButtonCount = 3, ;
		ControlSource = "popers.oug114", ;
		Height = 60, ;
		Left = 442, ;
		Name = "Opt_oug114", ;
		TabIndex = 62, ;
		Top = 455, ;
		Value = 2, ;
		Width = 297, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Nu se aplica scutirea cf OUG 114/2018", ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 0, ;
		Option1.Width = 231, ;
		Option1.WordWrap = .T., ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "Se aplica scutirea pt total brut intre 3000 si 30000", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option2.Value = 1, ;
		Option2.Width = 288, ;
		Option2.WordWrap = .T., ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "Se aplica scutirea indiferent de salariu", ;
		Option3.Enabled = .F., ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 43, ;
		Option3.Width = 228, ;
		Option3.WordWrap = .T.
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'page1.Page2.opt_stare_contract' AS _optiongrup WITH ;
		Anchor = 672, ;
		AutoSize = .F., ;
		ButtonCount = 4, ;
		Enabled = .F., ;
		Height = 84, ;
		Left = 328, ;
		Name = "opt_stare_contract", ;
		TabIndex = 1, ;
		Top = 1, ;
		Width = 96, ;
		OPTION1.AutoSize = .T., ;
		OPTION1.Caption = "Activ", ;
		OPTION1.FontCharSet = 238, ;
		OPTION1.Left = 5, ;
		OPTION1.Name = "OPTION1", ;
		OPTION1.Top = 5, ;
		OPTION2.AutoSize = .T., ;
		OPTION2.Caption = "Încetat", ;
		OPTION2.FontCharSet = 238, ;
		OPTION2.Left = 5, ;
		OPTION2.Name = "OPTION2", ;
		OPTION2.Top = 24, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "Suspendat", ;
		Option3.FontCharSet = 238, ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 43, ;
		Option3.Width = 78, ;
		Option4.AutoSize = .T., ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "Detașat", ;
		Option4.FontCharSet = 238, ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Name = "Option4", ;
		Option4.Top = 62, ;
		Option4.Width = 61
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'page1.Page2.tx26' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.dataang", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KD", ;
		Height = 24, ;
		Left = 328, ;
		Name = "tx26", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 138, ;
		Width = 66, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx27' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.datasfctr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KD", ;
		Height = 24, ;
		Left = 328, ;
		Name = "tx27", ;
		ReadOnly = .T., ;
		TabIndex = 12, ;
		Top = 163, ;
		Width = 66, ;
		ZOrderSet = 44
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx31' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.sectie", ;
		FontName = "Arial Narrow", ;
		Format = "!K", ;
		Height = 24, ;
		Left = 315, ;
		Name = "tx31", ;
		ReadOnly = .T., ;
		TabIndex = 17, ;
		Top = 313, ;
		Width = 166, ;
		ZOrderSet = 46
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx34' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.tarifar", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KR", ;
		Height = 24, ;
		InputMask = (get_mask(16,gnPS)), ;
		Left = 339, ;
		Name = "tx34", ;
		ReadOnly = .T., ;
		TabIndex = 20, ;
		Top = 388, ;
		Width = 141, ;
		ZOrderSet = 53
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx40' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.fractie", ;
		Format = "!K", ;
		Height = 24, ;
		Left = 585, ;
		Name = "tx40", ;
		ReadOnly = .T., ;
		TabIndex = 31, ;
		Top = 313, ;
		Width = 62, ;
		ZOrderSet = 63
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx41' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.orenorm", ;
		Format = "!K", ;
		Height = 24, ;
		Left = 728, ;
		Name = "tx41", ;
		ReadOnly = .T., ;
		TabIndex = 32, ;
		Top = 313, ;
		Width = 62, ;
		ZOrderSet = 63
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx43' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datainceputs", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KD", ;
		Height = 24, ;
		Left = 506, ;
		Name = "tx43", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 5, ;
		Width = 80, ;
		ZOrderSet = 66
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx45' AS _textbox WITH ;
		Anchor = 672, ;
		ControlSource = "popers.contiban", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 612, ;
		Name = "tx45", ;
		ReadOnly = .T., ;
		TabIndex = 34, ;
		Top = 364, ;
		Width = 142, ;
		ZOrderSet = 30
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx49' AS checkbox WITH ;
		Alignment = 1, ;
		Anchor = 544, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lucrează în tură", ;
		ControlSource = "popers.in_tura", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 312, ;
		Name = "tx49", ;
		ReadOnly = .T., ;
		TabIndex = 43, ;
		TabStop = .F., ;
		Top = 190, ;
		Width = 105
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'page1.Page2.tx50' AS checkbox WITH ;
		Alignment = 1, ;
		Anchor = 544, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Elev / student în vacanță", ;
		ControlSource = "popers.elev", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 624, ;
		Name = "tx50", ;
		ReadOnly = .T., ;
		TabIndex = 47, ;
		TabStop = .F., ;
		Top = 90, ;
		Width = 149
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'page1.Page2.tx51' AS checkbox WITH ;
		Alignment = 1, ;
		Anchor = 544, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Șomaj tehnic", ;
		ControlSource = "popers.somaj_tehnic", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 242, ;
		Name = "tx51", ;
		ReadOnly = .T., ;
		TabIndex = 48, ;
		TabStop = .F., ;
		Top = 433, ;
		Width = 90
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'page1.Page2.tx52' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.datast1", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KD", ;
		Height = 24, ;
		Left = 440, ;
		Name = "tx52", ;
		ReadOnly = .T., ;
		TabIndex = 36, ;
		Top = 429, ;
		Visible = .F., ;
		Width = 66, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx53' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.datast2", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KD", ;
		Height = 24, ;
		Left = 523, ;
		Name = "tx53", ;
		ReadOnly = .T., ;
		TabIndex = 37, ;
		Top = 429, ;
		Visible = .F., ;
		Width = 66, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx54' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datasfarsits", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!KD", ;
		Height = 24, ;
		Left = 590, ;
		Name = "tx54", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 5, ;
		Width = 80, ;
		ZOrderSet = 66
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx55' AS checkbox WITH ;
		Alignment = 0, ;
		Anchor = 672, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "CAS si CASS societate se calc. din salariu minim", ;
		ControlSource = "popers.cassalmin", ;
		FontCharSet = 238, ;
		Height = 32, ;
		Left = 610, ;
		Name = "tx55", ;
		ReadOnly = .T., ;
		TabIndex = 45, ;
		TabStop = .F., ;
		Top = 426, ;
		Width = 162, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'page1.Page2.tx67' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.nrctrmchr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 402, ;
		Name = "tx67", ;
		ReadOnly = .T., ;
		TabIndex = 9, ;
		Top = 111, ;
		Width = 69, ;
		ZOrderSet = 61
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx68' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datactrm", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 499, ;
		Name = "tx68", ;
		ReadOnly = .T., ;
		TabIndex = 10, ;
		Top = 111, ;
		Width = 79, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx69' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.nrctr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		InputMask = "9999999999999", ;
		Left = 402, ;
		Name = "tx69", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		Top = 85, ;
		Width = 69, ;
		ZOrderSet = 61
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx70' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.datactr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 499, ;
		Name = "tx70", ;
		ReadOnly = .T., ;
		TabIndex = 8, ;
		Top = 85, ;
		Width = 79, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page2.tx_codcod' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.codcod", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 315, ;
		Name = "tx_codcod", ;
		ReadOnly = .T., ;
		TabIndex = 15, ;
		Top = 261, ;
		Width = 79, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.But_modifica1' AS but_modifica WITH ;
		Anchor = 144, ;
		caction = do_modifica_intret, ;
		Left = 762, ;
		Name = "But_modifica1", ;
		TabIndex = 9, ;
		Top = 319, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page3.But_modifica2' AS but_modifica WITH ;
		Anchor = 144, ;
		caction = modifica_copil, ;
		Left = 762, ;
		Name = "But_modifica2", ;
		TabIndex = 18, ;
		Top = 168, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page3.But_nou1' AS but_nou WITH ;
		Anchor = 144, ;
		caction = do_adauga_intret, ;
		Left = 762, ;
		Name = "But_nou1", ;
		TabIndex = 8, ;
		Top = 290
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page3.But_nou2' AS but_nou WITH ;
		Anchor = 144, ;
		caction = adauga_copil, ;
		Left = 762, ;
		Name = "But_nou2", ;
		TabIndex = 17, ;
		Top = 140
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page3.But_sterge1' AS but_sterge WITH ;
		Anchor = 144, ;
		caction = do_sterge_intret, ;
		Left = 762, ;
		Name = "But_sterge1", ;
		TabIndex = 10, ;
		Top = 348, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page3.But_sterge2' AS but_sterge WITH ;
		Anchor = 144, ;
		caction = sterge_copil, ;
		Left = 762, ;
		Name = "But_sterge2", ;
		TabIndex = 19, ;
		Top = 196, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page3.Ct_cb_stareciv' AS ct_cb_tx WITH ;
		Anchor = 672, ;
		BorderWidth = 0, ;
		clista_valori = CASATORIT,1,NECASATORIT,0, ;
		cvar_afisata = popers.stareciv, ;
		Height = 29, ;
		Left = 246, ;
		Name = "Ct_cb_stareciv", ;
		ntip = 2, ;
		TabIndex = 1, ;
		Top = 7, ;
		Width = 374, ;
		_cbbase1.Anchor = 672, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 93, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 262, ;
		lb_explicatie.Caption = "Stare civilă", ;
		lb_explicatie.Left = 1, ;
		lb_explicatie.Name = "lb_explicatie", ;
		lb_explicatie.Top = 6, ;
		Text_simplu1.Anchor = 672, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 93, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 262
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page3.Grid1' AS grid WITH ;
		Anchor = 240, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 120, ;
		Left = 240, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_copii", ;
		TabIndex = 6, ;
		Top = 135, ;
		Width = 516, ;
		Column1.ControlSource = "nume", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 102, ;
		Column2.ControlSource = "prenume", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 107, ;
		Column3.ControlSource = "codpers", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 95, ;
		Column4.ControlSource = "datanast", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column2", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 64
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page3.Grid1.Column1.Header1' AS header WITH ;
		Caption = "Cnp", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid1.Column2.Header1' AS header WITH ;
		Caption = "Data nasterii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prenume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid3' AS grid WITH ;
		Anchor = 180, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 120, ;
		Left = 240, ;
		Name = "Grid3", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_nom_intret", ;
		TabIndex = 7, ;
		Top = 283, ;
		Width = 516, ;
		Column1.ControlSource = "nume", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 102, ;
		Column2.ControlSource = "prenume", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 107, ;
		Column3.ControlSource = "codpers", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 95, ;
		Column4.ControlSource = "calitate", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column2", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 64, ;
		Column5.ControlSource = "", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column5.Visible = .F., ;
		Column5.Width = 41
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page3.Grid3.Column1.Header1' AS header WITH ;
		Caption = "Cnp", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid3.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid3.Column2.Header1' AS header WITH ;
		Caption = "In calitate de", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid3.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid3.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid3.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prenume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid3.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Grid3.Column5.Header1' AS header WITH ;
		Caption = "Coef. deducere", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page3.Grid3.Column5.Text1' AS textbox WITH ;
		Height = 23, ;
		Left = 13, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Top = 34, ;
		Visible = .F., ;
		Width = 100
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Nume soț / soție", ;
		Left = 246, ;
		Name = "Lb_simplu1", ;
		TabIndex = 16, ;
		Top = 39, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page3.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Nume mamă", ;
		Left = 246, ;
		Name = "Lb_simplu2", ;
		TabIndex = 11, ;
		Top = 90, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page3.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Nume tată", ;
		Left = 246, ;
		Name = "Lb_simplu3", ;
		TabIndex = 12, ;
		Top = 65, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page3.Lb_simplu4' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Nr copii:", ;
		Left = 657, ;
		Name = "Lb_simplu4", ;
		TabIndex = 15, ;
		Top = 110, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page3.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Copii", ;
		FontBold = .T., ;
		Left = 254, ;
		Name = "Lb_simplu5", ;
		TabIndex = 13, ;
		Top = 110, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page3.Lb_simplu6' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Persoane aflate în întreținere", ;
		FontBold = .T., ;
		Left = 249, ;
		Name = "Lb_simplu6", ;
		TabIndex = 14, ;
		Top = 260, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page3.tx52' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.numesot", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 338, ;
		Name = "tx52", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 36, ;
		Width = 262, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.tx53' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.numetata", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 338, ;
		Name = "tx53", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 62, ;
		Width = 262, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.tx54' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.numemama", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 338, ;
		Name = "tx54", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		Top = 87, ;
		Width = 262, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page3.txcopii' AS _textbox WITH ;
		Anchor = 176, ;
		DisabledBackColor = 242,242,242, ;
		Height = 23, ;
		Left = 708, ;
		Name = "txcopii", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		Top = 107, ;
		Width = 33, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page4.But_modifica1' AS but_modifica WITH ;
		Anchor = 8, ;
		caction = do_modifica_bazacm, ;
		Left = 628, ;
		Name = "But_modifica1", ;
		TabIndex = 3, ;
		Top = 10, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page4.But_nou1' AS but_nou WITH ;
		Anchor = 8, ;
		caction = do_adauga_bazacm, ;
		Left = 598, ;
		Name = "But_nou1", ;
		TabIndex = 2, ;
		Top = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page4.But_sterge1' AS but_sterge WITH ;
		Anchor = 8, ;
		caction = do_sterge_bazacm, ;
		Left = 658, ;
		Name = "But_sterge1", ;
		TabIndex = 4, ;
		Top = 10, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page4.Grid3' AS grid WITH ;
		Anchor = 165, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 348, ;
		Left = 348, ;
		Name = "Grid3", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_bazacm", ;
		TabIndex = 1, ;
		Top = 44, ;
		Width = 312, ;
		Column1.ControlSource = "an", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 56, ;
		Column2.ControlSource = "luna", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 67, ;
		Column3.ControlSource = "bazacalcul", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 95, ;
		Column4.ControlSource = "zilelucr", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column2", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 64
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page4.Grid3.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page4.Grid3.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page4.Grid3.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Zile lucrate", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page4.Grid3.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page4.Grid3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "An", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page4.Grid3.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page4.Grid3.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Luna", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page4.Grid3.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page5.But_modifica1' AS but_modifica WITH ;
		Anchor = 72, ;
		caction = do_modifica_limba, ;
		Left = 708, ;
		Name = "But_modifica1", ;
		TabIndex = 4, ;
		Top = 58, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page5.But_nou1' AS but_nou WITH ;
		Anchor = 72, ;
		caction = do_adauga_limba, ;
		Left = 678, ;
		Name = "But_nou1", ;
		TabIndex = 3, ;
		Top = 58
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page5.But_sterge1' AS but_sterge WITH ;
		Anchor = 72, ;
		caction = do_sterge_limba, ;
		Left = 738, ;
		Name = "But_sterge1", ;
		TabIndex = 5, ;
		Top = 58, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page5.Ct_clb_meserie' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_profesie,0)), ;
		clista_parametri = 2, ;
		cprocedura = Thisform.do_cauta_meseria, ;
		cvar_afisata = popers.profesia, ;
		Height = 31, ;
		Left = 288, ;
		Name = "Ct_clb_meserie", ;
		TabIndex = 1, ;
		Top = 6, ;
		Width = 271, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 243, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Profesia", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 72, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 166
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page5.Grid3' AS grid WITH ;
		Anchor = 240, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 312, ;
		Left = 240, ;
		Name = "Grid3", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_calif", ;
		TabIndex = 2, ;
		Top = 92, ;
		Width = 552, ;
		Column1.ControlSource = "denumire", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 216, ;
		Column2.ControlSource = "nota", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 79
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page5.Grid3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page5.Grid3.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page5.Grid3.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nota", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page5.Grid3.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page5.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Specializare", ;
		Left = 288, ;
		Name = "Lb_simplu3", ;
		TabIndex = 12, ;
		Top = 44, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page5.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Limbi străine", ;
		FontBold = .T., ;
		Left = 263, ;
		Name = "Lb_simplu5", ;
		TabIndex = 6, ;
		Top = 63, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page5.tx53' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.specializare", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 362, ;
		Name = "tx53", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 41, ;
		Width = 262, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.But_modifica1' AS but_modifica WITH ;
		Anchor = 72, ;
		caction = do_modifica_curs, ;
		Left = 722, ;
		Name = "But_modifica1", ;
		TabIndex = 10, ;
		Top = 171, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page6.But_modifica2' AS but_modifica WITH ;
		Anchor = 72, ;
		caction = do_modifica_stud, ;
		Left = 722, ;
		Name = "But_modifica2", ;
		TabIndex = 16, ;
		Top = 338, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page6.But_nou1' AS but_nou WITH ;
		Anchor = 72, ;
		caction = do_adauga_curs, ;
		Left = 692, ;
		Name = "But_nou1", ;
		TabIndex = 9, ;
		Top = 171
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page6.But_nou2' AS but_nou WITH ;
		Anchor = 72, ;
		caction = do_adauga_stud, ;
		Left = 692, ;
		Name = "But_nou2", ;
		TabIndex = 15, ;
		Top = 338
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page6.But_sterge1' AS but_sterge WITH ;
		Anchor = 72, ;
		caction = do_sterge_curs, ;
		Left = 752, ;
		Name = "But_sterge1", ;
		TabIndex = 11, ;
		Top = 171, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page6.But_sterge2' AS but_sterge WITH ;
		Anchor = 72, ;
		caction = do_sterge_stud, ;
		Left = 752, ;
		Name = "But_sterge2", ;
		TabIndex = 17, ;
		Top = 338, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page6.Grid1' AS grid WITH ;
		Anchor = 180, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 123, ;
		Left = 242, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_studii", ;
		TabIndex = 14, ;
		Top = 369, ;
		Width = 550, ;
		Column1.ControlSource = "", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 37, ;
		Column2.ControlSource = "scoala", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 131, ;
		Column3.ControlSource = "detalii", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 143
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page6.Grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Detalii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Scoala", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid3' AS grid WITH ;
		Anchor = 240, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 124, ;
		Left = 242, ;
		Name = "Grid3", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_curs_calif", ;
		TabIndex = 8, ;
		Top = 201, ;
		Width = 550, ;
		Column1.ControlSource = "", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 29, ;
		Column2.ControlSource = "denumire", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 110, ;
		Column3.ControlSource = "data", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 59, ;
		Column4.ControlSource = "test", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column2", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 69, ;
		Column5.ControlSource = "nota", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 42
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page6.Grid3.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid3.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid3.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie/Nr. act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid3.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid3.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid3.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid3.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Grid3.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nota", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page6.Grid3.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Studii", ;
		FontBold = .T., ;
		Left = 267, ;
		Name = "Lb_simplu1", ;
		TabIndex = 13, ;
		Top = 341, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Scoala generala:", ;
		Left = 257, ;
		Name = "Lb_simplu2", ;
		TabIndex = 18, ;
		Top = 21, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Scoala profesionala:", ;
		Left = 257, ;
		Name = "Lb_simplu3", ;
		TabIndex = 19, ;
		Top = 45, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu4' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Profil liceu:", ;
		Left = 257, ;
		Name = "Lb_simplu4", ;
		TabIndex = 21, ;
		Top = 69, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Cursuri calificare", ;
		FontBold = .T., ;
		Left = 267, ;
		Name = "Lb_simplu5", ;
		TabIndex = 12, ;
		Top = 177, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu6' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Specialitate liceu:", ;
		Left = 257, ;
		Name = "Lb_simplu6", ;
		TabIndex = 20, ;
		Top = 93, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu7' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Scoala maistri:", ;
		Left = 257, ;
		Name = "Lb_simplu7", ;
		TabIndex = 22, ;
		Top = 117, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.Lb_simplu8' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Scoala postliceala:", ;
		Left = 257, ;
		Name = "Lb_simplu8", ;
		TabIndex = 24, ;
		Top = 141, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page6.tx1' AS _textbox WITH ;
		Anchor = 56, ;
		ControlSource = "popers.sc_general", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 385, ;
		Name = "tx1", ;
		ReadOnly = .T., ;
		TabIndex = 1, ;
		Top = 18, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.tx2' AS _textbox WITH ;
		Anchor = 56, ;
		ControlSource = "popers.sc_prof", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 385, ;
		Name = "tx2", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 42, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.tx3' AS _textbox WITH ;
		Anchor = 56, ;
		ControlSource = "popers.licprofil", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 385, ;
		Name = "tx3", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 66, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.tx4' AS _textbox WITH ;
		Anchor = 56, ;
		ControlSource = "popers.licspec", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 385, ;
		Name = "tx4", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		Top = 90, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.tx5' AS _textbox WITH ;
		Anchor = 56, ;
		ControlSource = "popers.sc_maistri", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 385, ;
		Name = "tx5", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		Top = 114, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page6.tx6' AS _textbox WITH ;
		Anchor = 56, ;
		ControlSource = "popers.sc_post", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 385, ;
		Name = "tx6", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		Top = 138, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.ania' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 420, ;
		Name = "ania", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		Top = 266, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.Cmd_executa1' AS cmd_executa WITH ;
		Anchor = 48, ;
		AutoSize = .T., ;
		caction = calcul_vechime, ;
		Caption = "Calcul vechime", ;
		Left = 256, ;
		Name = "Cmd_executa1", ;
		TabIndex = 25, ;
		Top = 299
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page7.Cmd_executa2' AS cmd_executa WITH ;
		Anchor = 48, ;
		Caption = "Vechime (în luna curentă):", ;
		FontBold = .F., ;
		Height = 29, ;
		Left = 240, ;
		Name = "Cmd_executa2", ;
		TabIndex = 26, ;
		Top = 179, ;
		Width = 168
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page7.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Mod încadrare", ;
		Left = 256, ;
		Name = "Lb_simplu1", ;
		TabIndex = 18, ;
		Top = 98, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu10' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "adică :", ;
		Left = 374, ;
		Name = "Lb_simplu10", ;
		TabIndex = 17, ;
		Top = 152, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu11' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "ani și", ;
		Left = 484, ;
		Name = "Lb_simplu11", ;
		TabIndex = 20, ;
		Top = 211, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu12' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "adică :", ;
		Left = 374, ;
		Name = "Lb_simplu12", ;
		TabIndex = 16, ;
		Top = 211, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu13' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "(fixe, nu se vor recalcula în funcție de vechime. Dacă se dorește recalcularea zilelor cuvenite, nu se completează.)", ;
		FontName = "Arial Narrow", ;
		FontSize = 8, ;
		Height = 32, ;
		Left = 256, ;
		Name = "Lb_simplu13", ;
		TabIndex = 22, ;
		Top = 352, ;
		Width = 417, ;
		WordWrap = .T., ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu14' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Zile CO cuvenite", ;
		Height = 18, ;
		Left = 256, ;
		Name = "Lb_simplu14", ;
		TabIndex = 24, ;
		Top = 334, ;
		Width = 94, ;
		WordWrap = .T., ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu15' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Vechime la sfarsitul anului curent:", ;
		Left = 256, ;
		Name = "Lb_simplu15", ;
		TabIndex = 12, ;
		Top = 243, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu16' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "total luni", ;
		Left = 516, ;
		Name = "Lb_simplu16", ;
		TabIndex = 14, ;
		Top = 243, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu17' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "luni", ;
		Left = 573, ;
		Name = "Lb_simplu17", ;
		TabIndex = 19, ;
		Top = 269, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu18' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "ani și", ;
		Left = 482, ;
		Name = "Lb_simplu18", ;
		TabIndex = 20, ;
		Top = 269, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu19' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "adică :", ;
		Left = 372, ;
		Name = "Lb_simplu19", ;
		TabIndex = 16, ;
		Top = 269, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Vechime (la data încadrării)", ;
		Left = 256, ;
		Name = "Lb_simplu2", ;
		TabIndex = 12, ;
		Top = 125, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Data încadrării", ;
		Left = 256, ;
		Name = "Lb_simplu3", ;
		TabIndex = 11, ;
		Top = 71, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu4' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "Coef spor vechime :", ;
		Left = 390, ;
		Name = "Lb_simplu4", ;
		TabIndex = 23, ;
		Top = 304, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "total luni", ;
		Left = 484, ;
		Name = "Lb_simplu5", ;
		TabIndex = 14, ;
		Top = 125, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu6' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "luni", ;
		Left = 575, ;
		Name = "Lb_simplu6", ;
		TabIndex = 15, ;
		Top = 152, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu7' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "total luni", ;
		Left = 484, ;
		Name = "Lb_simplu7", ;
		TabIndex = 21, ;
		Top = 185, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu8' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "luni", ;
		Left = 575, ;
		Name = "Lb_simplu8", ;
		TabIndex = 19, ;
		Top = 211, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.Lb_simplu9' AS lb_simplu WITH ;
		Anchor = 48, ;
		Caption = "ani și ", ;
		Left = 482, ;
		Name = "Lb_simplu9", ;
		TabIndex = 13, ;
		Top = 152, ;
		ZOrderSet = 47
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page7.lunia' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 521, ;
		Name = "lunia", ;
		ReadOnly = .T., ;
		TabIndex = 8, ;
		Top = 266, ;
		Width = 48, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx56' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.data_vech", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 422, ;
		Name = "tx56", ;
		ReadOnly = .T., ;
		TabIndex = 1, ;
		Top = 68, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx57' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.modincadr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 422, ;
		Name = "tx57", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 95, ;
		Width = 358, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx58' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.vechimei", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 422, ;
		Name = "tx58", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 122, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx59' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 422, ;
		Name = "tx59", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		Top = 149, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx60' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 523, ;
		Name = "tx60", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		Top = 149, ;
		Width = 48, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx61' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.vechime", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 422, ;
		Name = "tx61", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		Top = 182, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx62' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 422, ;
		Name = "tx62", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		Top = 208, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx63' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 523, ;
		Name = "tx63", ;
		ReadOnly = .T., ;
		TabIndex = 8, ;
		Top = 208, ;
		Width = 48, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx64' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.c_vechime", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 523, ;
		Name = "tx64", ;
		ReadOnly = .T., ;
		TabIndex = 9, ;
		Top = 301, ;
		Width = 48, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.tx65' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "popers.zilecofix", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 523, ;
		Name = "tx65", ;
		ReadOnly = .T., ;
		TabIndex = 10, ;
		Top = 331, ;
		Width = 48, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page7.vechimea' AS _textbox WITH ;
		Anchor = 176, ;
		ControlSource = "", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "9999999", ;
		Left = 453, ;
		Name = "vechimea", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 239, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.Ct_clb_tipautorizatie' AS ct_clb_cautare_var WITH ;
		Anchor = 672, ;
		cconditie = EMPTY(NVL(popers.id_tipautorizatie,0)), ;
		cprocedura = Thisform.do_cauta_tipautorizatie, ;
		cvar_afisata = popers.tipautorizatie, ;
		Height = 31, ;
		Left = 252, ;
		Name = "Ct_clb_tipautorizatie", ;
		TabIndex = 7, ;
		Top = 75, ;
		Width = 300, ;
		shape_cautare.BorderStyle = 0, ;
		shape_cautare.Name = "shape_cautare", ;
		img_cautare.Anchor = 672, ;
		img_cautare.Left = 280, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		lb_cautare.Caption = "Tip autorizație", ;
		lb_cautare.Left = 0, ;
		lb_cautare.Name = "lb_cautare", ;
		lb_cautare.Top = 8, ;
		tx_cautare.Anchor = 672, ;
		tx_cautare.FontName = "Arial Narrow", ;
		tx_cautare.Height = 23, ;
		tx_cautare.Left = 81, ;
		tx_cautare.Name = "tx_cautare", ;
		tx_cautare.Top = 4, ;
		tx_cautare.Width = 195
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'page1.Page8.grid1' AS _grdrow WITH ;
		Anchor = 240, ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 264, ;
		Left = 244, ;
		Name = "grid1", ;
		Panel = 1, ;
		RecordSource = "v_jurnal", ;
		TabIndex = 10, ;
		Top = 140, ;
		Width = 524, ;
		Column1.ControlSource = "tipoperatie", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.Width = 51, ;
		Column2.ControlSource = "tip_modificare", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.Width = 82, ;
		Column3.ControlSource = "dataoperarii", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.Width = 78, ;
		Column4.ControlSource = "motivmodificareexplicatie", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.Width = 90, ;
		Column5.ControlSource = "contractnumar", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.Width = 59, ;
		Column6.ControlSource = "contractdatainceput", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column6.Width = 60, ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "meserie", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column7.Width = 81, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "tip_contract", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "tipnorma", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column9", ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "tipdurata", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column10", ;
		Column11.ColumnOrder = 7, ;
		Column11.ControlSource = "contractnumaritm", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column11.Width = 59, ;
		Column12.ColumnOrder = 8, ;
		Column12.ControlSource = "contractdataitm", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.Width = 64
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'page1.Page8.grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operatie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip Durata", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ctr nr. ITM", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ctr data ITM", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip modificare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data operatie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ctr numar", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ctr datai", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Meserie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip contract", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.grid1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip norma", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page8.grid1.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.Lb_simplu1' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Istoric modificări / corecții", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Left = 242, ;
		Name = "Lb_simplu1", ;
		TabIndex = 14, ;
		Top = 118, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Carte muncă (seria și nr.)", ;
		Left = 252, ;
		Name = "Lb_simplu2", ;
		TabIndex = 17, ;
		Top = 5, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 544, ;
		AutoSize = .F., ;
		Caption = "Valabilitate autorizație", ;
		Height = 36, ;
		Left = 564, ;
		Name = "Lb_simplu3", ;
		TabIndex = 11, ;
		Top = 73, ;
		Width = 59, ;
		WordWrap = .T., ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.Lb_simplu4' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Nr. și dată contract (ITM)", ;
		Left = 252, ;
		Name = "Lb_simplu4", ;
		TabIndex = 15, ;
		Top = 55, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.Lb_simplu5' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "din", ;
		Left = 501, ;
		Name = "Lb_simplu5", ;
		TabIndex = 12, ;
		Top = 55, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.Lb_simplu6' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Nr. și dată contract (intern)", ;
		Left = 252, ;
		Name = "Lb_simplu6", ;
		TabIndex = 16, ;
		Top = 30, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.Lb_simplu7' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "din", ;
		Left = 501, ;
		Name = "Lb_simplu7", ;
		TabIndex = 13, ;
		Top = 30, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'page1.Page8.tx65' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.cmseria", ;
		DisabledBackColor = 242,242,242, ;
		Format = "K", ;
		Height = 24, ;
		Left = 430, ;
		Name = "tx65", ;
		ReadOnly = .T., ;
		TabIndex = 1, ;
		Top = 1, ;
		Width = 69, ;
		ZOrderSet = 61
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx66' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.cmnr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 502, ;
		Name = "tx66", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 1, ;
		Width = 69, ;
		ZOrderSet = 61
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx67' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.nrctrmchr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		InputMask = "", ;
		Left = 430, ;
		Name = "tx67", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		Top = 51, ;
		Width = 69, ;
		ZOrderSet = 61
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx68' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datactrm", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 521, ;
		Name = "tx68", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		Top = 51, ;
		Width = 79, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx69' AS _txbase WITH ;
		Anchor = 672, ;
		ControlSource = "popers.nrctr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		InputMask = "9999999999999", ;
		Left = 430, ;
		Name = "tx69", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 26, ;
		Width = 69, ;
		ZOrderSet = 61
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx70' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datactr", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 521, ;
		Name = "tx70", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		Top = 26, ;
		Width = 79, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx72' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datainceputautorizatie", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 628, ;
		Name = "tx72", ;
		ReadOnly = .T., ;
		TabIndex = 8, ;
		Top = 76, ;
		Width = 80, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page8.tx73' AS _txbase WITH ;
		Anchor = 544, ;
		ControlSource = "popers.datasfarsitautorizatie", ;
		DisabledBackColor = 242,242,242, ;
		Format = "!K", ;
		Height = 24, ;
		Left = 713, ;
		Name = "tx73", ;
		ReadOnly = .T., ;
		TabIndex = 9, ;
		Top = 76, ;
		Width = 80, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'page1.Page9.But_modifica1' AS but_modifica WITH ;
		Anchor = 72, ;
		caction = do_modifica_echip, ;
		Left = 725, ;
		Name = "But_modifica1", ;
		Top = 15, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page9.But_nou1' AS but_nou WITH ;
		Anchor = 72, ;
		caction = do_adauga_echip, ;
		Left = 695, ;
		Name = "But_nou1", ;
		Top = 15
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page9.But_sterge1' AS but_sterge WITH ;
		Anchor = 72, ;
		caction = do_sterge_echip, ;
		Left = 755, ;
		Name = "But_sterge1", ;
		Top = 15, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'page1.Page9.Grid3' AS grid WITH ;
		Anchor = 240, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 3, ;
		HeaderHeight = 18, ;
		Height = 336, ;
		Left = 239, ;
		Name = "Grid3", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "v_echip", ;
		Top = 56, ;
		Width = 553, ;
		Column1.ControlSource = "", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column3", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 29, ;
		Column2.ControlSource = "articol", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 199, ;
		Column3.ControlSource = "numar", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column1", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 80
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'page1.Page9.Grid3.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Numar", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page9.Grid3.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page9.Grid3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page9.Grid3.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page9.Grid3.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'page1.Page9.Grid3.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'page1.Page9.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 544, ;
		Caption = "Echipament", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Left = 264, ;
		Name = "Lb_simplu3", ;
		TabIndex = 46, ;
		Top = 19, ;
		ZOrderSet = 60
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru,lcSelect
		
		lcSelectOriginal = ALIAS()
		If Empty(tcFiltru)
			lcFiltru = poper.ca_baza1.cfiltru
		Else
			lcFiltru = tcFiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		save_grid_tag(Thisform._GRID1)
		poper.ca_baza1.cfiltru=lcFiltru
		poper.ca_baza1.afisare()
		restore_grid_tag(Thisform._GRID1)
		SELECT v_personal
		replace ALL nr WITH RECNO()
		GO TOP 
			lcSql = [select COUNT(id_salariat) as nrang from sal_vnom_pers where ]+lcFiltru
			lcCursor = [crsnrang]
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
			If lnSucces < 0
				aMessagebox(goExecutor.cEroare,0+16,"Eroare")
				RETURN
			ELSE 
				SELECT crsnrang
				thisform.nrang=nrang
				USE IN crsnrang
			ENDIF
		
			lcSql = [select COUNT(id_salariat) as nrang from sal_vnom_pers where  datalic is null and ]+lcFiltru
			lcCursor = [crsnrangactivi]
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
			If lnSucces < 0
				aMessagebox(goExecutor.cEroare,0+16,"Eroare")
				RETURN
			ELSE 
				SELECT crsnrangactivi
				thisform.nrangactivi=nrang
				USE IN crsnrangactivi
			ENDIF	
			
			IF !EMPTY(lcSelectOriginal)
				SELECT (lcSelectOriginal)
			ENDIF 		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		*!*	modificare	ROARES v 2.0.21 	:	thisform._grID1.column5.ReadOnly= .F.
		
	ENDPROC

	PROCEDURE adaugare_parteneri
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Local lcpicture,lflag
		Private podif
		Store '' To podif
		lcpicture = Lower(This.but_noup1.cpictureup)
		If !'dis'$lcpicture
			lflag = Thisform.verifica_parteneri()
		Else
			res_adauga_parteneri() &&osalarii_comun
		Endif
		buton=2
		Select v_dif_part
		odifp = Createobject('frm_difpart')
		odifp.Show(1)
		Release odifp
		
		If buton=1
			This.do_adauga()
			Select v_dif_part
			Scatter Name lodifp
			popers.id_part=lodifp.id_part
			popers.nume=lodifp.nume
			popers.codpers=lodifp.cod_fiscal
			popers.biserianr = Alltrim(lodifp.reg_comert)
			popers.prenume=Alltrim(lodifp.prenume)
			popers.strada=lodifp.strada
			popers.numar = lodifp.numar
			popers.Bloc = lodifp.Bloc
			popers.scara = lodifp.scara
			popers.etaj = lodifp.etaj
			popers.apart = lodifp.apart
		*!*		popers.sector = lodifp.sector		&&	modificare	ROASAL v 2.0.32
			popers.id_loc = lodifp.id_loc
			popers.localitate = lodifp.localitate
			popers.judet = lodifp.judet
			popers.id_judet = lodifp.id_judet
			Thisform.verifica_parteneri(1)
			*!*	modificare	ROASAL v 2.0.32
			Thisform.refresh_pagini(1)
			Thisform.page1.page1.tx4.SetFocus()
		*!*		lnpage = This.page1.ActivePage
		*!*		lcpage = 'thisform.page1.page'+Alltrim(Str(lnpage))+'.activate()'
		*!*		&lcpage
			*!*	modificare	ROASAL v 2.0.32	^
		Endif
		If Used('v_dif_part')
			Use In v_dif_part
		Endif
		
	ENDPROC

	PROCEDURE adauga_copil
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		If Empty(Nvl(popers.id_salariat,0))
			aMessageBox('Pentru a putea adauga copii unei persoana noi angajate, trebuie salvate mai intai datele persoanei!',0+16,'Atentie')
			Return
		Endif
		Private pniesire
		pniesire=0
		Select v_copii
		Scatter Name loRec Blank
		loRec.id_persoana = popers.id_salariat
		
		Do Adauga_Modifica_Inregistrare With "familie1",loRec,loRec.id_persoana,"INSERT",,"addcopii"
		If pniesire=1
			save_grid_tag(Thisform.page1.page3.grid1)				&&grid v_copii
			pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
			pocop.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page3.grid1)
		Endif
	ENDPROC

	PROCEDURE arata_linkuri
		Local lcTabel, lcFisSalvat,lcDir
		
		lcTabel = Thisform.page1.page10.gridAtasamente.RecordSource 
		lcDir = ADDBS(GETENV("USERPROFILE"))+"my documents\roares_temp"
		IF !DIRECTORY(lcDir)
			MD (lcDir)
		ENDIF 
		Select (lcTabel)
		If Reccount() >0
			IF !EMPTY(NVL(nume_atasament,'')) 
		*!*			lcFisSalvat = Addbs(gcTempPath)+ALLTRIM(nume_atasament)
		
				lcFisSalvat = ADDBS(lcDir)+ALLTRIM(nume_atasament)
				this.do_download(lcFisSalvat)
			ENDIF 
		Endif
		If Used('crsAtasamente')
				Use In crsAtasamente
			Endif
		
		
		
		
	ENDPROC

	PROCEDURE calcul_vechime
		
			private pniesire
			pniesire=0
		
		
			CREATE CURSOR crsVechime (datainc d,datasf d, nrLuni n(4), nrZile n(2)) 
			*!*	Select v_nom_pers
		
			Do Adauga_Modifica_Inregistrare With "vech",popers,popers.id_salariat,"UPDATE",,"addvech"
		
			RELEASE lorec
			IF USED('crsVechime')
				USE IN crsVechime
			ENDIF 	
	ENDPROC

	PROCEDURE corder
		LPARAMETERS tcCamp
		poper.ca_baza1.corder=GETWORDNUM(tcCamp,2,'.')
		
		thisform.actualizeaza_grid1()
	ENDPROC

	PROCEDURE co_calculcoefvechime
				thisform.vechimeal()
		
		IF gnSAL_CALCVECHIME = 1
			lcSql = [ select coef_vechi ]+;
		             [ from sal_tab_vechimi ]+;
		            [ where ]+ ALLTRIM(STR(popers.vechime))+[ >= lim_inf * 12 ]+;
		              [ and  ]+ ALLTRIM(STR(popers.vechime))+[ < lim_sup * 12  and sters = 0]
			lcCursor = [crsc_vechime]   
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
			If lnSucces < 0
				aMessagebox(goExecutor.cEroare,0+16,"Eroare")
				RETURN
			ELSE 
			SELECT crsc_vechime
			popers.c_vechime = coef_vechi 
			thisform.page1.paGE7.tx64.Refresh()
				IF USED('crsc_vechime')
					USE IN crsc_vechime
				ENDIF 	
			ENDIF 
			        
		ENDIF 
	ENDPROC

	PROCEDURE Destroy
		*!*	modificare	ROASAL v 2.0.0
		Unbindevents(Thisform.page1.page2.opt_stare_contract,"InteractiveChange",Thisform,"do_modifica_stare")
		Unbindevents(Thisform.page1.page2.opt_stare_contract,"Refresh",Thisform,"do_actualizeaza_stare")
		DoDefault()
		*!*	modificare	ROASAL v 2.0.0	^
		
	ENDPROC

	PROCEDURE do_activeaza
		Lparameters tlScriere
		Thisform.do_butoane_stare(!tlScriere)
		*!*	modificare	ROARES v 2.0.8
		*!*	Dimension lapagini[6,3]			&&array pagini   [1,1] - nr text initial, [1,2]- nr text final, [1,3] - nr pagina
		*!*	lapagini[1,1]=1
		*!*	lapagini[1,2]=25
		*!*	lapagini[1,3]=1
		
		*!*	lapagini[2,1]=26
		*!*	lapagini[2,2]=55
		*!*	lapagini[2,3]=2
		
		*!*	lapagini[3,1]=51
		*!*	lapagini[3,2]=54
		*!*	lapagini[3,3]=3
		
		*!*	lapagini[4,1]=55
		*!*	lapagini[4,2]=55
		*!*	lapagini[4,3]=5
		
		*!*	lapagini[5,1]=56
		*!*	lapagini[5,2]=65
		*!*	lapagini[5,3]=7
		
		*!*	lapagini[6,1]=65
		*!*	lapagini[6,2]=73
		*!*	lapagini[6,3]=8
		Thisform.page1.page2.opt_stare_contract.Enabled = tlScriere
		Thisform.page1.page2.opt_oug114.Enabled = tlScriere
		*!*	Local ladim,lni,lnf
		*!*	ladim = Alen(lapagini,1)		&&nr de pagini configurate pt refresh
		For i = 1 To Thisform.page1.PageCount
			*!*	For i=1 To ladim
			*!*		For j = lapagini[i,1] To lapagini[i,2]
			*!*			If j=31 And tlScriere
			*!*				Loop	&&sectia
			*!*			Endif
			*!*			lcr = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.readonly='+Iif(tlScriere,[.F.],[.T.])
			*!*			lcre = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.refresh'
			*!*			&lcr
			*!*			&lcre
			*!*		Endfor
			loPage = Evaluate([thisform.page1.page]+Alltrim(Str(i)))
			With loPage
				For j = 1 To .Objects.Count
					Do Case
						Case Inlist(Upper(.Objects[j].Class),[_TXBASE],[_TEXTBOX],[COMBOBOX],[_CBBASE],[CHECKBOX],[_CHECKBOX])
							.Objects[j].ReadOnly = Iif(Inlist(Upper(.Objects[j].Name),[_TXBASE5],[TX13],[TX31],[TX40],[TX41],[VECHIMEA],[ANIA],[LUNIA]),.T.,!tlScriere)
							.Objects[j].Refresh()
		*!*					Case Like([CMD_*],Upper(.Objects[j].Class))	Or Like([BUT_*],Upper(.Objects[j].Class))
		*!*						.Objects[j].Enabled = tlScriere
						Case Inlist(Upper(.Objects[j].Class),[CT_CLB_CAUTARE_VAR],[CT_CLB_CAUTARE],[CT_CB_TX])
							If tlScriere
								.Objects[j].do_activeaza()
							Else
								.Objects[j].do_dezactiveaza()
							Endif
					Endcase
				Endfor
			Endwith
			*!*	modificare	ROARES v 2.0.8	^
		Endfor
		*!*	modificare	ROARES v 2.0.8
		If tlScriere
			Thisform.do_actualizeaza_nom_norme(2)
		Endif
		*!*	modificare	ROARES v 2.0.8	^
		If gnEvaluareRevisal5 = 1
			Thisform.clienttoptabs1.lb_registru.Visible = tlScriere
			Thisform.clienttoptabs1.opt_registru.Visible = tlScriere
		Endif
		If tlScriere
			Thisform.clienttoptabs1.opt_registru.Value = 3
		Endif
	ENDPROC

	PROCEDURE do_actualizeaza_nom_norme
		Lparameters tnModificare
		*!*	2 - e apelata din do_activeaza
		*!*	1 - e activata modificarea
		*!*	0 sau .F. - e doar vizualizare
		Local lcAlias
		lcAlias = Select()
		Select crsnomduratam
		If popers.id_tip_norma <> 0
			Set Filter To id_tip_norma = popers.id_tip_norma
		Else
			Set Filter To
		ENDIF
		
		With Thisform.page1.page2
			
				
			If popers.id_tip_norma = 2	&&	timp partial
				.ct_cb_intm.Visible = .T.
					IF gnAn*12+GnLuna <2017*12+8
						.tx55.Visible = .F.
					ELSE 
						.tx55.Visible = .T.
					ENDIF 
				If !Empty(tnModificare)
					If popers_orig.id_tip_norma = 1 And tnModificare = 1
						popers.id_durata_munca = Null
						popers.nume_durata_munca = []
						.ct_cb_duratam.Refresh()
						Thisform.do_actualizeaza_norma()
					Endif
					.tx40.ReadOnly = .F.
					.tx41.ReadOnly = .F.
				ENDIF
				
			Else
				.ct_cb_intm.Visible = .F.
				popers.cassalmin = 0
				.tx55.Visible = .F.
				If !Empty(tnModificare)
					If tnModificare = 1
						If popers_orig.id_tip_norma = 2
							Thisform.do_actualizeaza_norma()
						Endif
						popers.id_interval_munca = Null
						popers.nume_interval_munca = []
					Endif
					.tx40.ReadOnly = .T.
					.tx41.ReadOnly = .T.
				Endif
			Endif
		Endwith
		Select (lcAlias)
		
	ENDPROC

	PROCEDURE do_actualizeaza_norma
		Do Case
			Case popers.id_durata_munca = 1
				popers.orenorm = 8
				popers.fractie = popers.orenorm
				Thisform.page1.page2.tx41.ReadOnly = .T.
			Case popers.id_durata_munca = 2
				popers.orenorm = 6
				popers.fractie = popers.orenorm
				Thisform.page1.page2.tx41.ReadOnly = .T.
			Case popers.id_durata_munca = 3
				popers.orenorm = 8
				popers.fractie = popers.orenorm		
				Thisform.page1.page2.tx41.ReadOnly = .F.
			Otherwise
				popers.orenorm = 8
				popers.fractie = popers_orig.fractie
		Endcase
		Thisform.page1.page2.tx40.Refresh()
		Thisform.page1.page2.tx41.Refresh()
	ENDPROC

	PROCEDURE do_actualizeaza_stare
		*!*	modificare	ROARES v 2.0.8
		*!*	daca nu apasa pe "Cauta" are 0 in popers_orig.stare_contract si 
		*!*	0 in popers.stare_contract ; imi da eroare mai jos
		If popers_orig.stare_contract + popers.stare_contract <> 0
		*!*	modificare	ROARES v 2.0.8	^
			With Thisform.page1.page2
				For i = 1 To 4
					.opt_stare_contract.Buttons[i].FontBold = .F.
				Endfor
				*!*	modificare	ROARES	v 2.0.7
				*!*	If popers_orig.stare_contract <> 0
				*!*		.opt_stare_contract.Buttons[popers_orig.stare_contract].FontBold = .T.
				*!*	Endif
				*!*	modificare	ROARES v 2.0.8
				*!*		If This.cus_odata_opers1.cactiune=[INSERT]
				If This.cus_odata_opers1.cactiune=[INSERT] And popers.stare_contract = 1 ;
						AND Inlist(popers_orig.stare_contract,0,2)
					*!*	modificare	ROARES v 2.0.8	^
					.opt_stare_contract.Buttons[1].FontBold = .T.
				Else
		*!*	modificare	02.07.2012	:	sesizarea #3333
		*!*				.opt_stare_contract.Buttons[popers_orig.stare_contract].FontBold = .T.
					If Between(Nvl(popers_orig.stare_contract,0),1,Thisform.page1.page2.opt_stare_contract.ButtonCount)
						.opt_stare_contract.Buttons[popers_orig.stare_contract].FontBold = .T.
					Else
						polog.Log( Nvl(Alltrim(Str(popers.marca)),"null")+":"+;
							NVL(Alltrim(Str(popers_orig.stare_contract)),"null")+">>"+;
							NVL(Alltrim(Str(popers.stare_contract)),"null"),Program())
					Endif
		*!*	modificare	02.07.2012	^
				Endif
				*!*	modificare	ROARES	v 2.0.7	^
				Do Case
					Case popers_orig.stare_contract = 3
						.opt_stare_contract.option1.Caption = [Încetare suspendare]
						.opt_stare_contract.option2.Enabled = .F.
						.opt_stare_contract.option3.Enabled = .T.
						.opt_stare_contract.option4.Enabled = .F.
					Case popers_orig.stare_contract = 4
						.opt_stare_contract.option1.Caption = [Încetare detașare]
						.opt_stare_contract.option2.Enabled = .F.
						.opt_stare_contract.option3.Enabled = .T.
						.opt_stare_contract.option4.Enabled = .T.
					Case popers_orig.stare_contract = 2
						.opt_stare_contract.option1.Caption = [Reactivare]
						.opt_stare_contract.option2.Enabled = Iif(This.cus_odata_opers1.cactiune=[INSERT]  And popers.stare_contract = 1 ;
							AND Inlist(popers_orig.stare_contract,0,2),.F.,.T.)	&&	modificare	ROARES v 2.0.7
						.opt_stare_contract.option3.Enabled = .F.
						.opt_stare_contract.option4.Enabled = .F.
					Case popers_orig.stare_contract = 0
						.opt_stare_contract.option1.Caption = [Activ]
						.opt_stare_contract.option2.Enabled = .F.
						.opt_stare_contract.option3.Enabled = .F.
						.opt_stare_contract.option4.Enabled = .F.
					Otherwise
						.opt_stare_contract.option1.Caption = [Activ]
						.opt_stare_contract.option2.Enabled = .T.
						.opt_stare_contract.option3.Enabled = .T.
						.opt_stare_contract.option4.Enabled = .T.
				Endcase
				Do Case
					Case popers.stare_contract = 1
						*!*	modificare ROARES v 2.0.8
						*!*				.lb_simplu3.Visible = .F.
						.lb_simplu9.Visible = .F.
						*!*				.lb_simplu10.Visible = .F.
						.tx54.Visible = .F.
						*!*				.tx48.Visible = .F.
						*!*				.tx55.Visible = .F.
						.ct_clb_detasatla.Visible = .F.
						.ct_clb_taradet.Visible = .F.
						*!*	modificare ROARES v 2.0.8	^
						*!*	modificare	ROARES	v 2.0.7
						*!*				.lb32.Visible = .F.
						*!*				.tx43.Visible = .F.
						*!*				.lb_simplu2.Visible = .F.
						*!*				.tx47.Visible = .F.
						*!*	modificare	ROARES	v 2.0.7	^
						Do Case
							Case popers_orig.stare_contract = 2
								*!*	 Daca trece din incetat in activ : temei legal reactivare, data reactivare.
								.lb32.Caption = [Dată reactivare]
								.lb32.Visible = .T.
								.tx43.Visible = .T.
								*!*	modificare ROARES v 2.0.8
								*!*						.lb_simplu2.Visible = .T.
								*!*						.tx47.Visible = .T.
								.ct_clb_temei.Visible = .T.
							Case popers_orig.stare_contract = 3
								*!*	 Daca trece din suspendat in activ : data incetare suspendare
								.lb32.Caption = [Dată încetare suspendare]
								.lb32.Visible = .T.
								.tx43.Visible = .T.
								*!*						.lb_simplu2.Visible = .F.
								*!*						.tx47.Visible = .F.
								.ct_clb_temei.Visible = .F.
							Case popers_orig.stare_contract = 4
								*!*	 Daca trece din detasat in activ : data incetare detasare
								.lb32.Caption = [Dată încetare detașare]
								.lb32.Visible = .T.
								.tx43.Visible = .T.
								*!*						.lb_simplu2.Visible = .F.
								*!*						.tx47.Visible = .F.
								.ct_clb_temei.Visible = .F.
							Otherwise
								.lb32.Visible = .F.
								.tx43.Visible = .F.
								*!*						.lb_simplu2.Visible = .F.
								*!*						.tx47.Visible = .F.
								.ct_clb_temei.Visible = .F.
						Endcase
						*!*	modificare	ROARES	v 2.0.7	^
					Case popers.stare_contract = 2
						.lb32.Caption = [Dată încetare]
						.lb32.Visible = .T.
						*!*				.lb_simplu2.Visible = .T.
						*!*				.lb_simplu3.Visible = .F.
						.lb_simplu9.Visible = .T.
						*!*				.lb_simplu10.Visible = .F.
						.tx43.Visible = .T.
						.tx54.Visible = .F.
						*!*				.tx47.Visible = .T.
						*!*				.tx48.Visible = .F.
						*!*				.tx55.Visible = .F.
						.ct_clb_temei.Visible = .T.
						.ct_clb_detasatla.Visible = .F.
						.ct_clb_taradet.Visible = .F.
					Case popers.stare_contract = 3
						.lb32.Caption = [Perioadă suspendare]
						.lb32.Visible = .T.
						*!*				.lb_simplu2.Visible = .T.
						*!*				.lb_simplu3.Visible = .F.
						.lb_simplu9.Visible = .F.
						*!*				.lb_simplu10.Visible = .F.
						.tx43.Visible = .T.
						.tx54.Visible = .T.
						*!*				.tx47.Visible = .T.
						*!*				.tx48.Visible = .F.
						*!*				.tx55.Visible = .F.
						.ct_clb_temei.Visible = .T.
						.ct_clb_detasatla.Visible = .F.
						.ct_clb_taradet.Visible = .F.
					Case popers.stare_contract = 4
						.lb32.Caption = [Perioadă detașare]
						.lb32.Visible = .T.
						*!*				.lb_simplu2.Visible = .F.
						*!*				.lb_simplu3.Visible = .T.
						.lb_simplu9.Visible = .F.
						*!*				.lb_simplu10.Visible = .T.
						.tx43.Visible = .T.
						.tx54.Visible = .T.
						*!*				.tx47.Visible = .F.
						*!*				.tx48.Visible = .T.
						*!*				.tx55.Visible = .T.
						.ct_clb_temei.Visible = .F.
						.ct_clb_detasatla.Visible = .T.
						.ct_clb_taradet.Visible = .T.
						*!*	modificare ROARES v 2.0.8	^
				Endcase
			Endwith
		*!*	modificare	ROARES v 2.0.8
		Endif
		*!*	modificare	ROARES v 2.0.8	^
	ENDPROC

	PROCEDURE do_adauga
		*!*	modificare	ROASAL v 2.0.14
		IF glLunaInchisa
			Return
		ENDIF
		*!*	modificare	ROASAL v 2.0.14	^
		
		Select v_personal
		Scatter MEMO Name popers Blank
		Scatter MEMO Name popers_orig Blank 		&&	modificare ROASAL v 2.0.0
		popers.stare_contract = 1
		popers.oug114 = 2
		Thisform.setez_exceptii() && cas,somaj,etc
		
		*---------------------------------
		lcSql = [select pack_salarii.get_marca(']+gcs+[') as nrmarca from dual]
		lcCursor = [crsNRMarca]
		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		If lnSucces < 0
			aMessagebox(goExecutor.cEroare,0+16,"Eroare")
			Return
		Endif
		Select crsNRMarca
		popers.marca = Round(crsNRMarca.nrMarca,0)
		Use In crsNRMarca
		*---------------------------------------
		Thisform.page1.page1._txbase5.Value={}
		Thisform.page1.page1._txbase5.Refresh
		
		*!*	modificare ROASAL v 2.0.0
		Thisform.do_activeaza(.T.)
		*!*	Thisform.do_writeonly()
		*!*	thisform.clienttoptabs1.lb_registru.Visible=.f.
		*!*	thisform.clienttoptabs1.opt_registru.Visible=.f.
		*!*	modificare ROASAL v 2.0.0	^
		Thisform.page1.page2.opt_oug114.value = 2
		This.cus_odata_opers1.cactiune  = 'INSERT'					&&	modificare	ROARES v 2.0.10 : era dupa refresh_pagini
		Thisform.refresh_pagini(Thisform.clienttoptabs1.activetab)	&&	modificare	ROARES v 2.0.8
		Thisform.eticheta()
		
		
		
		
		
	ENDPROC

	PROCEDURE do_adauga_aviz
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Private pniesire,pnNr,pcNumeTata
		pniesire=0
		
		Select v_avize
		Scatter Name loRec Blank
		lorec.id_persoana = popers.id_salariat
		Do Adauga_Modifica_Inregistrare With "avize",loRec,,"INSERT",,"aaviz"
		If pniesire=1
			save_grid_tag(Thisform.page1.page11.grid3)
				poavize.ca_baza1.cfiltru = [id_persoana = ] + ALLTRIM(STR(popers.id_salariat)) +[ and sters = 0]
				poavize.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page11.grid3)
		Endif
	ENDPROC

	PROCEDURE do_adauga_bazacm
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Private pniesire,pnNr,pcNumeTata
		pniesire=0
		
		Select v_bazacm
		Scatter Name loRec Blank
		lorec.id_stat = popers.id_stat
		Do Adauga_Modifica_Inregistrare With "bazacm",loRec,,"INSERT",,"abaza"
		If pniesire=1
			save_grid_tag(Thisform.page1.page4.grid3)
				pobazacm.ca_baza1.cfiltru = [id_stat = ] + ALLTRIM(STR(popers.id_stat))
				pobazacm.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page4.grid3)
		Endif
	ENDPROC

	PROCEDURE do_adauga_curs
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Private pniesire
		pniesire=0
		*!*	update_curs()
		
		Select v_curs_calif
		Scatter Name loRec Blank
		lorec.id_persoana = popers.id_salariat
		
		Do Adauga_Modifica_Inregistrare With "curs",loRec,,"INSERT",,"addcurs"
		If pniesire=1
			save_grid_tag(Thisform.page1.page6.grid3)
				pocurs.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocurs.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page6.grid3)
			Select v_calif
			GO TOP 
		ENDIF
	ENDPROC

	PROCEDURE do_adauga_echip
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		IF EMPTY(popers.id_stat)
			RETURN 
		ENDIF 	
			
		Private pniesire
		pniesire=0
		*!*	update_echip()
		Select v_echip
		Scatter Name loRec Blank
		lorec.id_part = popers.id_part
		
		Do Adauga_Modifica_Inregistrare With "echip",loRec,,"INSERT",,"addechip"
		
	ENDPROC

	PROCEDURE do_adauga_intret
		*!*	modificare	ROASAL v 2.0.14
		DODEFAULT()
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		If Empty(popers.id_salariat) or IsNull(popers.id_salariat)
			aMessageBox('Pentru a putea adauga persoanele aflate in intretinerea unei persoana noi angajate, trebuie salvate mai intai datele persoanei!',0+16,'Atentie')
			Return
		EndIf 
		Private pniesire
		pniesire=0
		
		update_hand(1)
		update_dedsupl()
		
		Select v_nom_intret
		Scatter Name loRec Blank
		
		lorec.id_stat = popers.id_stat
		
		Do Adauga_Modifica_Inregistrare With "intret",loRec,,"INSERT",,"addintret"
		If pniesire=1
			save_grid_tag(Thisform.page1.page3.grid3)
				pointr.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pointr.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page3.grid3)
		ENDIF
		
		IF USED('v_dedsupl')
			USE IN v_dedsupl
		ENDIF 		
	ENDPROC

	PROCEDURE do_adauga_limba
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Private pniesire
		pniesire=0
		
		update_limbi()
		Select v_calif
		Scatter Name loRec BLANK 
		
		lorec.id_persoana = popers.id_salariat
		Do Adauga_Modifica_Inregistrare With "limbi",loRec,,"INSERT",,"addlim"
		If pniesire=1
			save_grid_tag(Thisform.page1.page5.grid3)
				pocalif.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocalif.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page5.grid3)
			Select v_calif
			GO TOP 
		ENDIF
		RELEASE lorec
	ENDPROC

	PROCEDURE do_adauga_stud
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Private pniesire
		pniesire=0
		Select v_studii
		Scatter Name loRec Blank
		lorec.id_persoana = popers.id_salariat
		
		Do Adauga_Modifica_Inregistrare With "stud",loRec,,"INSERT",,"addstud"
		
	ENDPROC

	PROCEDURE do_butoane_stare
		LPARAMETERS tlstare
		
		*!*	IF tnstare = 1 &&writeonly
		*!*		this.But_noup1.Visible=.f.
		*!*		this.but_nou1.Visible=.f.	
		*!*		thisform.but_TERMIN1.Visible = .f.
		*!*		thisform.but_modifica1.Visible=.f.
		*!*		thisform.but_sterge1.Visible=.f.
		*!*		thisform.but_salveaza1.Visible=.t.
		*!*		this.but_rENUNT1.Visible = .t.
		*!*		thisform.but_excel1.Visible = .t.
		*!*		thisform.caut_nou1.visible=.f.
		*!*	&&registru unic
		*!*		thisform.clienttoptabs1.lb_registru.Visible=.f.
		*!*		thisform.clienttoptabs1.opt_registru.Visible=.f.	
		*!*	ELSE 
		*!*		this.but_modifica1.Visible=.t.
		*!*		this.But_noup1.Visible=.t.
		*!*		this.but_nou1.Visible=.t.
		*!*		this.but_salveaza1.Visible=.f.
		*!*		this.but_rENUNT1.Visible = .f.
		*!*		this.but_sterge1.Visible=.t.
		*!*		this.but_TERMIN1.Visible=.t.
		*!*		this.but_excel1.Visible = .t.
		*!*		thisform.caut_nou1.visible=.t.
		*!*	&&registru unic
		*!*		thisform.clienttoptabs1.lb_registru.Visible=.t.
		*!*		thisform.clienttoptabs1.opt_registru.Visible=.t.	
		*!*	ENDIF 	
		LOCAL llAccesModif
		*!*	llAccesModif = thisform.but_modifica1.Visible
		llAccesModif = 	thisform.laccesmodif 
		WITH thisform
			This.but_modiparam1.Visible = IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))	&&	modificare	ROARES v 2.0.21
			*!*	modificare	ROASAL v 2.0.14 : IIF(glLunaInchisa,.F.,...)
			this.But_noup1.Visible=IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
			this.but_nou1.Visible=IIF(glLunaInchisa,.F.,tlstare)
			this.but_nou1.Enabled = IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
			thisform.but_TERMIN1.Visible = tlstare
		*!*		thisform.but_modifica1.Visible=IIF(glLunaInchisa,.F.,tlstare)
			thisform.but_modifica1.Visible=IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
			thisform.but_sterge1.Visible=IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
			thisform.page1.page3.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page3.but_nou2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page3.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page3.but_modifica2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page3.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page3.but_sterge2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )	
			
			thisform.page1.page4.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page4.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page4.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			
			thisform.page1.page5.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page5.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page5.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
		
			thisform.page1.page6.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page6.but_nou2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page6.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page6.but_modifica2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page6.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page6.but_sterge2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )	
		
			thisform.page1.page7.cmd_executa1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )	
			thisform.page1.page7.cmd_executa2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )	
			
			
			thisform.page1.page9.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page9.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page9.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
				
			thisform.page1.page11.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page11.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			thisform.page1.page11.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
			
			
			thisform.but_salveaza1.Visible=!tlstare
			this.but_rENUNT1.Visible = !tlstare
			thisform.but_excel1.Visible = tlstare
			thisform.caut_nou1.visible=tlstare
			*!*	modificare	ROARES	v 2.0.14
			With Thisform.page1.page2.ck_anulare_incetare
				.Visible = Iif(popers.stare_contract = 2,!tlStare,.F.)
				.Value = 0
			Endwith
			*!*	modificare	ROARES	v 2.0.14	^
		*!*	modificare	v 2.0.0
		*!*	&&registru unic
		*!*		thisform.clienttoptabs1.lb_registru.Visible=!tlstare
		*!*		thisform.clienttoptabs1.opt_registru.Visible=!tlstare	
		*!*	modificare	v 2.0.0	^
		ENDWITH 	
	ENDPROC

	PROCEDURE do_cauta_apatrid
		Local loCauta
		loCauta = caut_apatrid()
		If gnButon # 2
			*!*	modificare	v 2.0.14
			If popers.id_tipapatrid<> loCauta.id_tipapatrid
				popers.nationalitate = []
				popers.id_nationalit = Null
			Endif
			*!*	modificare	v 2.0.14	^
			popers.apatrid = loCauta.denumire
			popers.id_tipapatrid = loCauta.id_tipapatrid
			popers.codapatrid = loCauta.cod		&&	modificare	ROASAL v 2.0.0
			With Thisform.page1.page8
				If popers.id_tipapatrid = 1
					.ct_clb_tipautorizatie.Visible = .T.
					.lb_simplu3.Visible = .T.
					.tx72.Visible = .T.
					.tx73.Visible = .T.
				Else
					.ct_clb_tipautorizatie.Visible = .F.
					.lb_simplu3.Visible = .F.
					.tx72.Visible = .F.
					.tx73.Visible = .F.
					popers.id_tipautorizatie = Null
					popers.tipautorizatie = []
					popers.datainceputautorizatie = {}
					popers.datasfarsitautorizatie = {}
				Endif
			Endwith
			If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
				Thisform.registru_unic(7)
			Endif
			Thisform.page1.page1.ct_clb_nationalitate.SetFocus()
		Endif
	ENDPROC

	PROCEDURE do_cauta_banca
		Local loCauta
		loCauta = caut_bancasal(.T.)
		If gnButon # 2
			popers.banca = loCauta.denumire
			popers.id_banca = loCauta.id_banca
		Endif
		Thisform.KeyPress(-2,0)
	ENDPROC

	PROCEDURE do_cauta_casaasig
		Local loCauta
		loCauta = caut_cass(.T.)
		If gnButon # 2
			popers.casaasig = loCauta.numecasa
			popers.id_caseasig= loCauta.id_caseasig
		Endif
		Thisform.page1.page2.tx45.SetFocus()
		
	ENDPROC

	PROCEDURE do_cauta_cetatenie
		Local loCauta
		loCauta = caut_cetatenie()
		If gnButon # 2
			*!*	modificare	v 2.0.14
			If popers.id_cetatenie <> loCauta.id_cetatenie
				popers.nationalitate = []
				popers.id_nationalit = Null
			Endif
			*!*	modificare	v 2.0.14	^
			popers.cetatenie = loCauta.denumire
			popers.id_cetatenie = loCauta.id_cetatenie
			popers.codcetatenie = loCauta.cod		&&	modificare	ROASAL v 2.0.0
			With Thisform.page1.page8
		*!*			If Upper(popers.codcetatenie) = [ALTA]
				If Upper(popers.codcetatenie) <> [ROMANA] && si pentru persoanele STRAIN-UE este nevoie de autorizatie
					.ct_clb_tipautorizatie.Visible = .T.
					.lb_simplu3.Visible = .T.
					.tx72.Visible = .T.
					.tx73.Visible = .T.
				Else
					.ct_clb_tipautorizatie.Visible = .F.
					.lb_simplu3.Visible = .F.
					.tx72.Visible = .F.
					.tx73.Visible = .F.
					popers.id_tipautorizatie = Null
					popers.tipautorizatie = []
					popers.datainceputautorizatie = {}
					popers.datasfarsitautorizatie = {}
				Endif
			Endwith
			If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
				Thisform.registru_unic(7)
			Endif
			Thisform.page1.page1.ct_clb_nationalitate.SetFocus()
		Endif
	ENDPROC

	PROCEDURE do_cauta_clasasal
		Local loCauta
		loCauta = caut_clasasal()
		If gnButon # 2
			popers.cod = loCauta.cod
			popers.id_clasasal = loCauta.id_clasasal
		Endif
		Thisform.page1.page2.tx34.SetFocus()
	ENDPROC

	PROCEDURE do_cauta_formatia
		LOCAL loCauta
		loCauta = caut_formatie(.F.,.T.)
		If gnButon # 2
			popers.formatia = Alltrim(locauta.denumire)
			popers.id_formatie = locauta.id_formatia
			popers.id_sectie = locauta.id_sectie
			popers.sectie=Alltrim(locauta.sectie)
			Thisform.page1.page2.tx31.Refresh()
			If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
				Thisform.registru_unic(6)
			Endif
			Thisform.page1.page2.ct_clb_grupa_munca.Setfocus()
		Endif
	ENDPROC

	PROCEDURE do_cauta_grupamunca
		Local loCauta
		loCauta = caut_grupamunca()
		If gnButon # 2
			popers.grupacas = loCauta.dengrupa
			popers.id_cas = loCauta.id_cas
			Thisform.page1.page2.ct_clb_clasasal.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_judet
		Local loCauta
		loCauta = caut_judet()
		If gnButon # 2
			popers.judet = loCauta.judet
			popers.id_judet = loCauta.id_judet
			Thisform.page1.page1.ct_clb_localitate.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_localitate
		Local loCauta
		loCauta = caut_localitate(popers.id_judet)
		If gnButon # 2
			popers.localitate = loCauta.localitate
			popers.id_loc = loCauta.id_loc
			If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
				Thisform.registru_unic(7)
			Endif
			*!*	modificare	ROARES v 2.0.14
			*!*		If Alltrim(popers.localitate) = [BUCURESTI]
			*!*			Thisform.page1.page1.tx13.SetFocus()
			*!*		Else
			Thisform.page1.page1.tx15.SetFocus()
			*!*		Endif
			*!*	modificare	ROARES v 2.0.14	^
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_meseria
		Lparameters tnTip
		*!*	1 = meseria ; 2 = profesia
		LOCAL loCauta
		loCauta = caut_meserie(tnTip)
		If gnButon # 2
			If tnTip = 1
				popers.meseria = locauta.meserie
				popers.id_meserie = locauta.id_meseria
				If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
					Thisform.registru_unic(1)
				Endif
				Thisform.page1.page2.ct_clb_formatia.SetFocus()
			Else
				popers.profesia = locauta.meserie
				popers.id_profesie = locauta.id_meseria
			Endif
		Endif
	ENDPROC

	PROCEDURE do_cauta_partener
		Lparameters tnTip
		Local loHash,loCauta
		*!*	2 = partener detasare
		loHash = GetHash([cTitlu>>Detasat la])
		loCauta = CautPartenerContabilitate(loHash)
		If gnButon # 2
			If tnTip = 2
				popers.denumires = loCauta.denumire
				popers.id_parts = loCauta.id_part
				Thisform.page1.page2.ct_clb_taradet.SetFocus()
			Endif
		Endif
	ENDPROC

	PROCEDURE do_cauta_plimpozit
		Local loCauta
		loCauta = caut_scutireimpozit()
		If gnButon # 2
			popers.scutireimpozit = loCauta.scutireimpozit
			popers.plimpozit = loCauta.id
			Thisform.page1.page2.ct_clb_cautare_var1.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_scutireimpozit
	ENDPROC

	PROCEDURE do_cauta_tara
		Lparameters tnTip
		*!*	1 = nationalitate angajat ; 2 = nationalitate angajator unde se face detasarea
		If tnTip = 1
			loCauta = caut_tara(popers.id_cetatenie)	&&	modificare	v 2.0.14
			If gnButon # 2
				popers.nationalitate = loCauta.prescurtare
				popers.id_nationalit = loCauta.id_tara
				If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
					Thisform.registru_unic(7)
				Endif
				Thisform.page1.page1.ct_clb_tip_act.SetFocus()
			Endif
		Else
			loCauta = caut_tara()
			If gnButon # 2
				popers.taras = loCauta.tara
				popers.id_taras = loCauta.id_tara
			Endif
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_temei
		If (gnEvaluareRevisal5 = 0) Or (gnEvaluareRevisal5 = 1 And Inlist(popers.stare_contract,3,4)) ;
			Or gnScrieRegistru=0		&&	modificare	ROARES v 2.0.10
			Local lnTip, loFrm
			Private pnIdTemei, pcExplicatieTemei
			Do Case
				Case popers.stare_contract = 1 And popers_orig.stare_contract = 2
					lnTip = 2
				Case popers.stare_contract = 2
					lnTip = 1
				Case popers.stare_contract = 3
					lnTip = 3
				Otherwise
					Return
			Endcase
			lcCursor = [crsTemei]
			Use In (Select(lcCursor))
			lcSQl = [select * from syn_sal_nom_temei where id_temei >= 100 and tip=] + Alltrim(Str(lnTip)) + [ and sters = 0] + ;
				[ and NVL(data_inactiv,to_date('122099','MMYYYY'))>=to_date('] + Alltrim(Str(gnAn)) + Alltrim(Str(gnLuna)) + [','YYYYMM')] + ;
				[ order by denumire]
			lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
			If lnSucces < 0
				aMessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				pcExplicatieTemei = []
				pnIdTemei = 0
				loFrm = Createobject('frm_temei_legal',lnTip,lcCursor)
				loFrm.AlwaysOnTop = .T.	&&	modificare	ROARES v 2.0.14
				loFrm.Show(1)
				If gnButon = 1
					popers.id_temeis = pnIdTemei
					popers.explicaties = pcExplicatieTemei
				Endif
				Use In (Select(lcCursor))
				Release loFrm
			Endif
		*!*	modificare	v 2.0.9
		Else
			If gnEvaluareRevisal5 = 1 And ((popers.stare_contract = 2 And popers_orig.stare_contract <> 2) Or ;
					(popers.stare_contract = 1 And popers_orig.stare_contract = 2))
				popers.datalic = popers.datainceputs
				Thisform.registru_unic(2)
			Endif
		*!*	modificare	v 2.0.9	^
		Endif
	ENDPROC

	PROCEDURE do_cauta_tipact
		Local loCauta
		loCauta = caut_tipact()
		If gnButon # 2
			popers.tip_act = loCauta.denumire
			popers.id_tip_act = loCauta.id_tip_act
			If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
				Thisform.registru_unic(7)
			Endif
			Thisform.page1.page1.tx8.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_tipautorizatie
		loCauta = caut_tipautorizatie()
		If gnButon # 2
			popers.id_tipautorizatie = loCauta.id_tipautorizatie
			popers.tipautorizatie = loCauta.denumire
			Thisform.page1.page8.tx72.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_cauta_tipcontract
		Local loCauta
		loCauta = caut_tipcontract()
		If gnButon # 2
			popers.tip_contract = loCauta.tip_contract
			popers.id_tipctr = loCauta.id_tipctr
			Thisform.page1.page2.ct_clb_meserie.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_col_gotfocus
		*!*	modificare	ROARES v 2.0.21
		*!*	LPARAMETERS tnsuma
		*!*	Thisform.nsumainitial=tnsuma
		*!*	Thisform.nsumamodif =tnsuma
		*!*	modificare	ROARES v 2.0.21	^
		
	ENDPROC

	PROCEDURE do_col_interactivechange
		*!*	modificare	ROARES v 2.0.21
		*!*	LPARAMETERS tnsuma
		*!*	Thisform.nsumamodif=tnsuma
		*!*	Thisform.lsalvat=.F.
		*!*	modificare	ROARES v 2.0.21	^
	ENDPROC

	PROCEDURE do_col_lostfocus
	ENDPROC

	PROCEDURE do_col_modifica
		*!*	modificare ROARES v 2.0.21 	:	nu-l mai las sa modifice aici datele pentru ca trebuie sa le scriu si in registru
		*!*	Lparameters tnColoana,tcNumeCamp,tcValoareInitiala,tcValoareNoua,tnIdStat
		*!*									 
		*!*	IF glLunaInchisa
		*!*		RETURN 
		*!*	ENDIF 
		*!*	If Empty(tnColoana)
		*!*		Return
		*!*	Endif
		*!*	Select v_personal
		*!*	pnid_stat=tnIdStat
		*!*	lcSql=[UPDATE ] + gcS + [.sal_stat SET ]+tcNumeCamp+[=]+tcValoareNoua+[ WHERE ID_stat=]+Alltrim(Str(pnid_stat))
		*!*	lnSucces=goExecutor.oExecute(lcSql)
		*!*	If lnSucces < 0
		*!*			lcSql2=[UPDATE v_personal SET ]+tcNumeCamp+[=]+tcValoareInitiala+[ WHERE ID_stat=]+Alltrim(Str(pnid_stat))
		*!*		aMessagebox(goExecutor.cEroare,0+16,'Eroare')
		*!*	ELSE
		*!*			lcSql2=[UPDATE v_personal SET ]+tcNumeCamp+[=]+tcValoareNoua+[ WHERE ID_stat=]+Alltrim(Str(pnid_stat))
		*!*	Endif
		*!*	&lcSql2
		*!*	SELECT v_personal
		*!*	LOCATE FOR id_stat = pnid_stat
		*!*	modificare ROARES v 2.0.21	^
	ENDPROC

	PROCEDURE do_col_valid
		*!*	modificare	ROARES v 2.0.21
		*!*	If Thisform.nsumainitial!=Thisform.nsumamodif  And Thisform.lsalvat=.F.
		*!*	*!*		lcNumeCamp=[avans]
		*!*	*!*		lcValoareInitiala=Alltrim(Str(Thisform.navansinitial,9,3))
		*!*	*!*		lcValoareNoua=Alltrim(Str(Thisform.navansmodif,9,3))
		*!*		Thisform.do_col_modifica(1,[tarifar],Alltrim(Str(Thisform.nsumainitial,9,3)),Alltrim(Str(Thisform.nsumamodif,9,3)),id_Stat)
		*!*		lcColoana=[thisform._griD1.column5]
		*!*		loColoana=&lcColoana
		*!*		loColoana.text1.Refresh()
		*!*	Endif
		*!*	modificare	ROARES v 2.0.21	^
	ENDPROC

	PROCEDURE do_download
		Lparameters tcFisSalvat
		Private poLink
		Store '' To poLink
		Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
		Local lcTabel, lcFisSalvat, lnIdAtas, lcFisier,lcNume_fisier
		
		lcTabel = Thisform.page1.page10.gridAtasamente.RecordSource
		
		Select (lcTabel)
		If Reccount() >0
			If Pcount() = 0 Or Type('tcFisSalvat') <> 'C'
				lcDir = Getdir('c:\',"Director","Directorul unde doriti sa salvati fisierul",64)
				If Empty(lcDir)
					Return
				Endif
				If !Empty(nume_atasament)
					lcFisSalvat = Addbs(lcDir)+Alltrim(nume_atasament)
				Endif
			Else
				lcFisSalvat = tcFisSalvat
			Endif
			If !Empty(lcFisSalvat)
				lnIdAtas = id_sal_atasamente
				lcNume_fisier = Alltrim(nume_atasament)
				lcSchema = [atasament w]
				lcSelect = [select atasament from sal_atasamente where id_sal_atasamente = ] + Alltrim(Str(lnIdAtas))
				lcOrder = []
				lcgroup = []
				lcFiltru = []
				lcFiltruOriginal = []
				llModParam = .T.
				llAfiseaza = .F.
		
				gencursor('poLink','crsRegFisierTemp', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza,  lcgroup, llModParam, lcFiltruOriginal)
				poLink.ca_baza1.afisare()
				If Used('crsRegFisierTemp')
					lcFisier = atasament
					Use In (Select('crsRegFisierTemp'))
		
		     		Strtofile(lcFisier, lcFisSalvat)
					open_default_app(lcFisSalvat)
		
				Endif
		
		
			Endif
		Endif
		
	ENDPROC

	PROCEDURE do_excel
		If Reccount('v_personal')=0
			aMessagebox("Nu ati ales niciun salariat!",0+48,"Atentie")
			Return
		Endif
		
		Try
			poExcel = Createobject("Excel.Application")
		Catch
			aMessagebox("Nu aveti instalata aplicatia Excel!",0+48,"Atentie")
			Return
		Endtry
		
		Thisform.MousePointer = 11
		Thisform.LockScreen = .T.
		
		*!*	completare cursoare
		Thisform.page1.page1.Activate
		poExcel.WorkBooks.Add
		Thisform.page1.page2.Activate
		poExcel.Sheets.Add
		Thisform.page1.page3.Activate
		poExcel.Sheets.Add
		Thisform.page1.page4.Activate
		poExcel.Sheets.Add
		Thisform.page1.page5.Activate
		poExcel.Sheets.Add
		Thisform.page1.page6.Activate
		poExcel.Sheets.Add
		Thisform.page1.page7.Activate
		poExcel.Sheets.Add
		
		*!* completare date personale
		poExcel.Sheets(1).Select
		poExcel.Sheets(1).Name=[Personal]
		
		With Thisform.page1.page1
			poExcel.Cells(2,2).Font.Bold=.T.
			poExcel.Cells(2,2).Font.Size = 16
			poExcel.Cells(2,2) = [FISA ANGAJAT]
			lnRandStart=5
			lnColoanaI=2
			lnColoanaII=6
		
			lnRow=lnRandStart
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Marca]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(Str(popers.marca))
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Nume]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.nume)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Prenume]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.prenume)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [CNP]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat="0"
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.codpers
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Data nasterii (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
			poExcel.Cells(lnRow,lnColoanaI+1) = ._txbase5.Value
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Locul nasterii]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.locnastere)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Cetatenia]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.cetatenie)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Nationalitate]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.nationalitate)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [BI seria]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.biseria)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Eliberat de]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.bieliberat)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Data eliberarii BI (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = [dd/mm/yyyy;@]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.bidata
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Judet]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.judet)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Sector]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(Str(popers.sector))
		
			*!*	jumatate
			lnRow=lnRandStart
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Localitate]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.localitate)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Strada]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.strada)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Numar]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.numar)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Bloc]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.Bloc)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Scara]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.scara)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Etaj]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.etaj)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Apartament]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.apart
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Cod postal]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "0"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.codpostal
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [BI numar]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.binr)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Situatia militara]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.sitmil)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Livret]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.livretmil)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Specialitate]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.specmil)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Grad militar]
			poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.gradmil)
		Endwith
		
		*!* completare date angajare
		poExcel.Sheets(2).Select
		poExcel.Sheets(2).Name=[Date angajare]
		With Thisform.page1.page2
			poExcel.Cells(2,2).Font.Bold=.T.
			poExcel.Cells(2,2).Font.Size = 16
			poExcel.Cells(2,2) = [DATE ANGAJARE]
			lnRandStart=5
			lnColoanaI=2
			lnColoanaII=6
		
			lnRow=lnRandStart
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Data angajarii (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.dataang
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Data sfarsit contract (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.datasfctr
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Tip contract]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.tip_contract)
		
			*!*	modificare ROASAL v 2.0.0
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Stare contract]
			poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.stare_contract=1,[Activ],Iif(popers.stare_contract=2,[Incetat],;
				IIF(popers.stare_contract=3,[Suspendat],[Detasat])))
		
			Do Case
				Case popers.stare_contract = 2
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Data incetare]
					poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
					poExcel.Cells(lnRow,lnColoanaI+1) = popers.datainceputs
		
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Temei incetare]
					poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.explicaties)
				Case popers.stare_contract = 3
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Data inceput suspendare]
					poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
					poExcel.Cells(lnRow,lnColoanaI+1) = popers.datainceputs
		
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Data sfarsit suspendare]
					poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
					poExcel.Cells(lnRow,lnColoanaI+1) = popers.datasfarsits
		
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Temei suspendare]
					poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.explicaties)
				Case popers.stare_contract = 4
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Data inceput detasare]
					poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
					poExcel.Cells(lnRow,lnColoanaI+1) = popers.datainceputs
		
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Data sfarsit detasare]
					poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
					poExcel.Cells(lnRow,lnColoanaI+1) = popers.datasfarsits
		
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Detasat la]
					poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.explicaties)
		
					lnRow=lnRow+1
					poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
					poExcel.Cells(lnRow,lnColoanaI) = [Tara detasare]
					poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.taras)
				Otherwise
					lnRow = lnRow
			Endcase
			*!*	modificare ROASAL v 2.0.0	^
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Meseria]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.meseria)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Formatia]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.formatia)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Sectia]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.sectie)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Grupa munca]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.grupacas)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Clasa salarizare]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.cod)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Tarifar]
			poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(Str(popers.tarifar))
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Pensionar]
			poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.pensionar=1,[DA],[NU])
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Invalid]
			poExcel.Cells(lnRow,lnColoanaI+1) = ALLTRIM(popers.handicap) 	&&	ALLTRIM(.ct_cb_handicap.Text_simplu.Value)	-	ROASAL v 2.0.14
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Plateste CAS]
			poExcel.Cells(lnRow,lnColoanaI+1) = IIF(popers.plcas = 1,[DA],[NU])
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Plateste somaj]
			poExcel.Cells(lnRow,lnColoanaI+1) = IIF(popers.plsomaj = 1,[DA],[NU])
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Plateste impozit]
			poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.plimpozit=1,[DA],[NU])
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Cont IBAN]
			poExcel.Cells(lnRow,lnColoanaI+1) = ALLTRIM(popers.contiban)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Banca]
			poExcel.Cells(lnRow,lnColoanaI+1) = ALLTRIM(popers.banca)
		
			*!*	jumatate
			lnRow=lnRandStart
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Tip norma]
			poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_tip_norma)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Durata timp norma]
			poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_durata_munca)
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Repartizare timp munca]
			poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_repartizare_munca)
		
			IF !EMPTY(NVL(popers.id_interval_munca,0))
				lnRow=lnRow+1
				poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaII) = [Tip interval repartizare]
				poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_interval_munca)
			ENDIF
				
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Timp partial]
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.fractie
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Timp normal]
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.orenorm
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Functia de baza]
			poExcel.Cells(lnRow,lnColoanaII+1) = Iif(popers.functiebaza==1,[DA],[NU])
		
			*!*	modificare	v 2.0.0
			*!*		lnRow=lnRow+1
			*!*		poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			*!*		poExcel.Cells(lnRow,lnColoanaII) = [Data lichidarii]
			*!*		poExcel.Cells(lnRow,lnColoanaII+1) = popers.datalic
			*!*	modificare	v 2.0.0	^
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Carte munca - seria]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.cmseria
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Carte munca - numar]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.cmnr
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Numar contract ITM]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.nrctrm
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Data contract ITM (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.datactrm
		
			*!*	modificare	v 2.0.0
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Numar contract intern]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.nrctr
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Data contract intern (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.datactr
		
			If Upper(Alltrim(popers.codcetatenie)) = [ALTA]
				lnRow=lnRow+1
				poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaII) = [Tip autorizatie]
				poExcel.Cells(lnRow,lnColoanaII+1) = popers.tipautorizatie
		
				lnRow=lnRow+1
				poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaII) = [Data inceput autorizatie]
				poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
				poExcel.Cells(lnRow,lnColoanaII+1) = popers.datainceputautorizatie
		
				lnRow=lnRow+1
				poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaII) = [Data sfarsit autorizatie]
				poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
				poExcel.Cells(lnRow,lnColoanaII+1) = popers.datasfarsitautorizatie
			Endif
			*!*	modificare	v 2.0.0	^
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaII) = [Casa sanatate]
			poExcel.Cells(lnRow,lnColoanaII+1) = popers.casaasig
		Endwith
		
		*!* completare date familie
		poExcel.Sheets(3).Select
		poExcel.Sheets(3).Name=[Familie]
		poExcel.Cells(2,2).Font.Bold=.T.
		poExcel.Cells(2,2).Font.Size = 16
		poExcel.Cells(2,2) = [FAMILIE]
		lnRandStart=5
		lnColoanaI=2
		lnColoanaII=6
		
		With Thisform.page1.page3
			lnRow=lnRandStart
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Stare civila]
			poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.stareciv=1,[CASATORIT],[NECASATORIT])
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Nume sot/sotie]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.numesot
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Nume tata]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.numetata
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Nume mama]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.numemama
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Numar copii]
			poExcel.Cells(lnRow,lnColoanaI+1) = .txcopii.Value
		
		
			With .grid1
				lnRow=lnRow+4
				poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaI) = [Copii]
				lnRow=lnRow+2
		
				lcCursor = .RecordSource
				For nCol = 1 To .ColumnCount
					nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
					poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
					poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
					lcColoana=Alltrim(.Columns(nCol).ControlSource)
					*!*	modificare	v 2.0.0
					*!*				Do Case
					*!*					Case Type(lcColoana) = 'C'
					*!*						poExcel.Columns(nColumn).NumberFormat=[@]
					*!*					Case Type(lcColoana) = 'D'
					*!*						poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
					*!*				Endcase
					*!*	modificare	v 2.0.0	^
					poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
					poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
				Endfor
				Select (lcCursor)
				Scan
					lnRow = lnRow + 1
					For nCol = 1 To .ColumnCount
						nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
						poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
					*!*	modificare	v 2.0.0
					lcColoana=Alltrim(.Columns(nCol).ControlSource)
					Do Case
						Case LIKE('*DATANAST',Upper(lcColoana))
							poExcel.Cells(lnRow,nColumn).NumberFormat=[dd/mm/yyyy;@]
						Case LIKE('*CODPERS',Upper(lcColoana))
							poExcel.Cells(lnRow,nColumn).NumberFormat=[0]
						Otherwise
							poExcel.Cells(lnRow,nColumn).NumberFormat=[@]
					Endcase
					*!*	modificare	v 2.0.0	^
					Endfor
				Endscan
			Endwith
		
			With .grid3
				lnRow=lnRow+4
				poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaI) = [Persoane aflate in intretinere]
				lnRow=lnRow+2
		
				lcCursor = .RecordSource
				For nCol = 1 To .ColumnCount
					nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
					poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
					poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
					lcColoana=Alltrim(.Columns(nCol).ControlSource)
					*!*	modificare	v 2.0.0
					*!*				Do Case
					*!*					Case Type(lcColoana) = 'C'
					*!*						poExcel.Columns(nColumn).NumberFormat=[@]
					*!*					Case Type(lcColoana) = 'D'
					*!*						poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
					*!*				Endcase
					*!*	modificare	v 2.0.0	^
					poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
					poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
				Endfor
				Select (lcCursor)
				Scan
					lnRow = lnRow + 1
					For nCol = 1 To .ColumnCount
						nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
						poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
					Endfor
				Endscan
			Endwith
		Endwith
		
		*!* completare baze calcul CM
		poExcel.Sheets(4).Select
		poExcel.Sheets(4).Name=[Baze calcul CM]
		poExcel.Cells(2,2).Font.Bold=.T.
		poExcel.Cells(2,2).Font.Size = 16
		poExcel.Cells(2,2) = [BAZE CALCUL CM]
		lnRandStart=5
		lnColoanaI=2
		
		lnRow=lnRandStart
		With Thisform.page1.page4.grid3
			lcCursor = .RecordSource
			For nCol = 1 To .ColumnCount
				nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
				poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
				poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
				lcColoana=Alltrim(.Columns(nCol).ControlSource)
				Do Case
					Case Type(lcColoana)='C'
						poExcel.Columns(nColumn).NumberFormat=[@]
					Case Type(lcColoana)='D'
						poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
				Endcase
				poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
				poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
			Endfor
			Select (lcCursor)
			Scan
				lnRow = lnRow + 1
				For nCol = 1 To .ColumnCount
					nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
					poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
				Endfor
			Endscan
		Endwith
		
		
		*!* completare calificare
		poExcel.Sheets(5).Select
		poExcel.Sheets(5).Name=[Calificare]
		poExcel.Cells(2,2).Font.Bold=.T.
		poExcel.Cells(2,2).Font.Size = 16
		poExcel.Cells(2,2) = [CALIFICARE]
		lnRandStart=5
		lnColoanaI=2
		
		lnRow=lnRandStart
		poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
		poExcel.Cells(lnRow,lnColoanaI) = [Profesia]
		poExcel.Cells(lnRow,lnColoanaI+1) = popers.profesia
		
		With Thisform.page1.page4.grid3
			lnRow=lnRow+4
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Limbi straine]
			lnRow=lnRow+2
		
			lcCursor = .RecordSource
			For nCol = 1 To .ColumnCount
				nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
				poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
				poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
				lcColoana=Alltrim(.Columns(nCol).ControlSource)
				Do Case
					Case Type(lcColoana)='C'
						poExcel.Columns(nColumn).NumberFormat=[@]
					Case Type(lcColoana)='D'
						poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
				Endcase
				poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
				poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
			Endfor
			Select (lcCursor)
			Scan
				lnRow = lnRow + 1
				For nCol = 1 To .ColumnCount
					nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
					poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
				Endfor
			Endscan
		Endwith
		
		*!* completare date scolarizare
		poExcel.Sheets(6).Select
		poExcel.Sheets(6).Name=[Scolarizare]
		poExcel.Cells(2,2).Font.Bold=.T.
		poExcel.Cells(2,2).Font.Size = 16
		poExcel.Cells(2,2) = [SCOLARIZARE]
		lnRandStart=5
		lnColoanaI=2
		lnColoanaII=6
		
		With Thisform.page1.page6
			With .grid3
				lnRow=lnRandStart
				poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaI) = [Cursuri calificare]
				lnRow=lnRow+2
		
				lcCursor = .RecordSource
				For nCol = 1 To .ColumnCount
					nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
					poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
					poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
					lcColoana=Alltrim(.Columns(nCol).ControlSource)
					Do Case
						Case Type(lcColoana)='C'
							poExcel.Columns(nColumn).NumberFormat=[@]
						Case Type(lcColoana)='D'
							poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
					Endcase
					poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
					poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
				Endfor
				Select (lcCursor)
				Scan
					lnRow = lnRow + 1
					For nCol = 1 To .ColumnCount
						nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
						poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
					Endfor
				Endscan
			Endwith
		
			With .grid1
				lnRow=lnRow+4
				poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
				poExcel.Cells(lnRow,lnColoanaI) = [Studii]
				lnRow=lnRow+2
		
				lcCursor = .RecordSource
				For nCol = 1 To .ColumnCount
					nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
					poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
					poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
					lcColoana=Alltrim(.Columns(nCol).ControlSource)
					Do Case
						Case Type(lcColoana)='C'
							poExcel.Columns(nColumn).NumberFormat=[@]
						Case Type(lcColoana)='D'
							poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
					Endcase
					poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
					poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
				Endfor
				Select (lcCursor)
				Scan
					lnRow = lnRow + 1
					For nCol = 1 To .ColumnCount
						nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
						poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
					Endfor
				Endscan
			Endwith
		Endwith
		
		
		*!* completare vechime
		poExcel.Sheets(7).Select
		poExcel.Sheets(7).Name=[Vechime]
		With Thisform.page1.page7
			poExcel.Cells(2,2).Font.Bold=.T.
			poExcel.Cells(2,2).Font.Size = 16
			poExcel.Cells(2,2) = [Vechime]
			lnRandStart=5
			lnColoanaI=2
		
			lnRow=lnRandStart
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Data incadrarii (ZZ/LL/AAAA)]
			poExcel.Cells(lnRow,lnColoanaI).NumberFormat = [dd/mm/yyyy;@]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.data_vech
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Mod incadrare]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.modincadr
		
			lnRow=lnRow+2
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Vechime (la data incadrarii)]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.vechimei
			poExcel.Cells(lnRow,lnColoanaI+2) = [total luni]
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI) = [adica]
			poExcel.Cells(lnRow,lnColoanaI+1) = .tx59.Text
			poExcel.Cells(lnRow,lnColoanaI+2) = [ani si]
			poExcel.Cells(lnRow,lnColoanaI+3) = .tx60.Text
			poExcel.Cells(lnRow,lnColoanaI+4) = [luni]
		
			lnRow=lnRow+2
			poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
			poExcel.Cells(lnRow,lnColoanaI) = [Vechime (in luna curenta)]
			poExcel.Cells(lnRow,lnColoanaI+1) = popers.vechime
			poExcel.Cells(lnRow,lnColoanaI+2) = [total luni]
		
			lnRow=lnRow+1
			poExcel.Cells(lnRow,lnColoanaI) = [adica]
			poExcel.Cells(lnRow,lnColoanaI+1) = .tx62.Text
			poExcel.Cells(lnRow,lnColoanaI+2) = [ani si]
			poExcel.Cells(lnRow,lnColoanaI+3) = .tx63.Text
			poExcel.Cells(lnRow,lnColoanaI+4) = [luni]
		Endwith
		poExcel.Visible=.T.
		*!*	poExcel.ActiveWorkBook.SaveAs(pccale)
		*!*	poExcel.ActiveWorkBook.Close
		*!*	poExcel.Quit
		
		Release poExcel
		Thisform.LockScreen=.F.
		Thisform.MousePointer=0
	ENDPROC

	PROCEDURE do_executa
		
		*!*	IF !EMPTY(popers.id_stat)
		
		
			lcSql = [select pack_personal.vechime_date_lunar(?popers.data_vech) as vechimeluna from dual]
			lcCursor = [crsvechime]
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
			If lnSucces < 0
				aMessagebox(goExecutor.cEroare,0+16,"Eroare")
				popers.vechime = 0
				RETURN
			ELSE 
				SELECT crsvechime
				popers.vechime=ROUND(vechimeluna,0)+NVL(popers.vechimei,0)
				thisform.vechimeal()
			ENDIF
			IF USED('crsvechime')
				USE IN crsvechime
			ENDIF 	
		*!*	ENDIF 	
		thisform.co_calculcoefvechime
		
	ENDPROC

	PROCEDURE do_modifica
		*!*	modificare	ROASAL v 2.0.14
		IF glLunaInchisa
			Return
		ENDIF
		*!*	modificare	ROASAL v 2.0.14	^
		If !Empty(popers.marca)
			*!*	modificare	ROASAL v 2.0.0
			Thisform.do_activeaza(.T.)
			*!*		thisform.do_writeonly()
			*!*	modificare	ROASAL v 2.0.0	^
			This.cus_odata_opers1.cactiune  = 'UPDATE'
			Create Cursor registru_temp (tip_operatie c(1),id_criteriu N(5),id_modlic N(5),id_temei N(5),;
				datamod d,explicatie c(254),ordine N(1))
			Select v_personal
			*!*	modificare ROARES v 1.0.49 : am adaugat si campul datactr
			Scatter Name poRegAms Fields id_meserie,; &&meserie
			datalic,;	  &&incetare contract
			datasfctr,fractie,id_tipctr,; &&Tipul Contractului
			nrctr,dataang,datactr,nrctrm,datactrm,; &&Numar/Data Contract
			id_sectie,; && Loc de munca
			nume,prenume,id_cetatenie,id_nationalit,id_tip_act,; &&date personale
			codpers,cmseria,cmnr,id_loc,strada,numar,Bloc,scara,etaj,apart
		Endif
	ENDPROC

	PROCEDURE do_modifica_atas
	ENDPROC

	PROCEDURE do_modifica_aviz
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Private pniesire,pcNumeTata
		pniesire=0
		Select v_avize
		Scatter Name loRec 
		
		Do Adauga_Modifica_Inregistrare With "avize",loRec,loRec.id_aviz,"UPDATE",,"maviz"
		
		If pniesire=1
			save_grid_tag(Thisform.page1.page11.grid3)
				poavize.ca_baza1.cfiltru = [id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				poavize.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page11.grid3)
		Endif
	ENDPROC

	PROCEDURE do_modifica_bazacm
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Private pniesire,pcNumeTata
		pniesire=0
		Select v_bazacm
		Scatter Name loRec 
		
		Do Adauga_Modifica_Inregistrare With "bazacm",loRec,loRec.id_bazacm,"UPDATE",,"mbaza"
		
		If pniesire=1
			save_grid_tag(Thisform.page1.page4.grid3)
				pobazacm.ca_baza1.cfiltru = [id_stat = ] + ALLTRIM(STR(popers.id_stat))
				pobazacm.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page4.grid3)
		Endif
	ENDPROC

	PROCEDURE do_modifica_curs
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Private pniesire
		pniesire=0
		*!*	update_curs()
		Select v_curs_calif
		Scatter Name loRec 
		IF ISNULL(lorec.data)
			lorec.data = NVL(lorec.data,{})
		ENDIF 	
		Do Adauga_Modifica_Inregistrare With "curs",loRec,lorec.id_curs,"UPDATE",,"addcurs"
		If pniesire=1
			save_grid_tag(Thisform.page1.page6.grid3)
				pocurs.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocurs.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page6.grid3)
			Select v_calif
			GO TOP 
		ENDIF
	ENDPROC

	PROCEDURE do_modifica_echip
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		IF RECCOUNT('v_echip')=0
			RETURN 
		ENDIF 	
		Private pniesire
		pniesire=0
		*!*	update_echip()
		Select v_echip
		Scatter Name loRec 
		
		Do Adauga_Modifica_Inregistrare With "echip",loRec,lorec.id_echip,"UPDATE",,"addechip"
		
	ENDPROC

	PROCEDURE do_modifica_intret
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Private pniesire
		pniesire=0
		
		update_hand(1)
		update_dedsupl()
		
		Select v_nom_intret
		Scatter Name loRec 
		lorec.id_stat = popers.id_stat
		
		Do Adauga_Modifica_Inregistrare With "intret",loRec,lorec.id_pers,"UPDATE",,"addintret"
		If pniesire=1
			save_grid_tag(Thisform.page1.page3.grid3)
				pointr.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pointr.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page3.grid3)
		
		Endif
	ENDPROC

	PROCEDURE do_modifica_limba
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Private pniesire
		pniesire=0
		
		update_limbi()
		Select v_calif
		Scatter Name loRec 
		
		
		Do Adauga_Modifica_Inregistrare With "limbi",loRec,lorec.id_str,"UPDATE",,"addlim"
		If pniesire=1
			save_grid_tag(Thisform.page1.page5.grid3)
				pocalif.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocalif.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page5.grid3)
		ENDIF
		RELEASE lorec
	ENDPROC

	PROCEDURE do_modifica_stare
		popers.stare_contract = Thisform.page1.page2.opt_stare_contract.Value
		Thisform.do_actualizeaza_stare()
		*!*	altfel le las la fel ca in actualizeaza_stare
		If popers_orig.stare_contract <> 0
			If popers.stare_contract = popers_orig.stare_contract
				popers.datainceputs = popers_orig.datainceputs
				popers.datasfarsits = popers_orig.datasfarsits
				popers.dataincetares = popers_orig.dataincetares
				popers.id_parts = popers_orig.id_parts
				popers.denumires = popers_orig.denumires
				popers.id_taras = popers_orig.id_taras
				popers.taras = popers_orig.taras
				popers.id_temeis = popers_orig.id_temeis
				popers.explicaties = popers_orig.explicaties
			Else
				popers.datainceputs = {}
				popers.datasfarsits = {}
				popers.dataincetares = {}
				popers.id_parts = Null
				popers.denumires = []
				popers.id_taras = Null
				popers.taras = []
				popers.id_temeis = Null
				popers.explicaties = []
			Endif
			With Thisform.page1.page2
				.tx43.Refresh()
		*!*	modificare	v 2.0.8
		*!*			.tx47.Refresh()
		*!*			.tx48.Refresh()
		*!*			.tx55.Refresh()
				.ct_clb_temei.tx_cautare.Refresh()	
				.ct_clb_detasatla.tx_cautare.Refresh()
				.ct_clb_taradet.tx_cautare.refresh()
		*!*	modificare	v 2.0.8	^
				.tx54.Refresh()
			Endwith
		Endif
		*!*	If popers.stare_contract = 1
		*!*		With Thisform.page1.page2
		*!*			Do Case
		*!*				Case popers_orig.stare_contract = 2
		*!*					*!*	 Daca trece din incetat in activ : temei legal reactivare, data reactivare.
		*!*					.lb32.Caption = [Dată reactivare]
		*!*					.lb32.Visible = .T.
		*!*					.tx43.Visible = .T.
		*!*					.lb_simplu2.Visible = .T.
		*!*					.tx47.Visible = .T.
		*!*				Case popers_orig.stare_contract = 3
		*!*					*!*	 Daca trece din suspendat in activ : data incetare suspendare
		*!*					.lb32.Caption = [Dată încetare suspendare]
		*!*					.lb32.Visible = .T.
		*!*					.tx43.Visible = .T.
		*!*					.lb_simplu2.Visible = .F.
		*!*					.tx47.Visible = .F.
		*!*				Case popers_orig.stare_contract = 4
		*!*					*!*	 Daca trece din detasat in activ : data incetare detasare
		*!*					.lb32.Caption = [Dată încetare detașare]
		*!*					.lb32.Visible = .T.
		*!*					.tx43.Visible = .T.
		*!*					.lb_simplu2.Visible = .F.
		*!*					.tx47.Visible = .F.
		*!*			Endcase
		*!*		Endwith
		*!*	Endif
	ENDPROC

	PROCEDURE do_modifica_stud
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Private pniesire
		pniesire=0
		Select v_studii
		Scatter Name loRec 
		
		Do Adauga_Modifica_Inregistrare With "stud",loRec,lorec.id_studiu,"UPDATE",,"addstud"
		
	ENDPROC

	PROCEDURE do_modiparam
		Local lcCursor,loFrmModificare
		If Reccount('v_personal') > 0
			lcCursor = [crsmoditarifar]
			Create Cursor (lcCursor) (id_salariat N(10),nume c(50),prenume c(50),marca N(10),codpers c(30),id_sal_ctr N(10),;
				id_meserie N(5),id_formatie N(5),id_sectie N(5),meseria c(64),formatia c(64),sectie c(30),;
				tarifar N(16,4),tarifar_nou N(16,4),stare_contract N(1))
			Insert Into (lcCursor) (id_salariat,nume,prenume,codpers,marca,id_sal_ctr,meseria,formatia,sectie,tarifar,id_meserie,id_formatie,id_sectie,stare_contract,tarifar_nou) ;
				SELECT id_salariat,nume,prenume,codpers,marca,id_sal_ctr,meseria,formatia,NVL(sectie,''),tarifar,id_meserie,id_formatie,NVL(id_sectie,0) as id_sectie,stare_contract,tarifar As tarifar_nou ;
				FROM v_personal Where stare_contract = 1 AND !ISNULL(id_sal_ctr)
			Go Top
			loFrmModificare = Createobject("frm_modificari_salarii")
			loFrmModificare.Show(1)
			If Used(lcCursor)
				Use In (lcCursor)
			Endif
			If gnButon = 1
				Thisform.actualizeaza_grid1()
			Endif
		Else
			amessagebox("Nu exista inregistrari in selectie!",48,"Atentie")
		Endif
		Release lcCursor,loFrmModificare
		
	ENDPROC

	PROCEDURE do_readonly
		*!*	modificare	ROASAL v 2.0.0
		*!*	thisform.do_butoane_stare(.t.) 
		*!*	DIMENSION lapagini[6,3]			&&array pagini   [i,1] - nr text initial, [i,2]- nr text final, [i,3] - nr pagina
		*!*	lapagini[1,1]=1
		*!*	lapagini[1,2]=25
		*!*	lapagini[1,3]=1					
		
		*!*	lapagini[2,1]=26
		*!*	lapagini[2,2]=53
		*!*	lapagini[2,3]=2
		
		*!*	lapagini[3,1]=51		
		*!*	lapagini[3,2]=54
		*!*	lapagini[3,3]=3
		
		*!*	lapagini[4,1]=55
		*!*	lapagini[4,2]=55
		*!*	lapagini[4,3]=5
		
		*!*	lapagini[5,1]=56
		*!*	lapagini[5,2]=64
		*!*	lapagini[5,3]=7
		
		*!*	lapagini[6,1]=65
		*!*	lapagini[6,2]=70		&&	modificare	v 1.0.49 : 69
		*!*	lapagini[6,3]=8
		
		*!*	LOCAL ladim,lni,lnf
		*!*	ladim = ALEN(lapagini,1)		&&nr de pagini configurate pt refresh
		
		*!*	FOR i=1 TO ladim
		*!*		FOR j = lapagini[i,1] TO lapagini[i,2]
		*!*			lcr = 'thisform.page1.page'+ALLTRIM(STR(lapagini[i,3]))+'.tx'+ALLTRIM(STR(j))+'.readonly=.t.'
		*!*			lcre = 'thisform.page1.page'+ALLTRIM(STR(lapagini[i,3]))+'.tx'+ALLTRIM(STR(j))+'.refresh'
		*!*			&lcr
		*!*			&lcre	
		*!*		ENDFOR 	
		*!*	ENDFOR	
		*!*	modificare	ROASAL v 2.0.0	^
	ENDPROC

	PROCEDURE do_renunt
		*!*	modificare	ROASAL v 2.0.0
		*!*		thisform.do_readonly()
		Thisform.do_activeaza(.F.)
		*!*	modificare	ROASAL v 2.0.0	^
		IF !EMPTY(thisform.lcpozamodif)
			LOCAL lcPozaDemodif,lcPozaNumeNou
			SET STEP ON 
			lcPozaDemodif = thisform.page1.page1.imAGE1.picture
			lcPozaNumeNou = ALLTRIM(STR(popers.marca))+[_]+ CHRTRAN(TTOC(DATETIME(),1),'\/:*?" ','')+[.]+JUSTEXT(lcPozaDemodif)
			
			lcdipoza = goApp.ReadIni('cale_poza_legitimatie', "pozapath")
			CD &lcdipoza
			IF !FILE(thisform.lcpozamodif)
				RENAME (lcPozaDemodif) TO  (lcPozaNumeNou)
			ELSE 
				RENAME (lcPozaDemodif) TO  (lcPozaNumeNou)
				RENAME (thisform.lcpozamodif) TO  (lcPozaDemodif)
			ENDIF 
			thisform.nrincarcaripoze  = 0
			CD &dirgen
		ENDIF 
		Thisform._GRID1.SetFocus()
		If Used('registru_temp')
			Use In registru_temp
		Endif
	ENDPROC

	PROCEDURE do_salvare
		*!* 11.02.2011
		*!* marius.mutu
		*!* se completeaza numarul intern de contract doar pentru contractele mai noi de 2010
		*!* contractele vechi nu aveau obligatoriu numar intern, si la modificarea tarifarului se cere si numarul intern
		
		*!*	IF MESSAGEBOX('Doriti sa salvati modificarile?',4,'Atentie!') = 6
		
		*!*	modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
		LOCAL lnSalmin
		lcSql = [select salmin from sal_calendar where an = pack_sesiune.getan() and luna = pack_sesiune.getluna()]
		lcCursor = [crsSalmin]
		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		If lnSucces < 0
			aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			Return
		ENDIF 
		SELECT crsSalmin
		GO TOP 
		lnSalmin = crsSalmin.salmin
		USE IN crsSalmin
		*!* ^	modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
		
		SET STEP ON 
		Private lcNecompletat
		Store '' To lcNecompletat
		If Empty(NVL(popers.marca,0))
			lcNecompletat = '* Marca'+CRLF
		Endif
		If Empty(NVL(popers.nume,[]))
			lcNecompletat = lcNecompletat + '* Nume'+CRLF
		Endif
		If Empty(NVL(popers.prenume,[]))
			lcNecompletat = lcNecompletat + '* Prenume'+CRLF
		Endif
		If Empty(NVL(popers.codpers,[]))
			lcNecompletat = lcNecompletat + '* CNP'+CRLF
		Endif
		If Empty(NVL(popers.dataang,{}))
			lcNecompletat = lcNecompletat + '* Data angajarii'+CRLF
		Endif
		
		If Empty(NVL(popers.id_meserie,0))
			lcNecompletat = lcNecompletat + '* Meseria!'+CRLF
		Endif
		If Empty(NVL(popers.id_formatie,0))
			lcNecompletat = lcNecompletat + '* Formatia!'+CRLF
		Endif
		If Empty(NVL(popers.id_cas,0))
			lcNecompletat = lcNecompletat + '* Grupa de munca'+CRLF
		Endif
		If Empty(NVL(popers.tarifar,0))
			lcNecompletat = lcNecompletat + '* Tarifar'+CRLF
		Endif
		*!*	modificare ROARES v 2.0.8 : If Isnull(popers.fractie)
		IF EMPTY(NVL(popers.fractie,0))
			lcNecompletat = lcNecompletat + '* Timp partial de munca'+CRLF
		Endif
		*!*	modificare ROARES v 2.0.8
		IF EMPTY(NVL(popers.orenorm,0))
			lcNecompletat = lcNecompletat + '* Timp normal de munca'+CRLF
		Endif
		*!*	modificare ROARES v 2.0.8	^
		If Empty(NVL(popers.id_loc,0))
			lcNecompletat = lcNecompletat + '* Localitatea'+CRLF
		Endif
		*!* 11.02.2011
		If Empty(NVL(popers.nrctr,0)) And popers.dataang >= Date(2010,1,1)
			lcNecompletat = lcNecompletat + '* Numarul intern de evidenta'+CRLF
		Endif
		*!* 11.02.2011 ^
		*!* modificare	v 1.0.49
		If Empty(Nvl(popers.datactr,{})) And popers.dataang >= Date(2010,1,1)
			lcNecompletat = lcNecompletat + '* Data contractului (intern)'+CRLF
		Endif
		*!* modificare	v 1.0.49 ^
		If Empty(NVL(popers.id_tip_act,0))
			lcNecompletat = lcNecompletat + '* Tipul actului de identitate'+CRLF
		Endif
		If Empty(NVL(popers.id_cetatenie,0))
			lcNecompletat = lcNecompletat + '* Cetatenia!'+CRLF
		Endif
		If Empty(NVL(popers.id_nationalit,0))
			lcNecompletat = lcNecompletat + '* Nationalitatea'+CRLF
		Endif
		*!*	modificare	ROARES v 2.0.8
		IF EMPTY(NVL(popers.id_tip_norma,0))
			lcNecompletat = lcNecompletat + '* Tipul normei'+CRLF
		endif
		IF EMPTY(NVL(popers.id_durata_munca,0))
			lcNecompletat = lcNecompletat + '* Durata timpului'+CRLF
		endif
		IF EMPTY(NVL(popers.id_repartizare_munca,0))
			lcNecompletat = lcNecompletat + '* Repartizarea timpului de munca'+CRLF
		endif
		IF EMPTY(NVL(popers.id_interval_munca,0)) AND NVL(popers.id_durata_munca,0) = 4
			lcNecompletat = lcNecompletat + '* Tipul de interval de repartizare'+CRLF
		endif
		*!*	modificare	ROARES v 2.0.8	^
		*!*	modificare	ROARES v 2.0.14
		If Nvl(popers.somaj_tehnic,0) = 1 And ;
				EMPTY(Nvl(popers.datast1,{})) And Empty(Nvl(popers.datast2,{}))
			lcNecompletat = lcNecompletat + '* Perioada somajului tehnic'+CRLF
		Endif
		*!*	modificare	ROARES v 2.0.14	^
		*!*	modificare	ROASAL v 2.0.20
		If Empty(Nvl(popers.casaasig,'')) and Empty(Nvl(popers.id_caseasig,0))
			lcNecompletat = lcNecompletat + "* Casa de sanatate!" + CRLF
		Endif
		*!*	modificare	ROASAL v 2.0.20	^
		*!*	modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
		If popers.tarifar  < ROUND((lnSalmin / 8 )* popers.fractie,0) AND popers.id_interval_munca = 1
			lcNecompletat = lcNecompletat + "* Salariul tarifar este mai mic decat salariul minim pe economie" + CRLF
		Endif
		*!*	^ modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
		IF popers.id_tipapatrid = 1 AND ISNULL(popers.id_tipautorizatie) AND (ISNULL(popers.datainceputautorizatie) OR EMPTY(popers.datainceputautorizatie))AND (ISNULL(popers.datasfarsitautorizatie) OR EMPTY(popers.datasfarsitautorizatie))
			lcNecompletat = lcNecompletat + "* Trebuie completat tipul, data de inceput si data de sfarsit a autorizatiei pentru salariatii apatrizi (Documente)" + CRLF
		ENDIF 
		*!*	modificare	v 2.0.0
		Do Case
			Case popers.stare_contract = 1  And popers_orig.stare_contract > 1
				If Empty(Nvl(popers.datainceputs,{}))
					lcNecompletat = lcNecompletat + '* Data ' + Iif(popers_orig.stare_contract = 2,'reactivarii',;
						'incetarii '+Iif(popers_orig.stare_contract = 3,'suspendarii','detasarii'))+CRLF
				Endif
				If Empty(Nvl(popers.id_temeis,0)) And popers_orig.stare_contract = 2
					lcNecompletat = lcNecompletat + '* Temeiul legal pentru reactivare'+CRLF
				Endif
			Case popers.stare_contract = 2
				If Empty(Nvl(popers.datainceputs,{}))
					lcNecompletat = lcNecompletat + '* Data incetarii'+CRLF
				Endif
				If Empty(Nvl(popers.id_temeis,0))
					lcNecompletat = lcNecompletat + '* Temeiul legal pentru incetare'+CRLF
				Endif
			Case popers.stare_contract = 3
				If Empty(Nvl(popers.datainceputs,{}))
					lcNecompletat = lcNecompletat + '* Data de inceput a suspendarii'+CRLF
				Endif
				If Empty(Nvl(popers.datasfarsits,{}))
					lcNecompletat = lcNecompletat + '* Data de sfarsit a suspendarii'+CRLF
				Endif
				If Empty(Nvl(popers.id_temeis,0))
					lcNecompletat = lcNecompletat + '* Temeiul legal pentru suspendare'+CRLF
				Endif
			Case popers.stare_contract = 4
				If Empty(Nvl(popers.datainceputs,{}))
					lcNecompletat = lcNecompletat + '* Data de inceput a detasarii'+CRLF
				Endif
				If Empty(Nvl(popers.datasfarsits,{}))
					lcNecompletat = lcNecompletat + '* Data de sfarsit a detasarii'+CRLF
				Endif
				If Empty(Nvl(popers.id_parts,0))
					lcNecompletat = lcNecompletat + '* Locul detasarii'+CRLF
				Endif
				If Empty(Nvl(popers.id_taras,0))
					lcNecompletat = lcNecompletat + '* Tara detasarii'+CRLF
				Endif
			Otherwise
				lcNecompletat = lcNecompletat
		Endcase
		*!*	modificare	v 2.0.0	^
		If !Empty(lcNecompletat)
			lcNecompletat = 'Nu ati completat campurile: ' + CRLF + lcNecompletat
			aMESSAGEBOX(lcNecompletat,16,'Atentie!')
			lcNecompletat=''
			IF AMESSAGEBOX('Doriti sa salvati fara campurile completate?' + CHR(13) + CHR(10) + 'Unele campuri sunt obligatorii si nu se va putea salva.',4+32,_screen.Caption) <> 6
				RETURN
			ENDIF 	
		Endif
		*!*	modificare	v 2.0.0
		If !Thisform.do_verifica_date()
			Return
		Endif
		*!*	modificare	v 2.0.0	^
		*!*		IF this.cus_odata_opers1.cactiune='INSERT'
		lcSql = [select p.nume,p.prenume from nom_parteneri p where id_part in ] + ;
			[(select id_part from sal_personal where marca = ] + Alltrim(Str(popers.marca)) + [) and id_part<>?popers.id_part]
		lcCursor = [crsmarca]
		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		If lnSucces < 0
			aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			Return
		Else
			If Reccount('crsmarca')>0
				Select crsmarca
				aMESSAGEBOX('Aceasta marca exista deja! ( ' + Nvl(Alltrim(nume),'') + ' ' + Nvl(Alltrim(prenume),'') + ')',48,'Atentie!')
				Return
			Endif
		Endif
		If Used('crsmarca')
			Use In crsmarca
		Endif
		*!*		ENDIF
		
		lnrecno = popers.id_salariat
		*!*	modificare	v 2.0.0
		*!*	*!*	modificare	v 1.0.49
		*!*	*!*		This.cus_odata_opers1.salvare(popers,popers.id_salariat)
		*!*	If This.cus_odata_opers1.salvare(popers,popers.id_salariat)
		*!*		*!*	modificare	v 1.0.49	^
		*!*		This.actualizeaza_grid1()
		*!*		*!*	ELSE
		*!*		*!*		lnrecno = popers.id_salariat
		*!*		*!*	ENDIF
		*!*		Thisform.do_readonly()
		*!*		This._GRID1.SetFocus()
		*!*		Select v_personal
		*!*		Locate For id_salariat = lnrecno
		*!*		If Used('registru_temp')
		*!*			Use In registru_temp
		*!*		Endif
		*!*		This.cus_odata_opers1.cactiune=''
		*!*	*!*	modificare	v 1.0.49
		*!*	Endif
		*!*	*!*	modificare	v 1.0.49	^
		*!*	modificare	 ROARES v 2.0.14
		If Thisform.page1.page2.ck_anulare_incetare.Value = 1
			popers.stare_contract = -2
		*!*	nu am nevoie sa le fac null aici pentru ca le fac pe server
		*!*		popers.datalic = Null
		*!*		popers.datainceputs = Null
		Endif
		*!*	modificare	 ROARES v 2.0.14	^
		If !Compobj(popers,popers_orig) or thisform.lpozamodif
			*!*	modificare	ROARES 2.0.4
			thisform.lpozamodif = .f.
			AddProperty(popers,"dataconsemnare",{})
			AddProperty(popers,"tip_modificare",1)
		*!*		modificare ROARES 2.1.0
			AddProperty(popers,"dataactmodif",{})
			AddProperty(popers,"tipactmodif",'')	
			AddProperty(popers,"id_tipact",0)		
			AddProperty(popers,"nractmodif",0)	
			IF This.cus_odata_opers1.cactiune = 'INSERT'
				popers.nractmodif = popers.nrctr
				popers.dataactmodif = popers.datactr
				popers.id_tipact = -99
			ENDIF 	
		*!*		modificare ROARES 2.1.0 ^
		
			If gnEvaluareRevisal5 = 0 ;
				AND gnScrieRegistru = 1	; &&	modificare	ROARES v 2.0.10
				AND Thisform.modificari_revisal(popers,popers_orig)	&& modificare	ROASAL v 2.0.12 / 18.01.2012
		*!*	modificare	ROASAL v 2.0.12 / 18.01.2012 : am adaugat conditia Thisform.modificari_revisal si atunci
		*!*		nu-i mai las posibilitatea sa aleaga "Fara scriere"
		*!*			loFrm = Createobject("frm_salvare_opersonal",popers.stare_contract<>popers_orig.stare_contract)
				loFrm = Createobject("frm_salvare_opersonal",.T.)
		*!*	modificare	ROASAL v 2.0.12 / 18.01.2012	^
		*!*			IIF(EMPTY(NVL(popers.id_stat,0)),.T.,.F.))	-	modificare	ROARES	v 2.0.14
				loFrm.Show(1)
			Else
				gnButon = 1
			Endif
			If gnButon = 2
				Removeproperty(popers,"dataconsemnare")
				Removeproperty(popers,"tip_modificare")
				Removeproperty(popers,"dataactmodif")
				Removeproperty(popers,"id_tipact")	
				Removeproperty(popers,"tipactmodif")	
				Removeproperty(popers,"nractmodif")		
			Else
				*!*	modificare	ROARES 2.0.4	^
				AddProperty(popers,"stare_contract_prec",popers_orig.stare_contract)
				If This.cus_odata_opers1.salvare(popers,popers.id_salariat)
			
					This.actualizeaza_grid1()
					Thisform.do_activeaza(.F.)
					This._GRID1.SetFocus()
					Select v_personal
					Locate For id_salariat = lnrecno
					If Used('registru_temp')
						Use In registru_temp
					Endif
					This.cus_odata_opers1.cactiune=''
				Endif
				*!*	modificare	ROARES 2.0.4
			Endif
			*!*	modificare	ROARES 2.0.4	^
			thisform.nrincarcaripoze = 0
		ELSE
			
				aMESSAGEBOX("Nu ati facut modificari!",48,"Atentie")
		Endif
		*!*	modificare	v 2.0.0	^
	ENDPROC

	PROCEDURE do_sterge
		*!*	modificare	ROASAL v 2.0.14
		IF glLunaInchisa
			Return
		ENDIF
		*!*	modificare	ROASAL v 2.0.14	^
		Select v_personal
		
		*!*	IF MESSAGEBOX('Doriti sa stergeti angajatul '+ ALLTRIM(popers.nume)+' '+ ALLTRIM(popers.prenume),4)=7
		*!*		RETURN
		*!*	ENDIF
		*!*	modificare	ROARES	v 2.0.11
		IF amessagebox("Doriti sa stergeti angajatul "+ALLTRIM(popers.nume)+" "+ALLTRIM(popers.prenume)+" ?"+;
			CRLF + CRLF + "ATENTIE!!! Daca doriti sa incetati contractul, apasati NU si modificati starea contractului de la 'Date angajare'!",4+32,"Confirmare stergere")	=	7
			RETURN
		ENDIF
		*!*	ldDlich = {}
		*!*	Local loForm
		*!*	On Escape loForm.Release
		*!*	loForm = Createobject("frm_termin_renunt")
		*!*	loForm.AddObject("text_item1","_textbox")
		*!*	loForm.Width = 236
		*!*	loForm.Height = 108
		*!*	loForm.but_termin1.Left = 204
		*!*	loForm.lb_titlu_alb_b121.Caption = 'Data lichidarii'
		*!*	loForm.lb_titlu_alb_b121.AutoSize = .T.
		*!*	loForm.text_item1.Left = 48
		*!*	loForm.text_item1.Top = 60
		*!*	loForm.text_item1.ControlSource = 'ldDlich'
		*!*	loForm.text_item1.SpecialEffect = 0
		*!*	loForm.text_item1.BorderStyle = 1
		*!*	loForm.text_item1.Format = 'd'
		*!*	loForm.text_item1.Visible = .T.
		*!*	loForm.text_item1.TabIndex = 1
		*!*	loForm.AutoCenter = .T.
		*!*	loForm.Show(1)
		
		*!*	If buton = 2
		*!*		Return
		*!*	Endif
		
		*!*	If !Empty(ldDlich)
		*!*		popers.datalic = ldDlich
		*!*	Endif
		*!*	modificare	ROARES	v 2.0.11	^
		
		Do STERGE_INREGISTRARE With "opers",popers.id_stat
		This.actualizeaza_grid1()
		Thisform._GRID1.SetFocus()
	ENDPROC

	PROCEDURE do_sterge_atas
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		If Reccount('v_atas')=0
			Return
		Endif
		Select v_atas
		Scatter Name lorec
		
		Do sterge_inregistrare With 'atas',lorec.id_sal_atasamente
		
		Release lorec
		save_grid_tag(Thisform.page1.page10.gridAtasamente)
		poatas.ca_baza1.cfiltru =[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
		poatas.ca_baza1.afisare()
		restore_grid_tag(Thisform.page1.page10.gridAtasamente)
	ENDPROC

	PROCEDURE do_sterge_aviz
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Select v_avize
		Scatter Name lorec
		Do STERGE_INREGISTRARE With "avize",lorec.id_aviz
		save_grid_tag(Thisform.page1.page11.grid3)
		poavize.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
		poavize.ca_baza1.afisare()
		restore_grid_tag(Thisform.page1.page11.grid3)
		
	ENDPROC

	PROCEDURE do_sterge_bazacm
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Select v_bazacm
		Scatter Name lorec
		Do STERGE_INREGISTRARE With "bazacm",lorec.id_bazacm
		save_grid_tag(Thisform.page1.page4.grid3)
		pobazacm.ca_baza1.cfiltru = [id_stat = ] + Alltrim(Str(popers.id_stat))
		pobazacm.ca_baza1.afisare()
		restore_grid_tag(Thisform.page1.page4.grid3)
		
	ENDPROC

	PROCEDURE do_sterge_curs
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		ENDIF
		PRIVATE pniesire
		pniesire = 0
		*!*	modificare	ROASAL v 2.0.14	^
		Select v_curs_calif
		Scatter Name lorec
		Do sterge_inregistrare With 'curs',lorec.id_curs
		If pniesire=1
			save_grid_tag(Thisform.page1.page6.grid3)
				pocurs.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocurs.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page6.grid3)
			Select v_calif
			GO TOP 
		ENDIF
		Release lorec
		
	ENDPROC

	PROCEDURE do_sterge_echip
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		If Reccount('v_echip')=0
			Return
		Endif
		Select v_echip
		Scatter Name lorec
		
		Do sterge_inregistrare With 'echip',lorec.id_echip
		
		Release lorec
	ENDPROC

	PROCEDURE do_sterge_intret
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Select v_nom_intret
		Scatter Name loint
		
		Do sterge_inregistrare With 'intret',loint.id_pers
		
		save_grid_tag(Thisform.page1.page3.grid3)
		pointr.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
		pointr.ca_baza1.afisare()
		restore_grid_tag(Thisform.page1.page3.grid3)
	ENDPROC

	PROCEDURE do_sterge_limba
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		ENDIF
		
		Private pniesire
		pniesire=0
		
		*!*	modificare	ROASAL v 2.0.14	^
		Select v_calif
		Scatter Name lorec
		Do sterge_inregistrare With 'limbi',lorec.id_str
		If pniesire=1
			save_grid_tag(Thisform.page1.page5.grid3)
				pocalif.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocalif.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page5.grid3)
		ENDIF
		Release lorec
	ENDPROC

	PROCEDURE do_sterge_stud
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Select v_studii
		Scatter Name lorec
		Do sterge_inregistrare With 'stud',lorec.id_studiu
		Release lorec
	ENDPROC

	PROCEDURE do_verifica_date
		Local lcMesaj
		Do Case
		*!*		trebuie adaugata coloana cod_ctr in popers si in cautarea de la do_cauta_tipcontract
		*!*		CASE EMPTY(NVL(popers.datasfctr,{})) AND popers.cod_ctr = [ContractUcenicie]
		*!*			lcMesaj = [Contractele de ucenicie nu pot fi pe perioada nedeterminata!]
			*!*	modificare	ROARES v 2.0.8
			CASE !EMPTY(NVL(popers.id_interval_munca,0)) AND popers.id_durata_munca <> 4
				lcMesaj = [Tipul intervalului de repartizare nu trebuie completat pentru norma intreaga!]
			CASE popers.orenorm < popers.fractie
				lcMesaj = [Timpul normal de munca nu poate fi mai mic decat timpul partial!]
			CASE popers.orenorm = popers.fractie AND popers.id_tip_norma = 4	&&	timp partial
				lcMesaj = [Timpul normal de munca nu poate fi egal cu timpul partial!]
			*!*	modificare	ROARES v 2.0.8	^	
			CASE UPPER(popers.codcetatenie) = [ALTA] AND popers.id_tipapatrid = 1 AND EMPTY(NVL(popers.id_tipautorizatie,0)) 
				lcMesaj = [Nu ati completat tipul autorizatiei de munca! ( pagina "Documente" )]
			CASE UPPER(popers.codcetatenie) = [ALTA] AND popers.id_tipapatrid = 1 AND EMPTY(NVL(popers.datainceputautorizatie,{})) ;
				AND popers.id_tipautorizatie <> 9  && "Exceptie" modificare	v 2.0.17
				lcMesaj = [Nu ati completat data de inceput a autorizatiei! ( pagina "Documente" )]
			CASE UPPER(popers.codcetatenie) = [ALTA] AND popers.id_tipapatrid = 1 AND EMPTY(NVL(popers.datasfarsitautorizatie,0)) ;
				AND popers.id_tipautorizatie <> 9  && "Exceptie" modificare	v 2.0.17
				lcMesaj = [Nu ati completat data de sfarsit a autorizatiei! ( pagina "Documente" )]			
			CASE UPPER(popers.codcetatenie) <> [ALTA] AND !EMPTY(NVL(popers.id_tipautorizatie,0))
				lcMesaj = [Tipul autorizatiei de munca nu trebuie completat! ( pagina "Documente" )]
			CASE UPPER(popers.codcetatenie) <> [ALTA] AND !EMPTY(NVL(popers.datainceputautorizatie,{}))
				lcMesaj = [Data de inceput a autorizatiei nu trebuie completata! ( pagina "Documente" )]
			CASE UPPER(popers.codcetatenie) <> [ALTA] AND !EMPTY(NVL(popers.datasfarsitautorizatie,0))
				lcMesaj = [Data de sfarsit a autorizatiei nu trebuie completata! ( pagina "Documente" )]
			Case popers_orig.stare_contract = 2 And popers.stare_contract = 1 ;
					AND popers.datainceputs < popers_orig.datainceputs
				lcMesaj = [Data reactivarii trebuie sa fie mai mare sau egala cu data incetarii (] + DTOC(popers_orig.datainceputs)+ [) !]
			Case popers_orig.stare_contract = 3 And popers.stare_contract = 1 ;
					AND popers.datainceputs > popers_orig.datasfarsits+1
				lcMesaj = [Data incetarii suspendarii trebuie sa fie mai mica sau egala cu data de sfarsit a suspendarii (] + DTOC(popers_orig.datasfarsits)+ [) !]
			Case popers_orig.stare_contract = 4 And popers.stare_contract = 1 ;
					AND popers.datainceputs > popers_orig.datasfarsits
				lcMesaj = [Data incetarii detasarii trebuie sa fie mai mica sau egala cu data de sfarsit a detasarii (] + DTOC(popers_orig.datasfarsits)+ [) !]
			*!*	modificare	ROARES v 2.0.7
			CASE INLIST(popers.stare_contract,3,4) AND popers.datainceputs > popers.datasfarsits
				lcMesaj = [Data de inceput nu poate fi mai mare decat data de sfarsit!]	
			CASE popers_orig.stare_contract = 4 AND popers.stare_contract = 3 ;
					and (!BETWEEN(popers.datainceputs,popers_orig.datainceputs,popers_orig.datasfarsits) or ;
					!BETWEEN(popers.datasfarsits,popers_orig.datainceputs,popers_orig.datasfarsits))
				lcMesaj = [Perioada de suspendare nu poate fi in afara perioadei de detasare (] + DTOC(popers_orig.datainceputs)+ [-] + ;
					DTOC(popers_orig.datasfarsits)+ [) !]
			*!*	modificare	ROARES v 2.0.7	^	
			*!*	modificare	ROARES v 2.0.14
			CASE popers_orig.stare_contract = 2 AND popers.stare_contract <> 2 AND Thisform.page1.page2.ck_anulare_incetare.Value = 1
				lcMesaj = [Nu puteti reactiva contractul si anula incetarea simultan!] + CRLF + ;
					[Reactivarea este bazata pe un temei legal, in timp ce anularea incetarii se face daca a fost incetat contractul in mod eronat.]
			*!*	modificare	ROARES v 2.0.14	^	
			Otherwise
				lcMesaj = []
		Endcase
		If !Empty(lcMesaj)
			amessagebox(lcMesaj,48,"Atentie")
			Return .F.
		Else
			Return .T.
		Endif
		
	ENDPROC

	PROCEDURE do_writeonly
		*!*	modificare ROASAL	v 2.0.0
		*!*	Thisform.do_butoane_stare(.F.)
		*!*	Dimension lapagini[6,3]			&&array pagini   [1,1] - nr text initial, [1,2]- nr text final, [1,3] - nr pagina
		*!*	lapagini[1,1]=1
		*!*	lapagini[1,2]=25
		*!*	lapagini[1,3]=1
		
		*!*	lapagini[2,1]=26
		*!*	lapagini[2,2]=53
		*!*	lapagini[2,3]=2
		
		*!*	lapagini[3,1]=51
		*!*	lapagini[3,2]=54
		*!*	lapagini[3,3]=3
		
		*!*	lapagini[4,1]=55
		*!*	lapagini[4,2]=55
		*!*	lapagini[4,3]=5
		
		*!*	lapagini[5,1]=56
		*!*	lapagini[5,2]=65
		*!*	lapagini[5,3]=7
		
		*!*	lapagini[6,1]=65
		*!*	lapagini[6,2]=70		&&	modificare	v 1.0.49 : 69 
		*!*	lapagini[6,3]=8
		
		*!*	Local ladim,lni,lnf
		*!*	ladim = Alen(lapagini,1)		&&nr de pagini configurate pt refresh
		
		*!*	For i=1 To ladim
		*!*		For j = lapagini[i,1] To lapagini[i,2]
		*!*			If j=31
		*!*				Loop	&&sectia
		*!*			Endif
		*!*			lcr = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.readonly=.F.'
		*!*			lcre = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.refresh'
		*!*			&lcr
		*!*			&lcre
		*!*		Endfor
		*!*	Endfor
		*!*	modificare ROASAL	v 2.0.0	^
	ENDPROC

	PROCEDURE eticheta
		LPARAMETERS tnmarca,tcnume,tcprenume
		
		IF PCOUNT()=0
			this.clienttoptabs1._container1.lblHeader.Caption="Angajat nou"
		ELSE 
			IF EMPTY(tcnume)
				tcnume=''
			ENDIF 
			IF EMPTY(tcprenume)
				tcprenume=''
			ENDIF 	
			IF EMPTY(tcnume) AND EMPTY(tcprenume)
				this.clienttoptabs1._container1.lblHeader.Caption="Angajat nou"
			ELSE 	
		
				this.clienttoptabs1._container1.lblHeader.Caption=ALLTRIM(STR(tnmarca))+" - "+ALLTRIM(tcnume)+" "+ALLTRIM(tcprenume)+;
																  ' ;  '+'Număr angajați selectați: '+ALLTRIM(STR(thisform.nrang,5,0))	+ ' - Activi:' +ALLTRIM(STR(thisform.nrangactivi,5,0))
				
			ENDIF 	
		ENDIF 
			this.clienttoptabs1._container1.lblHeader.refresh	
	ENDPROC

	PROCEDURE Init
		DoDefault()
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Thisform.but_modiparam1.Visible = .F.	&&	modificare	ROARES v 2.0.21
			Thisform.but_noup1.Visible = .F.
			Thisform.but_nou1.Visible = .F.
			Thisform.but_modifica1.Visible = .F.
			Thisform.but_sterge1.Visible = .F.
			With Thisform.page1.page3
				.but_nou1.Visible = .F.
				.but_nou2.Visible = .F.
				.but_modifica1.Visible = .F.
				.but_modifica2.Visible = .F.
				.but_sterge1.Visible = .F.
				.but_sterge2.Visible = .F.
			Endwith
			With Thisform.page1.page4
				.but_nou1.Visible = .F.
				.but_modifica1.Visible = .F.
				.but_sterge1.Visible = .F.
			Endwith
			With Thisform.page1.page5
				.but_nou1.Visible = .F.
				.but_modifica1.Visible = .F.
				.but_sterge1.Visible = .F.
			Endwith
			With Thisform.page1.page6
				.but_nou1.Visible = .F.
				.but_nou2.Visible = .F.
				.but_modifica1.Visible = .F.
				.but_modifica2.Visible = .F.
				.but_sterge1.Visible = .F.
				.but_sterge2.Visible = .F.
			Endwith
			With Thisform.page1.page9
				.but_nou1.Visible = .F.
				.but_modifica1.Visible = .F.
				.but_sterge1.Visible = .F.
			Endwith
			With Thisform.page1.page10
				.but_nou1.Visible = .F.
				.but_sterge1.Visible = .F.
			Endwith
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		*!*	modificare	ROASAL v 2.0.0
		thisform.laccesmodif = Thisform.but_modifica1.Visible
		
		Bindevent(Thisform.page1.page2.opt_stare_contract,"InteractiveChange",Thisform,"do_modifica_stare",1)
		Bindevent(Thisform.page1.page2.opt_stare_contract,"Refresh",Thisform,"do_actualizeaza_stare",1)
		*!*	modificare	ROASAL v 2.0.0	^
		*!*	modificare	ROARES	v 2.0.14
		Thisform._GRID1.SetAll("DynamicBackColor","IIF(stare_contract=2,RGB(180,180,180),IIF(stare_contract=3,RGB(242,183,138),IIF(stare_contract=4,RGB(158,252,201),RGB(255,255,255))))","Column")
		*!*	modificare	ROARES	v 2.0.14	^
		Thisform.verifica_parteneri()
		Select v_personal
		
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		DODEFAULT(nKeyCode, nShiftAltCtrl)
		
		*!*	LOCAL lcSelect
		*!*	STORE '' TO lcSelect 
		*!*	lcSelect = ALIAS()
		DO CASE 
			Case nKeyCode = 28  And nShiftAltCtrl=0	
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab1)
				thisform.page1.page1.tx2.SetFocus()
			CASE nKeyCode = -1  And nShiftAltCtrl=0
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab2)
				thisform.page1.page2.tx26.SetFocus()
			CASE nkeycode = -2  And nShiftAltCtrl=0
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab3)
				thisform.page1.page3.Ct_cb_stareciv.SetFocus()			&&	modificare	ROARES v 2.0.8
			CASE nkeycode = -3  And nShiftAltCtrl=0
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab4)
			CASE nkeycode = -4  And nShiftAltCtrl=0
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab5)	
			CASE nkeycode = -5  And nShiftAltCtrl=0
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab6)	
			CASE nkeycode = -6  And nShiftAltCtrl=0
				NODEFAULT 
				thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab7)				
		OTHERWISE 
		ENDCASE 		
		
		IF nKeyCode=17 And nShiftAltCtrl=2 
			Nodefault
			If TYPE('this.caut_nou1._COMBOBOX1')="O"
				this.caut_nou1._COMBOBOX1.SetFocus()
			ENDIF
		ENDIF 		
		*!*	SELECT &lcSelect
	ENDPROC

	PROCEDURE make_crsatasamente
		Parameters tlToate
		
		Private poLink
		Store '' To poLink
		
		Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
		lcSchema = [id_sal_atasamente N(5), descriere c(50), nume_atasament c(200), atasament w, data_doc d,nr_doc n(50),id_persoana N(5), marca n(5), id_utilizator  n(100) ]
		
		lcSelect = [select id_sal_atasamente, descriere,data_doc,nr_doc, nume_atasament,id_persoana,marca,id_utilizator]+;
			[ from SAL_ATASAMENTE ]
		
		lcOrder = [nume_atasament,descriere,data_doc,nr_doc]
		lcgroup = []
		lcFiltru = []
		
		llModParam = .T.
		llAfiseaza = .F.
		
		GENCURSOR('poLink','crsAtasamente', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza,  lcgroup, llModParam, lcFiltruOriginal)
		poLink.ca_baza1.afisare()
		
		
	ENDPROC

	PROCEDURE modificari_revisal
		Lparameters popers,popers_orig
		*!*	modificare	v 2.0.12	:	verific campurile care se scriu in Revisal ca sa nu-mi apara fereastra cu tipul modificarii
		*!*			decat doar daca se schimba vreunul dintre aceste campuri
		Local llReturn
		llReturn = Nvl(popers.nume,[]) <> Nvl(popers_orig.nume,[]) Or ;
			NVL(popers.prenume,[]) <> Nvl(popers_orig.prenume,[]) Or ;
			NVL(popers.codpers,[]) <> Nvl(popers_orig.codpers,[]) Or ;
			NVL(popers.id_part,0) <> Nvl(popers_orig.id_part,0) Or ;
			NVL(popers.sector,0) <> Nvl(popers_orig.sector,0) Or ;
			NVL(popers.strada,[]) <> Nvl(popers_orig.strada,[]) Or ;
			NVL(popers.numar,[]) <> Nvl(popers_orig.numar,[]) Or ;
			NVL(popers.Bloc,[]) <> Nvl(popers_orig.Bloc,[]) Or ;
			NVL(popers.scara,[]) <> Nvl(popers_orig.scara,[]) Or ;
			NVL(popers.etaj,[]) <> Nvl(popers_orig.etaj,[]) Or ;
			NVL(popers.apart,[]) <> Nvl(popers_orig.apart,[]) Or ;
			NVL(popers.codpostal,[]) <> NVL(popers_orig.codpostal,[]) Or ;
			NVL(popers.id_nationalit,1) <> Nvl(popers_orig.id_nationalit,1) Or ;
			popers.id_meserie <> popers_orig.id_meserie Or ;
			popers.dataang <> popers_orig.dataang Or ;
			NVL(popers.datalic,{}) <> Nvl(popers_orig.datalic,{}) Or ;
			NVL(popers.datasfctr,{}) <> Nvl(popers_orig.datasfctr,{}) Or ;
			NVL(popers.id_tipctr,0) <> Nvl(popers_orig.id_tipctr,0) Or ;
			popers.nrctr <> popers_orig.nrctr Or ;
			popers.datactr <> popers_orig.datactr Or ;
			popers.tarifar <> popers_orig.tarifar Or ;
			popers.fractie <> popers_orig.fractie Or ;
			popers.orenorm <> popers_orig.orenorm Or ;
			NVL(popers.id_judet,0) <> Nvl(popers_orig.id_judet,0) Or ;
			popers.id_loc <> popers_orig.id_loc Or ;
			popers.id_cetatenie <> popers_orig.id_cetatenie Or ;
			NVL(popers.id_tip_act,0) <> Nvl(popers_orig.id_tip_act,0) Or ;
			popers.stare_contract <> popers_orig.stare_contract Or ;
			NVL(popers.datainceputs,{}) <> Nvl(popers_orig.datainceputs,{}) Or ;
			NVL(popers.datasfarsits,{}) <> Nvl(popers_orig.datasfarsits,{}) Or ;
			NVL(popers.dataincetares,{}) <> Nvl(popers_orig.dataincetares,{}) Or ;
			NVL(popers.id_parts,0) <> Nvl(popers_orig.id_parts,0) Or ;
			NVL(popers.id_taras,0) <> Nvl(popers_orig.id_taras,0) Or ;
			NVL(popers.id_temeis,0) <> Nvl(popers_orig.id_temeis,0) Or ;
			NVL(popers.id_tipautorizatie,0) <> Nvl(popers_orig.id_tipautorizatie,0) Or ;
			NVL(popers.datainceputautorizatie,{}) <> Nvl(popers_orig.datainceputautorizatie,{}) Or ;
			NVL(popers.datasfarsitautorizatie,{}) <> Nvl(popers_orig.datasfarsitautorizatie,{}) Or ;
			NVL(popers.id_stare_ctr,0) <> Nvl(popers_orig.id_stare_ctr,0) Or ;
			popers.id_tip_norma <> popers_orig.id_tip_norma Or ;
			popers.id_durata_munca <> popers_orig.id_durata_munca Or ;
			popers.id_repartizare_munca <> popers_orig.id_repartizare_munca Or ;
			NVL(popers.id_interval_munca,0) <> Nvl(popers_orig.id_interval_munca,0) or ;
			NVL(popers.id_tipapatrid,0) <> Nvl(popers_orig.id_tipapatrid,0)
		Return llReturn
	ENDPROC

	PROCEDURE modifica_copil
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		Private pniesire
		pniesire=0
		Select v_copii
		Scatter Name loRec 
		
		Do Adauga_Modifica_Inregistrare With "familie1",loRec,lorec.id_copil,"UPDATE",,"addcopii"
		If pniesire=1
			save_grid_tag(Thisform.page1.page3.grid1)				&&grid v_copii
				pocop.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
				pocop.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page3.grid1)
		Endif
	ENDPROC

	PROCEDURE refresh_pagini
		Lparameters tnPagina
		*!*	modificare	ROARES v 2.0.8
		Local lnPagina, loPagina
		lnPagina = tnPagina
		loPagina = Evaluate([Thisform.page1.page]+Alltrim(Str(lnPagina)))
		With loPagina
			For i = 1 To .Objects.Count
				Do Case
					Case INLIST(Upper(.Objects(i).Class),[_TXBASE],[_TEXTBOX],[COMBOBOX],[_CBBASE],[CT_CB_TX],[CHECKBOX])
						.Objects(i).Refresh()
					Case Upper(.Objects(i).Class) = [CT_CLB_CAUTARE_VAR]
						.Objects(i).tx_cautare.Refresh()
					Case Upper(.Objects(i).Class) = [CT_CLB_CAUTARE]
						.Objects(i).clb_tx_cautare.text_simplu1.Refresh()
					Otherwise
						** nimic
				Endcase
			Endfor
			Do Case
				Case lnPagina = 1
				
				lcSQl = [select numefis from sal_legitimatii where id_salariat = ]+ Alltrim(Str(popers.id_salariat)) 
						lnSucces = goExecutor.oExecute(lcSQl,'crsFisierLegitimatie')
					If lnSucces < 0
						amessagebox(goExecutor.cEroare,16,"Eroare")
						RETURN 
					ENDIF 	
					SELECT crsFisierLegitimatie
					SCATTER NAME logelit
		
					IF !EMPTY(logelit.numefis) AND !ISNULL(logelit.numefis)
								lcCalePozaServer = GetPozaFile(ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(logelit.numefis))
		
						.imAGE1.picture = lcCalePozaServer 
						.imAGE1.Height = 121
						.imAGE1.Width = 109
						.imAGE1.Stretch= 1		
						
					ELSE 
									.imAGE1.picture = '' 
						.imAGE1.Height = 121
						.imAGE1.Width = 109
						.imAGE1.Stretch= 1		
					ENDIF 
								If Used('crsFisierLegitimatie')
						Use In crsFisierLegitimatie
					ENDIF	
					.refresh()
				Case lnPagina = 2
					.opt_stare_contract.Value = popers.stare_contract
					.lb_simplu9.Caption = Nvl(popers.modlic,[])
					.opt_stare_contract.Refresh()
					.opt_oug114.Refresh()
					IF pnCalendarOug114 = 1
						.lb_simplu1.visible = .t.
						
						.opt_oug114.visible = .t.
					ELSE 
						.lb_simplu1.visible = .f.
						.opt_oug114.visible = .f.
					ENDIF 
					Thisform.do_actualizeaza_nom_norme()
					If popers.somaj_tehnic = 1
						.tx52.Visible = .T.
						.tx53.Visible = .T.
						.lb_simplu4.Visible = .T.
						.lb_simplu5.Visible = .T.
					Else
						.tx52.Visible = .F.
						.tx53.Visible = .F.
						.lb_simplu4.Visible = .F.
						.lb_simplu5.Visible = .F.
					Endif
				Case lnPagina = 3
					save_grid_tag(.grid3)				&&grid v_nom_intret
					pointr.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
					pointr.ca_baza1.afisare()
					restore_grid_tag(.grid3)
		
					save_grid_tag(.grid1)				&&grid v_copii
					pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
					pocop.ca_baza1.afisare()
					restore_grid_tag(.grid1)
					Local  lncopii
					lncopii = 0
					Select v_copii
					Calculate Count(id_copil) To lncopii
					.txcopii.Value=lncopii
					.txcopii.Refresh()
				Case lnPagina = 4
					save_grid_tag(.grid3)
					pobazacm.ca_baza1.cfiltru = [id_stat = ] + Alltrim(Str(popers.id_stat))
					pobazacm.ca_baza1.afisare()
					restore_grid_tag(.grid3)
				Case lnPagina = 5
					save_grid_tag(.grid3)
					pocalif.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
					pocalif.ca_baza1.afisare()
					restore_grid_tag(.grid3)
				Case lnPagina = 6								&& 6
					save_grid_tag(.grid3)
					pocurs.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
					pocurs.ca_baza1.afisare()
					restore_grid_tag(.grid3)
		
					save_grid_tag(.grid1)
					postud.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
					postud.ca_baza1.afisare()
					restore_grid_tag(.grid1)
				Case lnPagina = 7
					Thisform.vechimeal
				Case lnPagina = 8
					save_grid_tag(.grid1)
					poact.ca_baza1.cfiltru = [angajatid = ] +Iif(Empty(Alltrim(popers.codpers)),'0',Alltrim(popers.codpers))
					poact.ca_baza1.afisare()
					restore_grid_tag(.grid1)
					If popers.id_tipapatrid = 1 OR popers.id_cetatenie <> 1 
						* persoanele apatride cu drept de sedere sau persoanele cu cetatenie <> ROMANA completeaza Tip Autorizare in pagina Documente
		*!*				If Upper(popers.codcetatenie) = [ALTA]
						.ct_clb_tipautorizatie.visible = .T.
						.lb_simplu3.visible = .T.
						.tx72.visible = .T.
						.tx73.visible = .T.
					else
						.ct_clb_tipautorizatie.visible = .F.
						.lb_simplu3.visible = .F.
						.tx72.visible = .F.
						.tx73.visible = .F.
					Endif
				Case lnPagina = 9
					save_grid_tag(.grid3)
					poechip.ca_baza1.cfiltru = [id_part = ] + Alltrim(Str(popers.id_part))
					poechip.ca_baza1.afisare()
					restore_grid_tag(.grid3)
				Case lnPagina = 10
					save_grid_tag(.gridAtasamente)
					poatas.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
					poatas.ca_baza1.afisare()
					restore_grid_tag(.gridAtasamente)
				Case lnPagina = 11
					save_grid_tag(.grid3)				&&grid v_avize
					poavize.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
					poavize.ca_baza1.afisare()
					restore_grid_tag(.grid3)			
				Otherwise
					Return
			Endcase
		Endwith
		*!*	Local lnpage
		*!*	lnpage = tnpag
		*!*	lni=0
		*!*	lnf=0
		*!*	Do Case
		*!*		Case lnpage=1								&& 1
		*!*			lni = 1										&&lni = primul textbox de pe pagina activa
		*!*			lnf = 25									&&lnf = ultimul textbox de pe pagina activa
		*!*			lcpag = 'thisform.page1.page1.tx'
		*!*			*!*	lcr = 'thisform.page1.page1.tx' + ALLTRIM(STR(1))+'.setfocus()'
		*!*			*!*	&lcr
		*!*			*!*
		*!*		Case lnpage=2								&& 2
		*!*			lni=26
		*!*			*!*		modificare	v 2.0.0
		*!*	*!*			lnf=53
		*!*			lnf=55
		*!*			Thisform.page1.page2.opt_stare_contract.Value = popers.stare_contract
		*!*			Thisform.page1.page2.lb_simplu9.Caption = NVL(popers.modlic,[])
		*!*			Thisform.page1.page2.opt_stare_contract.refresh()
		*!*			*!*		modificare	v 2.0.0	^
		*!*			lcpag = 'thisform.page1.page2.tx'
		*!*			If popers.somaj_tehnic = 1
		*!*				Thisform.page1.page2.tx52.Visible = .T.
		*!*				Thisform.page1.page2.tx53.Visible = .T.
		*!*				Thisform.page1.page2.lb_simplu4.Visible = .T.
		*!*				Thisform.page1.page2.lb_simplu5.Visible = .T.
		*!*			Else
		*!*				Thisform.page1.page2.tx52.Visible = .F.
		*!*				Thisform.page1.page2.tx53.Visible = .F.
		*!*				Thisform.page1.page2.lb_simplu4.Visible = .F.
		*!*				Thisform.page1.page2.lb_simplu5.Visible = .F.
		*!*			Endif
		*!*		Case lnpage=3							    && 3
		*!*			lni = 51
		*!*			lnf = 54
		*!*			lcpag = 'thisform.page1.page3.tx'
		*!*			save_grid_tag(Thisform.page1.page3.grid3)				&&grid v_nom_intret
		*!*			pointr.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
		*!*			pointr.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page3.grid3)
		*!*			save_grid_tag(Thisform.page1.page3.grid1)				&&grid v_copii
		*!*			pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
		*!*			pocop.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page3.grid1)
		*!*			Local  lncopii
		*!*			lncopii = 0
		*!*			Select v_copii
		*!*			Calculate Count(id_copil) To lncopii
		*!*			Thisform.page1.page3.txcopii.Value=lncopii
		*!*			Thisform.page1.page3.txcopii.Refresh
		*!*		Case lnpage = 4								&& 4
		*!*			save_grid_tag(Thisform.page1.page4.grid3)
		*!*			pobazacm.ca_baza1.cfiltru = [id_stat = ] + Alltrim(Str(popers.id_stat))
		*!*			pobazacm.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page4.grid3)
		*!*		Case lnpage = 5								&& 5
		*!*			lni = 55
		*!*			lnf = 55
		*!*			lcpag = 'thisform.page1.page5.tx'
		*!*			save_grid_tag(Thisform.page1.page5.grid3)
		*!*			pocalif.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
		*!*			pocalif.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page5.grid3)
		*!*		Case lnpage = 6								&& 6
		*!*			save_grid_tag(Thisform.page1.page6.grid3)
		*!*			pocurs.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
		*!*			pocurs.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page6.grid3)
		
		*!*			save_grid_tag(Thisform.page1.page6.grid1)
		*!*			postud.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
		*!*			postud.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page6.grid1)
		*!*		Case lnpage = 7
		*!*			lni = 56
		*!*			lnf = 65
		*!*			Thisform.vechimeal
		*!*			lcpag = 'thisform.page1.page7.tx'
		*!*		Case lnpage=8								&& 8
		*!*			lni=65
		*!*			lnf=73		&&	modificare	v 2.0.0 : 70 ; v 1.0.49 : 69
		*!*			lcpag = 'thisform.page1.page8.tx'
		*!*			save_grid_tag(Thisform.page1.page8.grid1)
		*!*			poact.ca_baza1.cfiltru = [angajatid = ] +Iif(Empty(Alltrim(popers.codpers)),'0',Alltrim(popers.codpers))
		*!*			poact.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page8.grid1)
		*!*		Case lnpage=9								&& 9
		*!*			save_grid_tag(Thisform.page1.page9.grid3)
		*!*			poechip.ca_baza1.cfiltru = [id_part = ] + Alltrim(Str(popers.id_part))
		*!*			poechip.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page9.grid3)
		*!*		Case lnpage=10
		*!*			save_grid_tag(Thisform.page1.page10.gridAtasamente)
		*!*			poatas.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
		*!*			poatas.ca_baza1.afisare()
		*!*			restore_grid_tag(Thisform.page1.page10.gridAtasamente)
		
		*!*		Otherwise
		*!*			Return
		*!*	Endcase
		*!*	If lni#0							&&daca nu am textbox-uri nu fac nici un refresh la ele
		*!*		For i=lni To lnf
		*!*			lcr = lcpag + Alltrim(Str(i))+'.refresh'
		*!*			&lcr
		*!*		Endfor
		*!*	ENDIF
		*!*	modificare	ROARES v 2.0.8	^
	ENDPROC

	PROCEDURE registru_unic
		Lparameters tnTip
		*!*		CREATE CURSOR registru_temp (tip_operatie c(1),id_criteriu n(5),id_modlic n(5),id_temei n(5),datamod d,explicatie c(254))
		*---------------------------------
		Local lnTipModif,lcoperatie
		If gnscrieregistru=0
			Return
		Endif
		lnTipModif = Thisform.opt_registru   &&1-Modificare;2-Corectie;3-Nu scrie
		If lnTipModif = 3
			*!*		RETURN
			lcoperatie = 'M'
		Else
			lcoperatie = Icase(lnTipModif=1,'M','C')
		Endif
		****Legenda : 1-Functie/Ocupatie ; 2-Incetare Contract ; 3-Tipul Contractului ; 4-Reactivare Contract
		****		  5-Numar/Data Contract ; 6-Loc de munca - Transfer la alta entitate a angajatorului
		****		  7-Date personale
		******verificare date********
		Do Case
			Case tnTip=1
				lReturn = Icase(popers.id_meserie<>poRegAms.id_meserie,.T.,.F.)
			Case tnTip=2
				lReturn = Icase(popers.datalic<>Nvl(poRegAms.datalic,{}),.T.,.F.)
			Case tnTip=3
				*!*	modificare	v 1.0.49	ROARES
				*!*			lReturn = Icase(popers.datasfctr<>Nvl(poRegAms.datasfctr,{}),.T.,;
				*!*				popers.fractie<>poRegAms.fractie,.T.,;
				*!*				popers.id_tipctr<>poRegAms.id_tipctr,.T.,.F.)
				lReturn = Icase(popers.dataang<>Nvl(poRegAms.dataang,{}),.T.,;
					popers.datasfctr<>Nvl(poRegAms.datasfctr,{}),.T.,;
					popers.fractie<>poRegAms.fractie,.T.,;
					popers.id_tipctr<>poRegAms.id_tipctr,.T.,.F.)
				*!*	modificare	v 1.0.49	ROARES	^
			Case tnTip=5
				*!*	modificare	v 1.0.49	ROARES
				*!*			lReturn = Icase(popers.nrctr<>poRegAms.nrctr,.T.,;
				*!*				popers.datactr<>Nvl(poRegAms.datactr,{}),.T.,;
				*!*				popers.nrctrm<>poRegAms.nrctrm,.T.,;
				*!*				popers.datactrm<>Nvl(poRegAms.datactrm,{}),.T.,.F.)
				lReturn = Icase(popers.nrctr<>poRegAms.nrctr,.T.,;
					popers.datactr<>Nvl(poRegAms.datactr,{}),.T.,;
					popers.nrctrm<>poRegAms.nrctrm,.T.,;
					popers.datactrm<>Nvl(poRegAms.datactrm,{}),.T.,.F.)
				*!*	modificare	v 1.0.49	ROARES	^
				Local lndatalic,lndataang,ldDataang
				lndataang=Year(popers.dataang)*12+Month(popers.dataang)
				lndatalic=Year(poRegAms.datalic)*12+Month(poRegAms.datalic)
				ldDataang=popers.dataang
				If popers.dataang>poRegAms.datalic And lndataang=lndatalic
					If aMessagebox('Aceasta persoana a fost incetata! Doriti reangajare?',4,"Confirmare")=6
						lcidstat = popers.id_stat
						lcdata = Date()
						lcSQl = [select * from sal_vnom_pers_tot where id_stat=?lcidstat]
						lcCursor = 'crsReangajare'
						lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
						If lnSucces < 0
							aMessagebox(goExecutor.cEroare,0+16,"Eroare")
						Else
							Thisform.do_adauga()
							Select crsReangajare
							*!*	modificare	ROARES v 2.0.6 : am adaugat "MEMO"
							Scatter Memo Name popers
							Scatter Memo Name popers_orig
							*!*									MESSAGEBOX(popers.id_part)
							popers.datactr = Ttod(datactr)		&&	modificare	v 1.0.49
							popers.dataang=ldDataang
							popers.datalic=Ttod(datalic)
							popers.datasfctr=Ttod(datasfctr)
							popers.datactrm=Ttod(datactrm)
							Local lnpage,lcpage
							lnpage = Thisform.page1.ActivePage
							Thisform.refresh_pagini(lnpage)
							Use In crsReangajare
							Return
						Endif
					Endif
				Endif
			Case tnTip=6
				lReturn = Icase(popers.id_sectie<>poRegAms.id_sectie,.T.,.F.)
			Case tnTip=7
				lReturn = Icase(popers.nume<>poRegAms.nume,.T.,;
					popers.prenume<>poRegAms.prenume,.T.,;
					popers.id_cetatenie<>poRegAms.id_cetatenie,.T.,;
					popers.id_nationalit<>poRegAms.id_nationalit,.T.,;
					popers.id_tip_act<>poRegAms.id_tip_act,.T.,;
					popers.codpers<>poRegAms.codpers,.T.,;
					popers.cmseria<>poRegAms.cmseria,.T.,;
					popers.cmnr<>poRegAms.cmnr,.T.,;
					popers.id_loc<>poRegAms.id_loc,.T.,;
					popers.strada<>poRegAms.strada,.T.,;
					popers.numar<>poRegAms.numar,.T.,;
					popers.Bloc<>poRegAms.Bloc,.T.,;
					popers.scara<>poRegAms.scara,.T.,;
					popers.etaj<>poRegAms.etaj,.T.,;
					popers.apart<>poRegAms.apart,.T.,.F.)
			Otherwise
				lReturn=.F.
		
		Endcase
		
		
		If lReturn = .F.
			Return
		Endif
		******verificare date********
		Private pcDataRegistru,pcExpReg,pnIdModLic,pnIdTemei
		Store '' To pcExpReg
		Store Date() To pcDataRegistru
		Store 0 To pnIdModLic,pnIdTemei
		Local lnOrdine
		lnOrdine=1
		
		
		
		If Inlist(tnTip,1,3,5)
			If !Used('crsModLic')
				lcSQl = [select * from sal_nom_modlic where sters=0]
				lcCursor = [crsModLic]
				lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
		
				If lnSucces < 0
					aMessagebox(goExecutor.cEroare,0+16,"Eroare")
					Return
				Endif
			Endif
		Endif
		If tnTip=2
			If !Used('crsTemei')
				lcSQl = [select * from syn_sal_nom_temei where tip=]+Iif(popers.stare_contract=2,[1],[2])+[ and sters = 0 and id_temei<100]	&&	modificare 10.06.2011 : am adaugat sters = 0
				lcCursor = [crsTemei]
				lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
		
				If lnSucces < 0
					aMessagebox(goExecutor.cEroare,0+16,"Eroare")
					Return
				Endif
			Endif
		Endif
		Local lnOrdine
		Do Case
			Case tnTip=1
				pnIdModLic=1
				Select crsModLic
				oreg = Createobject('frm_modificari_reg')
				oreg.Show(1)
				Release oreg
				lnOrdine=4
			Case tnTip=2
				pnIdModLic=1
				pnIdTemei=1
				Select crsTemei
				oreg = Createobject('frm_incetare_reg')
				oreg.Show(1)
				Release oreg
				lnOrdine=4
		
				*!*	modificare	v 2.0.0
				If gnButon <> 2
					popers.id_temeis = pnIdTemei
					popers.explicaties = pcExpReg
					*!*	modificare	v 2.0.8
					*!*				Thisform.page1.page2.tx47.Refresh()
					Thisform.page1.page2.ct_clb_temei.tx_cautare.Refresh()
					*!*	modificare	v 2.0.8	^
				Endif
		
				pcselect = [select * from ] + gcS + [.sal_nom_modlic]
				pcfiltruinitial=[sters=0]
				pcfiltru = [1=1]
				pcschema = []
				pcorder = [modlic]
				pccoloane = [modlic]
				pcTitlu = [Mod lichidare]
				pcTitluColoane = [Mod]
				locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'sal_modlic',,pcfiltruinitial)
				If buton # 2
					popers.modlic = locauta.modlic
					popers.id_modlic = locauta.id_modlic
				Endif
				*!*	modificare	v 2.0.0	^
		
			Case tnTip=3
				pnIdModLic=1
				Select crsModLic
				oreg = Createobject('frm_modificari_reg')
				oreg.lb_titlu_alb_b121.Caption = 'MODIFICARE TIP CONTRACT'
				oreg.Show(1)
				Release oreg
				lnOrdine=3
			Case tnTip=5
				pnIdModLic=1
				If poRegAms.nrctr>0 And poRegAms.nrctrm>0 And poRegAms.datactrm<>{} ;
						and poRegAms.datactr<>{}		&& ROARES v 1.0.49	:	am adaugat poRegAms.datactr
					Select crsModLic
					oreg = Createobject('frm_modificari_reg')
					oreg.lb_titlu_alb_b121.Caption = 'MODIFICARE NUMAR / DATA CONTRACT'
					oreg.Show(1)
				Endif
				Release oreg
				lnOrdine=2
		
		
			Case tnTip=6
				pnIdModLic=1
				pcExpReg = popers.sectie
				oreg = Createobject('frm_locmunca_reg')
				oreg.Show(1)
				Release oreg
				lnOrdine=5
			Case tnTip=7
				lnOrdine=7
			Otherwise
		
		Endcase
		
		If Used('crsTemei')
			Use In crsTemei
		Endif
		If Used('crsModLic')
			Use In crsModLic
		Endif
		
		Select registru_temp
		pcExpReg = Nvl(pcExpReg,'')
		If tnTip=7
			pcExpReg='Date Personale'
		Endif
		Locate For id_criteriu=tnTip
		If Found()
			Update registru_temp Set tip_operatie=lcoperatie ,id_modlic=pnIdModLic,;
				id_temei=pnIdTemei,datamod=pcDataRegistru,explicatie=pcExpReg,ordine=lnOrdine Where id_criteriu=tnTip
		Else
			Insert Into registru_temp (tip_operatie,id_criteriu,id_modlic,id_temei,datamod,explicatie,ordine);
				VALUES (lcoperatie ,tnTip,pnIdModLic,pnIdTemei,pcDataRegistru,pcExpReg,lnOrdine)
		Endif
		Select registru_temp
	ENDPROC

	PROCEDURE setez_exceptii
		popers.plcas=1
		popers.plsomaj=1
		popers.pensionar=0
		popers.plimpozit=1
		popers.functiebaza=1
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		Thisform.do_activeaza(.F.)	&&	modificare	ROARES	v 2.0.8
		
	ENDPROC

	PROCEDURE sterge_copil
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		Select v_copii
		Scatter Name locop
		
		Do sterge_inregistrare With 'fam',locop.id_copil
		
		save_grid_tag(Thisform.page1.page3.grid1)				&&grid v_copii
		pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
		pocop.ca_baza1.afisare()
		restore_grid_tag(Thisform.page1.page3.grid1)
	ENDPROC

	PROCEDURE upload
		Lparameters tcTabel
		*!*	modificare	ROASAL v 2.0.14
		If glLunaInchisa
			Return
		Endif
		*!*	modificare	ROASAL v 2.0.14	^
		
		If Empty(popers.id_salariat) Or Isnull(popers.id_salariat)
			aMessageBox('Pentru a putea adauga documente unei persoane noi angajate, trebuie salvate mai intai datele persoanei!',0+16,'Atentie')
			Return
		Endif
		Private pcLink, pcDescriere, pcAtas_name, pcAtasament,pnDatadoc,pnNrdoc ,pnIdPers,pnMarca,pnId_atas,pnIesire
		Store 0 To pnId_atas,pnIesire,pnDatadoc,pnNrdoc
		Store "" To pcDescriere, pcAtas_name, pcAtasament, pcLink
		* pcLink - private - folosit in frm_atas_nou
		Local llReturn,lcSql,lnSucces
		llReturn = .T.
		Local lcTabelLinkuri
		Store '' To lcTabelLinkuri
		If !Empty(tcTabel)
			lcTabelLinkuri = Alltrim(tcTabel)
			Select (lcTabelLinkuri)
			Scatter Name poLink Blank Memo
		Else
			Create Cursor crsAtasTemp (id_sal_atasamente N(5), descriere c(50),data_doc d,nr_doc N(5), nume_atasament c(200), atasament w,id_persoana N(5),marca N(5))
			Select crsAtasTemp
			Scatter Name poLink Blank Memo
			Use In crsAtasTemp
		Endif
		poLink.data_doc = Date()
		loan = Createobject("frm_atas_nou")
		loan.orec = poLink
		loan.Show(1)
		If gnButon = 2
			Return
		Endif
		pnIdPers = popers.id_salariat
		pnMarca=popers.marca
		pcDescriere = Upper(Alltrim(poLink.descriere))
		pcAtas_name = Upper(Alltrim(poLink.nume_atasament))
		pnDatadoc = poLink.data_doc
		pnNrdoc = poLink.nr_doc
		If Empty(pcLink)
			Return
		Endif
		pcFisier = Filetostr(pcLink)
		
		
		lnSucces = SQLSetprop(gnhandle,"Transactions",2)
		If lnSucces < 0
			aMessageBox("Programul nu a reusit sa treaca pe tranzactie manuala! Reintrati in program si incercati din nou!",48,"Atentie")
		Else
			lcSql = [insert into sal_atasamente(atasament, nume_atasament, descriere,data_doc,nr_doc,id_persoana,marca, id_utilizator) ]+;
				[values (?pcFisier, ?pcAtas_name, ?pcDescriere,?pnDatadoc,?pnNrdoc,?pnIdPers,?pnMarca,?gnIdUtil) ] + ;
				[ returning id_sal_atasamente into ?@pnId_atas]
			lnSucces = goExecutor.oExecute(lcSql)
			If lnSucces < 0
				aMessageBox(goExecutor.cEroare,0+16,'Eroare')
			Endif
		Endif
		If lnSucces < 0
			lcSql = "ROLLBACK"
		Else
			lcSql = "COMMIT"
		Endif
		lnSucces2 = goExecutor.oExecute(lcSql)
		
		If lnSucces2 < 0
			aMessageBox(lcSql + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
		Endif
		
		lnSucces2 = SQLSetprop(gnhandle,"Transactions",1)
		If lnSucces2 < 0
			aMessageBox('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!',0+48,'Atentie!')
		Else
			If lcSql = "COMMIT"
				If !Empty(lcTabelLinkuri)
					Select (lcTabelLinkuri)
					Append Blank
					Gather Name poLink Memo
					Replace fisier With pcFisier, id_atas With pnId_atas, nume_fisier With pcFis_name, descriere With pcDescriere, dataora With Datetime(), utilizator With gcUserNameApp
				Endif
		
			Endif
		Endif
		
		If pnIesire=1
			save_grid_tag(Thisform.page1.page10.gridAtasamente)
			poatas.ca_baza1.cfiltru =[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
			poatas.ca_baza1.afisare()
			restore_grid_tag(Thisform.page1.page10.gridAtasamente)
		Endif
		
	ENDPROC

	PROCEDURE vechimeal
		WITH thisform.page1.paGE7
		
			IF !EMPTY(popers.vechimei)
				.tx59.Value = FLOOR(popers.vechimei/12)
				.tx60.Value = MOD(popers.vechimei,12)
			ELSE 
				.tx59.value = 0
				.tx60.value = 0
			ENDIF 		
			
			IF !EMPTY(popers.vechime)
				.tx62.Value = FLOOR(popers.vechime/12)
				.tx63.Value = MOD(popers.vechime,12)
			ELSE 
				.tx62.value = 0
				.tx63.value = 0	
			ENDIF 	
			.vechimea.Value=NVL(popers.vechime,0)+12-gnLuna+1
			
			.ania.Value = INT(.vechimea.Value/12)
			
				
			.lunia.Value = MOD(.vechimea.Value,12)	
			
			
			.tx59.refresh
			.tx60.refresh
			.tx61.refresh	
			.tx62.refresh
			.tx63.refresh
			.ania.refresh
			.lunia.refresh
			.vechimea.refresh
			
		ENDWITH 
	ENDPROC

	PROCEDURE verifica_parteneri
		Lparameters tndif
		
		Local lflag
		
		If Pcount()=1
			lflag = verifica_adaugare_parteneri(tndif) &&osalarii_comun
		Else
			lflag = verifica_adaugare_parteneri() &&osalarii_comun
		Endif
		If lflag
			This.but_noup1.Picture= 'NOU_SUS.BMP'
			This.but_noup1.cpictureup='NOU_SUS.BMP'
			This.but_noup1.cpicturedown='NOU_JOS.BMP'
			This.but_noup1.ToolTipText='Exista parteneri (salariati) care nu apar in program!'
		Else
			This.but_noup1.Picture= 'NOU_SUS_DIS.BMP'
			This.but_noup1.cpictureup='NOU_SUS_DIS.BMP'
			This.but_noup1.cpicturedown='NOU_JOS_DIS.BMP'
			This.but_noup1.ToolTipText='Introducere parteneri in program...'
		Endif
		
	ENDPROC

	PROCEDURE Clienttoptabs1.setupactions
		LPARAMETERS tnTabno
		
		thisform.refresh_pagini(tnTabno)
	ENDPROC

	PROCEDURE page1.Page1.Image1.Click
		
		IF this.Parent.tx11.ReadOnly = .f.
		*!*	SET STEP ON 
			LOCAL lcPoza,lcDirector,lcNPoza,lcCalePozaServer,lcSql,lnSucces,lcdipoza,lcPozaren,lcFispoza
		
			lcdipoza = goApp.ReadIni('cale_poza_legitimatie', "pozapath")
			CD &lcdipoza
			PRIVATE pcFisier 
			*!*		lcDirector = ADDBS(calefirma) + "datean\poze"
				lcPoza = GETFILE("bmp,bmp","Alegeti fotografia","Alege",0,"Alegere fotografie")
				IF EMPTY(lcPoza)
					RETURN
				ENDIF
			SET STEP ON 	
				
				lcCalePozaServer = GetPozaFile(ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(lcPoza))
				
				lcPozaren =  ALLTRIM(STR(popers.marca))+[_]+ CHRTRAN(TTOC(DATETIME(),1),'\/:*?" ','')+[.]+JUSTEXT(lcPoza)
				
				lcFispoza = ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(lcPoza)
				IF thisform.nrincarcaripoze = 0
					thisform.lcpozamodif = lcPozaren 
				ENDIF 
		
				lcNPoza = lcCalePozaServer
				
					lcSQl = [ MERGE INTO sal_legitimatii a ]+;
					  [  USING (SELECT ]+ Alltrim(Str(popers.id_salariat)) + [ as id_salariat, ']+;
					          ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(lcPoza) +[' as numefis FROM dual) b ]+;
					  [  ON (a.id_salariat = b.id_salariat  and a.sters = 0) ]+;
					 [ WHEN MATCHED THEN ]+;
					 [   UPDATE SET a.numefis = b.numefis ]+;
					  [WHEN NOT MATCHED THEN ]+;
					  [  INSERT (a.id_salariat, a.numefis) ]+;
					  [  VALUES (b.id_salariat, b.numefis) ]
					
					
					
					lnSucces = goExecutor.oExecute(lcSQl)
				If lnSucces < 0
					amessagebox(goExecutor.cEroare,16,"Eroare")
					RETURN 
				ENDIF 	
					
				
				IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza)) AND FILE(lcNPoza)
					RENAME (lcFispoza) TO  (lcPozaren)
				ENDIF 
				
					IF !FILE(lcNPoza)
		
						IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza))
							COPY FILE (lcPOza) TO  (lcNPoza)
						ENDIF 
					ENDIF 	
					
					
				thisform.page1.page1.imAGE1.picture = lcNpoza
		
				thisform.page1.page1.imAGE1.Height = 121
				thisform.page1.page1.imAGE1.Width = 109
				thisform.page1.page1.imAGE1.Stretch= 1
				thisform.lpozamodif = .t.
				CD &DIRGEN
				thisform.nrincarcaripoze  = thisform.nrincarcaripoze +1
				thisform.Refresh 
				
			ENDIF 
			
		*!*		
		*!*		pcFisier = Filetostr(lcPoza)
		*!*		
		*!*	*!*		[update sal_legitimatii set sters = 0 where id_salariat = ]+ Alltrim(Str(popers.id_salariat))+[;]+
		*!*		lcSQl = 		[ insert into sal_legitimatii (id_salariat,fisier,) ] + ;
		*!*					[values (?popers.id_salariat,?pcFisier) ] 
		*!*					lnSucces = goExecutor.oExecute(lcSQl)
		*!*				If lnSucces < 0
		*!*					amessagebox(goExecutor.cEroare,16,"Eroare")
		*!*				ENDIF 
		
		
		*!*		this.Picture = &lcPoza 
		*!*		this.Refresh 
	ENDPROC

	PROCEDURE page1.Page1.tx1.InteractiveChange
			thisform.eticheta(this.value,popers.nume,popers.prenume)
	ENDPROC

	PROCEDURE page1.Page1.tx1.LostFocus
		IF popers.nrctr=0
			popers.nrctr=popers.marca
		ENDIF 	
	ENDPROC

	PROCEDURE page1.Page1.tx15.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx16.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx17.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx18.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx19.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx2.InteractiveChange
			thisform.eticheta(popers.marca,this.value,popers.prenume)
	ENDPROC

	PROCEDURE page1.Page1.tx2.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx20.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx25.LostFocus
		thisform.KeyPress(-1,0)
	ENDPROC

	PROCEDURE page1.Page1.tx3.InteractiveChange
			thisform.eticheta(popers.marca,popers.nume,this.value)
	ENDPROC

	PROCEDURE page1.Page1.tx3.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page1.tx4.LostFocus
		Local lcCnp, lcCursor, lcSQl, ldDataLicVeche, lnMarca, lnSucces, lna, lnl, lnz
		*:Global popers, popers_orig
		If This.ReadOnly = .T.
			Return
		ENDIF
		* ROASAL 2.1.52
		* Nu validez CNP si nu caut salariat cu CNP daca CNP este gol
		lcCnp = Alltrim(NVL(popers.codpers,''))
		* Se poate pune 13x0 la CNP, sa treaca mai departe, face si alte instructiuni, chiar daca CNP este gol
		*!*	IF EMPTY(m.lcCNP)
		*!*		RETURN .T.
		*!*	ENDIF 
		* ROASAL 2.1.52 ^
		
		*!*	modificare	ROARES v 2.0.8
		If Empty(Nvl(popers.id_salariat,0)) Or ;
				(!Empty(Nvl(popers.id_salariat,0)) And popers.codpers <> popers_orig.codpers)
		*!*	modificare	ROARES v 2.0.8	^
		
		
			If !ValidCNP(Val(lcCnp))
				aMessageBox('CNP-ul nu este valid',0+15,'Atentie')
			Endif
			*!*	modificare v 2.0.16	:	am adaugat and stare_contract <> 2 ( daca e incetat in luna,il las sa adauge un alt contract )
			lcSQl= [select id_stat from sal_vnom_pers where codpers=']+lcCnp+[' and sters=0 and stare_contract <> 2]
			lcCursor = 'v_cnp'
			lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
			If lnSucces < 0
				aMessageBox(goExecutor.cEroare,0+16,"Eroare")
				Return
			ELSE
			&&16.10.2014 -- pot exista mai multe contracte pe o singura persoana
		*!*			If Reccount('v_cnp')>0
		*!*				Select v_cnp
		*!*				Local lnIdstat
		*!*				lnIdstat = id_stat
		*!*				aMessageBox('Acest cnp mai exista in luna curenta!',0,'Atentie!')
		*!*				*!*	modificare	ROASAL v 2.0.0
		*!*				*!*			THISFORM.do_readonly()
		*!*				Thisform.do_activeaza(.F.)
		*!*				*!*	modificare	ROASAL	v 2.0.0	^
		*!*				Thisform.actualizeaza_grid1('id_stat='+Alltrim(Str(lnIdstat)))
		*!*				Select v_personal
		*!*				Locate For id_stat=lnIdstat
		*!*				Thisform._GRID1.SetFocus()
		*!*				Use In v_cnp
		*!*			Else
		&&16.10.2014 -- pot exista mai multe contracte pe o singura persoana
		
					*!*	modificare	v 2.0.11 ROARES : am adaugat si tip 2 pentru cazul in care am un angajat in luna curenta, il sterg,
					*!* dupa care vreau sa-l adaug din nou. El a fost sters din state, dar ramane in personal si imi da eroare cand verific
					*!*	marca
					*!*	aici trebuie modificat atunci cand se va popula sal_contracte pentru ca in sal_stat pot sa am un contract
					*!*	care sa fi avut intr-o luna un numar,iar in alta sa i se fi corectat ( si ar fi trebuit sa aiba acelasi id_sal_ctr pe ambele inreg )
					lcSql = [select 1 as tip,MAX(s.id_stat) as id_stat,MAX(NVL(s.datalic, to_date('01011900', 'DDMMYYYY'))) as datalic,s.id_persoana as id_salariat, ] + ;
						[MAX(s.id_sal_ctr) as id_sal_ctr,to_char(s.nrctr) || '/' || to_char(s.datactr, 'DD.MM.YYYY') as contract,s.datactr ] + ;
						[ from sal_stat s ]+;
						[left join sal_personal pers on s.id_persoana = pers.id_salariat ]+;
						[left join nom_parteneri part on pers.id_part = part.id_part ]+;
						[where part.cod_fiscal= '] + lcCnp + [' and s.sters = 0 and s.an * 12 + s.luna < ] + Alltrim(Str(gnAn)) + [ * 12 + ] + Alltrim(Str(gnLuna)) + [ ] + ;
						[and pers.ID_SALARIAT <> pack_salarii.id_lipsa() ] +;
						[group by id_persoana, datactr, to_char(nrctr) || '/' || to_char(datactr, 'DD.MM.YYYY') ] + ;
						[union all ] + ;
						[select 2 as tip, null as id_stat, to_date('01011900','DDMMYYYY') as datalic, id_salariat,null as id_sal_ctr,null as contract,null as datactr ] + ;
						[from sal_personal where id_part in (select id_part from nom_parteneri where cod_fiscal = '] + lcCnp + [' and sters = 0) and sters = 0]
					*!*	lcSQl= [select MAX(id_stat) as id_stat,MAX(NVL(datalic,to_date('01011900','DDMMYYYY'))) as datalic from sal_vstattot where codpers=']+lcCnp+;
					*!*		[' and sters = 0 and an*12+luna<]+pcan+[*12+]+pcnl+[ and codpers<>0 order by dataang desc]
					*!*	modificare	v 2.0.11 ROARES	^
					lcCursor = 'v_cnp1'
					lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
					If lnSucces < 0
						aMessageBox(goExecutor.cEroare,0+16,"Eroare")
						Return
					Else
						*!*	modificare	ROARES	v 2.0.11
						Local llContinua
						llContinua = RECCOUNT(lcCursor)<>0
						If llContinua
							LOCAL loFrmCnp
							Private pnOptiuneCNPExistent, pnIdStat, pnIdSalariat, pnTip
							Select (lcCursor)
							Go Top
							pnTip = tip
							ldDataLicVeche = datalic	&&	modificare	ROARES	v 2.0.7
							pnIdStat = id_stat
							pnIdSalariat = id_salariat
							Select id_stat,id_sal_ctr,contract,datactr From (lcCursor) Where tip = 1 Order By datactr Desc Into Cursor crsCtrTemp
						*!*	Select v_cnp1
						*!*	ldDataLicVeche = datalic	&&	modificare	ROARES	v 2.0.7
						*!*	If Nvl(id_stat,0)>0
							pnOptiuneCNPExistent = IIF(pnTip = 2,3,1)
						*!*	modificare	ROARES	v 2.0.11	^
							*!*	modificare	ROARES	v 2.0.7
							*!*					IF aMESSAGEBOX('Aceasta persoana a mai fost angajata! Doriti sa copiati datele vechi?',32+4,'Atentie')=6
							*!*	modificare	ROARES v 2.0.11
							*!*	Private pnOptiuneCNPExistent
							*!*	pnOptiuneCNPExistent = 1
							*!*	modificare	ROARES v 2.0.11	^
							loFrmCnp = Createobject("frm_optiuni_cnpexistent",ldDataLicVeche <> Date(1900,1,1),[crsCtrTemp])
							loFrmCnp.Show(1)
							Release loFrmCnp
							USE IN (SELECT('crsCtrTemp'))
							If pnOptiuneCNPExistent <> 1
								*!*						IF gnscrieregistru=0
								*!*							SELECT v_cnp1
								*!*							private lcidstat,lcdata
								*!*							lcidstat = id_stat
								*!*							lcdata = DATE()
								*!*							lcsql = [begin pack_personal.res_reangajare(?gcs,?lcIdStat,?lcdata); end;]
								*!*							lnSucces = goExecutor.oExecute(lcsql)
								*!*							If lnSucces < 0
								*!*								aMessagebox(goExecutor.cEroare,0+16,"Eroare")
								*!*							ELSE
								*!*	*!*	modificare	ROASAL v 2.0.0
								*!*	*!*								thisform.do_readonly()
								*!*								Thisform.do_activeaza(.F.)
								*!*	*!*	modificare	ROASAL	v 2.0.0	^
								*!*								thisform.actualizeaza_grid1([codpers=']+lcCnp+['])
								*!*								SELECT v_personal
								*!*								LOCATE FOR id_stat=lcidstat
								*!*								thisform._GRID1.SetFocus()
								*!*							ENDIF
								*!*						ELSE
								*!*	modificare	ROARES	v 2.0.7	^
								lcSQl = [{call pack_personal.cauta_date_angajat(?pnIdStat,?pnIdSalariat)}]
								lcCursor = 'crsReangajare'
								IF goExecutor.oExecuta(lcSQl,lcCursor)
									Thisform.do_adauga()
									Select crsReangajare
									*!*	modificare	ROARES v 2.0.6 : am adaugat "MEMO"
									lnMarca = popers.marca		&&	modificare	ROARES v 2.0.7
									Scatter Memo Name popers
									Scatter Memo Name popers_orig	&&	modificare	v 2.0.0
									*!*		modificare ROARES v 1.0.54	27.05.2011
									*!*		modificare	ROARES v 2.0.7
									*!*								amessagebox("Doriti sa pastrati datele de mai jos pe noul contract? " + CRLF + ;
									*!*									" * marca" + CRLF + ;
									*!*									" * data angajarii" + CRLF + ;
									*!*									" * data terminarii contractului" + CRLF + ;
									*!*									" * data lichidarii" + CRLF + ;
									*!*									" * numar contract intern" + CRLF + ;
									*!*									" * data contract intern" + CRLF + ;
									*!*									" * numar contract ITM" + CRLF + ;
									*!*									" * data contract ITM",32+4,"Confirmare reangajare")
									ADDPROPERTY(popers,'codcod',popers.cod)
									ADDPROPERTY(popers_orig,'codcod',popers_orig.cod)
									If Inlist(pnOptiuneCNPExistent,2,4)
										*!*		modificare	ROARES v 2.0.7						^
										With popers
											.marca = .marca				&&	modificare	ROARES v 2.0.7
											.datactr = Ttod(.datactr)	&&	modificare	v 1.0.49
											.dataang=Ttod(.dataang)
											.datalic = Null
											.datasfctr=Ttod(.datasfctr)
											.datactrm=Ttod(.datactrm)
											.stare_contract = 1		
											.oug114 = 2						&&	modificare	ROARES v 2.0.7
										Endwith
										*!*		modificare ROARES v 2.0.6
										With popers_orig
											.marca = .marca				&&	modificare	ROARES v 2.0.7
											.datactr = Ttod(.datactr)
											.dataang=Ttod(.dataang)
											.datalic=Ttod(.datalic)
											.datasfctr=Ttod(.datasfctr)
											.datactrm=Ttod(.datactrm)
											*!*		modificare	ROARES v 2.0.7	- reactivare
											If pnOptiuneCNPExistent = 2
												.stare_contract = 2
												Thisform.do_modifica_stare()
											Else
												.stare_contract = 0
											Endif
											*!*		modificare	ROARES v 2.0.7	^
										Endwith
										*!*		modificare ROARES v 2.0.6	^
									Else
										*!*	modificare	ROARES v 2.0.33
										If aMESSAGEBOX("Se pastreaza data incadrarii de pe vechiul contract?",4+32+256,"Confirmare data incadrare")=7
											popers.data_vech = {}
											popers_orig.data_vech = {}
										Endif
										*!*	modificare	ROARES v 2.0.33	^								
										With popers
											.marca = IIF(pnOptiuneCNPExistent = 3 and pnTip = 2,.marca,lnMarca)			
												&&	modificare	ROARES v 2.0.11
												&&	modificare	ROARES v 2.0.7 : lnMarca
											.dataang = {}
											.datasfctr = {}
											.datalic = {}
											.nrctr = Null
											.datactr = {}
											.nrctrmchr = Null
											.datactrm = {}
											*!*		modificare ROARES v 2.0.6
											.stare_contract = 1
											.oug114 = 2	
										Endwith
										With popers_orig
											.marca = IIF(pnOptiuneCNPExistent = 3 and pnTip = 2,.marca,lnMarca)
												&&	modificare	ROARES v 2.0.11
												&&	modificare	ROARES v 2.0.7 : lnMarca
											.dataang = {}
											.datasfctr = {}
											.datalic = {}
											.nrctr = Null
											.datactr = {}
											.nrctrmchr = Null
											.datactrm = {}
											.stare_contract = 0
										Endwith
										*!*		modificare ROARES v 2.0.6	^
									Endif
									*!*								popers.datactr = TTOD(datactr)	&&	modificare	v 1.0.49
									*!*								popers.dataang=TTOD(dataang)
									*!*								popers.datalic=TTOD(datalic)
									*!*								popers.datasfctr=TTOD(datasfctr)
									*!*								popers.datactrm=TTOD(datactrm)
									*!*		modificare ROARES v 1.0.54	27.05.2011	^
									Local lnpage
									lnpage = Thisform.page1.ActivePage
									Thisform.refresh_pagini(lnpage)
									Use In crsReangajare
								Endif
								*!*						ENDIF 	&&	modificare	ROARES v 2.0.7
							Else
								This.Value=0
								This.Refresh()
							Endif
							Release pnOptiuneCNPExistent, pnIdStat, pnIdSalariat, llContinua
							Use In v_cnp1
						Endif
		*!*				Endif
				Endif
				If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
					Thisform.registru_unic(7)
				Endif
		
			Endif
			*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
			If Len(lcCnp)= 13
				lna = Round(Val(Substr(lcCnp,2,2)),0)
				lnl = Round(Val(Substr(lcCnp ,4,2)),0)
				lnz = Round(Val(Substr(lcCnp ,6,2)),0)
				If (lnl >0 And lnl<13) And (lnz>0 And lnz<32)
					If Inlist(Left(lcCnp,1),'1','2')
						Thisform.page1.page1._txbase5.Value = Date(1900+lna,lnl,lnz)
					Else
						If Inlist(Left(lcCnp ,1),'5','6')
							Thisform.page1.page1._txbase5.Value = Date(2000+lna,lnl,lnz)
						Endif
					Endif
				Endif
			Else
				Thisform.page1.page1._txbase5.Value = {}
			Endif
		
			Thisform.page1.page1._txbase5.Refresh
		*!*	modificare	ROARES v 2.0.8
		Endif
		*!*	modificare	ROARES v 2.0.8	^ 
	ENDPROC

	PROCEDURE page1.Page10.But_nou1.LostFocus
		
		
	ENDPROC

	PROCEDURE page1.Page10.gridAtasamente.Column1.Command1.Click
		thisform.arata_linkuri 
		
	ENDPROC

	PROCEDURE page1.Page10.Init
		
		
	ENDPROC

	PROCEDURE page1.Page2.tx26.LostFocus
		If Thisform.cus_odata_opers1.cactiune='UPDATE'
			If This.ReadOnly = .F. ;
					AND Month(popers.dataang)+Year(popers.dataang)*12 <> Month(popers_orig.dataang)+Year(popers_orig.dataang)*12 && modificare ROASAL v 2.0.0
				If Month(popers.dataang)+Year(popers.dataang)*12 <> gnLuna +gnAn*12
					aMESSAGEBOX('Data angajarii nu este din luna in curs!',0+48,'Atentie')
				Endif
			Endif
			If gnEvaluareRevisal5 = 1
		*!*	modificare	ROARES v 1.0.49
		*!*	thisform.registru_unic(5)
				Thisform.registru_unic(3)
		*!*	modificare	ROARES v 1.0.49	^
			Endif
		*!*	modificare	ROASAL	v 2.0.20
		Else
			If Month(popers.dataang)+Year(popers.dataang)*12 <> gnLuna +gnAn*12
				aMESSAGEBOX('Data angajarii nu este din luna in curs!',0+48,'Atentie')
			Endif
		*!*	modificare	ROASAL	v 2.0.20	^
		Endif
	ENDPROC

	PROCEDURE page1.Page2.tx27.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(3)
		Endif
		DoDefault()
		
	ENDPROC

	PROCEDURE page1.Page2.tx40.LostFocus
		If Thisform.cus_odata_opers1.cactiune  = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(3)
		Endif
	ENDPROC

	PROCEDURE page1.Page2.tx41.InteractiveChange
		If popers.id_durata_munca = 3
			popers.fractie = This.Value
			This.Parent.tx40.Refresh()
		Endif
		
	ENDPROC

	PROCEDURE page1.Page2.tx43.LostFocus
		*!*	modificare	v 2.0.9	ROARES
		*!*	If Thisform.cus_odata_opers1.cactiune  = 'UPDATE' ;
		*!*			And ((popers.stare_contract = 2 And popers_orig.stare_contract <> 2) ;
		*!*			OR (popers.stare_contract = 1 AND popers_orig.stare_contract = 2)) ;
		*!*			AND gnEvaluareRevisal5 = 1
		*!*		popers.datalic = popers.datainceputs
		*!*		Thisform.registru_unic(2)
		*!*	ENDIF
		*!*	IF gnEvaluareRevisal5 = 0
		*!*	*!*	modificare	v 2.0.8
		*!*	*!*		Thisform.page1.page2.tx47.SetFocus()
		*!*		Thisform.page1.page2.ct_clb_temei.tx_cautare.SetFocus()
		*!*	*!*	modificare	v 2.0.8	^
		*!*	ENDIF
		*!*	modificare	ROARES v 2.0.14
		*!*	If Inlist(popers.stare_contract,1,2)
		IF this.Parent.opt_stare_contract.Value = 2 AND (MONTH(this.Value) <> gnLuna OR YEAR(this.Value) <> gnAn)
			MESSAGEBOX('Data lichidarii nu este din luna curenta!',0+16,'Atentie!')
			RETURN 
		ENDIF 
		
		If (popers.stare_contract = 1 And popers_orig.stare_contract = 2) Or ;
				(popers.stare_contract = 2 And popers_orig.stare_contract = 1)
			*!*	modificare	ROARES v 2.0.14	^
			Thisform.page1.page2.ct_clb_temei.SetFocus()
		Endif
		*!*	modificare	v 2.0.9	ROARES	^
		
	ENDPROC

	PROCEDURE page1.Page2.tx51.InteractiveChange
		If this.Value = 1
			this.Parent.tx52.Visible = .t.
			this.Parent.tx53.Visible = .t.
			this.Parent.lb_simplu4.Visible = .t.
			this.Parent.lb_simplu5.Visible = .t.
		Else 
			this.Parent.tx52.Visible = .f.
			this.Parent.tx53.Visible = .f.	
			this.Parent.lb_simplu4.Visible = .f.
			this.Parent.lb_simplu5.Visible = .f.
		EndIf 
	ENDPROC

	PROCEDURE page1.Page2.tx54.LostFocus
		Do Case
			Case popers.stare_contract = 3
				*!*	modificare	v 2.0.8
				*!*			Thisform.page1.page2.tx47.SetFocus()
				Thisform.page1.page2.ct_clb_temei.tx_cautare.SetFocus()
			Case popers.stare_contract = 4
				*!*			Thisform.page1.page2.tx48.SetFocus()
				Thisform.page1.page2.ct_clb_detasatla.tx_cautare.SetFocus()
				*!*	modificare	v 2.0.8	^
			Otherwise
				*!* nimic
		Endcase
	ENDPROC

	PROCEDURE page1.Page2.tx67.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
			Thisform.page1.page8.tx67.Refresh()
		Endif
		If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
			Thisform.page1.page8.tx67.Refresh()
		Endif
	ENDPROC

	PROCEDURE page1.Page2.tx68.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
			Thisform.page1.page8.tx68.Refresh()
		ENDIF
		If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
			Thisform.page1.page8.tx68.Refresh()
		Endif
	ENDPROC

	PROCEDURE page1.Page2.tx69.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
		Endif
		*!*	modificare	ROASAL v 2.0.20
		If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
			popers.nrctrmchr = STR(popers.nrctr)
			Thisform.page1.page8.tx67.Refresh()
			Thisform.page1.page2.tx67.Refresh()
		Endif
		*!*	modificare	ROASAL v 2.0.20	^
	ENDPROC

	PROCEDURE page1.Page2.tx70.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
		Endif
		*!*	modificare	ROASAL v 2.0.20
		If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
			popers.datactrm = popers.datactr
			Thisform.page1.page8.tx68.Refresh()
			Thisform.page1.page2.tx68.Refresh()
		Endif
		*!*	modificare	ROASAL v 2.0.20	^
	ENDPROC

	PROCEDURE page1.Page3.txcopii.LostFocus
		thisform.KeyPress(-3,0)
	ENDPROC

	PROCEDURE page1.Page7.tx56.LostFocus
		this.Parent.cmd_executa2.Click 
	ENDPROC

	PROCEDURE page1.Page7.tx58.LostFocus
		IF !EMPTY(this.Value)	
		   this.Parent.tx59.Value = FLOOR(this.Value/12)
		   this.Parent.tx60.Value = MOD(this.Value,12)
		ELSE
			this.Parent.tx59.Value=0   
			this.Parent.tx60.Value=0
		ENDIF    
		thisform.co_calculcoefvechime
	ENDPROC

	PROCEDURE page1.Page7.tx59.LostFocus
		IF !EMPTY(this.Value)	
		   this.Parent.tx58.Value = this.Value*12+this.Parent.tx60.Value
		ELSE
			this.Parent.tx58.Value = this.Parent.tx60.Value
		ENDIF    
		*!*	this.Parent.cmd_executa2.Click 
		thisform.co_calculcoefvechime
	ENDPROC

	PROCEDURE page1.Page7.tx60.LostFocus
		IF !EMPTY(this.Value)	
		   this.Parent.tx58.Value = this.Parent.tx59.Value*12+this.value
		ELSE
			this.Parent.tx58.Value = this.Parent.tx59.Value*12
		ENDIF 
		*!*	this.Parent.cmd_executa2.Click    
		thisform.co_calculcoefvechime
	ENDPROC

	PROCEDURE page1.Page7.tx61.LostFocus
		IF !EMPTY(this.Value)	
		   this.Parent.tx62.Value = FLOOR(this.Value/12)
		   this.Parent.tx63.Value = MOD(this.Value,12)
		ELSE
			this.Parent.tx62.Value=0   
			this.Parent.tx63.Value=0
		ENDIF    
		thisform.co_calculcoefvechime
	ENDPROC

	PROCEDURE page1.Page7.tx62.LostFocus
		IF !EMPTY(this.Value)	
		   this.Parent.tx61.Value = this.Value*12+this.Parent.tx63.Value
		ELSE
			this.Parent.tx61.Value = this.Parent.tx63.Value
		ENDIF    
		*!*	this.Parent.cmd_executa2.Click 
		thisform.co_calculcoefvechime
	ENDPROC

	PROCEDURE page1.Page7.tx63.LostFocus
		IF !EMPTY(this.Value)	
		   this.Parent.tx61.Value = this.Parent.tx62.Value*12+this.value
		ELSE
			this.Parent.tx61.Value = this.Parent.tx62.Value*12
		ENDIF    
		*!*	this.Parent.cmd_executa2.Click 
		thisform.co_calculcoefvechime
	ENDPROC

	PROCEDURE page1.Page8.tx65.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page8.tx66.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(7)
		Endif
	ENDPROC

	PROCEDURE page1.Page8.tx67.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
		Endif
		
	ENDPROC

	PROCEDURE page1.Page8.tx68.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
		Endif
	ENDPROC

	PROCEDURE page1.Page8.tx69.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
		Endif
		*!*	modificare	ROASAL v 2.0.20
		If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
			popers.nrctrm = STR(popers.nrctr)
			Thisform.page1.page8.tx67.Refresh()
		Endif
		*!*	modificare	ROASAL v 2.0.20	^
	ENDPROC

	PROCEDURE page1.Page8.tx70.LostFocus
		If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
			Thisform.registru_unic(5)
		Endif
		*!*	modificare	ROASAL v 2.0.20
		If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
			popers.datactrm = popers.datactr
			Thisform.page1.page8.tx68.Refresh()
		Endif
		*!*	modificare	ROASAL v 2.0.20	^
	ENDPROC

	PROCEDURE _GRID1.AfterRowColChange
		Lparameters nColIndex
		
		Local lnSecolulAnterior, lnSecolulCurent, lna, lnl, lnpage, lnz, ldDataNastere
		*:Global popers, popers_orig
		If Thisform.but_nou1.Visible = .F. ;
				And !glLunaInchisa	&&	modificare	ROASAL v 2.0.14
			Nodefault
			Return
		Endif
		
		lnSecolulCurent = Int(Val(Substr(Alltrim(Str(Year(Date()))), 1, 2))) && 20
		lnSecolulAnterior = m.lnSecolulCurent - 1
		
		Select v_personal
		*!*	modificare	ROARES v 2.0.6 : am adaugat "MEMO"
		Scatter Memo Name popers
		Scatter Memo Name popers_orig		&&	modificare	ROASAL v 2.0.0
		m.ldDataNastere = {}
		If Len(Alltrim(popers.codpers)) = 13
			lna = Val(Substr(Alltrim(popers.codpers), 2, 2))
			lnl = Val(Substr(Alltrim(popers.codpers), 4, 2))
			lnz = Val(Substr(Alltrim(popers.codpers), 6, 2))
		
			If (lnl > 0 And lnl < 13) And (lnz > 0 And lnz < 32)
				If Inlist(Left(Alltrim(popers.codpers), 1), '1', '2')
					ldDataNastere = Date(1900 + lna, lnl, lnz)
				Else
					If Inlist(Left(Alltrim(popers.codpers), 1), '5', '6')
						ldDataNastere = Date(2000 + lna, lnl, lnz)
					Else
						If m.lna < Val(Substr(Str(Year(Date())), 3, 2))
							ldDataNastere = Date(m.lnSecolulCurent * 100 + lna, lnl, lnz)
						Else
							ldDataNastere = Date(m.lnSecolulAnterior * 100 + lna, lnl, lnz)
						Endif
					ENDIF && inlist(5,6)
				ENDIF && inlist (1,2)
			ENDIF && ln1
		ENDIF && 13
		
		Thisform.page1.page1._txbase5.Value = m.ldDataNastere
		
		Thisform.eticheta(popers.marca, popers.nume, popers.prenume)
		lnpage = Thisform.page1.ActivePage				&&nr paginii active
		Thisform.refresh_pagini(lnpage) 				&&refresh pagina
		Select v_personal
		DoDefault(nColIndex)
		
	ENDPROC

	PROCEDURE _GRID1.BeforeRowColChange
		LPARAMETERS nColIndex
		
		If thisform.but_nou1.Visible=.f. ;
			AND !glLunaInchisa	&&	modificare	ROASAL v 2.0.14
			If aMessagebox('Alegand alta persoana modificarile facute se vor pierde!'+Chr(13) + 'Doriti sa reveniti?',4+48,'Atentie!')=6
		*!*			Thisform.page1.page1.tx1.SetFocus()
				Nodefault
				Return
			Else
		*!*	modificare	ROASAL v 2.0.0
		*!*			thisform.do_readonly()
				Thisform.do_activeaza(.F.)		
		*!*	modificare	ROASAL	v 2.0.0	^
				DoDefault(nColIndex)
			Endif
		Endif
		 SELECT v_personal
	ENDPROC

	PROCEDURE _GRID1.Column2.Header1.DblClick
		thisform.corder(this.Parent.ControlSource)
	ENDPROC

	PROCEDURE _GRID1.Column3.Header1.DblClick
		thisform.corder(this.Parent.ControlSource)
	ENDPROC

	PROCEDURE _GRID1.Column5.Header1.DblClick
		thisform.corder(this.Parent.ControlSource)
	ENDPROC

	PROCEDURE _GRID1.Column5.Text1.GotFocus
		*!*	modificare	ROARES v 2.0.21
		DODEFAULT()
		*!*	*!*	this.ReadOnly= .F.
		*!*	thisform.do_col_gotfocus(this.Value)
		*!*	*!*	SELECT v_personal
		*!*	*!*	Thisform.nsumainitial=this.Value
		*!*	*!*	Thisform.nsumamodif =this.Value
		*!*	modificare	ROARES v 2.0.21	^
	ENDPROC

	PROCEDURE _GRID1.Column5.Text1.InteractiveChange
		*!*	modificare	ROARES v 2.0.21
		DODEFAULT()
		*!*	thisform.do_col_interactivechange(this.Value)
		*!*	*!*	this.ReadOnly= .F.
		*!*	*!*	MESSAGEBOX(this.ReadOnly)
		*!*	*!*	Thisform.nsumamodif=this.Value
		*!*	*!*	Thisform.lsalvat=.F.
		*!*	modificare	ROARES v 2.0.21	^
	ENDPROC

	PROCEDURE _GRID1.Column5.Text1.Valid
		*!*	modificare	ROARES v 2.0.21
		DoDefault()
		*!*	thisform.do_col_valid()
		*!*	modificare	ROARES v 2.0.21	^
	ENDPROC

	PROCEDURE _GRID1.Column6.Header1.DblClick
		thisform.corder(this.Parent.ControlSource)
	ENDPROC

	PROCEDURE _shape1.DblClick
		
		IF thisform.WindowState= 2
			thisform.WindowState = 0
		ELSE 
			thisform.WindowState= 2
		ENDIF 		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_optiuni_cnpexistent AS formtermin OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cb_contracte" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccursor
	*</DefinedPropArrayMethod>

	*<PropValue>
		ccursor = 
		DoCreate = .T.
		Height = 145
		Name = "frm_optiuni_cnpexistent"
		Width = 423
		_memberdata = <VFPData>
			<memberdata name="ccursor" display="cCursor"/>
		</VFPData>
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 420
		_shape2.Height = 29
		_shape2.Left = 384
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 39
		Lb_titlu_alb_b121.Caption = "Angajat existent în baza de date"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 5
		BUT_TERMIN1.Left = 390
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ButtonCount = 4, ;
		ControlSource = "pnOptiuneCNPExistent", ;
		Height = 84, ;
		Left = 31, ;
		Name = "_optiongrup1", ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 361, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Nu se copiază datele vechi ( angajat nou )", ;
		Option1.FontCharSet = 238, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.TabIndex = 1, ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Reactivare în baza unui temei legal", ;
		Option2.FontCharSet = 238, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.TabIndex = 2, ;
		Option2.Top = 24, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "Reangajare / Contract nou pe salariat existent", ;
		Option3.FontCharSet = 238, ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.TabIndex = 3, ;
		Option3.Top = 43, ;
		Option3.Width = 268, ;
		Option4.AutoSize = .T., ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "Se copiază datele vechi ( corecție )", ;
		Option4.FontCharSet = 238, ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Name = "Option4", ;
		Option4.TabIndex = 4, ;
		Option4.Top = 62, ;
		Option4.Width = 206
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'cb_contracte' AS _cbbase WITH ;
		BoundTo = .T., ;
		Height = 24, ;
		Left = 252, ;
		Name = "cb_contracte", ;
		Top = 108, ;
		Visible = .F., ;
		Width = 134
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Persoana cu acest CNP a mai fost angajată în firmă. Alegeți o opțiune :", ;
		Left = 13, ;
		Name = "Lb_simplu1", ;
		TabIndex = 6, ;
		Top = 34
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE inainte_de_do_termin
		If Inlist(pnOptiuneCNPExistent,2,4)
			Select (This.cCursor)
			pnIdStat = id_stat
		Else
			pnIdStat = Null
		Endif
	ENDPROC

	PROCEDURE Init
		Lparameters tlLichidat,tcCursor
		DoDefault()
		*!*	modificare	ROARES v 2.0.11 : in caz ca pnOptiuneCNPExistent nu e 1, atunci inseamna
		*!*	ca nu l-am gasit in lunile anterioare, ci doar in luna curenta in sal_personal ( adica
		*!*	a fost introdus o data, a fost sters si acum se incearca adaugarea lui )
		*!*	Thisform._optiongrup1.Buttons[2].Enabled = tlLichidat 	&&	daca nu are data lich. pe ctr. vechi, atunci nu poate fi reactivare
		If pnOptiuneCNPExistent = 1
			Thisform._optiongrup1.Buttons[2].Enabled = tlLichidat 	&&	daca nu are data lich. pe ctr. vechi, atunci nu poate fi reactivare
		Else
			Thisform._optiongrup1.Buttons[2].Enabled = .F.
			Thisform._optiongrup1.Buttons[4].Enabled = .F.
			Thisform._optiongrup1.Buttons[3].Caption = [Se copiază doar datele angajatului]
		Endif
		If !Empty(tcCursor)
			Thisform.cCursor = tcCursor
			If Reccount(Thisform.cCursor) > 0
				Thisform.cb_contracte.RowSource = Thisform.cCursor + [.contract]
				Thisform.cb_contracte.RowSourceType = 6
				Thisform.cb_contracte.Value = Evaluate(Thisform.cCursor + [.contract])	&&	modificare	ROARES v 2.0.33
			Endif
		Endif
		*!*	modificare	ROARES v 2.0.11	^
		
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode=6 And nShiftAltCtrl=2 && CTRL + F
			Nodefault
			This.do_termin()
		Else
			Nodefault
		Endif
	ENDPROC

	PROCEDURE _optiongrup1.InteractiveChange
		Do Case
			Case This.Value = 2
				Thisform.cb_contracte.Visible = .T.
				Thisform.cb_contracte.Top = 69
			Case This.Value = 4
				Thisform.cb_contracte.Visible = .T.
				Thisform.cb_contracte.Top = 108
			Otherwise
				Thisform.cb_contracte.Visible = .F.
		Endcase
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_redeschidere AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="redOpt" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="page_detalii.Page2.Lb_simplu1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 302
		Name = "frm_redeschidere"
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 313
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 58
		Lb_titlu_alb_b121.Caption = "Redeschidere de luna"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Name = "But_renunt1"
	*</PropValue>

	ADD OBJECT 'page_detalii' AS _pageframe WITH ;
		ActivePage = 2, ;
		ErasePage = .T., ;
		Height = 258, ;
		Left = 125, ;
		Name = "page_detalii", ;
		PageCount = 2, ;
		TabOrientation = 0, ;
		Tabs = .T., ;
		TabStretch = 1, ;
		TabStyle = 0, ;
		Top = 39, ;
		Width = 247, ;
		Page1.BackColor = 242,240,238, ;
		Page1.Caption = "Suprascriere", ;
		Page1.Name = "Page1", ;
		Page2.BackColor = 242,240,238, ;
		Page2.Caption = "Completare", ;
		Page2.Name = "Page2"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT 'page_detalii.Page1._checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "State", ;
		ControlSource = "taOpt[2]", ;
		Left = 6, ;
		Name = "_checkbox1", ;
		Top = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox2' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Pontaje", ;
		ControlSource = "taOpt[3]", ;
		Left = 6, ;
		Name = "_checkbox2", ;
		Top = 38
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox3' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Persoane in intretinere", ;
		ControlSource = "taOpt[4]", ;
		Left = 6, ;
		Name = "_checkbox3", ;
		Top = 62
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox4' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Popriri", ;
		ControlSource = "taOpt[5]", ;
		Left = 6, ;
		Name = "_checkbox4", ;
		Top = 86
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox5' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Sporuri", ;
		ControlSource = "taOpt[6]", ;
		Left = 6, ;
		Name = "_checkbox5", ;
		Top = 110
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox6' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Concedii de odihna", ;
		ControlSource = "taOpt[7]", ;
		Left = 6, ;
		Name = "_checkbox6", ;
		Top = 134
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox7' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Pensie alimentara", ;
		ControlSource = "taOpt[8]", ;
		Left = 6, ;
		Name = "_checkbox7", ;
		Top = 161
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox8' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Concedii medicale", ;
		ControlSource = "taOpt[9]", ;
		Left = 6, ;
		Name = "_checkbox8", ;
		Top = 185
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page1._checkbox9' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Concedii evenimente speciale", ;
		ControlSource = "taOpt[10]", ;
		Left = 6, ;
		Name = "_checkbox9", ;
		Top = 208
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'page_detalii.Page2.Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Se vor prelua persoanele care exista in luna anterioara si nu apar in luna in care se face redeschiderea.", ;
		Height = 47, ;
		Left = 6, ;
		Name = "Lb_simplu1", ;
		Top = 17, ;
		Width = 223, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'redOpt' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ButtonCount = 2, ;
		ControlSource = "taOpt[1]", ;
		Height = 51, ;
		Left = 6, ;
		Name = "redOpt", ;
		Top = 105, ;
		Value = 2, ;
		Width = 116, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Cu suprascriere", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 0, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Cu completare", ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option2.Value = 1
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
	
	PROCEDURE Init
		PARAMETERS taOpt
		
		DODEFAULT()
	ENDPROC

	PROCEDURE page_detalii.Page1.Activate
			thisform.redOpt.Value=1
			
	ENDPROC

	PROCEDURE page_detalii.Page2.Activate
		
			thisform.redOpt.Value=2
		
	ENDPROC

	PROCEDURE redOpt.InteractiveChange
		IF this.Value=1
			thisform.page_detalii.page1.SetFocus 	
		ELSE 
			thisform.page_detalii.page2.SetFocus 
		ENDIF 		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_salvare_opersonal AS formtermin OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_dataconsemnare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_tipact
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 240
		Name = "frm_salvare_opersonal"
		Width = 423
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 420
		_shape2.Height = 29
		_shape2.Left = 357
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 66
		Lb_titlu_alb_b121.Caption = "Salvare date contract"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		BUT_TERMIN1.Left = 391
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
		ButtonCount = 3, ;
		ControlSource = "popers.tip_modificare", ;
		Left = 292, ;
		Name = "_optiongrup1", ;
		TabIndex = 1, ;
		Top = 33, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Fără scriere", ;
		Option1.FontCharSet = 238, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Corecție", ;
		Option2.FontCharSet = 238, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "Modificare", ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 43, ;
		Option3.Width = 74
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
		Left = 360, ;
		Name = "BUT_RENUNT1", ;
		TabIndex = 7, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_dataconsemnare' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_dataconsemnare", ;
		TabIndex = 2, ;
		Top = 106, ;
		Visible = .F., ;
		Width = 402, ;
		Text_simplu1.ControlSource = "popers.dataconsemnare", ;
		Text_simplu1.Left = 317, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 77, ;
		Lb_simplu1.Caption = "Data de la care se produc efectele ( data consemnare )", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 8, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Width = 301, ;
		Lb_simplu1.WordWrap = .T.
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 146, ;
		Visible = .T., ;
		Text_simplu1.ControlSource = "popers.nractmodif", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Nr. document", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 4, ;
		Top = 174, ;
		Visible = .T., ;
		Text_simplu1.ControlSource = "popers.dataactmodif", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Data document", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
		cconditie = empty(popers.id_tipact), ;
		cprocedura = thisform.do_alege_tipact, ;
		cvar_afisata = popers.tipactmodif, ;
		Left = 5, ;
		Name = "Ct_clb_cautare1", ;
		TabIndex = 5, ;
		Top = 201, ;
		Visible = .T., ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Tip document", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.ControlSource = "", ;
		clb_tx_cautare.Text_simplu1.Height = 23, ;
		clb_tx_cautare.Text_simplu1.Left = 102, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Top = 3, ;
		clb_tx_cautare.Text_simplu1.Width = 205
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Tip operație registru electronic al salariaților", ;
		Left = 39, ;
		Name = "Lb_simplu1", ;
		TabIndex = 9, ;
		Top = 34
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE do_alege_tipact
		pcselect = [select id_act,nume_act from sal_nom_acte]
		
		pcfiltruOriginal = [sters = 0]
		pcfiltru = [1=1]
		pcorder = [nume_act]
		pccoloane = [nume_act,id_act]
		pcTitlu = [Tipuri documente]
		pcTitluColoane = [Tip document,Id]
		
		loHash=gethash()
		loHash.setvalue('cSelect',pcselect)
		loHash.setvalue('cFiltru',pcfiltru)
		loHash.setvalue('cOrder',pcorder)
		loHash.setvalue('cColoana',pccoloane)
		loHash.setvalue('cTitlu',pcTitlu)
		loHash.setvalue('cTitluColoana',pcTitluColoane)
		loHash.setvalue('cFiltruOriginal',pcfiltruOriginal)
		loCauta = cauta_alfa_hash(lohash)
		
		IF !EMPTY(locauta.id_act)
			popers.tipactmodif = loCauta.nume_act
			popers.id_tipact = loCauta.id_act
			this.Refresh 
		ENDIF
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local llReturn
		llReturn = .F.
		Do Case
		Case popers.tip_modificare <> 1 And Empty(Nvl(popers.dataconsemnare,{}))
			amessagebox("Nu ati completat data de la care se produc efectele!",48,"Atentie")
			Thisform.clb_dataconsemnare.text_simplu1.SetFocus()
		*!*	modificare	ROARES	v 2.0.14
		*!*	modificare	ROADEFSALARII : v 2.0.3 - pot sa pun o data din luna curenta sau din luna urmatoare ( pentru sporuri )
		*!*	modificare	ROARES v 2.0.21 : pot sa pun si ultima zi din luna anterioara ( pentru angajari incepand cu 01 )
		*!*	modificare	ROARES v 2.0.23 : pot sa pun orice zi din luna anterioara
		Case popers.tip_modificare <> 1 And !Between(popers.dataconsemnare,Gomonth(Date(gnAn,gnLuna,1),-1),Gomonth(Date(gnAn,gnLuna,1),2)-1)
			amessagebox("Data de la care se produc efectele trebuie sa fie din intervalul " + ;
				Padl(Alltrim(Str(Month(Gomonth(Date(gnAn,gnLuna,1),-1)))),2,[0]) + "/" + ;
				ALLTRIM(Str(Year(Gomonth(Date(gnAn,gnLuna,1),-1)))) + " - " + ;
				Padl(Alltrim(Str(Month(Gomonth(Date(gnAn,gnLuna,1),2)))),2,[0]) + "/" + ;
				ALLTRIM(Str(Year(Gomonth(Date(gnAn,gnLuna,1),2)))) + " !",48,"Atentie")
			Thisform.clb_dataconsemnare.text_simplu1.SetFocus()
		*!*	modificare	ROARES	v 2.0.14	^
		CASE popers.tip_modificare = 3 And EMPTY(popers.tipactmodif)
			amessagebox("Nu ati ales tipul documentului!",48,"Atentie")
			Thisform.ct_clb_cautare1.CLB_TX_CAUTARE.text_simplu1.SetFocus()
		CASE popers.tip_modificare = 3 And EMPTY(popers.nractmodif)
			amessagebox("Nu ati completat numarul documentului!",48,"Atentie")
			Thisform.clb_tx_simplu1.text_simplu1.SetFocus()
		CASE popers.tip_modificare = 3 And EMPTY(popers.dataactmodif)
			amessagebox("Nu ati completat data documentului!",48,"Atentie")
			Thisform.clb_tx_simplu2.text_simplu1.SetFocus()	
		Otherwise
			llReturn = .T.
		Endcase
		Return llReturn
	ENDPROC

	PROCEDURE Init
		Lparameters tlRestrans
		If tlRestrans
			Thisform._optiongrup1.option1.Enabled = .F.
			Thisform._optiongrup1.Value = Iif(popers.tip_modificare=1,3,popers.tip_modificare)
			Thisform.Clb_dataconsemnare.Visible = .T.
		Endif
		
	ENDPROC

	PROCEDURE _optiongrup1.InteractiveChange
		If Inlist(This.Value,2,3)
			Thisform.Clb_dataconsemnare.Visible = .T.
		
		Else
			popers.dataconsemnare = {}
			Thisform.Clb_dataconsemnare.Visible = .F.
		ENDIF
		*!*	IF this.Value = 3
		*!*		thisform.clb_tx_simplu1.Visible = .t.
		*!*		thisform.clb_tx_simplu2.Visible = .t.
		*!*		thisform.ct_clb_cautare1.Visible= .t.
		*!*	ELSE 
		*!*		thisform.clb_tx_simplu1.Visible = .f.
		*!*		thisform.clb_tx_simplu2.Visible = .f.
		*!*		thisform.ct_clb_cautare1.Visible= .f.
		*!*	ENDIF 
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_stud_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CUS_ODATA_STUD1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 119
		Name = "frm_stud_nou"
		nid = 0
		orec = 
		Width = 373
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "Școlarizare"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 6
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 73, ;
		Width = 348, ;
		TEXT_SIMPLU1.ControlSource = "porec.detalii", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 101, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 235, ;
		LB_SIMPLU1.Caption = "Detalii :", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 2, ;
		Top = 45, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.scoala", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "Școala :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'CUS_ODATA_STUD1' AS cus_odata_stud WITH ;
		Left = 36, ;
		Name = "CUS_ODATA_STUD1", ;
		Top = 36
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE Destroy
		IF USED('v_stud')
			USE IN v_stud
		ENDIF 	
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_stud1.cactiune 
		
		
		
		PLRETURN=This.cus_odata_stud1.salvare(This.OREC,This.NID)
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_stud1.cactiune = tcActiune
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_temei_legal AS formtermin OF "_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_editbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: alege_temei
		*p: ccursor
	*</DefinedPropArrayMethod>

	*<PropValue>
		ccursor = crsTemei
		DoCreate = .T.
		Height = 179
		Name = "frm_temei_legal"
		Width = 498
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 527
		_shape2.Height = 29
		_shape2.Left = 461
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Incetare Contract"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 464
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_editbox1' AS _editbox WITH ;
		ControlSource = "pcExplicatieTemei", ;
		Height = 82, ;
		Left = 12, ;
		Name = "_editbox1", ;
		ReadOnly = .T., ;
		Top = 86, ;
		Width = 480
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Cb_tx_simplu1", ;
		Top = 36, ;
		Width = 480, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 152, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 321, ;
		_lbbase1.Caption = "Temei legal", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Explicatie temei incetare / Decizie incetare", ;
		Left = 12, ;
		Name = "Lb_simplu1", ;
		Top = 68
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE alege_temei
		Select (Thisform.ccursor)
		pnIdTemei=id_temei
		pcExplicatieTemei=Alltrim(explicatie)
		Thisform._editbox1.Refresh
	ENDPROC

	PROCEDURE Destroy
		Unbindevents(Thisform.cb_tx_simplu1._CBBASE1,"InteractiveChange",Thisform,'alege_temei')
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local llReturn
		llReturn = .F.
		If Empty(pnIdTemei)
			amessagebox("Nu ati ales temeiul legal!",48,"Atentie")
			Thisform.cb_tx_simplu1._CBBASE1.SetFocus()
		Else
			llReturn = .T.
		Endif
		Return llReturn
	ENDPROC

	PROCEDURE Init
		Lparameters tnTip,tcCursor
		Thisform.ccursor = tcCursor
		DoDefault()
		Do Case
			Case tnTip = 1
				Thisform.lb_simplu1.Caption = [Explicație temei încetare]
				Thisform.lb_titlu_alb_b121.Caption = [Încetare contract]
			Case tnTip = 2
				Thisform.lb_simplu1.Caption = [Explicație temei reactivare]
				Thisform.lb_titlu_alb_b121.Caption = [Reactivare contract]
			Case tnTip = 3
				Thisform.lb_simplu1.Caption = [Explicație temei suspendare]
				Thisform.lb_titlu_alb_b121.Caption = [Suspendare contract]
			Case tnTip = 4
				Thisform.lb_simplu1.Caption = [Explicație temei excepție dată sfârșit]
				Thisform.lb_titlu_alb_b121.Caption = [Excepție dată sfârșit]
		Endcase
		Thisform.cb_tx_simplu1._CBBASE1.RowSource = Thisform.ccursor + [.denumire]
		Thisform.cb_tx_simplu1._cbbase1.RowSourceType = 2
		Thisform.cb_tx_simplu1._cBBASE1.Refresh()
		Bindevent(Thisform.cb_tx_simplu1._CBBASE1,"InteractiveChange",Thisform,'alege_temei',1)
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_vech_nou AS frm_termin_renunt OF "_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_urmator1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu5.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_vech1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ddata1
		*p: ddata2
		*p: nid
		*p: nvechimel
		*p: nvechimez
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		ddata1 = {}
		ddata2 = {}
		DoCreate = .T.
		Height = 308
		Name = "frm_vech_nou"
		nid = 0
		nvechimel = 0
		nvechimez = 0
		orec = 
		Width = 479
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 480
		_shape2.Height = 29
		_shape2.Left = 417
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "VECHIME"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 11
		BUT_TERMIN1.Left = 447
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 9
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Left = 418
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 10
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 168, ;
		Left = 235, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "crsVechime ", ;
		RowHeight = 21, ;
		ScrollBars = 2, ;
		TabIndex = 12, ;
		Top = 36, ;
		Width = 241, ;
		Column1.ControlSource = "datainc", ;
		Column1.Name = "Column1", ;
		Column2.ControlSource = "datasf", ;
		Column2.Name = "Column2", ;
		Column3.ControlSource = "nrLuni", ;
		Column3.Name = "Column3", ;
		Column3.Width = 28, ;
		Column4.ControlSource = "nrZile", ;
		Column4.Name = "Column4", ;
		Column4.Width = 29
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ;
		Caption = "Data inceput", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ;
		Caption = "Data sfarsit", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ;
		Caption = "Luni", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ;
		Caption = "Zile", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_urmator1' AS but_urmator WITH ;
		Left = 103, ;
		Name = "But_urmator1", ;
		TabIndex = 4, ;
		ToolTipText = "Retine", ;
		Top = 140
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Left = 103, ;
		Name = "But_verifica1", ;
		TabIndex = 5, ;
		ToolTipText = "Calculeaza", ;
		Top = 167
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 96, ;
		Width = 209, ;
		TEXT_SIMPLU1.ControlSource = "thisform.nvechimel", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 102, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 51, ;
		LB_SIMPLU1.Caption = "Vechime :", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1.Lb_simplu2' AS lb_simplu WITH ;
		Caption = "( luni )", ;
		Left = 161, ;
		Name = "Lb_simplu2", ;
		Top = 6
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 1, ;
		Top = 40, ;
		Width = 209, ;
		TEXT_SIMPLU1.ControlSource = "thisform.ddata1", ;
		TEXT_SIMPLU1.Format = "KD", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 101, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 103, ;
		LB_SIMPLU1.Caption = "Data început:", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 2, ;
		Top = 68, ;
		Width = 209, ;
		Text_simplu1.ControlSource = "thisform.ddata2", ;
		Text_simplu1.Format = "KD", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.TabIndex = 1, ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 103, ;
		Lb_simplu1.Caption = "Data sfârșit:", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.TabIndex = 2
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 8, ;
		Top = 267, ;
		Width = 348, ;
		Text_simplu1.ControlSource = "porec.modincadr", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 235, ;
		Lb_simplu1.Caption = "Mod :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu5", ;
		TabIndex = 7, ;
		Top = 239, ;
		Width = 209, ;
		Text_simplu1.ControlSource = "porec.vechimei", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 102, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 51, ;
		Lb_simplu1.Caption = "Vechime :", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu5.Lb_simplu2' AS lb_simplu WITH ;
		Caption = "( luni )", ;
		Left = 161, ;
		Name = "Lb_simplu2", ;
		Top = 6
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu6", ;
		TabIndex = 6, ;
		Top = 211, ;
		Width = 209, ;
		Text_simplu1.ControlSource = "porec.data_vech", ;
		Text_simplu1.Format = "KD", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 103, ;
		Lb_simplu1.Caption = "Data :", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_vech1' AS cus_odata_vech WITH ;
		Left = 417, ;
		Name = "Cus_odata_vech1", ;
		Top = 264
		*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
	
	PROCEDURE do_urmator
		INSERT INTO crsVechime (datasf,datainc,nrluni,nrZile) ;
			VALUES (thisform.ddata1,thisform.ddata2,thisform.nvechimel,thisform.nvechimez)
		
		thisform._grdbase1.Refresh 
	ENDPROC

	PROCEDURE do_verifica
		LOCAL lnTotLuni
		STORE 0 TO lnTotLuni
		SELECT crsVechime
		SUM nrLuni TO lnTotLuni 
		
		porec.vechimei = ROUND(lnTotLuni,0)
		
			lcSql = [select pack_personal.vechime_numar(]+str(porec.vechimei)+[,0) as vechime from dual]
			lcCursor = [crsRez]
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
			If lnSucces < 0
				Messagebox(goExecutor.cEroare,0+16,"Eroare")
				Return
			Endif
			Select crsRez
			porec.data_vech = ttod(crsRez.vechime)
			thisform.Refresh 
			USE IN crsRez
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local PLRETURN,lcActiune
		
		this.but_TERMIN1.SetFocus()
		
		lcActiune = this.cus_odata_vech1.cactiune 
		
		
		
		PLRETURN=This.cus_odata_vech1.salvare(This.OREC,This.NID)
		
			
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_vech1.cactiune = tcActiune
		
		
		
		*!*	IF tcActiune = 'UPDATE'
		
		*!*		SELECT v_curs
		*!*		LOCATE FOR id_c = toRec.id_c
		*!*		IF FOUND()
		*!*			this.cb_tx_simplu1._cbbase1.Value=torec.denumire
		*!*			this.cb_tx_simplu1._cbbase1.Refresh()
		*!*		ENDIF 
		
		*!*	ENDIF 	
	ENDPROC

	PROCEDURE Clb_tx_simplu1.TEXT_SIMPLU1.LostFocus
		*!*		lcSql = [select pack_personal.vechime_numar(]+str(porec.vechimei)+[,0) as vechime from dual]
		*!*		lcCursor = [crsVechime]
		*!*		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*		If lnSucces < 0
		*!*			Messagebox(goExecutor.cEroare,0+16,"Eroare")
		*!*			Return
		*!*		Endif
		*!*		Select crsVechime
		*!*		porec.data_vech = ttod(crsVechime.vechime)
		*!*		thisform.Refresh 
		*!*		USE IN crsVechime
	ENDPROC

	PROCEDURE Clb_tx_simplu2.TEXT_SIMPLU1.LostFocus
		*!*		IF !ISNULL(porec.data_vech)
		*!*			lcSql = [select pack_personal.vechime_date(to_date(]+DTOS(porec.data_vech)+[,'yyyymmdd')) as vechime from dual]
		*!*			lcCursor = [crsVechime]
		*!*			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*			If lnSucces < 0
		*!*				Messagebox(goExecutor.cEroare,0+16,"Eroare")
		*!*				Return
		*!*			Endif
		*!*			Select crsVechime
		*!*			porec.vechimei = Round(crsVechime.vechime,0)
		*!*			thisform.Refresh 
		*!*			USE IN crsVechime
		*!*		ENDIF 
	ENDPROC

	PROCEDURE Clb_tx_simplu3.Text_simplu1.LostFocus
			IF !ISNULL(thisform.ddata1) AND !ISNULL(thisform.ddata2)
				lcSql = [select pack_personal.vechime_date(to_date(]+DTOS(thisform.ddata1)+[,'yyyymmdd'),to_date(]+DTOS(thisform.ddata2)+[,'yyyymmdd')) as vechime from dual]
				lcCursor = [crsRet]
				lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
				If lnSucces < 0
					Messagebox(goExecutor.cEroare,0+16,"Eroare")
					Return
				Endif
				Select crsRet
				thisform.nvechimel = Round(crsRet.vechime,0)
		*!*			porec.vechimei = Round(crsRet.vechime,0)
				thisform.Refresh 
				USE IN crsRet
			ENDIF 
	ENDPROC

	PROCEDURE Clb_tx_simplu6.Text_simplu1.LostFocus
		*!*		IF !ISNULL(porec.data_vech)
		*!*			lcSql = [select pack_personal.vechime_date(to_date(]+DTOS(porec.data_vech)+[,'yyyymmdd')) as vechime from dual]
		*!*			lcCursor = [crsVechime]
		*!*			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*			If lnSucces < 0
		*!*				Messagebox(goExecutor.cEroare,0+16,"Eroare")
		*!*				Return
		*!*			Endif
		*!*			Select crsVechime
		*!*			porec.vechimei = Round(crsVechime.vechime,0)
		*!*			thisform.Refresh 
		*!*			USE IN crsVechime
		*!*		ENDIF 
	ENDPROC

ENDDEFINE
