*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="omodificari.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_editare_set 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="txtIdSet" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtNumeSet" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRequest" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRequest.cLabelItem.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRequest.cLabelItem.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRequest.cLabelItem._combobox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRequest.cValoareDefaultText.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRequest.cValoareDefaultText.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdAdauga" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboCategorie" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: leditmode_assign
		*m: selectfromlookup
		*p: leditmode
		*p: oxset
		*p: textcharacter
		*p: textdate
		*p: textnumber
		*p: texttime
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 410
		leditmode = .F.
		Name = "frm_editare_set"
		oxset = NULL
		textcharacter = 
		textdate = {}
		textnumber = 0
		texttime = {}
		Width = 482
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 494
		_shape2.Height = 29
		_shape2.Left = 432
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 48
		Lb_titlu_alb_b121.Caption = "Editare set"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 9
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 451
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 276
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 24
	*</PropValue>

	ADD OBJECT '_label1' AS _label WITH ;
		Caption = "ID", ;
		Left = 6, ;
		Name = "_label1", ;
		TabIndex = 10, ;
		Top = 40
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		Caption = "Nume", ;
		Left = 6, ;
		Name = "_label2", ;
		TabIndex = 11, ;
		Top = 64
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		Caption = "Categorie", ;
		Left = 6, ;
		Name = "_label3", ;
		TabIndex = 12, ;
		Top = 89
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label4' AS _label WITH ;
		Caption = "Cerere date", ;
		FontBold = .T., ;
		FontUnderline = .T., ;
		Left = 6, ;
		Name = "_label4", ;
		TabIndex = 13, ;
		Top = 121
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

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

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Anchor = 8, ;
		Left = 413, ;
		Name = "But_sterge1", ;
		TabIndex = 4, ;
		Top = 111
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cboCategorie' AS _combobox WITH ;
		Left = 66, ;
		Name = "cboCategorie", ;
		RowSource = "crsCategorii.categorie", ;
		RowSourceType = 6, ;
		TabIndex = 2, ;
		Top = 85, ;
		Width = 318
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'cmdAdauga' AS but_nou WITH ;
		Anchor = 8, ;
		Left = 443, ;
		Name = "cmdAdauga", ;
		TabIndex = 3, ;
		ToolTipText = "Adaugare cerere date (CTRL+N)", ;
		Top = 111
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grdRequest' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		Height = 264, ;
		Left = 6, ;
		Name = "grdRequest", ;
		Panel = 1, ;
		RecordSource = "crsRequest", ;
		TabIndex = 5, ;
		Top = 140, ;
		Width = 467, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "label_item", ;
		Column1.CurrentControl = "Text1", ;
		Column1.Name = "cLabelItem", ;
		Column1.ReadOnly = .T., ;
		Column1.ToolTipText = "Dublu click pentru editare", ;
		Column1.Width = 226, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "valoare_default_text", ;
		Column2.Name = "cValoareDefaultText", ;
		Column2.ToolTipText = "Dublu click pentru editare", ;
		Column2.Width = 204
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grdRequest.cLabelItem._combobox1' AS _combobox WITH ;
		ControlSource = "crsRequest.id_item", ;
		Enabled = .T., ;
		Left = 81, ;
		Name = "_combobox1", ;
		ReadOnly = .F., ;
		RowSource = "crsItems.label_item,id_item", ;
		RowSourceType = 2, ;
		ToolTipText = "Dublu click pentru editare", ;
		Top = 35
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'grdRequest.cLabelItem.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Element", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdRequest.cLabelItem.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		ToolTipText = "Dublu click pentru editare"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grdRequest.cValoareDefaultText.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare implicita", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdRequest.cValoareDefaultText.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255, ;
		ToolTipText = "Dublu click pentru editare"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtIdSet' AS _textbox WITH ;
		ControlSource = "crsSet.id_set", ;
		Height = 23, ;
		Left = 66, ;
		Name = "txtIdSet", ;
		ReadOnly = .T., ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 37, ;
		Width = 138
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtNumeSet' AS _textbox WITH ;
		ControlSource = "crsSet.nume_set", ;
		Height = 23, ;
		Left = 66, ;
		Name = "txtNumeSet", ;
		TabIndex = 1, ;
		Top = 61, ;
		Width = 318
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE do_adauga
		Local lnNrItem
		Calculate Max(nr_item) To m.lnNrItem IN crsRequest
		lnNrItem = m.lnNrItem + 1
		
		Append Blank In crsRequest
		Replace nr_item With m.lnNrItem In crsRequest
		
		This.lEditMode = .T.
		Thisform.grdRequest.SetFocus()
	ENDPROC

	PROCEDURE do_sterge
		SELECT crsRequest
		IF !EMPTY(label_item)
			IF AMESSAGEBOX('Doriti sa stergeti ' + ALLTRIM(crsRequest.label_item) + '?',4+32, _screen.caption) = 6
				SELECT crsRequest
				DELETE
			ENDIF 
		ENDIF 
		This.lEditMode = .F.
		thisform.grdRequest.SetFocus()
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local llSucces, lcSql
		PRIVATE pcXMLSets, pcXmlRequest
		STORE '' TO pcXmlSets, pcXmlRequest		
		
		Cursortoxml("crsSet", "pcXmlSets",1,0+2+8,0,"")
		Cursortoxml("crsRequest", "pcXmlRequest",1,0+2+8,0,"")
		This.oXset.cXmlSets = m.pcXmlSets
		This.oXset.cXmlRequest = m.pcXmlRequest
		
		llSucces = This.oXset.save()
		
		IF m.llSucces
			AMESSAGEBOX('Setul de note s-a inregistrat cu ID: ' + ALLTRIM(TRANSFORM(this.oxset.nIdSet)), 0+64, _screen.Caption)
		ENDIF 
		
		RETURN m.llSucces
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toXset
		
		DODEFAULT()
		
		this.oXset = m.toXset
		
		this.grdRequest.SetAll("dynamicbackcolor","iif(Empty(Nvl(crsRequest.fis_lista, '')), RGB(200,200,200), RGB(255,255,255))", "Column")
	ENDPROC

	PROCEDURE leditmode_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.leditmode = m.vNewVal
		
		llReadOnly = !THIS.lEditMode
		llEnabled = THIS.lEditMode
		
		Thisform.grdRequest.cLabelItem.ReadOnly = m.llReadOnly
		Thisform.grdRequest.cValoareDefaultText.ReadOnly = m.llReadOnly
		IF m.llEnabled
			thisform.grdRequest.cLabelItem.CurrentControl = "_combobox1"
		ELSE 	
			*** pun textbox, ca sa pot sa dau dublu click
			*** combobox-ul pe readonly, pot sa il deschid, iar pe enabled = .F., nu pot sa dau dublu click
			thisform.grdRequest.cLabelItem.CurrentControl = "Text1"
			Thisform.grdRequest.cLabelItem.Text1.readonly = m.llReadOnly
		ENDIF 	
	ENDPROC

	PROCEDURE selectfromlookup
		Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcNumeProc, lcFiltruOriginal, ;
			loCauta, lcColoanaText, lcValoareText, lcColoanaId, lcValoareId, liat, lcValoareIdOld, lcValoareTextOld
		
		Select crsItems
		Locate For crsItems.id_item = crsRequest.id_item
		If Empty(Nvl(crsItems.fis_lista,[]))
			*this.Parent.ReadOnly = .F. && permit scrierea de text in coloana daca nu trebuie sa aleg valoarea dintr-un nomenclator
			Return
		Endif
		
		lcValoareTextOld = Alltrim(crsRequest.valoare_default_text)
		lnValoareIdOld = crsRequest.valoare_default
		lcValoareIdOld = ALLTRIM(TRANSFORM(m.lnValoareIdOld))
		
		lcSelect = [select ] + Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + ;
			[ from ] + Alltrim(crsItems.fis_lista)
		lcFiltru = [1=2]
		lcSchema = []
		lcOrder = Alltrim(crsItems.camp_lista)
		lcColoane = Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier)
		lcTitlu = Alltrim(crsItems.label_item)
		lcFiltruOriginal = [inactiv = 0]
		lcNumeProc = []
		loCauta = cauta_alfa(lcSelect,lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, ;
			lcTitlu, lcNumeProc, .F., lcFiltruOriginal)
		
		
		
		*!*	cand camp_lista retine doua valori(ex:nume,cod_fiscal) se pastreaza doar prima valoare
		liat = Rat(',',Alltrim(crsItems.camp_lista))
		*lccoloanatext = [loCauta.] + LEFT(ALLTRIM(crsitems.camp_lista),liat - 1)
		lcColoanaText = [loCauta.] + Left(Alltrim(crsItems.camp_lista), ;
			Iif(liat!=0,liat - 1,Len(Alltrim(crsItems.camp_lista))))
		lcValoareText = Evaluate(lcColoanaText)
		
		lcColoanaId = [loCauta.] + Alltrim(crsItems.id_fisier)
		lcValoareId = Alltrim(Str(Evaluate(lcColoanaId)))
		
		*!*	daca locauta nu intoarce nimic, se memoreaza valorile vechi
		If m.gnButon = 2
			lcValoareText = lcValoareTextOld
			lcValoareId = lcValoareIdOld
		Endif
		*!* ^^
		
		Select crsRequest
		Replace valoare_default With lcValoareId, valoare_default_text With lcValoareText
		Thisform.grdRequest.cValoareDefaultText.Refresh()
		
	ENDPROC

	PROCEDURE cboCategorie.Init
		DODEFAULT()
		LOCAL lcSelect
		lcSelect = SELECT()
		
		SELECT crsCategorii
		LOCATE FOR id_categorie = crsSet.id_categorie
		IF FOUND()
			This.Value = crsCategorii.categorie
		ENDIF 
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE cboCategorie.Valid
		DODEFAULT()
		REPLACE id_categorie WITH crsCategorii.id_categorie IN crsSet
	ENDPROC

	PROCEDURE grdRequest.AfterRowColChange
		Lparameters nColIndex
		Thisform.lEditMode = .F.
		
		This.cvaloareDefaultText.ReadOnly = Empty(Nvl(crsRequest.fis_lista, ''))
		
	ENDPROC

	PROCEDURE grdRequest.cLabelItem.Text1.DblClick
		Thisform.lEditMode = .T.
	ENDPROC

	PROCEDURE grdRequest.cLabelItem._combobox1.Valid
		Replace id_item With crsItems.id_item, fis_lista WITH NVL(crsItems.fis_lista, ''), camp_lista With NVL(crsItems.camp_lista, '') In crsRequest
		
		Select crsItems
		Locate For id_item = crsRequest.id_item
		
		Thisform.lEditMode = .F.
		
		This.Parent.Parent.Refresh()
		
		
		
	ENDPROC

	PROCEDURE grdRequest.cValoareDefaultText.Text1.DblClick
		If !Empty(Nvl(crsRequest.fis_lista, ''))
			Thisform.Selectfromlookup()
		Endif
		
	ENDPROC

	PROCEDURE grdRequest.cValoareDefaultText.Text1.KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		
		If !Empty(Nvl(crsRequest.fis_lista, ''))
			Thisform.Selectfromlookup()
		Endif
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_modific 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="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Header9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column29.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column29.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column30.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column32.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column32.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cnomenclator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: aleg_document_pereche
		*m: ccontrol_assign
		*p: ccontrol
		*p: fel_compensare
		*p: pccontrol
		*p: pcx_item
		*p: pncolumnorder
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 306
		Name = "frm_modific"
		pccontrol = []
		pcx_item = 0
		pncolumnorder = 0
		Width = 804
		WindowType = 1
		_shape1.Height = 31
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 727
		_shape2.Height = 31
		_shape2.Left = 670
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 134
		Lb_titlu_alb_b121.Caption = "MODIFICARE"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.Top = 5
		BUT_TERMIN1.Left = 771
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 2
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

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

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

	ADD OBJECT 'cnomenclator' AS commandbutton WITH ;
		Caption = "Nomenclator", ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,64, ;
		Height = 20, ;
		Left = 726, ;
		Name = "cnomenclator", ;
		Top = 96, ;
		Width = 74
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Caption = "Partener Debit", ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,64, ;
		Height = 20, ;
		Left = 726, ;
		Name = "Command1", ;
		Top = 46, ;
		Width = 74
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "Partener Credit", ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,64, ;
		Height = 20, ;
		Left = 726, ;
		Name = "Command2", ;
		Top = 68, ;
		Width = 74
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "Nr.Doc.Pereche", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,64, ;
		Height = 38, ;
		Left = 726, ;
		Name = "Command3", ;
		Top = 118, ;
		Width = 74, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 244,250,255, ;
		ColumnCount = 34, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 128,128,128, ;
		Height = 255, ;
		HighlightStyle = 1, ;
		Left = 5, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "tACT", ;
		TabIndex = 1, ;
		Top = 40, ;
		Width = 718, ;
		ZOrderSet = 3, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 244,250,255, ;
		Column1.ControlSource = "", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .F., ;
		Column1.Width = 29, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 244,250,255, ;
		Column2.ControlSource = "dataireg", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 49, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 244,250,255, ;
		Column3.ColumnOrder = 13, ;
		Column3.ControlSource = "fdoc", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 88, ;
		Column4.Alignment = 0, ;
		Column4.BackColor = 244,250,255, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "dataact", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Width = 51, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 244,250,255, ;
		Column5.ColumnOrder = 4, ;
		Column5.ControlSource = "nract", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 53, ;
		Column6.Alignment = 0, ;
		Column6.BackColor = 244,250,255, ;
		Column6.ColumnOrder = 5, ;
		Column6.ControlSource = "partd", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Width = 87, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 244,250,255, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "scd", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 44, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 244,250,255, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "scc", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 48, ;
		Column9.Alignment = 1, ;
		Column9.BackColor = 244,250,255, ;
		Column9.ColumnOrder = 12, ;
		Column9.ControlSource = "suma", ;
		Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.FontSize = 9, ;
		Column9.Format = "r", ;
		Column9.InputMask = (get_mask(12,gnPa)), ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 93, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 244,250,255, ;
		Column10.ColumnOrder = 6, ;
		Column10.ControlSource = "partc", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 79, ;
		Column11.Alignment = 0, ;
		Column11.BackColor = 244,250,255, ;
		Column11.ColumnOrder = 7, ;
		Column11.ControlSource = "explicatia", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .F., ;
		Column11.Width = 77, ;
		Column12.BackColor = 244,250,255, ;
		Column12.ColumnOrder = 31, ;
		Column12.ControlSource = "cod", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 52, ;
		Column13.BackColor = 244,250,255, ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "pereched", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .F., ;
		Column13.Width = 65, ;
		Column14.BackColor = 244,250,255, ;
		Column14.ColumnOrder = 24, ;
		Column14.ControlSource = "explicatia4", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .F., ;
		Column15.BackColor = 244,250,255, ;
		Column15.ColumnOrder = 17, ;
		Column15.ControlSource = "nrord", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .F., ;
		Column16.BackColor = 244,250,255, ;
		Column16.ColumnOrder = 19, ;
		Column16.ControlSource = "nresp", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.Format = "", ;
		Column16.InputMask = "", ;
		Column16.Name = "Column16", ;
		Column16.ReadOnly = .F., ;
		Column17.BackColor = 244,250,255, ;
		Column17.ColumnOrder = 20, ;
		Column17.ControlSource = "dst_chlt", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.Format = "", ;
		Column17.InputMask = "", ;
		Column17.Name = "Column17", ;
		Column17.ReadOnly = .F., ;
		Column18.BackColor = 244,250,255, ;
		Column18.ColumnOrder = 25, ;
		Column18.ControlSource = "explicatia5", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.Name = "Column18", ;
		Column18.ReadOnly = .F., ;
		Column19.BackColor = 244,250,255, ;
		Column19.ColumnOrder = 16, ;
		Column19.ControlSource = "datascad", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.Name = "Column19", ;
		Column19.ReadOnly = .F., ;
		Column19.Visible = .T., ;
		Column20.BackColor = 244,250,255, ;
		Column20.ColumnOrder = 21, ;
		Column20.ControlSource = "suma_val", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.InputMask = (get_mask(12,gnPa)), ;
		Column20.Name = "Column20", ;
		Column20.ReadOnly = .F., ;
		Column21.BackColor = 244,250,255, ;
		Column21.ColumnOrder = 23, ;
		Column21.ControlSource = "curs", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.InputMask = (get_mask(12,gnPcurs)), ;
		Column21.Name = "Column21", ;
		Column21.ReadOnly = .F., ;
		Column21.Width = 61, ;
		Column22.BackColor = 244,250,255, ;
		Column22.ColumnOrder = 26, ;
		Column22.ControlSource = "gestin", ;
		Column22.FontName = "Arial Narrow", ;
		Column22.Name = "Column22", ;
		Column22.ReadOnly = .F., ;
		Column22.Width = 87, ;
		Column23.BackColor = 244,250,255, ;
		Column23.ColumnOrder = 9, ;
		Column23.ControlSource = "ascd", ;
		Column23.FontName = "Arial Narrow", ;
		Column23.Name = "Column23", ;
		Column23.ReadOnly = .F., ;
		Column23.Width = 33, ;
		Column24.BackColor = 244,250,255, ;
		Column24.ColumnOrder = 11, ;
		Column24.ControlSource = "ascc", ;
		Column24.FontName = "Arial Narrow", ;
		Column24.Name = "Column24", ;
		Column24.ReadOnly = .F., ;
		Column24.Width = 33, ;
		Column25.BackColor = 244,250,255, ;
		Column25.ColumnOrder = 32, ;
		Column25.ControlSource = "id_set", ;
		Column25.FontName = "Arial Narrow", ;
		Column25.Name = "Column25", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 52, ;
		Column26.BackColor = 244,250,255, ;
		Column26.ColumnOrder = 30, ;
		Column26.ControlSource = "proc_tva", ;
		Column26.FontName = "Arial Narrow", ;
		Column26.Name = "Column26", ;
		Column26.ReadOnly = .F., ;
		Column26.Width = 45, ;
		Column27.BackColor = 244,250,255, ;
		Column27.ColumnOrder = 15, ;
		Column27.ControlSource = "perechec", ;
		Column27.FontName = "Arial Narrow", ;
		Column27.Name = "Column27", ;
		Column27.ReadOnly = .F., ;
		Column27.Width = 64, ;
		Column28.BackColor = 244,250,255, ;
		Column28.ColumnOrder = 28, ;
		Column28.ControlSource = "sectie", ;
		Column28.FontName = "Arial Narrow", ;
		Column28.Name = "Column28", ;
		Column28.ReadOnly = .F., ;
		Column28.Width = 88, ;
		Column29.BackColor = 244,250,255, ;
		Column29.ColumnOrder = 22, ;
		Column29.ControlSource = "nume_val", ;
		Column29.FontName = "Arial Narrow", ;
		Column29.Name = "Column29", ;
		Column29.ReadOnly = .F., ;
		Column29.Width = 61, ;
		Column30.BackColor = 244,250,255, ;
		Column30.ColumnOrder = 33, ;
		Column30.ControlSource = "id_partd", ;
		Column30.FontName = "Arial Narrow", ;
		Column30.Name = "Column30", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 45, ;
		Column31.BackColor = 244,250,255, ;
		Column31.ColumnOrder = 34, ;
		Column31.ControlSource = "id_partc", ;
		Column31.FontName = "Arial Narrow", ;
		Column31.Name = "Column31", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 43, ;
		Column32.BackColor = 244,250,255, ;
		Column32.ColumnOrder = 27, ;
		Column32.ControlSource = "gestout", ;
		Column32.FontName = "Arial Narrow", ;
		Column32.Name = "Column32", ;
		Column32.ReadOnly = .F., ;
		Column32.Width = 89, ;
		Column33.BackColor = 244,250,255, ;
		Column33.ColumnOrder = 29, ;
		Column33.ControlSource = "sucursala", ;
		Column33.FontName = "Arial Narrow", ;
		Column33.Name = "Column33", ;
		Column33.ReadOnly = .F., ;
		Column33.Width = 121, ;
		Column34.BackColor = 244,250,255, ;
		Column34.ColumnOrder = 18, ;
		Column34.ControlSource = "contract", ;
		Column34.FontName = "Arial Narrow", ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 65
		*< END OBJECT: BaseClass="grid" />

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

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

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

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

	ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.3", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia 4", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia 5", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Inreg.", ;
		FontName = "Arial Narrow", ;
		Name = "Header2"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma in valuta", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune destinatie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip operatie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel Doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Part D", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Part C", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune sursa", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Act", ;
		FontName = "Arial Narrow", ;
		Name = "Header4"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.Doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header5"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.1", ;
		FontName = "Arial Narrow", ;
		Name = "Header6"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Deb.", ;
		FontName = "Arial Narrow", ;
		Name = "Header7"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Cred.", ;
		FontName = "Arial Narrow", ;
		Name = "Header8"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial Narrow", ;
		Name = "Header9"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE aleg_document_pereche
		PARAMETERS tcFel,toAct
		LOCAL lcSel,lcSelAct
		lcSelAct = thisform.grid1.RecordSource 
		pnFelCont = tcFel
		
		IF pnFelCont = 0                  && ACTIV
			pcContul = ALLTRIM(NVL(toAct.scc,[]))
			pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
			pnIdPart = NVL(toAct.Id_partc,0)
			pcNume = ALLTRIM(NVL(toAct.partc,[]))
			pnPereche = [perecheC]
			pnIdPereche = [id_factC]
		ELSE                               && PASIV
			pcContul = ALLTRIM(NVL(toAct.scd,[]))
			pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
			pnIdPart = NVL(toAct.Id_partd,0)
			pcNume = ALLTRIM(NVL(toAct.partd,[]))
			pnPereche = [perecheD]
			pnIdPereche = [id_factD]
		ENDIF 
		
		lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
		lcCursor = [crsTest]
		lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
		IF lnSucces < 0
			aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
			SELECT (lcSelAct)
			this.grid1.SetFocus 
			RETURN 
		ENDIF 
		
		SELECT crsTest
		LOCATE 
		IF ePereche = 0
			USE IN crsTest
			SELECT (lcSelAct)
			this.grid1.SetFocus 
			RETURN
		ENDIF 
		
		
		IF !EMPTY(toAct.Suma_val)
			llval = .t.
			pnSuma = toAct.Suma_val
			lcFormular = [ocompensari_val]
		ELSE 
			llval = .f.
			pnSuma = toAct.Suma
			lcFormular = [ocompensari]
		ENDIF 
		pnIdValuta = toAct.Id_Valuta
		pcDenumire = [Partener ] + pcContul 
		
		pcCond = [ an = ?gnAn and luna = ?gnluna]
		
		IF llval
			pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
		ELSE
			pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
		ENDIF
		
		pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
		IF ALLTRIM(pcACont) # [NULL]
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
		ELSE
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
		ENDIF 
		pcschema = ['']
		pcorder = ['']
		
		PRIVATE podateintrod
		STORE '' TO podateintrod
		
		gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
		
		lcFis = 'actcv' + ALLTRIM(pcContul)
		
		IF USED(lcFis)
			USE IN &lcFis
		ENDIF
		
		IF pnFelCont = 0
			lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
				[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
				[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ELSE
			lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
				[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
				[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ENDIF
		&lcsel
		
		USE IN crs_actcv
		SELECT (lcFis)
		
		OPLATA=CREATEOBJECT(lcFormular)
		OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
		OPLATA.pcFis = lcFis
		OPLATA.SUMA = pnSuma
		OPLATA.pnFelCont = pnFelCont
		OPLATA.SHOW(1)
		
		IF gnButon = 1
			SELECT (lcSelAct)
			DELETE 
			SELECT (lcFis)
			SCAN FOR ales
				SCATTER NAME oper
				SELECT (lcSelAct)
				APPEND BLANK 
				GATHER NAME toAct
				REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
				SELECT (lcFis)
			ENDSCAN 
		ELSE 
			SELECT (lcSelAct)
			REPLACE &pnPereche WITH toact.&pnPereche 
		ENDIF 
		
		IF USED(lcFis)
			USE IN (lcFis)
		ENDIF 
		SELECT (lcSelAct)
		this.grid1.SetFocus 
	ENDPROC

	PROCEDURE ccontrol_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.cControl = m.vNewVal
		
	ENDPROC

	PROCEDURE do_adauga
		SELECT tact
		SCATTER NAME oadd FIELDS EXCEPT id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, suma_val
		APPEND BLANK 
		GATHER NAME oadd
		RELEASE oadd
		
		DO nrord WITH 'tact'
		this.grid1.SetFocus 
	ENDPROC

	PROCEDURE do_cauta
		PARAMETERS tcCont
		LOCAL loCauta, loHash
		
		IF EMPTY(tcCont)
			RETURN
		ENDIF 
		*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
		loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
		IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
			loHash.SetValue('dDataDoc', tact.dataact)
		ENDIF 
		loCauta = CautPartenerContabilitate(loHash)
		
		RETURN loCauta
		
	ENDPROC

	PROCEDURE do_modifica
		PARAMETERS tcX_item, tcControl
		
		*!*	IF EMPTY(tcX_item) OR ISNULL(tcX_item)
		*!*		tcX_item = thisform.pcx_item
		*!*	ENDIF 
		
		*!*	IF EMPTY(tcControl) OR ISNULL(tcControl)
		*!*		tcControl = thisform.pccontrol
		*!*	ENDIF 
		
		lcControl = ALLTRIM(tcControl)
		IF '.'$ tcControl
			lcControl = RIGHT(lcControl,LEN(lcControl)-AT('.',lcControl))
		ENDIF 
		
		SELECT xitems
		LOCATE FOR ALLTRIM(x_item) = ALLTRIM(tcX_item)
		IF !FOUND()
			RETURN
		ENDIF 
		
		SCATTER NAME locauta
		lcColoane = ALLTRIM(locauta.camp_lista)
		lcIdFis = ALLTRIM(locauta.id_fisier)
		lcFisier = ALLTRIM(locauta.fis_lista)
		lcVarAct = lcControl
		lcIdAct = lcIdFis
		 
		pcselect = [select ] + lcColoane + [,] + lcIdFis + [ from ] + lcFisier
		pcfiltru = [1=2]
		pcschema = []
		pcorder = lcColoane
		pccoloane = lcColoane
		pcTitlu = PROPER(ALLTRIM(locauta.label_item))
		pcTitluColoane = pcTitlu 
		lnColoane = OCCURS([,],lcColoane)
		pcFiltruOriginal = [inactiv = 0]
		IF lnColoane > 0
			FOR i= 1 TO lnColoane
				pcTitluColoane = pcTitluColoane + [, ]
			ENDFOR 
		ENDIF 
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,lcFisier,.f.,pcFiltruOriginal)	&& 11.07.2007
		
			
		IF gnButon = 1
			IF ',' $ lcColoane
				lcPrimVal = LEFT(lcColoane,AT(',',lcColoane)-1)
			ELSE 
				lcPrimVal = ALLTRIM(lcColoane)
			ENDIF 
		
			IF 'nume_gestiune'$LOWER(lcPrimVal)
				lcIdAct = [id_] + lcVarAct
			ENDIF 
			
			SELECT tact
			lcReplace = [replace ] + lcVarAct + [ with locauta.] + lcPrimVal + [,] + lcIdAct + [ with locauta.] + lcIdFis
			SELECT tact
			&lcReplace
		
		ENDIF 
		
		RETURN locauta
		
	ENDPROC

	PROCEDURE do_sterge
		LOCAL lnAn, lnLuna, lnCod, lnIdFact, llReferinteDocumente
		
		SELECT tact 
		lnAn = an
		lnLuna = luna
		lnCod = cod
		lnIdFact = id_fact
		
		llReferinteDocumente = ReferinteDocument(lnAn, lnLuna, lnCod, lnIdFact) && odocumente.prg
		IF llReferinteDocumente
			AMESSAGEBOX("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
			RETURN
		ENDIF 
		
		SELECT tact 
		DELETE 
		this.grid1.SetFocus 
	ENDPROC

	PROCEDURE do_verifica
		*!*	PARAMETERS tlClick, tccont, tcacont, tcColoana
		
		*!*	m.den=''
		*!*	ll_l=.f.
		
		*!*	IF EMPTY(tccont)
		*!*		RETURN ll_l
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva
		*!*	ENDIF
		
		*!*	lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ]
		*!*	lcCursor = 'tceva'
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*	SELECT tceva
		*!*	LOCATE 
		*!*	IF EOF()
		*!*		IF !EMPTY(tcAcont) AND !ISNULL(tcAcont)
		*!*			DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont
		*!*			ll_l=.t.
		*!*		ENDIF 
		*!*		
		*!*		IF USED('TCEVA')
		*!*			USE IN Tceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		this.grid1.SetFocus 
		*!*		RETURN ll_l
		*!*	ELSE 
		*!*		IF !tlClick
		*!*			IF empty(tcAcont)
		*!*				IF USED('TCEVA')
		*!*					USE IN Tceva 
		*!*				ENDIF 
		*!*				SELECT tact 
		*!*				this.grid1.SetFocus 
		*!*				RETURN ll_l
		*!*			ENDIF 
		*!*		ENDIF 
		*!*	ENDIF
		
		*!*	SELECT tceva
		*!*	IF tlClick
		*!*		DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*		SELECT tceva
		*!*		LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
		*!*		lcAcont = acont
		
		*!*		SELECT tact
		*!*		REPLACE &tcColoana WITH lcAcont
		*!*	ELSE 
		*!*		LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont)
		*!*		IF !FOUND()
		*!*			DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*			SELECT tceva
		*!*			LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
		*!*			lcAcont = acont
		
		*!*			SELECT tact
		*!*			REPLACE &tcColoana WITH lcAcont
		*!*		ENDIF 
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva 
		*!*	ENDIF  
		
		*!*	SELECT tact 
		*!*	this.grid1.SetFocus 
		*!*	RETURN ll_l
	ENDPROC

	PROCEDURE inainte_de_do_termin
		lVerificAnalitic = .T.
		lCompletezPartener = .F.
		llRet = verificare_note_contabile('tact',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune
		RETURN llRet
		
		
		*!*	LOCAL lcInMesaj,lcInMesajP,lcInMesajIreg
		*!*	STORE '' TO lcInMesaj,lcInMesajP, lcInMesajIreg
		
		*!*	SELECT tact
		*!*	GO TOP
		*!*	lnId_set=id_set
		*!*	ll_return = .T.
		
		*!*	SELECT DISTINCT scd AS CONT FROM tact ;
		*!*		WHERE suma # 0 ;
		*!*		UNION ;
		*!*		SELECT DISTINCT scc AS CONT FROM tact ;
		*!*		WHERE suma # 0 ;
		*!*		INTO CURSOR tcont
		
		*!*	i = 0
		*!*	SELECT tcont
		*!*	SCAN
		*!*		i = i + 1
		*!*		IF i = 1
		*!*			lcLista = ALLTRIM(CONT)
		*!*		ELSE
		*!*			lcLista = lcLista + ',' + ALLTRIM(CONT)
		*!*		ENDIF
		*!*	ENDSCAN
		
		*!*	lcSql = 'select distinct c.cont as contpart, c.fel_cont, c.cu_inregistrari, c.explicatie as explic_cont,e.cont_c as exceptie, e.debit as pozitie, e.invers, 0 as gasit ' + ;
		*!*		'from ' + gcs + '.vcoresp_tip_cont c left join ' + gcs + '.exceptii_ireg e on c.cont = e.cont and e.invers = 1 ' + ;
		*!*		'where to_number(c.cont) in (' + lcLista + ')'
		*!*	lcCursor = 'verif_part'
		
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		*!*	IF lnSucces < 0
		*!*		MESSAGEBOX('Modificare:Verific completare id_part ' +goExecutor.cEroare,0+16,"Eroare")
		*!*	ENDIF
		
		*!*	IF lnSucces > 0
		*!*		IF RECCOUNT('verif_part') > 0
		*!*			SELECT tact
		*!*			SCAN FOR !EMPTY(suma)
		*!*				SCATTER NAME loCont
		*!*				SELECT verif_part
		*!*				LOCATE FOR contpart=loCont.scd
		*!*				IF FOUND()
		*!*					IF EMPTY(loCont.Id_partd) AND !(loCont.scd$lcInMesajP)
		*!*						lcInMesajP=lcInMesajP+','+loCont.scd
		*!*						REPLACE gasit WITH 1
		*!*					ENDIF
		
		*!*					IF EMPTY(loCont.pereched) AND cu_inregistrari = 1 AND fel_cont = 1 AND !(loCont.scd$lcInMesajIreg)
		*!*						LOCATE FOR contpart=loCont.scd AND exceptie = loCont.scc AND fel_cont = 1 AND pozitie = 0 AND invers = 1
		*!*						IF !FOUND()
		*!*							lcInMesajIreg = lcInMesajIreg + ',' + loCont.scd
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		
		*!*				SELECT verif_part
		*!*				LOCATE FOR contpart=loCont.scc
		*!*				IF FOUND()
		*!*					IF EMPTY(loCont.Id_partc) AND !(loCont.scc$lcInMesajP)
		*!*						lcInMesajP=lcInMesajP+','+loCont.scc
		*!*						REPLACE gasit WITH 1
		*!*					ENDIF
		*!*					IF cu_inregistrari = 1 AND fel_cont = 0 AND EMPTY(loCont.perechec) AND !(loCont.scc$lcInMesajIreg)
		*!*						LOCATE FOR contpart=loCont.scc AND exceptie = loCont.scd AND fel_cont = 0 AND pozitie = 1 AND invers = 1
		*!*						IF !FOUND()
		*!*							lcInMesajIreg = lcInMesajIreg + ',' + loCont.scc
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				SELECT tact
		*!*			ENDSCAN
		*!*		ENDIF
		*!*	ENDIF
		
		*!*	IF lnSucces > 0 AND !(lnId_set>90000 AND lnId_set<90010) && notele de inchidere se fac in functie de optiuni
		*!*		lcSql=[select CONT, ACONT FROM ] + gcs + [.vplcont_ANALITIC where inactiv = 0 and an = ?gnAn order by cont ]
		*!*		lcCursor = 'plcontana'
		*!*		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*		IF lnSucces < 0
		*!*			MESSAGEBOX('Modificare:Verific completare analitic ' +goExecutor.cEroare,0+16,"Eroare")
		*!*		ENDIF
		
		*!*		IF lnSucces > 0
		*!*			SELECT tact
		*!*			SCAN FOR !EMPTY(suma)
		*!*				SCATTER NAME loCont
		*!*				IF EMPTY(loCont.ascd) OR ISNULL(loCont.ascd)
		*!*					SELECT plcontana
		*!*					LOCATE FOR ALLTRIM(CONT)=ALLTRIM(loCont.scd)
		*!*					IF FOUND()
		*!*						IF !(loCont.scd$lcInMesaj)
		*!*							lcInMesaj=lcInMesaj+','+loCont.scd
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				IF EMPTY(loCont.ascc) OR ISNULL(loCont.ascc)
		*!*					SELECT plcontana
		*!*					LOCATE FOR CONT=loCont.scc
		*!*					IF FOUND()
		*!*						IF !(loCont.scc$lcInMesaj)
		*!*							lcInMesaj=lcInMesaj+','+loCont.scc
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				SELECT tact
		*!*			ENDSCAN
		*!*			RELEASE loCont
		*!*		ENDIF
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesaj)
		*!*		DO mesaj WITH 'Nu ati completat simbolurile analitice pentru conturile:',lcInMesaj
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesajP)
		*!*		DO mesaj WITH 'Nu ati completat partenerii pentru conturile:', lcInMesajP
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesajIreg)
		*!*		DO mesaj WITH 'Nu ati completat doc. pereche pentru conturile:', lcInMesajIreg
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF USED('verif_part')
		*!*		USE IN verif_part
		*!*	ENDIF
		*!*	IF USED('plcontana')
		*!*		USE IN plcontana
		*!*	ENDIF
		*!*	IF USED('tcont')
		*!*		USE IN tcont
		*!*	ENDIF
		
		*!*	RETURN ll_return
		
		
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		SELECT tact
		this.grid1.SetFocus 
	ENDPROC

	PROCEDURE cnomenclator.Click
		thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Command1.Click
		LOCAL lnIdPartd
		Select tact
		lcCont = tact.scd
		lnIdPartd = id_partd
		
		locauta = Thisform.do_cauta(lcCont)
		If gnButon = 1
			lnid_part=locauta.id_part
			lcnume=Alltrim(locauta.nume)
			Select tact
			Replace id_partd With lnid_part, partd With lcnume
			If lnIdPartd <> lnid_part
				Select tact
				Replace pereched With 0, id_factd With 0
			Endif
		Endif
		
		
	ENDPROC

	PROCEDURE Command2.Click
		LOCAL lnIdPartc 
		Select tact
		lcCont = tact.scc
		lnIdPartc = id_partc
		
		locauta = Thisform.do_cauta(lcCont)
		If gnButon = 1
			lnid_part=locauta.id_part
			lcnume=Alltrim(locauta.nume)
			Select tact
			Replace id_partc With lnid_part, partc With lcnume
			If lnIdPartc <> lnid_part
				Select tact
				Replace perechec With 0, id_factc With 0
			Endif
		Endif
		
		
	ENDPROC

	PROCEDURE Command3.Click
		PARAMETERS tnFel
		LOCAL lcSel
		
		IF PCOUNT()<1
			tnFel = thisform.fel_compensare
		ENDIF
		
		lcSel = thisform.grid1.RecordSource
		SELECT (lcSel)
		SCATTER NAME odoc
		&& 0 = ACTIV
		&& 1 = PASIV
		*thisform.aleg_document_pereche(tnFel,odoc)
		DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
		thisform.grid1.SetFocus
		RELEASE odoc 
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		LPARAMETERS nColIndex
		IF thisform.pncolumnorder = nColIndex
			thisform.cnomenclator.Enabled = .t. 
		ELSE 
			thisform.cnomenclator.Enabled = .f.
		ENDIF 
		
		IF [pereche]$LOWER(thisform.pccontrol)
			thisform.command3.Enabled = .t.
			IF [pereched]$LOWER(thisform.pccontrol)
				thisform.fel_compensare  = 1
				thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ ALLTRIM(scd)
			ELSE 
				thisform.fel_compensare  = 0
				thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ ALLTRIM(scc)
			ENDIF 		
		ELSE 
			thisform.command3.Enabled = .f.
			thisform.command3.Caption = [Nr.Doc.Pereche]
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.BeforeRowColChange
		LPARAMETERS nColIndex
		IF thisform.pncolumnorder # nColIndex
			STORE [] TO thisform.pccontrol 
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.InteractiveChange
		thisform.command2.Click
		
	ENDPROC

	PROCEDURE Grid1.Column13.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		
	ENDPROC

	PROCEDURE Grid1.Column13.Text1.InteractiveChange
		thisform.command3.Click(1)
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x14'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column22.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column22.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.LostFocus
		PARAMETERS PlClick
		lcCont = scd
		lcAcont = ascd
		llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','tact') && in oOperatii_comune.prg
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.LostFocus
		PARAMETERS PlClick
		lcCont = scc
		lcAcont = ascc
		llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','tact') && in oOperatii_comune.prg
	ENDPROC

	PROCEDURE Grid1.Column27.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
	ENDPROC

	PROCEDURE Grid1.Column27.Text1.InteractiveChange
		thisform.command3.Click(0)
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x16'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x11'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x2'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x10'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.GotFocus
		SELECT x_item FROM xitems WHERE ALLTRIM(UPPER(label_item)) == 'SUCURSALA' INTO CURSOR crsItem
		SELECT crsItem
		IF RECCOUNT() = 0 OR EMPTY(x_item)
			thisform.pcx_item = 'x29' && XITEM DIN CONTABILITATE
		ELSE
			thisform.pcx_item = x_item && 'x32' IN XITEM DIN GESTIUNI
		ENDIF 
		USE IN crsItem
		
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column34.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x70'
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column34.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.InteractiveChange
		thisform.command1.Click 
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.LostFocus
		lcCont=scd 
		llReturn=exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.LostFocus
		lcCont=scc
		llReturn=exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_modific2007 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="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Header9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column29.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column29.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column30.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column32.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column32.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column36.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column36._CHECKBOX1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column38.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column38.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column39.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column39.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column40.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column40.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cAles._CHECKBOX1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column42.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column42.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column42._combobox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column43._combobox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cnomenclator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkTVAEx" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtSuma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkCtAnalitic" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdSelect" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: alege_partener
		*m: aleg_document_pereche
		*m: calculeazatotal
		*m: ccontrol_assign
		*m: creeaza_note_tva_incasare
		*m: do_adauga_tva_exigibil
		*m: do_import
		*m: do_modifica_explicatie_tva
		*m: grid_focus_prima_coloana
		*m: salveazaxml
		*m: updateexplicatiesaft
		*m: valideaza_data
		*m: verificaavertizareexigibilizaretva
		*p: cacont
		*p: ccont
		*p: ccontrol
		*p: cpaymentcode
		*p: fel_compensare
		*p: lavertizatexigibilizare
		*p: lmodificare
		*p: lnotanoua
		*p: lverificare
		*p: lvizualizare
		*p: nid_set
		*p: noldsuma		&& Valoarea la intrarea in campul "Suma"
		*p: nsuma		&& Total suma inregistrari
		*p: ntaxcode
		*p: obackupxml
		*p: oset
		*p: ouset
		*p: pccontrol
		*p: pcx_item
		*p: pncolumnorder
		*p: pnid_item
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackColor = 192,192,192
		BorderStyle = 3
		cacont = 
		ccont = 
		cpaymentcode = 
		DoCreate = .T.
		FontCharSet = 238
		Height = 360
		lavertizatexigibilizare = .F.
		lmodificare = .F.
		lnotanoua = .F.
		lverificare = .F.
		lvizualizare = .F.
		Name = "frm_modific2007"
		nid_set = 0
		noldsuma = 0
		nsuma = 0
		ntaxcode = 0
		obackupxml = NULL
		oset = NULL
		ouset = NULL
		pccontrol = []
		pcx_item = 0
		pncolumnorder = 0
		pnid_item = 0
		Width = 816
		WindowType = 1
		_memberdata = <VFPData>
			<memberdata name="calculeazatotal" display="CalculeazaTotal"/>
			<memberdata name="nsuma" display="nSuma"/>
			<memberdata name="noldsuma" display="nOldSuma"/>
			<memberdata name="cacont" display="cAcont"/>
			<memberdata name="ccont" display="cCont"/>
			<memberdata name="updateexplicatiesaft" display="UpdateExplicatieSAFT"/>
			<memberdata name="cpaymentcode" display="cPaymentCode"/>
			<memberdata name="ntaxcode" display="nTaxCode"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 31
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 820
		_shape2.Anchor = 8
		_shape2.Height = 31
		_shape2.Left = 636
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 164
		Lb_titlu_alb_b121.Caption = "MODIFICARE"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 18
		Lb_titlu_alb_b121.Top = 2
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 784
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 11
		BUT_TERMIN1.Top = 2
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_label1' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Total", ;
		FontBold = .T., ;
		Left = 511, ;
		Name = "_label1", ;
		TabIndex = 21, ;
		Top = 334
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
		Anchor = 8, ;
		caction = do_copie, ;
		Left = 665, ;
		Name = "But_copiaza1", ;
		TabIndex = 15, ;
		ToolTipText = "Copiere - Se copiaza toate campurile din inregistrarea curenta sau inregistrarile alese ", ;
		Top = 2
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
		Anchor = 8, ;
		caction = do_import, ;
		Left = 605, ;
		Name = "But_modiparam1", ;
		TabIndex = 17, ;
		ToolTipText = "Import din fisier MT940, xls...", ;
		Top = 2, ;
		Visible = .F.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_nou1' AS but_nou WITH ;
		Anchor = 8, ;
		Left = 636, ;
		Name = "But_nou1", ;
		TabIndex = 16, ;
		ToolTipText = "Adaugare (CTRL+N) Se copiaza inregistrarea curenta sau inregistrarile alese, fara campurile: cont, partener, document pereche,  suma lei, suma valuta", ;
		Top = 2
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 8, ;
		Left = 754, ;
		Name = "But_renunt1", ;
		TabIndex = 12, ;
		Top = 2
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
		Anchor = 8, ;
		Left = 724, ;
		Name = "But_salveaza1", ;
		TabIndex = 13, ;
		ToolTipText = "Salvare set note contabile", ;
		Top = 2
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Anchor = 8, ;
		Left = 694, ;
		Name = "But_sterge1", ;
		TabIndex = 14, ;
		Top = 2, ;
		Visible = .T.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'chkCtAnalitic' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Copiez ct. analitic", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		Left = 689, ;
		Name = "chkCtAnalitic", ;
		TabIndex = 10, ;
		ToolTipText = "Se completeaza contul analitic in toate inregistrarile pentru contul sintetic curent", ;
		Top = 332, ;
		Width = 120
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkTVAEx' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Suma TVA exigibil", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		Left = 689, ;
		Name = "chkTVAEx", ;
		TabIndex = 9, ;
		ToolTipText = "Calculeaza suma TVA exigibil la adaugare note TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
		Top = 271, ;
		Value = 1, ;
		Width = 123
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'cmdSelect' AS commandbutton WITH ;
		Anchor = 6, ;
		AutoSize = .F., ;
		Caption = "Selecteaza tot", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		FontUnderline = .T., ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 4, ;
		Name = "cmdSelect", ;
		TabIndex = 4, ;
		Top = 328, ;
		Width = 114
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'cnomenclator' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Nomenclator", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "cnomenclator", ;
		TabIndex = 4, ;
		Top = 105, ;
		Width = 114
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Partener Debit", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command1", ;
		TabIndex = 2, ;
		ToolTipText = "Alege partenerul cont debit", ;
		Top = 46, ;
		Width = 114
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Partener Credit", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command2", ;
		TabIndex = 3, ;
		ToolTipText = "Alege partenerul cont credit", ;
		Top = 75, ;
		Width = 114
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Doc. platit", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 46, ;
		Left = 688, ;
		Name = "Command3", ;
		TabIndex = 5, ;
		ToolTipText = "Alege document platit (cont debitor). Este activ daca este completat contul si partenerul debit.", ;
		Top = 137, ;
		Width = 114, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command4' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Explicatie TVA", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 34, ;
		Left = 688, ;
		Name = "Command4", ;
		TabIndex = 7, ;
		Top = 232, ;
		Width = 114
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command5' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Adauga nota TVA devenit exigibil", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 41, ;
		Left = 688, ;
		Name = "Command5", ;
		TabIndex = 8, ;
		ToolTipText = "Adauga nota TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
		Top = 288, ;
		Width = 114, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command6' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Doc. incasat", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 46, ;
		Left = 688, ;
		Name = "Command6", ;
		TabIndex = 6, ;
		ToolTipText = "Alege document incasat (cont creditor). Este activ daca este completat contul si partenerul credit.", ;
		Top = 183, ;
		Width = 114, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		Anchor = 15, ;
		BackColor = 244,250,255, ;
		ColumnCount = 43, ;
		DeleteMark = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		GridLineColor = 128,128,128, ;
		HeaderHeight = 37, ;
		Height = 284, ;
		HighlightBackColor = 0,64,128, ;
		HighlightStyle = 2, ;
		Left = 5, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "tACT", ;
		RowHeight = 19, ;
		SelectedItemBackColor = 49,106,197, ;
		TabIndex = 1, ;
		Top = 40, ;
		Width = 675, ;
		ZOrderSet = 3, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 244,250,255, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "NRCRT()", ;
		Column1.FontCharSet = 238, ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .F., ;
		Column1.Width = 29, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 244,250,255, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "dataireg", ;
		Column2.FontCharSet = 238, ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 71, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 244,250,255, ;
		Column3.ColumnOrder = 15, ;
		Column3.ControlSource = "fdoc", ;
		Column3.FontCharSet = 238, ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 88, ;
		Column4.Alignment = 0, ;
		Column4.BackColor = 244,250,255, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "dataact", ;
		Column4.FontCharSet = 238, ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Width = 51, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 244,250,255, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "nract", ;
		Column5.FontCharSet = 238, ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 53, ;
		Column6.Alignment = 0, ;
		Column6.BackColor = 244,250,255, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "partd", ;
		Column6.FontCharSet = 238, ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Width = 114, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 244,250,255, ;
		Column7.ColumnOrder = 10, ;
		Column7.ControlSource = "scd", ;
		Column7.FontCharSet = 238, ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 57, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 244,250,255, ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "scc", ;
		Column8.FontCharSet = 238, ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 62, ;
		Column9.Alignment = 1, ;
		Column9.BackColor = 244,250,255, ;
		Column9.ColumnOrder = 14, ;
		Column9.ControlSource = "suma", ;
		Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column9.FontCharSet = 238, ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Format = "r", ;
		Column9.InputMask = (get_mask(12,gnPa)), ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 93, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 244,250,255, ;
		Column10.ColumnOrder = 8, ;
		Column10.ControlSource = "partc", ;
		Column10.FontCharSet = 238, ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 100, ;
		Column11.Alignment = 0, ;
		Column11.BackColor = 244,250,255, ;
		Column11.ColumnOrder = 9, ;
		Column11.ControlSource = "explicatia", ;
		Column11.FontCharSet = 238, ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .F., ;
		Column11.Width = 77, ;
		Column12.BackColor = 244,250,255, ;
		Column12.ColumnOrder = 37, ;
		Column12.ControlSource = "cod", ;
		Column12.FontCharSet = 238, ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 52, ;
		Column13.BackColor = 244,250,255, ;
		Column13.ColumnOrder = 16, ;
		Column13.ControlSource = "pereched", ;
		Column13.FontCharSet = 238, ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .F., ;
		Column13.Width = 106, ;
		Column14.BackColor = 244,250,255, ;
		Column14.ColumnOrder = 31, ;
		Column14.ControlSource = "explicatia4", ;
		Column14.FontCharSet = 238, ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .F., ;
		Column14.Width = 120, ;
		Column15.BackColor = 244,250,255, ;
		Column15.ColumnOrder = 24, ;
		Column15.ControlSource = "nrord", ;
		Column15.FontCharSet = 238, ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .F., ;
		Column16.BackColor = 244,250,255, ;
		Column16.ColumnOrder = 26, ;
		Column16.ControlSource = "nresp", ;
		Column16.FontCharSet = 238, ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.Format = "", ;
		Column16.InputMask = "", ;
		Column16.Name = "Column16", ;
		Column16.ReadOnly = .F., ;
		Column17.BackColor = 244,250,255, ;
		Column17.ColumnOrder = 27, ;
		Column17.ControlSource = "dst_chlt", ;
		Column17.FontCharSet = 238, ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.Format = "", ;
		Column17.InputMask = "", ;
		Column17.Name = "Column17", ;
		Column17.ReadOnly = .F., ;
		Column18.BackColor = 244,250,255, ;
		Column18.ColumnOrder = 32, ;
		Column18.ControlSource = "explicatia5", ;
		Column18.FontCharSet = 238, ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.Name = "Column18", ;
		Column18.ReadOnly = .F., ;
		Column18.Width = 119, ;
		Column19.BackColor = 244,250,255, ;
		Column19.ColumnOrder = 23, ;
		Column19.ControlSource = "datascad", ;
		Column19.FontCharSet = 238, ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Name = "Column19", ;
		Column19.ReadOnly = .F., ;
		Column19.Visible = .T., ;
		Column19.Width = 87, ;
		Column20.BackColor = 244,250,255, ;
		Column20.ColumnOrder = 28, ;
		Column20.ControlSource = "suma_val", ;
		Column20.FontCharSet = 238, ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.InputMask = (get_mask(12,gnPa)), ;
		Column20.Name = "Column20", ;
		Column20.ReadOnly = .F., ;
		Column20.Width = 89, ;
		Column21.BackColor = 244,250,255, ;
		Column21.ColumnOrder = 30, ;
		Column21.ControlSource = "curs", ;
		Column21.FontCharSet = 238, ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.InputMask = (get_mask(12,gnPcurs)), ;
		Column21.Name = "Column21", ;
		Column21.ReadOnly = .F., ;
		Column21.Width = 72, ;
		Column22.BackColor = 244,250,255, ;
		Column22.ColumnOrder = 33, ;
		Column22.ControlSource = "gestin", ;
		Column22.FontCharSet = 238, ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Name = "Column22", ;
		Column22.ReadOnly = .F., ;
		Column22.Width = 116, ;
		Column23.BackColor = 244,250,255, ;
		Column23.ColumnOrder = 11, ;
		Column23.ControlSource = "ascd", ;
		Column23.FontCharSet = 238, ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Name = "Column23", ;
		Column23.ReadOnly = .F., ;
		Column23.Width = 46, ;
		Column24.BackColor = 244,250,255, ;
		Column24.ColumnOrder = 13, ;
		Column24.ControlSource = "ascc", ;
		Column24.FontCharSet = 238, ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.Name = "Column24", ;
		Column24.ReadOnly = .F., ;
		Column24.Width = 48, ;
		Column25.BackColor = 244,250,255, ;
		Column25.ColumnOrder = 38, ;
		Column25.ControlSource = "id_set", ;
		Column25.FontCharSet = 238, ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "Column25", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 71, ;
		Column26.BackColor = 244,250,255, ;
		Column26.ColumnOrder = 19, ;
		Column26.ControlSource = "proc_tva", ;
		Column26.FontCharSet = 238, ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.Name = "Column26", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 54, ;
		Column27.BackColor = 244,250,255, ;
		Column27.ColumnOrder = 17, ;
		Column27.ControlSource = "perechec", ;
		Column27.FontCharSet = 238, ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.Name = "Column27", ;
		Column27.ReadOnly = .F., ;
		Column27.Width = 104, ;
		Column28.BackColor = 244,250,255, ;
		Column28.ColumnOrder = 35, ;
		Column28.ControlSource = "sectie", ;
		Column28.FontCharSet = 238, ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Name = "Column28", ;
		Column28.ReadOnly = .F., ;
		Column28.Width = 88, ;
		Column29.BackColor = 244,250,255, ;
		Column29.ColumnOrder = 29, ;
		Column29.ControlSource = "nume_val", ;
		Column29.FontCharSet = 238, ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.Name = "Column29", ;
		Column29.ReadOnly = .F., ;
		Column29.Width = 79, ;
		Column30.BackColor = 244,250,255, ;
		Column30.ColumnOrder = 39, ;
		Column30.ControlSource = "id_partd", ;
		Column30.FontCharSet = 238, ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.Name = "Column30", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 55, ;
		Column31.BackColor = 244,250,255, ;
		Column31.ColumnOrder = 40, ;
		Column31.ControlSource = "id_partc", ;
		Column31.FontCharSet = 238, ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.Name = "Column31", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 55, ;
		Column32.BackColor = 244,250,255, ;
		Column32.ColumnOrder = 34, ;
		Column32.ControlSource = "gestout", ;
		Column32.FontCharSet = 238, ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.Name = "Column32", ;
		Column32.ReadOnly = .F., ;
		Column32.Width = 92, ;
		Column33.BackColor = 244,250,255, ;
		Column33.ColumnOrder = 36, ;
		Column33.ControlSource = "sucursala", ;
		Column33.FontCharSet = 238, ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.Name = "Column33", ;
		Column33.ReadOnly = .F., ;
		Column33.Width = 121, ;
		Column34.BackColor = 244,250,255, ;
		Column34.ColumnOrder = 25, ;
		Column34.ControlSource = "contract", ;
		Column34.FontCharSet = 238, ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 65, ;
		Column35.BackColor = 244,250,255, ;
		Column35.ColumnOrder = 20, ;
		Column35.ControlSource = "explicatie_tva", ;
		Column35.FontCharSet = 238, ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .F., ;
		Column35.Width = 136, ;
		Column36.BackColor = 244,250,255, ;
		Column36.ColumnOrder = 18, ;
		Column36.ControlSource = "cu_tva", ;
		Column36.FontCharSet = 238, ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.Name = "Column36", ;
		Column36.ReadOnly = .F., ;
		Column36.Sparse = .F., ;
		Column36.Width = 51, ;
		Column37.BackColor = 244,250,255, ;
		Column37.ColumnOrder = 5, ;
		Column37.ControlSource = "serie_act", ;
		Column37.FontCharSet = 238, ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.Format = "!", ;
		Column37.Name = "Column37", ;
		Column37.ReadOnly = .F., ;
		Column37.Width = 58, ;
		Column38.BackColor = 244,250,255, ;
		Column38.ColumnOrder = 41, ;
		Column38.ControlSource = "id_fact", ;
		Column38.FontCharSet = 238, ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.Name = "Column38", ;
		Column38.ReadOnly = .T., ;
		Column38.Width = 94, ;
		Column39.BackColor = 244,250,255, ;
		Column39.ColumnOrder = 42, ;
		Column39.ControlSource = "id_factd", ;
		Column39.FontCharSet = 238, ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.Name = "Column39", ;
		Column39.ReadOnly = .T., ;
		Column39.Width = 75, ;
		Column40.BackColor = 244,250,255, ;
		Column40.ColumnOrder = 43, ;
		Column40.ControlSource = "id_factc", ;
		Column40.FontCharSet = 238, ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "Column40", ;
		Column40.ReadOnly = .T., ;
		Column41.BackColor = 244,250,255, ;
		Column41.ColumnOrder = 2, ;
		Column41.ControlSource = "ales", ;
		Column41.CurrentControl = "_CHECKBOX1", ;
		Column41.FontCharSet = 238, ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cAles", ;
		Column41.ReadOnly = .F., ;
		Column41.Sparse = .F., ;
		Column41.Width = 22, ;
		Column42.BackColor = 244,250,255, ;
		Column42.Bound = .F., ;
		Column42.ColumnOrder = 21, ;
		Column42.ControlSource = "Iif(Seek(tAct.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ;
		Column42.CurrentControl = "_combobox1", ;
		Column42.FontCharSet = 238, ;
		Column42.FontSize = 10, ;
		Column42.Name = "Column42", ;
		Column42.ReadOnly = .F., ;
		Column42.Sparse = .F., ;
		Column42.Width = 184, ;
		Column43.BackColor = 244,250,255, ;
		Column43.Bound = .F., ;
		Column43.ColumnOrder = 22, ;
		Column43.ControlSource = "Iif(Seek(tAct.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ;
		Column43.CurrentControl = "_combobox1", ;
		Column43.FontCharSet = 238, ;
		Column43.FontSize = 10, ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .F., ;
		Column43.Sparse = .F., ;
		Column43.Width = 146
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.cAles._CHECKBOX1' AS _checkbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		Caption = "", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 9, ;
		Name = "_CHECKBOX1", ;
		ReadOnly = .F., ;
		Top = 79
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Grid1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "NrCrt", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie C", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.3", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "COD", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc. platit (debit)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia 4", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrarea", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cheltuiala", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia 5", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Inreg.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header2"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma in valuta", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune destinatie", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnalitD", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnalitC", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip operatie", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc. incasat (credit)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectia", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume Valuta", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel Doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Part D", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Part C", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune sursa", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Contract", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column35.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column36._CHECKBOX1' AS _checkbox WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		Caption = "", ;
		Centered = .T., ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 19, ;
		Name = "_CHECKBOX1", ;
		Top = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Grid1.Column36.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cu TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column37.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column37.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column38.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id factura", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column38.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column39.Header1' AS header WITH ;
		Caption = "Id Factura D", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column39.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header4"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column40.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Factura C", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column40.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column42._combobox1' AS _combobox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		BoundColumn = 4, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "450,150,40", ;
		ControlSource = "tAct.taxcode", ;
		Left = 32, ;
		Name = "_combobox1", ;
		RowSource = "select taxname, tip, CAST(procent_taxa as N(6,2) null) as procent_taxa, taxcode from saft_taxtable order by tva, tva_livrari, tva_achizitii, wht, taxcode into cursor crsTaxTableX", ;
		RowSourceType = 3, ;
		Top = 55
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

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

	ADD OBJECT 'Grid1.Column42.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column43._combobox1' AS _combobox WITH ;
		BorderStyle = 0, ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,150", ;
		ControlSource = "tAct.paymentcode", ;
		Left = 93, ;
		Name = "_combobox1", ;
		ReadOnly = .F., ;
		RowSource = "select paymentname, methodname, mechanismcode from saft_mecanisme_plati where afisat = 1 order by ordine into cursor crsPaymentX", ;
		RowSourceType = 3, ;
		Top = 67
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Grid1.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Plata SAFT", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column43.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.Doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header5"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie D", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header6"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Deb.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header7"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Cred.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header8"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header9"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		Height = 17, ;
		Left = 570, ;
		Name = "Gridextra1", ;
		Top = 11, ;
		Width = 24
		*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renunþare; CTRL+N = Adãugare; CTRL+D = ªtergere", ;
		Left = 5, ;
		Name = "Lb_shortcuts1", ;
		TabIndex = 19, ;
		Top = 17
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'txtSuma' AS _textbox WITH ;
		Alignment = 3, ;
		Anchor = 12, ;
		ControlSource = "thisform.nSuma", ;
		FontCharSet = 238, ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(16,gnPa)), ;
		Left = 556, ;
		Name = "txtSuma", ;
		ReadOnly = .T., ;
		TabIndex = 20, ;
		Top = 330, ;
		Value = 0, ;
		Width = 123
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE alege_partener
		*!* 07.11.2011
		*!* marius.mutu
		*!* daca se schimba partenerul, se pune id_fact = -1 in loc de 0
		*!* pentru a se putea genera un nou id_fact
		
		*!* 26.02.2018
		*!* se inlocuieste partenerul pentru toate inregistrarile alese, optional
		
		LPARAMETERS tcExplicatie, tlSilent
		*** tcExplicatie: D/C
		*** tlSilent: .T. = afiseaza mesaj "contul nu este configurat cu parteneri" - pentru apasarea manuala pe butonul Partener
		
		PRIVATE pcCont
		LOCAL lnIdPartOriginal, lnIdPart, lnrezultat, lnsucces
		LOCAL lcExplicatie
		LOCAL lcSql, lcnume, llToate, lnRecno, locauta
		IF EMPTY(tcExplicatie)
			lcExplicatie = 'D'
		ELSE
			lcExplicatie = UPPER(ALLTRIM(m.tcExplicatie))
		ENDIF
		lnIdPart = 0
		
		SELECT tact
		pcCont = IIF(m.lcExplicatie = 'D', ALLTRIM(NVL(tact.scd, '')), ALLTRIM(NVL(tact.scc, '')))
		IF EMPTY(pcCont)
			IF !m.tlSilent
				AMESSAGEBOX('Completati contul ' + IIF(m.lcExplicatie = 'D', 'debitor.', 'creditor.'), 0 + 48, _SCREEN.CAPTION)
			ENDIF
			RETURN lnIdPart
		ENDIF
		lnIdPartOriginal = IIF(m.lcExplicatie = 'D', id_partd, id_partc)
		
		lnrezultat = 0
		lnsucces = 0
		lcSql = "select count(*) from config_cont_ireg where cont = &pcCont"
		lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat)
		
		IF lnsucces > 0
			IF NVL(lnrezultat, 0) > 0
				locauta = THISFORM.do_cauta(pcCont)
				IF gnButon = 1
					lnIdPart = locauta.id_part
					lcnume = ALLTRIM(locauta.nume)
		
					llToate = .F.
					SELECT tact
					lnRecno = RECNO()
					LOCATE FOR ales
					IF FOUND() AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?', 4 + 32, _SCREEN.CAPTION) = 6
						llToate = .T.
					ENDIF
					GOTO m.lnRecno
		
					SELECT tact
					IF m.lcExplicatie = 'D'
						IF m.llToate
							REPLACE id_partd WITH lnIdPart, partd WITH lcnume FOR ales
						ELSE
							REPLACE id_partd WITH lnIdPart, partd WITH lcnume
						ENDIF
						IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
							REPLACE pereched WITH 0, id_factd WITH - 1
						ENDIF
					ELSE
						IF m.llToate
							REPLACE id_partc WITH lnIdPart, partc WITH lcnume FOR ales
						ELSE
							REPLACE id_partc WITH lnIdPart, partc WITH lcnume
						ENDIF
						IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
							REPLACE perechec WITH 0, id_factc WITH - 1
						ENDIF
					ENDIF
				ENDIF
			ELSE
				IF !m.tlSilent
					AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16, "Eroare")
				ENDIF
			ENDIF
		ELSE
			AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16, "Eroare")
		ENDIF
		
		RETURN lnIdPart
	ENDPROC

	PROCEDURE aleg_document_pereche
		PARAMETERS tcFel,toAct
		LOCAL lcSel,lcSelAct
		lcSelAct = thisform.grid1.RecordSource 
		pnFelCont = tcFel
		
		IF pnFelCont = 0                  && ACTIV
			pcContul = ALLTRIM(NVL(toAct.scc,[]))
			pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
			pnIdPart = NVL(toAct.Id_partc,0)
			pcNume = ALLTRIM(NVL(toAct.partc,[]))
			pnPereche = [perecheC]
			pnIdPereche = [id_factC]
		ELSE                               && PASIV
			pcContul = ALLTRIM(NVL(toAct.scd,[]))
			pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
			pnIdPart = NVL(toAct.Id_partd,0)
			pcNume = ALLTRIM(NVL(toAct.partd,[]))
			pnPereche = [perecheD]
			pnIdPereche = [id_factD]
		ENDIF 
		
		lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
		lcCursor = [crsTest]
		lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
		IF lnSucces < 0
			aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
			SELECT (lcSelAct)
			this.grid1.SetFocus 
			RETURN 
		ENDIF 
		
		SELECT crsTest
		LOCATE 
		IF ePereche = 0
			USE IN crsTest
			SELECT (lcSelAct)
			this.grid1.SetFocus 
			RETURN
		ENDIF 
		
		
		IF !EMPTY(toAct.Suma_val)
			llval = .t.
			pnSuma = toAct.Suma_val
			lcFormular = [ocompensari_val]
		ELSE 
			llval = .f.
			pnSuma = toAct.Suma
			lcFormular = [ocompensari]
		ENDIF 
		pnIdValuta = toAct.Id_Valuta
		pcDenumire = [Partener ] + pcContul 
		
		pcCond = [ an = ?gnAn and luna = ?gnluna]
		
		IF llval
			pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
		ELSE
			pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
		ENDIF
		
		pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
		IF ALLTRIM(pcACont) # [NULL]
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
		ELSE
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
		ENDIF 
		pcschema = ['']
		pcorder = ['']
		
		PRIVATE podateintrod
		STORE '' TO podateintrod
		
		gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
		
		lcFis = 'actcv' + ALLTRIM(pcContul)
		
		IF USED(lcFis)
			USE IN &lcFis
		ENDIF
		
		IF pnFelCont = 0
			lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
				[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
				[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ELSE
			lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
				[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
				[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ENDIF
		&lcsel
		
		USE IN crs_actcv
		SELECT (lcFis)
		
		OPLATA=CREATEOBJECT(lcFormular)
		OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
		OPLATA.pcFis = lcFis
		OPLATA.SUMA = pnSuma
		OPLATA.pnFelCont = pnFelCont
		OPLATA.SHOW(1)
		
		IF gnButon = 1
			SELECT (lcSelAct)
			DELETE 
			SELECT (lcFis)
			SCAN FOR ales
				SCATTER NAME oper
				SELECT (lcSelAct)
				APPEND BLANK 
				GATHER NAME toAct
				REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
				SELECT (lcFis)
			ENDSCAN 
		ELSE 
			SELECT (lcSelAct)
			REPLACE &pnPereche WITH toact.&pnPereche 
		ENDIF 
		
		IF USED(lcFis)
			USE IN (lcFis)
		ENDIF 
		SELECT (lcSelAct)
		this.grid1.SetFocus 
	ENDPROC

	PROCEDURE calculeazatotal
		Local lcCursor, lcSelect, lnRecno
		lcSelect = Select()
		This.LockScreen = .T.
		lcCursor = Thisform.grid1.RecordSource
		Select (m.lcCursor)
		lnRecno = Recno()
		llEOF = EOF()
		Calculate Sum(suma) To This.nSuma
		If m.lnRecno > 0 AND !m.llEOF
			Goto m.lnRecno
		Endif
		This.txtSuma.Refresh()
		This.LockScreen = .F.
		
		Select (m.lcSelect)
		
	ENDPROC

	PROCEDURE ccontrol_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.cControl = m.vNewVal
	ENDPROC

	PROCEDURE creeaza_note_tva_incasare
		Lparameters tcCursorAct, toRec, tnSuma
		* tcCursorAct: tAct = numele cursorului in care se adauga inregistrarile de TVA exigibil
		* toRec: inregistrarea cu TVA incasare (id_fact, id_part etc.)
		* tnSuma: suma incasata, din care se calculeaza TVA exigibil pe cote TVA
		lnIdFact = toRec.id_fact
		lnSuma = tnSuma
		lnProcTVA = 0
		lnIdJtvaColoana = 0
		lnScd = Alltrim(toRec.scd)
		lnScc = Alltrim(toRec.scc)
		
		lcSql = [{call pack_contab.defalca_tva_incasare(] + Alltrim(Str(m.lnIdFact)) + [,] + ;
			ALLTRIM(Str(m.lnSuma, 16, m.gnPC)) + [,] + ;
			ALLTRIM(Str(m.lnProcTVA, 16, 4)) + [,] + ;
			IIF(!Empty(Nvl(m.lnIdJtvaColoana,0)) And !(m.lnScd ='408' And m.lnScc ='401'),[0],[1]) + [,] + ;
			[?gnLuna,?gnAn)}]
		
		lcCursorDefTVA = Sys(2015)
		If goExecutor.oExecuta(lcSql,lcCursorDefTVA)
		
			SELECT (m.lcCursorDefTVA)
			GO TOP 
			lcScd = ALLTRIM(scd)
			lcScc = ALLTRIM(scc)
			update_jtva_coloane(IIF(m.lcSCD = '4427' OR m.lcScc = '4427', 'JV', 'JC'), 'crsExplicatiiTVATemp', 1)
				
			Insert Into &tcCursorAct(serie_act,luna,an,nract,ascd,scd,ascc,scc,;
				suma,explicatia4,explicatia5,Curs,id_util,;
				id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,;
				id_ctr,contract,id_sectie,sectie,proc_tva,id_set,id_fact,;
				perecheC,perecheD,id_factD,id_factC,id_partd,partd,id_partc,partc,;
				id_sucursala,sucursala,id_fdoc,fdoc,;
				id_gestin,gestin,id_gestout,gestout,;
				id_jtva_coloana, explicatie_tva, id_valuta,nume_val,dataact,dataireg, tipnota, cu_tva, tva_incasare) ;
				Select Nvl(toRec.serie_act, '') As serie_act,;
					toRec.luna As luna,toRec.an As an,toRec.nract As nract,a.ascd As ascd,a.scd As scd,a.ascc As ascc,a.scc As scc,;
					a.suma As suma, Nvl(toRec.explicatia4, '') As explicatia4, Nvl(toRec.explicatia5, '') As explicatia5,toRec.Curs As Curs,toRec.id_util As id_util,;
					toRec.id_responsabil As id_responsabil, Nvl(toRec.nresp, '') As nresp,toRec.id_venchelt As id_venchelt, Nvl(toRec.dst_chlt, '') As dst_chlt,;
					toRec.id_lucrare As id_lucrare, Nvl(toRec.nrord, '') As nrord,toRec.id_ctr As id_ctr, Nvl(toRec.contract, '') As contract,;
					toRec.id_sectie As id_sectie, Nvl(toRec.sectie, '') As sectie, a.proc_tva As proc_tva,toRec.id_set As id_set, a.id_fact As id_fact,;
					a.perecheC As perecheC,a.perecheD As perecheD,;
					0 As id_factD,0 As id_factC,0 As id_partd,'' As partd,0 As id_partc,'' As partc,;
					CAST(toRec.id_sucursala as I null) As id_sucursala, Nvl(toRec.sucursala, '') As sucursala,toRec.id_fdoc As id_fdoc, Nvl(toRec.fdoc, '') As fdoc,;
					toRec.id_gestin As id_gestin, Nvl(toRec.gestin, '') As gestin,;
					toRec.id_gestout As id_gestout, Nvl(toRec.gestout, '') As gestout,;
					a.id_jtva_coloana As id_jtva_coloana, b.denumire as explicatie_tva, toRec.id_valuta As id_valuta, Nvl(toRec.nume_val, '') As nume_val,toRec.dataact As dataact,toRec.dataireg As dataireg, ;
					toRec.tipnota, toRec.cu_tva, toRec.tva_incasare ;
					FROM (lcCursorDefTVA) a ;
					LEFT JOIN crsExplicatiiTVATemp b ON a.id_jtva_coloana = b.id_jtva_coloana
		
			USE IN (SELECT(lcCursorDefTVA))
			USE IN (SELECT('crsExplicatiiTVATemp'))
		Endif
		
	ENDPROC

	PROCEDURE do_adauga
		*!* 27.07.2011
		*!* marius.mutu
		*!* nu se copiaza scd, scc, ascd, ascc
		
		*!* 08.08.2011
		*!* marius.mutu
		*!* salvare xml nota in caz de fatal error. se reincarca la intrarea in nota fara predefinire
		
		*!* 24.05.2011
		Local lnRecno, loadd
		Select tact
		lnRecno = Recno()
		Locate For ales
		If Found()
			lcCond = "ales"
		ELSE
			lcCond = "recno() = " + Alltrim(Str(lnRecno))
			LOCATE FOR !DELETED()
			IF !FOUND()
				lcCond = ".T."
			ENDIF 	
		ENDIF
		
		Select tact
		SCAN FOR &lcCond
			Scatter Name loadd Fields Except scd, ascd, scc, ascc, id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, suma_val, ales
			IF NVL(m.gnIdSucursala,0) <> 0
				loAdd.id_sucursala = m.gnIdSucursala
				loAdd.sucursala = m.gcFirma
			ENDIF 	
			lnRecno = RECNO()
			loadd.id_act = 0	&&	modificare	ROACONT v 2.4.4
			Append Blank
			Gather Name loadd
			GOTO lnRecno
		ENDSCAN && ales
		*!* 24.05.2011 ^
		*!* 08.08.2011
		This.SalveazaXml()
		*!* 08.08.2011 ^
		Do nrord With 'tact'
		Thisform.CalculeazaTotal()
		
		This.grid1.SetFocus 
		this.grid1.Refresh 
		this.grid_focus_prima_coloana()
		
	ENDPROC

	PROCEDURE do_adauga_tva_exigibil
		*!*
		*!*	 - tva devenit exigibil ( din nota cu plata / incasare ) :
		*!*		- de completat explicatia TVA
		*!*		- id_factd = 0 si id_fact = id_factd
		*!*		- id_partd = 0, id_partc = 0
		*!*		- suma = 0
		*!*		- proc_tva = 0; poate sa aleaga la explicatie TVA doar din cele exigibile
		*!*	 - daca are o linie cu 4XX-5XXX sau 5XXX-4XX, atunci nu e activ decat pe linia respectiva
		*!*	 - daca nu ( mai ) are nicio linie cu  4XX-5XXX sau 5XXX-4XX
		*!*		>	ii arat o lista cu toate facturile din JV / JC din luna care mai au sold si ii completez id_fact
		Local lnrecno, lnRecno1, loadd, llCalculeazaTVAEx, llCalculeazaNoteTVA
		Local lcCond, lnSuma
		
		llCalculeazaTVAEx = (Thisform.chkTVAEX.Value = 1) && calculeaza suma TVA Exigibil = 100/(100 + proc tva) din suma achitata
		llCalculeazaNoteTVA = .F. && calculeaza note tva incasare pentru plati, incasari (5xx = xxx, xxx = 5xx)
		
		Select tact
		lnrecno = Recno()
		lnrecno1 = Recno()
		Locate For ales
		If Found()
			lcCond = [ales and (scc = '4428' or scd = '4428' or id_factd > 0 or id_factc > 0)]
		Else
			lcCond = "recno() = " + Alltrim(Str(m.lnrecno))
			*!*		LOCATE FOR !DELETED()
			*!*		IF !FOUND()
			*!*			lcCond = ".T."
			*!*		ENDIF
		Endif
		Select tact
		Scan For &lcCond
			Scatter Name m.loadd Fields Except ascd, ascc, ales, id_jtva_coloana, proc_tva, explicatie_tva
			lnSuma = suma
			loadd.tipnota = 1
			loadd.cu_tva = 1
			loadd.tva_incasare = 1
			Do Case
				Case m.loadd.scd = [4428]
					If m.loadd.scc <> [4427]
						loadd.scd = [4426]
						loadd.scc = [4428]
						loadd.pereched = m.loadd.nract
					Endif
					loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
		
					loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
					loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
		
				Case m.loadd.scc = [4428]
					If m.loadd.scd <> [4426]
						loadd.scd = [4428]
						loadd.scc = [4427]
						loadd.perechec = m.loadd.nract
					Endif
					loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
		
					loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
					loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
		
				Case !Empty(m.loadd.perechec) And Left(m.loadd.scd, 1) = '5'
					loadd.scd = [4428]
					loadd.scc = [4427]
					loadd.id_fact = Iif(m.loadd.id_factc > 0, m.loadd.id_factc, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
					loadd.id_factd = 0
					loadd.id_factc = 0
					llCalculeazaNoteTVA = m.llCalculeazaTVAEx
		
				Case !Empty(m.loadd.pereched) And Left(m.loadd.scc, 1) = '5'
					loadd.scd = [4426]
					loadd.scc = [4428]
					loadd.id_fact = Iif(m.loadd.id_factd > 0, m.loadd.id_factd, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
					loadd.id_factd = 0
					loadd.id_factc = 0
					llCalculeazaNoteTVA = m.llCalculeazaTVAEx
		
				Otherwise
					If Type('loFactura') = 'U'
						Local loFactura
						loFactura = cauta_facturaTVAEx()		&&	ocautare.prg
						If Isnull(m.loFactura)
							Exit
						Endif
					Endif
					If m.loFactura.tip = [CUMPARARE]				&&	CUMPARARE / VANZARE
						loadd.scd = [4426]
						loadd.scc = [4428]
						loadd.pereched = m.loFactura.nract
						loadd.perechec = 0
					Else
						loadd.scd = [4428]
						loadd.scc = [4427]
						loadd.pereched = 0
						loadd.perechec = m.loFactura.nract
					Endif
					loadd.id_fact = m.loFactura.id_fact
					loadd.id_factd = 0
					loadd.id_factc = 0
			Endcase
			loadd.id_partd = 0
			loadd.id_partc = 0
			loadd.partd = []
			loadd.partc = []
			If Nvl(m.gnIdSucursala, 0) <> 0
				loadd.id_sucursala = m.gnIdSucursala
				loadd.sucursala = m.gcFirma
			Endif
			Select tact
			lnrecno = Recno()
		
			If !m.llCalculeazaNoteTVA
				Append Blank
				Gather Name m.loadd
			Else
				Thisform.creeaza_note_tva_incasare('tact', m.loadd, m.lnSuma)
			Endif
		
			Select tact
			Goto m.lnrecno
		
		Endscan
		
		Select tact
		Goto m.lnRecno1
		
		Release m.loFactura
		This.SalveazaXml()
		Do nrord With 'tact'
		This.grid1.SetFocus
		This.grid1.Refresh
		This.grid_focus_prima_coloana()
	ENDPROC

	PROCEDURE do_cauta
		PARAMETERS tcCont
		LOCAL loCauta, loHash
		
		IF EMPTY(NVL(tcCont,''))
			RETURN
		ENDIF 
		*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
		loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
		IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
			loHash.SetValue('dDataDoc', tact.dataact)
		ENDIF 
		loCauta = CautPartenerContabilitate(loHash)
		
		RETURN loCauta
		
	ENDPROC

	PROCEDURE do_copie
		*!* 20.05.2011
		Local lnrecno, loadd
		Select tact
		lnRecno = Recno()
		Locate For ales
		If Found()
			lcCond = "ales"
		Else
			lcCond = "recno() = " + Alltrim(Str(lnRecno))
		ENDIF
		
		Select tact
		SCAN FOR &lcCond
			Scatter Name loadd Fields Except ales
			IF NVL(m.gnIdSucursala,0) <> 0
				loAdd.id_sucursala = m.gnIdSucursala
				loAdd.sucursala = m.gcFirma
			ENDIF 	
			lnrecno = RECNO()
			loadd.id_act = 0	&&	modificare	ROACONT v 2.4.4
			Append Blank
			Gather Name loadd
			GOTO lnRecno
		ENDSCAN 
		*!* 20.05.2011 ^
		*!* 08.08.2011
		This.SalveazaXml()
		*!* 08.08.2011 ^
		Thisform.CalculeazaTotal()
		
		Do nrord With 'tact'
		This.grid1.SetFocus 
		this.grid1.Refresh 
		this.grid_focus_prima_coloana()
	ENDPROC

	PROCEDURE do_import
	ENDPROC

	PROCEDURE do_modifica
		*!* 08.07.2013
		*!* marius.mutu
		*!* + tnIdItem: pentru cazul in care am mai multe x_item la fel (vezi nrord)
		
		*!* 26.02.2018
		*!* se inlocuieste valoarea pentru toate inregistrarile alese, optional
		
		PARAMETERS tcX_item, tcControl, tnIdItem
		*** tnIdItem (optional) in loc de tcX_item, in cazul in care am mai multe x_item la fel (vezi nrord)
		
		LOCAL lcColoane, lcControl, lcFisier, lcIdAct, lcIdFis, lcPrimVal, lcReplace, lcVarAct, llAles
		LOCAL lnColoane, lnRecno, locauta
		*:Global i, pcFiltruOriginal, pcTitlu, pcTitluColoane, pccoloane, pcfiltru, pcorder, pcschema
		*:Global pcselect
		lcControl = ALLTRIM(tcControl)
		IF '.' $ tcControl
			lcControl = RIGHT(lcControl, LEN(lcControl) - AT('.', lcControl))
		ENDIF
		
		SELECT xitems
		IF !EMPTY(m.tnIdItem)
			LOCATE FOR id_item = m.tnIdItem
		ELSE
			LOCATE FOR ALLTRIM(x_item) = ALLTRIM(tcX_item)
		ENDIF
		IF !FOUND()
			RETURN
		ENDIF
		
		SCATTER NAME locauta
		lcColoane = ALLTRIM(locauta.camp_lista)
		lcIdFis = ALLTRIM(locauta.id_fisier)
		lcFisier = ALLTRIM(locauta.fis_lista)
		lcVarAct = lcControl
		lcIdAct = lcIdFis
		
		pcselect = [select ] + lcColoane + [,] + lcIdFis + [ from ] + lcFisier
		pcfiltru = [1=2]
		pcschema = []
		pcorder = lcColoane
		pccoloane = lcColoane
		pcTitlu = PROPER(ALLTRIM(locauta.label_item))
		pcTitluColoane = pcTitlu
		lnColoane = OCCURS([,], lcColoane)
		pcFiltruOriginal = [inactiv = 0]
		IF lnColoane > 0
			FOR i = 1 TO lnColoane
				pcTitluColoane = pcTitluColoane + [, ]
			ENDFOR
		ENDIF
		locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcFisier, .F., pcFiltruOriginal)	&& 11.07.2007
		
		IF gnButon = 1
			IF ',' $ lcColoane
				lcPrimVal = LEFT(lcColoane, AT(',', lcColoane) - 1)
			ELSE
				lcPrimVal = ALLTRIM(lcColoane)
			ENDIF
		
			IF 'nume_gestiune' $ LOWER(lcPrimVal)
				lcIdAct = [id_] + lcVarAct
			ENDIF
		
			SELECT tact
			lnRecno = RECNO()
			LOCATE FOR ales
			llAles = FOUND()
			GOTO m.lnRecno
			lcReplace = [replace ] + lcVarAct + [ with locauta.] + lcPrimVal + [,] + lcIdAct + [ with locauta.] + lcIdFis
			IF m.llAles AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?',4+32, _screen.Caption) = 6
				lcReplace = m.lcReplace + ' for ales'
			ENDIF 
		
			SELECT tact
			&lcReplace
			GOTO m.lnRecno
		
		ENDIF
		
		RETURN locauta
		
	ENDPROC

	PROCEDURE do_modifica_explicatie_tva
		If tact.cu_tva = 1
			*!*	modificare	ROACONT v 2.4.4
			If TYPE('tact.tipnota') = 'N' AND tact.tipnota = 1
				*!*	explicatii TVA exigibile din JC ( 1 ), JV ( 3 ) sau toate ( 5 )
				locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1),,,iif(tact.scc=[4428],1,iif(tact.scd=[4428],3,5)))
			Else
				locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
			Endif
			*!*		locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
			*!*	modificare	ROACONT v 2.4.4	^
			If !Empty(locauta.id_jtva_coloana)
				Select tact
				Replace id_jtva_coloana With locauta.id_jtva_coloana,explicatie_Tva With locauta.denumire,proc_tva With (locauta.cota_tva + 100) / 100
			Endif
		
			* Actualizez Cod Taxa SAFT in functie de Cota TVA
			Thisform.UpdateExplicatieSAFT()
		ENDIF
		
		
	ENDPROC

	PROCEDURE do_salvare
		*!*	24.10.2014
		*!*	marius.mutu
		*!*	actualizez xsets cu seturile utilizator dupa salvarea unui set
		
		Local loxSet As "oxSet"
		Local llModelNou, llNotaNoua, llNotaNouaDefinita, lnIdSet, lnOptiune, loSet, lcXMLNote
		Local lcModel, llSucces, lnIdSetModel
		*:Global Buton, gnButon, pnButon, pnIesire
		
		lnIdSet = Thisform.nid_set
		llNotaNoua = Thisform.lNotaNoua
		llNotaNouaDefinita = m.llNotaNoua And !Inlist(m.lnIdSet, 99998, 99999)
		llModelNou = .T. && salvare model nou
		
		*** MODIFICARE SET SAU SET NOU?
		*** Daca s-a incarcat o nota definita de utilizator
		*** salvez peste nota existenta sau creez o nota noua
		llModelNou = (Type('this.oSet') <> 'O')
		loSet = This.oSet
		
		loxSet = Createobject("oxSet", m.lnIdSet) && ocont2003.prg
		
		SELECT *, RECNO() as nr_nota FROM tact INTO CURSOR crsNoteTemp && completez campul nr_nota pentru ordonare
		loxSet.Cursor2Property("crsNoteTemp", "cXmlNote") && completez proprietatea cXmlNote
		USE IN (SELECT('crsNoteTemp'))
		
		*** Daca este un set existent, il salvez cu noile note, fara sa mai editez proprietatile
		IF !m.llModelNou 
			llSucces = loxSet.Save()
		ELSE 
			*** daca este un set nou editez proprietatile (nume, categorie, request) si apoi salvez
			loxSet.New()
			llSucces = loxSet.Edit()
		ENDIF 	
		
		If !m.llSucces
			RETURN m.llSucces
		ENDIF
		
		lnSucces = xdate() && actualizez xsets cu seturile utilizator
		
		*** Daca nu exista butonul Terminat (atunci cand apelez formularul din editare set), atunci salvez si ies din formular
		If !This.but_terMIN1.Visible
			gnButon = 3
			pnButon = 3
			Buton = 3
			pnIesire = 3
			If !This.lhide
				This.Release
			Else
				This.Hide
			Endif
		Endif
	ENDPROC

	PROCEDURE do_sterge
		*!* 14.07.2011
		*!* daca formularul se foloseste pentru creare nota fara predefinire, inregistrarile se sterge direct, fara verificari
		Local lnAn, lnLuna, lnCod, lnIdFact, llReferinteDocumente, llNotaNoua
		Local lcCond, lnRecno
		*!* 24.05.2011
		Select tact
		lnRecno = Recno()
		Locate For ales
		If Found()
			lcCond = "ales"
		Else
			lcCond = "recno() = " + Alltrim(Str(lnRecno))
		ENDIF
		
		*!* 14.07.2011
		llNotaNoua = this.lNotanoua && sunt in creare nota fara predefinire, nu in modificare nota din registrul jurnal
		*!* 14.07.2011 ^
		IF !m.llNotaNoua
			SELECT tAct
			LOCATE FOR &lcCond and !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0))
			IF FOUND()
				AMESSAGEBOX('Nu se pot sterge decat inregistrari din sucursala curenta!', 0+48, _screen.Caption)
				RETURN
			ENDIF 
		ENDIF 
		
		SELECT an, luna, cod, id_fact FROM tact WHERE .F. INTO CURSOR cReferinteVerificate READWRITE 
		
		SELECT tact
		SCAN FOR &lcCond
			lnAn = an
			lnLuna = luna
			lnCod = cod
			lnIdFact = id_fact
			IF !m.llNotaNoua
				WAIT WINDOW 'Verificare referinte ' + ALLTRIM(STR(m.lnIdFact)) + ' ...' NOWAIT 
				llReferinteDocumente = .F.
				SELECT cReferinteVerificate 
				LOCATE FOR an = lnAn AND luna = lnLuna AND cod = lnCod AND id_fact = lnIdFact
				IF !FOUND()
					llReferinteDocumente = ReferinteDocument(lnAn, lnLuna, lnCod, lnIdFact) && odocumente.prg
				ENDIF 	
				If llReferinteDocumente
					AMESSAGEBOX("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
					USE IN (SELECT('cReferinteVerificate'))
					RETURN
				ELSE 
					INSERT INTO cReferinteVerificate(an, luna, cod, id_fact) VALUES (lnAn, lnLuna, lnCod, lnIdFact)	 
				Endif
			ENDIF  && llNotaNoua
			
			Select tact
			DELETE
		ENDSCAN && lcCond	
		USE IN (SELECT('cReferinteVerificate'))
		*!* 24.05.2011 ^
		
		*!* 08.08.2011
		This.SalveazaXml()
		*!* 08.08.2011 ^
		
		Thisform.CalculeazaTotal()
		
		Select tact
		TRY 
			GOTO lnRecno
			SKIP -1 
		CATCH 
			GO TOP 
		ENDTRY 
		
		This.grid1.SetFocus
		 
	ENDPROC

	PROCEDURE do_verifica
		*!*	PARAMETERS tlClick, tccont, tcacont, tcColoana
		
		*!*	m.den=''
		*!*	ll_l=.f.
		
		*!*	IF EMPTY(tccont)
		*!*		RETURN ll_l
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva
		*!*	ENDIF
		
		*!*	lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ]
		*!*	lcCursor = 'tceva'
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*	SELECT tceva
		*!*	LOCATE 
		*!*	IF EOF()
		*!*		IF !EMPTY(tcAcont) AND !ISNULL(tcAcont)
		*!*			DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont
		*!*			ll_l=.t.
		*!*		ENDIF 
		*!*		
		*!*		IF USED('TCEVA')
		*!*			USE IN Tceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		this.grid1.SetFocus 
		*!*		RETURN ll_l
		*!*	ELSE 
		*!*		IF !tlClick
		*!*			IF empty(tcAcont)
		*!*				IF USED('TCEVA')
		*!*					USE IN Tceva 
		*!*				ENDIF 
		*!*				SELECT tact 
		*!*				this.grid1.SetFocus 
		*!*				RETURN ll_l
		*!*			ENDIF 
		*!*		ENDIF 
		*!*	ENDIF
		
		*!*	SELECT tceva
		*!*	IF tlClick
		*!*		DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*		SELECT tceva
		*!*		LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
		*!*		lcAcont = acont
		
		*!*		SELECT tact
		*!*		REPLACE &tcColoana WITH lcAcont
		*!*	ELSE 
		*!*		LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont)
		*!*		IF !FOUND()
		*!*			DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*			SELECT tceva
		*!*			LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
		*!*			lcAcont = acont
		
		*!*			SELECT tact
		*!*			REPLACE &tcColoana WITH lcAcont
		*!*		ENDIF 
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva 
		*!*	ENDIF  
		
		*!*	SELECT tact 
		*!*	this.grid1.SetFocus 
		*!*	RETURN ll_l
	ENDPROC

	PROCEDURE grid_focus_prima_coloana
		Local lnColumns, loColumn, loGrid, i
		Local lcColumn
		
		loGrid = this.grid1
		lnColumns = loGrid.ColumnCount 
		
		FOR i = 1 TO m.lnColumns
			lcColumn = 'loGrid.Column' + ALLTRIM(STR(i))
			loColumn = &lcColumn
			IF loColumn.columnOrder = 1
				EXIT 
			ENDIF 
		ENDFOR 
		loColumn.Setfocus()   
	ENDPROC

	PROCEDURE grid_sort_bind
		* nu sterge
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local lVerificAnalitic, lCompletezPartener, llNuVerificCont
		*!* 24.05.2011
		SELECT tact
		SET FILTER TO 
		*!* 24.05.2011 ^
		
		lVerificAnalitic = .T.
		lCompletezPartener = .F.
		*!* 13.03.2008
		*!*	modificare ROACONT v 2.0.110
		If INLIST(This.nid_set, 99998, 90024) && 99998 = NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC), 90024 = INITALIZARE FACTURI SOLDURI DIN PRELUARE
		*!*	If id_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)
		*!*	modificare ROACONT v 2.0.110	^
			llNuVerificCont = .T.
		Else 
			llNuVerificCont = .F.	
		EndIf 
		*!* 14.03.2008 - nu mai fac nici o verificare pentru notele 99998
		If !llNuVerificCont
			llRet = verificare_note_contabile('tact',lVerificAnalitic,lCompletezPartener,llNuVerificCont) && in oOperatii_comune
		Else 
			llRet = .T.
		EndIf 	
		*!* 14.03.2008 ^
		*!* 13.03.2008 ^
		*!*	modificare	v 2.4.4
		IF m.llRet
			If gnAn >= 2013
				Select tact
				Locate For ((scd = '4426' And scc = '4428') Or (scd='4428' And scc='4427')) And tipnota = 0 And id_act = 0
				If Found()
					llRet = Iif(amessagebox("Ati adaugat o nota 4426-4428 / 4428-4427 fara a folosi optiunea 'Adauga nota TVA devenit exigibil'." + CRLF + ;
						"Din aceasta cauza, este posibil ca inregistrarea sa nu se preia corect in Registrul de Cumparari / Vanzari." + CRLF + CRLF + ;
						"Doriti sa continuati?", 4+32, "Note 4426-4428/4428-4427")=6,.T.,.F.)
				Endif
			ENDIF
			If m.llRet
				llRet = This.VerificaAvertizareExigibilizareTVA()
			Endif
		ENDIF
		*!*	modificare	v 2.4.4	^
		RETURN m.llRet
		
		
		*!*	LOCAL lcInMesaj,lcInMesajP,lcInMesajIreg
		*!*	STORE '' TO lcInMesaj,lcInMesajP, lcInMesajIreg
		
		*!*	SELECT tact
		*!*	GO TOP
		*!*	lnId_set=id_set
		*!*	ll_return = .T.
		
		*!*	SELECT DISTINCT scd AS CONT FROM tact ;
		*!*		WHERE suma # 0 ;
		*!*		UNION ;
		*!*		SELECT DISTINCT scc AS CONT FROM tact ;
		*!*		WHERE suma # 0 ;
		*!*		INTO CURSOR tcont
		
		*!*	i = 0
		*!*	SELECT tcont
		*!*	SCAN
		*!*		i = i + 1
		*!*		IF i = 1
		*!*			lcLista = ALLTRIM(CONT)
		*!*		ELSE
		*!*			lcLista = lcLista + ',' + ALLTRIM(CONT)
		*!*		ENDIF
		*!*	ENDSCAN
		
		*!*	lcSql = 'select distinct c.cont as contpart, c.fel_cont, c.cu_inregistrari, c.explicatie as explic_cont,e.cont_c as exceptie, e.debit as pozitie, e.invers, 0 as gasit ' + ;
		*!*		'from ' + gcs + '.vcoresp_tip_cont c left join ' + gcs + '.exceptii_ireg e on c.cont = e.cont and e.invers = 1 ' + ;
		*!*		'where to_number(c.cont) in (' + lcLista + ')'
		*!*	lcCursor = 'verif_part'
		
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		*!*	IF lnSucces < 0
		*!*		MESSAGEBOX('Modificare:Verific completare id_part ' +goExecutor.cEroare,0+16,"Eroare")
		*!*	ENDIF
		
		*!*	IF lnSucces > 0
		*!*		IF RECCOUNT('verif_part') > 0
		*!*			SELECT tact
		*!*			SCAN FOR !EMPTY(suma)
		*!*				SCATTER NAME loCont
		*!*				SELECT verif_part
		*!*				LOCATE FOR contpart=loCont.scd
		*!*				IF FOUND()
		*!*					IF EMPTY(loCont.Id_partd) AND !(loCont.scd$lcInMesajP)
		*!*						lcInMesajP=lcInMesajP+','+loCont.scd
		*!*						REPLACE gasit WITH 1
		*!*					ENDIF
		
		*!*					IF EMPTY(loCont.pereched) AND cu_inregistrari = 1 AND fel_cont = 1 AND !(loCont.scd$lcInMesajIreg)
		*!*						LOCATE FOR contpart=loCont.scd AND exceptie = loCont.scc AND fel_cont = 1 AND pozitie = 0 AND invers = 1
		*!*						IF !FOUND()
		*!*							lcInMesajIreg = lcInMesajIreg + ',' + loCont.scd
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		
		*!*				SELECT verif_part
		*!*				LOCATE FOR contpart=loCont.scc
		*!*				IF FOUND()
		*!*					IF EMPTY(loCont.Id_partc) AND !(loCont.scc$lcInMesajP)
		*!*						lcInMesajP=lcInMesajP+','+loCont.scc
		*!*						REPLACE gasit WITH 1
		*!*					ENDIF
		*!*					IF cu_inregistrari = 1 AND fel_cont = 0 AND EMPTY(loCont.perechec) AND !(loCont.scc$lcInMesajIreg)
		*!*						LOCATE FOR contpart=loCont.scc AND exceptie = loCont.scd AND fel_cont = 0 AND pozitie = 1 AND invers = 1
		*!*						IF !FOUND()
		*!*							lcInMesajIreg = lcInMesajIreg + ',' + loCont.scc
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				SELECT tact
		*!*			ENDSCAN
		*!*		ENDIF
		*!*	ENDIF
		
		*!*	IF lnSucces > 0 AND !(lnId_set>90000 AND lnId_set<90010) && notele de inchidere se fac in functie de optiuni
		*!*		lcSql=[select CONT, ACONT FROM ] + gcs + [.vplcont_ANALITIC where inactiv = 0 and an = ?gnAn order by cont ]
		*!*		lcCursor = 'plcontana'
		*!*		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*		IF lnSucces < 0
		*!*			MESSAGEBOX('Modificare:Verific completare analitic ' +goExecutor.cEroare,0+16,"Eroare")
		*!*		ENDIF
		
		*!*		IF lnSucces > 0
		*!*			SELECT tact
		*!*			SCAN FOR !EMPTY(suma)
		*!*				SCATTER NAME loCont
		*!*				IF EMPTY(loCont.ascd) OR ISNULL(loCont.ascd)
		*!*					SELECT plcontana
		*!*					LOCATE FOR ALLTRIM(CONT)=ALLTRIM(loCont.scd)
		*!*					IF FOUND()
		*!*						IF !(loCont.scd$lcInMesaj)
		*!*							lcInMesaj=lcInMesaj+','+loCont.scd
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				IF EMPTY(loCont.ascc) OR ISNULL(loCont.ascc)
		*!*					SELECT plcontana
		*!*					LOCATE FOR CONT=loCont.scc
		*!*					IF FOUND()
		*!*						IF !(loCont.scc$lcInMesaj)
		*!*							lcInMesaj=lcInMesaj+','+loCont.scc
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				SELECT tact
		*!*			ENDSCAN
		*!*			RELEASE loCont
		*!*		ENDIF
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesaj)
		*!*		DO mesaj WITH 'Nu ati completat simbolurile analitice pentru conturile:',lcInMesaj
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesajP)
		*!*		DO mesaj WITH 'Nu ati completat partenerii pentru conturile:', lcInMesajP
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesajIreg)
		*!*		DO mesaj WITH 'Nu ati completat doc. pereche pentru conturile:', lcInMesajIreg
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF USED('verif_part')
		*!*		USE IN verif_part
		*!*	ENDIF
		*!*	IF USED('plcontana')
		*!*		USE IN plcontana
		*!*	ENDIF
		*!*	IF USED('tcont')
		*!*		USE IN tcont
		*!*	ENDIF
		
		*!*	RETURN ll_return
		
		
		
	ENDPROC

	PROCEDURE Init
		*!* 05.12.2013
		*!* marius.mutu
		*!* adaugat parametru tlVizualizare - pentru verificarea din registrul jurnal
		*!* parametrul tlVizualizare poate avea atat valori logice (.T. = VIZUALIZARE, .F. = MODIFICARE/NOTA FARA PREDEFINIRE),
		*!* cat si valori numerice (1=VIZUALIZARE, 2 = MODIFICARE, 3 = VERIFICARENOTE)
		
		Lparameters tnIdSet, tlNotaNoua, toBackupXML, toSet, tlVizualizare
		DoDefault()
		
		*!*	modificare ROACONT v 2.0.110
		This.nid_set = tnIdSet
		*!* 14.07.2011
		This.lNotaNoua = tlNotaNoua && daca se apeleaza formularul din nota_fara_predefinire (ocont2003.prg)
		*!* 14.07.2011 ^
		
		*!* 05.12.2013
		This.oBackupXML = toBackupXML
		This.oSet = m.toSet
		This.lVizualizare = .F.
		This.lModificare = .T.
		This.lVerificare = .F.
		
		If Pcount() >= 5
			If Type('tlVizualizare') = 'L'
				This.lVizualizare = m.tlVizualizare && default = MODIFICARE
			Else
				If Type('tlVizualizare') = 'N'
					Do Case
						Case m.tlVizualizare = 1
							This.lVizualizare = .T.
						Case m.tlVizualizare = 2
							This.lModificare = .T.
						Case m.tlVizualizare = 3
							This.lVerificare = .T.
					Endcase
				Endif && Type('tlVizualizare') = 'N'
			Endif && Type('tlVizualizare') = 'L'
		Endif
		
		Do Case
			Case This.lVerificare && verificarea notelor contabile (ex. nota inchidere imobilizari din inchidere.prg)
				This.lb_titlu_alb_b121.Caption = 'VERIFICARE'
			Case m.tlNotaNoua
				This.lb_titlu_alb_b121.Caption = 'NOTA FARA PREDEFINIRE'
		Endcase
		
		*** In modul editare note definite de utilizator, arat doar butoanele Salvez si Renunt
		If Type('toSet') = 'O' && sunt in modul editare
			This.but_termin1.Visible = .F.
		Endif
		
		*!* 05.12.2013 ^
		
		
		*!*	modificare ROACONT v 2.0.110	^
		If Iif(Type('gnModificareIdSetSpe')='U',0,gnModificareIdSetSpe)=0 And ;
				(Between(tnIdSet,25000,25099) Or Inlist(tnIdSet,79,83,206,61,62,63,102,103,64,65,73,222,223,224,225,226,227,236,238,239,240) ;
				or Inlist(tnIdSet,252,255,258,259,260))
			Thisform.command4.Top = Thisform.command1.Top
			Thisform._shape2.Left = Thisform.but_renunT1.Left
			Thisform.command1.Visible = .F.
			Thisform.command2.Visible = .F.
			Thisform.RemoveObject('but_nou1')
			Thisform.RemoveObject('but_sterge1')
			*!*	modificare	19.09.2007
			*!*		Thisform.command3.Visible = .F.
			*!*		Thisform.cnomenclator.Visible = .F.
			*!*		Thisform.grid1.SetAll('Readonly',.T.,'Column')
			With Thisform.grid1
				.column4.ReadOnly = .T.
				.column6.ReadOnly = .T.
				.column10.ReadOnly = .T.
				.column5.ReadOnly = .T.
				.column37.ReadOnly = .T.
				.column9.ReadOnly = .T.
				.column15.ReadOnly = .T.
				.column34.ReadOnly = .T.
				.column20.ReadOnly = .T.
				.column29.ReadOnly = .T.
				.column21.ReadOnly = .T.
				.column22.ReadOnly = .T.
				.column32.ReadOnly = .T.
				.column12.ReadOnly = .T.
				.column25.ReadOnly = .T.
				.column30.ReadOnly = .T.
				.column31.ReadOnly = .T.
			Endwith
			*!*	modificare	19.09.2007	^
		Endif
		*!*	modificare	v 2.4.4
		If gnAn >= 2013
			Thisform.command5.Visible = .T.
			thisform.chkTVAEx.Visible = .T.
		Else
			Thisform.command5.Visible = .F.
			thisform.chkTVAEx.Visible = .F.	
		Endif
		*!*	modificare	v 2.4.4	^
		
		This.grid1.Anchor = 15
		This.but_renunt1.Anchor = 8
		
	ENDPROC

	PROCEDURE Load
		If !Used('saft_taxtable')
			update_saft_taxtable()
		ENDIF 	
		
		If !Used('saft_mecanisme_plati')
			update_saft_mecanisme_plati()
		ENDIF 	
	ENDPROC

	PROCEDURE salveazaxml
		*!*	*** salvez doar notele fara predefinire
		*!*	If This.nid_set = 99998 && NOTE FARA PREDEFINIRE
		*!*		SaveCursor2XML('tact', 'notafarapredefinire') && oproceduri_comune.prg
		*!*	ENDIF 
		*!*	If This.nid_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)	
		*!*		SaveCursor2XML('tact', 'notafarapredefinire2')
		*!*	ENDIF 
		
		
		*** salvez doar notele fara predefinire
		Local loBackupXml
		IF INLIST(This.nid_set, 99998, 99999)
			loBackupXml = This.oBackupXMl
			IF TYPE('loBackupXml') = 'O'
				IF USED('tact')
					loBackupXML.SaveBackupSet("tact")
				ENDIF 
			ENDIF 
		ENDIF 	 
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle, tlMaximize
		Local lnHeight
		
		Select tact
		This.grid1.SetFocus
		*!* 24.05.2011
		lnHeight = This.Height
		This.WindowState = 2
		IF !m.tlMaximize && la modificare nota nu maximizez formularul
			This.Height = lnHeight
		ENDIF 	
		this.gridextra1.setup()
		this.grid1.SetAll("dynamicbackcolor", "IIF(ALES, RGB(255,255,225), RGB(255,255,255))", "Column")
		This.CalculeazaTotal()
		*!* 24.05.2011 ^
		
		This.Grid1.HeaderHeight = 37
		
		This.grid1.column42.visible = m.gl406 && saft taxa
		This.grid1.column43.visible = m.gl406 && saft plata
	ENDPROC

	PROCEDURE updateexplicatiesaft
		* Daca nu este activata SAFT 406 nu fac nimic
		IF !m.gl406
			RETURN
		ENDIF
		 
		Local loPartenerRTVAI As "empty"
		Local loPartenerRTVAIX As "empty"
		Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, llNeexigibil
		LOCAL ARRAY laNesosit[1]
		
		lcSelect = SELECT()
		
		
		ldDataAct = tAct.dataact
		lnIdJtva = tAct.id_jtva_coloana
		llFurnizorRTVAI = .F.
		lnIdPart = Nvl(tAct.id_partc, tAct.id_partd)
		lnIdSet = Thisform.nid_set
		
		* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
		llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
		llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
		
		SELECT COUNT(*) as nr FROM tAct WHERE LEFT(scd,3) = '418' OR LEFT(scc,3) = '408' INTO ARRAY laNesosit
		llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
		
		lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil)
		Replace taxcode With m.lnTaxCode In tAct
		
		This.grid1.column42._combobox1.ForeColor = RGB(255,0,0)
		This.grid1.column42.Refresh()
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE valideaza_data
		Lparameters tcTipData
		&& tcTipdata: dataact, dataireg
		
		Local lcTipData, llReturn
		lcTipData = Lower(Alltrim(tcTipData))
		
		llReturn=.T.
		Do Case
			Case lcTipData = 'dataireg'
				If !(Month(dataireg) = gnLuna And Year(dataireg) = gnAn)
					amessagebox("Data inregistrarii trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
					llReturn=.F.
				Endif
			Case lcTipData = 'dataact'
				If !((Month(dataact)<= gnLuna And Year(dataact) = gnAn) Or Year(dataact)<gnAn)
					amessagebox("Data act trebuie sa fie inainte sau in luna "+Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
					llReturn=.F.
				ELSE 
					If Empty(Nvl(datascad, {}))
						Replace datascad With Gomonth(dataact,1)
					ENDIF
				ENDIF 	
		Endcase
		
		Return llReturn
		 
	ENDPROC

	PROCEDURE VerificaAvertizareExigibilizareTVA
		Local llKillSwitch, lcValOpt, lcSql, lcCursor, lnSucces, lnNrFacturi, lcMesaj, lnRasp
		Local lnRecno, lnCntSalvat, lnJ
		Local Array laAlesOrig(1,2)
		
		If !(Type('tact.id_factd') = 'N' And Type('tact.id_factc') = 'N' And Type('tact.id_fact') = 'N' And Type('tact.tipnota') = 'N' And Type('tact.ales') = 'L' And Type('tact.scd') = 'C' And Type('tact.scc') = 'C')
			Return .T.
		Endif
		
		If This.lAvertizatExigibilizare
			Return .T.
		Endif
		
		Try
			llKillSwitch = (Alltrim(Nvl(getini(gcGeneralIniFile, 'tva', 'avertizare_exigibilizare'), '')) == '0')
			If !llKillSwitch And 'OINIT_OPTIUNI' $ Upper(Set('Procedure'))
				lcValOpt = ''
				If Used('crsOptiuniUtilizator')
					lcValOpt = Alltrim(Nvl(citeste_optiune_utilizator('RC_TVA_AVERT_EXIGIB'), ''))
				Endif
				If Empty(lcValOpt) And Used('crsOptiuni')
					lcValOpt = Alltrim(Nvl(citeste_optiune('RC_TVA_AVERT_EXIGIB'), ''))
				Endif
				llKillSwitch = (lcValOpt == '0')
			Endif
			If llKillSwitch
				Return .T.
			Endif
		Catch
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la citirea optiunii, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Return .T.
		Endtry
		
		Try
			Select Distinct id_factd As id_fact From tact Where id_factd > 0 And Left(Nvl(scc,''),1) = '5' Into Cursor crsCandidDTVAEx Readwrite
			Select Distinct id_factc As id_fact From tact Where id_factc > 0 And Left(Nvl(scd,''),1) = '5' Into Cursor crsCandidCTVAEx Readwrite
			Select id_fact From crsCandidDTVAEx Union Select id_fact From crsCandidCTVAEx Into Cursor crsCandidTVAEx Readwrite
			Use In crsCandidDTVAEx
			Use In crsCandidCTVAEx
		Catch
			If Used('crsCandidDTVAEx')
				Use In crsCandidDTVAEx
			Endif
			If Used('crsCandidCTVAEx')
				Use In crsCandidCTVAEx
			Endif
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la colectarea facturilor din nota, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Return .T.
		Endtry
		
		If Reccount('crsCandidTVAEx') = 0
			Use In crsCandidTVAEx
			Return .T.
		Endif
		
		Try
			Select Distinct id_fact From tact Where tipnota = 1 And id_fact > 0 Into Cursor crsAcopTVAEx Readwrite
			Select crsCandidTVAEx.id_fact From crsCandidTVAEx Left Join crsAcopTVAEx On crsCandidTVAEx.id_fact = crsAcopTVAEx.id_fact Where Isnull(crsAcopTVAEx.id_fact) Into Cursor crsNeacopTVAEx Readwrite
			Use In crsCandidTVAEx
			Use In crsAcopTVAEx
		Catch
			If Used('crsCandidTVAEx')
				Use In crsCandidTVAEx
			Endif
			If Used('crsAcopTVAEx')
				Use In crsAcopTVAEx
			Endif
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la suprimarea platilor acoperite, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Return .T.
		Endtry
		
		If Reccount('crsNeacopTVAEx') = 0
			Use In crsNeacopTVAEx
			Return .T.
		Endif
		
		If Type('goExecutor') <> 'O' Or goExecutor.nHandle <= 0
			Use In crsNeacopTVAEx
			Return .T.
		Endif
		
		lcSql = ;
			[SELECT id_fact FROM VJC2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
			[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0] + ;
			[ UNION SELECT id_fact FROM VJV2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
			[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0]
		lcCursor = Sys(2015)
		lnSucces = 0
		Try
			lnSucces = goExecutor.oExecute(lcSql, lcCursor, .F., '', 0, .F., .F., .F.)
		Catch
			lnSucces = -1
		Endtry
		
		If lnSucces < 0
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: interogare esuata - ' + Nvl(goExecutor.cEroare,''), 'VerificaAvertizareExigibilizareTVA')
			Endif
			Use In crsNeacopTVAEx
			If Used(lcCursor)
				Use In (lcCursor)
			Endif
			Return .T.
		Endif
		
		Try
			Select crsNeacopTVAEx.id_fact From crsNeacopTVAEx Inner Join (lcCursor) tvaex On crsNeacopTVAEx.id_fact = tvaex.id_fact Into Cursor crsFinalTVAEx Readwrite
		Catch
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la intersectia locala, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Use In crsNeacopTVAEx
			If Used(lcCursor)
				Use In (lcCursor)
			Endif
			Return .T.
		Endtry
		
		Use In crsNeacopTVAEx
		If Used(lcCursor)
			Use In (lcCursor)
		Endif
		
		lnNrFacturi = Reccount('crsFinalTVAEx')
		If lnNrFacturi = 0
			Use In crsFinalTVAEx
			Return .T.
		Endif
		
		Index On id_fact Tag id_fact
		
		lcMesaj = 'Exista ' + Transform(lnNrFacturi) + ' facturi cu TVA la incasare pentru care nu s-a adaugat nota de TVA exigibilizat.' + Chr(13) + Chr(13) + ;
			'Da = adaugati acum notele de TVA exigibilizat si ramaneti in formular, ca sa le verificati.' + Chr(13) + ;
			'Nu = continuati salvarea fara sa adaugati notele.' + Chr(13) + ;
			'Anulare = renuntati, nu salvati.'
		lnRasp = Amessagebox(lcMesaj, 3+32, 'TVA la incasare - exigibilizare')
		This.lAvertizatExigibilizare = (lnRasp <> 2)
		
		If lnRasp = 6
			Select tact
			lnRecno = Recno()
			lnCntSalvat = 0
			Dimension laAlesOrig(Reccount('tact'), 2)
			Scan
				lnCntSalvat = lnCntSalvat + 1
				laAlesOrig(lnCntSalvat, 1) = Recno()
				laAlesOrig(lnCntSalvat, 2) = ales
				Replace ales With (id_factd > 0 And Left(Nvl(scc,''),1) = '5' And Seek(id_factd, 'crsFinalTVAEx')) Or (id_factc > 0 And Left(Nvl(scd,''),1) = '5' And Seek(id_factc, 'crsFinalTVAEx'))
			Endscan
			Thisform.do_adauga_tva_exigibil()
			Select tact
			For lnJ = 1 To lnCntSalvat
				Try
					Go laAlesOrig(lnJ, 1)
					Replace ales With laAlesOrig(lnJ, 2)
				Catch
				Endtry
			Endfor
			Try
				Go lnRecno
			Catch
				Go Top
			Endtry
		Endif
		
		Use In crsFinalTVAEx
		
		Return (lnRasp = 7)
	ENDPROC

	PROCEDURE cmdSelect.Click
		Local lnRecno
		Select tAct
		lnRecno = Recno()
		
		If This.Caption = 'Selecteaza tot'
			Replace All ales With .T.
			This.Caption = 'Deselecteaza tot'
		Else
			Replace All ales With .F.
			This.Caption = 'Selecteaza tot'
		Endif
		
		Select tAct
		Try
			Goto m.lnRecno
		Catch
			Go Top
		Endtry
	ENDPROC

	PROCEDURE cnomenclator.Click
		thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Command1.Click
		Thisform.alege_partener("D")
		*!*	PRIVATE pcCont
		*!*	LOCAL lnIdPartd, lnrezultat,lnsucces
		
		*!*	Select tact
		*!*	pcCont = ALLTRIM(Nvl(tact.scd,''))
		*!*	If Empty(pcCont)
		*!*		Return
		*!*	ENDIF
		*!*	lnIdPartd = id_partd
		
		*!*	lnrezultat=0
		*!*	lnsucces=0
		*!*	lcSql="select count(*) from config_cont_ireg where cont = &pcCont"
		*!*	lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
		
		*!*	If lnsucces=1
		*!*		If lnrezultat>0
		*!*			locauta = Thisform.do_cauta(pcCont)
		*!*			If gnButon = 1
		*!*				lnid_part=locauta.id_part
		*!*				lcnume=Alltrim(locauta.nume)
		*!*				Select tact
		*!*				Replace id_partd With lnid_part, partd With lcnume
		*!*				IF lnIdPartd <> lnid_part
		*!*					Select tact
		*!*					Replace pereched WITH 0, id_factd WITH 0
		*!*				ENDIF 
		*!*			Endif
		*!*		Else
		*!*			AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
		*!*		Endif
		*!*	Else
		*!*		AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
		*!*	Endif
		
		
	ENDPROC

	PROCEDURE Command2.Click
		Thisform.alege_partener("C")
		
		*!*	PRIVATE pcCont
		*!*	Local lnIdPartc, lnrezultat,lnsucces
		
		*!*	Select tact
		*!*	pcCont = ALLTRIM(Nvl(tact.scc, ''))
		*!*	If Empty(pcCont)
		*!*		Return
		*!*	Endif
		*!*	lnIdPartc = id_partc
		*!*	lnrezultat=0
		*!*	lnsucces=0
		*!*	lcSql="select count(*) from config_cont_ireg where cont = ?pcCont"
		*!*	lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
		*!*	If lnsucces=1
		*!*		If lnrezultat>0
		*!*			locauta = Thisform.do_cauta(pcCont)
		*!*			If gnButon = 1
		*!*				lnid_part=locauta.id_part
		*!*				lcnume=Alltrim(locauta.nume)
		*!*				Select tact
		*!*				Replace id_partc With lnid_part, partc With lcnume
		*!*				IF lnIdPartc <> lnid_part
		*!*					Select tact
		*!*					Replace perechec WITH 0, id_factc WITH 0
		*!*				ENDIF 
		*!*			Endif
		*!*		ELSE
		*!*			AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
		*!*		ENDIF
		*!*	ELSE
		*!*			AMESSAGEBOX(goExecutor.oPrelucrareEroare(), 0 + 16 ,"Eroare")
		*!*	Endif
		
		
	ENDPROC

	PROCEDURE Command3.Click
		PARAMETERS tnFel
		LOCAL lcSel, lnRecno
		
		IF PCOUNT()<1
			tnFel = thisform.fel_compensare
		ENDIF
		
		tnFel = 1 && PASIV / DEBIT 401 = 5121
		
		lcSel = thisform.grid1.RecordSource
		SELECT (lcSel)
		SCATTER NAME odoc
		lnRecno = RECNO()
		&& 0 = ACTIV
		&& 1 = PASIV
		*thisform.aleg_document_pereche(tnFel,odoc)
		DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
		SELECT (m.lcSel)
		TRY 
			GOTO m.lnRecno
		CATCH 
			GO TOP 
		ENDTRY 	
		thisform.grid1.SetFocus
		RELEASE odoc 
	ENDPROC

	PROCEDURE Command4.Click
		Thisform.do_modifica_explicatie_tva()
	ENDPROC

	PROCEDURE Command5.Click
		Thisform.do_adauga_tva_exigibil()
	ENDPROC

	PROCEDURE Command6.Click
		PARAMETERS tnFel
		LOCAL lcSel, lnRecno
		
		IF PCOUNT()<1
			tnFel = thisform.fel_compensare
		ENDIF
		
		tnFel = 0 && ACTIV / CREDIT 5121 = 4111
		
		lcSel = thisform.grid1.RecordSource
		SELECT (lcSel)
		SCATTER NAME odoc
		lnRecno = RECNO()
		&& 0 = ACTIV
		&& 1 = PASIV
		*thisform.aleg_document_pereche(tnFel,odoc)
		DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
		SELECT (m.lcSel)
		TRY 
			GOTO m.lnRecno
		CATCH 
			GO TOP 
		ENDTRY 	
		thisform.grid1.SetFocus
		RELEASE odoc 
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		*!* 10.08.2011
		*!* marius.mutu
		*!* id-urile sunt readonly - nu se pot completa direct
		
		*!* 18.04.2013
		*!*	dezactivez butonul de copiere pentru inregistrarile TVA incasare
		*!*	sa nu se copie ID_FACT din greseala
		
		*!* 20.12.2013
		*!* se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
		
		*!* 07.05.2021
		*!* am adaugat buton separat document platit/incasat
		
		Lparameters nColIndex
		
		*** se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
		llReadOnly = !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0) OR Type('thisform.oSet') = 'O')
		
		This.SetAll("ReadOnly", m.llReadOnly, "Column")
		*!* 10.08.2011
		*** nu vreau sa completeze id-urile direct
		WITH This 
			.Column30.ReadOnly = .T. && id_partd
			.Column31.ReadOnly = .T. && id_partc
			.Column38.ReadOnly = .T. && id_fact
			.Column39.ReadOnly = .T. && id_factd
			.Column40.ReadOnly = .T. && id_factc
			.Column35.ReadOnly = .T. && cod
			.Column25.ReadOnly = .T. && id_set
		ENDWITH 
		*!* 10.08.2011 ^
		*!* pot selecta inregistrari din alte sucursale pentru operatiile de copiere, adaugare care 
		This.cAles.ReadOnly = .F.
		IF m.llReadOnly
			Thisform.cnomenclator.Enabled = .F.
			Thisform.command1.Enabled = .F.
			Thisform.command2.Enabled = .F.
			Thisform.command3.Enabled = .F. && PERECHE D
			Thisform.command6.Enabled = .F. && PERECHE C
			Thisform.command4.Enabled = .F.
			Thisform.command5.Enabled = .F.		&&	modificare	ROACONT	v 2.4.4
			thisform.chkTVAEx.Enabled = .F.	
		ELSE 			
			If Thisform.pncolumnorder = nColIndex
				Thisform.cnomenclator.Enabled = .T.
			Else
				Thisform.cnomenclator.Enabled = .F.
			Endif
		
			If tact.cu_tva = 1
				Thisform.command4.Enabled = .T.
			Else
				Thisform.command4.Enabled = .F.
			Endif
		
			Thisform.command3.Caption = [Doc. platit cont ]+ Alltrim(NVL(tact.scd,'')) + ;
				IIF(!EMPTY(tact.pereched), ' (' + ALLTRIM(TRANSFORM(tact.pereched)) + ')', '')
			Thisform.command3.Enabled = !(EMPTY(tact.id_partd) OR EMPTY(tact.scd))
		
			Thisform.command6.Caption = [Doc. incasat cont ]+ Alltrim(NVL(tact.scc,'')) + ;
				IIF(!EMPTY(tact.perechec), ' (' + ALLTRIM(TRANSFORM(tact.perechec)) + ')', '')
			Thisform.command6.Enabled = !(EMPTY(tact.id_partc) OR EMPTY(tact.scc))
		
		*!*		If [pereche]$Lower(Thisform.pccontrol)
		*!*			Thisform.command3.Enabled = .T.
		*!*			If [pereched]$Lower(Thisform.pccontrol)
		*!*				Thisform.fel_compensare  = 1
		*!*				Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scd,''))
		*!*			Else
		*!*				Thisform.fel_compensare  = 0
		*!*				Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scc,''))
		*!*			Endif
		*!*		Else
		*!*			Thisform.command3.Enabled = .F.
		*!*			Thisform.command3.Caption = [Nr.Doc.Pereche]
		*!*		ENDIF
		
			*!*	modificare	ROACONT	v 2.4.4
			*** activez butonul TVA Incasare doar pentru incasari/plati sau pentru linia de TVA incasare
			if tact.scc = [4428] or tact.scd = [4428] or tact.id_factd > 0 or tact.id_factc > 0
				Thisform.command5.Enabled = .T.
				thisform.chkTVAEx.Enabled = .T.
			else
				Thisform.command5.Enabled = .F.	
				thisform.chkTVAEx.Enabled = .F.		
			endif
			*!*	modificare	ROACONT	v 2.4.4	^	
		
			*** dezactivez butonul de copiere pentru inregistrarile TVA incasare
			*** sa nu se copie ID_FACT din greseala
			if (tact.scd = [4428] and tact.scc = [4427] and !empty(nvl(perechec,0))) or (tact.scd = [4426] and tact.scd = [4428] and !empty(nvl(pereched,0)))
				Thisform.but_copiaza1.Enabled = .F.
			else
				Thisform.but_copiaza1.Enabled = .T.	
			endif
		
		
		ENDIF && llReadOnly	
	ENDPROC

	PROCEDURE Grid1.BeforeRowColChange
		LPARAMETERS nColIndex
		IF thisform.pncolumnorder # nColIndex
			STORE [] TO thisform.pccontrol 
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		LOCAL lnIdPart
		lnIdPart = Thisform.alege_partener("C")
		IF NVL(lnIdPart,0) = 0
			REPLACE partc WITH "", id_partc WITH 0 IN tAct
		ENDIF 
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.LostFocus
		If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			If Empty(Nvl(tact.partc,''))
				Thisform.alege_partener("C", .T.)
			Endif
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column13.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		
	ENDPROC

	PROCEDURE Grid1.Column13.Text1.InteractiveChange
		thisform.command3.Click(1)
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pnid_item = 15
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pnid_item = 13
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x14'
		thisform.pnid_item = 14
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.Valid
		Local llValid
		llValid = thisform.valideaza_data("dataireg")
		IF !llValid
			RETURN 0
		ENDIF 	 
	ENDPROC

	PROCEDURE Grid1.Column20.Text1.LostFocus
		SELECT tact
		IF !EMPTY(suma_val) OR !EMPTY(curs)
			REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column21.Text1.LostFocus
		SELECT tact
		IF !EMPTY(suma_val) OR !EMPTY(curs)
			REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column22.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pnid_item = 9
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column22.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.LostFocus
		Parameters PlClick
		Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
		Select tAct
		lcCont = Alltrim(scd)
		lcAcont = Alltrim(ascd)
		lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
		lnRecno = Recno('tAct')
		
		llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascd', 'tact') && in oOperatii_comune.prg
		
		If m.llReturn
			Select tAct
			lcAcont = Alltrim(tAct.ascd) && se poate modifica dupa ce verific_analitic()
			Locate For ales
			IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
				Replace All ascd With m.lcAcont For ales And Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
			ELSE 	
				If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
					Replace All ascd With m.lcAcont For Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
				ENDIF
			ENDIF 	
			Goto lnRecno
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.When
		Thisform.cAcont = tAct.ascd
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.LostFocus
		Parameters PlClick
		Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
		Select tAct
		lcCont = Alltrim(scc)
		lcAcont = Alltrim(ascc)
		lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
		lnRecno = Recno('tAct')
		
		llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascc', 'tact') && in oOperatii_comune.prg
		
		If m.llReturn
		
			Select tAct
			lcAcont = Alltrim(tAct.ascc) && se poate modifica dupa ce verific_analitic()
			Locate For ales
			IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
				Replace All ascc With m.lcAcont For ales And Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
			ELSE 	
				If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
					Replace All ascc With m.lcAcont For Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
				ENDIF
			ENDIF 	
			Goto lnRecno
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.When
		Thisform.cAcont = tAct.ascc
	ENDPROC

	PROCEDURE Grid1.Column27.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
	ENDPROC

	PROCEDURE Grid1.Column27.Text1.InteractiveChange
		thisform.command6.Click(0)
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x16'
		thisform.pnid_item = 16
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x11'
		thisform.pnid_item = 11
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x2'
		thisform.pnid_item = 2
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
		IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			IF EMPTY(NVL(tact.fdoc,''))
				locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x10'
		thisform.pnid_item = 10
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.GotFocus
		*!* 08.02.2007 sa nu se modifice sucursala - se seteaza automat in baza de date in oscrie_in_fisiere.prg
		
		*!*	SELECT x_item FROM xitems WHERE ALLTRIM(UPPER(label_item)) == 'SUCURSALA' INTO CURSOR crsItem
		*!*	SELECT crsItem
		*!*	IF RECCOUNT() = 0 OR EMPTY(x_item)
		*!*		thisform.pcx_item = 'x29' && XITEM DIN CONTABILITATE
		*!*	ELSE
		*!*		thisform.pcx_item = x_item && 'x32' IN XITEM DIN GESTIUNI
		*!*	ENDIF 
		*!*	USE IN crsItem
		
		*!*	thisform.pccontrol = ALLTRIM(this.ControlSource)
		*!*	thisform.pncolumnorder = this.Parent.ColumnOrder 
		
		*!* 08.02.2007 ^
		*!* 24.05.2011
		*!* marius.mutu
		*!* in pack_contafin.scrie_in_act nu se mai suprascrie id_sucursala completat
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x31'
		thisform.pnid_item = 68
		thisform.pncolumnorder = this.Parent.ColumnOrder 
		*!* 24.05.2011 ^
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.InteractiveChange
		*!* 24.05.2011
		*!* marius.mutu
		*!* se poate modifica sucursala doar daca sunt in mama
		*!* altfel nu se refac corect balantele, inregistrarile
		IF m.glEMama
			locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
		ENDIF 	
		*!* 24.05.2011 ^
		
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.When
		*!* 24.05.2011
		*!* marius.mutu
		*!* se poate modifica sucursala doar daca sunt in mama
		*!* altfel nu se refac corect balantele, inregistrarile
		RETURN m.glEMama
		*!* 24.05.2011 ^
	ENDPROC

	PROCEDURE Grid1.Column34.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x70'
		thisform.pnid_item = 70
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column34.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column35.Text1.InteractiveChange
		Thisform.do_modifica_explicatie_tva()
	ENDPROC

	PROCEDURE Grid1.Column36._CHECKBOX1.Click
		If tact.cu_tva = 1
			Thisform.command4.Enabled = .T.
		Else
			Thisform.command4.Enabled = .F.
			Replace id_jtva_coloana With NULL, explicatie_Tva With '', proc_tva With 0, taxcode WITH NULL IN tact
		ENDIF
		
	ENDPROC

	PROCEDURE Grid1.Column36._CHECKBOX1.KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode=13
			Nodefault
			This.Parent.Parent.column26.SetFocus()
		
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.Valid
		Local llValid
		llValid = thisform.valideaza_data("dataact")
		IF !llValid
			RETURN 0
		ENDIF 	 
	ENDPROC

	PROCEDURE Grid1.Column42._combobox1.Valid
		Local lnTaxCodeNou, lnTaxCodeOriginal, lnRecno
		
		Select tact
		lnRecno = Recno()
		
		lnTaxCodeOriginal = thisform.nTaxCode
		lnTaxCodeNou = tAct.taxcode
		
		If NVL(m.lnTaxCodeNou,0) <> NVL(m.lnTaxCodeOriginal,0)
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de taxa "' + TRANSFORM(m.lnTaxCodeOriginal) + '" in toate inregistrarile selectate cu codul "' + TRANSFORM(m.lnTaxCodeNou) + '"?' ,4+32,_Screen.Caption) = 6	       
				Select tact
				Replace taxcode With m.lnTaxCodeNou For NVL(taxcode,0) = NVL(m.lnTaxCodeOriginal,0) And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN .T.
	ENDPROC

	PROCEDURE Grid1.Column42._combobox1.When
		Thisform.nTaxCode = tAct.taxcode
	ENDPROC

	PROCEDURE Grid1.Column43._combobox1.LostFocus
		This.ForeColor = RGB(0,0,0)
		
		
	ENDPROC

	PROCEDURE Grid1.Column43._combobox1.Valid
		Local lcPaymentCodeNou, lcPaymentCodeOriginal, lnRecno
		
		Select tact
		lnRecno = Recno()
		
		lcPaymentCodeOriginal = thisform.cPaymentCode
		lcPaymentCodeNou = ALLTRIM(tAct.paymentcode)
		
		If NVL(m.lcPaymentCodeNou, '') <> NVL(m.lcPaymentCodeOriginal, '')
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de plata "' + m.lcPaymentCodeOriginal + '" in toate inregistrarile selectate cu codul "' + m.lcPaymentCodeNou + '"?' ,4+32,_Screen.Caption) = 6	       
				Select tact
				Replace paymentcode With m.lcPaymentCodeNou For Alltrim(NVL(paymentcode,'')) = ALLTRIM(NVL(m.lcPaymentCodeOriginal, '')) And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN .T.
	ENDPROC

	PROCEDURE Grid1.Column43._combobox1.When
		thisform.cPaymentCode = ALLTRIM(tAct.paymentcode)
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		LOCAL lnIdPart
		lnIdPart = Thisform.alege_partener("D")
		IF NVL(lnIdPart,0) = 0
			REPLACE partd WITH "", id_partd WITH 0 IN tAct
		ENDIF 
		
		REMOVEPROPERTY(this, 'lInteractiveChange')
		
		
		
		
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.LostFocus
		If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			If Empty(Nvl(tact.partd,''))
				Thisform.alege_partener("D", .T.)
			Endif
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.LostFocus
		Local lcContNou, lcContOriginal, llReturn, lnRecno
		lcContOriginal = Thisform.cCont
		lcContNou = Alltrim(scd)
		If Empty(m.lcContNou)
			Return
		Endif
		llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
		IF !m.llReturn
			RETURN m.llReturn
		ENDIF 
		Select tact
		lnRecno = Recno()
		lcContNou = Alltrim(scd) && se poate modifica dupa verificarea in planul de conturi
		If m.lcContNou <> m.lcContOriginal
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6	       
				Select tact
				Replace scd With m.lcContNou For Alltrim(scd) = m.lcContOriginal And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN m.llReturn
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.When
		Thisform.cCont = ALLTRIM(tact.scd)
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.LostFocus
		Local lcContNou, lcContOriginal, llReturn, lnRecno
		lcContOriginal = Thisform.cCont
		lcContNou = Alltrim(scc)
		If Empty(m.lcContNou)
			Return
		Endif
		llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
		IF !m.llReturn
			RETURN m.llReturn
		ENDIF 
		Select tact
		lnRecno = Recno()
		lcContNou = Alltrim(scc) && se poate modifica dupa verificarea in planul de conturi
		If m.lcContNou <> m.lcContOriginal
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6
				Select tact
				Replace scc With m.lcContNou For Alltrim(scc) = m.lcContOriginal And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN m.llReturn
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.When
		Thisform.cCont = ALLTRIM(tact.scc)
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.Valid
		IF this.Value <> thisform.nOldSuma
			Thisform.CalculeazaTotal()
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.When
		Thisform.nOldSuma = this.Value 
	ENDPROC

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

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

