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

	*<PropValue>
		Name = "cus_odata_rulaje"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		Local lcActiune, lcCant, lcCante, lcId, lcIdGestiune, lcIdJtva, lcProcTVA, lcSql, lcTaxCode
		
		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 = [gest_nom_grupe]	
		*!*		lc_camp_id = [id_grupe]
		*!*		lc_copil_lookup = [vgest_coresp_util_grupe]
		*!*		lc_camp_id_lookup = [id_grupe]
		*!*		lc_copil_del = [gest_coresp_grupe_gestiuni]
		*!*		lc_camp_id_del = [id_grupe]
		ENDIF 
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcIdGestiune = Nvl(Alltrim(STR(toRec.id_gestiune)),'')	
			lcCant = TRANSFORM(NVL(toRec.cant,0))
			lcCante = TRANSFORM(NVL(toRec.cante,0))	
			lcTaxCode = TRANSFORM(NVL(toRec.taxcode, 'NULL'))
			lcIdJtva = TRANSFORM(NVL(toRec.id_jtva_coloana, 'NULL'))
			lcProcTVA = TRANSFORM(NVL(toRec.proc_tva,0))	
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
				lcSql = []
		
			Case lcActiune = "UPDATE"
				lcSql = [UPDATE ] + gcS + [.rul SET id_gestiune = ] + lcIdGestiune + [, cant = ] + lcCant + [, cante = ] + lcCante + ;
					[, taxcode = ] + m.lcTaxCode + [, id_jtva_coloana = ] + m.lcIdJtva + [, proc_tva = ] + m.lcProcTVA + ;
					[ where id_rul = ]  + lcId 
			Case lcActiune = "DELETE"
				lcSql = []
					
		Endcase
		
		This.csql = lcSql
		  
	ENDPROC

	PROCEDURE salvare
		Lparameters toRec,tnId
		
		Private llSucces, lnSucces
		
		llSucces = .T.
		lnSucces = -1
		lcActiune = Upper(Alltrim(This.cactiune))
		lcMesaj = ''
		lcTitlu = ''
		Do Case
			Case lcActiune = "INSERT"
				lcMesaj = "Doriti sa adaugati inregistrarea?"
				lcTitlu = "Adaugare"
				
			Case lcActiune = "UPDATE"
				lcMesaj = "Doriti sa salvati modificarile?"
				lcTitlu = "Modificare"
				
			Case lcActiune = "DELETE"
				lcMesaj = "Doriti sa stergeti inregistrarea?"
				lcTitlu = "Stergere"
				
		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
			If This.validare()
		
				This.make_sql(toRec,tnId)
		
				lcSql = Upper(Alltrim(This.csql))
		
				llConditie = 'INSERT'$lcSql Or 'UPDATE'$lcSql Or 'DELETE'$lcSql Or 'BEGIN'$lcSql
		
				If llConditie
					lnSucces = goExecutor.oExecute(lcSql)
					If lnSucces < 0
		
						lcTextEroare = goExecutor.cEroare								
						
						Do Case
						CASE LIKE('*ORA-20???:*',lcTextEroare)
							lnPozi=At("ORA-20",lcTextEroare)+11
							lnPozf=At("ORA",lcTextEroare,2)
							lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
							lcTitlu="Eroare"
																	
		*!*					Case "ORA-20000"$lcTextEroare
		*!*						lnPozi=At("ORA-20000",lcTextEroare)+11
		*!*						lnPozf=At("ORA",lcTextEroare,2)
		*!*						lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
		*!*						lcTitlu="Eroare"
		*!*					Case "ORA-20001"$lcTextEroare
		*!*						lnPozi=At("ORA-20001",lcTextEroare)+11
		*!*						lnPozf=At("ORA",lcTextEroare,2)
		*!*						lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
		*!*						lcTitlu="Eroare"
						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				
						llSucces = .F.
					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				
					Endif
				Endif
		
			Endif
		
		Else
			PNIESIRE=2
		Endif
		
		
		Return llSucces
		
	ENDPROC