ENDDEFINE

DEFINE CLASS frm_modific2024 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="pgfArticole" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1._grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNnir.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNnir.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAcont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAcont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGest.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGest.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProcent.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProcent.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoareftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoareftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataora.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataora.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDatain.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDatain.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNresp.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNresp.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGestC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGestC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSubgrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSubgrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtils.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtils.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataoras.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataoras.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNume_val.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNume_val.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmatF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmatF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cLot.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cLot.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataExpirare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataExpirare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPart_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoaretva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoaretva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoarevftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoarevftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_disc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_disc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.cvaloarevcTVA" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTaxCode.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTaxCode.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cExplicatieTVA._combobox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2._grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNnir.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNnir.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAcont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAcont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGest.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProcent.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProcent.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataora.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataora.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDatain.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDatain.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNresp.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGestC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtils.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtils.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cLot.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cLot.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.cvaloarevcTVA" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Header9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column29.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column29.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column30.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column32.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column32.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column36.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column36._CHECKBOX1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column38.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column38.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column39.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column39.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column40.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column40.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cAles._CHECKBOX1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column42.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column42.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column42._combobox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column43._combobox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cnomenclator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modificaR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkTVAEx" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtSuma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblSuma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkCtAnalitic" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdSelect" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_stergeR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="but_afiseaza_rulaje" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_copiazaR" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afiseaza_rulaje
		*m: alege_partener
		*m: aleg_document_pereche
		*m: calculeazatotal
		*m: calculeaza_valori_rul
		*m: ccontrol_assign
		*m: creeaza_note_tva_incasare
		*m: do_adauga_rul
		*m: do_adauga_tva_exigibil
		*m: do_copie_rul
		*m: do_import
		*m: do_modifica_explicatie_tva
		*m: do_sterge_rul
		*m: grid_focus_prima_coloana
		*m: resize_grid1
		*m: salveazaxml
		*m: updateexplicatiesaft
		*m: updateexplicatiesaftrul
		*m: valideaza_data
		*m: verificaavertizareexigibilizaretva
		*p: cacont
		*p: ccont
		*p: ccontrol
		*p: cpaymentcode
		*p: fel_compensare
		*p: lavertizatexigibilizare
		*p: leditare
		*p: lmodificare
		*p: lnotanoua
		*p: lverificare
		*p: lvizualizare
		*p: nid_set
		*p: noldsuma		&& Valoarea la intrarea in campul "Suma"
		*p: nprimadata
		*p: nsuma		&& Total suma inregistrari
		*p: ntaxcode
		*p: obackupxml
		*p: oldvalue
		*p: oset
		*p: ouset
		*p: pccontrol
		*p: pcx_item
		*p: pncolumnorder
		*p: pnid_item
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackColor = 192,192,192
		BorderStyle = 3
		cacont = 
		ccont = 
		cpaymentcode = 
		DoCreate = .T.
		FontCharSet = 238
		Height = 508
		lavertizatexigibilizare = .F.
		leditare = .F.
		lmodificare = .F.
		lnotanoua = .F.
		lverificare = .F.
		lvizualizare = .F.
		Name = "frm_modific2024"
		nid_set = 0
		noldsuma = 0
		nprimadata = 0
		nsuma = 0
		ntaxcode = 0
		obackupxml = NULL
		oldvalue = 
		oset = NULL
		ouset = NULL
		pccontrol = []
		pcx_item = 0
		pncolumnorder = 0
		pnid_item = 0
		Width = 816
		WindowType = 1
		_memberdata = <VFPData>
			<memberdata name="calculeazatotal" display="CalculeazaTotal"/>
			<memberdata name="nsuma" display="nSuma"/>
			<memberdata name="noldsuma" display="nOldSuma"/>
			<memberdata name="cacont" display="cAcont"/>
			<memberdata name="ccont" display="cCont"/>
			<memberdata name="updateexplicatiesaft" display="UpdateExplicatieSAFT"/>
			<memberdata name="cpaymentcode" display="cPaymentCode"/>
			<memberdata name="ntaxcode" display="nTaxCode"/>
			<memberdata name="oldvalue" display="oldValue"/>
			<memberdata name="updateexplicatiesaftrul" display="UpdateExplicatieSAFTRul"/>
			<memberdata name="nprimadata" display="nPrimaData"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 31
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 820
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 8
		_shape2.Height = 31
		_shape2.Left = 636
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 164
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "MODIFICARE"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 18
		Lb_titlu_alb_b121.Top = 2
		Lb_titlu_alb_b121.ZOrderSet = 5
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 784
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 11
		BUT_TERMIN1.Top = 2
		BUT_TERMIN1.ZOrderSet = 6
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'but_afiseaza_rulaje' AS but_jos WITH ;
		Anchor = 12, ;
		caction = afiseaza_rulaje, ;
		Left = 773, ;
		Name = "but_afiseaza_rulaje", ;
		Top = 471
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
		Anchor = 8, ;
		caction = do_copie, ;
		Left = 665, ;
		Name = "But_copiaza1", ;
		TabIndex = 15, ;
		ToolTipText = "Copiere - Se copiaza toate campurile din inregistrarea curenta sau inregistrarile alese ", ;
		Top = 2, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_copiazaR' AS but_copiaza WITH ;
		Anchor = 12, ;
		caction = do_copie_rul, ;
		Left = 773, ;
		Name = "But_copiazaR", ;
		TabIndex = 15, ;
		ToolTipText = "Copiere - Se copiaza toate campurile din inregistrarea curenta", ;
		Top = 368, ;
		ZOrderSet = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modificaR' AS but_modifica WITH ;
		Anchor = 12, ;
		Left = 773, ;
		Name = "But_modificaR", ;
		Top = 396, ;
		Visible = .T., ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
		Anchor = 8, ;
		caction = do_import, ;
		Left = 605, ;
		Name = "But_modiparam1", ;
		TabIndex = 17, ;
		ToolTipText = "Import din fisier MT940, xls...", ;
		Top = 2, ;
		Visible = .F., ;
		ZOrderSet = 25
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_nou1' AS but_nou WITH ;
		Anchor = 8, ;
		Left = 636, ;
		Name = "But_nou1", ;
		TabIndex = 16, ;
		ToolTipText = "Adaugare (CTRL+N) Se copiaza inregistrarea curenta sau inregistrarile alese, fara campurile: cont, partener, document pereche,  suma lei, suma valuta", ;
		Top = 2, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 8, ;
		Left = 754, ;
		Name = "But_renunt1", ;
		TabIndex = 12, ;
		Top = 2, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
		Anchor = 8, ;
		Left = 724, ;
		Name = "But_salveaza1", ;
		TabIndex = 13, ;
		ToolTipText = "Salvare set note contabile", ;
		Top = 2, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Anchor = 8, ;
		Left = 694, ;
		Name = "But_sterge1", ;
		TabIndex = 14, ;
		Top = 2, ;
		Visible = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_stergeR' AS but_sterge WITH ;
		Anchor = 12, ;
		caction = do_sterge_rul, ;
		Left = 773, ;
		Name = "But_stergeR", ;
		TabIndex = 14, ;
		Top = 424, ;
		Visible = .T., ;
		ZOrderSet = 29
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'chkCtAnalitic' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Copiez ct. analitic", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		Left = 689, ;
		Name = "chkCtAnalitic", ;
		TabIndex = 10, ;
		ToolTipText = "Se completeaza contul analitic in toate inregistrarile pentru contul sintetic curent", ;
		Top = 332, ;
		Width = 120, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkTVAEx' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Suma TVA exigibil", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		Left = 689, ;
		Name = "chkTVAEx", ;
		TabIndex = 9, ;
		ToolTipText = "Calculeaza suma TVA exigibil la adaugare note TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
		Top = 271, ;
		Value = 1, ;
		Width = 123, ;
		ZOrderSet = 22
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'cmdSelect' AS commandbutton WITH ;
		Anchor = 2, ;
		AutoSize = .F., ;
		Caption = "Selecteaza tot", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		FontUnderline = .T., ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 4, ;
		Name = "cmdSelect", ;
		TabIndex = 4, ;
		Top = 328, ;
		Width = 114, ;
		ZOrderSet = 28
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'cnomenclator' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Nomenclator", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "cnomenclator", ;
		TabIndex = 4, ;
		Top = 105, ;
		Width = 114, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Partener Debit", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command1", ;
		TabIndex = 2, ;
		ToolTipText = "Alege partenerul cont debit", ;
		Top = 46, ;
		Width = 114, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Partener Credit", ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command2", ;
		TabIndex = 3, ;
		ToolTipText = "Alege partenerul cont credit", ;
		Top = 75, ;
		Width = 114, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Doc. platit", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command3", ;
		TabIndex = 5, ;
		ToolTipText = "Alege document platit (cont debitor). Este activ daca este completat contul si partenerul debit.", ;
		Top = 135, ;
		Width = 114, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command4' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Explicatie TVA", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command4", ;
		TabIndex = 7, ;
		Top = 196, ;
		Width = 114, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command5' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Adauga TVA exigibilizat", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 36, ;
		Left = 688, ;
		Name = "Command5", ;
		TabIndex = 8, ;
		ToolTipText = "Adauga nota TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
		Top = 288, ;
		Width = 114, ;
		WordWrap = .T., ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command6' AS commandbutton WITH ;
		Anchor = 8, ;
		AutoSize = .F., ;
		Caption = "Doc. incasat", ;
		Enabled = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,64, ;
		Height = 30, ;
		Left = 688, ;
		Name = "Command6", ;
		TabIndex = 6, ;
		ToolTipText = "Alege document incasat (cont creditor). Este activ daca este completat contul si partenerul credit.", ;
		Top = 166, ;
		Width = 114, ;
		WordWrap = .T., ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		Anchor = 10, ;
		BackColor = 244,250,255, ;
		ColumnCount = 43, ;
		DeleteMark = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		GridLineColor = 128,128,128, ;
		HeaderHeight = 37, ;
		Height = 284, ;
		HighlightBackColor = 0,64,128, ;
		HighlightStyle = 2, ;
		Left = 5, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "tACT", ;
		RowHeight = 19, ;
		SelectedItemBackColor = 49,106,197, ;
		TabIndex = 1, ;
		Top = 45, ;
		Width = 680, ;
		ZOrderSet = 4, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 244,250,255, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "NRCRT()", ;
		Column1.FontCharSet = 238, ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .F., ;
		Column1.Width = 29, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 244,250,255, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "dataireg", ;
		Column2.FontCharSet = 238, ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 71, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 244,250,255, ;
		Column3.ColumnOrder = 15, ;
		Column3.ControlSource = "fdoc", ;
		Column3.FontCharSet = 238, ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 88, ;
		Column4.Alignment = 0, ;
		Column4.BackColor = 244,250,255, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "dataact", ;
		Column4.FontCharSet = 238, ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Width = 51, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 244,250,255, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "nract", ;
		Column5.FontCharSet = 238, ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 53, ;
		Column6.Alignment = 0, ;
		Column6.BackColor = 244,250,255, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "partd", ;
		Column6.FontCharSet = 238, ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Width = 114, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 244,250,255, ;
		Column7.ColumnOrder = 10, ;
		Column7.ControlSource = "scd", ;
		Column7.FontCharSet = 238, ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 57, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 244,250,255, ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "scc", ;
		Column8.FontCharSet = 238, ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 62, ;
		Column9.Alignment = 1, ;
		Column9.BackColor = 244,250,255, ;
		Column9.ColumnOrder = 14, ;
		Column9.ControlSource = "suma", ;
		Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column9.FontCharSet = 238, ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Format = "r", ;
		Column9.InputMask = (get_mask(12,gnPa)), ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 93, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 244,250,255, ;
		Column10.ColumnOrder = 8, ;
		Column10.ControlSource = "partc", ;
		Column10.FontCharSet = 238, ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 100, ;
		Column11.Alignment = 0, ;
		Column11.BackColor = 244,250,255, ;
		Column11.ColumnOrder = 9, ;
		Column11.ControlSource = "explicatia", ;
		Column11.FontCharSet = 238, ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .F., ;
		Column11.Width = 77, ;
		Column12.BackColor = 244,250,255, ;
		Column12.ColumnOrder = 37, ;
		Column12.ControlSource = "cod", ;
		Column12.FontCharSet = 238, ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 52, ;
		Column13.BackColor = 244,250,255, ;
		Column13.ColumnOrder = 16, ;
		Column13.ControlSource = "pereched", ;
		Column13.FontCharSet = 238, ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .F., ;
		Column13.Width = 106, ;
		Column14.BackColor = 244,250,255, ;
		Column14.ColumnOrder = 31, ;
		Column14.ControlSource = "explicatia4", ;
		Column14.FontCharSet = 238, ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .F., ;
		Column14.Width = 120, ;
		Column15.BackColor = 244,250,255, ;
		Column15.ColumnOrder = 24, ;
		Column15.ControlSource = "nrord", ;
		Column15.FontCharSet = 238, ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .F., ;
		Column16.BackColor = 244,250,255, ;
		Column16.ColumnOrder = 26, ;
		Column16.ControlSource = "nresp", ;
		Column16.FontCharSet = 238, ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.Format = "", ;
		Column16.InputMask = "", ;
		Column16.Name = "Column16", ;
		Column16.ReadOnly = .F., ;
		Column17.BackColor = 244,250,255, ;
		Column17.ColumnOrder = 27, ;
		Column17.ControlSource = "dst_chlt", ;
		Column17.FontCharSet = 238, ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.Format = "", ;
		Column17.InputMask = "", ;
		Column17.Name = "Column17", ;
		Column17.ReadOnly = .F., ;
		Column18.BackColor = 244,250,255, ;
		Column18.ColumnOrder = 32, ;
		Column18.ControlSource = "explicatia5", ;
		Column18.FontCharSet = 238, ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.Name = "Column18", ;
		Column18.ReadOnly = .F., ;
		Column18.Width = 119, ;
		Column19.BackColor = 244,250,255, ;
		Column19.ColumnOrder = 23, ;
		Column19.ControlSource = "datascad", ;
		Column19.FontCharSet = 238, ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Name = "Column19", ;
		Column19.ReadOnly = .F., ;
		Column19.Visible = .T., ;
		Column19.Width = 87, ;
		Column20.BackColor = 244,250,255, ;
		Column20.ColumnOrder = 28, ;
		Column20.ControlSource = "suma_val", ;
		Column20.FontCharSet = 238, ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.InputMask = (get_mask(12,gnPa)), ;
		Column20.Name = "Column20", ;
		Column20.ReadOnly = .F., ;
		Column20.Width = 89, ;
		Column21.BackColor = 244,250,255, ;
		Column21.ColumnOrder = 30, ;
		Column21.ControlSource = "curs", ;
		Column21.FontCharSet = 238, ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.InputMask = (get_mask(12,gnPcurs)), ;
		Column21.Name = "Column21", ;
		Column21.ReadOnly = .F., ;
		Column21.Width = 72, ;
		Column22.BackColor = 244,250,255, ;
		Column22.ColumnOrder = 33, ;
		Column22.ControlSource = "gestin", ;
		Column22.FontCharSet = 238, ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Name = "Column22", ;
		Column22.ReadOnly = .F., ;
		Column22.Width = 116, ;
		Column23.BackColor = 244,250,255, ;
		Column23.ColumnOrder = 11, ;
		Column23.ControlSource = "ascd", ;
		Column23.FontCharSet = 238, ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Name = "Column23", ;
		Column23.ReadOnly = .F., ;
		Column23.Width = 46, ;
		Column24.BackColor = 244,250,255, ;
		Column24.ColumnOrder = 13, ;
		Column24.ControlSource = "ascc", ;
		Column24.FontCharSet = 238, ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.Name = "Column24", ;
		Column24.ReadOnly = .F., ;
		Column24.Width = 48, ;
		Column25.BackColor = 244,250,255, ;
		Column25.ColumnOrder = 38, ;
		Column25.ControlSource = "id_set", ;
		Column25.FontCharSet = 238, ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "Column25", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 71, ;
		Column26.BackColor = 244,250,255, ;
		Column26.ColumnOrder = 19, ;
		Column26.ControlSource = "proc_tva", ;
		Column26.FontCharSet = 238, ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.Name = "Column26", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 54, ;
		Column27.BackColor = 244,250,255, ;
		Column27.ColumnOrder = 17, ;
		Column27.ControlSource = "perechec", ;
		Column27.FontCharSet = 238, ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.Name = "Column27", ;
		Column27.ReadOnly = .F., ;
		Column27.Width = 104, ;
		Column28.BackColor = 244,250,255, ;
		Column28.ColumnOrder = 35, ;
		Column28.ControlSource = "sectie", ;
		Column28.FontCharSet = 238, ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Name = "Column28", ;
		Column28.ReadOnly = .F., ;
		Column28.Width = 88, ;
		Column29.BackColor = 244,250,255, ;
		Column29.ColumnOrder = 29, ;
		Column29.ControlSource = "nume_val", ;
		Column29.FontCharSet = 238, ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.Name = "Column29", ;
		Column29.ReadOnly = .F., ;
		Column29.Width = 79, ;
		Column30.BackColor = 244,250,255, ;
		Column30.ColumnOrder = 39, ;
		Column30.ControlSource = "id_partd", ;
		Column30.FontCharSet = 238, ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.Name = "Column30", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 55, ;
		Column31.BackColor = 244,250,255, ;
		Column31.ColumnOrder = 40, ;
		Column31.ControlSource = "id_partc", ;
		Column31.FontCharSet = 238, ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.Name = "Column31", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 55, ;
		Column32.BackColor = 244,250,255, ;
		Column32.ColumnOrder = 34, ;
		Column32.ControlSource = "gestout", ;
		Column32.FontCharSet = 238, ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.Name = "Column32", ;
		Column32.ReadOnly = .F., ;
		Column32.Width = 92, ;
		Column33.BackColor = 244,250,255, ;
		Column33.ColumnOrder = 36, ;
		Column33.ControlSource = "sucursala", ;
		Column33.FontCharSet = 238, ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.Name = "Column33", ;
		Column33.ReadOnly = .F., ;
		Column33.Width = 121, ;
		Column34.BackColor = 244,250,255, ;
		Column34.ColumnOrder = 25, ;
		Column34.ControlSource = "contract", ;
		Column34.FontCharSet = 238, ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 65, ;
		Column35.BackColor = 244,250,255, ;
		Column35.ColumnOrder = 20, ;
		Column35.ControlSource = "explicatie_tva", ;
		Column35.FontCharSet = 238, ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .F., ;
		Column35.Width = 136, ;
		Column36.BackColor = 244,250,255, ;
		Column36.ColumnOrder = 18, ;
		Column36.ControlSource = "cu_tva", ;
		Column36.FontCharSet = 238, ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.Name = "Column36", ;
		Column36.ReadOnly = .F., ;
		Column36.Sparse = .F., ;
		Column36.Width = 51, ;
		Column37.BackColor = 244,250,255, ;
		Column37.ColumnOrder = 5, ;
		Column37.ControlSource = "serie_act", ;
		Column37.FontCharSet = 238, ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.Format = "!", ;
		Column37.Name = "Column37", ;
		Column37.ReadOnly = .F., ;
		Column37.Width = 58, ;
		Column38.BackColor = 244,250,255, ;
		Column38.ColumnOrder = 41, ;
		Column38.ControlSource = "id_fact", ;
		Column38.FontCharSet = 238, ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.Name = "Column38", ;
		Column38.ReadOnly = .T., ;
		Column38.Width = 94, ;
		Column39.BackColor = 244,250,255, ;
		Column39.ColumnOrder = 42, ;
		Column39.ControlSource = "id_factd", ;
		Column39.FontCharSet = 238, ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.Name = "Column39", ;
		Column39.ReadOnly = .T., ;
		Column39.Width = 75, ;
		Column40.BackColor = 244,250,255, ;
		Column40.ColumnOrder = 43, ;
		Column40.ControlSource = "id_factc", ;
		Column40.FontCharSet = 238, ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "Column40", ;
		Column40.ReadOnly = .T., ;
		Column41.BackColor = 244,250,255, ;
		Column41.ColumnOrder = 2, ;
		Column41.ControlSource = "tAct.ales", ;
		Column41.CurrentControl = "_CHECKBOX1", ;
		Column41.FontCharSet = 238, ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cAles", ;
		Column41.ReadOnly = .F., ;
		Column41.Sparse = .F., ;
		Column41.Width = 22, ;
		Column42.BackColor = 244,250,255, ;
		Column42.Bound = .F., ;
		Column42.ColumnOrder = 21, ;
		Column42.ControlSource = "Iif(Seek(tAct.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ;
		Column42.CurrentControl = "_combobox1", ;
		Column42.FontCharSet = 238, ;
		Column42.FontSize = 10, ;
		Column42.Name = "Column42", ;
		Column42.ReadOnly = .F., ;
		Column42.Sparse = .F., ;
		Column42.Width = 184, ;
		Column43.BackColor = 244,250,255, ;
		Column43.Bound = .F., ;
		Column43.ColumnOrder = 22, ;
		Column43.ControlSource = "Iif(Seek(tAct.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ;
		Column43.CurrentControl = "_combobox1", ;
		Column43.FontCharSet = 238, ;
		Column43.FontSize = 10, ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .F., ;
		Column43.Sparse = .F., ;
		Column43.Width = 146
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.cAles._CHECKBOX1' AS _checkbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		Caption = "", ;
		ControlSource = "tAct.ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 9, ;
		Name = "_CHECKBOX1", ;
		ReadOnly = .F., ;
		Top = 79
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Grid1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ControlSource = "tAct.ales", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "NrCrt", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie C", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Expl.3", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "COD", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc. platit (debit)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia 4", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrarea", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cheltuiala", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia 5", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Inreg.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header2"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma in valuta", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune destinatie", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnalitD", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "AnalitC", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip operatie", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc. incasat (credit)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectia", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume Valuta", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel Doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Part D", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Part C", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune sursa", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Contract", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column35.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column36._CHECKBOX1' AS _checkbox WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		Caption = "", ;
		Centered = .T., ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 19, ;
		Name = "_CHECKBOX1", ;
		Top = 31
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Grid1.Column36.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cu TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column37.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column37.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column38.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id factura", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column38.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column39.Header1' AS header WITH ;
		Caption = "Id Factura D", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column39.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header4"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column40.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Factura C", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column40.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column42._combobox1' AS _combobox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		BoundColumn = 4, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "450,150,40", ;
		ControlSource = "tAct.taxcode", ;
		Left = 32, ;
		Name = "_combobox1", ;
		RowSource = "select taxname, tip, CAST(procent_taxa as N(6,2) null) as procent_taxa, taxcode from saft_taxtable order by tva, tva_livrari, tva_achizitii, wht, taxcode into cursor crsTaxTableX", ;
		RowSourceType = 3, ;
		Top = 55
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

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

	ADD OBJECT 'Grid1.Column42.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column43._combobox1' AS _combobox WITH ;
		BorderStyle = 0, ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,150", ;
		ControlSource = "tAct.paymentcode", ;
		Left = 93, ;
		Name = "_combobox1", ;
		ReadOnly = .F., ;
		RowSource = "select paymentname, methodname, mechanismcode from saft_mecanisme_plati where afisat = 1 order by ordine into cursor crsPaymentX", ;
		RowSourceType = 3, ;
		Top = 67
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Grid1.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Plata SAFT", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column43.Text1' AS textbox WITH ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.Doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header5"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie D", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header6"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 244,250,255, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Deb.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header7"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Cred.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header8"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header9"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 244,250,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 49,106,197
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		Height = 17, ;
		Left = 570, ;
		Name = "Gridextra1", ;
		Top = 11, ;
		Width = 24
		*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renunþare; CTRL+N = Adãugare; CTRL+D = ªtergere", ;
		Left = 5, ;
		Name = "Lb_shortcuts1", ;
		TabIndex = 19, ;
		Top = 17, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'lblSuma' AS _label WITH ;
		Anchor = 8, ;
		Caption = "Total", ;
		FontBold = .T., ;
		Left = 511, ;
		Name = "lblSuma", ;
		TabIndex = 21, ;
		Top = 334, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT 'pgfArticole' AS _pageframe WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 142, ;
		Left = 5, ;
		Name = "pgfArticole", ;
		Top = 361, ;
		Width = 764, ;
		ZOrderSet = 0, ;
		PAGE1.Caption = "Rulaje materii prime, materiale, marfuri, obiecte inventar (303)", ;
		PAGE1.ForeColor = 0,64,128, ;
		PAGE1.Name = "PAGE1", ;
		PAGE2.Caption = "Rulaje obiecte inventar in folosinta (8039)", ;
		PAGE2.ForeColor = 0,128,64, ;
		PAGE2.Name = "PAGE2"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT 'pgfArticole.PAGE1._grdfooter1' AS _grdfooter WITH ;
		ccolwithlabel = cNrCrt, ;
		csourcegrid = , ;
		csumcolumns = cValoareftva, cValoaretva, cValoarectva, cValoarevftva, cValoarevtva, cValoarevctva, cValoare_adaosftva, cvaloare_adaostva, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 35, ;
		Left = 0, ;
		Name = "_grdfooter1", ;
		Top = 75, ;
		Width = 759, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 63, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		GridLineColor = 128,128,128, ;
		HeaderHeight = 35, ;
		Height = 72, ;
		Left = 0, ;
		Name = "grdRulaje", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "trul", ;
		RowHeight = 19, ;
		TabIndex = 3, ;
		Tag = "RESIZABLE", ;
		Top = 0, ;
		Width = 759, ;
		ZOrderSet = 1, ;
		Column1.ControlSource = "nrcrt()", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Format = "R", ;
		Column1.InputMask = "999 999", ;
		Column1.Name = "cNrCrt", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 44, ;
		Column2.ControlSource = "trul.nnir", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cNnir", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 71, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "dataact", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cDataact", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 67, ;
		Column4.BackColor = 225,225,225, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "codmat", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cCodmat", ;
		Column4.ReadOnly = .T., ;
		Column5.BackColor = 160,255,205, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "denumire", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cDenumire", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 156, ;
		Column6.BackColor = 225,225,225, ;
		Column6.ColumnOrder = 9, ;
		Column6.ControlSource = "um", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.Name = "cUM", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 39, ;
		Column7.ColumnOrder = 19, ;
		Column7.ControlSource = "pret", ;
		Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPPRET)), ;
		Column7.Name = "cPret", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 70, ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "cant", ;
		Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPCANT)), ;
		Column8.Name = "cCant", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 68, ;
		Column9.ColumnOrder = 13, ;
		Column9.ControlSource = "cante", ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Format = "R", ;
		Column9.InputMask = (get_mask(12,gnPCANT)), ;
		Column9.Name = "cCante", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 68, ;
		Column10.ColumnOrder = 14, ;
		Column10.ControlSource = "cont", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Name = "cCont", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 46, ;
		Column11.BackColor = 225,225,225, ;
		Column11.ColumnOrder = 61, ;
		Column11.ControlSource = "cod", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "cCod", ;
		Column11.ReadOnly = .T., ;
		Column12.ColumnOrder = 15, ;
		Column12.ControlSource = "acont", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "cAcont", ;
		Column12.ReadOnly = .F., ;
		Column12.Width = 46, ;
		Column13.BackColor = 160,255,205, ;
		Column13.ColumnOrder = 16, ;
		Column13.ControlSource = "cgest", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.Name = "cGest", ;
		Column13.ReadOnly = .F., ;
		Column13.Width = 60, ;
		Column14.BackColor = 160,255,205, ;
		Column14.ColumnOrder = 18, ;
		Column14.ControlSource = "nrord", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.Name = "cNrord", ;
		Column14.ReadOnly = .F., ;
		Column15.ColumnOrder = 26, ;
		Column15.ControlSource = "curs", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.Format = "R", ;
		Column15.InputMask = (get_mask(12,gnPcurs)), ;
		Column15.Name = "cCurs", ;
		Column15.ReadOnly = .F., ;
		Column15.Width = 55, ;
		Column16.ColumnOrder = 25, ;
		Column16.ControlSource = "pretd", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.Format = "R", ;
		Column16.InputMask = (get_mask(12,gnPPretVal)), ;
		Column16.Name = "cPretd", ;
		Column16.ReadOnly = .F., ;
		Column16.Width = 64, ;
		Column17.BackColor = 225,225,225, ;
		Column17.ColumnOrder = 39, ;
		Column17.ControlSource = "procent", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.Format = "R", ;
		Column17.InputMask = "999 999.99", ;
		Column17.Name = "cProcent", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 53, ;
		Column18.ColumnOrder = 35, ;
		Column18.ControlSource = "iif(trul.pretv#0,trul.pretv-trul.pret,0)", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.Format = "R", ;
		Column18.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
		Column18.Name = "cAdaos", ;
		Column18.ReadOnly = .F., ;
		Column18.Width = 56, ;
		Column19.ColumnOrder = 21, ;
		Column19.ControlSource = "tva", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Format = "R", ;
		Column19.InputMask = (get_mask(12,gnPPRET)), ;
		Column19.Name = "cTva", ;
		Column19.ReadOnly = .F., ;
		Column19.Width = 68, ;
		Column20.BackColor = 225,225,225, ;
		Column20.ColumnOrder = 22, ;
		Column20.ControlSource = "valoare", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.Format = "R", ;
		Column20.InputMask = (get_mask(12,gnPc)), ;
		Column20.Name = "cValoareftva", ;
		Column20.ReadOnly = .T., ;
		Column21.ColumnOrder = 28, ;
		Column21.ControlSource = "trul.pretv", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(12,gnPPRETV)), ;
		Column21.Name = "cPretv", ;
		Column21.ReadOnly = .F., ;
		Column22.ColumnOrder = 30, ;
		Column22.ControlSource = "tvav", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Format = "R", ;
		Column22.InputMask = (get_mask(12,gnPPRETV)), ;
		Column22.Name = "cTvav", ;
		Column22.ReadOnly = .F., ;
		Column23.ColumnOrder = 31, ;
		Column23.ControlSource = "pretvtva", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Format = "R", ;
		Column23.InputMask = (get_mask(12,gnPPRETV)), ;
		Column23.Name = "cPretvtva", ;
		Column23.ReadOnly = .F., ;
		Column23.Width = 94, ;
		Column24.ColumnOrder = 20, ;
		Column24.ControlSource = "proc_tva", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.Format = "R", ;
		Column24.InputMask = "9.99", ;
		Column24.Name = "cProc_tva", ;
		Column24.ReadOnly = .F., ;
		Column24.Width = 57, ;
		Column25.BackColor = 225,225,225, ;
		Column25.ColumnOrder = 57, ;
		Column25.ControlSource = "util", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "cUtil", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 95, ;
		Column26.BackColor = 225,225,225, ;
		Column26.ColumnOrder = 58, ;
		Column26.ControlSource = "dataora", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.Name = "cDataora", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 95, ;
		Column27.BackColor = 160,255,205, ;
		Column27.ColumnOrder = 45, ;
		Column27.ControlSource = "sectie", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.Name = "cSectie", ;
		Column27.ReadOnly = .F., ;
		Column28.ColumnOrder = 43, ;
		Column28.ControlSource = "datain", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Name = "cDatain", ;
		Column28.ReadOnly = .F., ;
		Column29.ColumnOrder = 44, ;
		Column29.ControlSource = "dataout", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.Name = "cDataOut", ;
		Column29.ReadOnly = .F., ;
		Column30.BackColor = 160,255,205, ;
		Column30.ColumnOrder = 46, ;
		Column30.ControlSource = "nresp", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.Name = "cNresp", ;
		Column30.ReadOnly = .F., ;
		Column30.Width = 116, ;
		Column31.BackColor = 160,255,205, ;
		Column31.ColumnOrder = 17, ;
		Column31.ControlSource = "cgestc", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.Name = "cGestC", ;
		Column31.ReadOnly = .F., ;
		Column32.BackColor = 160,255,205, ;
		Column32.ColumnOrder = 47, ;
		Column32.ControlSource = "nrespc", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.Name = "cNrespC", ;
		Column32.ReadOnly = .F., ;
		Column32.Width = 91, ;
		Column33.BackColor = 225,225,225, ;
		Column33.ColumnOrder = 48, ;
		Column33.ControlSource = "tip_rulaj", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.Name = "cTipRulaj", ;
		Column33.ReadOnly = .T., ;
		Column34.BackColor = 225,225,225, ;
		Column34.ColumnOrder = 10, ;
		Column34.ControlSource = "cant_bax", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .F., ;
		Column34.Sparse = .F., ;
		Column34.Width = 41, ;
		Column35.BackColor = 225,225,225, ;
		Column35.ColumnOrder = 11, ;
		Column35.ControlSource = "um2", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 35, ;
		Column36.BackColor = 225,225,225, ;
		Column36.ColumnOrder = 49, ;
		Column36.ControlSource = "grupa", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.Name = "cGrupa", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 53, ;
		Column37.ColumnOrder = 5, ;
		Column37.ControlSource = "nract", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.Name = "cNract", ;
		Column37.ReadOnly = .F., ;
		Column37.Width = 70, ;
		Column38.BackColor = 225,225,225, ;
		Column38.ColumnOrder = 50, ;
		Column38.ControlSource = "subgrupa", ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.Name = "cSubgrupa", ;
		Column38.ReadOnly = .T., ;
		Column38.Width = 71, ;
		Column39.BackColor = 225,225,225, ;
		Column39.ColumnOrder = 59, ;
		Column39.ControlSource = "utils", ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.Name = "cUtils", ;
		Column39.ReadOnly = .T., ;
		Column40.BackColor = 225,225,225, ;
		Column40.ColumnOrder = 60, ;
		Column40.ControlSource = "dataoras", ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "cDataoras", ;
		Column40.ReadOnly = .T., ;
		Column40.Width = 80, ;
		Column41.ColumnOrder = 8, ;
		Column41.ControlSource = "serie", ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cSerie", ;
		Column41.ReadOnly = .F., ;
		Column41.Width = 122, ;
		Column42.BackColor = 160,255,205, ;
		Column42.ColumnOrder = 27, ;
		Column42.ControlSource = "nume_val", ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.Name = "cNume_val", ;
		Column42.ReadOnly = .F., ;
		Column42.Width = 52, ;
		Column43.ColumnOrder = 4, ;
		Column43.ControlSource = "serie_act", ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.Name = "cSerie_act", ;
		Column43.ReadOnly = .F., ;
		Column43.Width = 43, ;
		Column44.BackColor = 225,225,225, ;
		Column44.ColumnOrder = 51, ;
		Column44.ControlSource = "codmatf", ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.Name = "cCodmatF", ;
		Column44.ReadOnly = .T., ;
		Column45.ColumnOrder = 52, ;
		Column45.ControlSource = "lot", ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Name = "cLot", ;
		Column45.ReadOnly = .F., ;
		Column46.ColumnOrder = 53, ;
		Column46.ControlSource = "adata_expirare", ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cDataExpirare", ;
		Column46.ReadOnly = .F., ;
		Column47.BackColor = 225,225,225, ;
		Column47.ColumnOrder = 56, ;
		Column47.ControlSource = "sucursala", ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Name = "cSucursala", ;
		Column47.ReadOnly = .T., ;
		Column48.BackColor = 160,255,205, ;
		Column48.ColumnOrder = 54, ;
		Column48.ControlSource = "part_rez", ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Name = "cPart_rez", ;
		Column48.ReadOnly = .F., ;
		Column49.BackColor = 160,255,205, ;
		Column49.ColumnOrder = 55, ;
		Column49.ControlSource = "nrord_rez", ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.Name = "cNrord_rez", ;
		Column49.ReadOnly = .F., ;
		Column50.BackColor = 225,225,225, ;
		Column50.ColumnOrder = 23, ;
		Column50.ControlSource = "valtva", ;
		Column50.FontName = "Arial", ;
		Column50.FontSize = 10, ;
		Column50.Format = "r", ;
		Column50.InputMask = (get_mask(12,gnPc)), ;
		Column50.Name = "cValoaretva", ;
		Column50.ReadOnly = .T., ;
		Column50.Width = 98, ;
		Column51.BackColor = 225,225,225, ;
		Column51.ColumnOrder = 32, ;
		Column51.ControlSource = "valoarev", ;
		Column51.FontName = "Arial", ;
		Column51.FontSize = 10, ;
		Column51.Format = "r", ;
		Column51.InputMask = (get_mask(12,gnPc)), ;
		Column51.Name = "cValoarevftva", ;
		Column51.ReadOnly = .T., ;
		Column52.ColumnOrder = 29, ;
		Column52.ControlSource = "proc_tvav", ;
		Column52.FontName = "Arial", ;
		Column52.FontSize = 10, ;
		Column52.Name = "cProc_tvav", ;
		Column52.ReadOnly = .F., ;
		Column52.Width = 76, ;
		Column53.ColumnOrder = 36, ;
		Column53.ControlSource = "adaos_tva", ;
		Column53.FontName = "Arial", ;
		Column53.FontSize = 10, ;
		Column53.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
		Column53.Name = "cAdaos_tva", ;
		Column53.ReadOnly = .F., ;
		Column54.BackColor = 225,225,225, ;
		Column54.ColumnOrder = 37, ;
		Column54.ControlSource = "valoare_adaos", ;
		Column54.FontName = "Arial", ;
		Column54.FontSize = 10, ;
		Column54.Format = "r", ;
		Column54.InputMask = (get_mask(12,gnPc)), ;
		Column54.Name = "cValoare_adaosftva", ;
		Column54.ReadOnly = .T., ;
		Column54.Width = 83, ;
		Column55.BackColor = 225,225,225, ;
		Column55.ColumnOrder = 38, ;
		Column55.ControlSource = "valtva_adaos", ;
		Column55.FontName = "Arial", ;
		Column55.FontSize = 10, ;
		Column55.Format = "r", ;
		Column55.InputMask = (get_mask(12,gnPc)), ;
		Column55.Name = "cvaloare_adaostva", ;
		Column55.ReadOnly = .T., ;
		Column56.ColumnOrder = 40, ;
		Column56.ControlSource = "discunitar", ;
		Column56.FontName = "Arial", ;
		Column56.FontSize = 10, ;
		Column56.InputMask = (get_mask(12,gnPPretV)), ;
		Column56.Name = "cDiscunitar", ;
		Column56.ReadOnly = .F., ;
		Column57.ColumnOrder = 41, ;
		Column57.ControlSource = "discunitar_tva", ;
		Column57.FontName = "Arial", ;
		Column57.FontSize = 10, ;
		Column57.InputMask = (get_mask(12,gnPPretV)), ;
		Column57.Name = "cDiscunitar_tva", ;
		Column57.ReadOnly = .F., ;
		Column57.Width = 77, ;
		Column58.BackColor = 225,225,225, ;
		Column58.ColumnOrder = 42, ;
		Column58.ControlSource = "proc_disc", ;
		Column58.FontName = "Arial", ;
		Column58.FontSize = 10, ;
		Column58.Name = "cProc_disc", ;
		Column58.ReadOnly = .T., ;
		Column59.BackColor = 225,225,225, ;
		Column59.ColumnOrder = 24, ;
		Column59.ControlSource = "valoarecTVA", ;
		Column59.FontName = "Arial", ;
		Column59.FontSize = 10, ;
		Column59.InputMask = (get_mask(12,gnPc)), ;
		Column59.Name = "cvaloarecTVA", ;
		Column59.ReadOnly = .T., ;
		Column59.Width = 107, ;
		Column60.BackColor = 225,225,225, ;
		Column60.ColumnOrder = 33, ;
		Column60.ControlSource = "valtvav", ;
		Column60.FontName = "Arial", ;
		Column60.FontSize = 10, ;
		Column60.Name = "cvaloarevTVA", ;
		Column60.ReadOnly = .T., ;
		Column60.Width = 103, ;
		Column61.BackColor = 225,225,225, ;
		Column61.ColumnOrder = 34, ;
		Column61.ControlSource = "valoarevctva", ;
		Column61.FontName = "Arial", ;
		Column61.FontSize = 10, ;
		Column61.InputMask = (get_mask(12,gnPc)), ;
		Column61.Name = "cvaloarevcTVA", ;
		Column61.ReadOnly = .T., ;
		Column61.Width = 107, ;
		Column62.BackColor = 160,255,205, ;
		Column62.ColumnOrder = 63, ;
		Column62.ControlSource = "taxcode", ;
		Column62.FontSize = 10, ;
		Column62.Name = "cTaxCode", ;
		Column62.ReadOnly = .F., ;
		Column63.BackColor = 160,255,205, ;
		Column63.Bound = .F., ;
		Column63.ColumnOrder = 62, ;
		Column63.ControlSource = "Iif(Seek(trul.id_jtva_coloana,'crsJtvaTemp','id_jtva'),crsJtvaTemp.denumire,'')", ;
		Column63.CurrentControl = "_combobox1", ;
		Column63.FontSize = 10, ;
		Column63.Name = "cExplicatieTVA", ;
		Column63.ReadOnly = .F., ;
		Column63.Sparse = .F., ;
		Column63.Width = 152
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAcont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAcont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCant.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Intrari", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCant.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCante.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Iesiri", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCante.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCod.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCod.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmat.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmatF.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod furnizor", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmatF.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCurs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCurs.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataExpirare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data expirare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataExpirare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDatain.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data intrare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDatain.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataora.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora introducerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataora.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataoras.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data / ora stergerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataoras.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataOut.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data iesire", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataOut.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDenumire.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Discount unitar", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA discount unitar", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cExplicatieTVA._combobox1' AS _combobox WITH ;
		BorderStyle = 0, ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "400,0", ;
		ControlSource = "trul.id_jtva_coloana", ;
		Left = 34, ;
		Name = "_combobox1", ;
		RowSource = "select denumire, id_jtva_coloana from crsJtvaTemp order by denumire into cursor crsJtvaTempX", ;
		RowSourceType = 3, ;
		SpecialEffect = 1, ;
		Top = 40
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

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

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGest.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiunea", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGest.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGestC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune C", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGestC.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGrupa.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Grupa", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGrupa.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cLot.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lot", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cLot.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNnir.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. NIR/Bon", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNnir.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrCrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNresp.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNresp.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrespC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil C", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrespC.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare/Comanda", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord_rez.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare rez.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNume_val.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNume_val.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column34.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cant 2", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column34.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM 2", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column35.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPart_rez.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Part. rez.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPret.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPret.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret in valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretv.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretvtva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_disc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent discount", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_disc.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tvav.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Proc. TVA vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProcent.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProcent.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSectie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSectie.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie_act.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie_act.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSubgrupa.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Subgrupa", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSubgrupa.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSucursala.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTaxCode.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod Taxa", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTaxCode.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTipRulaj.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip rulaj", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTipRulaj.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA achizitie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTvav.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTvav.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUM.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator introducere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtil.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtils.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator stergere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtils.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare adaos fara TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoareftva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoareftva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoaretva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA achizitie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoaretva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.cvaloarevcTVA' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "cvaloarevcTVA", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoarevftva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoarevftva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2._grdfooter1' AS _grdfooter WITH ;
		ccolwithlabel = cNrCrt, ;
		csourcegrid = , ;
		csumcolumns = cValoareftva, cValoaretva, cValoarectva, cValoarevftva, cValoarevtva, cValoarevctva, cValoare_adaosftva, cvaloare_adaostva, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 35, ;
		Left = 0, ;
		Name = "_grdfooter1", ;
		Top = 75, ;
		Width = 759, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 61, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		GridLineColor = 128,128,128, ;
		HeaderHeight = 35, ;
		Height = 72, ;
		Left = 0, ;
		Name = "grdRulajeObinv", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "trul_obinv", ;
		RowHeight = 19, ;
		TabIndex = 3, ;
		Tag = "RESIZABLE", ;
		Top = 0, ;
		Width = 759, ;
		ZOrderSet = 1, ;
		Column1.ControlSource = "nrcrt()", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Format = "R", ;
		Column1.InputMask = "999 999", ;
		Column1.Name = "cNrCrt", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 44, ;
		Column2.ControlSource = "trul_obinv.nnir", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cNnir", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 71, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "dataact", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cDataact", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 67, ;
		Column4.BackColor = 225,225,225, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "codmat", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cCodmat", ;
		Column4.ReadOnly = .T., ;
		Column5.BackColor = 160,255,205, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "denumire", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cDenumire", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 156, ;
		Column6.BackColor = 225,225,225, ;
		Column6.ColumnOrder = 9, ;
		Column6.ControlSource = "um", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.Name = "cUM", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 39, ;
		Column7.ColumnOrder = 19, ;
		Column7.ControlSource = "pret", ;
		Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Format = "R", ;
		Column7.InputMask = (get_mask(12,gnPPRET)), ;
		Column7.Name = "cPret", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 70, ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "cant", ;
		Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Format = "R", ;
		Column8.InputMask = (get_mask(12,gnPCANT)), ;
		Column8.Name = "cCant", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 68, ;
		Column9.ColumnOrder = 13, ;
		Column9.ControlSource = "cante", ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Format = "R", ;
		Column9.InputMask = (get_mask(12,gnPCANT)), ;
		Column9.Name = "cCante", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 68, ;
		Column10.ColumnOrder = 14, ;
		Column10.ControlSource = "cont", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Name = "cCont", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 46, ;
		Column11.BackColor = 225,225,225, ;
		Column11.ColumnOrder = 61, ;
		Column11.ControlSource = "cod", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "cCod", ;
		Column11.ReadOnly = .T., ;
		Column12.ColumnOrder = 15, ;
		Column12.ControlSource = "acont", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "cAcont", ;
		Column12.ReadOnly = .F., ;
		Column12.Width = 46, ;
		Column13.BackColor = 160,255,205, ;
		Column13.ColumnOrder = 16, ;
		Column13.ControlSource = "cgest", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.Name = "cGest", ;
		Column13.ReadOnly = .F., ;
		Column13.Width = 60, ;
		Column14.BackColor = 160,255,205, ;
		Column14.ColumnOrder = 18, ;
		Column14.ControlSource = "nrord", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.Name = "cNrord", ;
		Column14.ReadOnly = .F., ;
		Column15.ColumnOrder = 26, ;
		Column15.ControlSource = "curs", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.Format = "R", ;
		Column15.InputMask = (get_mask(12,gnPcurs)), ;
		Column15.Name = "cCurs", ;
		Column15.ReadOnly = .F., ;
		Column15.Width = 55, ;
		Column16.ColumnOrder = 25, ;
		Column16.ControlSource = "pretd", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.Format = "R", ;
		Column16.InputMask = (get_mask(12,gnPPretVal)), ;
		Column16.Name = "cPretd", ;
		Column16.ReadOnly = .F., ;
		Column16.Width = 64, ;
		Column17.BackColor = 225,225,225, ;
		Column17.ColumnOrder = 39, ;
		Column17.ControlSource = "procent", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.Format = "R", ;
		Column17.InputMask = "999 999.99", ;
		Column17.Name = "cProcent", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 53, ;
		Column18.ColumnOrder = 35, ;
		Column18.ControlSource = "iif(trul_obinv.pretv#0,trul_obinv.pretv-trul_obinv.pret,0)", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.Format = "R", ;
		Column18.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
		Column18.Name = "cAdaos", ;
		Column18.ReadOnly = .F., ;
		Column18.Width = 56, ;
		Column19.ColumnOrder = 21, ;
		Column19.ControlSource = "tva", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Format = "R", ;
		Column19.InputMask = (get_mask(12,gnPPRET)), ;
		Column19.Name = "cTva", ;
		Column19.ReadOnly = .F., ;
		Column19.Width = 68, ;
		Column20.BackColor = 225,225,225, ;
		Column20.ColumnOrder = 22, ;
		Column20.ControlSource = "valoare", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.Format = "R", ;
		Column20.InputMask = (get_mask(12,gnPc)), ;
		Column20.Name = "cValoareftva", ;
		Column20.ReadOnly = .T., ;
		Column21.ColumnOrder = 28, ;
		Column21.ControlSource = "trul_obinv.pretv", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(12,gnPPRETV)), ;
		Column21.Name = "cPretv", ;
		Column21.ReadOnly = .F., ;
		Column22.ColumnOrder = 30, ;
		Column22.ControlSource = "tvav", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Format = "R", ;
		Column22.InputMask = (get_mask(12,gnPPRETV)), ;
		Column22.Name = "cTvav", ;
		Column22.ReadOnly = .F., ;
		Column23.ColumnOrder = 31, ;
		Column23.ControlSource = "pretvtva", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Format = "R", ;
		Column23.InputMask = (get_mask(12,gnPPRETV)), ;
		Column23.Name = "cPretvtva", ;
		Column23.ReadOnly = .F., ;
		Column23.Width = 94, ;
		Column24.ColumnOrder = 20, ;
		Column24.ControlSource = "proc_tva", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.Format = "R", ;
		Column24.InputMask = "9.99", ;
		Column24.Name = "cProc_tva", ;
		Column24.ReadOnly = .F., ;
		Column24.Width = 57, ;
		Column25.BackColor = 225,225,225, ;
		Column25.ColumnOrder = 57, ;
		Column25.ControlSource = "util", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "cUtil", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 95, ;
		Column26.BackColor = 225,225,225, ;
		Column26.ColumnOrder = 58, ;
		Column26.ControlSource = "dataora", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.Name = "cDataora", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 95, ;
		Column27.BackColor = 160,255,205, ;
		Column27.ColumnOrder = 45, ;
		Column27.ControlSource = "sectie", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.Name = "cSectie", ;
		Column27.ReadOnly = .F., ;
		Column28.ColumnOrder = 43, ;
		Column28.ControlSource = "datain", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Name = "cDatain", ;
		Column28.ReadOnly = .F., ;
		Column29.ColumnOrder = 44, ;
		Column29.ControlSource = "dataout", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.Name = "cDataOut", ;
		Column29.ReadOnly = .F., ;
		Column30.BackColor = 160,255,205, ;
		Column30.ColumnOrder = 46, ;
		Column30.ControlSource = "nresp", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.Name = "cNresp", ;
		Column30.ReadOnly = .F., ;
		Column30.Width = 116, ;
		Column31.BackColor = 160,255,205, ;
		Column31.ColumnOrder = 17, ;
		Column31.ControlSource = "cgestc", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.Name = "cGestC", ;
		Column31.ReadOnly = .F., ;
		Column32.BackColor = 160,255,205, ;
		Column32.ColumnOrder = 47, ;
		Column32.ControlSource = "nrespc", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.Name = "cNrespC", ;
		Column32.ReadOnly = .F., ;
		Column32.Width = 91, ;
		Column33.BackColor = 225,225,225, ;
		Column33.ColumnOrder = 48, ;
		Column33.ControlSource = "tip_rulaj", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.Name = "cTipRulaj", ;
		Column33.ReadOnly = .T., ;
		Column34.BackColor = 225,225,225, ;
		Column34.ColumnOrder = 10, ;
		Column34.ControlSource = "cant_bax", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .F., ;
		Column34.Sparse = .F., ;
		Column34.Width = 41, ;
		Column35.BackColor = 225,225,225, ;
		Column35.ColumnOrder = 11, ;
		Column35.ControlSource = "um2", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 35, ;
		Column36.BackColor = 225,225,225, ;
		Column36.ColumnOrder = 49, ;
		Column36.ControlSource = "grupa", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.Name = "cGrupa", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 53, ;
		Column37.ColumnOrder = 5, ;
		Column37.ControlSource = "nract", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.Name = "cNract", ;
		Column37.ReadOnly = .F., ;
		Column37.Width = 70, ;
		Column38.BackColor = 225,225,225, ;
		Column38.ColumnOrder = 50, ;
		Column38.ControlSource = "subgrupa", ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.Name = "cSubgrupa", ;
		Column38.ReadOnly = .T., ;
		Column38.Width = 71, ;
		Column39.BackColor = 225,225,225, ;
		Column39.ColumnOrder = 59, ;
		Column39.ControlSource = "utils", ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.Name = "cUtils", ;
		Column39.ReadOnly = .T., ;
		Column40.BackColor = 225,225,225, ;
		Column40.ColumnOrder = 60, ;
		Column40.ControlSource = "dataoras", ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "cDataoras", ;
		Column40.ReadOnly = .T., ;
		Column40.Width = 80, ;
		Column41.ColumnOrder = 8, ;
		Column41.ControlSource = "serie", ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cSerie", ;
		Column41.ReadOnly = .F., ;
		Column41.Width = 122, ;
		Column42.BackColor = 160,255,205, ;
		Column42.ColumnOrder = 27, ;
		Column42.ControlSource = "nume_val", ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.Name = "cNume_val", ;
		Column42.ReadOnly = .F., ;
		Column42.Width = 52, ;
		Column43.ColumnOrder = 4, ;
		Column43.ControlSource = "serie_act", ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.Name = "cSerie_act", ;
		Column43.ReadOnly = .F., ;
		Column43.Width = 43, ;
		Column44.BackColor = 225,225,225, ;
		Column44.ColumnOrder = 51, ;
		Column44.ControlSource = "codmatf", ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.Name = "cCodmatF", ;
		Column44.ReadOnly = .T., ;
		Column45.ColumnOrder = 52, ;
		Column45.ControlSource = "lot", ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Name = "cLot", ;
		Column45.ReadOnly = .F., ;
		Column46.ColumnOrder = 53, ;
		Column46.ControlSource = "adata_expirare", ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cDataExpirare", ;
		Column46.ReadOnly = .F., ;
		Column47.BackColor = 225,225,225, ;
		Column47.ColumnOrder = 56, ;
		Column47.ControlSource = "sucursala", ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Name = "cSucursala", ;
		Column47.ReadOnly = .T., ;
		Column48.BackColor = 160,255,205, ;
		Column48.ColumnOrder = 54, ;
		Column48.ControlSource = "part_rez", ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Name = "cPart_rez", ;
		Column48.ReadOnly = .F., ;
		Column49.BackColor = 160,255,205, ;
		Column49.ColumnOrder = 55, ;
		Column49.ControlSource = "nrord_rez", ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.Name = "cNrord_rez", ;
		Column49.ReadOnly = .F., ;
		Column50.BackColor = 225,225,225, ;
		Column50.ColumnOrder = 23, ;
		Column50.ControlSource = "valtva", ;
		Column50.FontName = "Arial", ;
		Column50.FontSize = 10, ;
		Column50.Format = "r", ;
		Column50.InputMask = (get_mask(12,gnPc)), ;
		Column50.Name = "cValoaretva", ;
		Column50.ReadOnly = .T., ;
		Column50.Width = 98, ;
		Column51.BackColor = 225,225,225, ;
		Column51.ColumnOrder = 32, ;
		Column51.ControlSource = "valoarev", ;
		Column51.FontName = "Arial", ;
		Column51.FontSize = 10, ;
		Column51.Format = "r", ;
		Column51.InputMask = (get_mask(12,gnPc)), ;
		Column51.Name = "cValoarevftva", ;
		Column51.ReadOnly = .T., ;
		Column52.ColumnOrder = 29, ;
		Column52.ControlSource = "proc_tvav", ;
		Column52.FontName = "Arial", ;
		Column52.FontSize = 10, ;
		Column52.Name = "cProc_tvav", ;
		Column52.ReadOnly = .F., ;
		Column52.Width = 76, ;
		Column53.ColumnOrder = 36, ;
		Column53.ControlSource = "adaos_tva", ;
		Column53.FontName = "Arial", ;
		Column53.FontSize = 10, ;
		Column53.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
		Column53.Name = "cAdaos_tva", ;
		Column53.ReadOnly = .F., ;
		Column54.BackColor = 225,225,225, ;
		Column54.ColumnOrder = 37, ;
		Column54.ControlSource = "valoare_adaos", ;
		Column54.FontName = "Arial", ;
		Column54.FontSize = 10, ;
		Column54.Format = "r", ;
		Column54.InputMask = (get_mask(12,gnPc)), ;
		Column54.Name = "cValoare_adaosftva", ;
		Column54.ReadOnly = .T., ;
		Column54.Width = 83, ;
		Column55.BackColor = 225,225,225, ;
		Column55.ColumnOrder = 38, ;
		Column55.ControlSource = "valtva_adaos", ;
		Column55.FontName = "Arial", ;
		Column55.FontSize = 10, ;
		Column55.Format = "r", ;
		Column55.InputMask = (get_mask(12,gnPc)), ;
		Column55.Name = "cvaloare_adaostva", ;
		Column55.ReadOnly = .T., ;
		Column56.ColumnOrder = 40, ;
		Column56.ControlSource = "discunitar", ;
		Column56.FontName = "Arial", ;
		Column56.FontSize = 10, ;
		Column56.InputMask = (get_mask(12,gnPPretV)), ;
		Column56.Name = "cDiscunitar", ;
		Column56.ReadOnly = .F., ;
		Column57.ColumnOrder = 41, ;
		Column57.ControlSource = "discunitar_tva", ;
		Column57.FontName = "Arial", ;
		Column57.FontSize = 10, ;
		Column57.InputMask = (get_mask(12,gnPPretV)), ;
		Column57.Name = "cDiscunitar_tva", ;
		Column57.ReadOnly = .F., ;
		Column57.Width = 77, ;
		Column58.BackColor = 225,225,225, ;
		Column58.ColumnOrder = 42, ;
		Column58.ControlSource = "proc_disc", ;
		Column58.FontName = "Arial", ;
		Column58.FontSize = 10, ;
		Column58.Name = "cProc_disc", ;
		Column58.ReadOnly = .T., ;
		Column59.BackColor = 225,225,225, ;
		Column59.ColumnOrder = 24, ;
		Column59.ControlSource = "valoarecTVA", ;
		Column59.FontName = "Arial", ;
		Column59.FontSize = 10, ;
		Column59.InputMask = (get_mask(12,gnPc)), ;
		Column59.Name = "cvaloarecTVA", ;
		Column59.ReadOnly = .T., ;
		Column59.Width = 107, ;
		Column60.BackColor = 225,225,225, ;
		Column60.ColumnOrder = 33, ;
		Column60.ControlSource = "valtvav", ;
		Column60.FontName = "Arial", ;
		Column60.FontSize = 10, ;
		Column60.Name = "cvaloarevTVA", ;
		Column60.ReadOnly = .T., ;
		Column60.Width = 103, ;
		Column61.BackColor = 225,225,225, ;
		Column61.ColumnOrder = 34, ;
		Column61.ControlSource = "valoarevctva", ;
		Column61.FontName = "Arial", ;
		Column61.FontSize = 10, ;
		Column61.InputMask = (get_mask(12,gnPc)), ;
		Column61.Name = "cvaloarevcTVA", ;
		Column61.ReadOnly = .T., ;
		Column61.Width = 107
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAcont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAcont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCant.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Intrari", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCante.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Iesiri", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCod.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCod.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod furnizor", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCurs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCurs.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data expirare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDatain.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data intrare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDatain.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataora.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora introducerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataora.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data / ora stergerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data iesire", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Discount unitar", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA discount unitar", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGest.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiunea", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGestC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Gestiune C", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Grupa", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cLot.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lot", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cLot.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNnir.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. NIR/Bon", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNnir.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.crt.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNresp.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Responsabil C", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare/Comanda", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare rez.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column34.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cant 2", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column34.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM 2", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column35.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Part. rez.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPret.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret in valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent discount", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Proc. TVA vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProcent.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProcent.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSectie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1' AS textbox WITH ;
		BackColor = 160,255,205, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Subgrupa", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip rulaj", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA achizitie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTvav.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUM.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UM", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUM.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtil.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator introducere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtil.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtils.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator stergere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtils.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare adaos fara TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA adaos", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA achizitie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.cvaloarevcTVA' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "cvaloarevcTVA", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA vanzare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Text1' AS textbox WITH ;
		BackColor = 225,225,225, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtSuma' AS _textbox WITH ;
		Alignment = 3, ;
		Anchor = 8, ;
		ControlSource = "thisform.nSuma", ;
		FontCharSet = 238, ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(16,gnPa)), ;
		Left = 556, ;
		Name = "txtSuma", ;
		ReadOnly = .T., ;
		TabIndex = 20, ;
		Top = 330, ;
		Value = 0, ;
		Width = 123, ;
		ZOrderSet = 23
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE Activate
		IF This.nPrimaData = 0
			This.resize_grid1()
			This.nPrimaData = 1
		ENDIF 
	ENDPROC

	PROCEDURE afiseaza_rulaje
		* COLAPSEAZA SAU MARESTE PAGEFRAME-UL RULAJE
		* Daca butonul are imaginea sus, inseamna ca pageframe-ul cu rulaje este ascuns
		* si trebuie sa il afisez
		lcPicture = this.but_afiseaza_rulaje.Picture
		lcPictureDown = this.but_afiseaza_rulaje.cPictureDown
		lcPictureUp = this.but_afiseaza_rulaje.cPictureUp
		
		llAfiseazaRulaje = 'sus'$m.lcPicture
		
		IF m.llAfiseazaRulaje
			lcPicture2 = STRTRAN(m.lcPicture,'sus','jos')
			lcPictureDown2 = STRTRAN(m.lcPictureDown,'sus','jos')
			lcPictureUp2 = STRTRAN(m.lcPictureUp,'sus','jos')		
		ELSE 	
			lcPicture2 = STRTRAN(m.lcPicture,'jos','sus')
			lcPictureDown2 = STRTRAN(m.lcPictureDown,'jos','sus')
			lcPictureUp2 = STRTRAN(m.lcPictureUp,'jos','sus')		
		ENDIF 
		
		this.but_afiseaza_rulaje.Picture = m.lcPicture2
		this.but_afiseaza_rulaje.cPictureDown = m.lcPictureDown2
		this.but_afiseaza_rulaje.cPictureUp = m.lcPictureUp2
		
		this.pgfArticole.Visible = m.llAfiseazaRulaje
		this.but_copiazaR.Visible = m.llAfiseazaRulaje
		this.but_modificaR.Visible = m.llAfiseazaRulaje
		this.but_stergeR.Visible = m.llAfiseazaRulaje 
		
		thisform.resize_grid1()
		
		*!*	this.grid1.Height = 284 + IIF(m.llAfiseazaRulaje, 0, this.pgfArticole.Height)
		*!*	this.cmdSelect.Top = this.grid1.Top + this.grid1.Height
		*!*	this.lblSuma.Top = this.grid1.Top + this.grid1.Height
		*!*	this.txtSuma.Top = this.grid1.Top + this.grid1.Height
		
	ENDPROC

	PROCEDURE alege_partener
		*!* 07.11.2011
		*!* marius.mutu
		*!* daca se schimba partenerul, se pune id_fact = -1 in loc de 0
		*!* pentru a se putea genera un nou id_fact
		
		*!* 26.02.2018
		*!* se inlocuieste partenerul pentru toate inregistrarile alese, optional
		
		LPARAMETERS tcExplicatie, tlSilent
		*** tcExplicatie: D/C
		*** tlSilent: .T. = afiseaza mesaj "contul nu este configurat cu parteneri" - pentru apasarea manuala pe butonul Partener
		
		PRIVATE pcCont
		LOCAL lnIdPartOriginal, lnIdPart, lnrezultat, lnsucces
		LOCAL lcExplicatie
		LOCAL lcSql, lcnume, llToate, lnRecno, locauta
		IF EMPTY(tcExplicatie)
			lcExplicatie = 'D'
		ELSE
			lcExplicatie = UPPER(ALLTRIM(m.tcExplicatie))
		ENDIF
		lnIdPart = 0
		
		SELECT tact
		pcCont = IIF(m.lcExplicatie = 'D', ALLTRIM(NVL(tact.scd, '')), ALLTRIM(NVL(tact.scc, '')))
		IF EMPTY(pcCont)
			IF !m.tlSilent
				AMESSAGEBOX('Completati contul ' + IIF(m.lcExplicatie = 'D', 'debitor.', 'creditor.'), 0 + 48, _SCREEN.CAPTION)
			ENDIF
			RETURN lnIdPart
		ENDIF
		lnIdPartOriginal = IIF(m.lcExplicatie = 'D', id_partd, id_partc)
		
		lnrezultat = 0
		lnsucces = 0
		lcSql = "select count(*) from config_cont_ireg where cont = &pcCont"
		lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat)
		
		IF lnsucces > 0
			IF NVL(lnrezultat, 0) > 0
				locauta = THISFORM.do_cauta(pcCont)
				IF gnButon = 1
					lnIdPart = locauta.id_part
					lcnume = ALLTRIM(locauta.nume)
		
					llToate = .F.
					SELECT tact
					lnRecno = RECNO()
					LOCATE FOR ales
					IF FOUND() AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?', 4 + 32, _SCREEN.CAPTION) = 6
						llToate = .T.
					ENDIF
					GOTO m.lnRecno
		
					SELECT tact
					IF m.lcExplicatie = 'D'
						IF m.llToate
							REPLACE id_partd WITH lnIdPart, partd WITH lcnume FOR ales
						ELSE
							REPLACE id_partd WITH lnIdPart, partd WITH lcnume
						ENDIF
						IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
							REPLACE pereched WITH 0, id_factd WITH - 1
						ENDIF
					ELSE
						IF m.llToate
							REPLACE id_partc WITH lnIdPart, partc WITH lcnume FOR ales
						ELSE
							REPLACE id_partc WITH lnIdPart, partc WITH lcnume
						ENDIF
						IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
							REPLACE perechec WITH 0, id_factc WITH - 1
						ENDIF
					ENDIF
				ENDIF
			ELSE
				IF !m.tlSilent
					AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16, "Eroare")
				ENDIF
			ENDIF
		ELSE
			AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16, "Eroare")
		ENDIF
		
		RETURN lnIdPart
	ENDPROC

	PROCEDURE aleg_document_pereche
		PARAMETERS tcFel,toAct
		LOCAL lcSel,lcSelAct
		lcSelAct = thisform.grid1.RecordSource 
		pnFelCont = tcFel
		
		IF pnFelCont = 0                  && ACTIV
			pcContul = ALLTRIM(NVL(toAct.scc,[]))
			pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
			pnIdPart = NVL(toAct.Id_partc,0)
			pcNume = ALLTRIM(NVL(toAct.partc,[]))
			pnPereche = [perecheC]
			pnIdPereche = [id_factC]
		ELSE                               && PASIV
			pcContul = ALLTRIM(NVL(toAct.scd,[]))
			pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
			pnIdPart = NVL(toAct.Id_partd,0)
			pcNume = ALLTRIM(NVL(toAct.partd,[]))
			pnPereche = [perecheD]
			pnIdPereche = [id_factD]
		ENDIF 
		
		lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
		lcCursor = [crsTest]
		lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
		IF lnSucces < 0
			aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
			SELECT (lcSelAct)
			this.grid1.SetFocus 
			RETURN 
		ENDIF 
		
		SELECT crsTest
		LOCATE 
		IF ePereche = 0
			USE IN crsTest
			SELECT (lcSelAct)
			this.grid1.SetFocus 
			RETURN
		ENDIF 
		
		
		IF !EMPTY(toAct.Suma_val)
			llval = .t.
			pnSuma = toAct.Suma_val
			lcFormular = [ocompensari_val]
		ELSE 
			llval = .f.
			pnSuma = toAct.Suma
			lcFormular = [ocompensari]
		ENDIF 
		pnIdValuta = toAct.Id_Valuta
		pcDenumire = [Partener ] + pcContul 
		
		pcCond = [ an = ?gnAn and luna = ?gnluna]
		
		IF llval
			pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
		ELSE
			pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
		ENDIF
		
		pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
		IF ALLTRIM(pcACont) # [NULL]
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
		ELSE
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
		ENDIF 
		pcschema = ['']
		pcorder = ['']
		
		PRIVATE podateintrod
		STORE '' TO podateintrod
		
		gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
		
		lcFis = 'actcv' + ALLTRIM(pcContul)
		
		IF USED(lcFis)
			USE IN &lcFis
		ENDIF
		
		IF pnFelCont = 0
			lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
				[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
				[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ELSE
			lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
				[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
				[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ENDIF
		&lcsel
		
		USE IN crs_actcv
		SELECT (lcFis)
		
		OPLATA=CREATEOBJECT(lcFormular)
		OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
		OPLATA.pcFis = lcFis
		OPLATA.SUMA = pnSuma
		OPLATA.pnFelCont = pnFelCont
		OPLATA.SHOW(1)
		
		IF gnButon = 1
			SELECT (lcSelAct)
			DELETE 
			SELECT (lcFis)
			SCAN FOR ales
				SCATTER NAME oper
				SELECT (lcSelAct)
				APPEND BLANK 
				GATHER NAME toAct
				REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
				SELECT (lcFis)
			ENDSCAN 
		ELSE 
			SELECT (lcSelAct)
			REPLACE &pnPereche WITH toact.&pnPereche 
		ENDIF 
		
		IF USED(lcFis)
			USE IN (lcFis)
		ENDIF 
		SELECT (lcSelAct)
		this.grid1.SetFocus 
	ENDPROC

	PROCEDURE calculeazatotal
		Local lcCursor, lcSelect, lnRecno
		lcSelect = Select()
		This.LockScreen = .T.
		lcCursor = Thisform.grid1.RecordSource
		Select (m.lcCursor)
		lnRecno = Recno()
		llEOF = EOF()
		Calculate Sum(suma) To This.nSuma
		If m.lnRecno > 0 AND !m.llEOF
			Goto m.lnRecno
		Endif
		This.txtSuma.Refresh()
		This.LockScreen = .F.
		
		Select (m.lcSelect)
		
	ENDPROC

	PROCEDURE calculeaza_valori_rul
		LPARAMETERS tcControlSource
		LOCAL lcRul, lnPagina
		Local lcControlSource, lnCantitate, lnPret, lnPretv, lnPretvtva, lnProcTva, lnProcTvav, lnTVA
		Local lnTVAv, lnValoareFTva, lnValoareTVA, lnValoarecTVA
		
		lnPagina = This.pgfArticole.ActivePage
		lcRul = IIF(m.lnPagina = 1, 'trul', 'trul_obinv')
		
		lcControlSource = ALLTRIM(LOWER(m.tcControlSource))
		IF '.' $ m.lcControlSource
			m.lcControlSource = RIGHT(m.lcControlSource, LEN(m.lcControlSource) - AT('.', m.lcControlSource))
		ENDIF
		
		SELECT (m.lcRul)
		DO case
			* pret achizitie
			CASE INLIST(m.lcControlSource, 'cant', 'cante', 'pret', 'proc_tva', 'tva')
				lnCantitate = IIF(cant <> 0, cant, cante)
				lnPret = pret
				lnProcTva = IIF(EMPTY(proc_tva), 1, proc_tva) - 1 && 1.19 - 1 = 0.19
				IF m.lcControlSource = 'tva'
					lnTVA = tva
				ELSE 
					lnTVA = lnPret * m.lnProcTVA
				ENDIF 	
				lnValoareFTva = ROUND(m.lnCantitate * m.lnPret, m.gnPC)
				lnValoareTVA = ROUND(m.lnCantitate * m.lnPret * m.lnProcTva, m.gnPC)
				lnValoarecTVA = m.lnValoareFtva + m.lnValoareTVA
		
				REPLACE tva WITH m.lnTVA, valoare WITH m.lnValoareFtva, valtva WITH m.lnValoareTVA, valoarecTVA WITH m.lnValoarecTVA
				
			* pret vanzare
			CASE INLIST(m.lcControlSource, 'cant', 'cante', 'pretv', 'tvav', 'proc_tvav', 'pretvtva')
		
				lnCantitate = IIF(cant <> 0, cant, cante)		
				lnPretv = ROUND(pretv, m.gnPPretv)
				lnTVAv = ROUND(tvav, m.gnPPretv)
				lnPretvtva = ROUND(pretvtva, m.gnPPretv)
				lnProcTvav = IIF(EMPTY(proc_tvav), 1, proc_tvav) - 1 && 1.19 - 1 = 0.19
				DO CASE 
					CASE m.lcControlSource = 'pretv'
						lnTVAv = ROUND(lnPretv * m.lnProcTVAv, m.gnPPretv)
						lnPretvtva = ROUND(m.lnPretv + m.lnTVAv, m.gnPPretv)
					CASE m.lcControlSource = 'tvav'
						lnPretvtva = m.lnPretv + m.lnTVA
					CASE m.lcControlSource = 'pretvtva'
						lnTVAv = ROUND(lnPretVtva * m.lnProcTVAv / (1 + m.lnProcTvav), m.gnPPretv)
						lnPretv = m.lnPretvtva - m.lnTvav
				ENDCASE 
		
				IF m.lcControlSource = 'pretvtva'
					lnValoarecTVA = ROUND(m.lnCantitate * m.lnPretvTva, m.gnPC)
					lnValoareTVA = ROUND(m.lnValoarecTVA * m.lnProcTVAv / (1 + m.lnProcTvav), m.gnPC)
					lnValoareFTva = m.lnValoareCtva - m.lnValoareTVA		
				ELSE
					lnValoareFTva = ROUND(m.lnCantitate * m.lnPretv, m.gnPC)
					lnValoareTVA = ROUND(m.lnCantitate * m.lnPretv * m.lnProcTvav, m.gnPC)
					lnValoarecTVA = m.lnValoareFtva + m.lnValoareTVA			
				ENDIF 	
				
				REPLACE pretv WITH m.lnPretv, pretvtva WITH m.lnPretvtva, tvav WITH m.lnTVAv, valoarev WITH m.lnValoareFtva, valtvav WITH m.lnValoareTVA, valoarevcTVA WITH m.lnValoarecTVA
		ENDCASE 	
		
		IF m.lnPagina = 1
			This.pgfArticole.page1._grdfooter1.calcTotal() 
		ELSE
			This.pgfArticole.page2._grdfooter1.calcTotal() 
		ENDIF 	
	ENDPROC

	PROCEDURE ccontrol_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.cControl = m.vNewVal
	ENDPROC

	PROCEDURE creeaza_note_tva_incasare
		Lparameters tcCursorAct, toRec, tnSuma
		* tcCursorAct: tAct = numele cursorului in care se adauga inregistrarile de TVA exigibil
		* toRec: inregistrarea cu TVA incasare (id_fact, id_part etc.)
		* tnSuma: suma incasata, din care se calculeaza TVA exigibil pe cote TVA
		lnIdFact = toRec.id_fact
		lnSuma = tnSuma
		lnProcTVA = 0
		lnIdJtvaColoana = 0
		lnScd = Alltrim(toRec.scd)
		lnScc = Alltrim(toRec.scc)
		
		lcSql = [{call pack_contab.defalca_tva_incasare(] + Alltrim(Str(m.lnIdFact)) + [,] + ;
			ALLTRIM(Str(m.lnSuma, 16, m.gnPC)) + [,] + ;
			ALLTRIM(Str(m.lnProcTVA, 16, 4)) + [,] + ;
			IIF(!Empty(Nvl(m.lnIdJtvaColoana,0)) And !(m.lnScd ='408' And m.lnScc ='401'),[0],[1]) + [,] + ;
			[?gnLuna,?gnAn)}]
		
		lcCursorDefTVA = Sys(2015)
		If goExecutor.oExecuta(lcSql,lcCursorDefTVA)
		
			SELECT (m.lcCursorDefTVA)
			GO TOP 
			lcScd = ALLTRIM(scd)
			lcScc = ALLTRIM(scc)
			update_jtva_coloane(IIF(m.lcSCD = '4427' OR m.lcScc = '4427', 'JV', 'JC'), 'crsExplicatiiTVATemp', 1)
				
			Insert Into &tcCursorAct(serie_act,luna,an,nract,ascd,scd,ascc,scc,;
				suma,explicatia4,explicatia5,Curs,id_util,;
				id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,;
				id_ctr,contract,id_sectie,sectie,proc_tva,id_set,id_fact,;
				perecheC,perecheD,id_factD,id_factC,id_partd,partd,id_partc,partc,;
				id_sucursala,sucursala,id_fdoc,fdoc,;
				id_gestin,gestin,id_gestout,gestout,;
				id_jtva_coloana, explicatie_tva, id_valuta,nume_val,dataact,dataireg, tipnota, cu_tva, tva_incasare) ;
				Select Nvl(toRec.serie_act, '') As serie_act,;
					toRec.luna As luna,toRec.an As an,toRec.nract As nract,a.ascd As ascd,a.scd As scd,a.ascc As ascc,a.scc As scc,;
					a.suma As suma, Nvl(toRec.explicatia4, '') As explicatia4, Nvl(toRec.explicatia5, '') As explicatia5,toRec.Curs As Curs,toRec.id_util As id_util,;
					toRec.id_responsabil As id_responsabil, Nvl(toRec.nresp, '') As nresp,toRec.id_venchelt As id_venchelt, Nvl(toRec.dst_chlt, '') As dst_chlt,;
					toRec.id_lucrare As id_lucrare, Nvl(toRec.nrord, '') As nrord,toRec.id_ctr As id_ctr, Nvl(toRec.contract, '') As contract,;
					toRec.id_sectie As id_sectie, Nvl(toRec.sectie, '') As sectie, a.proc_tva As proc_tva,toRec.id_set As id_set, a.id_fact As id_fact,;
					a.perecheC As perecheC,a.perecheD As perecheD,;
					0 As id_factD,0 As id_factC,0 As id_partd,'' As partd,0 As id_partc,'' As partc,;
					CAST(toRec.id_sucursala as I null) As id_sucursala, Nvl(toRec.sucursala, '') As sucursala,toRec.id_fdoc As id_fdoc, Nvl(toRec.fdoc, '') As fdoc,;
					toRec.id_gestin As id_gestin, Nvl(toRec.gestin, '') As gestin,;
					toRec.id_gestout As id_gestout, Nvl(toRec.gestout, '') As gestout,;
					a.id_jtva_coloana As id_jtva_coloana, b.denumire as explicatie_tva, toRec.id_valuta As id_valuta, Nvl(toRec.nume_val, '') As nume_val,toRec.dataact As dataact,toRec.dataireg As dataireg, ;
					toRec.tipnota, toRec.cu_tva, toRec.tva_incasare ;
					FROM (lcCursorDefTVA) a ;
					LEFT JOIN crsExplicatiiTVATemp b ON a.id_jtva_coloana = b.id_jtva_coloana
		
			USE IN (SELECT(lcCursorDefTVA))
			USE IN (SELECT('crsExplicatiiTVATemp'))
		Endif
		
	ENDPROC

	PROCEDURE do_adauga
		*!* 27.07.2011
		*!* marius.mutu
		*!* nu se copiaza scd, scc, ascd, ascc
		
		*!* 08.08.2011
		*!* marius.mutu
		*!* salvare xml nota in caz de fatal error. se reincarca la intrarea in nota fara predefinire
		
		*!* 24.05.2011
		Local lnRecno, loadd
		Select tact
		lnRecno = Recno()
		Locate For ales
		If Found()
			lcCond = "ales"
		ELSE
			lcCond = "recno() = " + Alltrim(Str(lnRecno))
			LOCATE FOR !DELETED()
			IF !FOUND()
				lcCond = ".T."
			ENDIF 	
		ENDIF
		
		Select tact
		SCAN FOR &lcCond
			Scatter Name loadd Fields Except scd, ascd, scc, ascc, id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, suma_val, ales
			IF NVL(m.gnIdSucursala,0) <> 0
				loAdd.id_sucursala = m.gnIdSucursala
				loAdd.sucursala = m.gcFirma
			ENDIF 	
			lnRecno = RECNO()
			loadd.id_act = 0	&&	modificare	ROACONT v 2.4.4
			Append Blank
			Gather Name loadd
			GOTO lnRecno
		ENDSCAN && ales
		*!* 24.05.2011 ^
		*!* 08.08.2011
		This.SalveazaXml()
		*!* 08.08.2011 ^
		Do nrord With 'tact'
		Thisform.CalculeazaTotal()
		
		This.grid1.SetFocus 
		this.grid1.Refresh 
		this.grid_focus_prima_coloana()
		
	ENDPROC

	PROCEDURE do_adauga_rul
	ENDPROC

	PROCEDURE do_adauga_tva_exigibil
		*!* 20.11.2025 
		*!* Completez taxcode pentru inregistrarile TVA exigibil care nu au taxcode
		
		
		*!*
		*!*	 - tva devenit exigibil ( din nota cu plata / incasare ) :
		*!*		- de completat explicatia TVA
		*!*		- id_factd = 0 si id_fact = id_factd
		*!*		- id_partd = 0, id_partc = 0
		*!*		- suma = 0
		*!*		- proc_tva = 0; poate sa aleaga la explicatie TVA doar din cele exigibile
		*!*	 - daca are o linie cu 4XX-5XXX sau 5XXX-4XX, atunci nu e activ decat pe linia respectiva
		*!*	 - daca nu ( mai ) are nicio linie cu  4XX-5XXX sau 5XXX-4XX
		*!*		>	ii arat o lista cu toate facturile din JV / JC din luna care mai au sold si ii completez id_fact
		Local lnrecno, lnRecno1, loadd, llCalculeazaTVAEx, llCalculeazaNoteTVA
		Local lcCond, lnSuma
		
		llCalculeazaTVAEx = (Thisform.chkTVAEX.Value = 1) && calculeaza suma TVA Exigibil = 100/(100 + proc tva) din suma achitata
		llCalculeazaNoteTVA = .F. && calculeaza note tva incasare pentru plati, incasari (5xx = xxx, xxx = 5xx)
		
		Select tact
		lnrecno = Recno()
		lnrecno1 = Recno()
		Locate For ales
		If Found()
			lcCond = [ales and (scc = '4428' or scd = '4428' or id_factd > 0 or id_factc > 0)]
		Else
			lcCond = "recno() = " + Alltrim(Str(m.lnrecno))
			*!*		LOCATE FOR !DELETED()
			*!*		IF !FOUND()
			*!*			lcCond = ".T."
			*!*		ENDIF
		Endif
		Select tact
		Scan For &lcCond
			Scatter Name m.loadd Fields Except ascd, ascc, ales, id_jtva_coloana, proc_tva, explicatie_tva
			lnSuma = suma
			loadd.tipnota = 1
			loadd.cu_tva = 1
			loadd.tva_incasare = 1
			Do Case
				Case m.loadd.scd = [4428]
					If m.loadd.scc <> [4427]
						loadd.scd = [4426]
						loadd.scc = [4428]
						loadd.pereched = m.loadd.nract
					Endif
					loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
		
					loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
					loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
		
				Case m.loadd.scc = [4428]
					If m.loadd.scd <> [4426]
						loadd.scd = [4428]
						loadd.scc = [4427]
						loadd.perechec = m.loadd.nract
					Endif
					loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
		
					loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
					loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
		
				Case !Empty(m.loadd.perechec) And Left(m.loadd.scd, 1) = '5'
					loadd.scd = [4428]
					loadd.scc = [4427]
					loadd.id_fact = Iif(m.loadd.id_factc > 0, m.loadd.id_factc, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
					loadd.id_factd = 0
					loadd.id_factc = 0
					llCalculeazaNoteTVA = m.llCalculeazaTVAEx
		
				Case !Empty(m.loadd.pereched) And Left(m.loadd.scc, 1) = '5'
					loadd.scd = [4426]
					loadd.scc = [4428]
					loadd.id_fact = Iif(m.loadd.id_factd > 0, m.loadd.id_factd, -5)	&&	pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
					loadd.id_factd = 0
					loadd.id_factc = 0
					llCalculeazaNoteTVA = m.llCalculeazaTVAEx
		
				Otherwise
					If Type('loFactura') = 'U'
						Local loFactura
						loFactura = cauta_facturaTVAEx()		&&	ocautare.prg
						If Isnull(m.loFactura)
							Exit
						Endif
					Endif
					If m.loFactura.tip = [CUMPARARE]				&&	CUMPARARE / VANZARE
						loadd.scd = [4426]
						loadd.scc = [4428]
						loadd.pereched = m.loFactura.nract
						loadd.perechec = 0
					Else
						loadd.scd = [4428]
						loadd.scc = [4427]
						loadd.pereched = 0
						loadd.perechec = m.loFactura.nract
					Endif
					loadd.id_fact = m.loFactura.id_fact
					loadd.id_factd = 0
					loadd.id_factc = 0
			Endcase
			loadd.id_partd = 0
			loadd.id_partc = 0
			loadd.partd = []
			loadd.partc = []
			If Nvl(m.gnIdSucursala, 0) <> 0
				loadd.id_sucursala = m.gnIdSucursala
				loadd.sucursala = m.gcFirma
			Endif
			Select tact
			lnrecno = Recno()
		
			If !m.llCalculeazaNoteTVA
				Append Blank
				Gather Name m.loadd
			Else
				Thisform.creeaza_note_tva_incasare('tact', m.loadd, m.lnSuma)
			Endif
		
			Select tact
			Goto m.lnrecno
		
		Endscan
		
		* Completez taxcode pentru inregistrarile TVA exigibil care nu au taxcode
		Select tact
		SCAN FOR EMPTY(NVL(taxcode,0)) AND ((scd = '4428' AND scc = '4427') OR (scd = '4426' AND scc = '4428'))
			Thisform.UpdateExplicatieSAFT()
		ENDSCAN 
		Goto m.lnRecno1
		
		Release m.loFactura
		This.SalveazaXml()
		Do nrord With 'tact'
		This.grid1.SetFocus
		This.grid1.Refresh
		This.grid_focus_prima_coloana()
	ENDPROC

	PROCEDURE do_cauta
		PARAMETERS tcCont
		LOCAL loCauta, loHash
		
		IF EMPTY(NVL(tcCont,''))
			RETURN
		ENDIF 
		*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
		loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
		IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
			loHash.SetValue('dDataDoc', tact.dataact)
		ENDIF 
		loCauta = CautPartenerContabilitate(loHash)
		
		RETURN loCauta
		
	ENDPROC

	PROCEDURE do_copie
		*!* 20.05.2011
		Local lnrecno, loadd
		Select tact
		lnRecno = Recno()
		Locate For ales
		If Found()
			lcCond = "ales"
		Else
			lcCond = "recno() = " + Alltrim(Str(lnRecno))
		ENDIF
		
		Select tact
		SCAN FOR &lcCond
			Scatter Name loadd Fields Except ales
			IF NVL(m.gnIdSucursala,0) <> 0
				loAdd.id_sucursala = m.gnIdSucursala
				loAdd.sucursala = m.gcFirma
			ENDIF 	
			lnrecno = RECNO()
			loadd.id_act = 0	&&	modificare	ROACONT v 2.4.4
			Append Blank
			Gather Name loadd
			GOTO lnRecno
		ENDSCAN 
		*!* 20.05.2011 ^
		*!* 08.08.2011
		This.SalveazaXml()
		*!* 08.08.2011 ^
		Thisform.CalculeazaTotal()
		
		Do nrord With 'tact'
		This.grid1.SetFocus 
		this.grid1.Refresh 
		this.grid_focus_prima_coloana()
	ENDPROC

	PROCEDURE do_copie_rul
		Local lnrecno, loadd
		Local lcRul, lnPagina
		
		lnPagina = thisform.pgfArticole.ActivePage
		lcRul = IIF(m.lnPagina = 1, 'trul', 'trul_obinv')
		
		SELECT (m.lcRul)
		Scatter Name loadd MEMO 
		IF NVL(m.gnIdSucursala,0) <> 0
			loAdd.id_sucursala = m.gnIdSucursala
			loAdd.sucursala = m.gcFirma
		ENDIF 	
		lnrecno = RECNO()
		IF m.lcRul = 'trul'
			loadd.id_rul = 0	&&	modificare	ROACONT v 2.4.4
		ELSE 
			loadd.id_rul_obinv = 0
		ENDIF 	
		Append Blank
		Gather Name loadd MEMO 
		
		This.SalveazaXml()
		
		Do nrord With (m.lcRul)
		IF m.lnPagina = 1
			This.pgfArticole.page1._grdfooter1.calcTotal()
			This.pgfArticole.page1.grdrulaje.SetFocus 
			this.pgfArticole.page1.grdrulaje.Refresh 
		ELSE
			This.pgfArticole.page2._grdfooter1.calcTotal()
			This.pgfArticole.page2.grdRulajeObinv.SetFocus 
			this.pgfArticole.page2.grdRulajeObinv.Refresh 
		ENDIF 	
		
		
		
	ENDPROC

	PROCEDURE do_import
	ENDPROC

	PROCEDURE do_modifica
		*!* 08.07.2013
		*!* marius.mutu
		*!* + tnIdItem: pentru cazul in care am mai multe x_item la fel (vezi nrord)
		
		*!* 26.02.2018
		*!* se inlocuieste valoarea pentru toate inregistrarile alese, optional
		
		PARAMETERS tcX_item, tcControl, tnIdItem, tcTabel
		*** tnIdItem (optional) in loc de tcX_item, in cazul in care am mai multe x_item la fel (vezi nrord)
		*** tcTabel (optional): tAct (implicit), trul
		
		LOCAL lcColoane, lcControl, lcFisier, lcIdAct, lcIdFis, lcPrimVal, lcReplace, lcVarAct, llAles
		LOCAL lnColoane, lnRecno, locauta, lcTabel
		Local lcFiltruOriginal, lcTitlu, lcTitluColoane, lcorder, lcschema
		Local lcfiltru, lcselect, i
		
		
		lcTabel = IIF(EMPTY(m.tcTabel), 'tact', LOWER(ALLTRIM(m.tcTabel)))
		
		lcControl = LOWER(ALLTRIM(tcControl))
		IF '.' $ tcControl
			lcControl = RIGHT(lcControl, LEN(lcControl) - AT('.', lcControl))
		ENDIF
		
		SELECT xitems
		IF !EMPTY(m.tnIdItem)
			LOCATE FOR id_item = m.tnIdItem
		ELSE
			LOCATE FOR ALLTRIM(x_item) = ALLTRIM(tcX_item)
		ENDIF
		IF !FOUND()
			RETURN
		ENDIF
		
		SCATTER NAME locauta MEMO 
		lcColoane = ALLTRIM(locauta.camp_lista)
		lcIdFis = ALLTRIM(locauta.id_fisier)
		lcFisier = ALLTRIM(locauta.fis_lista)
		lcVarAct = lcControl
		lcIdAct = lcIdFis
		
		lcselect = [select ] + lcColoane + [,] + lcIdFis + [ from ] + lcFisier
		lcfiltru = [1=2]
		lcschema = []
		lcorder = lcColoane
		lccoloane = lcColoane
		lcTitlu = PROPER(GETWORDNUM(locauta.label_item,1, ','))
		lnColoane = OCCURS([,], lcColoane)
		lcFiltruOriginal = [inactiv = 0]
		lcTitluColoane = ''
		IF m.lnColoane > 0
			FOR lnColoana = 1 TO lnColoane
				lcTitluColoane = lcTitluColoane + GETWORDNUM(loCauta.label_item, m.lnColoana, ',') + [, ]
			ENDFOR
		ENDIF
		locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFisier, .F., lcFiltruOriginal)	&& 11.07.2007
		
		IF gnButon = 1
			DO CASE 
				CASE m.lcTabel = 'tact'
					IF ',' $ lcColoane
						lcPrimVal = LEFT(lcColoane, AT(',', lcColoane) - 1)
					ELSE
						lcPrimVal = ALLTRIM(lcColoane)
					ENDIF
		
					IF 'nume_gestiune' $ LOWER(lcPrimVal)
						lcIdAct = [id_] + lcVarAct
					ENDIF
		
					SELECT tact
					lnRecno = RECNO()
					LOCATE FOR ales
					llAles = FOUND()
					GOTO m.lnRecno
					lcReplace = [replace ] + lcVarAct + [ with locauta.] + lcPrimVal + [,] + lcIdAct + [ with locauta.] + lcIdFis
					IF m.llAles AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?',4+32, _screen.Caption) = 6
						lcReplace = m.lcReplace + ' for ales'
					ENDIF 
		
					SELECT tact
					&lcReplace
					GOTO m.lnRecno
		
				CASE INLIST(m.lcTabel, 'trul', 'trul_obinv')
					SELECT (m.lcTabel)
		
					DO CASE 
						CASE m.lcControl = 'denumire'
							replace denumire with loCauta.denumire, id_articol with loCauta.id_articol, codmat WITH loCauta.codmat, ;
								codmatf WITH loCauta.codmatf, um WITH loCauta.um, um2 WITH loCauta.um2, cant_bax WITH loCauta.cant_Bax, ;
								id_subgrupa WITH loCauta.id_subgrupa, subgrupa WITH loCauta.subgrupa, id_grupa WITH loCauta.id_grupa, grupa WITH loCauta.grupa
		
						CASE m.lcControl = 'cgest'
							replace cgest with loCauta.cGest, id_gestiune with loCauta.id_gestiune, nume_gestiune WITH loCauta.nume_gestiune
						CASE m.lcControl = 'cgestc'
							replace cgestc with loCauta.cGest, id_gestiunec with loCauta.id_gestiune, nume_gestiunec WITH loCauta.nume_gestiune
						CASE m.lcControl = 'nrord'
							replace nrord with loCauta.nrord, id_lucrare with loCauta.id_lucrare
							
						CASE m.lcControl = 'nume_val'
							replace nume_val with loCauta.nume_val, id_valuta with loCauta.id_valuta
		
						CASE m.lcControl = 'sectie'
							replace sectie with loCauta.sectie, id_valuta with loCauta.id_sectie
						CASE m.lcControl = 'nresp'
							replace nresp with loCauta.nume, id_responsabil with loCauta.id_responsabil
						CASE m.lcControl = 'nrespc'
							replace nrespc with loCauta.nume, id_responsabilc with loCauta.id_responsabil
						CASE m.lcControl = 'part_rez'
							replace part_rez with loCauta.denumire, id_part_rez with loCauta.id_part
						CASE m.lcControl = 'nrord_rez'
							replace nrord_rez with loCauta.nrord, id_lucrare_rez with loCauta.id_lucrare
					ENDCASE 	
				
			ENDCASE 
		ENDIF
		
		RETURN locauta
		  
	ENDPROC

	PROCEDURE do_modifica_explicatie_tva
		If tact.cu_tva = 1
			*!*	modificare	ROACONT v 2.4.4
			If TYPE('tact.tipnota') = 'N' AND tact.tipnota = 1
				*!*	explicatii TVA exigibile din JC ( 1 ), JV ( 3 ) sau toate ( 5 )
				locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1),,,iif(tact.scc=[4428],1,iif(tact.scd=[4428],3,5)))
			Else
				locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
			Endif
			*!*		locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
			*!*	modificare	ROACONT v 2.4.4	^
			If !Empty(locauta.id_jtva_coloana)
				Select tact
				Replace id_jtva_coloana With locauta.id_jtva_coloana,explicatie_Tva With locauta.denumire,proc_tva With (locauta.cota_tva + 100) / 100
			Endif
		
			* Actualizez Cod Taxa SAFT in functie de Cota TVA
			Thisform.UpdateExplicatieSAFT()
		ENDIF
		
		
	ENDPROC

	PROCEDURE do_salvare
		*!*	24.10.2014
		*!*	marius.mutu
		*!*	actualizez xsets cu seturile utilizator dupa salvarea unui set
		
		Local loxSet As "oxSet"
		Local llModelNou, llNotaNoua, llNotaNouaDefinita, lnIdSet, lnOptiune, loSet, lcXMLNote
		Local lcModel, llSucces, lnIdSetModel
		*:Global Buton, gnButon, pnButon, pnIesire
		
		
		lnIdSet = Thisform.nid_set
		llNotaNoua = Thisform.lNotaNoua
		llNotaNouaDefinita = m.llNotaNoua And !Inlist(m.lnIdSet, 99998, 99999)
		llModelNou = .T. && salvare model nou
		
		*** MODIFICARE SET SAU SET NOU?
		*** Daca s-a incarcat o nota definita de utilizator
		*** salvez peste nota existenta sau creez o nota noua
		llModelNou = (Type('this.oSet') <> 'O')
		loSet = This.oSet
		
		loxSet = Createobject("oxSet", m.lnIdSet) && ocont2003.prg
		
		SELECT *, RECNO() as nr_nota FROM tact INTO CURSOR crsNoteTemp && completez campul nr_nota pentru ordonare
		loxSet.Cursor2Property("crsNoteTemp", "cXmlNote") && completez proprietatea cXmlNote
		USE IN (SELECT('crsNoteTemp'))
		
		*** Daca este un set existent, il salvez cu noile note, fara sa mai editez proprietatile
		IF !m.llModelNou 
			llSucces = loxSet.Save()
		ELSE 
			*** daca este un set nou editez proprietatile (nume, categorie, request) si apoi salvez
			loxSet.New()
			llSucces = loxSet.Edit()
		ENDIF 	
		
		If m.llSucces
			AMESSAGEBOX('Nota salvata cu succes',0+64,_screen.Caption)
		ELSE 
			RETURN m.llSucces
		ENDIF
		
		lnSucces = xdate() && actualizez xsets cu seturile utilizator
		
		*** Daca nu exista butonul Terminat (atunci cand apelez formularul din editare set), atunci salvez si ies din formular
		If !This.but_terMIN1.Visible
			gnButon = 3
			pnButon = 3
			Buton = 3
			pnIesire = 3
			If !This.lhide
				This.Release
			Else
				This.Hide
			Endif
		Endif
	ENDPROC

	PROCEDURE do_sterge
		*!* 14.07.2011
		*!* daca formularul se foloseste pentru creare nota fara predefinire, inregistrarile se sterge direct, fara verificari
		Local lnAn, lnLuna, lnCod, lnIdFact, llReferinteDocumente, llNotaNoua
		Local lcCond, lnRecno
		*!* 24.05.2011
		Select tact
		lnRecno = Recno()
		Locate For ales
		If Found()
			lcCond = "ales"
		Else
			lcCond = "recno() = " + Alltrim(Str(lnRecno))
		ENDIF
		
		*!* 14.07.2011
		llNotaNoua = this.lNotanoua && sunt in creare nota fara predefinire, nu in modificare nota din registrul jurnal
		*!* 14.07.2011 ^
		IF !m.llNotaNoua
			SELECT tAct
			LOCATE FOR &lcCond and !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0))
			IF FOUND()
				AMESSAGEBOX('Nu se pot sterge decat inregistrari din sucursala curenta!', 0+48, _screen.Caption)
				RETURN
			ENDIF 
		ENDIF 
		
		SELECT an, luna, cod, id_fact FROM tact WHERE .F. INTO CURSOR cReferinteVerificate READWRITE 
		
		SELECT tact
		SCAN FOR &lcCond
			lnAn = an
			lnLuna = luna
			lnCod = cod
			lnIdFact = id_fact
			IF !m.llNotaNoua
				WAIT WINDOW 'Verificare referinte ' + ALLTRIM(STR(m.lnIdFact)) + ' ...' NOWAIT 
				llReferinteDocumente = .F.
				SELECT cReferinteVerificate 
				LOCATE FOR an = lnAn AND luna = lnLuna AND cod = lnCod AND id_fact = lnIdFact
				IF !FOUND()
					llReferinteDocumente = ReferinteDocument(lnAn, lnLuna, lnCod, lnIdFact) && odocumente.prg
				ENDIF 	
				If llReferinteDocumente
					AMESSAGEBOX("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
					USE IN (SELECT('cReferinteVerificate'))
					RETURN
				ELSE 
					INSERT INTO cReferinteVerificate(an, luna, cod, id_fact) VALUES (lnAn, lnLuna, lnCod, lnIdFact)	 
				Endif
			ENDIF  && llNotaNoua
			
			Select tact
			DELETE
		ENDSCAN && lcCond	
		USE IN (SELECT('cReferinteVerificate'))
		*!* 24.05.2011 ^
		
		*!* 08.08.2011
		This.SalveazaXml()
		*!* 08.08.2011 ^
		
		Thisform.CalculeazaTotal()
		
		Select tact
		TRY 
			GOTO lnRecno
			SKIP -1 
		CATCH 
			GO TOP 
		ENDTRY 
		
		This.grid1.SetFocus
		 
	ENDPROC

	PROCEDURE do_sterge_rul
		Local lcRul
		Local lnPagina, lnRecno
		
		lnPagina = This.pgfArticole.ActivePage
		lcRul = IIF(m.lnPagina = 1, 'trul', 'trul_obinv')
		
		SELECT (lcRul)
		lnRecno = RECNO()
		DELETE 
		TRY 
			SKIP -1 
		CATCH 
			GO TOP 
		ENDTRY 
		
		This.SalveazaXml()
		
		Do nrord With m.lcRul
		
		IF m.lnPagina = 1
			This.pgfArticole.page1._grdfooter1.calcTotal()
			This.pgfArticole.page1.grdrulaje.SetFocus 
			this.pgfArticole.page1.grdrulaje.Refresh 
		ELSE
			This.pgfArticole.page2._grdfooter1.calcTotal()
			This.pgfArticole.page2.grdRulajeObinv.SetFocus 
			this.pgfArticole.page2.grdRulajeObinv.Refresh 
		ENDIF 	
		
	ENDPROC

	PROCEDURE do_verifica
		*!*	PARAMETERS tlClick, tccont, tcacont, tcColoana
		
		*!*	m.den=''
		*!*	ll_l=.f.
		
		*!*	IF EMPTY(tccont)
		*!*		RETURN ll_l
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva
		*!*	ENDIF
		
		*!*	lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ]
		*!*	lcCursor = 'tceva'
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*	SELECT tceva
		*!*	LOCATE 
		*!*	IF EOF()
		*!*		IF !EMPTY(tcAcont) AND !ISNULL(tcAcont)
		*!*			DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont
		*!*			ll_l=.t.
		*!*		ENDIF 
		*!*		
		*!*		IF USED('TCEVA')
		*!*			USE IN Tceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		this.grid1.SetFocus 
		*!*		RETURN ll_l
		*!*	ELSE 
		*!*		IF !tlClick
		*!*			IF empty(tcAcont)
		*!*				IF USED('TCEVA')
		*!*					USE IN Tceva 
		*!*				ENDIF 
		*!*				SELECT tact 
		*!*				this.grid1.SetFocus 
		*!*				RETURN ll_l
		*!*			ENDIF 
		*!*		ENDIF 
		*!*	ENDIF
		
		*!*	SELECT tceva
		*!*	IF tlClick
		*!*		DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*		SELECT tceva
		*!*		LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
		*!*		lcAcont = acont
		
		*!*		SELECT tact
		*!*		REPLACE &tcColoana WITH lcAcont
		*!*	ELSE 
		*!*		LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont)
		*!*		IF !FOUND()
		*!*			DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*			SELECT tceva
		*!*			LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
		*!*			lcAcont = acont
		
		*!*			SELECT tact
		*!*			REPLACE &tcColoana WITH lcAcont
		*!*		ENDIF 
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva 
		*!*	ENDIF  
		
		*!*	SELECT tact 
		*!*	this.grid1.SetFocus 
		*!*	RETURN ll_l
	ENDPROC

	PROCEDURE grid_focus_prima_coloana
		Local lnColumns, loColumn, loGrid, i
		Local lcColumn
		
		loGrid = this.grid1
		lnColumns = loGrid.ColumnCount 
		
		FOR i = 1 TO m.lnColumns
			lcColumn = 'loGrid.Column' + ALLTRIM(STR(i))
			loColumn = &lcColumn
			IF loColumn.columnOrder = 1
				EXIT 
			ENDIF 
		ENDFOR 
		loColumn.Setfocus()   
	ENDPROC

	PROCEDURE grid_sort_bind
		* nu sterge
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local lVerificAnalitic, lCompletezPartener, llNuVerificCont
		*!* 24.05.2011
		SELECT tact
		SET FILTER TO 
		*!* 24.05.2011 ^
		
		* se pare ca nu se salveaza id_set la notele fara predefinire?
		UPDATE tact SET id_set = This.nid_set WHERE EMPTY(NVL(id_set, 0))
		UPDATE trul SET id_set = This.nid_set WHERE EMPTY(NVL(id_set, 0))
		UPDATE trul_obinv SET id_set = This.nid_set WHERE EMPTY(NVL(id_set, 0))
		
		lVerificAnalitic = .T.
		lCompletezPartener = .F.
		*!* 13.03.2008
		*!*	modificare ROACONT v 2.0.110
		If INLIST(This.nid_set, 99998, 90024) && 99998 = NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC), 90024 = INITALIZARE FACTURI SOLDURI DIN PRELUARE
		*!*	If id_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)
		*!*	modificare ROACONT v 2.0.110	^
			llNuVerificCont = .T.
		Else 
			llNuVerificCont = .F.	
		EndIf 
		*!* 14.03.2008 - nu mai fac nici o verificare pentru notele 99998
		If !llNuVerificCont
			llRet = verificare_note_contabile('tact',lVerificAnalitic,lCompletezPartener,llNuVerificCont) && in oOperatii_comune
		Else 
			llRet = .T.
		EndIf 	
		*!* 14.03.2008 ^
		*!* 13.03.2008 ^
		*!*	modificare	v 2.4.4
		IF m.llRet
			If gnAn >= 2013
				Select tact
				Locate For ((scd = '4426' And scc = '4428') Or (scd='4428' And scc='4427')) And tipnota = 0 And id_act = 0
				If Found()
					llRet = Iif(amessagebox("Ati adaugat o nota 4426-4428 / 4428-4427 fara a folosi optiunea 'Adauga nota TVA devenit exigibil'." + CRLF + ;
						"Din aceasta cauza, este posibil ca inregistrarea sa nu se preia corect in Registrul de Cumparari / Vanzari." + CRLF + CRLF + ;
						"Doriti sa continuati?", 4+32, "Note 4426-4428/4428-4427")=6,.T.,.F.)
				Endif
			ENDIF
			If m.llRet
				llRet = This.VerificaAvertizareExigibilizareTVA()
			Endif
		ENDIF
		*!*	modificare	v 2.4.4	^
		RETURN m.llRet
		
		
		*!*	LOCAL lcInMesaj,lcInMesajP,lcInMesajIreg
		*!*	STORE '' TO lcInMesaj,lcInMesajP, lcInMesajIreg
		
		*!*	SELECT tact
		*!*	GO TOP
		*!*	lnId_set=id_set
		*!*	ll_return = .T.
		
		*!*	SELECT DISTINCT scd AS CONT FROM tact ;
		*!*		WHERE suma # 0 ;
		*!*		UNION ;
		*!*		SELECT DISTINCT scc AS CONT FROM tact ;
		*!*		WHERE suma # 0 ;
		*!*		INTO CURSOR tcont
		
		*!*	i = 0
		*!*	SELECT tcont
		*!*	SCAN
		*!*		i = i + 1
		*!*		IF i = 1
		*!*			lcLista = ALLTRIM(CONT)
		*!*		ELSE
		*!*			lcLista = lcLista + ',' + ALLTRIM(CONT)
		*!*		ENDIF
		*!*	ENDSCAN
		
		*!*	lcSql = 'select distinct c.cont as contpart, c.fel_cont, c.cu_inregistrari, c.explicatie as explic_cont,e.cont_c as exceptie, e.debit as pozitie, e.invers, 0 as gasit ' + ;
		*!*		'from ' + gcs + '.vcoresp_tip_cont c left join ' + gcs + '.exceptii_ireg e on c.cont = e.cont and e.invers = 1 ' + ;
		*!*		'where to_number(c.cont) in (' + lcLista + ')'
		*!*	lcCursor = 'verif_part'
		
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		*!*	IF lnSucces < 0
		*!*		MESSAGEBOX('Modificare:Verific completare id_part ' +goExecutor.cEroare,0+16,"Eroare")
		*!*	ENDIF
		
		*!*	IF lnSucces > 0
		*!*		IF RECCOUNT('verif_part') > 0
		*!*			SELECT tact
		*!*			SCAN FOR !EMPTY(suma)
		*!*				SCATTER NAME loCont
		*!*				SELECT verif_part
		*!*				LOCATE FOR contpart=loCont.scd
		*!*				IF FOUND()
		*!*					IF EMPTY(loCont.Id_partd) AND !(loCont.scd$lcInMesajP)
		*!*						lcInMesajP=lcInMesajP+','+loCont.scd
		*!*						REPLACE gasit WITH 1
		*!*					ENDIF
		
		*!*					IF EMPTY(loCont.pereched) AND cu_inregistrari = 1 AND fel_cont = 1 AND !(loCont.scd$lcInMesajIreg)
		*!*						LOCATE FOR contpart=loCont.scd AND exceptie = loCont.scc AND fel_cont = 1 AND pozitie = 0 AND invers = 1
		*!*						IF !FOUND()
		*!*							lcInMesajIreg = lcInMesajIreg + ',' + loCont.scd
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		
		*!*				SELECT verif_part
		*!*				LOCATE FOR contpart=loCont.scc
		*!*				IF FOUND()
		*!*					IF EMPTY(loCont.Id_partc) AND !(loCont.scc$lcInMesajP)
		*!*						lcInMesajP=lcInMesajP+','+loCont.scc
		*!*						REPLACE gasit WITH 1
		*!*					ENDIF
		*!*					IF cu_inregistrari = 1 AND fel_cont = 0 AND EMPTY(loCont.perechec) AND !(loCont.scc$lcInMesajIreg)
		*!*						LOCATE FOR contpart=loCont.scc AND exceptie = loCont.scd AND fel_cont = 0 AND pozitie = 1 AND invers = 1
		*!*						IF !FOUND()
		*!*							lcInMesajIreg = lcInMesajIreg + ',' + loCont.scc
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				SELECT tact
		*!*			ENDSCAN
		*!*		ENDIF
		*!*	ENDIF
		
		*!*	IF lnSucces > 0 AND !(lnId_set>90000 AND lnId_set<90010) && notele de inchidere se fac in functie de optiuni
		*!*		lcSql=[select CONT, ACONT FROM ] + gcs + [.vplcont_ANALITIC where inactiv = 0 and an = ?gnAn order by cont ]
		*!*		lcCursor = 'plcontana'
		*!*		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		
		*!*		IF lnSucces < 0
		*!*			MESSAGEBOX('Modificare:Verific completare analitic ' +goExecutor.cEroare,0+16,"Eroare")
		*!*		ENDIF
		
		*!*		IF lnSucces > 0
		*!*			SELECT tact
		*!*			SCAN FOR !EMPTY(suma)
		*!*				SCATTER NAME loCont
		*!*				IF EMPTY(loCont.ascd) OR ISNULL(loCont.ascd)
		*!*					SELECT plcontana
		*!*					LOCATE FOR ALLTRIM(CONT)=ALLTRIM(loCont.scd)
		*!*					IF FOUND()
		*!*						IF !(loCont.scd$lcInMesaj)
		*!*							lcInMesaj=lcInMesaj+','+loCont.scd
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				IF EMPTY(loCont.ascc) OR ISNULL(loCont.ascc)
		*!*					SELECT plcontana
		*!*					LOCATE FOR CONT=loCont.scc
		*!*					IF FOUND()
		*!*						IF !(loCont.scc$lcInMesaj)
		*!*							lcInMesaj=lcInMesaj+','+loCont.scc
		*!*						ENDIF
		*!*					ENDIF
		*!*				ENDIF
		*!*				SELECT tact
		*!*			ENDSCAN
		*!*			RELEASE loCont
		*!*		ENDIF
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesaj)
		*!*		DO mesaj WITH 'Nu ati completat simbolurile analitice pentru conturile:',lcInMesaj
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesajP)
		*!*		DO mesaj WITH 'Nu ati completat partenerii pentru conturile:', lcInMesajP
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF !EMPTY(lcInMesajIreg)
		*!*		DO mesaj WITH 'Nu ati completat doc. pereche pentru conturile:', lcInMesajIreg
		*!*		ll_return = .F.
		*!*	ENDIF
		
		*!*	IF USED('verif_part')
		*!*		USE IN verif_part
		*!*	ENDIF
		*!*	IF USED('plcontana')
		*!*		USE IN plcontana
		*!*	ENDIF
		*!*	IF USED('tcont')
		*!*		USE IN tcont
		*!*	ENDIF
		
		*!*	RETURN ll_return
		
		
		
	ENDPROC

	PROCEDURE Init
		*!* 05.12.2013
		*!* marius.mutu
		*!* adaugat parametru tlVizualizare - pentru verificarea din registrul jurnal
		*!* parametrul tlVizualizare poate avea atat valori logice (.T. = VIZUALIZARE, .F. = MODIFICARE/NOTA FARA PREDEFINIRE),
		*!* cat si valori numerice (1=VIZUALIZARE, 2 = MODIFICARE, 3 = VERIFICARENOTE)
		
		Lparameters tnIdSet, tlNotaNoua, toBackupXML, toSet, tlVizualizare
		DoDefault()
		
		*!*	modificare ROACONT v 2.0.110
		This.nid_set = tnIdSet
		*!* 14.07.2011
		This.lNotaNoua = tlNotaNoua && daca se apeleaza formularul din nota_fara_predefinire (ocont2003.prg)
		*!* 14.07.2011 ^
		
		This.lEditare = (Type('toSet.lEditare') = 'L' and toSet.lEditare) && In modul editare note definite de utilizator, arat doar butoanele Salvez si Renunt
		
		*!* 05.12.2013
		This.oBackupXML = toBackupXML
		This.oSet = m.toSet
		This.lVizualizare = .F.
		This.lModificare = .T.
		This.lVerificare = .F.
		
		If Pcount() >= 5
			If Type('tlVizualizare') = 'L'
				This.lVizualizare = m.tlVizualizare && default = MODIFICARE
			Else
				If Type('tlVizualizare') = 'N'
					Do Case
						Case m.tlVizualizare = 1
							This.lVizualizare = .T.
						Case m.tlVizualizare = 2
							This.lModificare = .T.
						Case m.tlVizualizare = 3
							This.lVerificare = .T.
					Endcase
				Endif && Type('tlVizualizare') = 'N'
			Endif && Type('tlVizualizare') = 'L'
		Endif
		
		Do Case
			Case This.lVerificare && verificarea notelor contabile (ex. nota inchidere imobilizari din inchidere.prg)
				This.lb_titlu_alb_b121.Caption = 'VERIFICARE'
			Case m.tlNotaNoua
				This.lb_titlu_alb_b121.Caption = 'NOTA FARA PREDEFINIRE'
		Endcase
		
		
		
		*** In modul editare note definite de utilizator, arat doar butoanele Salvez si Renunt
		This.but_termin1.Visible = !This.lEditare
		
		
		*!* 05.12.2013 ^
		
		
		*!*	modificare ROACONT v 2.0.110	^
		If Iif(Type('gnModificareIdSetSpe')='U',0,gnModificareIdSetSpe)=0 And ;
				(Between(tnIdSet,25000,25099) Or Inlist(tnIdSet,79,83,206,61,62,63,102,103,64,65,73,222,223,224,225,226,227,236,238,239,240) ;
				or Inlist(tnIdSet,252,255,258,259,260))
			Thisform.command4.Top = Thisform.command1.Top
			Thisform._shape2.Left = Thisform.but_renunT1.Left
			Thisform.command1.Visible = .F.
			Thisform.command2.Visible = .F.
			Thisform.RemoveObject('but_nou1')
			Thisform.RemoveObject('but_sterge1')
			*!*	modificare	19.09.2007
			*!*		Thisform.command3.Visible = .F.
			*!*		Thisform.cnomenclator.Visible = .F.
			*!*		Thisform.grid1.SetAll('Readonly',.T.,'Column')
			With Thisform.grid1
				.column4.ReadOnly = .T.
				.column6.ReadOnly = .T.
				.column10.ReadOnly = .T.
				.column5.ReadOnly = .T.
				.column37.ReadOnly = .T.
				.column9.ReadOnly = .T.
				.column15.ReadOnly = .T.
				.column34.ReadOnly = .T.
				.column20.ReadOnly = .T.
				.column29.ReadOnly = .T.
				.column21.ReadOnly = .T.
				.column22.ReadOnly = .T.
				.column32.ReadOnly = .T.
				.column12.ReadOnly = .T.
				.column25.ReadOnly = .T.
				.column30.ReadOnly = .T.
				.column31.ReadOnly = .T.
			Endwith
			*!*	modificare	19.09.2007	^
		Endif
		*!*	modificare	v 2.4.4
		If gnAn >= 2013
			Thisform.command5.Visible = .T.
			thisform.chkTVAEx.Visible = .T.
		Else
			Thisform.command5.Visible = .F.
			thisform.chkTVAEx.Visible = .F.	
		Endif
		*!*	modificare	v 2.4.4	^
		
		This.grid1.Anchor = 11
		This.but_renunt1.Anchor = 8
		
	ENDPROC

	PROCEDURE Load
		If !Used('saft_taxtable')
			update_saft_taxtable()
		ENDIF 	
		
		If !Used('saft_mecanisme_plati')
			update_saft_mecanisme_plati()
		ENDIF 	
	ENDPROC

	PROCEDURE Resize
		
		this.cmdSelect.Top = this.grid1.Top + this.grid1.Height
		this.lblSuma.Top = this.grid1.Top + this.grid1.Height
		this.txtSuma.Top = this.grid1.Top + this.grid1.Height
		
	ENDPROC

	PROCEDURE resize_grid1
		Local llAfiseazaRulaje
		
		llAfiseazaRulaje = this.pgfArticole.Visible
		this.grid1.Height = IIF(m.llAfiseazaRulaje, 284, this.Height - 100)
		this.cmdSelect.Top = this.grid1.Top + this.grid1.Height
		this.lblSuma.Top = this.grid1.Top + this.grid1.Height
		this.txtSuma.Top = this.grid1.Top + this.grid1.Height 
	ENDPROC

	PROCEDURE salveazaxml
		*!*	*** salvez doar notele fara predefinire
		*!*	If This.nid_set = 99998 && NOTE FARA PREDEFINIRE
		*!*		SaveCursor2XML('tact', 'notafarapredefinire') && oproceduri_comune.prg
		*!*	ENDIF 
		*!*	If This.nid_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)	
		*!*		SaveCursor2XML('tact', 'notafarapredefinire2')
		*!*	ENDIF 
		
		
		*** salvez doar notele fara predefinire
		Local loBackupXml
		IF INLIST(This.nid_set, 99998, 99999)
			loBackupXml = This.oBackupXMl
			IF TYPE('loBackupXml') = 'O'
				IF USED('tact')
					loBackupXML.SaveBackupSet("tact")
				ENDIF 
				IF USED('trul')
					loBackupXML.SaveBackupSet("trul")
				ENDIF 
				IF USED('trul_obinv')
					loBackupXML.SaveBackupSet("trul_obinv")
				ENDIF 
		
			ENDIF 
		ENDIF 	 
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle, tlMaximize
		Local lnHeight
		
		Select tact
		This.grid1.SetFocus
		*!* 24.05.2011
		
		
		
		this.gridextra1.setup()
		this.grid1.SetAll("dynamicbackcolor", "IIF(ALES, RGB(255,255,225), RGB(255,255,255))", "Column")
		This.CalculeazaTotal()
		*!* 24.05.2011 ^
		
		
		this.pgfArticole.page1._grdfooter1.attachtogrid(this.pgfArticole.page1.grdRulaje)
		this.pgfArticole.page1._grdfooter1.calcTotal()
		
		this.pgfArticole.page2._grdfooter1.attachtogrid(this.pgfArticole.page2.grdRulajeObinv)
		this.pgfArticole.page2._grdfooter1.calcTotal()
		
		This.Grid1.HeaderHeight = 37
		this.pgfArticole.page1.grdRulaje.HeaderHeight = 37
		this.pgfArticole.page2.grdRulajeObinv.HeaderHeight = 37
		
		This.grid1.column42.visible = m.gl406 && saft taxa
		This.grid1.column43.visible = m.gl406 && saft plata
		
		Thisform.but_modificaR.Enabled = .F.
		This.WindowState = 2
		
		* Ascund pageframe rulaje daca nu am rulaje
		IF RECCOUNT('trul') = 0 AND RECCOUNT('trul_obinv') = 0
			* pageframe rulaje este afisat
			* daca nu exista inregistrari in trul sau trul_obinv, ascund pageframe-ul rulaje
			* si maresc gridul cu note contabile
			This.afiseaza_rulaje()
		ENDIF 
		This.resize_grid1()
		
		
		
	ENDPROC

	PROCEDURE updateexplicatiesaft
		* Daca nu este activata SAFT 406 nu fac nimic
		IF !m.gl406
			RETURN
		ENDIF
		 
		Local loPartenerRTVAI As "empty"
		Local loPartenerRTVAIX As "empty"
		Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, llNeexigibil
		LOCAL ARRAY laNesosit[1]
		
		lcSelect = SELECT()
		
		
		ldDataAct = tAct.dataact
		lnIdJtva = tAct.id_jtva_coloana
		llFurnizorRTVAI = .F.
		lnIdPart = Nvl(tAct.id_partc, tAct.id_partd)
		lnIdSet = Thisform.nid_set
		
		* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
		llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
		llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
		
		SELECT COUNT(*) as nr FROM tAct WHERE LEFT(scd,3) = '418' OR LEFT(scc,3) = '408' INTO ARRAY laNesosit
		llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
		
		lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil)
		Replace taxcode With m.lnTaxCode In tAct
		
		This.grid1.column42._combobox1.ForeColor = RGB(255,0,0)
		This.grid1.column42.Refresh()
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE updateexplicatiesaftrul
		* Daca nu este activata SAFT 406 nu fac nimic
		IF !m.gl406
			RETURN
		ENDIF
		 
		Local loPartenerRTVAI As "empty"
		Local loPartenerRTVAIX As "empty"
		Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, llNeexigibil
		LOCAL ARRAY laNesosit[1]
		
		lcSelect = SELECT()
		
		
		ldDataAct = tAct.dataact
		lnIdJtva = trul.id_jtva_coloana
		llFurnizorRTVAI = .F.
		lnIdPart = Nvl(tAct.id_partc, tAct.id_partd)
		lnIdSet = Thisform.nid_set
		
		* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
		llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
		llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
		
		SELECT COUNT(*) as nr FROM tAct WHERE LEFT(scd,3) = '418' OR LEFT(scc,3) = '408' INTO ARRAY laNesosit
		llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
		
		lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil)
		Replace taxcode With m.lnTaxCode In tRul
		
		This.pgfArticole.page1.grdRulaje.cTaxCode.ForeColor = RGB(255,0,0)
		This.pgfArticole.page1.grdRulaje.cTaxCode.Refresh()
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE valideaza_data
		Lparameters tcTipData
		&& tcTipdata: dataact, dataireg
		
		Local lcTipData, llReturn
		lcTipData = Lower(Alltrim(tcTipData))
		
		llReturn=.T.
		Do Case
			Case lcTipData = 'dataireg'
				If !(Month(dataireg) = gnLuna And Year(dataireg) = gnAn)
					amessagebox("Data inregistrarii trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
					llReturn=.F.
				Endif
			Case lcTipData = 'dataact'
				If !((Month(dataact)<= gnLuna And Year(dataact) = gnAn) Or Year(dataact)<gnAn)
					amessagebox("Data act trebuie sa fie inainte sau in luna "+Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
					llReturn=.F.
				ELSE 
					If Empty(Nvl(datascad, {}))
						Replace datascad With Gomonth(dataact,1)
					ENDIF
				ENDIF 	
		Endcase
		
		Return llReturn
		 
	ENDPROC

	PROCEDURE VerificaAvertizareExigibilizareTVA
		Local llKillSwitch, lcValOpt, lcSql, lcCursor, lnSucces, lnNrFacturi, lcMesaj, lnRasp
		Local lnRecno, lnCntSalvat, lnJ
		Local Array laAlesOrig(1,2)
		
		If !(Type('tact.id_factd') = 'N' And Type('tact.id_factc') = 'N' And Type('tact.id_fact') = 'N' And Type('tact.tipnota') = 'N' And Type('tact.ales') = 'L' And Type('tact.scd') = 'C' And Type('tact.scc') = 'C')
			Return .T.
		Endif
		
		If This.lAvertizatExigibilizare
			Return .T.
		Endif
		
		Try
			llKillSwitch = (Alltrim(Nvl(getini(gcGeneralIniFile, 'tva', 'avertizare_exigibilizare'), '')) == '0')
			If !llKillSwitch And 'OINIT_OPTIUNI' $ Upper(Set('Procedure'))
				lcValOpt = ''
				If Used('crsOptiuniUtilizator')
					lcValOpt = Alltrim(Nvl(citeste_optiune_utilizator('RC_TVA_AVERT_EXIGIB'), ''))
				Endif
				If Empty(lcValOpt) And Used('crsOptiuni')
					lcValOpt = Alltrim(Nvl(citeste_optiune('RC_TVA_AVERT_EXIGIB'), ''))
				Endif
				llKillSwitch = (lcValOpt == '0')
			Endif
			If llKillSwitch
				Return .T.
			Endif
		Catch
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la citirea optiunii, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Return .T.
		Endtry
		
		Try
			Select Distinct id_factd As id_fact From tact Where id_factd > 0 And Left(Nvl(scc,''),1) = '5' Into Cursor crsCandidDTVAEx Readwrite
			Select Distinct id_factc As id_fact From tact Where id_factc > 0 And Left(Nvl(scd,''),1) = '5' Into Cursor crsCandidCTVAEx Readwrite
			Select id_fact From crsCandidDTVAEx Union Select id_fact From crsCandidCTVAEx Into Cursor crsCandidTVAEx Readwrite
			Use In crsCandidDTVAEx
			Use In crsCandidCTVAEx
		Catch
			If Used('crsCandidDTVAEx')
				Use In crsCandidDTVAEx
			Endif
			If Used('crsCandidCTVAEx')
				Use In crsCandidCTVAEx
			Endif
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la colectarea facturilor din nota, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Return .T.
		Endtry
		
		If Reccount('crsCandidTVAEx') = 0
			Use In crsCandidTVAEx
			Return .T.
		Endif
		
		Try
			Select Distinct id_fact From tact Where tipnota = 1 And id_fact > 0 Into Cursor crsAcopTVAEx Readwrite
			Select crsCandidTVAEx.id_fact From crsCandidTVAEx Left Join crsAcopTVAEx On crsCandidTVAEx.id_fact = crsAcopTVAEx.id_fact Where Isnull(crsAcopTVAEx.id_fact) Into Cursor crsNeacopTVAEx Readwrite
			Use In crsCandidTVAEx
			Use In crsAcopTVAEx
		Catch
			If Used('crsCandidTVAEx')
				Use In crsCandidTVAEx
			Endif
			If Used('crsAcopTVAEx')
				Use In crsAcopTVAEx
			Endif
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la suprimarea platilor acoperite, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Return .T.
		Endtry
		
		If Reccount('crsNeacopTVAEx') = 0
			Use In crsNeacopTVAEx
			Return .T.
		Endif
		
		If Type('goExecutor') <> 'O' Or goExecutor.nHandle <= 0
			Use In crsNeacopTVAEx
			Return .T.
		Endif
		
		lcSql = ;
			[SELECT id_fact FROM VJC2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
			[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0] + ;
			[ UNION SELECT id_fact FROM VJV2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
			[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0]
		lcCursor = Sys(2015)
		lnSucces = 0
		Try
			lnSucces = goExecutor.oExecute(lcSql, lcCursor, .F., '', 0, .F., .F., .F.)
		Catch
			lnSucces = -1
		Endtry
		
		If lnSucces < 0
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: interogare esuata - ' + Nvl(goExecutor.cEroare,''), 'VerificaAvertizareExigibilizareTVA')
			Endif
			Use In crsNeacopTVAEx
			If Used(lcCursor)
				Use In (lcCursor)
			Endif
			Return .T.
		Endif
		
		Try
			Select crsNeacopTVAEx.id_fact From crsNeacopTVAEx Inner Join (lcCursor) tvaex On crsNeacopTVAEx.id_fact = tvaex.id_fact Into Cursor crsFinalTVAEx Readwrite
		Catch
			If Type('goLog') = 'O'
				goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la intersectia locala, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
			Endif
			Use In crsNeacopTVAEx
			If Used(lcCursor)
				Use In (lcCursor)
			Endif
			Return .T.
		Endtry
		
		Use In crsNeacopTVAEx
		If Used(lcCursor)
			Use In (lcCursor)
		Endif
		
		lnNrFacturi = Reccount('crsFinalTVAEx')
		If lnNrFacturi = 0
			Use In crsFinalTVAEx
			Return .T.
		Endif
		
		Index On id_fact Tag id_fact
		
		lcMesaj = 'Exista ' + Transform(lnNrFacturi) + ' facturi cu TVA la incasare pentru care nu s-a adaugat nota de TVA exigibilizat.' + Chr(13) + Chr(13) + ;
			'Da = adaugati acum notele de TVA exigibilizat si ramaneti in formular, ca sa le verificati.' + Chr(13) + ;
			'Nu = continuati salvarea fara sa adaugati notele.' + Chr(13) + ;
			'Anulare = renuntati, nu salvati.'
		lnRasp = Amessagebox(lcMesaj, 3+32, 'TVA la incasare - exigibilizare')
		This.lAvertizatExigibilizare = (lnRasp <> 2)
		
		If lnRasp = 6
			Select tact
			lnRecno = Recno()
			lnCntSalvat = 0
			Dimension laAlesOrig(Reccount('tact'), 2)
			Scan
				lnCntSalvat = lnCntSalvat + 1
				laAlesOrig(lnCntSalvat, 1) = Recno()
				laAlesOrig(lnCntSalvat, 2) = ales
				Replace ales With (id_factd > 0 And Left(Nvl(scc,''),1) = '5' And Seek(id_factd, 'crsFinalTVAEx')) Or (id_factc > 0 And Left(Nvl(scd,''),1) = '5' And Seek(id_factc, 'crsFinalTVAEx'))
			Endscan
			Thisform.do_adauga_tva_exigibil()
			Select tact
			For lnJ = 1 To lnCntSalvat
				Try
					Go laAlesOrig(lnJ, 1)
					Replace ales With laAlesOrig(lnJ, 2)
				Catch
				Endtry
			Endfor
			Try
				Go lnRecno
			Catch
				Go Top
			Endtry
		Endif
		
		Use In crsFinalTVAEx
		
		Return (lnRasp = 7)
	ENDPROC

	PROCEDURE But_modificaR.Click
		Local lcRul
		
		lcRul = IIF(thisform.pgfArticole.ActivePage = 1, 'trul', 'trul_obinv')
		thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, m.lcRul) 
	ENDPROC

	PROCEDURE cmdSelect.Click
		Local lnRecno
		Select tAct
		lnRecno = Recno()
		
		If This.Caption = 'Selecteaza tot'
			Replace All ales With .T.
			This.Caption = 'Deselecteaza tot'
		Else
			Replace All ales With .F.
			This.Caption = 'Selecteaza tot'
		Endif
		
		Select tAct
		Try
			Goto m.lnRecno
		Catch
			Go Top
		Endtry
	ENDPROC

	PROCEDURE cnomenclator.Click
		thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Command1.Click
		Thisform.alege_partener("D")
		*!*	PRIVATE pcCont
		*!*	LOCAL lnIdPartd, lnrezultat,lnsucces
		
		*!*	Select tact
		*!*	pcCont = ALLTRIM(Nvl(tact.scd,''))
		*!*	If Empty(pcCont)
		*!*		Return
		*!*	ENDIF
		*!*	lnIdPartd = id_partd
		
		*!*	lnrezultat=0
		*!*	lnsucces=0
		*!*	lcSql="select count(*) from config_cont_ireg where cont = &pcCont"
		*!*	lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
		
		*!*	If lnsucces=1
		*!*		If lnrezultat>0
		*!*			locauta = Thisform.do_cauta(pcCont)
		*!*			If gnButon = 1
		*!*				lnid_part=locauta.id_part
		*!*				lcnume=Alltrim(locauta.nume)
		*!*				Select tact
		*!*				Replace id_partd With lnid_part, partd With lcnume
		*!*				IF lnIdPartd <> lnid_part
		*!*					Select tact
		*!*					Replace pereched WITH 0, id_factd WITH 0
		*!*				ENDIF 
		*!*			Endif
		*!*		Else
		*!*			AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
		*!*		Endif
		*!*	Else
		*!*		AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
		*!*	Endif
		
		
	ENDPROC

	PROCEDURE Command2.Click
		Thisform.alege_partener("C")
		
		*!*	PRIVATE pcCont
		*!*	Local lnIdPartc, lnrezultat,lnsucces
		
		*!*	Select tact
		*!*	pcCont = ALLTRIM(Nvl(tact.scc, ''))
		*!*	If Empty(pcCont)
		*!*		Return
		*!*	Endif
		*!*	lnIdPartc = id_partc
		*!*	lnrezultat=0
		*!*	lnsucces=0
		*!*	lcSql="select count(*) from config_cont_ireg where cont = ?pcCont"
		*!*	lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
		*!*	If lnsucces=1
		*!*		If lnrezultat>0
		*!*			locauta = Thisform.do_cauta(pcCont)
		*!*			If gnButon = 1
		*!*				lnid_part=locauta.id_part
		*!*				lcnume=Alltrim(locauta.nume)
		*!*				Select tact
		*!*				Replace id_partc With lnid_part, partc With lcnume
		*!*				IF lnIdPartc <> lnid_part
		*!*					Select tact
		*!*					Replace perechec WITH 0, id_factc WITH 0
		*!*				ENDIF 
		*!*			Endif
		*!*		ELSE
		*!*			AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
		*!*		ENDIF
		*!*	ELSE
		*!*			AMESSAGEBOX(goExecutor.oPrelucrareEroare(), 0 + 16 ,"Eroare")
		*!*	Endif
		
		
	ENDPROC

	PROCEDURE Command3.Click
		PARAMETERS tnFel
		LOCAL lcSel, lnRecno
		
		IF PCOUNT()<1
			tnFel = thisform.fel_compensare
		ENDIF
		
		tnFel = 1 && PASIV / DEBIT 401 = 5121
		
		lcSel = thisform.grid1.RecordSource
		SELECT (lcSel)
		SCATTER NAME odoc
		lnRecno = RECNO()
		&& 0 = ACTIV
		&& 1 = PASIV
		*thisform.aleg_document_pereche(tnFel,odoc)
		DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
		SELECT (m.lcSel)
		TRY 
			GOTO m.lnRecno
		CATCH 
			GO TOP 
		ENDTRY 	
		thisform.grid1.SetFocus
		RELEASE odoc 
	ENDPROC

	PROCEDURE Command4.Click
		Thisform.do_modifica_explicatie_tva()
	ENDPROC

	PROCEDURE Command5.Click
		Thisform.do_adauga_tva_exigibil()
	ENDPROC

	PROCEDURE Command6.Click
		PARAMETERS tnFel
		LOCAL lcSel, lnRecno
		
		IF PCOUNT()<1
			tnFel = thisform.fel_compensare
		ENDIF
		
		tnFel = 0 && ACTIV / CREDIT 5121 = 4111
		
		lcSel = thisform.grid1.RecordSource
		SELECT (lcSel)
		SCATTER NAME odoc
		lnRecno = RECNO()
		&& 0 = ACTIV
		&& 1 = PASIV
		*thisform.aleg_document_pereche(tnFel,odoc)
		DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
		SELECT (m.lcSel)
		TRY 
			GOTO m.lnRecno
		CATCH 
			GO TOP 
		ENDTRY 	
		thisform.grid1.SetFocus
		RELEASE odoc 
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		*!* 10.08.2011
		*!* marius.mutu
		*!* id-urile sunt readonly - nu se pot completa direct
		
		*!* 18.04.2013
		*!*	dezactivez butonul de copiere pentru inregistrarile TVA incasare
		*!*	sa nu se copie ID_FACT din greseala
		
		*!* 20.12.2013
		*!* se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
		
		*!* 07.05.2021
		*!* am adaugat buton separat document platit/incasat
		
		Lparameters nColIndex
		
		*** se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
		llReadOnly = !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0) OR Type('thisform.oSet') = 'O')
		
		This.SetAll("ReadOnly", m.llReadOnly, "Column")
		*!* 10.08.2011
		*** nu vreau sa completeze id-urile direct
		WITH This 
			.Column30.ReadOnly = .T. && id_partd
			.Column31.ReadOnly = .T. && id_partc
			.Column38.ReadOnly = .T. && id_fact
			.Column39.ReadOnly = .T. && id_factd
			.Column40.ReadOnly = .T. && id_factc
			.Column35.ReadOnly = .T. && cod
			.Column25.ReadOnly = .T. && id_set
		ENDWITH 
		*!* 10.08.2011 ^
		*!* pot selecta inregistrari din alte sucursale pentru operatiile de copiere, adaugare care 
		This.cAles.ReadOnly = .F.
		IF m.llReadOnly
			Thisform.cnomenclator.Enabled = .F.
			Thisform.command1.Enabled = .F.
			Thisform.command2.Enabled = .F.
			Thisform.command3.Enabled = .F. && PERECHE D
			Thisform.command6.Enabled = .F. && PERECHE C
			Thisform.command4.Enabled = .F.
			Thisform.command5.Enabled = .F.		&&	modificare	ROACONT	v 2.4.4
			thisform.chkTVAEx.Enabled = .F.	
		ELSE 			
			If Thisform.pncolumnorder = nColIndex
				Thisform.cnomenclator.Enabled = .T.
			Else
				Thisform.cnomenclator.Enabled = .F.
			Endif
		
			If tact.cu_tva = 1
				Thisform.command4.Enabled = .T.
			Else
				Thisform.command4.Enabled = .F.
			Endif
		
			Thisform.command3.Caption = [Doc. platit cont ]+ Alltrim(NVL(tact.scd,'')) + ;
				IIF(!EMPTY(tact.pereched), ' (' + ALLTRIM(TRANSFORM(tact.pereched)) + ')', '')
			Thisform.command3.Enabled = !(EMPTY(tact.id_partd) OR EMPTY(tact.scd))
		
			Thisform.command6.Caption = [Doc. incasat cont ]+ Alltrim(NVL(tact.scc,'')) + ;
				IIF(!EMPTY(tact.perechec), ' (' + ALLTRIM(TRANSFORM(tact.perechec)) + ')', '')
			Thisform.command6.Enabled = !(EMPTY(tact.id_partc) OR EMPTY(tact.scc))
		
		*!*		If [pereche]$Lower(Thisform.pccontrol)
		*!*			Thisform.command3.Enabled = .T.
		*!*			If [pereched]$Lower(Thisform.pccontrol)
		*!*				Thisform.fel_compensare  = 1
		*!*				Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scd,''))
		*!*			Else
		*!*				Thisform.fel_compensare  = 0
		*!*				Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scc,''))
		*!*			Endif
		*!*		Else
		*!*			Thisform.command3.Enabled = .F.
		*!*			Thisform.command3.Caption = [Nr.Doc.Pereche]
		*!*		ENDIF
		
			*!*	modificare	ROACONT	v 2.4.4
			*** activez butonul TVA Incasare doar pentru incasari/plati sau pentru linia de TVA incasare
			if tact.scc = [4428] or tact.scd = [4428] or tact.id_factd > 0 or tact.id_factc > 0
				Thisform.command5.Enabled = .T.
				thisform.chkTVAEx.Enabled = .T.
			else
				Thisform.command5.Enabled = .F.	
				thisform.chkTVAEx.Enabled = .F.		
			endif
			*!*	modificare	ROACONT	v 2.4.4	^	
		
			*** dezactivez butonul de copiere pentru inregistrarile TVA incasare
			*** sa nu se copie ID_FACT din greseala
			if (tact.scd = [4428] and tact.scc = [4427] and !empty(nvl(perechec,0))) or (tact.scd = [4426] and tact.scd = [4428] and !empty(nvl(pereched,0)))
				Thisform.but_copiaza1.Enabled = .F.
			else
				Thisform.but_copiaza1.Enabled = .T.	
			endif
		
		
		ENDIF && llReadOnly	
	ENDPROC

	PROCEDURE Grid1.BeforeRowColChange
		LPARAMETERS nColIndex
		IF thisform.pncolumnorder # nColIndex
			STORE [] TO thisform.pccontrol 
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		LOCAL lnIdPart
		lnIdPart = Thisform.alege_partener("C")
		IF NVL(lnIdPart,0) = 0
			REPLACE partc WITH "", id_partc WITH 0 IN tAct
		ENDIF 
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.LostFocus
		If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			If Empty(Nvl(tact.partc,''))
				Thisform.alege_partener("C", .T.)
			Endif
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column13.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		
	ENDPROC

	PROCEDURE Grid1.Column13.Text1.InteractiveChange
		thisform.command3.Click(1)
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pnid_item = 15
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column15.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pnid_item = 13
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column16.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x14'
		thisform.pnid_item = 14
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column17.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.Valid
		Local llValid
		llValid = thisform.valideaza_data("dataireg")
		IF !llValid
			RETURN 0
		ENDIF 	 
	ENDPROC

	PROCEDURE Grid1.Column20.Text1.LostFocus
		SELECT tact
		IF !EMPTY(suma_val) OR !EMPTY(curs)
			REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column21.Text1.LostFocus
		SELECT tact
		IF !EMPTY(suma_val) OR !EMPTY(curs)
			REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column22.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pnid_item = 9
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column22.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.LostFocus
		Parameters PlClick
		Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
		Select tAct
		lcCont = Alltrim(scd)
		lcAcont = Alltrim(ascd)
		lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
		lnRecno = Recno('tAct')
		
		llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascd', 'tact') && in oOperatii_comune.prg
		
		If m.llReturn
			Select tAct
			lcAcont = Alltrim(tAct.ascd) && se poate modifica dupa ce verific_analitic()
			Locate For ales
			IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
				Replace All ascd With m.lcAcont For ales And Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
			ELSE 	
				If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
					Replace All ascd With m.lcAcont For Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
				ENDIF
			ENDIF 	
			Goto lnRecno
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column23.Text1.When
		Thisform.cAcont = tAct.ascd
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.LostFocus
		Parameters PlClick
		Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
		Select tAct
		lcCont = Alltrim(scc)
		lcAcont = Alltrim(ascc)
		lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
		lnRecno = Recno('tAct')
		
		llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascc', 'tact') && in oOperatii_comune.prg
		
		If m.llReturn
		
			Select tAct
			lcAcont = Alltrim(tAct.ascc) && se poate modifica dupa ce verific_analitic()
			Locate For ales
			IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
				Replace All ascc With m.lcAcont For ales And Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
			ELSE 	
				If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
					Replace All ascc With m.lcAcont For Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
				ENDIF
			ENDIF 	
			Goto lnRecno
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column24.Text1.When
		Thisform.cAcont = tAct.ascc
	ENDPROC

	PROCEDURE Grid1.Column27.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
	ENDPROC

	PROCEDURE Grid1.Column27.Text1.InteractiveChange
		thisform.command6.Click(0)
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x16'
		thisform.pnid_item = 16
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column28.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x11'
		thisform.pnid_item = 11
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column29.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x2'
		thisform.pnid_item = 2
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.LostFocus
		*thisform.cnomenclator.Enabled = .F. 
		IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			IF EMPTY(NVL(tact.fdoc,''))
				locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x10'
		thisform.pnid_item = 10
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.GotFocus
		*!* 08.02.2007 sa nu se modifice sucursala - se seteaza automat in baza de date in oscrie_in_fisiere.prg
		
		*!*	SELECT x_item FROM xitems WHERE ALLTRIM(UPPER(label_item)) == 'SUCURSALA' INTO CURSOR crsItem
		*!*	SELECT crsItem
		*!*	IF RECCOUNT() = 0 OR EMPTY(x_item)
		*!*		thisform.pcx_item = 'x29' && XITEM DIN CONTABILITATE
		*!*	ELSE
		*!*		thisform.pcx_item = x_item && 'x32' IN XITEM DIN GESTIUNI
		*!*	ENDIF 
		*!*	USE IN crsItem
		
		*!*	thisform.pccontrol = ALLTRIM(this.ControlSource)
		*!*	thisform.pncolumnorder = this.Parent.ColumnOrder 
		
		*!* 08.02.2007 ^
		*!* 24.05.2011
		*!* marius.mutu
		*!* in pack_contafin.scrie_in_act nu se mai suprascrie id_sucursala completat
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x31'
		thisform.pnid_item = 68
		thisform.pncolumnorder = this.Parent.ColumnOrder 
		*!* 24.05.2011 ^
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.InteractiveChange
		*!* 24.05.2011
		*!* marius.mutu
		*!* se poate modifica sucursala doar daca sunt in mama
		*!* altfel nu se refac corect balantele, inregistrarile
		IF m.glEMama
			locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
		ENDIF 	
		*!* 24.05.2011 ^
		
	ENDPROC

	PROCEDURE Grid1.Column33.Text1.When
		*!* 24.05.2011
		*!* marius.mutu
		*!* se poate modifica sucursala doar daca sunt in mama
		*!* altfel nu se refac corect balantele, inregistrarile
		RETURN m.glEMama
		*!* 24.05.2011 ^
	ENDPROC

	PROCEDURE Grid1.Column34.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x70'
		thisform.pnid_item = 70
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE Grid1.Column34.Text1.InteractiveChange
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
	ENDPROC

	PROCEDURE Grid1.Column35.Text1.InteractiveChange
		Thisform.do_modifica_explicatie_tva()
	ENDPROC

	PROCEDURE Grid1.Column36._CHECKBOX1.Click
		If tact.cu_tva = 1
			Thisform.command4.Enabled = .T.
		Else
			Thisform.command4.Enabled = .F.
			Replace id_jtva_coloana With NULL, explicatie_Tva With '', proc_tva With 0, taxcode WITH NULL IN tact
		ENDIF
		
	ENDPROC

	PROCEDURE Grid1.Column36._CHECKBOX1.KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode=13
			Nodefault
			This.Parent.Parent.column26.SetFocus()
		
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.Valid
		Local llValid
		llValid = thisform.valideaza_data("dataact")
		IF !llValid
			RETURN 0
		ENDIF 	 
	ENDPROC

	PROCEDURE Grid1.Column42._combobox1.Valid
		Local lnTaxCodeNou, lnTaxCodeOriginal, lnRecno
		
		Select tact
		lnRecno = Recno()
		
		lnTaxCodeOriginal = thisform.nTaxCode
		lnTaxCodeNou = tAct.taxcode
		
		If NVL(m.lnTaxCodeNou,0) <> NVL(m.lnTaxCodeOriginal,0)
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de taxa "' + TRANSFORM(m.lnTaxCodeOriginal) + '" in toate inregistrarile selectate cu codul "' + TRANSFORM(m.lnTaxCodeNou) + '"?' ,4+32,_Screen.Caption) = 6	       
				Select tact
				Replace taxcode With m.lnTaxCodeNou For NVL(taxcode,0) = NVL(m.lnTaxCodeOriginal,0) And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN .T.
	ENDPROC

	PROCEDURE Grid1.Column42._combobox1.When
		Thisform.nTaxCode = tAct.taxcode
	ENDPROC

	PROCEDURE Grid1.Column43._combobox1.LostFocus
		This.ForeColor = RGB(0,0,0)
		
		
	ENDPROC

	PROCEDURE Grid1.Column43._combobox1.Valid
		Local lcPaymentCodeNou, lcPaymentCodeOriginal, lnRecno
		
		Select tact
		lnRecno = Recno()
		
		lcPaymentCodeOriginal = thisform.cPaymentCode
		lcPaymentCodeNou = ALLTRIM(tAct.paymentcode)
		
		If NVL(m.lcPaymentCodeNou, '') <> NVL(m.lcPaymentCodeOriginal, '')
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de plata "' + m.lcPaymentCodeOriginal + '" in toate inregistrarile selectate cu codul "' + m.lcPaymentCodeNou + '"?' ,4+32,_Screen.Caption) = 6	       
				Select tact
				Replace paymentcode With m.lcPaymentCodeNou For Alltrim(NVL(paymentcode,'')) = ALLTRIM(NVL(m.lcPaymentCodeOriginal, '')) And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN .T.
	ENDPROC

	PROCEDURE Grid1.Column43._combobox1.When
		thisform.cPaymentCode = ALLTRIM(tAct.paymentcode)
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		LOCAL lnIdPart
		lnIdPart = Thisform.alege_partener("D")
		IF NVL(lnIdPart,0) = 0
			REPLACE partd WITH "", id_partd WITH 0 IN tAct
		ENDIF 
		
		REMOVEPROPERTY(this, 'lInteractiveChange')
		
		
		
		
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.LostFocus
		If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			If Empty(Nvl(tact.partd,''))
				Thisform.alege_partener("D", .T.)
			Endif
		Endif
		
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.LostFocus
		Local lcContNou, lcContOriginal, llReturn, lnRecno
		lcContOriginal = Thisform.cCont
		lcContNou = Alltrim(scd)
		If Empty(m.lcContNou)
			Return
		Endif
		llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
		IF !m.llReturn
			RETURN m.llReturn
		ENDIF 
		Select tact
		lnRecno = Recno()
		lcContNou = Alltrim(scd) && se poate modifica dupa verificarea in planul de conturi
		If m.lcContNou <> m.lcContOriginal
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6	       
				Select tact
				Replace scd With m.lcContNou For Alltrim(scd) = m.lcContOriginal And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN m.llReturn
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.When
		Thisform.cCont = ALLTRIM(tact.scd)
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.LostFocus
		Local lcContNou, lcContOriginal, llReturn, lnRecno
		lcContOriginal = Thisform.cCont
		lcContNou = Alltrim(scc)
		If Empty(m.lcContNou)
			Return
		Endif
		llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
		IF !m.llReturn
			RETURN m.llReturn
		ENDIF 
		Select tact
		lnRecno = Recno()
		lcContNou = Alltrim(scc) && se poate modifica dupa verificarea in planul de conturi
		If m.lcContNou <> m.lcContOriginal
			Locate For ales
			If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6
				Select tact
				Replace scc With m.lcContNou For Alltrim(scc) = m.lcContOriginal And ales
			Endif
		
			Goto m.lnRecno
		ENDIF
		
		RETURN m.llReturn
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.When
		Thisform.cCont = ALLTRIM(tact.scc)
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.Valid
		IF this.Value <> thisform.nOldSuma
			Thisform.CalculeazaTotal()
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.When
		Thisform.nOldSuma = this.Value 
	ENDPROC

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

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

	PROCEDURE pgfArticole.PAGE1.grdRulaje.AfterRowColChange
		Lparameters nColIndex
		
		If Thisform.pncolumnorder = nColIndex
			Thisform.but_modificaR.Enabled = .T.
		Else
			Thisform.but_modificaR.Enabled = .F.
		Endif
		
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.BeforeRowColChange
		LPARAMETERS nColIndex
		IF thisform.pncolumnorder # nColIndex
			STORE [] TO thisform.pccontrol 
		ENDIF 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cCant.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cCant.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cCante.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cCante.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cDenumire.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = ''
		thisform.pnid_item = 101
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cDenumire.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cDenumire.Text1.LostFocus
		IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			IF EMPTY(NVL(trul.denumire,''))
				locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cExplicatieTVA._combobox1.Valid
		Thisform.UpdateExplicatieSAFTRul()
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cGest.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pnid_item = 9
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cGest.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cGest.Text1.LostFocus
		IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			IF EMPTY(NVL(trul.cgest,''))
				locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cGestC.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pnid_item = 9
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cGestC.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNresp.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pnid_item = 13
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNresp.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrespC.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pnid_item = 13
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrespC.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pnid_item = 15
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pnid_item = 15
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNume_val.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x11'
		thisform.pnid_item = 11
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cNume_val.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = ''
		thisform.pnid_item = 102
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPret.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPret.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretv.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretv.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cSectie.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x16'
		thisform.pnid_item = 16
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cSectie.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cTva.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cTva.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cTvav.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.cTvav.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE1.grdRulaje.Init
		*Nu sterge
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.AfterRowColChange
		Lparameters nColIndex
		
		If Thisform.pncolumnorder = nColIndex
			Thisform.but_modificaR.Enabled = .T.
		Else
			Thisform.but_modificaR.Enabled = .F.
		Endif
		
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.BeforeRowColChange
		LPARAMETERS nColIndex
		IF thisform.pncolumnorder # nColIndex
			STORE [] TO thisform.pccontrol 
		ENDIF 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = ''
		thisform.pnid_item = 101
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1.LostFocus
		IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			IF EMPTY(NVL(trul_obinv.denumire,''))
				locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pnid_item = 9
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1.LostFocus
		IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
			IF EMPTY(NVL(trul_obinv.cgest,''))
				locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x9'
		thisform.pnid_item = 9
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pnid_item = 13
		thisform.pncolumnorder = this.Parent.ColumnOrder
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x13'
		thisform.pnid_item = 13
		thisform.pncolumnorder = this.Parent.ColumnOrder
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pnid_item = 15
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x15'
		thisform.pnid_item = 15
		thisform.pncolumnorder = this.Parent.ColumnOrder
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x11'
		thisform.pnid_item = 11
		thisform.pncolumnorder = this.Parent.ColumnOrder 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = ''
		thisform.pnid_item = 102
		thisform.pncolumnorder = this.Parent.ColumnOrder
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1.GotFocus
		thisform.pccontrol = ALLTRIM(this.ControlSource)
		thisform.pcx_item = 'x16'
		thisform.pnid_item = 16
		thisform.pncolumnorder = this.Parent.ColumnOrder
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1.InteractiveChange
		ADDPROPERTY(this, 'lInteractiveChange')
		locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
		REMOVEPROPERTY(this, 'lInteractiveChange')
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1.Valid
		IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
			Thisform.calculeaza_valori_rul(this.ControlSource)
			thisform.oldvalue = this.Value 
		ENDIF 	
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1.When
		thisform.oldvalue = this.Value 
	ENDPROC

	PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.Init
		*Nu sterge
	ENDPROC

ENDDEFINE