ENDDEFINE

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

	*<PropValue>
		Name = "cus_odata_rulaje_obinv"
	*</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 = [gest_nom_grupe]	
		*!*		lc_camp_id = [id_grupe]
		*!*		lc_copil_lookup = [vgest_coresp_util_grupe]
		*!*		lc_camp_id_lookup = [id_grupe]
		*!*		lc_copil_del = [gest_coresp_grupe_gestiuni]
		*!*		lc_camp_id_del = [id_grupe]
		ENDIF 
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcIdGestiune = Nvl(Alltrim(STR(toRec.id_gestiune)),'')	
			lcCant = TRANSFORM(NVL(toRec.cant,0))
			lcCante = TRANSFORM(NVL(toRec.cante,0))	
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
				lcSql = []
		
			Case lcActiune = "UPDATE"
				lcSql = [UPDATE ] + gcS + [.rul_obinv SET id_gestiune = ] + lcIdGestiune + [, cant = ] + lcCant + [, cante = ] + lcCante + [ where id_rul_obinv = ]  + lcId 
			Case lcActiune = "DELETE"
				lcSql = []
					
		Endcase
		
		This.csql = lcSql
		
		
		
	ENDPROC

	PROCEDURE salvare
		Lparameters toRec,tnId
		
		Private llSucces, lnSucces
		
		llSucces = .T.
		lnSucces = -1
		lcActiune = Upper(Alltrim(This.cactiune))
		lcMesaj = ''
		lcTitlu = ''
		Do Case
			Case lcActiune = "INSERT"
				lcMesaj = "Doriti sa adaugati inregistrarea?"
				lcTitlu = "Adaugare"
				
			Case lcActiune = "UPDATE"
				lcMesaj = "Doriti sa salvati modificarile?"
				lcTitlu = "Modificare"
				
			Case lcActiune = "DELETE"
				lcMesaj = "Doriti sa stergeti inregistrarea?"
				lcTitlu = "Stergere"
				
		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
			If This.validare()
		
				This.make_sql(toRec,tnId)
		
				lcSql = Upper(Alltrim(This.csql))
		
				llConditie = 'INSERT'$lcSql Or 'UPDATE'$lcSql Or 'DELETE'$lcSql Or 'BEGIN'$lcSql
		
				If llConditie
					lnSucces = goExecutor.oExecute(lcSql)
					If lnSucces < 0
		
						lcTextEroare = goExecutor.cEroare								
						
						Do Case
						CASE LIKE('*ORA-20???:*',lcTextEroare)
							lnPozi=At("ORA-20",lcTextEroare)+11
							lnPozf=At("ORA",lcTextEroare,2)
							lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
							lcTitlu="Eroare"
																	
		*!*					Case "ORA-20000"$lcTextEroare
		*!*						lnPozi=At("ORA-20000",lcTextEroare)+11
		*!*						lnPozf=At("ORA",lcTextEroare,2)
		*!*						lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
		*!*						lcTitlu="Eroare"
		*!*					Case "ORA-20001"$lcTextEroare
		*!*						lnPozi=At("ORA-20001",lcTextEroare)+11
		*!*						lnPozf=At("ORA",lcTextEroare,2)
		*!*						lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
		*!*						lcTitlu="Eroare"
						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				
						llSucces = .F.
					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				
					Endif
				Endif
		
			Endif
		
		Else
			PNIESIRE=2
		Endif
		
		
		Return llSucces
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_rulaje 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="pgframe" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSubgrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSubgrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtils.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtils.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataoras.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataoras.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNume_val.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNume_val.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmatF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmatF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cLot.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cLot.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataExpirare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataExpirare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPart_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPart_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdArticol.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdArticol.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodBare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodBare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFurnizor.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFurnizor.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFurnizor.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFurnizor.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodNC8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodNC8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGreutate.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGreutate.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaraOrigine.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaraOrigine.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cExplicatieTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cExplicatieTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaxName.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaxName.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFelDoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFelDoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoareTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoareTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoareV.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoareV.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoareVTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoareVTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.cboValuta" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtDataact" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtNract" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtNnir" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtValoare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtFurnizor" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_sectie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_lucrare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_responsabil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_furnizor" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtSerieAct" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtDataIreg" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtReponsabil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtSectie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.txtLucrare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.txtDataact" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.txtNnir" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.txtLucrare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.txtSectie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.but_modifica_responsabil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.but_modifica_sectie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.but_modifica_lucrare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.txtValoare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.txtReponsabil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="but_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ck_filtru_tiprulaj" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: calculeazatotaluri
		*m: do_listare3
		*m: do_listare4
		*m: editeaza_antet
		*m: modifica_articole
		*m: modifica_id_fact
		*m: modifica_inregistrare
		*m: salveaza_antet
		*m: se_modifica_assign
		*p: cfiltruinitial
		*p: cfiltruinitial_ro
		*p: cmonedanationala
		*p: cod
		*p: cvalutatotal
		*p: dataact
		*p: dataireg
		*p: id_lucrare
		*p: id_partener
		*p: id_responsabil
		*p: id_sectie
		*p: lmodificareinregistrare		&& Modificare inregistrare curenta - dublu click pe un loc liber din pagina 1 si parola AAAALLZZ
		*p: lnoua		&& Specifica daca s-a trecut pe alta inregistrare in rulaje.
		*p: lucrare
		*p: ncanti		&& Intoarce cantitate intrari.
		*p: ncantie		&& Intoarce cantitate iesiri.
		*p: nidmonedanationala
		*p: nidvalutatotal
		*p: nnir
		*p: nnr_pag
		*p: nract
		*p: nsumi		&& Intoarce valoarea intrarilor.
		*p: nsumie		&& Intoarce valoarea iesirilor.
		*p: nsumiev
		*p: nsumiv
		*p: oactoriginal		&& NULL
		*p: partener
		*p: responsabil
		*p: sectie
		*p: serie_act
		*p: se_modifica
		*p: valoare
	*</DefinedPropArrayMethod>

	*<PropValue>
		cbuton2 = but_listare1;but_listare2
		cfiltruinitial = 
		cfiltruinitial_ro = 
		cgridsortlist = thisform.pgframe.page1.grdrulaje
		cmonedanationala = 
		cod = 0
		cvalutatotal = 
		dataact = {}
		dataireg = {}
		DoCreate = .T.
		Height = 500
		id_lucrare = NULL
		id_partener = NULL
		id_responsabil = NULL
		id_sectie = NULL
		lmodificareinregistrare = .F.
		lucrare = 
		Name = "frm_rulaje"
		ncanti = 0
		ncantie = 0
		nidmonedanationala = 0
		nidvalutatotal = 0
		nnir = 0
		nnr_pag = 0
		nract = 0
		nsumi = 0
		nsumie = 0
		nsumiev = 0
		nsumiv = 0
		oactoriginal = .F.
		partener = 
		responsabil = 
		sectie = 
		serie_act = 
		se_modifica = .F.
		valoare = 0
		Width = 750
		WindowState = 2
		_shape1.Height = 28
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Tag = "RESIZABLE, NOVERTICAL_RESIZE"
		_shape1.Top = 0
		_shape1.Width = 756
		_shape1.ZOrderSet = 3
		_shape2.Height = 29
		_shape2.Left = 628
		_shape2.Name = "_shape2"
		_shape2.Tag = "MOVABLE,NOVERTICAL_MOVE"
		_shape2.Top = -1
		_shape2.Width = 209
		_shape2.ZOrderSet = 4
		Lb_titlu_alb_b121.Caption = "RULAJE *"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 31
		Lb_titlu_alb_b121.Top = 1
		Lb_titlu_alb_b121.ZOrderSet = 5
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 720
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 26
		BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE"
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 6
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 689, ;
		Name = "But_excel1", ;
		TabIndex = 27, ;
		Top = 0, ;
		Visible = .T., ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'but_modifica1' AS but_modifica WITH ;
		Anchor = 9, ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 630, ;
		Name = "but_modifica1", ;
		TabIndex = 29, ;
		Top = 0, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 573, ;
		Name = "But_start_criterii1", ;
		Top = 0
		*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'ck_filtru_tiprulaj' AS ck_filtru_nom WITH ;
		Alignment = 0, ;
		Caption = "Tip rulaj", ;
		ctraducere = Tip rulaj este 'INTRARE/IESIRE REALA', ;
		filtru =  and (id_tip_rulaj=0), ;
		Left = 525, ;
		Name = "ck_filtru_tiprulaj", ;
		Top = 30, ;
		Value = 0, ;
		Visible = .F.
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = thisform.pgframe.page1.grdrulaje, ;
		Height = 17, ;
		Left = 287, ;
		Name = "Gridextra1", ;
		Top = 45, ;
		Width = 33
		*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe' AS _pageframe WITH ;
		ErasePage = .T., ;
		Height = 467, ;
		Left = 12, ;
		Name = "pgframe", ;
		PageCount = 3, ;
		TabIndex = 30, ;
		TabStyle = 1, ;
		Tag = "RESIZABLE", ;
		Top = 31, ;
		Width = 732, ;
		ZOrderSet = 2, ;
		Page1.BackColor = 255,255,255, ;
		Page1.Caption = "Rulaje", ;
		Page1.Name = "Page1", ;
		Page2.BackColor = 255,255,255, ;
		Page2.Caption = "NIR - Intrari", ;
		Page2.Name = "Page2", ;
		Page3.BackColor = 255,255,255, ;
		Page3.Caption = "Bon - Iesiri", ;
		Page3.FontCharSet = 238, ;
		Page3.FontSize = 10, ;
		Page3.Name = "Page3"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT 'pgframe.Page1.cboValuta' AS _cbbase WITH ;
		Anchor = 9, ;
		ControlSource = "thisform.cValutaTotal", ;
		Height = 24, ;
		Left = 633, ;
		Name = "cboValuta", ;
		RowSource = "cValuteRulTemp.nume_val", ;
		RowSourceType = 2, ;
		Top = 41, ;
		Width = 73
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje' AS _grdrow WITH ;
		ColumnCount = 66, ;
		DeleteMark = .F., ;
		GridLineColor = 128,128,128, ;
		Height = 351, ;
		Left = 10, ;
		Name = "grdrulaje", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsrulX", ;
		TabIndex = 1, ;
		Tag = "RESIZABLE", ;
		Top = 83, ;
		Width = 708, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.FontName = "Arial", ;
		Column1.Format = "R", ;
		Column1.InputMask = "999 999", ;
		Column1.Name = "cNrCrt", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 44, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nnir", ;
		Column2.FontName = "Arial", ;
		Column2.Name = "cNnir", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 97, ;
		Column3.ColumnOrder = 7, ;
		Column3.ControlSource = "dataact", ;
		Column3.FontName = "Arial", ;
		Column3.Name = "cDataact", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 73, ;
		Column4.ColumnOrder = 8, ;
		Column4.ControlSource = "codmat", ;
		Column4.FontName = "Arial", ;
		Column4.Name = "cCodmat", ;
		Column4.ReadOnly = .T., ;
		Column5.ColumnOrder = 9, ;
		Column5.ControlSource = "denumire", ;
		Column5.FontName = "Arial", ;
		Column5.Name = "cDenumire", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 191, ;
		Column6.ColumnOrder = 11, ;
		Column6.ControlSource = "um", ;
		Column6.FontName = "Arial", ;
		Column6.Name = "cUM", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 39, ;
		Column7.ColumnOrder = 14, ;
		Column7.ControlSource = "pret", ;
		Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial", ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPPRET)), ;
		Column7.Name = "cPret", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 78, ;
		Column8.ColumnOrder = 15, ;
		Column8.ControlSource = "cant", ;
		Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
		Column8.FontName = "Arial", ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPCANT)), ;
		Column8.Name = "cCant", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 68, ;
		Column9.ColumnOrder = 16, ;
		Column9.ControlSource = "cante", ;
		Column9.FontName = "Arial", ;
		Column9.Format = "R", ;
		Column9.InputMask = (get_mask(12,gnPCANT)), ;
		Column9.Name = "cCante", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 68, ;
		Column10.ColumnOrder = 17, ;
		Column10.ControlSource = "cont", ;
		Column10.FontName = "Arial", ;
		Column10.Name = "cCont", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 46, ;
		Column11.ColumnOrder = 65, ;
		Column11.ControlSource = "cod", ;
		Column11.FontName = "Arial", ;
		Column11.Name = "cCod", ;
		Column11.ReadOnly = .T., ;
		Column12.ColumnOrder = 18, ;
		Column12.ControlSource = "acont", ;
		Column12.FontName = "Arial", ;
		Column12.Name = "cAcont", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 46, ;
		Column13.ColumnOrder = 22, ;
		Column13.ControlSource = "cgest", ;
		Column13.FontName = "Arial", ;
		Column13.Name = "cGest", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 80, ;
		Column14.ColumnOrder = 23, ;
		Column14.ControlSource = "nrord", ;
		Column14.FontName = "Arial", ;
		Column14.Name = "cNrord", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 174, ;
		Column15.ColumnOrder = 20, ;
		Column15.ControlSource = "curs", ;
		Column15.FontName = "Arial", ;
		Column15.Format = "R", ;
		Column15.InputMask = (get_mask(12,gnPcurs)), ;
		Column15.Name = "cCurs", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 65, ;
		Column16.ColumnOrder = 19, ;
		Column16.ControlSource = "pretd", ;
		Column16.FontName = "Arial", ;
		Column16.Format = "R", ;
		Column16.InputMask = (get_mask(14,gnPPretVal)), ;
		Column16.Name = "cPretd", ;
		Column16.ReadOnly = .T., ;
		Column16.Width = 69, ;
		Column17.ColumnOrder = 24, ;
		Column17.ControlSource = "procent", ;
		Column17.FontName = "Arial", ;
		Column17.Format = "R", ;
		Column17.InputMask = "999 999.99", ;
		Column17.Name = "cProcent", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 50, ;
		Column18.ColumnOrder = 25, ;
		Column18.ControlSource = "iif(pretv#0,pretv-pret,0)", ;
		Column18.FontName = "Arial", ;
		Column18.Format = "R", ;
		Column18.InputMask = (get_mask(12,gnPPRET)), ;
		Column18.Name = "cAdaos", ;
		Column18.ReadOnly = .T., ;
		Column18.Width = 56, ;
		Column19.ColumnOrder = 26, ;
		Column19.ControlSource = "tva", ;
		Column19.FontName = "Arial", ;
		Column19.Format = "R", ;
		Column19.InputMask = (get_mask(12,gnPPRET)), ;
		Column19.Name = "cTva", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 117, ;
		Column20.ColumnOrder = 27, ;
		Column20.ControlSource = "round((cant+cante)*pret,gnPc)", ;
		Column20.FontName = "Arial", ;
		Column20.Format = "R", ;
		Column20.InputMask = (get_mask(12,gnPa)), ;
		Column20.Name = "cValoare", ;
		Column20.ReadOnly = .T., ;
		Column20.Width = 119, ;
		Column21.ColumnOrder = 30, ;
		Column21.ControlSource = "pretv", ;
		Column21.FontName = "Arial", ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(14,gnPPretV)), ;
		Column21.Name = "cPretv", ;
		Column21.ReadOnly = .T., ;
		Column21.Width = 101, ;
		Column22.ColumnOrder = 31, ;
		Column22.ControlSource = "tvav", ;
		Column22.FontName = "Arial", ;
		Column22.Format = "R", ;
		Column22.InputMask = (get_mask(14,gnPPretV)), ;
		Column22.Name = "cTvav", ;
		Column22.ReadOnly = .T., ;
		Column22.Width = 113, ;
		Column23.ColumnOrder = 32, ;
		Column23.ControlSource = "pretv+tvav", ;
		Column23.FontName = "Arial", ;
		Column23.Format = "R", ;
		Column23.InputMask = (get_mask(14,gnPPretV)), ;
		Column23.Name = "cPretvtva", ;
		Column23.ReadOnly = .T., ;
		Column23.Width = 123, ;
		Column24.ColumnOrder = 35, ;
		Column24.ControlSource = "proc_tvav", ;
		Column24.FontName = "Arial", ;
		Column24.Format = "R", ;
		Column24.InputMask = "9.99", ;
		Column24.Name = "cProc_tva", ;
		Column24.ReadOnly = .T., ;
		Column24.Width = 54, ;
		Column25.ColumnOrder = 52, ;
		Column25.ControlSource = "util", ;
		Column25.FontName = "Arial", ;
		Column25.Name = "cUtil", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 117, ;
		Column26.ColumnOrder = 53, ;
		Column26.ControlSource = "dataora", ;
		Column26.FontName = "Arial", ;
		Column26.Name = "cDataora", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 112, ;
		Column27.ColumnOrder = 36, ;
		Column27.ControlSource = "sectie", ;
		Column27.FontName = "Arial", ;
		Column27.Name = "cSectie", ;
		Column27.ReadOnly = .T., ;
		Column27.Width = 127, ;
		Column28.ColumnOrder = 37, ;
		Column28.ControlSource = "datain", ;
		Column28.FontName = "Arial", ;
		Column28.Name = "cDatain", ;
		Column28.ReadOnly = .T., ;
		Column28.Width = 96, ;
		Column29.ColumnOrder = 38, ;
		Column29.ControlSource = "dataout", ;
		Column29.FontName = "Arial", ;
		Column29.Name = "cDataOut", ;
		Column29.ReadOnly = .T., ;
		Column29.Width = 95, ;
		Column30.ColumnOrder = 39, ;
		Column30.ControlSource = "nresp", ;
		Column30.FontName = "Arial", ;
		Column30.Name = "cNresp", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 137, ;
		Column31.ColumnOrder = 40, ;
		Column31.ControlSource = "cgestc", ;
		Column31.FontName = "Arial", ;
		Column31.Name = "cGestC", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 127, ;
		Column32.ColumnOrder = 41, ;
		Column32.ControlSource = "nrespc", ;
		Column32.FontName = "Arial", ;
		Column32.Name = "cNrespC", ;
		Column32.ReadOnly = .T., ;
		Column32.Width = 126, ;
		Column33.ColumnOrder = 49, ;
		Column33.ControlSource = "tip_rulaj", ;
		Column33.FontName = "Arial", ;
		Column33.Name = "cTipRulaj", ;
		Column33.ReadOnly = .T., ;
		Column33.Width = 164, ;
		Column34.ColumnOrder = 12, ;
		Column34.ControlSource = "cant_bax", ;
		Column34.FontName = "Arial", ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 41, ;
		Column35.ColumnOrder = 13, ;
		Column35.ControlSource = "um2", ;
		Column35.FontName = "Arial", ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 35, ;
		Column36.ColumnOrder = 42, ;
		Column36.ControlSource = "grupa", ;
		Column36.FontName = "Arial", ;
		Column36.Name = "cGrupa", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 116, ;
		Column37.ColumnOrder = 6, ;
		Column37.ControlSource = "nract", ;
		Column37.FontName = "Arial", ;
		Column37.Name = "cNract", ;
		Column37.ReadOnly = .T., ;
		Column37.Width = 76, ;
		Column38.ColumnOrder = 43, ;
		Column38.ControlSource = "subgrupa", ;
		Column38.FontName = "Arial", ;
		Column38.Name = "cSubgrupa", ;
		Column38.ReadOnly = .T., ;
		Column38.Width = 114, ;
		Column39.ColumnOrder = 54, ;
		Column39.ControlSource = "utils", ;
		Column39.FontName = "Arial", ;
		Column39.Name = "cUtils", ;
		Column39.ReadOnly = .T., ;
		Column39.Width = 100, ;
		Column40.ColumnOrder = 55, ;
		Column40.ControlSource = "dataoras", ;
		Column40.FontName = "Arial", ;
		Column40.Name = "cDataoras", ;
		Column40.ReadOnly = .T., ;
		Column40.Width = 105, ;
		Column41.ColumnOrder = 10, ;
		Column41.ControlSource = "serie", ;
		Column41.FontName = "Arial", ;
		Column41.Name = "cSerie", ;
		Column41.ReadOnly = .T., ;
		Column41.Width = 122, ;
		Column42.ColumnOrder = 21, ;
		Column42.ControlSource = "nume_val", ;
		Column42.FontName = "Arial", ;
		Column42.Name = "cNume_val", ;
		Column42.ReadOnly = .T., ;
		Column42.Width = 52, ;
		Column43.ColumnOrder = 29, ;
		Column43.ControlSource = "round((cant+cante)*(pretd),gnPval)", ;
		Column43.FontName = "Arial", ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .T., ;
		Column44.ColumnOrder = 5, ;
		Column44.ControlSource = "serie_act", ;
		Column44.FontName = "Arial", ;
		Column44.Name = "cSerie_act", ;
		Column44.ReadOnly = .T., ;
		Column44.Width = 56, ;
		Column45.ColumnOrder = 44, ;
		Column45.ControlSource = "codmatf", ;
		Column45.FontName = "Arial", ;
		Column45.Name = "cCodmatF", ;
		Column45.ReadOnly = .T., ;
		Column46.ColumnOrder = 45, ;
		Column46.ControlSource = "lot", ;
		Column46.FontName = "Arial", ;
		Column46.Name = "cLot", ;
		Column46.ReadOnly = .T., ;
		Column47.ColumnOrder = 46, ;
		Column47.ControlSource = "adata_expirare", ;
		Column47.FontName = "Arial", ;
		Column47.Name = "cDataExpirare", ;
		Column47.ReadOnly = .T., ;
		Column47.Width = 125, ;
		Column48.ColumnOrder = 51, ;
		Column48.ControlSource = "sucursala", ;
		Column48.FontName = "Arial", ;
		Column48.Name = "cSucursala", ;
		Column48.ReadOnly = .T., ;
		Column48.Width = 146, ;
		Column49.ColumnOrder = 47, ;
		Column49.ControlSource = "part_rez", ;
		Column49.FontName = "Arial", ;
		Column49.Name = "cPart_rez", ;
		Column49.ReadOnly = .T., ;
		Column49.Width = 117, ;
		Column50.ColumnOrder = 48, ;
		Column50.ControlSource = "nrord_rez", ;
		Column50.FontName = "Arial", ;
		Column50.Name = "cNrord_rez", ;
		Column50.ReadOnly = .T., ;
		Column50.Width = 120, ;
		Column51.ColumnOrder = 56, ;
		Column51.ControlSource = "id_articol", ;
		Column51.FontName = "Arial", ;
		Column51.Name = "cIdArticol", ;
		Column51.ReadOnly = .T., ;
		Column51.Width = 96, ;
		Column52.ColumnOrder = 57, ;
		Column52.ControlSource = "codbare", ;
		Column52.FontName = "Arial", ;
		Column52.Name = "cCodBare", ;
		Column52.ReadOnly = .T., ;
		Column52.Width = 130, ;
		Column53.ColumnOrder = 58, ;
		Column53.ControlSource = "furnizor", ;
		Column53.FontName = "Arial", ;
		Column53.Name = "cFurnizor", ;
		Column53.ReadOnly = .T., ;
		Column53.Width = 186, ;
		Column54.ColumnOrder = 59, ;
		Column54.ControlSource = "id_furnizor", ;
		Column54.FontName = "Arial", ;
		Column54.Name = "cIdFurnizor", ;
		Column54.ReadOnly = .T., ;
		Column55.ColumnOrder = 60, ;
		Column55.ControlSource = "codnc8", ;
		Column55.Name = "cCodNC8", ;
		Column55.ReadOnly = .T., ;
		Column55.Width = 159, ;
		Column56.ColumnOrder = 61, ;
		Column56.ControlSource = "greutate", ;
		Column56.Name = "cGreutate", ;
		Column56.ReadOnly = .T., ;
		Column57.ColumnOrder = 62, ;
		Column57.ControlSource = "tara_origine", ;
		Column57.Name = "cTaraOrigine", ;
		Column57.ReadOnly = .T., ;
		Column57.Width = 167, ;
		Column58.ColumnOrder = 63, ;
		Column58.ControlSource = "explicatie_tva", ;
		Column58.Name = "cExplicatieTVA", ;
		Column58.ReadOnly = .T., ;
		Column58.Width = 146, ;
		Column59.ColumnOrder = 64, ;
		Column59.ControlSource = "taxname", ;
		Column59.Name = "cTaxName", ;
		Column59.ReadOnly = .T., ;
		Column59.Width = 156, ;
		Column60.ColumnOrder = 50, ;
		Column60.ControlSource = "id_set", ;
		Column60.Name = "cIdSet", ;
		Column60.ReadOnly = .T., ;
		Column60.Width = 78, ;
		Column61.ColumnOrder = 4, ;
		Column61.ControlSource = "fdoc", ;
		Column61.Name = "cFelDoc", ;
		Column61.ReadOnly = .T., ;
		Column61.Width = 99, ;
		Column62.ColumnOrder = 1, ;
		Column62.ControlSource = "ales", ;
		Column62.CurrentControl = "_checkbox1", ;
		Column62.Name = "cAles", ;
		Column62.ReadOnly = .F., ;
		Column62.Sparse = .F., ;
		Column62.Width = 28, ;
		Column63.ColumnOrder = 66, ;
		Column63.ControlSource = "id_fact", ;
		Column63.Name = "cIdFact", ;
		Column63.ReadOnly = .T., ;
		Column64.ColumnOrder = 28, ;
		Column64.ControlSource = "round((cant+cante)*(pret+tva),gnPc)", ;
		Column64.FontName = "Arial", ;
		Column64.Format = "R", ;
		Column64.InputMask = (get_mask(12,gnPa)), ;
		Column64.Name = "cValoareTva", ;
		Column64.ReadOnly = .T., ;
		Column64.Width = 147, ;
		Column65.ColumnOrder = 33, ;
		Column65.ControlSource = "round((cant+cante)*pretv,gnPc)", ;
		Column65.FontName = "Arial", ;
		Column65.Format = "R", ;
		Column65.InputMask = (get_mask(12,gnPa)), ;
		Column65.Name = "cValoareV", ;
		Column65.ReadOnly = .T., ;
		Column65.Width = 108, ;
		Column66.ColumnOrder = 34, ;
		Column66.ControlSource = "round((cant+cante)*(pretv+tvav),gnPc)", ;
		Column66.FontName = "Arial", ;
		Column66.Format = "R", ;
		Column66.InputMask = (get_mask(12,gnPa)), ;
		Column66.Name = "cValoareVTva", ;
		Column66.ReadOnly = .T., ;
		Column66.Width = 143
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Adaos", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		Left = 18, ;
		Name = "_checkbox1", ;
		ReadOnly = .F., ;
		Top = 59
		*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAles.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 'pgframe.Page1.grdrulaje.cCant.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Intrari", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Iesiri", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodBare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod bare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodBare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmatF.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod furnizor", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmatF.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodNC8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod NC8", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodNC8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataExpirare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data expirare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataExpirare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data intrare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora introducerii", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataoras.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data / ora stergerii", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataoras.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data iesire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cExplicatieTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie TVA", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cExplicatieTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cFelDoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cFelDoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cFurnizor.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Furnizor", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cFurnizor.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune C", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGreutate.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Greutate (Kg)", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGreutate.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGrupa.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Grupa", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGrupa.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdArticol.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id articol", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdArticol.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Fact", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFurnizor.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id furnizor", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFurnizor.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip operatie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cLot.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lot", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cLot.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. NIR/Bon", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil C", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare/Comanda", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord_rez.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare rez.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord_rez.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNume_val.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valuta", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNume_val.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cant 2", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM 2", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare valuta", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column43.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPart_rez.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Part. rez.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPart_rez.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret in valuta", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare cu TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie_act.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie_act.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSubgrupa.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Subgrupa", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSubgrupa.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTaraOrigine.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tara origine", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTaraOrigine.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTaxName.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxa SAFT", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTaxName.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip rulaj", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA unitar achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA unitar vanzare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator introducere", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUtils.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator stergere", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUtils.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoareTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie cu TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoareTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoareV.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoareV.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoareVTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare cu TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoareVTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Label1' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cantitate intrari", ;
		Height = 18, ;
		Left = 11, ;
		Name = "Label1", ;
		TabIndex = 9, ;
		Top = 17, ;
		Width = 90, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label2' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cantitate iesiri", ;
		Height = 18, ;
		Left = 11, ;
		Name = "Label2", ;
		TabIndex = 8, ;
		Top = 46, ;
		Width = 85, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label3' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Val. intrari fara TVA", ;
		Height = 34, ;
		Left = 218, ;
		Name = "Label3", ;
		TabIndex = 10, ;
		Top = 10, ;
		Width = 60, ;
		WordWrap = .T., ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label4' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Val. iesiri fara TVA", ;
		Height = 34, ;
		Left = 218, ;
		Name = "Label4", ;
		TabIndex = 11, ;
		Top = 39, ;
		Width = 55, ;
		WordWrap = .T., ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label5' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valuta", ;
		Height = 18, ;
		Left = 633, ;
		Name = "Label5", ;
		TabIndex = 10, ;
		Top = 17, ;
		Width = 39, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label6' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Val. vz. iesiri cu TVA", ;
		Height = 34, ;
		Left = 421, ;
		Name = "Label6", ;
		TabIndex = 11, ;
		Top = 39, ;
		Width = 75, ;
		WordWrap = .T., ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label7' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Val. vz .intrari cu TVA", ;
		Height = 34, ;
		Left = 421, ;
		Name = "Label7", ;
		TabIndex = 10, ;
		Top = 10, ;
		Width = 80, ;
		WordWrap = .T., ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Shape1' AS shape WITH ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		Height = 69, ;
		Left = 9, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 8, ;
		Width = 709, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pgframe.Page1.Text1' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.ncanti", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPCANT)), ;
		Left = 103, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 14, ;
		Width = 110, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text2' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.ncantie", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPCANT)), ;
		Left = 103, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 42, ;
		Width = 110, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text3' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nsumi", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 293, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 14, ;
		Width = 120, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text4' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nsumie", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 293, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 42, ;
		Width = 120, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text5' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nsumiv", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 506, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 14, ;
		Width = 120, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text6' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nsumiev", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 506, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 42, ;
		Width = 120, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.but_modifica_furnizor' AS but_modifica WITH ;
		Anchor = 0, ;
		Height = 27, ;
		Left = 688, ;
		Name = "but_modifica_furnizor", ;
		TabIndex = 29, ;
		Top = 8, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page2.but_modifica_lucrare' AS but_modifica WITH ;
		Anchor = 0, ;
		Height = 27, ;
		Left = 688, ;
		Name = "but_modifica_lucrare", ;
		TabIndex = 29, ;
		Top = 60, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page2.but_modifica_responsabil' AS but_modifica WITH ;
		Anchor = 0, ;
		Height = 27, ;
		Left = 688, ;
		Name = "but_modifica_responsabil", ;
		TabIndex = 29, ;
		Top = 34, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page2.but_modifica_sectie' AS but_modifica WITH ;
		Anchor = 0, ;
		Height = 27, ;
		Left = 688, ;
		Name = "but_modifica_sectie", ;
		TabIndex = 29, ;
		Top = 86, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page2.grdnir' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		GridLineColor = 128,128,128, ;
		Height = 308, ;
		Left = 11, ;
		Name = "grdnir", ;
		Panel = 1, ;
		RecordSource = "crsnir", ;
		TabIndex = 3, ;
		Tag = "RESIZABLE", ;
		Top = 121, ;
		Width = 708, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.FontName = "Arial", ;
		Column1.Name = "cNrcrt", ;
		Column1.Width = 44, ;
		Column2.ControlSource = "codmat", ;
		Column2.FontName = "Arial", ;
		Column2.Name = "cCodMat", ;
		Column2.Width = 76, ;
		Column3.ControlSource = "denumire", ;
		Column3.FontName = "Arial", ;
		Column3.Name = "cDenumire", ;
		Column3.Width = 156, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "um", ;
		Column4.FontName = "Arial", ;
		Column4.Name = "cUM", ;
		Column4.Width = 39, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "pret", ;
		Column5.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column5.FontName = "Arial", ;
		Column5.Format = "R", ;
		Column5.InputMask = (get_mask(12,gnPpret)), ;
		Column5.Name = "cPret", ;
		Column5.Width = 70, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "cant", ;
		Column6.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column6.FontName = "Arial", ;
		Column6.Format = "R", ;
		Column6.InputMask = (get_mask(12,gnPcant)), ;
		Column6.Name = "cCant", ;
		Column6.Width = 68, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "round(pret*cant,gnPc)", ;
		Column7.FontName = "Arial", ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPA)), ;
		Column7.Name = "cValoare", ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "round(tva*cant,gnPc)", ;
		Column8.FontName = "Arial", ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPA)), ;
		Column8.Name = "cTva", ;
		Column8.Width = 55, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "round(cant*(pret+tva),gnPc)", ;
		Column9.FontName = "Arial", ;
		Column9.Format = "R", ;
		Column9.InputMask = (get_mask(12,gnPA)), ;
		Column9.Name = "cTotal", ;
		Column9.Width = 83, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "cod", ;
		Column10.FontName = "Arial", ;
		Column10.Name = "cCod", ;
		Column11.ColumnOrder = 11, ;
		Column11.FontName = "Arial", ;
		Column11.Name = "cResponsabil", ;
		Column11.Width = 120, ;
		Column12.ColumnOrder = 4, ;
		Column12.ControlSource = "serie", ;
		Column12.FontName = "Arial", ;
		Column12.Name = "cSerie", ;
		Column12.Width = 86
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCant.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Intrari", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCant.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCod.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCod.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cPret.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cPret.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cSerie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cTotal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cTotal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cUM.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.grdnir.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.Label1' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Factura seria", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label1", ;
		TabIndex = 12, ;
		Top = 14, ;
		Width = 85, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label10' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Sectie", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 482, ;
		Name = "Label10", ;
		TabIndex = 10, ;
		Top = 91, ;
		Width = 42, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label2' AS _label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "/", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 304, ;
		Name = "Label2", ;
		TabIndex = 13, ;
		Top = 15, ;
		Width = 11, ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label3' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare NIR", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label3", ;
		TabIndex = 10, ;
		Top = 66, ;
		Width = 78, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label4' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "NIR nr.", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label4", ;
		TabIndex = 9, ;
		Top = 40, ;
		Width = 45, ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label5' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Furnizor", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 469, ;
		Name = "Label5", ;
		TabIndex = 10, ;
		Top = 13, ;
		Width = 55, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label6' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "nr.", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 167, ;
		Name = "Label6", ;
		TabIndex = 12, ;
		Top = 14, ;
		Width = 19, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label7' AS _label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "/", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 303, ;
		Name = "Label7", ;
		TabIndex = 13, ;
		Top = 41, ;
		Width = 11, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label8' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Responsabil", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 445, ;
		Name = "Label8", ;
		TabIndex = 10, ;
		Top = 39, ;
		Width = 79, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label9' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Lucrare", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 473, ;
		Name = "Label9", ;
		TabIndex = 10, ;
		Top = 65, ;
		Width = 51, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.txtDataact' AS _textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.dataact", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 314, ;
		Name = "txtDataact", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 12, ;
		Value = ({}), ;
		Width = 112, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtDataIreg' AS _textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.dataireg", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 314, ;
		Name = "txtDataIreg", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 38, ;
		Value = ({}), ;
		Width = 112, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtFurnizor' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.partener", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 530, ;
		Name = "txtFurnizor", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 10, ;
		Width = 151, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtLucrare' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.lucrare", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 530, ;
		Name = "txtLucrare", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 62, ;
		Width = 151, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtNnir' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nnir", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 192, ;
		Name = "txtNnir", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 38, ;
		Value = 0, ;
		Width = 112, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtNract' AS _textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nract", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 192, ;
		Name = "txtNract", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 12, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 112, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtReponsabil' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.responsabil", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 530, ;
		Name = "txtReponsabil", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 36, ;
		Width = 151, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtSectie' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.sectie", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 530, ;
		Name = "txtSectie", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 88, ;
		Width = 151, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtSerieAct' AS _textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.serie_act", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 101, ;
		Name = "txtSerieAct", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 12, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 64, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.txtValoare' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.valoare", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 192, ;
		Name = "txtValoare", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 63, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 112, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.but_modifica_lucrare' AS but_modifica WITH ;
		Height = 27, ;
		Left = 653, ;
		Name = "but_modifica_lucrare", ;
		TabIndex = 29, ;
		Top = 42, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page3.but_modifica_responsabil' AS but_modifica WITH ;
		Height = 27, ;
		Left = 653, ;
		Name = "but_modifica_responsabil", ;
		TabIndex = 29, ;
		Top = 16, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page3.but_modifica_sectie' AS but_modifica WITH ;
		Height = 27, ;
		Left = 653, ;
		Name = "but_modifica_sectie", ;
		TabIndex = 29, ;
		Top = 68, ;
		Width = 29, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgframe.Page3.grdbon' AS _grdrow WITH ;
		ColumnCount = 10, ;
		DeleteMark = .F., ;
		GridLineColor = 128,128,128, ;
		Height = 326, ;
		Left = 11, ;
		Name = "grdbon", ;
		Panel = 1, ;
		RecordSource = "crsbon", ;
		TabIndex = 3, ;
		Tag = "RESIZABLE", ;
		Top = 101, ;
		Width = 708, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.FontName = "Arial", ;
		Column1.Name = "cNrcrt", ;
		Column1.Width = 44, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial", ;
		Column2.Name = "cDataact", ;
		Column2.Width = 60, ;
		Column3.ControlSource = "nnir", ;
		Column3.FontName = "Arial", ;
		Column3.Name = "cNract", ;
		Column3.Width = 65, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial", ;
		Column4.Name = "cDenumire", ;
		Column4.Width = 156, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "um", ;
		Column5.FontName = "Arial", ;
		Column5.Name = "cUM", ;
		Column5.Width = 39, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "pretv", ;
		Column6.DynamicForeColor = "IIF(pretv>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column6.FontName = "Arial", ;
		Column6.Format = "R", ;
		Column6.InputMask = (get_mask(14,gnPPretV)), ;
		Column6.Name = "cPretv", ;
		Column6.Width = 100, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "cante", ;
		Column7.DynamicForeColor = "IIF(cante>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial", ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPcant)), ;
		Column7.Name = "cCante", ;
		Column7.Width = 90, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "round(cante*pretv,gnPc)", ;
		Column8.FontName = "Arial", ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPA)), ;
		Column8.Name = "cValoare", ;
		Column8.Width = 110, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "nresp", ;
		Column9.FontName = "Arial", ;
		Column9.Name = "cResponsabil", ;
		Column9.Width = 106, ;
		Column10.ColumnOrder = 5, ;
		Column10.ControlSource = "serie", ;
		Column10.FontName = "Arial", ;
		Column10.Name = "cSerie", ;
		Column10.Width = 86
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgframe.Page3.grdbon.cCante.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Iesiri", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cCante.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cPretv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cPretv.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cSerie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cUM.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.grdbon.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.Label1' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Bon nr.", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 18, ;
		Name = "Label1", ;
		TabIndex = 12, ;
		Top = 18, ;
		Width = 48, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label10' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Sectie", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 397, ;
		Name = "Label10", ;
		TabIndex = 10, ;
		Top = 71, ;
		Width = 42, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label2' AS _label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "/", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 213, ;
		Name = "Label2", ;
		TabIndex = 13, ;
		Top = 18, ;
		Width = 11, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label3' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare bon", ;
		Height = 18, ;
		Left = 18, ;
		Name = "Label3", ;
		TabIndex = 9, ;
		Top = 72, ;
		Visible = .T., ;
		Width = 71, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label4' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Destinatie", ;
		Height = 18, ;
		Left = 18, ;
		Name = "Label4", ;
		TabIndex = 10, ;
		Top = 45, ;
		Width = 60, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label8' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Responsabil", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 360, ;
		Name = "Label8", ;
		TabIndex = 10, ;
		Top = 19, ;
		Width = 79, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label9' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Lucrare", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 388, ;
		Name = "Label9", ;
		TabIndex = 10, ;
		Top = 45, ;
		Width = 51, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Text4' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 96, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 43, ;
		Width = 215, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.txtDataact' AS _textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.dataact", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 224, ;
		Name = "txtDataact", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 15, ;
		Value = ({}), ;
		Width = 87
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.txtLucrare' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.lucrare", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 446, ;
		Name = "txtLucrare", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 42, ;
		Width = 206, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.txtNnir' AS _textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nnir", ;
		FontName = "Arial", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 96, ;
		Name = "txtNnir", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 15, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 112
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.txtReponsabil' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.responsabil", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 446, ;
		Name = "txtReponsabil", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 16, ;
		Width = 206, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.txtSectie' AS _textbox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.sectie", ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 446, ;
		Name = "txtSectie", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 68, ;
		Width = 206, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.txtValoare' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.valoare", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 96, ;
		Name = "txtValoare", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 69, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 112, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'Xresize1' AS xresize WITH ;
		Left = 732, ;
		Name = "Xresize1", ;
		Top = 48
		*< END OBJECT: ClassLib="xresize.vcx" BaseClass="custom" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		lcFiltru=tcFiltru
		If Empty(lcFiltru)
			lcFiltru=porulaje.ca_baza1.cfiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		
		save_grid_tag(Thisform.pgframe.page1.grdrulaje)
		porulaje.ca_baza1.cfiltru=lcFiltru
		porulaje.ca_baza1.afisare()
		restore_grid_tag(Thisform.pgframe.page1.grdrulaje)
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		
		
		this.CalculeazaTotaluri(.T.)
		
		Thisform.Refresh
	ENDPROC

	PROCEDURE calculeazatotaluri
		Lparameters tlRefreshValute
		
		Local lcSelect, lcFilter
		lcSelect = Select()
		&& tlRefreshValute = .T. din this.actualizeazagrid1 - sa reconstruiasca cursorul cu valutele existente in selectie
		&& tlRefreshValute = .F. - doar schimb valuta din cboValute - recalculez totalurile fara sa reconstruiesc cursorul cu valute
		lcFilter = FILTER('crsRulX')
		
		If Reccount('crsRulX')>0
			Select crsRulX
		
		
			If tlRefreshValute
		*!* cursor valute pentru calcul totaluri intr-o valuta
				Select This.nIdMonedaNationala As id_valuta, This.cMonedaNationala As nume_val ;
					FROM dual ;
					UNION ;
					SELECT Distinct id_valuta, nume_val;
					FROM crsRulX ;
					WHERE id_valuta <> This.nIdMonedaNationala ;
					INTO Cursor cValuteRulTemp
			Endif
		
		&& daca am ales moneda nationala pentru calcul total - cant*pret
		&& daca am ales o valuta - total = cant*pretd si id_valuta aleasa
			If This.nIdValutaTotal = This.nIdMonedaNationala Or Inlist(Upper(Alltrim(This.cValutaTotal)),'LEI','RON','ROL')
				lcWhere = "2=2"
				lcPret = "pret"
				lcPrecizieSuma = gnPc
			Else
				lcWhere = "id_valuta = " + Alltrim(Str(This.nIdValutaTotal))
				lcPret = "pretd"
				lcPrecizieSuma = gnPVal
			ENDIF
			lcWhere = lcWhere + IIF(!EMPTY(m.lcFilter), [ and ] + m.lcFilter, [])
		
			Select Sum(Round(cant*&lcPret,lcPrecizieSuma)) As valintrari, ;
				SUM(Round(cante*&lcPret,lcPrecizieSuma)) As valiesiri, ;
				Sum(Round(cant*(pretv+tvav),gnPc)) As valvintrari, ;
				SUM(Round(cante*(pretv+tvav),gnPc)) As valviesiri, ;
				SUM(cant) As intrari, ;
				SUM(cante) As iesiri;
				FROM crsRulX ;
				WHERE &lcWhere ;
				INTO Cursor cTotaluriTemp
		
			Select cTotaluriTemp
			Scatter Name loTotal
			Use In cTotaluriTemp
		
			With loTotal
				Thisform.nsumi = .valintrari
				Thisform.nsumie = .valiesiri
				Thisform.nsumiv = .valvintrari
				Thisform.nsumiev = .valviesiri
				Thisform.ncanti = .intrari
				Thisform.ncantie = .iesiri
			Endwith
		
			Thisform.lnoua=.T.
		Else
			Thisform.nsumi = 0
			Thisform.nsumie = 0
			Thisform.nsumiv = 0
			Thisform.nsumiev = 0
			Thisform.ncanti=0
			Thisform.ncantie=0
		Endif
		This.pgframe.page1.cboValuta.Requery()
		This.pgframe.page1.Refresh()
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_cauta
		Lparameters tcFiltru
		
		LOCAL loMonedaNationala
		
		Local lcFiltru
		If !Empty(tcFiltru)
			lcFiltru = [ and ] + tcFiltru
		Else
			lcFiltru = []
		Endif
		
		If !Empty(Thisform.nnr_pag)
			lcFiltru = lcFiltru + [ and nr_pag = ] + Alltrim(Str(Thisform.nnr_pag))
		Endif
		
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
			lcFiltru = [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + lcFiltru
		ENDIF
		
		
		&& DACA FILTRUL NU CONTINE INREGISTRARILE STERSE, SELECTEZ DOAR INREGISTRARILE STERS = 0
		IF !'STERS'$UPPER(THISFORM.filtru_pretty_ro_full)
			lcFiltru = [ AND STERS = 0] + lcFiltru
		ENDIF
		
		*!* 10.06.2008
		*!*	&& DACA FILTRUL NU CONTINE TIP RULAJ, IAU DOAR TIPUL "INTRARI/IESIRI REALE"
		*!*	IF 'TIP RULAJ'$UPPER(THISFORM.filtru_pretty_ro)
		*!*		WITH This.ck_filtru_tiprulaj
		*!*			.Value = 0
		*!*			.Filtru = ""
		*!*			.cTraducere = ""
		*!*		ENDWITH 		
		*!*	ENDIF 	
		*!* 10.06.2008 ^
		
		THISFORM.but_start_criterii1.refreshstatus()
			
		*!* 10.06.2008
		*!*	If Thisform.ck_filtru_tiprulaj.Value = 1
		*!*		lcFiltru = This.ck_filtru_tiprulaj.filtru + lcFiltru
		*!*	Endif
		*!* 10.06.2008 ^
		
		IF LEN(THISFORM.filtru_pretty)>0
			filtrutext = THISFORM.filtru_pretty
			lcFiltru = lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
		ENDIF
		
		lcFiltru = lcFiltru + gcCondSucursala
		IF LEN(lcfiltru)>0
			lcFiltru = SUBSTR(lcFiltru, 6)
		ENDIF 	
		
		&& ACTUALIZEZ PERIOADA DIN TITLUL REGISTRULUI JURNAL
		lcTitlu = THISFORM.lb_titlu_alb_b121.CAPTION
		IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
			lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) +	" " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
		ELSE
			IF TYPE('this.ocriterii') = 'O'
				loCollection = THIS.oCriterii.GetCriteriu("perioada")
				i = 0
				lcValoare1 = ""
				lcValoare2 = ""
				FOR EACH criteriu IN loCollection
					i = i + 1
					IF i = 1
						lcValoare1 = criteriu.valoare
					ELSE
						lcValoare2 = criteriu.valoare
					ENDIF
					IF i = 2
						EXIT
					ENDIF
				ENDFOR
				IF EMPTY(STRTRAN(lcValoare1,'/','')) AND EMPTY(STRTRAN(lcValoare2,'/',''))
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) +	" " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
				ELSE
					IF EMPTY(STRTRAN(lcValoare2,'/',''))
						lcValoare2 = lcValoare1
					ENDIF
				ENDIF
		
				IF lcValoare1 = lcValoare2
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1
				ELSE
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1 + " - " + lcValoare2
				ENDIF
			ENDIF
		ENDIF
		THIS.lb_titlu_alb_b121.CAPTION = lcTitlu
		
		
		
		
		IF (THIS.filtru_pretty#"none")
		Thisform.actualizeaza_grid1(lcFiltru)
		Select crsRulX
		If Reccount()>0
			Go Top
			If cant#0
				Thisform.pgframe.page2.Enabled=.T.
				Thisform.pgframe.page3.Enabled=.F.
			Else
				Thisform.pgframe.page2.Enabled=.F.
				Thisform.pgframe.page3.Enabled=.T.
			Endif
		Else
			aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
			Thisform.pgframe.page2.Enabled=.F.
			Thisform.pgframe.page3.Enabled=.F.
		Endif
		
		With Thisform.pgframe
			If .ActivePage!=1
				.Pages(.ActivePage).Deactivate()
				.page1.Activate()
				.page1.SetFocus()
			Endif
			.page1.grdrulaje.SetFocus()
		*!*		.page1.grdrulaje.SetFocus()
		*!*		.page1.grdrulaje.refresh
		Endwith
		ENDIF
		THISFORM.but_start_criterii1.SETFOCUS
	ENDPROC

	PROCEDURE do_excel
		*!*	DO export_excel WITH this.pgframe.page1.grdrulaje,this.lb_titlu_alb_b121.Caption
		LOCAL lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
		lcAlias = THIS.pgframe.page1.grdrulaje.RECORDSOURCE
		lcFiltru = FILTER(lcAlias)
		
		lcOrder = 'dataact,codmat,denumire'
		lcTitlu = "Rulaje"
		IF RECCOUNT(lcAlias) > 0
			DO export_excel_grid WITH THIS.pgframe.page1.grdrulaje, lcOrder, lcFiltru, lcTitlu IN proceduri_excel.prg
		ELSE
			amessagebox("Nu exista inregistrari pentru export!",0+48,"Atentie")
		ENDIF
		
		
		
	ENDPROC

	PROCEDURE do_listare
		PRIVATE pcSubtitlu
		pcSubtitlu = this.filtru_pretty_ro_full 
		
		lcCursor = Thisform.pgframe.page1.grdrulaje.RecordSource
		If Reccount(lcCursor) > 0
			Select (lcCursor)
			lnIdGestiune = id_gestiune
		
			If Inlist(GetTipGestiune(lnIdGestiune),-1,6)
				X=XMENU("Listare \<selectie;\<Fisa magazie;\<Istoric articol")
			Else
				X=XMENU("Listare \<selectie;\<Fisa magazie;\<Istoric articol;\-;Fisa magazie ( cu preturi in \<valuta )")
			Endif
		
			Do Case
			Case X = 1
		&& listare selectie
				Thisform.AlwaysOnTop=.F.
				pcperioada='LUNA: '+pcnl+'  '+pcan
				pctitlu = 'JURNAL RULAJE'
				pcDataOra = get_ora(2)
				Select (lcCursor)
				*Keyboard '{CTRL+F10}'
				*Report Form rap_rulajesimple To Printer Prompt Preview
				goExport.export2frx(m.lcCursor,[rap_rulajesimple],.T., , , , , .T.)	
				Thisform.AlwaysOnTop=.T.
			Case X = 2
		&& fisa magazie
				Private PcCodul,pcdenumire,pcondper,pcNumeGestiune,pcSerie
				Store '' To pcondper
				Local ldata1,ldata2,lcd1,lcd2
				Thisform.AlwaysOnTop=.F.
		
				Select (lcCursor)	&&	crsRulX
				PcCodul=Val(Alltrim(Str(id_articol)))
				pcdenumire=Upper(Alltrim(denumire))
				pnIdGestiune = id_gestiune
				pcNumeGestiune = Alltrim(nume_gestiune)
				pcSerie = Alltrim(serie)
				Do fisa_magazie_fifo With gnTipGest,pnIdGestiune,pcNumeGestiune,PcCodul,pcSerie In orapoarte.prg
				Thisform.AlwaysOnTop=.T.
		
			Case X = 3
		&& istoric articol
				This.do_listare3()
			Case X = 5
				This.do_listare4()
			Endcase
		Else
			amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_listare3
		lcCursorRaport = [crsraport]
		Private lnAn1, lnLuna1, lnAn2, lnLuna2
		Private pnIdArticol, pnPerInceput, pnPerSfarsit
		Private pcTitlu,pcPerioada,pcDataOra
		Store 0 To lnAn1, lnLuna1, lnAn2, lnLuna2, pnIdArticol, pnPerInceput, pnPerSfarsit
		Store '' To pcTitlu, pcPerioada
		
		Select (lcCursor)
		pnIdArticol = id_articol
		pcSerie = Alltrim(Nvl(serie,'+_'))
		
		pcTitlu = [ISTORIC ARTICOL ] + Alltrim(denumire) + [ (] + Alltrim(Nvl(codmat,'')) + [)]
		
		loLuna = get_oluna(gnAn, gnLuna)
		lcLuna1 = Padl(loLuna.lunamin,2,'0') + Padl(loLuna.anmin,4,'0')
		lcLuna2 = Padl(loLuna.lunamax,2,'0') + Padl(loLuna.anmax,4,'0')
		
		pcondper=""
		ofrmperioada=Createobject('frm_perioada_luni')
		With ofrmperioada
			._textbox1.Value=lcLuna1
			._textbox2.Value=lcLuna2
			._optiongrup1.Value = 2
			._optiongrup1.Valid()
		Endwith
		ofrmperioada.Show(1)
		If gnButon=2
			Return
		Endif
		
		plPerioada=.F.
		lnPoz=At('_',pcondper)
		If lnPoz>0
			plPerioada=.T.
		Endif
		
		If plPerioada
			lnAn1 = Val(Substr(pcondper,3,4))
			lnLuna1 = Val(Substr(pcondper,1,2))
			lnAn2 = Val(Substr(pcondper,10,4))
			lnLuna2 = Val(Substr(pcondper,8,2))
		
			pnPerInceput = lnAn1 * 12 + lnLuna1
			pnPerSfarsit = lnAn2 * 12 + lnLuna2
			pcPerioada = [Perioada : ] + Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4) + ' - ' + Substr(pcondper,8,2)+'/'+Substr(pcondper,10,4)
		Else
			lnAn1 = Val(Substr(pcondper,3,4))
			lnLuna1 = Val(Substr(pcondper,1,2))
			lnAn2 = Val(Substr(pcondper,3,4))
			lnLuna2 = Val(Substr(pcondper,1,2))
		
			pnPerInceput = lnAn1 * 12 + lnLuna1
			pnPerSfarsit = lnAn2 * 12 + lnLuna2
			pcPerioada = [Luna : ] + Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4)
		Endif
		
		If Used(lcCursorRaport)
			Use In (lcCursorRaport)
		Endif
		
		pcDataOra = get_ora(2)
		
		lcSql = [select c.codmat, c.denumire as nume_articol,a.serie, c.um, c.cant_bax, c.um2, d.sectie,] + ;
			[d.csectie, e.nrord, f.nume_gestiune, ] + ;
			[f.cgest, g.nume_gestiune as nume_gestiunec, g.cgest as cgestc,] + ;
			[(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end) as pret, a.cant, a.cante,  ] + ;
			[ROUND(a.cant*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_intrari,] + ;
			[ROUND(a.cante*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_iesiri,] + ;
			[a.pretd, v.nume_val, a.curs, ] + ;
			[b.dataact, b.nnir,decode(b.nract,b.nnir,null,b.serie_act) as serie_act,decode(b.nract,b.nnir,null,b.nract) as nract,] + ;
			[b.explicatia, h.denumire, i.fel_document, j.descriere as tip_rulaj ] + ;
			[from rul a left join ] + ;
			[(select distinct cod,dataact,max(nnir) over(partition by cod) as nnir,id_fdoc,serie_act,nract,] + ;
			[max(id_partd) over(partition by cod) as id_partd,] + ;
			[first_value(explicatia) over(partition by cod order by explicatia ASC) as explicatia ] + ;
			[from act where sters = 0 and cod in (select cod ] + ;
			[from rul where id_articol = ?pnIdArticol and NVL(serie,'+_') = ?pcSerie and sters = 0] + ;
			gcCondSucursala + [) ] + ;
			[and scc not in ('4427', '4111', '667')) b on a.cod = b.cod ] + ;
			[left join nom_articole c on a.id_articol = c.id_articol ] + ;
			[left join nom_sectii d on a.id_sectie = d.id_sectie ] + ;
			[left join vnom_lucrari e on a.id_lucrare = e.id_lucrare ] + ;
			[left join nom_gestiuni f on a.id_gestiune = f.id_gestiune ] + ;
			[left join nom_gestiuni g on a.id_gestiunec = g.id_gestiune ] + ;
			[left join nom_parteneri h on b.id_partd = h.id_part ] + ;
			[left join nom_fdoc i on b.id_fdoc = i.id_fdoc ] + ;
			[left join nom_tip_rulaj j on a.id_tip_rulaj = j.id_tip_rulaj ] + ;
			[left join vnom_valute v on a.id_valuta = v.id_valuta ] + ;
			[where a.sters = 0 and a.id_articol = ?pnIdArticol and NVL(a.serie,'+_') = ?pcSerie ] + ;
			[and a.luna + a.an * 12 between ?pnPerInceput and ?pnPerSfarsit ] + ;
			Strtran(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + [ ] + ;
			[order by b.dataact]
		lnSucces = goExecutor.oExecute(lcSql,lcCursorRaport)
		
		If lnSucces < 0
			amessagebox(goExecutor.oPrelucrareEroare(),0+16,"Eroare")
		Else
			If Reccount(lcCursorRaport)>0
				Thisform.AlwaysOnTop=.F.
				Select (lcCursorRaport)
				*Keyboard '{CTRL+F10}'
				*Report Form istoric_Articol To Printer Prompt Preview
				goExport.export2frx(m.lcCursorRaport,[istoric_Articol],.T., , , , , .T.)	
				Thisform.AlwaysOnTop=.T.
			Else
				amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
			Endif
		Endif
		If Used(lcCursorRaport)
			Use In (lcCursorRaport)
		Endif
		
	ENDPROC

	PROCEDURE do_listare4
		Private pnIdArticol,pcDenumire,pnId_gestiune,pcNumeGestiune,pcSerie,pcUm,pcCodMaterial,pcTitlu, pcPerioada, pcDataOra,pnIdValuta,pcValuta
		Store '' To pcTitlu,pcNumeGestiune,pcSerie,pcUm,pcCodMaterial,pcDataOra,pcValuta
		 
		If Used('crstemp')
			Use In crstemp
		Endif
		
		Select (lcCursor)	&&	crsRulX
		pnIdArticol = id_articol
		pnIdGestiune = id_gestiune
		pcDenumire = Upper(Alltrim(denumire))
		pcUm = Upper(Alltrim(um))
		pcCodMaterial = Upper(Alltrim(codmat))
		pcSerie = Upper(Alltrim(serie))
		pcNumeGestiune = Upper(Alltrim(nume_gestiune))
		pnIdValuta = Nvl(id_valuta,0)
		pcValuta = ALLTRIM(nume_val)
		
		Thisform.AlwaysOnTop=.F.
		do fisa_magazie_FIFO_valuta WITH gnTipGest, pnIdGestiune , pcNumeGestiune, pnIdArticol , pcSerie ,pnIdValuta ,pcValuta 
		Thisform.AlwaysOnTop=.t.
		*!*	*!*	perioada raport
		*!*	Private pnAnI, pnLunaI, pnAnLunaI, pnAnLunaF
		*!*	Store 0 To pnAnI, pnLunaI, pnAnLunaI, pnAnLunaF
		*!*	loLuna = get_oluna(gnAn, gnLuna)
		*!*	lcLuna1 = Padl(loLuna.lunamin,2,'0') + Padl(loLuna.anmin,4,'0')
		*!*	lcLuna2 = Padl(loLuna.lunamax,2,'0') + Padl(loLuna.anmax,4,'0')
		
		*!*	pcondper=""
		*!*	ofrmperioada=Createobject('frm_perioada_luni')
		*!*	With ofrmperioada
		*!*		._textbox1.Value=lcLuna1
		*!*		._textbox2.Value=lcLuna2
		*!*		._optiongrup1.Value = 2
		*!*		._optiongrup1.Valid()
		*!*	Endwith
		*!*	ofrmperioada.Show(1)
		*!*	If gnButon=2
		*!*		Return
		*!*	Endif
		
		*!*	plPerioada=.F.
		*!*	lnPoz=At('_',pcondper)
		*!*	If lnPoz>0
		*!*		plPerioada=.T.
		*!*	Endif
		
		
		*!*	If plPerioada
		*!*		pnAnI = Val(Substr(pcondper,3,4))
		*!*		pnLunaI = Val(Substr(pcondper,1,2))
		*!*		pnAnF = Val(Substr(pcondper,10,4))
		*!*		pnLunaF = Val(Substr(pcondper,8,2))
		
		*!*		pnAnLunaI = pnAnI * 12 + pnLunaI
		*!*		pnAnLunaF = pnAnF * 12 + pnLunaF
		*!*		pcPerioada = Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4) + ' - ' + Substr(pcondper,8,2)+'/'+Substr(pcondper,10,4)
		*!*	Else
		*!*		pnAnI = Val(Substr(pcondper,3,4))
		*!*		pnLunaI = Val(Substr(pcondper,1,2))
		
		*!*		pnAnLunaI = pnAnI * 12 + pnLunaI
		*!*		pnAnLunaF = pnAnLunaI
		*!*		pcPerioada = Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4) + ' - ' + Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4)
		*!*	Endif
		
		*!*	lcSql = [select a.dataact,a.nnir,a.pret,a.pretd,a.nume_valuta_a,a.cant,a.pretv,a.pretdv,a.nume_valuta_v,] + ;
		*!*		[a.cante,sum(nvl(a.cant, 0) - nvl(a.cante, 0)) over(order by a.dataact,a.dataora) as cants ] + ;
		*!*		[from (select last_day(to_date(a.an || a.luna, 'YYYYMM')) as dataact, ] + ;
		*!*		[null as nnir,a.pret,a.pretd,decode(b.moneda_nationala, 0, b.nume_val, null) as nume_valuta_a,] + ;
		*!*		[a.cants + a.cant - a.cante as cant,null as pretv,0 as pretdv,null as nume_valuta_v,null as cante,null as dataora ] + ;
		*!*		[from ] + gcS + [.stoc a ] + ;
		*!*		[left join ] + gcS + [.nom_valute b on a.id_valuta = b.id_valuta ] +;
		*!*		[where a.id_articol = ?pnIdArticol and NVL(a.id_valuta,0) = ?pnIdValuta and a.luna = ?pnLunaI and a.an = ?pnAnI ] + ;
		*!*		[and NVL(a.serie,'+_') = ?NVL(pcSerie,'+_') and a.id_gestiune = ?pnIdGestiune ] + ;
		*!*		STRTRAN(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + ;
		*!*		[union all ] + ;
		*!*		[select a.dataact,a.nnir,a.pret,] + ;
		*!*		[a.pretd,decode(d.moneda_nationala, 0, d.nume_val, null) as nume_valuta_a,] + ;
		*!*		[decode(a.cante, 0, a.cant, null) as cant,decode(a.cant, 0, a.pretv, null) as pretv,] + ;
		*!*		[decode(e.moneda_nationala,0,decode(c.pret_cu_tva,0,c.pret,1,round(c.pret / c.proc_tvav,] + ;
		*!*		[pack_sesiune.getoptiunefirma('PVAL'))),0) as pretdv,] + ;
		*!*		[decode(e.moneda_nationala, 0, e.nume_val, null) as nume_valuta_v,decode(a.cant, 0, a.cante, null) as cante,a.dataora ] + ;
		*!*		[from ] + gcS + [.rul a ] + ;
		*!*		[left join ] + gcS + [.vanzari b on a.cod = b.cod and b.sters = 0 and NVL(a.id_sucursala,-99) = NVL(b.id_sucursala,-99) ] + ;
		*!*		[left join ] + gcS + [.vanzari_Detalii c on a.id_articol = c.id_articol ] + ;
		*!*		[and a.id_gestiune = c.id_gestiune and a.cont = c.cont and nvl(a.serie, '+_') = nvl(c.serie, '+_') ] + ;
		*!*		[and b.id_vanzare = c.id_vanzare ] + ;
		*!*		[left join ] + gcS + [.nom_valute d on a.id_valuta = d.id_valuta ] + ;
		*!*		[left join ] + gcS + [.nom_valute e on c.id_valuta = e.id_valuta ] + ;
		*!*		[where a.id_articol = ?pnIdArticol and NVL(a.id_valuta,0) = ?pnIdValuta and a.sters = 0 ] + ;
		*!*		[and NVL(a.serie,'+_') = ?NVL(pcSerie,'+_') and a.id_gestiune = ?pnIdGestiune ] + ;
		*!*		Strtran(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + ;
		*!*		[and a.id_tip_rulaj <> 3 and a.luna + a.an * 12 between ?pnAnLunaI and ?pnAnLunaF order by 1) a ]
		*!*	lnSucces = goExecutor.oExecute(lcSql,[crstemp])
		*!*	If lnSucces < 0
		*!*		amessagebox(goExecutor.cEroare,16,"Eroare")
		*!*	Else
		*!*		If Reccount('crstemp')>0
		*!*			Thisform.AlwaysOnTop=.F.
		*!*			pcDataOra = get_ora(2)
		*!*			Select crstemp
		*!*			Keyboard '{CTRL+F10}'
		*!*			Report Form fisa_magazie_fifo_val To Printer Prompt Preview
		*!*			Thisform.AlwaysOnTop=.T.
		*!*		Else
		*!*			amessagebox("Nu exista inregistrari pentru perioada selectata!",0+48,"Atentie")
		*!*		Endif
		*!*	Endif
		
		*!*	If Used('crstemp')
		*!*		Use In crstemp
		*!*	Endif
	ENDPROC

	PROCEDURE do_modifica
		Local lnOptiune, llEditMode, lnIdSet, llIesiri
		Local llSucces
		Local lcMeniu1, lcMeniu2, lcMeniu3, llLunaCurenta, lnActivePage
		
		If !(This.but_modifica1.Visible And This.but_modifica1.Enabled)
			Return
		Endif
		
		IF EMPTY(NVL(crsRulX.nract,0))
			RETURN
		ENDIF 
		
		If m.glLunaInchisa
			aMESSAGEBOX('Luna este inchisa!', 0 + 48)
			Return
		ENDIF
		
		llEditMode = Thisform.se_modifica
		lnIdSet = crsRulX.id_set
		llIesiri = (crsRulX.cante <> 0)
		llIntrari = (crsRulX.cant <> 0)
		llLunaCurenta = (crsRulX.an = m.gnAn And crsRulX.luna = m.gnLuna)
		
		If !m.llLunaCurenta
			aMESSAGEBOX("Nu puteti modifica inregistrari din alta luna!", 0 + 48, "Atentie")
			Return
		Endif
		
		lnActivePage = This.pgframe.ActivePage
		lcMeniu1 = Iif(m.lnActivePage = 1 And This.lModificareInregistrare, '', '\')
		lcMeniu2 = Iif(INLIST(m.lnActivePage, 2, 3), '', '\')
		lcMeniu3 = Iif(m.lnActivePage = 1 And This.lModificareInregistrare and m.llIntrari, '', '\')
		
		If !m.llEditMode && se trece in modul de editare
			* Modificare document cu articole
			*!*		lnOptiune = 1
			If Between(m.lnIdSet, 43, 51) Or Inlist(m.lnIdSet, 53, 54, 61, 92, 104, 247, 267, 99999) Or ;
					(Inlist(m.lnIdSet, 74, 75, 76, 207, 237, 55, 273) And m.llIesiri) Or Inlist(m.lnIdSet, 81, 83) OR ;
					INLIST(m.lnIdSet, 100, 219) OR ;
					INLIST(m.lnIdSet, 217, 54, 88, 263) OR ;
					INLIST(m.lnIdSet, 78,80,90) OR ;
					INLIST(m.lnIdSet, 78,80,90) OR ;
					INLIST(m.lnIdSet, 79, 83, 271, 225, 272, 99999)
					
				* 43 - 51 : NIR
				* 53, 54 : bon consum
				* 61 : Vanzare marfa la pret de achizitie - en-detail
				* 62 : Vanzare marfa en-gros
				* 104 : NIR import materiale
				* 92 : NIR import marfa
				* 247 : NIR lista preturi
				* 267 : aviz retur clienti in custodie valoric
		
				* La transferuri doar daca ma pozitionez pe iesire
				* 74 : mf ach. - transfer catre o gest ach
				* 75 : mf ach. - transfer catre o gest vz
				* 76 : mv vz. - transfer catre o gest ach
				* 207 : mf vz. - transfer catre o gest vz
				* 237: mf vz. - Intrare din transfer de la gestiune valorica la pret de vanzare
				* !!! 89 : ob inv - transfer intre persoane - are bug-uri - la modificare pune doar iesirea, fara intrare
				* 55,273 : ob inv - dare in folosinta
		
				* 81 : produse - Intrare in gestiune produse pe baza de PV
				* 83 : produse - vanzare produse en-detail
				
				* 100, 219 : produse > intrare in gestiune - productie proprie 
				* 217, 54, 88, 263 : produse > bon consum
				* 78,80,90 : produse > vanzare cost productie 
				* 79, 83, 271, 225, 272 : produse > vanzare (initializeaza_vanzare_din_stoc)
				
				lnOptiune = xmenu(m.lcMeniu2 + "Editare antet;" + m.lcMeniu2 + "Modificare NIR/Bon;" + m.lcMeniu1 + "Modificare inregistrare curenta;" + m.lcMeniu3 + "Asociere ID_FACT rulaje NIR cu alt document tip Factura (SAFT)")
			Else
				* Modificare direct in rulaj
				lnOptiune = xmenu(m.lcMeniu2 + "Editare antet;" + "\Modificare NIR/Bon;" + m.lcMeniu1 + "Modificare inregistrare curenta;" + m.lcMeniu3 + "Asociere ID_FACT rulaje NIR cu alt document tip Factura (SAFT)")
			Endif
			Do Case
				Case lnOptiune = 1
					Thisform.editeaza_antet()
				Case m.lnOptiune = 2
					Thisform.modifica_articole()
				Case m.lnOptiune = 3
					Thisform.modifica_inregistrare()
				Case m.lnOptiune = 4
					Thisform.modifica_id_fact()
			Endcase
		Else
			llSucces = Thisform.salveaza_antet()
		Endif && !llEditMode
		
	ENDPROC

	PROCEDURE do_reset
		*!* 10.06.2008
		*!* am scos filtrul tip rulaj = intrare/iesire reala
		*!*	WITH This.ck_filtru_tiprulaj
		*!*		.Value = 1
		*!*		.Filtru = " and (id_tip_rulaj = 0)"
		*!*		.cTraducere = "Tip rulaj este 'INTRARE/IESIRE REALA'"
		*!*	ENDWITH 
		*!* 10.06.2008 ^
		
		DODEFAULT()
	ENDPROC

	PROCEDURE editeaza_antet
		LPARAMETERS tlAnulareEditare
		
		&& se trece in modul editare antet NIR
		IF PCOUNT() = 0
			Thisform.se_modifica = .T. && se_modifica_assign
		ELSE 
			Thisform.se_modifica = .F. && se_modifica_assign
		ENDIF 	
		
	ENDPROC

	PROCEDURE grid_sort_bind
		*!*
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tnNrPag
		DODEFAULT()
		thisform.nnr_pag = tnNrPag
		thisform.pgframe.page2.Enabled=.F.
		thisform.pgframe.page3.Enabled=.F.
		IF glLunaInchisa
			this.but_modifica1.Visible = !glLunaInchisa
			this.but_modifica1.Enabled = !glLunaInchisa
		ENDIF 	
		
		* SAFT
		This.pgframe.page1.grdrulaje.cTaxName.Visible = m.gl406
		
		*!* 10.05.2010
		this.gridextra1.setup()
		*!* 10.05.2010 ^
		
		
	ENDPROC

	PROCEDURE Load
		LOCAL loMonedaNationala
		LOCAL lcSelect
		lcSelect = SELECT()
		
		loMonedaNationala = GetMonedaNationala() && updateserver.prg
		this.nIdMonedaNationala = loMonedaNationala.id_valuta
		this.cMonedaNationala = loMonedaNationala.nume_val
		
			
		SELECT this.nIdMonedaNationala as id_valuta, this.cMonedaNationala as nume_val ;
			FROM dual ;
			INTO CURSOR cValuteRulTemp
		this.nIdvalutatotal = this.nIdMonedaNationala	
		this.cValutaTotal = this.cMonedaNationala
		SELECT (lcSelect)
		
		DODEFAULT()
	ENDPROC

	PROCEDURE modifica_articole
		Local llSucces
		this.AlwaysOnTop = .F.
		this.nract = crsRulX.nract
		this.dataact = crsRulX.dataact
		lnIdSet = thisform.oactoriginal.id_set
		IF m.lnIdSet = 99999 && import efactura achizitie
			lnIdSet  = 46 && achizitie factura neplatita ? poate sa fie si altceav
		ENDIF 
		
		llSucces = modificare_articole_gestiune(Thisform.oactoriginal.cod, m.lnIdSet) && pmenu.prg
		
		if m.llSucces
			Thisform.pgframe.ActivePage = 1
			thisform.pgframe.page1.grdrulaje.SetFocus()	
			Thisform.actualizeaza_grid1()
				
			SELECT crsRulX
			LOCATE FOR nract = thisform.nract AND dataact = thisform.dataact 
			IF !FOUND()
				GO TOP 
			ENDIF 	
		
		endif 	
		this.AlwaysOnTop = .T.
		 
	ENDPROC

	PROCEDURE modifica_id_fact
		* Asociaza rulajele cu alta factura (Ex: asociere ID_FACT rulaje la Invoice materii prime in curs de aprovizionare.
		* Invoice-ul este introdus anterior, doar in contabilitate, iar rulajele odata cu Declaratia Vamala, si rulajele trebuie asociate cu Invoice pentru SAFT
		
		Local lcSelect, lcSql, llLunaCurenta, llSucces, lnIdRul, lnOptiune, loFactura, loRul, ldData1, ldData2
		Private pnIdRul
		If m.glLunaInchisa
			aMESSAGEBOX('Luna este inchisa!',0+48)
			Return
		Endif
		
		lcSelect = This.pgframe.page1.grdrulaje.RecordSource
		If Reccount(lcSelect)=0
			aMESSAGEBOX("Nu exista inregistrari pentru modificare!",0+48,"Atentie")
			Return
		Endif
		
		Select (lcSelect)
		Scatter Name loRul
		lnIdRul = loRul.id_rul
		llLunaCurenta = (loRul.an = m.gnAn And loRul.luna = m.gnLuna)
		If !m.llLunaCurenta
			aMESSAGEBOX("Nu puteti modifica inregistrari din alta luna!",0+48,"Atentie")
			Select (m.lcSelect)
			Return
		Endif
		
		Select id_rul From (m.lcSelect) With (Buffering = .T.) Where ales = 1 And an = m.gnAn And luna = m.gnLuna Into Cursor crsAles
		If Reccount('crsAles') = 0
			aMESSAGEBOX('Nu ati ales nici o inregistrare! Bifati inregistrarile din rulaje pe care doriti sa le modificati!',0+48,_Screen.Caption)
			Use In (Select('crsAles'))
			Select (m.lcSelect)
			Return
		ENDIF
		
		* caut in ultimele 12 luni
		ldData1 = Gomonth(Date()-Day(Date()),-12)
		ldData2 = Date()
		
		loFactura = caut_factura('401,404,408,462,473', m.ldData1, m.ldData2 ) && caut doar facturi de achizitie
		
		If Type('loFactura.id_fact') = "N" And !Empty(Nvl(loFactura.id_fact,0))
			If aMESSAGEBOX('Doriti sa modificati ID_FACT ' + Alltrim(STR(Nvl(loFactura.id_fact,''))) + ' in ' + Alltrim(Str(Reccount('crsAles'))) + ' inregistrari alese?',4+32,_Screen.Caption) = 6
				lcSql = [UPDATE rul SET id_fact = ] + Alltrim(Str(loFactura.id_fact)) + [ where id_rul = ?pnIdRul]
				Select crsAles
				Scan
					pnIdRul = id_rul
					llSucces = goExecutor.oExecuta(m.lcSql)
					If !m.llSucces
						Exit
					Endif
				Endscan
		
				Thisform.actualizeaza_grid1()
				Try
					Select (m.lcSelect)
					Locate For id_rul = m.lnIdRul
				Catch
					Select (m.lcSelect)
					Locate
				Endtry
				This.pgframe.page1.grdrulaje.Refresh()
				aMESSAGEBOX('S-a modificat ID_FACT!',0+48,_Screen.Caption)
		
			Endif
		Endif
		
		Use In (Select('crsAles'))
		
	ENDPROC

	PROCEDURE modifica_inregistrare
		Local lcSelect, lcSql, llLunaCurenta, llSucces, lnIdRul, lnOptiune, loCauta, loRul
		PRIVATE pnIdRul
		If m.glLunaInchisa
			aMESSAGEBOX('Luna este inchisa!',0+48)
			Return
		Endif
		
		lcSelect = This.pgframe.page1.grdrulaje.RecordSource
		If Reccount(lcSelect)=0
			aMESSAGEBOX("Nu exista inregistrari pentru modificare!",0+48,"Atentie")
		else	
			lnOptiune = xmenu('Modifica gestiune si cantitate inregistrarea curenta;Modifica gestiune pentru inregistrarile alese')
			IF EMPTY(m.lnOptiune)
				RETURN 
			ENDIF 
			
			Select (lcSelect)
			Scatter Name loRul
			lnIdRul = loRul.id_rul
			llLunaCurenta = (loRul.an = m.gnAn And loRul.luna = m.gnLuna)
			IF !m.llLunaCurenta
				AMESSAGEBOX("Nu puteti modifica inregistrari din alta luna!",0+48,"Atentie")
			ELSE 	
				IF m.lnOptiune = 1
					Do Adauga_Modifica_Inregistrare With "rulaje",loRul,lnIdRul,[UPDATE]
					If gnButon = 1
						Thisform.actualizeaza_grid1()
						TRY 
							SELECT (m.lcSelect)
							LOCATE FOR id_rul = m.lnIdRul
						CATCH 
							SELECT (m.lcSelect)
							LOCATE 
						ENDTRY 
						This.pgframe.page1.grdrulaje.Refresh()
						AMESSAGEBOX('ATENTIE! Trebuie sa actualizati manual stocul din butonul Refacere!',0+48,_screen.Caption)
					ENDIF
				ELSE
		
					loCauta = caut_gestiune()
					IF TYPE('loCauta.id_gestiune') = "N" AND !EMPTY(NVL(loCauta.id_gestiune,0))
						SELECT id_rul FROM (m.lcSelect) WITH (buffering = .T.) WHERE ales = 1 AND an = m.gnAn AND luna = m.gnLuna INTO CURSOR crsAles
						IF RECCOUNT('crsAles') = 0
							AMESSAGEBOX('Nu ati ales nici o inregistrare!',0+48,_screen.Caption)
						ELSE 	
							IF AMESSAGEBOX('Doriti sa completati gestiunea ' + ALLTRIM(NVL(loCauta.nume_gestiune,'')) + ' in ' + ALLTRIM(STR(RECCOUNT('crsAles'))) + ' inregistrari alese?',4+32,_screen.Caption) = 6
								lcSql = [UPDATE rul SET id_gestiune = ] + ALLTRIM(STR(loCauta.id_gestiune)) + [ where id_rul = ?pnIdRul]
								SELECT crsAles
								SCAN
									pnIdRul = id_rul
									llSucces = goExecutor.oExecuta(m.lcSql)
									IF !m.llSucces
										EXIT
									ENDIF 
								ENDSCAN 
								USE IN (SELECT('crsAles'))
								
								
								Thisform.actualizeaza_grid1()
								TRY 
									SELECT (m.lcSelect)
									LOCATE FOR id_rul = m.lnIdRul
								CATCH 
									SELECT (m.lcSelect)
									LOCATE 
								ENDTRY 
								This.pgframe.page1.grdrulaje.Refresh()
								AMESSAGEBOX('ATENTIE! Trebuie sa actualizati manual stocul din butonul Refacere!',0+48,_screen.Caption)						
												
							ENDIF 	
						ENDIF 
		
					ENDIF 
				ENDIF 	
			ENDIF 	
		Endif 
	ENDPROC

	PROCEDURE Release
		this.pgframe.page1.cboValuta.RowSource = ""
		USE IN (SELECT('cValuteRulTemp'))
	ENDPROC

	PROCEDURE salveaza_antet
		*** se trece in modul vizualizare antet si se salveaza modificarea
		Local loAct As "empty"
		Local llSucces, lnIdRul
		SELECT crsRulX
		lnIdRul = id_rul
		
		loAct = Createobject("empty")
		With Thisform
			AddProperty(loAct, "cod", .cod)
			AddProperty(loAct, "nract", .nract)
			AddProperty(loAct, "dataact", .dataact)
			AddProperty(loAct, "nnir", .nnir)
			AddProperty(loAct, "dataireg", .dataireg)
			AddProperty(loAct, "id_partener", .id_partener)
			AddProperty(loAct, "id_sectie", .id_sectie)
			AddProperty(loAct, "id_lucrare", .id_lucrare)
			AddProperty(loAct, "id_responsabil", .id_responsabil)
		Endwith
		
		llSucces = modificare_antet_gestiune(m.loAct) && oproceduri_rulaje.prg
		
		If m.llSucces
			Thisform.se_modifica = .F.
			Thisform.do_cauta()
		
			SELECT crsRulX
			LOCATE FOR nract = thisform.nract AND dataact = thisform.dataact 
			IF !FOUND()
				GO TOP 
			ENDIF 	
			thisform.pgframe.page1.grdrulaje.SetFocus()
		Endif
		
		
		
	ENDPROC

	PROCEDURE se_modifica_assign
		Lparameters vNewVal
		*To do: Modify this routine for the Assign method
		Local llReadOnly, llVisible, llEditMode
		llEditMode = m.vNewVal
		llReadOnly = !m.vNewVal
		llVisible = m.vNewVal
		
		With Thisform.pgframe.page2
			.txtNrAct.ReadOnly = m.llReadOnly
			.txtDataAct.ReadOnly = m.llReadOnly
			.txtNnir.ReadOnly = m.llReadOnly
			.txtDataIreg.ReadOnly = m.llReadOnly
			.but_modifica_furnizor.Visible = m.llVisible
			.but_modifica_responsabil.Visible = m.llVisible
			.but_modifica_lucrare.Visible = m.llVisible
			.but_modifica_sectie.Visible = m.llVisible
			.refresh()
		Endwith
		
		With Thisform.pgframe.page3
			.txtNnir.ReadOnly = m.llReadOnly
			.txtDataAct.ReadOnly = m.llReadOnly
			.but_modifica_responsabil.Visible = m.llVisible
			.but_modifica_lucrare.Visible = m.llVisible
			.but_modifica_sectie.Visible = m.llVisible
			.refresh()
		Endwith
		
		If m.llEditMode && TREC IN MODUL EDITARE
		
			With Thisform.but_modifica1
				.cpicturedown = "save_jos.bmp"
				.cpictureup = "save_sus.bmp"
				.Picture = "save_sus.bmp"
				.ToolTipText = "Salvare"
				.Enabled = .T.
				.Refresh()
			Endwith
		Else
			Thisform.pgframe.page1.grdrulaje.Refresh()
			Thisform.pgframe.page2.grdnir.Refresh()
			Thisform.pgframe.page3.grdbon.Refresh()
		
			With Thisform.but_modifica1
				.cpicturedown = "MODIFICA2.BMP"
				.cpictureup = "MODIFICA1.BMP"
				.Picture = "MODIFICA1.BMP"
				.ToolTipText = "Modificare"
				.Enabled = .T.
				.Refresh()
			ENDWITH
				
		Endif
		
		This.se_modifica = m.vNewVal
		
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#DEFINE crlf CHR(13)+CHR(10)
		lcStringCriterii="Denumire articol\a.denumire\T\a.id_articol\nom_articol"+ crlf + ;
			"Cod material\a.codmat\T\none\" + crlf + ;
			"Serie articol\a.serie\T\none\" + crlf + ;
			"Grupa articol\a.grupa\T\a.id_grupa\nom_grupa_articol"+ crlf + ;
			"Subgrupa articol\a.subgrupa\T\a.id_subgrupa\nom_subgrupa_articol"+ crlf + ;
			"Cod bare\codbare\T\none\"+ crlf + ;		
			"Nr. document\a.nract\N\none\" + crlf + ;
			"Tip doc.\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
			"Serie document\a.serie_act\T\none\" + crlf + ;
			"Data document\a.dataact\D\none\" + crlf + ;	
			"Nr. NIR/bon\a.nnir\N\none\" + crlf + ;
			"Pret achizitie\a.pret\N|get_mask(12,gnPpret)\none\"+ crlf + ;
			"Pret vz.\a.pretv\N|get_mask(12,gnPpret)\none\"+ crlf + ;	
			"Pret vz. TVA\(a.pretv + a.tvav)\N|get_mask(12,gnPpret)\none\"+ crlf + ;		
			"Pret valuta\a.pretd\N|get_mask(12,gnPPretval)\none\" + crlf + ;
			"Valuta\a.nume_val\T\a.ID_VALUTA\nom_valuta" + crlf + ;	
			"Intrari\a.cant\N|get_mask(12,gnPCant)\none\" + crlf + ;
			"Iesiri\a.cante\N|get_mask(12,gnPCant)\none\" + crlf + ;
			"Cont\a.cont\T\none\"+ crlf + ;
			"Cont analitic\a.acont\T\none\"+ crlf + ;
			"Grupe gestiuni\|E|" + ;
				[a.id_gestiune in ( ] + ;
				[ select ID_GESTIUNE ] + ;
				[	from vgest_coresp_grupe_gestiuni c ] + ;
				[	join (select id_grupe ] + ;
				[       from gest_nom_grupe ] + ;
				[       where sters = 0 ] + ;
			    [       start with id_grupe = <<VALOARE>> ] + ;
				[      connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ;
			"Gestiune\none\I\a.id_gestiune\nom_gestiune" + crlf + ;
			"Grupe gest. coresp.\|E|" + ;
				[a.id_gestiunec in ( ] + ;
				[ select ID_GESTIUNE ] + ;
				[	from vgest_coresp_grupe_gestiuni c ] + ;
				[	join (select id_grupe ] + ;
				[       from gest_nom_grupe ] + ;
				[       where sters = 0 ] + ;
			    [       start with id_grupe = <<VALOARE>> ] + ;
				[      connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ;
			"Gestiune coresp.\none\I\a.id_gestiunec\nom_gestiune" + crlf + ;
			"Sectie\a.sectie\T\a.ID_SECTIE\nom_sectie" + crlf + ;
			"Lucrare/Comanda\nrord\T\a.ID_LUCRARE\nom_lucrare" + crlf + ;	
			"Lucrare rezervare\a.nrord_rez\T\a.ID_LUCRARE_REZ\nom_lucrare" + crlf + ;	
			"Partener rezervare\a.part_rez\T\a.id_part_rez\nom_parteneri" + crlf + ;	
			"Furnizor\a.furnizor\T\a.id_furnizor\nom_parteneri" + crlf + ;		
			IIF(EMPTY(gcCondSucursala) and glEMama,"Sucursala\Sucursala\C\none" + crlf,[]) +;
			"Tip rulaj\none\I\a.id_tip_rulaj\nom_tip_rulaj" + crlf + ;
			"Cod\cod\N\none\" + crlf + ;
			"Tip operatie\id_set\N\none\" + crlf + ;
			"Operator introducere\util\T\A.ID_UTIL\nom_utilizator" + crlf + ;
			"Data introducerii\trunc(a.dataora)\D\none\" + crlf + ;
			"Perioada\a.an*12+a.luna\D1\none\" + crlf + ;
			"Sterse\nofiled\E\(1=1)\"
		DODEFAULT()
		
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		thisform.CalculeazaTotaluri(.T.)
		
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		thisform.CalculeazaTotaluri(.T.)
		
	ENDPROC

	PROCEDURE pgframe.AddObject
		Lparameters cName, cClass
		*!*	modificare ROAGEST v 2.0.51
		If gnButon = 1
			Thisform.actualizeaza_grid1()
		Endif
		*!*	modificare ROAGEST v 2.0.51	^
		
	ENDPROC

	PROCEDURE pgframe.Page1.Activate
		DODEFAULT()
		
		this.FontBold=.T.
		*!*	Thisform.but_modifica1.Enabled = .T.
		*!*	Thisform.but_modifica1.Visible = .T.
	ENDPROC

	PROCEDURE pgframe.Page1.cboValuta.Valid
		thisform.nIdValutaTotal = cValuteRulTemp.id_valuta
		thisform.calculeazatotaluri()
	ENDPROC

	PROCEDURE pgframe.Page1.DblClick
		IF AMESSAGEBOX('Doriti sa activati modificarea inregistrarilor?' + CHR(13)+CHR(10) + 'Atentie trebuie refacut stocul dupa modificare!',4+32,_screen.Caption) = 6
			IF INPUTBOX('Parola','Parola') = DTOS(DATE())
				thisform.lModificareinregistrare = .T.
			ENDIF 
		ENDIF 
	ENDPROC

	PROCEDURE pgframe.Page1.Deactivate
		this.FontBold=.F.
	ENDPROC

	PROCEDURE pgframe.Page1.grdrulaje.AfterRowColChange
		Lparameters nColIndex
		If This.RowColChange = 1 Or This.RowColChange= 3
			thisform.lnoua=.T.
			Select crsRulX
			If cant#0
				Thisform.pgframe.page2.Enabled=.T.
				Thisform.pgframe.page3.Enabled=.F.
			Else
				Thisform.pgframe.page2.Enabled=.F.
				Thisform.pgframe.page3.Enabled=.T.
			Endif
		Endif
		DoDefault()
		
	ENDPROC

	PROCEDURE pgframe.Page1.grdrulaje.Init
		This.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column") 
		
	ENDPROC

	PROCEDURE pgframe.Page1.Text1.Refresh
		*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text2.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text3.Refresh
		*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text4.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI-TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text5.Refresh
		*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text6.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI-TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page2.Activate
		*!* 12.12.2014
		*!* marius.mutu
		*!* selectie rulaje dupa cod in loc de nnir
		
		Private pntotal, pnCod, pnid_fact, pnnnir
		Local lcSql, llEditMode, lnSucces
		Local llDeleted, llLunaCurenta
		Local loRul
		
		
		pntotal = 0
		DoDefault()
		If This.Enabled
			This.FontBold = .T.
		ENDIF
		
		llEditMode = Thisform.se_modifica
		llLunaCurenta = .F.
		llDeleted = .F.
		
		If Thisform.lnoua And !m.llEditMode
			Select crsRulX
			SCATTER NAME loRul
			pnCod = cod
			thisform.cod = cod
		
			llDeleted = !EMPTY(NVL(sters,0))
			llLunaCurenta = (an = m.gnAn And luna = m.gnLuna)
			With Thisform
				.nnir = loRul.nnir
				.nract = loRul.nract
				.dataact = loRul.dataact
				.partener = []
				.id_partener = 0
				.sectie = ALLTRIM(NVL(loRul.sectie, ''))
				.id_sectie = loRul.id_sectie
				.lucrare = Alltrim(NVL(loRul.nrord, ''))
				.id_lucrare = loRul.id_lucrare
				.responsabil = Alltrim(NVL(loRul.nresp,''))
				.id_responsabil = loRul.id_responsabil
				.serie_act = Alltrim(NVL(loRul.serie_act,''))
				.oActOriginal = Null
			Endwith
		
			If m.pnCod > 0
				Use In (SELECT('crsact'))
		
				* achizitii de la furnizor sau id_set 100,219 - produse > intrare in gestiune productie proprie (fara furnizor)
				lcSql = [select partc as partener, id_partc as id_partener, dataireg, id_set, cod from vact where an = ] + ALLTRIM(STR(m.gnAn)) + [ and luna = ] + ALLTRIM(STR(m.gnLuna)) + [ and cod = ] + ALLTRIM(STR(m.pnCod)) + [ and (NVL(id_partc,0) <> 0 or id_set in (100,219))]
				lnSucces = goExecutor.oExecute(lcSql, 'crsact')
				If m.lnSucces < 0
					aMessagebox(goExecutor.cEroare, 0 + 16, 'Eroare')
				Else
					Select crsact
					GO TOP 
					SCATTER NAME thisform.oactoriginal
					
					With Thisform
						.partener = Alltrim(NVL(partener,''))
						.id_partener = NVL(id_partener, 0)
						.dataireg = TTOD(dataireg)
					Endwith
		
					Use In (Select('crsact'))
				Endif && lnSucces
			Endif && m.pnid_fact > 0
		
		
			save_grid_tag(This.grdnir)
			ponir.ca_baza1.cfiltru = [a.cod=] + Alltrim(Str(m.pnCod))
			ponir.ca_baza1.afisare()
			restore_grid_tag(This.grdnir)
		
			Select crsnir
			Calculate Sum(Round(cant * (Pret + tva), gnPC)) To pntotal
			Thisform.valoare = m.pntotal
		
			Go Top
			This.Refresh()
			Thisform.lnoua = .F.
		Endif
		
		
		IF !m.llEditMode
			Thisform.but_modifica1.Enabled = m.llLunaCurenta And !m.llDeleted && permit modificari doar in luna curenta si doar pe inregistrarile nesterse
			Thisform.but_modifica1.Visible = .T.
		ENDIF 
		 
	ENDPROC

	PROCEDURE pgframe.Page2.but_modifica_furnizor.Click
		loCaut = caut_partener(,,,, .T., Thisform.dataact)
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.partener = ALLTRIM(loCaut.denumire)
			thisform.id_partener = loCaut.id_part
		ENDIF
		this.Parent.txtFurnizor.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page2.but_modifica_lucrare.Click
		loCaut = caut_lucrare()
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.lucrare = ALLTRIM(loCaut.nrord)
			thisform.id_lucrare = loCaut.id_lucrare
		ENDIF
		this.Parent.txtLucrare.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page2.but_modifica_responsabil.Click
		loCaut = caut_responsabil()
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.responsabil = ALLTRIM(loCaut.nume)
			thisform.id_responsabil = loCaut.id_responsabil
		ENDIF
		this.Parent.txtReponsabil.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page2.but_modifica_sectie.Click
		loCaut = caut_sectie()
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.sectie = ALLTRIM(loCaut.sectie)
			thisform.id_sectie = loCaut.id_sectie
		ENDIF
		this.Parent.txtSectie.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page2.Deactivate
		DODEFAULT()
		This.FontBold=.F.
		
		Local llEditMode, llRaspuns
		llEditMode = THISFORM.se_modifica
		IF m.llEditMode
			llRaspuns = AMESSAGEBOX('Aveti modificari nesalvate.' + CHR(13) + CHR(10) + 'Doriti sa salvati?',4+32, _Screen.Caption)
			IF m.llRaspuns = 6
				thisform.salveaza_antet()
			ELSE 
				thisform.editeaza_antet(.F.)
			ENDIF 
		ENDIF  
		
		*!*	thisform.but_modifica1.visible = .F.
		*!*	Thisform.but_modifica1.Enabled = .F.
	ENDPROC

	PROCEDURE pgframe.Page3.Activate
		Private pntotal
		Local lcSql, llDeleted, llEditMode, llLunaCurenta, lnSucces, loRul
		PRIVATE pncod
		
		pntotal=0
		DoDefault()
		If This.Enabled
			This.FontBold=.T.
		ENDIF
		llEditMode = Thisform.se_modifica
		llLunaCurenta = .F.
		llDeleted = .F.
		thisform.oActOriginal = NULL
		
		If Thisform.lnoua And !m.llEditMode
			Select crsRulX
			SCATTER NAME loRul
			pncod = cod
			thisform.cod = cod
			llDeleted = !EMPTY(NVL(sters,0))
			llLunaCurenta = (an = m.gnAn And luna = m.gnLuna)
			
			With Thisform
				.nnir = loRul.nnir
				.nract = loRul.nract
				.dataact = loRul.dataact
				.partener = []
				.id_partener = 0
				.sectie = ALLTRIM(NVL(loRul.sectie, ''))
				.id_sectie = loRul.id_sectie
				.lucrare = Alltrim(NVL(loRul.nrord, ''))
				.id_lucrare = loRul.id_lucrare
				.responsabil = Alltrim(NVL(loRul.nresp,''))
				.id_responsabil = loRul.id_responsabil
				.serie_act = Alltrim(NVL(loRul.serie_act,''))
				.oActOriginal = Null
			Endwith
		
			If m.pncod > 0
				lcSql = [SELECT * FROM act WHERE cod= ?pnCod]
				lnSucces = goExecutor.oExecute(lcSql, 'crsact')
				If m.lnSucces < 0
					aMessagebox(goExecutor.cEroare, 0 + 16, 'Eroare')
				ELSE 
					SELECT crsAct
					IF RECCOUNT() > 0
						GO TOP 
						SCATTER NAME thisform.oActOriginal	
					ENDIF 	
					USE IN (SELECT('crsAct'))		
				ENDIF && lnSucces 	
			
				save_grid(This.grdbon)
				pobon.ca_baza1.cfiltru=[a.cod=] + Alltrim(Str(pncod))
				pobon.ca_baza1.afisare()
				restore_grid(This.grdbon)
		
				Select crsbon
				Calculate Sum(ROUND(cante*pretv,gnPC)) To pntotal
				Thisform.valoare = m.pntotal
			Else
				Thisform.valoare = 0
			Endif
		
			Go Top
			This.Refresh()
			Thisform.lnoua = .F.
		ENDIF
		
		IF !m.llEditMode
			Thisform.but_modifica1.Enabled = m.llLunaCurenta And !m.llDeleted && permit modificari doar in luna curenta si doar pe inregistrarile nesterse
			Thisform.but_modifica1.Visible = .T.
		ENDIF 
	ENDPROC

	PROCEDURE pgframe.Page3.but_modifica_lucrare.Click
		loCaut = caut_lucrare()
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.lucrare = ALLTRIM(loCaut.nrord)
			thisform.id_lucrare = loCaut.id_lucrare
		ENDIF
		this.Parent.txtLucrare.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page3.but_modifica_responsabil.Click
		loCaut = caut_responsabil()
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.responsabil = ALLTRIM(loCaut.nume)
			thisform.id_responsabil = loCaut.id_responsabil
		ENDIF
		this.Parent.txtReponsabil.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page3.but_modifica_sectie.Click
		loCaut = caut_sectie()
		IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
			thisform.sectie = ALLTRIM(loCaut.sectie)
			thisform.id_sectie = loCaut.id_sectie
		ENDIF
		this.Parent.txtSectie.Refresh()
	ENDPROC

	PROCEDURE pgframe.Page3.Deactivate
		DODEFAULT()
		This.FontBold=.F.
		
		Local llEditMode, llRaspuns
		llEditMode = THISFORM.se_modifica
		IF m.llEditMode
			llRaspuns = AMESSAGEBOX('Aveti modificari nesalvate.' + CHR(13) + CHR(10) + 'Doriti sa salvati?',4+32, _Screen.Caption)
			IF m.llRaspuns = 6
				thisform.salveaza_antet()
			ELSE 
				thisform.editeaza_antet(.F.)
			ENDIF 
		ENDIF  
		
		*!*	thisform.but_modifica1.visible = .F.
		*!*	Thisform.but_modifica1.Enabled = .F.
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_rulaje_nou 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="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="shp_saft" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="clb_gestiune" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_cant" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_cante" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboTVA" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_saft" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_saft" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_rulaje" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_gestiune
		*p: ncant
		*p: ncante
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 211
		Name = "frm_rulaje_nou"
		ncant = 0
		ncante = 0
		Width = 361
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 387
		_shape1.ZOrderSet = 1
		_shape2.Height = 29
		_shape2.Left = 326
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 61
		_shape2.ZOrderSet = 2
		Lb_titlu_alb_b121.Caption = "Rulaj"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Left = 331
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 4
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_shape3' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 29, ;
		Left = 13, ;
		Name = "_shape3", ;
		Top = 144, ;
		Width = 312, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Left = 301, ;
		Name = "But_renunt1", ;
		TabIndex = 7, ;
		Top = 1, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_saft' AS combobox WITH ;
		BorderColor = 128,128,128, ;
		BorderStyle = 1, ;
		BoundColumn = 4, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "500,150,50", ;
		ControlSource = "poRec.taxcode", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 20, ;
		InputMask = "", ;
		Left = 84, ;
		Name = "cbo_saft", ;
		RowSource = "Select taxname, tip, procent_taxa, taxcode From saft_taxtable where tva = 1 order by taxcode Into Cursor crsTaxTableX", ;
		RowSourceType = 3, ;
		SpecialEffect = 1, ;
		Style = 2, ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 177, ;
		Visible = .F., ;
		Width = 236, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'cboTVA' AS combobox WITH ;
		BorderColor = 128,128,128, ;
		BorderStyle = 1, ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "500,50", ;
		ControlSource = "poRec.id_jtva_coloana", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 20, ;
		InputMask = "", ;
		Left = 84, ;
		Name = "cboTVA", ;
		RowSource = "select denumire, cota_tva, id_jtva_coloana From crsTVATemp order by denumire Into Cursor crsTVAX", ;
		RowSourceType = 3, ;
		SpecialEffect = 1, ;
		Style = 2, ;
		TabIndex = 4, ;
		TabStop = .T., ;
		Top = 149, ;
		Visible = .T., ;
		Width = 236, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'clb_gestiune' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "clb_gestiune", ;
		TabIndex = 1, ;
		TabStop = .F., ;
		ToolTipText = "Pentru modificare, faceti dublu-click!", ;
		Top = 55, ;
		Width = 313, ;
		ZOrderSet = 8, ;
		Text_simplu1.ControlSource = "porec.cgest", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = , ;
		Text_simplu1.Width = 206, ;
		Lb_simplu1.Caption = "Gestiune", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_cant' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_cant", ;
		TabIndex = 2, ;
		Top = 83, ;
		Width = 312, ;
		ZOrderSet = 10, ;
		Text_simplu1.ControlSource = "porec.cant", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 165, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 141, ;
		Lb_simplu1.Caption = "Cantitate intrata:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_cante' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_cante", ;
		TabIndex = 3, ;
		Top = 111, ;
		Width = 312, ;
		ZOrderSet = 11, ;
		Text_simplu1.ControlSource = "porec.cante", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 165, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 141, ;
		Lb_simplu1.Caption = "Cantitate iesita:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_rulaje' AS cus_odata_rulaje WITH ;
		Left = 120, ;
		Name = "Cus_odata_rulaje", ;
		Top = 24
		*< END OBJECT: ClassLib="rulaje.vcx" BaseClass="custom" />

	ADD OBJECT 'img_parinte' AS _image WITH ;
		Height = 24, ;
		Left = 331, ;
		Name = "img_parinte", ;
		Picture = ..\grafice\alege.bmp, ;
		Stretch = 2, ;
		ToolTipText = "Alegeti valuta", ;
		Top = 57, ;
		Width = 24, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 22, ;
		Name = "Label1", ;
		TabIndex = 9, ;
		Top = 150, ;
		Visible = .T., ;
		Width = 27, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lb_saft' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod taxa", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 22, ;
		Name = "lb_saft", ;
		TabIndex = 10, ;
		Top = 178, ;
		Visible = .F., ;
		Width = 54, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'shp_saft' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 29, ;
		Left = 13, ;
		Name = "shp_saft", ;
		Top = 172, ;
		Width = 312, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="shape" />
	
	PROCEDURE Destroy
		USE IN (SELECT('crsTVATemp'))
	ENDPROC

	PROCEDURE do_alege_gestiune
		Local loCauta
		loCauta = caut_gestiune()
		
		
		IF !EMPTY(loCauta.id_gestiune)
			poRec.id_gestiune = loCauta.id_gestiune
			poRec.cgest = loCauta.cgest
		ENDIF
		
		this.clb_gestiune.text_simplu1.Refresh()
		
		
	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 	
		
		IF EMPTY(porec.id_gestiune)
			lcTitlu=[Atentie]
			lcMesaj=[Nu ati ales gestiunea!]	
			lcimagine = [exclam.ico]
			lctip = [Avertizare]
			ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
			ofrm_av.show(1)
			RELEASE ofrm_av
			
			This.clb_gestiune.SetFocus()			
			plreturn=.F.
		ELSE 
			IF (this.ncant # 0 AND poRec.cante # 0) OR (this.ncante # 0 AND poRec.cant # 0)
				lcTitlu=[Atentie]
				lcMesaj=[Nu puteti schimba decat cantitatea intrata/iesita !]	
				lcimagine = [exclam.ico]
				lctip = [Avertizare]
				ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
				ofrm_av.show(1)
				RELEASE ofrm_av	
				plreturn=.F.
				RETURN plreturn
			ENDIF 
			PLRETURN=This.cus_odata_rulaje.salvare(This.OREC,This.NID)
		ENDIF 
		
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_rulaje.cactiune = tcActiune
		
		this.nCant = toRec.cant
		this.nCante = toRec.Cante
		IF toRec.cant # 0
			this.clb_tx_cante.text_simplu1.ReadOnly= .T.
		ELSE
			this.clb_tx_cant.text_simplu1.ReadOnly= .T.
		ENDIF 	 
		
		This.cbo_saft.Visible = m.gl406
		this.lb_saft.Visible = m.gl406
		this.shp_saft.Visible = m.gl406
	ENDPROC

	PROCEDURE Load
		If !Used('saft_taxtable')
			update_saft_taxtable()
		ENDIF 	
		
		update_jtva_coloane([],[jtva_temp])
		
		Select space(100) as denumire, cast(null as N(5)) as cota_tva, cast(null as I) as id_jtva_coloana, -1 as ordine from dual ;
		UNION ;
		select denumire, cota_tva, id_jtva_coloana, ordine ;
		From jtva_temp ;
		where afisat = 1 ;
		order by denumire ;
		Into Cursor crsTVATemp
		
		USE IN (SELECT('jtva_temp'))
	ENDPROC

	PROCEDURE cboTVA.LostFocus
		poRec.proc_tva = 1 + ROUND(NVL(crsTvaX.cota_tva,0)/100,2)
	ENDPROC

	PROCEDURE cbo_saft.LostFocus
		This.ForeColor = Rgb(0, 0, 0)
		
	ENDPROC

	PROCEDURE clb_gestiune.Text_simplu1.DblClick
		Thisform.do_alege_gestiune()
	ENDPROC

	PROCEDURE img_parinte.Click
		Thisform.do_alege_gestiune()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_rulaje_obinv 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_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="but_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column36.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column36.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespMarca.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespMarca.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespCMarca.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespCMarca.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column45.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column45.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page1.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.ck_nrcrt" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.ck_valoare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page2.Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.ck_nrcrt" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.ck_valoare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgframe.Page3.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ck_filtru_tiprulaj" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: calculeazatotaluri
		*m: do_listare3
		*p: lnoua		&& Specifica daca s-a trecut pe alta inregistrare in rulaje.
		*p: ncanti		&& Intoarce cantitate intrari.
		*p: ncantie		&& Intoarce cantitate iesiri.
		*p: nsumi		&& Intoarce valoarea intrarilor.
		*p: nsumie		&& Intoarce valoarea iesirilor.
	*</DefinedPropArrayMethod>

	*<PropValue>
		cbuton2 = but_listare1;but_listare2
		cgridsortlist = pgframe.page1.grdrulaje
		DoCreate = .T.
		Height = 500
		Name = "frm_rulaje_obinv"
		ncanti = 0
		ncantie = 0
		nsumi = 0
		nsumie = 0
		Width = 750
		WindowState = 2
		_shape1.Height = 28
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Tag = "RESIZABLE, NOVERTICAL_RESIZE"
		_shape1.Top = 0
		_shape1.Width = 756
		_shape2.Height = 29
		_shape2.Left = 564
		_shape2.Name = "_shape2"
		_shape2.Tag = "MOVABLE,NOVERTICAL_MOVE"
		_shape2.Top = -1
		_shape2.Width = 186
		Lb_titlu_alb_b121.Caption = "RULAJE *"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 21
		Lb_titlu_alb_b121.Top = 0
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 720
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 15
		BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE"
		BUT_TERMIN1.Top = 0
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

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

	ADD OBJECT 'but_modifica1' AS but_modifica WITH ;
		Anchor = 9, ;
		Height = 27, ;
		Left = 629, ;
		Name = "but_modifica1", ;
		TabIndex = 19, ;
		Top = 0, ;
		Width = 29
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 572, ;
		Name = "But_start_criterii1", ;
		Top = 0
		*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'ck_filtru_tiprulaj' AS ck_filtru_nom WITH ;
		Alignment = 0, ;
		Caption = "Tip rulaj", ;
		ctraducere = Tip rulaj este 'INTRARE/IESIRE REALA', ;
		filtru =  and (id_tip_rulaj=0), ;
		Left = 533, ;
		Name = "ck_filtru_tiprulaj", ;
		Top = 38, ;
		Value = 1, ;
		Visible = .F.
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = thisform.pgframe.page1.grdrulaje, ;
		Height = 17, ;
		Left = 295, ;
		Name = "Gridextra1", ;
		Top = 53, ;
		Width = 33
		*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 7, ;
		Name = "Lb_shortcuts1", ;
		Top = 15
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe' AS _pageframe WITH ;
		ErasePage = .T., ;
		Height = 456, ;
		Left = 12, ;
		Name = "pgframe", ;
		PageCount = 3, ;
		TabIndex = 20, ;
		TabStyle = 1, ;
		Tag = "RESIZABLE", ;
		Top = 36, ;
		Width = 732, ;
		Page1.BackColor = 255,255,255, ;
		Page1.Caption = "Rulaje", ;
		Page1.Name = "Page1", ;
		Page2.BackColor = 255,255,255, ;
		Page2.Caption = "NIR - Intrari", ;
		Page2.Name = "Page2", ;
		Page3.BackColor = 255,255,255, ;
		Page3.Caption = "Bon - Iesiri", ;
		Page3.Name = "Page3"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT 'pgframe.Page1.grdrulaje' AS _grdrow WITH ;
		ColumnCount = 45, ;
		DeleteMark = .F., ;
		GridLineColor = 128,128,128, ;
		Height = 342, ;
		Left = 11, ;
		Name = "grdrulaje", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsrul", ;
		TabIndex = 1, ;
		Tag = "RESIZABLE", ;
		Top = 80, ;
		Width = 708, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.FontName = "Arial", ;
		Column1.Format = "R", ;
		Column1.InputMask = "999 999", ;
		Column1.Name = "cNrCrt", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 44, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "nnir", ;
		Column2.FontName = "Arial", ;
		Column2.Name = "cNnir", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 76, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "dataact", ;
		Column3.FontName = "Arial", ;
		Column3.Name = "cDataact", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 79, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "codmat", ;
		Column4.FontName = "Arial", ;
		Column4.Name = "cCodmat", ;
		Column4.ReadOnly = .T., ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "denumire", ;
		Column5.FontName = "Arial", ;
		Column5.Name = "cDenumire", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 196, ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "um", ;
		Column6.FontName = "Arial", ;
		Column6.Name = "cUM", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 39, ;
		Column7.ColumnOrder = 11, ;
		Column7.ControlSource = "pret", ;
		Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial", ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPPRET)), ;
		Column7.Name = "cPret", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 70, ;
		Column8.ColumnOrder = 37, ;
		Column8.ControlSource = "ttod(data_expirare)", ;
		Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
		Column8.FontName = "Arial", ;
		Column8.Format = "", ;
		Column8.InputMask = "", ;
		Column8.Name = "cCant", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 81, ;
		Column9.ColumnOrder = 36, ;
		Column9.ControlSource = "dns_luni", ;
		Column9.FontName = "Arial", ;
		Column9.Format = "", ;
		Column9.InputMask = "", ;
		Column9.Name = "cCante", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 83, ;
		Column10.ColumnOrder = 17, ;
		Column10.ControlSource = "cont", ;
		Column10.FontName = "Arial", ;
		Column10.Name = "cCont", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 46, ;
		Column11.ColumnOrder = 33, ;
		Column11.ControlSource = "cod", ;
		Column11.FontName = "Arial", ;
		Column11.Name = "cCod", ;
		Column11.ReadOnly = .T., ;
		Column12.ColumnOrder = 18, ;
		Column12.ControlSource = "acont", ;
		Column12.FontName = "Arial", ;
		Column12.Name = "cAcont", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 47, ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "cgest", ;
		Column13.FontName = "Arial", ;
		Column13.Name = "cGest", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 111, ;
		Column14.ColumnOrder = 19, ;
		Column14.ControlSource = "nrord", ;
		Column14.FontName = "Arial", ;
		Column14.Name = "cNrord", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 100, ;
		Column15.ColumnOrder = 20, ;
		Column15.ControlSource = "curs", ;
		Column15.FontName = "Arial", ;
		Column15.Format = "R", ;
		Column15.InputMask = (get_mask(12,gnPcurs)), ;
		Column15.Name = "cCurs", ;
		Column15.ReadOnly = .T., ;
		Column16.ColumnOrder = 21, ;
		Column16.ControlSource = "pretd", ;
		Column16.FontName = "Arial", ;
		Column16.Format = "R", ;
		Column16.InputMask = (get_mask(12,gnPPretVal)), ;
		Column16.Name = "cPretd", ;
		Column16.ReadOnly = .T., ;
		Column16.Width = 63, ;
		Column17.ColumnOrder = 22, ;
		Column17.ControlSource = "procent", ;
		Column17.FontName = "Arial", ;
		Column17.Format = "R", ;
		Column17.InputMask = "999 999.99", ;
		Column17.Name = "cProcent", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 50, ;
		Column18.ColumnOrder = 23, ;
		Column18.ControlSource = "iif(pretv#0,pretv-pret,0)", ;
		Column18.FontName = "Arial", ;
		Column18.Format = "R", ;
		Column18.InputMask = (get_mask(12,gnPPRET)), ;
		Column18.Name = "cAdaos", ;
		Column18.ReadOnly = .T., ;
		Column18.Width = 56, ;
		Column19.ColumnOrder = 24, ;
		Column19.ControlSource = "tva", ;
		Column19.FontName = "Arial", ;
		Column19.Format = "R", ;
		Column19.InputMask = (get_mask(12,gnPPRET)), ;
		Column19.Name = "cTva", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 75, ;
		Column20.ColumnOrder = 25, ;
		Column20.ControlSource = "round((cant+cante)*(pret+tva),gnPc)", ;
		Column20.FontName = "Arial", ;
		Column20.Format = "R", ;
		Column20.InputMask = (get_mask(12,gnPa)), ;
		Column20.Name = "cValoare", ;
		Column20.ReadOnly = .T., ;
		Column21.ColumnOrder = 26, ;
		Column21.ControlSource = "pretv", ;
		Column21.FontName = "Arial", ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(14,gnPPretV)), ;
		Column21.Name = "cPretv", ;
		Column21.ReadOnly = .T., ;
		Column22.ColumnOrder = 27, ;
		Column22.ControlSource = "tvav", ;
		Column22.FontName = "Arial", ;
		Column22.Format = "R", ;
		Column22.InputMask = (get_mask(14,gnPPretV)), ;
		Column22.Name = "cTvav", ;
		Column22.ReadOnly = .T., ;
		Column23.ColumnOrder = 28, ;
		Column23.ControlSource = "pretv+tvav", ;
		Column23.FontName = "Arial", ;
		Column23.Format = "R", ;
		Column23.InputMask = (get_mask(14,gnPPretV)), ;
		Column23.Name = "cPretvtva", ;
		Column23.ReadOnly = .T., ;
		Column24.ColumnOrder = 29, ;
		Column24.ControlSource = "proc_tvav", ;
		Column24.FontName = "Arial", ;
		Column24.Format = "R", ;
		Column24.InputMask = "9.99", ;
		Column24.Name = "cProc_tva", ;
		Column24.ReadOnly = .T., ;
		Column24.Width = 47, ;
		Column25.ColumnOrder = 44, ;
		Column25.ControlSource = "util", ;
		Column25.FontName = "Arial", ;
		Column25.Name = "cUtil", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 117, ;
		Column26.ColumnOrder = 45, ;
		Column26.ControlSource = "dataora", ;
		Column26.FontName = "Arial", ;
		Column26.Name = "cDataora", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 113, ;
		Column27.ColumnOrder = 30, ;
		Column27.ControlSource = "sectie", ;
		Column27.FontName = "Arial", ;
		Column27.Name = "cSectie", ;
		Column27.ReadOnly = .T., ;
		Column28.ColumnOrder = 31, ;
		Column28.ControlSource = "datain", ;
		Column28.FontName = "Arial", ;
		Column28.Name = "cDatain", ;
		Column28.ReadOnly = .T., ;
		Column29.ColumnOrder = 32, ;
		Column29.ControlSource = "dataout", ;
		Column29.FontName = "Arial", ;
		Column29.Name = "cDataOut", ;
		Column29.ReadOnly = .T., ;
		Column30.ColumnOrder = 15, ;
		Column30.ControlSource = "nresp", ;
		Column30.FontName = "Arial", ;
		Column30.Name = "cNresp", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 116, ;
		Column31.ColumnOrder = 38, ;
		Column31.ControlSource = "cgestc", ;
		Column31.FontName = "Arial", ;
		Column31.Name = "cGestC", ;
		Column31.ReadOnly = .T., ;
		Column32.ColumnOrder = 39, ;
		Column32.ControlSource = "nrespc", ;
		Column32.FontName = "Arial", ;
		Column32.Name = "cNrespC", ;
		Column32.ReadOnly = .T., ;
		Column32.Width = 91, ;
		Column33.ColumnOrder = 41, ;
		Column33.ControlSource = "tip_rulaj", ;
		Column33.FontName = "Arial", ;
		Column33.Name = "cTipRulaj", ;
		Column33.ReadOnly = .T., ;
		Column34.ColumnOrder = 12, ;
		Column34.ControlSource = "cant", ;
		Column34.FontName = "Arial", ;
		Column34.Format = "R", ;
		Column34.InputMask = (get_mask(12,gnPCANT)), ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 45, ;
		Column35.ColumnOrder = 13, ;
		Column35.ControlSource = "cante", ;
		Column35.FontName = "Arial", ;
		Column35.Format = "R", ;
		Column35.InputMask = (get_mask(12,gnPCANT)), ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 40, ;
		Column36.ColumnOrder = 34, ;
		Column36.ControlSource = "ttod(datapif)", ;
		Column36.FontName = "Arial", ;
		Column36.Name = "Column36", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 53, ;
		Column37.ColumnOrder = 35, ;
		Column37.ControlSource = "dnf", ;
		Column37.FontName = "Arial", ;
		Column37.Name = "Column37", ;
		Column37.ReadOnly = .T., ;
		Column37.Width = 63, ;
		Column38.ColumnOrder = 43, ;
		Column38.ControlSource = "sucursala", ;
		Column38.FontName = "Arial", ;
		Column38.Name = "cSucursala", ;
		Column38.ReadOnly = .T., ;
		Column38.Width = 93, ;
		Column39.ColumnOrder = 16, ;
		Column39.ControlSource = "resp_marca", ;
		Column39.Name = "cRespMarca", ;
		Column39.ReadOnly = .T., ;
		Column39.Width = 106, ;
		Column40.ColumnOrder = 40, ;
		Column40.ControlSource = "respc_marca", ;
		Column40.Name = "cRespCMarca", ;
		Column40.ReadOnly = .T., ;
		Column40.Width = 118, ;
		Column41.ColumnOrder = 42, ;
		Column41.ControlSource = "id_set", ;
		Column41.Name = "cIdSet", ;
		Column41.ReadOnly = .T., ;
		Column42.ColumnOrder = 3, ;
		Column42.ControlSource = "fdoc", ;
		Column42.Name = "cFdoc", ;
		Column42.ReadOnly = .T., ;
		Column43.ColumnOrder = 4, ;
		Column43.ControlSource = "nract", ;
		Column43.Name = "cNrAct", ;
		Column43.ReadOnly = .T., ;
		Column43.Width = 81, ;
		Column44.ColumnOrder = 9, ;
		Column44.ControlSource = "serie", ;
		Column44.Name = "cSerie", ;
		Column44.ReadOnly = .T., ;
		Column45.ColumnOrder = 10, ;
		Column45.ControlSource = "lot", ;
		Column45.Name = "Column45", ;
		Column45.ReadOnly = .T.
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Adaos", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data expirare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Durata ramasa", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data intrare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora introducere", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data iesire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune C", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip operatie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. NIR/Bon", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil C", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare/Comanda", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Primit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Retur", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column36.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data PIF", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column36.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column37.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "DNF", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column37.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column45.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lot", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.Column45.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret in valuta", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare cu TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cRespCMarca.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Marca responsabil C", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cRespCMarca.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cRespMarca.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Marca responsabil", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cRespMarca.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip rulaj", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA vanzare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator introducere", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Label1' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cantitate intrari", ;
		Height = 18, ;
		Left = 190, ;
		Name = "Label1", ;
		TabIndex = 27, ;
		Top = 17, ;
		Visible = .T., ;
		Width = 90, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label2' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cantitate iesiri", ;
		Height = 18, ;
		Left = 190, ;
		Name = "Label2", ;
		TabIndex = 26, ;
		Top = 45, ;
		Visible = .T., ;
		Width = 85, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label3' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare intrari", ;
		Height = 18, ;
		Left = 431, ;
		Name = "Label3", ;
		TabIndex = 28, ;
		Top = 17, ;
		Visible = .T., ;
		Width = 82, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Label4' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare iesiri", ;
		Height = 18, ;
		Left = 431, ;
		Name = "Label4", ;
		TabIndex = 29, ;
		Top = 45, ;
		Visible = .T., ;
		Width = 77, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page1.Shape1' AS shape WITH ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		Height = 65, ;
		Left = 179, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 8, ;
		Visible = .T., ;
		Width = 530, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pgframe.Page1.Text1' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.ncanti", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPCANT)), ;
		Left = 290, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabIndex = 20, ;
		TabStop = .F., ;
		Top = 14, ;
		Visible = .T., ;
		Width = 110, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text2' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.ncantie", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPCANT)), ;
		Left = 290, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabIndex = 21, ;
		TabStop = .F., ;
		Top = 42, ;
		Visible = .T., ;
		Width = 110, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text3' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nsumi", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 515, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 22, ;
		TabStop = .F., ;
		Top = 14, ;
		Visible = .T., ;
		Width = 168, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page1.Text4' AS _textbox WITH ;
		Alignment = 1, ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		ControlSource = "thisform.nsumie", ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 515, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 23, ;
		TabStop = .F., ;
		Top = 42, ;
		Visible = .T., ;
		Width = 168, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.ck_nrcrt' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Numere de ordine", ;
		Left = 13, ;
		Name = "ck_nrcrt", ;
		TabIndex = 1, ;
		Top = 20, ;
		Value = 1
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pgframe.Page2.ck_valoare' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Valoare factura", ;
		Left = 13, ;
		Name = "ck_valoare", ;
		TabIndex = 2, ;
		Top = 43
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pgframe.Page2.grdnir' AS _grdrow WITH ;
		ColumnCount = 11, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 128,128,128, ;
		Height = 342, ;
		Left = 11, ;
		Name = "grdnir", ;
		Panel = 1, ;
		RecordSource = "crsnir", ;
		TabIndex = 3, ;
		Tag = "RESIZABLE", ;
		Top = 80, ;
		Width = 708, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cNrcrt", ;
		Column1.Width = 44, ;
		Column2.ControlSource = "codmat", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cCodMat", ;
		Column2.Width = 76, ;
		Column3.ControlSource = "denumire", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cDenumire", ;
		Column3.Width = 156, ;
		Column4.ControlSource = "um", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cUM", ;
		Column4.Width = 39, ;
		Column5.ControlSource = "pret", ;
		Column5.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Format = "R", ;
		Column5.InputMask = (get_mask(12,gnPpret)), ;
		Column5.Name = "cPret", ;
		Column5.Width = 70, ;
		Column6.ColumnOrder = 6, ;
		Column6.ControlSource = "cant", ;
		Column6.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Format = "R", ;
		Column6.InputMask = (get_mask(12,gnPcant)), ;
		Column6.Name = "cCant", ;
		Column6.Width = 68, ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "round(pret*cant,gnPc)", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPA)), ;
		Column7.Name = "cValoare", ;
		Column8.ControlSource = "round(tva*cant,gnPc)", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPA)), ;
		Column8.Name = "cTva", ;
		Column8.Width = 55, ;
		Column9.ControlSource = "round(cant*(pret+tva),gnPc)", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Format = "R", ;
		Column9.InputMask = (get_mask(12,gnPA)), ;
		Column9.Name = "cTotal", ;
		Column9.Width = 83, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "cod", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "cCod", ;
		Column11.ColumnOrder = 10, ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "cResponsabil", ;
		Column11.Width = 120
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCant.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Intrari", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCant.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 'pgframe.Page2.grdnir.cCod.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCod.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 'pgframe.Page2.grdnir.cCodMat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.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 'pgframe.Page2.grdnir.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.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 'pgframe.Page2.grdnir.cNrcrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.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 'pgframe.Page2.grdnir.cPret.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cPret.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 'pgframe.Page2.grdnir.cResponsabil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.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 'pgframe.Page2.grdnir.cTotal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total achizitie", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cTotal.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 'pgframe.Page2.grdnir.cTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cTva.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 'pgframe.Page2.grdnir.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cUM.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 'pgframe.Page2.grdnir.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page2.grdnir.cValoare.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 'pgframe.Page2.Label1' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Factura seria", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 146, ;
		Name = "Label1", ;
		TabIndex = 12, ;
		Top = 20, ;
		Width = 85, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label2' AS _label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "/", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 420, ;
		Name = "Label2", ;
		TabIndex = 13, ;
		Top = 21, ;
		Width = 11, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label3' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare factura", ;
		Height = 18, ;
		Left = 146, ;
		Name = "Label3", ;
		TabIndex = 11, ;
		Top = 48, ;
		Visible = .F., ;
		Width = 89, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label4' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "NIR nr.", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 511, ;
		Name = "Label4", ;
		TabIndex = 9, ;
		Top = 20, ;
		Width = 45, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label5' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Furnizor", ;
		Height = 18, ;
		Left = 511, ;
		Name = "Label5", ;
		TabIndex = 10, ;
		Top = 48, ;
		Width = 49, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Label6' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "nr.", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 289, ;
		Name = "Label6", ;
		TabIndex = 12, ;
		Top = 20, ;
		Width = 19, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page2.Shape1' AS shape WITH ;
		BackColor = 255,255,255, ;
		Height = 65, ;
		Left = 143, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 8, ;
		Width = 576, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pgframe.Page2.Text1' AS _textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 309, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 18, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 112
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.Text2' AS _textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 429, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 18, ;
		Value = ({}), ;
		Width = 81
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.Text3' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 234, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 45, ;
		Value = 0, ;
		Visible = .F., ;
		Width = 163, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.Text4' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 562, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 18, ;
		Value = 0, ;
		Width = 151, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.Text5' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 562, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 45, ;
		Width = 151, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page2.Text6' AS _textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 231, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 18, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 56
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.ck_nrcrt' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Numere de ordine", ;
		Left = 23, ;
		Name = "ck_nrcrt", ;
		TabIndex = 1, ;
		Top = 27, ;
		Value = 1
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pgframe.Page3.ck_valoare' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Valoare bon", ;
		Left = 23, ;
		Name = "ck_valoare", ;
		TabIndex = 2, ;
		Top = 50
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pgframe.Page3.grdbon' AS _grdrow WITH ;
		ColumnCount = 9, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 128,128,128, ;
		Height = 342, ;
		Left = 11, ;
		Name = "grdbon", ;
		Panel = 1, ;
		RecordSource = "crsbon", ;
		TabIndex = 3, ;
		Tag = "RESIZABLE", ;
		Top = 80, ;
		Width = 708, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cNrcrt", ;
		Column1.Width = 44, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cDataact", ;
		Column2.Width = 60, ;
		Column3.ControlSource = "nnir", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cNract", ;
		Column3.Width = 65, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cDenumire", ;
		Column4.Width = 156, ;
		Column5.ControlSource = "um", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cUM", ;
		Column5.Width = 39, ;
		Column6.ControlSource = "pretv", ;
		Column6.DynamicForeColor = "IIF(pretv>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Format = "R", ;
		Column6.InputMask = (get_mask(14,gnPPretV)), ;
		Column6.Name = "cPretv", ;
		Column6.Width = 100, ;
		Column7.ControlSource = "cante", ;
		Column7.DynamicForeColor = "IIF(cante>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPcant)), ;
		Column7.Name = "cCante", ;
		Column7.Width = 90, ;
		Column8.ControlSource = "round(cante*pretv,gnPc)", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPA)), ;
		Column8.Name = "cValoare", ;
		Column8.Width = 110, ;
		Column9.ControlSource = "nresp", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "cResponsabil", ;
		Column9.Width = 106
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgframe.Page3.grdbon.cCante.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Iesiri", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cCante.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 'pgframe.Page3.grdbon.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cDataact.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 'pgframe.Page3.grdbon.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.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 'pgframe.Page3.grdbon.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cNract.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 'pgframe.Page3.grdbon.cNrcrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.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 'pgframe.Page3.grdbon.cPretv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cPretv.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 'pgframe.Page3.grdbon.cResponsabil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.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 'pgframe.Page3.grdbon.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cUM.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 'pgframe.Page3.grdbon.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgframe.Page3.grdbon.cValoare.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 'pgframe.Page3.Label1' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Bon nr.", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 266, ;
		Name = "Label1", ;
		TabIndex = 12, ;
		Top = 2, ;
		Width = 48, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label2' AS _label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "/", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 451, ;
		Name = "Label2", ;
		TabIndex = 13, ;
		Top = 5, ;
		Width = 11, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label3' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare bon", ;
		Height = 18, ;
		Left = 216, ;
		Name = "Label3", ;
		TabIndex = 9, ;
		Top = 27, ;
		Visible = .F., ;
		Width = 71, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label4' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Destinatie", ;
		Height = 18, ;
		Left = 372, ;
		Name = "Label4", ;
		TabIndex = 10, ;
		Top = 27, ;
		Width = 60, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Label5' AS _label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Responsabil", ;
		Height = 18, ;
		Left = 523, ;
		Name = "Label5", ;
		TabIndex = 11, ;
		Top = 27, ;
		Width = 73, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgframe.Page3.Shape1' AS shape WITH ;
		BackColor = 255,255,255, ;
		Height = 65, ;
		Left = 170, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 11, ;
		Width = 477, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pgframe.Page3.Text1' AS _textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 338, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 2, ;
		Value = 0, ;
		Visible = .T., ;
		Width = 112
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.Text2' AS _textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 463, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 2, ;
		Value = ({}), ;
		Width = 112
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.Text3' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 184, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 46, ;
		Value = 0, ;
		Visible = .F., ;
		Width = 133, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.Text4' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 329, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 46, ;
		Width = 144, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgframe.Page3.Text5' AS _textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		FontName = "Arial", ;
		Height = 23, ;
		Left = 484, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 46, ;
		Width = 151, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'Xresize1' AS xresize WITH ;
		Left = 732, ;
		Name = "Xresize1", ;
		Top = 48
		*< END OBJECT: ClassLib="xresize.vcx" BaseClass="custom" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		lcFiltru=tcFiltru
		If Empty(lcFiltru)
			lcFiltru=porulaje.ca_baza1.cfiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		
		save_grid_tag(Thisform.pgframe.page1.grdrulaje)
		porulaje.ca_baza1.cfiltru=lcFiltru
		porulaje.ca_baza1.afisare()
		restore_grid_tag(Thisform.pgframe.page1.grdrulaje)
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		
		Thisform.CalculeazaTotaluri()
		Thisform.Refresh
	ENDPROC

	PROCEDURE calculeazatotaluri
		If Reccount('crsrul')>0
			Select crsrul
		
			Sum ROUND(cant*Pret,gnPc),ROUND(cante*Pret,gnPc) To Thisform.nsumi,Thisform.nsumie
		
			Sum cant,cante To Thisform.ncanti,Thisform.ncantie
			Thisform.lnoua=.T.
		Else
			Thisform.nsumi=0
			Thisform.nsumie=0
			Thisform.ncanti=0
			Thisform.ncantie=0
		ENDIF
		
		
	ENDPROC

	PROCEDURE do_cauta
		*!* 01.04.2021
		*!* marius.mutu
		*!* nu stiu de ce punea filtru pe tip_rulaj = 0. am scos filtrul pentru ca nu arata toate inregistrarile
		
		LPARAMETERS tcFiltru
		
		LOCAL lcFiltru
		IF !EMPTY(tcFiltru)
			lcFiltru = [ and ] + tcFiltru
		ELSE
			lcFiltru = []
		ENDIF
		
		
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
			lcFiltru = [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + lcFiltru
		ENDIF
		
		
		&& DACA FILTRUL NU CONTINE INREGISTRARILE STERSE, SELECTEZ DOAR INREGISTRARILE STERS = 0
		IF !'STERS'$UPPER(THISFORM.filtru_pretty_ro_full)
			lcFiltru = [ AND STERS = 0] + lcFiltru
		ENDIF
		
		&& DACA FILTRUL NU CONTINE TIP RULAJ, IAU DOAR TIPUL "INTRARI/IESIRI REALE"
		*!*	IF 'TIP RULAJ'$UPPER(THISFORM.filtru_pretty_ro)
		*!*		WITH THIS.ck_filtru_tiprulaj
		*!*			.VALUE = 0
		*!*			.Filtru = ""
		*!*			.cTraducere = ""
		*!*		ENDWITH
		*!*	ENDIF
		
		THISFORM.but_start_criterii1.refreshstatus()
		
		*!*	IF THISFORM.ck_filtru_tiprulaj.VALUE = 1
		*!*		lcFiltru = THIS.ck_filtru_tiprulaj.Filtru + lcFiltru
		*!*	ENDIF
		
		IF LEN(THISFORM.filtru_pretty)>0
			filtrutext = THISFORM.filtru_pretty
			lcFiltru = lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
		ENDIF
		
		lcFiltru = lcFiltru + gcCondSucursala
		IF LEN(lcFiltru)>0
			lcFiltru = SUBSTR(lcFiltru, 6)
		ENDIF
		
		&& ACTUALIZEZ PERIOADA DIN TITLUL REGISTRULUI JURNAL
		lcTitlu = THISFORM.lb_titlu_alb_b121.CAPTION
		IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
			lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) +	" " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
		ELSE
			IF TYPE('this.ocriterii') = 'O'
				loCollection = THIS.oCriterii.GetCriteriu("perioada")
				i = 0
				lcValoare1 = ""
				lcValoare2 = ""
				FOR EACH criteriu IN loCollection
					i = i + 1
					IF i = 1
						lcValoare1 = criteriu.valoare
					ELSE
						lcValoare2 = criteriu.valoare
					ENDIF
					IF i = 2
						EXIT
					ENDIF
				ENDFOR
				IF EMPTY(STRTRAN(lcValoare1,'/','')) AND EMPTY(STRTRAN(lcValoare2,'/',''))
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) +	" " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
				ELSE
					IF EMPTY(STRTRAN(lcValoare2,'/',''))
						lcValoare2 = lcValoare1
					ENDIF
				ENDIF
		
				IF lcValoare1 = lcValoare2
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1
				ELSE
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1 + " - " + lcValoare2
				ENDIF
			ENDIF
		ENDIF
		THIS.lb_titlu_alb_b121.CAPTION = lcTitlu
		
		
		IF (THIS.filtru_pretty#"none")
			THISFORM.actualizeaza_grid1(lcFiltru)
			SELECT crsrul
			IF RECCOUNT()>0
				GO TOP
				IF cant#0
					THISFORM.pgframe.page2.ENABLED=.T.
					THISFORM.pgframe.page3.ENABLED=.F.
				ELSE
					THISFORM.pgframe.page2.ENABLED=.F.
					THISFORM.pgframe.page3.ENABLED=.T.
				ENDIF
			ELSE
				aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
				THISFORM.pgframe.page2.ENABLED=.F.
				THISFORM.pgframe.page3.ENABLED=.F.
			ENDIF
		
			WITH THISFORM.pgframe
				IF .ACTIVEPAGE!=1
					.PAGES(.ACTIVEPAGE).DEACTIVATE()
					.page1.ACTIVATE()
					.page1.SETFOCUS()
				ENDIF
				.page1.grdrulaje.SETFOCUS()
				*!*		.page1.grdrulaje.SetFocus()
				*!*		.page1.grdrulaje.refresh
			ENDWITH
		ENDIF
		
	ENDPROC

	PROCEDURE do_excel
		*!*	DO export_excel WITH this.pgframe.page1.grdrulaje,this.lb_titlu_alb_b121.Caption
		Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
		lcAlias = This.pgframe.page1.grdrulaje.RecordSource
		lcFiltru = Filter(lcAlias)
		If Empty(lcFiltru)
			lcFiltru = '.T.'
		Endif
		
		If Reccount(lcAlias) > 0
			lcColumnList = ''
			lcHeaderList = ''
			lcSelect = ''
			llSelect = .T.
			lcType = 'CURSOR'
			lcFrom = lcAlias
			lcWhere = lcFiltru
			lcOrder = 'dataact,codmat,denumire'
			lcOutput = 'crsStoc'
		
			If Used(lcOutput)
				Use In (lcOutput)
			Endif
		
			get_schema_grid(This.pgframe.page1.grdrulaje,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
			&lcSelect
		
			If Used(lcOutput)
				Do export_xls With lcOutput In oproceduri_comune.prg
				Use In (lcOutput)
			Endif
		Else
			amessagebox("Nu exista inregistrari pentru export!",0+48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_listare
		PRIVATE pcSubtitlu
		pcSubtitlu = THIS.filtru_pretty_ro_full
		pcperioada='LUNA: '+pcnl+'  '+pcan
		pctitlu = 'JURNAL RULAJE'
		pcDataOra = get_ora(2)
		
		lcCursor = THISFORM.pgframe.page1.grdrulaje.RECORDSOURCE
		IF RECCOUNT(lcCursor) > 0
			X = XMENU("Listare \<selectie;\<Fisa magazie;\<Istoric articol")
		
			THISFORM.ALWAYSONTOP=.F.
			DO CASE
				CASE X = 1
					SELECT (lcCursor)
					*KEYBOARD '{CTRL+F10}'
					*REPORT FORM rap_rulajesimple TO PRINTER PROMPT PREVIEW
					goExport.export2frx(m.lcCursor,[rap_rulajesimple],.T., , , , , .T.)	
					
				CASE X = 2
					LOCAL ldata1,ldata2,lcd1,lcd2
		
					SELECT (lcCursor)	&&	crsrul
					PcCodul=VAL(ALLTRIM(STR(id_articol)))
					pcdenumire=UPPER(ALLTRIM(denumire))
					pnIdGestiune = id_gestiune
					pcNumeGestiune = ALLTRIM(nume_gestiune)
		
					DO fisa_magazie_fifo WITH gnTipGest,pnIdGestiune,pcNumeGestiune,PcCodul IN orapoarte.prg
		
				CASE X = 3
					lcCursorRaport = [crsraport]
					LOCAL lnAn1, lnLuna1, lnAn2, lnLuna2
					PRIVATE pnIdArticol, pnPerInceput, pnPerSfarsit
					PRIVATE pctitlu,pcperioada,pcDataOra
					STORE 0 TO lnAn1, lnLuna1, lnAn2, lnLuna2, pnIdArticol, pnPerInceput, pnPerSfarsit
					STORE '' TO pctitlu, pcperioada
		
					SELECT (lcCursor)
					pnIdArticol = id_articol
		
					pctitlu = [ISTORIC ARTICOL ] + ALLTRIM(denumire) + [ (] + ALLTRIM(NVL(codmat,'')) + [)]
		
					loLuna = get_oluna(gnAn, gnLuna)
					lcLuna1 = PADL(loLuna.lunamin,2,'0') + PADL(loLuna.anmin,4,'0')
					lcLuna2 = PADL(loLuna.lunamax,2,'0') + PADL(loLuna.anmax,4,'0')
		
					pcondper=""
					ofrmperioada=CREATEOBJECT('frm_perioada_luni')
					WITH ofrmperioada
						._textbox1.VALUE=lcLuna1
						._textbox2.VALUE=lcLuna2
						._optiongrup1.VALUE = 2
						._optiongrup1.VALID()
					ENDWITH
					ofrmperioada.SHOW(1)
					IF gnButon=2
						RETURN
					ENDIF
		
					plPerioada=.F.
					lnPoz=AT('_',pcondper)
					IF lnPoz>0
						plPerioada=.T.
					ENDIF
		
					IF plPerioada
						lnAn1 = VAL(SUBSTR(pcondper,3,4))
						lnLuna1 = VAL(SUBSTR(pcondper,1,2))
						lnAn2 = VAL(SUBSTR(pcondper,10,4))
						lnLuna2 = VAL(SUBSTR(pcondper,8,2))
		
						pnPerInceput = lnAn1 * 12 + lnLuna1
						pnPerSfarsit = lnAn2 * 12 + lnLuna2
						pcperioada = [Perioada : ] + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,8,2)+'/'+SUBSTR(pcondper,10,4)
					ELSE
						lnAn1 = VAL(SUBSTR(pcondper,3,4))
						lnLuna1 = VAL(SUBSTR(pcondper,1,2))
						lnAn2 = VAL(SUBSTR(pcondper,3,4))
						lnLuna2 = VAL(SUBSTR(pcondper,1,2))
		
						pnPerInceput = lnAn1 * 12 + lnLuna1
						pnPerSfarsit = lnAn2 * 12 + lnLuna2
						pcperioada = [Luna : ] + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4)
					ENDIF
		
					IF USED(lcCursorRaport)
						USE IN (lcCursorRaport)
					ENDIF
		
					lcSql = [select c.codmat, c.denumire as nume_articol, c.um, c.cant_bax, c.um2, a.serie, a.curs, a.pretd, V.nume_val, d.sectie, d.csectie,] + ;
						[e.nrord, f.nume_gestiune, ] + ;
						[f.cgest, g.nume_gestiune as nume_gestiunec, g.cgest as cgestc,] + ;
						[(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end) as pret, a.cant, a.cante,  ] + ;
						[ROUND(a.cant*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_intrari,] + ;
						[ROUND(a.cante*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_iesiri,] + ;
						[b.dataact, b.nnir,decode(b.nract,b.nnir,null,b.serie_act) as serie_act,decode(b.nract,b.nnir,null,b.nract) as nract,] + ;
						[b.explicatia, h.denumire, i.fel_document, j.descriere as tip_rulaj ] + ;
						[from rul a left join ] + ;
						[(select distinct cod,dataact,max(nnir) over(partition by cod) as nnir,id_fdoc,serie_act,nract,] + ;
						[max(id_partd) over(partition by cod) as id_partd,] + ;
						[first_value(explicatia) over(partition by cod order by explicatia ASC) as explicatia ] + ;
						[from act where sters = 0 and cod in (select cod ] + ;
						[from rul where id_articol = ?pnIdArticol and sters = 0] + gcCondSucursala + [)] + ;
						[and scc not in ('4427', '4111', '667')) b on a.cod = b.cod ] + ;
						[left join nom_articole c on a.id_articol = c.id_articol ] + ;
						[left join nom_sectii d on a.id_sectie = d.id_sectie ] + ;
						[left join vnom_lucrari e on a.id_lucrare = e.id_lucrare ] + ;
						[left join nom_gestiuni f on a.id_gestiune = f.id_gestiune ] + ;
						[left join nom_gestiuni g on a.id_gestiunec = g.id_gestiune ] + ;
						[left join nom_parteneri h on b.id_partd = h.id_part ] + ;
						[left join nom_fdoc i on b.id_fdoc = i.id_fdoc ] + ;
						[left join nom_tip_rulaj j on a.id_tip_rulaj = j.id_tip_rulaj ] + ;
						[LEFT JOIN NOM_VALUTE V ON V.ID_VALUTA = A.ID_VALUTA ] + ;				
						[where a.sters = 0 and a.id_articol = ?pnIdArticol ] + STRTRAN(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + [ ] + ;
						[and a.luna + a.an * 12 between ?pnPerInceput and ?pnPerSfarsit order by b.dataact]
					lnSucces = goExecutor.oExecute(lcSql,lcCursorRaport)
		
					IF lnSucces < 0
						amessagebox(goExecutor.oPrelucrareEroare(),0+16,"Eroare")
					ELSE
						IF RECCOUNT(lcCursorRaport)>0
							SELECT (lcCursorRaport)
							*KEYBOARD '{CTRL+F10}'
							*REPORT FORM istoric_Articol TO PRINTER PROMPT PREVIEW
							goExport.export2frx(m.lcCursorRaport,[istoric_Articol],.T., , , , , .T.)	
						ELSE
							amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
						ENDIF
					ENDIF
					IF USED(lcCursorRaport)
						USE IN (lcCursorRaport)
					ENDIF
			ENDCASE
			THISFORM.ALWAYSONTOP=.T.
		ELSE
			amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
		ENDIF
		
	ENDPROC

	PROCEDURE do_listare3
	ENDPROC

	PROCEDURE do_modifica
		If glLunaInchisa
			aMESSAGEBOX('Luna este inchisa!',0+48)
			Return
		Endif
		
		lcSelect = This.pgframe.page1.grdrulaje.RecordSource
		If Reccount(lcSelect)>0
			Select (lcSelect)
			Scatter Name loRul
			lnIdRul = loRul.id_rul_obinv
			Do Adauga_Modifica_Inregistrare With "rulaje_obinv",loRul,lnIdRul,[UPDATE]
			
			AMESSAGEBOX('Trebuie sa apelati "Refacere de stoc obiecte inventar in folosinta" pentru a actualiza stocul' + CHR(13) +CHR(10) + ;
				'si sa actualizati sumele de pe nota contabila aferenta din Registrul Jurnal!',0+48,_screen.Caption)
			
		Else
			aMESSAGEBOX("Nu exista inregistrari pentru modificare!",0+48,"Atentie")
		Endif
		
	ENDPROC

	PROCEDURE do_reset
		*!*	WITH This.ck_filtru_tiprulaj
		*!*		.Value = 1
		*!*		.Filtru = " and (id_tip_rulaj = 0)"
		*!*		.cTraducere = "Tip rulaj este 'INTRARE/IESIRE REALA'"
		*!*	ENDWITH 
		
		DODEFAULT()
	ENDPROC

	PROCEDURE grid_sort_bind
		*!*	*!* 26.01.2011
		*!*	marius.mutu
		*!*	se foloseste gridextras pentru ordonare grid in loc de gridsort
		*!*
		*!* 26.01.2011 ^
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		thisform.pgframe.page2.Enabled=.F.
		thisform.pgframe.page3.Enabled=.F.
		IF glLunaInchisa
			this.but_modifica1.Visible = !glLunaInchisa
		ENDIF 	
		*!* 26.01.2011
		this.gridextra1.setup()
		*!* 26.01.2011 ^
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#DEFINE crlf CHR(13)+CHR(10)
		lcStringCriterii="Denumire articol\a.denumire\T\id_articol\nom_articol"+ crlf + ;
			"Cod material\a.codmat\T\none\" + crlf + ;
			"Serie articol\a.serie\T\none\" + crlf + ;
			"Grupa articol\a.grupa\T\id_grupa\nom_grupa_articol"+ crlf + ;
			"Subgrupa articol\a.subgrupa\T\id_subgrupa\nom_subgrupa_articol"+ crlf + ;
			"Nr. document\a.nract\N\none\" + crlf + ;
			"Serie document\a.serie_act\T\none\" + crlf + ;
			"Data act\a.dataact\D\none\" + crlf + ;	
			"Nr. NIR/bon\nnir\N\none\" + crlf + ;
			"Pret\a.pret\N|get_mask(12,gnPpret)\none\"+ crlf + ;
			"Pret valuta\a.pretd\N|get_mask(12,gnPPretval)\none\" + crlf + ;
			"Valuta\nume_val\T\a.ID_VALUTA\nom_valuta" + crlf + ;	
			"Intrari\a.cant\N|get_mask(12,gnPCant)\none\" + crlf + ;
			"Iesiri\a.cante\N|get_mask(12,gnPCant)\none\" + crlf + ;
			"Cont\a.cont\T\none\"+ crlf + ;
			"Cont analitic\a.acont\T\none\"+ crlf + ;
			"Grupe gestiuni\|E|" + ;
				[a.id_gestiune in ( ] + ;
				[ select ID_GESTIUNE ] + ;
				[	from vgest_coresp_grupe_gestiuni c ] + ;
				[	join (select id_grupe ] + ;
				[       from gest_nom_grupe ] + ;
				[       where sters = 0 ] + ;
			    [       start with id_grupe = <<VALOARE>> ] + ;
				[      connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ;
			"Gestiune\none\I\a.id_gestiune\nom_gestiune" + crlf + ;
			"Responsabil\a.nresp\T\id_responsabil\nom_responsabil"+ crlf + ;
			"Marca resp.\resp_marca\N\none\" + crlf + ;	
			"Responsabil C\a.nrespc\T\id_responsabilc\nom_responsabil"+ crlf + ;
			"Marca resp. C\respc_marca\N\none\" + crlf + ;		
			"Sectie\a.sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
			"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;		
			IIF(EMPTY(gcCondSucursala) and glEMama,"Sucursala\Sucursala\C\none" + crlf,[]) +;
			"Tip rulaj\none\I\a.id_tip_rulaj\nom_tip_rulaj" + crlf + ;
			"Perioada\an*12+luna\D1\none\" + crlf + ;
			"Sterse\nofiled\E\(1=1)\"
		DODEFAULT()
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform.calculeazatotaluri()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform.calculeazatotaluri()
	ENDPROC

	PROCEDURE pgframe.Page1.Activate
		DODEFAULT()
		this.FontBold=.T.
		SELECT crsrul
	ENDPROC

	PROCEDURE pgframe.Page1.Deactivate
		this.FontBold=.F.
	ENDPROC

	PROCEDURE pgframe.Page1.grdrulaje.AfterRowColChange
		Lparameters nColIndex
		If This.RowColChange = 1 Or This.RowColChange= 3
			thisform.lnoua=.T.
			Select crsrul
			If cant#0
				Thisform.pgframe.page2.Enabled=.T.
				Thisform.pgframe.page3.Enabled=.F.
			Else
				Thisform.pgframe.page2.Enabled=.F.
				Thisform.pgframe.page3.Enabled=.T.
			Endif
		Endif
		DoDefault()
		
	ENDPROC

	PROCEDURE pgframe.Page1.grdrulaje.Init
		This.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column") 
		
	ENDPROC

	PROCEDURE pgframe.Page1.Text1.Refresh
		*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text2.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text3.Refresh
		*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page1.Text4.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI-TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page2.Activate
		Private pntotal
		pntotal=0
		DoDefault()
		If This.Enabled
			This.FontBold=.T.
		Endif
		If Thisform.lnoua
		
			Select crsrul
			pnnnir=nnir
			pnid_fact=id_fact
			this.text4.Value=pnnnir
		
			IF pnid_fact>0
				IF USED('crsact')
					USE IN crsact
				ENDIF
				lcSql=[select serie_act,nract,dataact,nume from ] + gcS + [.vireg_parteneri where an = ?gnAn and luna = ?gnLuna and id_fact=?pnid_fact]
				lnSucces = goExecutor.oExecute(lcSql,'crsact')
				If lnSucces < 0
					aMessagebox(goExecutor.cEroare,0+16,'Eroare')
					Return
				Endif
			
				SELECT crsact
				This.text1.Value=nract
				This.text2.Value=TTOD(dataact)
				This.text5.Value=nume
				this.text6.value=ALLTRIM(serie_act)
				USE IN crsact
			ELSE
				This.text1.Value=0
				This.text2.Value={}
				This.text5.Value=""
				this.text6.value=[]
			ENDIF
				
			save_grid_tag(This.grdnir)
			ponir.ca_baza1.cfiltru=[ a.nnir=] +  ALLTRIM(STR(pnnnir))
			ponir.ca_baza1.afisare()
			restore_grid_tag(This.grdnir)
		
			SELECT crsnir
			CALCULATE sum(ROUND(cant*(pret+tva),gnPC)) TO pntotal
			This.text3.Value=pntotal
		
			Go Top
			This.Refresh()
			Thisform.lnoua=.F.
		Endif
		
		
		*!*	go top
		*!*	this.grid2.refresh
		
		*!*	thisform.check1.enabled=.f.
		*!*	thisform.check6.enabled=.f.
		*!*	thisform.check7.enabled=.f.
		*!*	thisform.CMDLIST3.enabled=.f.
		
		*!*	SELE ACTAN
		*!*	loca for cod=codfix
		*!*	SCATTER FIEL EXCEPT SCD MEMVAR
		
		*!*	this.text1.refresh
		*!*	this.text2.refresh
		*!*	this.text3.refresh
		*!*	this.text4.refresh
		*!*	this.text5.refresh
	ENDPROC

	PROCEDURE pgframe.Page2.ck_nrcrt.Click
		If This.Value=1
			This.Parent.grdnir.cNrCrt.Visible=.T.
		Else
			This.Parent.grdnir.cNrCrt.Visible=.F.
		Endif
		Thisform.Refresh
	ENDPROC

	PROCEDURE pgframe.Page2.ck_valoare.Click
		If This.Value=1
			This.Parent.text3.Visible=.T.
			This.Parent.label3.Visible=.T.
		Else
			This.Parent.text3.Visible=.F.
			This.Parent.label3.Visible=.F.
		Endif
		This.Parent.Refresh
	ENDPROC

	PROCEDURE pgframe.Page2.Deactivate
		DODEFAULT()
		This.FontBold=.F.
	ENDPROC

	PROCEDURE pgframe.Page2.Text1.GotFocus
		*!*	if bdataact==.f. then
		*!*		m.dataact1=""
		*!*		endif
		*!*	this.refresh
	ENDPROC

	PROCEDURE pgframe.Page2.Text2.GotFocus
		*!*	if bdataact==.f. then
		*!*		m.dataact2=""
		*!*	endif
		*!*	this.refresh
	ENDPROC

	PROCEDURE pgframe.Page2.Text3.Refresh
		*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page2.Text4.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page2.Text5.Refresh
		*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page2.Text6.GotFocus
		*!*	if bdataact==.f. then
		*!*		m.dataact1=""
		*!*		endif
		*!*	this.refresh
	ENDPROC

	PROCEDURE pgframe.Page3.Activate
		Private pntotal
		pntotal=0
		DoDefault()
		If This.Enabled
			This.FontBold=.T.
		Endif
		
		If Thisform.lnoua
			Select crsrul
			pncod=cod
			This.text1.Value=nnir
			This.text2.Value=dataact
			This.text4.Value=nrord
			This.text5.Value=nresp
		
		
			If pncod>0
				save_grid(This.grdbon)
				pobon.ca_baza1.cfiltru=[a.cod=] + Alltrim(Str(pncod))
				pobon.ca_baza1.afisare()
				restore_grid(This.grdbon)
		
				Select crsbon
				Calculate Sum(ROUND(cante*pretv,gnPC)) To pntotal
				This.text3.Value=pntotal
			Else
				This.text3.Value=0
			Endif
		
			Go Top
			This.Refresh()
			Thisform.lnoua=.F.
		Endif
	ENDPROC

	PROCEDURE pgframe.Page3.ck_nrcrt.Click
		If This.Value=1
			This.Parent.grdbon.cNrCrt.Visible=.T.
		Else
			This.Parent.grdbon.cNrCrt.Visible=.F.
		Endif
		Thisform.Refresh
	ENDPROC

	PROCEDURE pgframe.Page3.ck_valoare.Click
		If This.Value=1
			This.Parent.text3.Visible=.T.
			This.Parent.label3.Visible=.T.
		Else
			This.Parent.text3.Visible=.F.
			This.Parent.label3.Visible=.F.
		Endif
		This.Parent.Refresh
	ENDPROC

	PROCEDURE pgframe.Page3.Deactivate
		DODEFAULT()
		this.FontBold=.F.
	ENDPROC

	PROCEDURE pgframe.Page3.Text1.GotFocus
		*!*	if bdataact==.f. then
		*!*		m.dataact1=""
		*!*		endif
		*!*	this.refresh
	ENDPROC

	PROCEDURE pgframe.Page3.Text2.GotFocus
		*!*	if bdataact==.f. then
		*!*		m.dataact2=""
		*!*	endif
		*!*	this.refresh
	ENDPROC

	PROCEDURE pgframe.Page3.Text3.Refresh
		*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page3.Text4.Refresh
		*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pgframe.Page3.Text5.Refresh
		*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_rulaje_obinv_nou 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="img_parinte" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="clb_gestiune" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_rulaje_obinv" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_cant" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_cante" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_gestiune
		*p: ncant
		*p: ncante
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 152
		Name = "frm_rulaje_obinv_nou"
		ncant = 0
		ncante = 0
		Width = 387
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 387
		_shape2.Height = 29
		_shape2.Left = 326
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 61
		Lb_titlu_alb_b121.Caption = "Rulaj"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 4
		BUT_TERMIN1.Left = 357
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Left = 327, ;
		Name = "But_renunt1", ;
		TabIndex = 3, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'clb_gestiune' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "clb_gestiune", ;
		TabIndex = 6, ;
		TabStop = .F., ;
		ToolTipText = "Pentru modificare, faceti dublu-click!", ;
		Top = 55, ;
		Width = 313, ;
		Text_simplu1.ControlSource = "porec.cgest", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = , ;
		Text_simplu1.Width = 206, ;
		Lb_simplu1.Caption = "Gestiune", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_cant' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_cant", ;
		TabIndex = 2, ;
		Top = 83, ;
		Width = 312, ;
		Text_simplu1.ControlSource = "porec.cant", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 165, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 141, ;
		Lb_simplu1.Caption = "Cantitate intrata:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_cante' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_cante", ;
		TabIndex = 3, ;
		Top = 111, ;
		Width = 312, ;
		Text_simplu1.ControlSource = "porec.cante", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 165, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 141, ;
		Lb_simplu1.Caption = "Cantitate iesita:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_rulaje_obinv' AS cus_odata_rulaje_obinv WITH ;
		Left = 367, ;
		Name = "Cus_odata_rulaje_obinv", ;
		Top = 77
		*< END OBJECT: ClassLib="rulaje.vcx" BaseClass="custom" />

	ADD OBJECT 'img_parinte' AS _image WITH ;
		Height = 24, ;
		Left = 331, ;
		Name = "img_parinte", ;
		Picture = ..\grafice\alege.bmp, ;
		Stretch = 2, ;
		ToolTipText = "Alegeti valuta", ;
		Top = 57, ;
		Width = 24
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
	
	PROCEDURE do_alege_gestiune
		Local loCauta
		loCauta = caut_gestiune()
		
		
		IF !EMPTY(loCauta.id_gestiune)
			poRec.id_gestiune = loCauta.id_gestiune
			poRec.cgest = loCauta.cgest
		ENDIF
		
		this.clb_gestiune.text_simplu1.Refresh()
		
		
	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 	
		
		IF EMPTY(porec.id_gestiune)
			lcTitlu=[Atentie]
			lcMesaj=[Nu ati ales gestiunea!]	
			lcimagine = [exclam.ico]
			lctip = [Avertizare]
			ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
			ofrm_av.show(1)
			RELEASE ofrm_av
			
			This.clb_gestiune.SetFocus()			
			plreturn=.F.
		ELSE 
			IF (this.ncant # 0 AND poRec.cante # 0) OR (this.ncante # 0 AND poRec.cant # 0)
				lcTitlu=[Atentie]
				lcMesaj=[Nu puteti schimba decat cantitatea intrata/iesita !]	
				lcimagine = [exclam.ico]
				lctip = [Avertizare]
				ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
				ofrm_av.show(1)
				RELEASE ofrm_av	
				plreturn=.F.
				RETURN plreturn
			ENDIF 
			PLRETURN=This.cus_odata_rulaje_obinv.salvare(This.OREC,This.NID)
		ENDIF 
		Return PLRETURN
		
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_rulaje_obinv.cactiune = tcActiune
		
		
		this.nCant = toRec.cant
		this.nCante = toRec.Cante
		IF toRec.cant # 0
			this.clb_tx_cante.text_simplu1.ReadOnly= .T.
		ELSE
			this.clb_tx_cant.text_simplu1.ReadOnly= .T.
		ENDIF 	 
	ENDPROC

	PROCEDURE clb_gestiune.Text_simplu1.DblClick
		Thisform.do_alege_parinte()
	ENDPROC

	PROCEDURE img_parinte.Click
		Thisform.do_alege_gestiune()
		
	ENDPROC

ENDDEFINE
