*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="comun.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS afisjurcom 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="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cScd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cScd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cAscd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cAscd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cScc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cScc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cAscc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cAscc.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.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.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column38.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.Column38.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cValidat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cValidat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cDataV.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cDataV.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cUtilV.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cUtilV.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cIdFact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cIdFact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cIdFactD.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cIdFactD.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cIdFactC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cIdFactC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalD.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalD.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cCodFiscalC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cLuna.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cLuna.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cAn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cAn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cBancaD.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cBancaD.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cContBancaD.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cContBancaD.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cBancaC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cBancaC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cContBancaC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cContBancaC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cTaxCode.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cTaxCode.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cSaftProcent.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cSaftProcent.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cPaymentCode.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cPaymentCode.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cRegistru.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_GRID1.cRegistru.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_total" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="but_validare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_help1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: calculeaza_total
		*m: do_validare
		*m: e_in_vanzari
		*p: cvaluta
		*p: eactan
		*p: ncurs
		*p: nsuma
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		Caption = "Form"
		cgridsortlist = _grid1
		cvaluta = 
		DoCreate = .T.
		eactan = .F.
		Height = 465
		Name = "afisjurcom"
		ncurs = 0
		nsuma = 0
		Width = 795
		WindowState = 2
		WindowType = 1
		_shape1.Anchor = 11
		_shape1.Comment = "*:OnResize=ST"
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 796
		_shape2.Anchor = 9
		_shape2.Comment = "*:OnResize=RT"
		_shape2.Height = 29
		_shape2.Left = 780
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 31
		Lb_titlu_alb_b121.Caption = "REGISTRUL JURNAL"
		Lb_titlu_alb_b121.Comment = "*:OnResize=LT"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.FontName = "Arial"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 49
		Lb_titlu_alb_b121.Top = 1
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Comment = "*:OnResize=RT"
		BUT_TERMIN1.Height = 27
		BUT_TERMIN1.Left = 766
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 45
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.Width = 30
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_GRID1' AS _grid WITH ;
		Anchor = 15, ;
		ColumnCount = 57, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 394, ;
		HighlightStyle = 2, ;
		Left = 1, ;
		Name = "_GRID1", ;
		Panel = 1, ;
		RecordSource = "actjur", ;
		RowHeight = 19, ;
		TabIndex = 38, ;
		Top = 36, ;
		Width = 792, ;
		Column1.ControlSource = "nrcrt()", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.ForeColor = 0,0,0, ;
		Column1.Name = "Column1", ;
		Column1.Width = 42, ;
		Column2.ControlSource = "fdoc", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.ForeColor = 0,0,0, ;
		Column2.Name = "Column2", ;
		Column2.Width = 91, ;
		Column3.ControlSource = "dataireg", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.ForeColor = 0,0,0, ;
		Column3.Name = "Column3", ;
		Column3.Width = 76, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "dataact", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.ForeColor = 0,0,0, ;
		Column4.Name = "Column4", ;
		Column4.Width = 74, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "nract", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.ForeColor = 0,0,0, ;
		Column5.Name = "Column5", ;
		Column5.Width = 101, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "partD", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.ForeColor = 0,0,0, ;
		Column6.Name = "Column6", ;
		Column6.Width = 164, ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "partC", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.ForeColor = 0,0,0, ;
		Column7.Name = "Column7", ;
		Column7.Width = 142, ;
		Column8.ColumnOrder = 11, ;
		Column8.ControlSource = "explicatia", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.ForeColor = 0,0,0, ;
		Column8.Name = "Column8", ;
		Column8.Width = 135, ;
		Column9.ColumnOrder = 12, ;
		Column9.ControlSource = "scd", ;
		Column9.FontBold = .T., ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.ForeColor = 0,0,0, ;
		Column9.Name = "cScd", ;
		Column9.Width = 44, ;
		Column10.ColumnOrder = 13, ;
		Column10.ControlSource = "ascd", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.ForeColor = 0,0,0, ;
		Column10.Name = "cAscd", ;
		Column10.Width = 42, ;
		Column11.ColumnOrder = 14, ;
		Column11.ControlSource = "scc", ;
		Column11.FontBold = .T., ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.ForeColor = 0,0,0, ;
		Column11.Name = "cScc", ;
		Column11.Width = 44, ;
		Column12.ColumnOrder = 15, ;
		Column12.ControlSource = "ascc", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.ForeColor = 0,0,0, ;
		Column12.Name = "cAscc", ;
		Column12.Width = 44, ;
		Column13.ColumnOrder = 16, ;
		Column13.ControlSource = "suma", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.ForeColor = 0,0,0, ;
		Column13.Format = "R", ;
		Column13.InputMask = (get_mask(12,gnPA)), ;
		Column13.Name = "Column13", ;
		Column13.Width = 104, ;
		Column14.ColumnOrder = 17, ;
		Column14.ControlSource = "nrord", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.ForeColor = 0,0,0, ;
		Column14.Name = "Column14", ;
		Column14.Width = 108, ;
		Column15.ColumnOrder = 19, ;
		Column15.ControlSource = "iif(!empty(nvl(perecheD,0)), transform(perecheD) + iif(!empty(nvl(dataactD, {})), ' ' + transform(dataactD), ''), '')", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.ForeColor = 0,0,0, ;
		Column15.Name = "Column15", ;
		Column15.Width = 95, ;
		Column16.ColumnOrder = 20, ;
		Column16.ControlSource = "iif(!empty(nvl(perecheC,0)), transform(perecheC) + iif(!empty(nvl(dataactC, {})), ' ' + transform(dataactC), ''), '')", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.ForeColor = 0,0,0, ;
		Column16.Name = "Column16", ;
		Column16.Width = 120, ;
		Column17.ColumnOrder = 26, ;
		Column17.ControlSource = "datascad", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.ForeColor = 0,0,0, ;
		Column17.Name = "Column17", ;
		Column17.Width = 87, ;
		Column18.ColumnOrder = 27, ;
		Column18.ControlSource = "nnir", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.ForeColor = 0,0,0, ;
		Column18.Name = "Column18", ;
		Column18.Width = 100, ;
		Column19.ColumnOrder = 28, ;
		Column19.ControlSource = "nresp", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.ForeColor = 0,0,0, ;
		Column19.Name = "Column19", ;
		Column19.Width = 135, ;
		Column20.ColumnOrder = 29, ;
		Column20.ControlSource = "dst_chlt", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.ForeColor = 0,0,0, ;
		Column20.Name = "Column20", ;
		Column20.Width = 82, ;
		Column21.ColumnOrder = 30, ;
		Column21.ControlSource = "suma_val", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.ForeColor = 0,0,0, ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(12,gnPVal)), ;
		Column21.Name = "Column21", ;
		Column21.Width = 93, ;
		Column22.ColumnOrder = 31, ;
		Column22.ControlSource = "nume_val", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.ForeColor = 0,0,0, ;
		Column22.Name = "Column22", ;
		Column22.Width = 52, ;
		Column23.ColumnOrder = 32, ;
		Column23.ControlSource = "curs", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.ForeColor = 0,0,0, ;
		Column23.InputMask = (get_mask(12,gnPcurs)), ;
		Column23.Name = "Column23", ;
		Column23.Width = 65, ;
		Column24.ColumnOrder = 37, ;
		Column24.ControlSource = "sectie", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.ForeColor = 0,0,0, ;
		Column24.Name = "Column25", ;
		Column24.Width = 105, ;
		Column25.ColumnOrder = 21, ;
		Column25.ControlSource = "proc_tva", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.ForeColor = 0,0,0, ;
		Column25.InputMask = "99.99", ;
		Column25.Name = "Column26", ;
		Column25.Width = 58, ;
		Column26.ColumnOrder = 44, ;
		Column26.ControlSource = "cod", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.ForeColor = 0,0,0, ;
		Column26.Name = "Column27", ;
		Column26.Width = 111, ;
		Column27.ColumnOrder = 39, ;
		Column27.ControlSource = "util", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.ForeColor = 0,0,0, ;
		Column27.Name = "Column28", ;
		Column27.Width = 129, ;
		Column28.ColumnOrder = 40, ;
		Column28.ControlSource = "dataora", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.ForeColor = 0,0,0, ;
		Column28.Name = "Column29", ;
		Column28.Width = 121, ;
		Column29.ColumnOrder = 41, ;
		Column29.ControlSource = "utils", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.ForeColor = 0,0,0, ;
		Column29.Name = "Column30", ;
		Column29.Width = 111, ;
		Column30.ColumnOrder = 42, ;
		Column30.ControlSource = "dataoras", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.ForeColor = 0,0,0, ;
		Column30.Name = "Column31", ;
		Column30.Width = 103, ;
		Column31.ColumnOrder = 43, ;
		Column31.ControlSource = "id_set", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.ForeColor = 0,0,0, ;
		Column31.Name = "Column32", ;
		Column32.ColumnOrder = 38, ;
		Column32.ControlSource = "sucursala", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.ForeColor = 0,0,0, ;
		Column32.Name = "Column33", ;
		Column32.Width = 164, ;
		Column33.ColumnOrder = 33, ;
		Column33.ControlSource = "explicatia4", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.ForeColor = 0,0,0, ;
		Column33.Name = "Column34", ;
		Column33.Width = 116, ;
		Column34.ColumnOrder = 34, ;
		Column34.ControlSource = "explicatia5", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.ForeColor = 0,0,0, ;
		Column34.Name = "Column35", ;
		Column34.Width = 116, ;
		Column35.ColumnOrder = 35, ;
		Column35.ControlSource = "GESTIN", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.ForeColor = 0,0,0, ;
		Column35.Name = "Column36", ;
		Column35.Width = 114, ;
		Column36.ColumnOrder = 36, ;
		Column36.ControlSource = "GESTOUT", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.ForeColor = 0,0,0, ;
		Column36.Name = "Column37", ;
		Column36.Width = 89, ;
		Column37.ColumnOrder = 18, ;
		Column37.ControlSource = "contract", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.ForeColor = 0,0,0, ;
		Column37.Name = "Column24", ;
		Column37.Width = 105, ;
		Column38.ColumnOrder = 22, ;
		Column38.ControlSource = "explicatie_tva", ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.ForeColor = 0,0,0, ;
		Column38.Name = "Column38", ;
		Column38.Width = 158, ;
		Column39.ColumnOrder = 5, ;
		Column39.ControlSource = "serie_act", ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.ForeColor = 0,0,0, ;
		Column39.Name = "cSerie_act", ;
		Column39.Width = 63, ;
		Column40.ColumnOrder = 45, ;
		Column40.ControlSource = "iif(validat = 0, 'NU', 'DA')", ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.ForeColor = 0,0,0, ;
		Column40.Name = "cValidat", ;
		Column40.Width = 44, ;
		Column41.ColumnOrder = 46, ;
		Column41.ControlSource = "dataorav", ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.ForeColor = 0,0,0, ;
		Column41.Name = "cDataV", ;
		Column41.Width = 100, ;
		Column42.ColumnOrder = 47, ;
		Column42.ControlSource = "utilv", ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.ForeColor = 0,0,0, ;
		Column42.Name = "cUtilV", ;
		Column42.Width = 108, ;
		Column43.ColumnOrder = 48, ;
		Column43.ControlSource = "id_Fact", ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.Name = "cIdFact", ;
		Column43.Width = 71, ;
		Column44.ColumnOrder = 49, ;
		Column44.ControlSource = "id_factd", ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.Name = "cIdFactD", ;
		Column44.Width = 73, ;
		Column45.ColumnOrder = 50, ;
		Column45.ControlSource = "id_factc", ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Name = "cIdFactC", ;
		Column45.Width = 77, ;
		Column46.ColumnOrder = 8, ;
		Column46.ControlSource = "cod_fiscald", ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cCodFiscalD", ;
		Column46.Width = 94, ;
		Column47.ColumnOrder = 10, ;
		Column47.ControlSource = "cod_fiscalc", ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Name = "cCodFiscalC", ;
		Column47.Width = 73, ;
		Column48.ColumnOrder = 56, ;
		Column48.ControlSource = "luna", ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Name = "cLuna", ;
		Column48.ReadOnly = .T., ;
		Column48.Width = 31, ;
		Column49.ColumnOrder = 55, ;
		Column49.ControlSource = "an", ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.Name = "cAn", ;
		Column49.ReadOnly = .T., ;
		Column49.Width = 29, ;
		Column50.ColumnOrder = 51, ;
		Column50.ControlSource = "bancad", ;
		Column50.FontSize = 10, ;
		Column50.Name = "cBancaD", ;
		Column50.ReadOnly = .T., ;
		Column51.ColumnOrder = 52, ;
		Column51.ControlSource = "cont_bancad", ;
		Column51.FontSize = 10, ;
		Column51.Name = "cContBancaD", ;
		Column51.ReadOnly = .T., ;
		Column51.Width = 138, ;
		Column52.ColumnOrder = 53, ;
		Column52.ControlSource = "bancac", ;
		Column52.FontSize = 10, ;
		Column52.Name = "cBancaC", ;
		Column52.ReadOnly = .T., ;
		Column53.ColumnOrder = 54, ;
		Column53.ControlSource = "cont_bancac", ;
		Column53.FontSize = 10, ;
		Column53.Name = "cContBancaC", ;
		Column53.ReadOnly = .T., ;
		Column53.Width = 131, ;
		Column54.ColumnOrder = 23, ;
		Column54.ControlSource = "taxname", ;
		Column54.FontSize = 10, ;
		Column54.Name = "cTaxCode", ;
		Column54.ReadOnly = .T., ;
		Column54.Width = 92, ;
		Column55.ColumnOrder = 24, ;
		Column55.ControlSource = "saft_procent", ;
		Column55.FontSize = 10, ;
		Column55.Name = "cSaftProcent", ;
		Column55.ReadOnly = .T., ;
		Column55.Width = 89, ;
		Column56.ColumnOrder = 25, ;
		Column56.ControlSource = "paymentname", ;
		Column56.FontSize = 10, ;
		Column56.Name = "cPaymentCode", ;
		Column56.ReadOnly = .T., ;
		Column56.Width = 89, ;
		Column57.ControlSource = "registru", ;
		Column57.FontSize = 10, ;
		Column57.Name = "cRegistru", ;
		Column57.ReadOnly = .T., ;
		Column57.Width = 87
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT '_GRID1.cAn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Anul", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.cAn.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 '_GRID1.cAscc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "A Cred", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cAscd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "A Deb", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cBancaC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Banca C", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cBancaD.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Banca D", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cCodFiscalC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod fiscal C", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cCodFiscalD.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod fiscal D", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cContBancaC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont banca C", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cContBancaD.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont banca D", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cDataV.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora validarii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cIdFact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id fact", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cIdFactC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id FactC", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cIdFactD.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id FactD", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cLuna.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Luna", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_GRID1.cLuna.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 '_GRID1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.Crt.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT '_GRID1.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "NIR/Bon", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.Column20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Chelt/Venituri", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator stergere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.Column31.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora stergerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT '_GRID1.cScc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C Cred", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cScd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C Deb", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT '_GRID1.cTaxCode.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod taxa SAFT", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cUtilV.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator validare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_GRID1.cValidat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Validat", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Comment = "*:OnResize=RT", ;
		Height = 27, ;
		Left = 678, ;
		Name = "But_excel1", ;
		TabIndex = 42, ;
		Top = 1, ;
		Visible = .F., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_help1' AS but_help WITH ;
		Anchor = 9, ;
		Comment = "*:OnResize=RT", ;
		Height = 27, ;
		Left = 559, ;
		Name = "But_help1", ;
		TabIndex = 40, ;
		Top = 1, ;
		Visible = .F., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Comment = "*:OnResize=RT", ;
		Height = 27, ;
		Left = 648, ;
		Name = "But_listare1", ;
		TabIndex = 41, ;
		Top = 1, ;
		Visible = .F., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
		Anchor = 9, ;
		Comment = "*:OnResize=RT", ;
		Height = 27, ;
		Left = 737, ;
		Name = "But_modifica1", ;
		TabIndex = 44, ;
		Top = 1, ;
		Visible = .F., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

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

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

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Anchor = 9, ;
		Comment = "*:OnResize=RT", ;
		Height = 27, ;
		Left = 707, ;
		Name = "But_sterge1", ;
		TabIndex = 43, ;
		Top = 1, ;
		Visible = .F., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'but_validare' AS but_verifica WITH ;
		Anchor = 9, ;
		caction = do_validare, ;
		Comment = "*:OnResize=RT", ;
		Height = 27, ;
		Left = 588, ;
		Name = "but_validare", ;
		TabIndex = 39, ;
		ToolTipText = "Validare inregistrari", ;
		Top = 1, ;
		Visible = .T., ;
		Width = 30
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 9, ;
		cpicturedown = exclamare_jos.bmp, ;
		cpictureup = exclamare_sus.bmp, ;
		Left = 618, ;
		Name = "But_verifica1", ;
		Picture = ..\grafice\exclamare_sus.bmp, ;
		ToolTipText = "Verificare note contabile cu rulajele dupa cod", ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Ck_total' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "TOTAL", ;
		Comment = "*:OnResize=LT", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		Left = 338, ;
		Name = "Ck_total", ;
		TabIndex = 48, ;
		Top = 440, ;
		Visible = .F.
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 12, ;
		Comment = "*:OnResize=RB", ;
		Left = 492, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 47, ;
		TabStop = .F., ;
		Top = 432, ;
		Text_simplu1.ControlSource = "thisform.nsuma", ;
		Text_simplu1.FontCharSet = 238, ;
		Text_simplu1.FontSize = 10, ;
		Text_simplu1.InputMask = (get_mask(12,gnPA)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "TOTAL", ;
		Lb_simplu1.FontBold = .T., ;
		Lb_simplu1.FontSize = 10, ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = Thisform._GRID1, ;
		Left = 780, ;
		Name = "Gridextra1", ;
		Top = 420
		*< END OBJECT: ClassLib="..\..\..\roafacturare\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
	
	PROCEDURE Activate
		*!*	lnLeft=1000
		*!*	FOR i=1 TO THISFORM.OBJECTS.COUNT
		*!*		IF UPPER(SUBSTR(THISFORM.OBJECTS(i).NAME,1,4))='BUT_' AND THISFORM.OBJECTS(i).VISIBLE=.T. 
		*!*			IF thisform.Objects(i).left < lnleft AND UPPER(thisform.Objects(i).name)#"BUT_START_CRITERII1" AND UPPER(thisform.Objects(i).name)#"BUT_RESET_CRITERII1"
		*!*				lnleft = thisform.Objects(i).left
		*!*			ENDIF
		*!*		ENDIF
		*!*	ENDFOR
		*!*	thisform.but_start_criterii1.Left=lnLeft-30
		*!*	thisform.but_reset_criterii1.Left=lnLeft-60
		
		DODEFAULT()
	ENDPROC

	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		lcFiltru=tcFiltru
		
		If Empty(lcFiltru)
			lcFiltru=poactjur.ca_baza1.cfiltru
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		save_grid_tag(Thisform._grid1)
		poactjur.ca_baza1.cfiltru=lcFiltru
		poactjur.ca_baza1.afisare()
		If Thisform.ncurs <> 0
			Select ACTJUR
			Repl All suma With Round(suma/Thisform.ncurs,gnPval)
		Endif
		restore_grid_tag(Thisform._grid1)
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		
	ENDPROC

	PROCEDURE calculeaza_total
		LOCAL lcSelect 
		lcSelect = SELECT()
		SELECT actjur
		IF this.clb_tx_simplu1.VISIBLE=.T.
			SUM suma TO THISFORM.nsuma
			this.clb_tx_simplu1.text_simplu1.Refresh()
		ENDIF
		GO TOP
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE do_cauta
		*!* 10.05.2017
		*!* marius.mutu
		*!* caut " ANUL " in filtru in loc de "ANUL" sa stiu daca pun filtru suplimentar si dupa perioada
		*!* nu se punea filtru suplimentar daca se facea o cautare dupa EXPLICATIA INCEPE CU 'ANULAT', pentru ca continea "ANUL"
		
		LOCAL lcFiltru, lcValoare1, lcValoare2, loCollection, i, lcTitlu
		lcFiltru = ""
		IF !THISFORM.lactiv6
			lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ]
		ENDIF
		
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		IF !(' PERIOADA '$upper(THISFORM.filtru_pretty_ro_full) OR 'ANUL '$upper(THISFORM.filtru_pretty_ro_full))
			lcFiltru = [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + lcFiltru
		ENDIF
		
		
		&& DACA FILTRUL NU CONTINE INREGISTRARILE STERSE, SELECTEZ DOAR INREGISTRARILE STERS = 0
		*!* 24.03.2008
		*!*	If At([6;],gcAcces)>0
		If !'STERS'$upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [ AND STERS = 0] + lcFiltru
		ENDIF
		
		*!*	Endif
		*!* 24.03.2008 ^
		
		&& DACA SUNT PE O SUCURSALA - SELECTEZ DOAR INREGISTRARILE DE PE SUCURSALA CURENTA
		IF !ISNULL(gnIdSucursala)
			lcFiltru = gcCondSucursala + lcFiltru
		ENDIF 
		
		&& ACTUALIZEZ PERIOADA DIN TITLUL REGISTRULUI JURNAL
		lcTitlu = THISFORM.lb_titlu_alb_b121.CAPTION
		IF !'PERIOADA'$upper(THISFORM.filtru_pretty_ro_full)
			lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) +	" " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
		ELSE
			IF TYPE('this.ocriterii') = 'O'
				loCollection = THIS.oCriterii.GetCriteriu("perioada")
				i = 0
				lcValoare1 = ""
				lcValoare2 = ""
				FOR EACH criteriu IN loCollection
					i = i + 1
					IF i = 1
						lcValoare1 = criteriu.valoare
					ELSE
						lcValoare2 = criteriu.valoare
					ENDIF
					IF i = 2
						EXIT
					ENDIF
				ENDFOR
				IF EMPTY(STRTRAN(lcValoare1,'/','')) AND EMPTY(STRTRAN(lcValoare2,'/',''))
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) +	" " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
				ELSE
					IF EMPTY(STRTRAN(lcValoare2,'/',''))
						lcValoare2 = lcValoare1
					ENDIF
				ENDIF
		
				IF lcValoare1 = lcValoare2
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1
				ELSE
					lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1 + " - " + lcValoare2
				ENDIF
			ENDIF
		ENDIF
		If !Empty(Thisform.cValuta)
			lcTitlu = lcTitlu + ;
				" Evaluarea in valuta  1 "+ Thisform.cValuta + "=" +Alltrim(Str(Thisform.nCurs,10,gnPCurs))+" LEI"
		Endif
		THIS.lb_titlu_alb_b121.CAPTION = lcTitlu
		
		IF LEN(THISFORM.filtru_pretty)>0     
			lcFiltru = lcFiltru+" and (" + ALLTRIM(THISFORM.filtru_pretty) + ")"    
		ENDIF
		
		IF !EMPTY(lcFiltru)
			lcFiltru = SUBSTR(lcFiltru, 6)
		ENDIF 	
		
		IF (THIS.filtru_pretty#"none")
			THISFORM.actualizeaza_grid1(lcFiltru)
			IF RECCOUNT('actjur')=0
				aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
			ENDIF
		ENDIF
		
		IF !THISFORM.eactan
			DO nrord WITH "ACTJUR"
		ENDIF
		
		
		this.calculeaza_total()
		
		THISFORM.clb_tx_simplu1.text_simplu1.REFRESH
		THISFORM._grid1.SETFOCUS
		
		
		
	ENDPROC

	PROCEDURE do_excel
		If !Thisform.lactiv1
			Return
		Endif
		
		Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
		
		If !Used('actjur') Or Reccount('actjur') = 0
			Return
		Endif
		
		lcAlias = 'actjur'
		lcFiltru = Filter(lcAlias)
		If Empty(lcFiltru)
			lcFiltru = '.T.'
		Endif
		
		
		lcColumnList = ''
		lcHeaderList = ''
		lcSelect = ''
		llSelect = .T.
		lcType = 'CURSOR'
		lcFrom = lcAlias
		lcWhere = lcFiltru
		lcOrder = 'dataireg,id_Act'
		lcOutput = 'crsAct'
		
		get_schema_grid(This._GRID1, @lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
		*!*MESSAGEBOX(lcSelect)
		&lcSelect
		
		If Used(lcOutput)
			Do export_xls With lcOutput IN oproceduri_comune.prg
			Use In (lcOutput)
		Endif
		
		Return
		*!*
		
		*!*	If Used('actjur') And Reccount('actjur')>0
		*!*		Local i,xlsheet,XLApp,tmpsheet
		*!*		exista_excel=.T.
		*!*		p1=''
		*!*		p2=''
		*!*		With Thisform._grid1
		*!*			For nCol=1 To .ColumnCount
		*!*				nColumn=.Columns(nCol).ColumnOrder
		*!*				p1=p1+.Columns(nCol).ControlSource+','
		*!*				p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+','
		*!*			Endfor
		*!*			p1=Substr(p1,1,Len(p1)-1)
		*!*			p2=Substr(p2,1,Len(p2)-1)
		*!*		Endwith
		*!*		On Error Do exportare With thisform._GRID1.RecordSource,p1,p2
		*!*		tmpsheet = Getobject('','excel.sheet')
		*!*		On Error
		
		*!*		If exista_excel
		*!*			Wait Window "Se transmit datele catre Excel..." Nowait
		
		*!*			XLApp = tmpsheet.Application
		
		*!*			XLApp.workbooks.Close()
		*!*			XLApp.workbooks.Add()
		*!*			poExcel = XLApp.ActiveSheet
		
		
		*!*			Go Top
		*!*			poExcel.Cells(1,1).Font.Size=16
		*!*			poExcel.Cells(1,1).Font.Bold=.T.
		*!*			poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption
		*!*			nRows = 3
		*!*			With Thisform._grid1
		*!*				For nCol = 1 To .ColumnCount
		*!*					nColumn = .Columns(nCol).ColumnOrder
		*!*					poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
		*!*					poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
		*!*					poExcel.Cells(nRows,nColumn).Font.Bold = .T.
		*!*					poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
		*!*				Endfor
		*!*				Scan
		*!*					nRows = nRows + 1
		*!*					For nCol = 1 To .ColumnCount
		*!*						nColumn = .Columns(nCol).ColumnOrder
		*!*						If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
		*!*							poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
		*!*						Else
		*!*							poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource)
		*!*						Endif
		*!*					Endfor
		*!*				Endscan
		*!*			Endwith
		
		*!*			XLApp.Visible = .T.
		*!*		Endif
		*!*	Endif
		
		*!*	*!*	If Used('actjur') And Reccount('actjur')>0
		*!*	*!*		Private pniesire,pccale
		*!*	*!*		pccale=""
		*!*	*!*		pniesire=0
		*!*	*!*		ofrmexcel=Createobject('frm_cale_f_excel')
		*!*	*!*		ofrmexcel.Show(1)
		*!*	*!*		If pniesire=1
		*!*	*!*			Thisform.MousePointer=11
		*!*	*!*			Thisform.LockScreen=.T.
		*!*	*!*			poExcel = Createobject("Excel.Application")
		*!*	*!*			poExcel.Visible=.F.
		*!*	*!*			poExcel.WorkBooks.Add
		*!*	*!*			Select actjur
		*!*	*!*			Go Top
		*!*	*!*			poExcel.Cells(1,1).Font.Size=16
		*!*	*!*			poExcel.Cells(1,1).Font.Bold=.T.
		*!*	*!*			poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption
		*!*	*!*			nRows = 2
		*!*	*!*			With Thisform._grid1
		*!*	*!*				For nCol = 1 To .ColumnCount
		*!*	*!*					nColumn = .Columns(nCol).ColumnOrder
		*!*	*!*					poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
		*!*	*!*					poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
		*!*	*!*					poExcel.Cells(nRows,nColumn).Font.Bold = .T.
		*!*	*!*					poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
		*!*	*!*				Endfor
		*!*	*!*				Scan
		*!*	*!*					nRows = nRows + 1
		*!*	*!*					For nCol = 1 To .ColumnCount
		*!*	*!*						nColumn = .Columns(nCol).ColumnOrder
		*!*	*!*						If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
		*!*	*!*							poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
		*!*	*!*						Else
		*!*	*!*							poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource)
		*!*	*!*						Endif
		*!*	*!*					Endfor
		*!*	*!*				Endscan
		*!*	*!*			Endwith
		*!*	*!*			poExcel.ActiveWorkBook.SaveAs(pccale)
		*!*	*!*	*!*			poExcel.visible=.T.
		*!*	*!*	*!*			poExcel.ActiveWorkBook.Open(pccale)
		*!*	*!*			poExcel.close()
		*!*	*!*			poExcel.Quit
		*!*	*!*			Release poExcel
		*!*	*!*			Go Top
		*!*	*!*			Thisform.LockScreen=.F.
		*!*	*!*			Thisform.MousePointer= 0
		*!*	*!*		Endif
		*!*	*!*	Endif
		
	ENDPROC

	PROCEDURE do_listare
		Local lnIdMonedaNationala, lnValute, loCauta
		*:Global frmRap
		If !Thisform.lactiv2
			Return
		Endif
		
		If Reccount('actjur') > 0
			Local llCereTitlu
			Private pcperioada, pctitlu		&&	,pcdataora
			Store '' To m.pcperioada, m.pctitlu	&&	,pcdataora
		
			pcperioada = [Luna: ] + Alltrim(Str(gnLuna)) + [ / ] + Alltrim(Str(gnAn))
			*!*		lctitlu = [REGISTRUL JURNAL (EXTRAS)]
			*!*		pctitlu = ceretitlu_rap([Titlul raportului],lctitlu)
			*!*		pcdataora = get_ora(2)
			pctitlu = [REGISTRUL JURNAL]
			If !Empty(Thisform.cValuta)
				pctitlu = m.pctitlu + " Evaluarea in valuta  1 " + Thisform.cValuta + "=" + Alltrim(Str(Thisform.nCurs, 10, gnPCurs)) + " LEI"
				llCereTitlu = .F.
			Else
				llCereTitlu = .T.
			Endif
			*!*		LOCAL lcText
			*!*		lctext = ""
			*!*		PRIVATE pcSubtitlu
			*!*		pcSubtitlu = THIS.filtru_pretty_ro
		
			*!*		IF THIS.filtru_traducere()#""
			*!*			lctext = THIS.filtru_traducere()
			*!*		ENDIF
			*!*		pcSubtitlu = THIS.filtru_pretty_ro + IIF(!(EMPTY(this.filtru_pretty_ro) or EMPTY(lcText)), " si ", "") + lctext
			Private pcSubtitlu
			pcSubtitlu = This.filtru_pretty_ro_full
		
		
		
			loCauta = GetMonedaNationala()
			lnIdMonedaNationala = m.loCauta.id_valuta
		
			Select actjur
			Calculate Cnt() For !Inlist(Nvl(id_valuta, 0), 0,  m.lnIdMonedaNationala) To m.lnValute
		
			*!*	ROACONT v 2.5.46  : am adaugat CAST la explicatii
			Select 0 As tip, id_act, serie_act, nract, Nvl(dataact, {//}) As dataact, Nvl(dataireg, {//})As dataireg, ;
				Nvl(EXPLICATIA, Space(100)) As EXPLICATIA, Nvl(scd, Space(4)) As scd, Nvl(ascd, Space(4)) As ascd, ;
				Nvl(scc, Space(4)) As scc, Nvl(ascc, Space(4)) As ascc, suma, id_valuta, Nvl(nume_val, Space(4)) As nume_val, ;
				suma_val, Curs, pereched, perechec, Nvl(NRORD, Space(30)) As NRORD, Nvl(PARTC, Space(50)) As PARTC, ;
				Nvl(PARTD, Space(50)) As PARTD, Nvl(FDOC, Space(30)) As FDOC, ;
				Nvl(EXPLICATIA4, Space(100)) As EXPLICATIA4, Nvl(EXPLICATIA5, Space(100)) As EXPLICATIA5, ;
				Iif(glEMama, Nvl(sucursala, Space(100)), []) As sucursala, ;
				CAST(IIF(glEMama,allt(nvl(sucursala,''))+'; ','') + ;
				IIF(!EMPTY(NVL(partd,'')), ALLT(partd) + '; ', '') + ;
				IIF(!EMPTY(NVL(partc,'')), ALLT(partc) + '; ', '') + ;
				IIF(!EMPTY(NVL(explicatia,'')), ALLT(explicatia) +'; ', '') + ;
				IIF(!EMPTY(NVL(nrord,'')), ALLT(Nrord)+'; ', '') + ;
				IIF(!EMPTY(NVL(contract,'')), ALLT(contract)+'; ', '') + ;		
				iif(!empty(pereched),allt(str(pereched)) +';', '') + ;
				iif(!empty(perechec),allt(str(perechec)) +';', '') + ;
				iif(!empty(nvl(explicatia4,'')), alltrim(explicatia4)+';', '') + ;
				iif(!empty(nvl(explicatia5,'')), alltrim(explicatia5)+';', '') + ;
				IIF(!EMPTY(NVL(nume_val,'')) AND !EMPTY(NVL(curs,0)), allt(nume_val) + '; ', '') + ;
				IIF(!EMPTY(NVL(curs,0)), allt(STR(curs,12,4)) + '; ', '') as M) as explicatii ;
				From actjur ;
				Order By dataireg, id_act ;
				Into Cursor actjur_val Readwrite
		
			If m.lnValute > 0
				* Total pe valute
				Select 1 As tip, nume_val, Sum(suma) As suma, Sum(suma_val) As suma_val From actjur_val Order By 2 Group By nume_val Into Cursor cTotalValuta
				Select actjur_val
				Append From Dbf('cTotalValuta')
				Use In (Select('cTotalValuta'))
				frmRap = 'rap_regjurnal_val.frx'
			Else
				frmRap = 'rap_regjurnal.frx'
			Endif
		
			Thisform.AlwaysOnTop = .F.
			*!*		Report Format &frmRap To Printer Prompt Preview
			goExport.export2frx([actjur_val], frmRap, m.llCereTitlu, , , , , .T.)
			Thisform.AlwaysOnTop = .T.
		
			If Used('actjur_val')
				Use In actjur_val
			Endif
		
		Else
			amessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
		Endif
		
	ENDPROC

	PROCEDURE do_modifica
		*!* 24.05.2011
		*!* marius.mutu
		*!* se pot modifica inregistrarile din sucursale
		*!* in pack_contafin.scrie_in_act nu se mai suprascrie id_sucursala completata
		
		#Define CRLF Chr(13) + Chr(10)
		
		If !Thisform.lactiv3
			Return
		Endif
		
		Local lnCod, llSters, lnSucces, llRul, llGestInvantar, llVanzari
		Store .F. To llSters, llRul, llVanzari
		lnSucces = 0
		
		If glLunaInchisa
			Return
		Endif
		
		Local lleSters, lcConditieSters
		
		*!*	lleSters = IIF(this.ck_sters.Value = 1, .T., .F.)
		lleSters = Iif('STERS'$Upper(Thisform.filtru_pretty_ro_full), .T., .F.)
		
		If lleSters
			lcConditieSters = [ ]
		Else
			lcConditieSters = [ STERS = 0 AND ]
		Endif
		
		Select actjur
		lnCod = cod
		pnAn = an
		pnLuna = luna
		lnIdSet = id_set
		lnSters = sters
		*!*	modificare	ROAGEST v 2.1.36
		Private pdDataOra
		pdDataOra = Null
		lnIdFact = id_fact
		lnIdfactd = id_factd
		*!*	modificare	ROAGEST v 2.1.36	^
		If (pnAn * 12) + pnLuna <> (gnAn * 12) + gnLuna
			aMESSAGEBOX('Nu puteti modifica decat inregistrari din luna curenta!',0+48,'Atentie!')
			Return
		Endif
		
		*!* 24.05.2011
		If .F.
			If glEMama And Nvl(actjur.id_sucursala,0) <> 0
				aMESSAGEBOX('Nu se pot modifica inregistrarile provenind din sucursale!',0+48,'Atentie!')
				Return
			Endif
		Endif
		*!* 24.05.2011 ^
		If Between(lnIdSet,30000,30009)
			aMESSAGEBOX("Aceasta nota a fost introdusa din programul ROAPRODUCTIE si nu poate fi modificata!",0+48,"Atentie")
			Return
		Endif
		
		If lnSters = 1
			llSters=.T.
		Endif
		
		If lnIdSet =  90101 && nota Inventariere si constatare Diferente
			llGestInvantar = .T.
			pdDataOra = actjur.dataora
		Endif
		
		*!*	modificare	19.06.2012
		*!*	If Between(lnIdSet,25000,25099) OR Inlist(lnIdSet,79,83,206,61,62,63,102,103,64,65,73,222,223,224,225,226,227,236,238,239,240) ;
		*!*		or InList(lnIdSet,252,255,258,259,260,243,244,233,261,262,267) OR BETWEEN(lnIdSet,31000,31050)
		*!*		&&	03.12.2010 : am adaugat 243,244,233,261,262
		*!*		&&	12.07.2011 : am adaugat 31000 > 31050
		*!*	*!*		modificare 06.03.2007
		*!*	*!*		If Iif(Type('gnModificareIdSetSpe')='U',0,gnModificareIdSetSpe)=0
		*!*	*!*			amessagebox("Nu puteti modifica aceasta nota!",0+48,"Atentie")
		*!*	*!*			Return
		*!*	*!*		Else
		*!*			llVanzari = .T.
		*!*	*!*		Endif
		*!*	*!*		modificare 06.03.2007 ^
		*!*	Endif
		*!*	llVanzari = This.e_in_vanzari(lnCod)		&&	modificare	ROAGEST v 2.1.36
		*!*	modificare	19.06.2012	^
		
		*!*	IF BETWEEN(lnIdSet,40,500)
		*!*		llRul = .T.
		*!*	ENDIF
		
		If Used('actactan')
			Use In actactan
		Endif
		*!*	modificare	23.10.2012
		If Used('tact')
			Use In tact
		Endif
		If Used('rul_temp')
			Use In RUL_TEMP
		Endif
		If Used('trul')
			Use In trul
		Endif
		If Used('rul_temp_obinv')
			Use In RUL_TEMP_OBINV
		Endif
		If Used('trul_obinv')
			Use In trul_obinv
		Endif
		*!*	modificare	23.10.2012	^
		lcSel = Thisform._GRID1.RecordSource
		
		
		*!*	lcSql = [select * from ] + gcs + [.vrul_tot where cod = ] + ALLTRIM(STR(lnCod))
		*!*	lcCursor = [v_rul]
		*!*	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		*!*	goExecutor.oReset()
		*!*	IF lnSucces < 0
		*!*		RETURN
		*!*	ENDIF
		*!*	SELECT * FROM v_rul INTO CURSOR rul_temp
		*!*	SELECT * FROM rul_temp INTO CURSOR trul READWRITE
		*!*	USE IN v_rul
		
		
		*!*	SELECT * FROM (lcSel) WHERE cod = lnCod INTO CURSOR actactan
		*!*	SELECT * FROM actactan INTO CURSOR tact READWRITE
		
		
		lcSql = [select * from vact_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_act]
		lcCursor = [v_act]
		
		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		goExecutor.oReset()
		
		If lnSucces < 0
			aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			Return
		Endif
		
		Select * From v_act Into Cursor actactan
		*!* 24.05.2011
		*!*	modificare	v 2.4.4	:	am adaugat tipnota
		Select .F. As ales, T.*, Cast(0 As N(2)) As tipnota From actactan T Into Cursor tact Readwrite
		*!* 24.05.2011 ^
		Use In v_act
		
		If lnSucces > 0 && AND llRul
			lcSql = [select * from vrul_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul]
			lcCursor = [v_rul]
		
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
			goExecutor.oReset()
			If lnSucces < 0
				aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			Endif
			If Reccount(lcCursor)>0
				llRul = .T.
			Endif
			If lnSucces > 0
				UPDATE v_rul SET valoare = round(IIF(cant<>0, cant, cante)*pret,m.gnPC) WHERE EMPTY(NVL(valoare,0))
				UPDATE v_rul SET valtva = ROUND(IIF(cant<>0, cant, cante)*pret * (IIF(!EMPTY(NVL(proc_tva,0)), proc_tva, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtva,0))
		
				UPDATE v_rul SET valoarev = round(IIF(cant<>0, cant, cante)*pretv,m.gnPC) WHERE EMPTY(NVL(valoarev,0))
				UPDATE v_rul SET valtvav = ROUND(IIF(cant<>0, cant, cante)*pretv * (IIF(!EMPTY(NVL(proc_tvav,0)), proc_tvav, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtvav,0))
						
				Select *, ;
					valoare + valtva As valoarectva, ;
					valoarev + valtvav As valoarevctva ;
					From v_rul ;
					Into Cursor RUL_TEMP READWRITE 
					
				Select * From RUL_TEMP Into Cursor trul Readwrite
				Use In v_rul
		
				lcSql = [select * from vrul_obinv_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul_obinv]
				lcCursor = [v_rul_obinv]
		
				lnSucces = goExecutor.oExecute(lcSql,lcCursor)
				goExecutor.oReset()
				If lnSucces < 0
					aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
				Endif
				If Reccount(lcCursor)>0
					llRul = .T.
				Endif
			Endif
		
			If lnSucces > 0
				UPDATE v_rul_obinv SET valoare = round(IIF(cant<>0, cant, cante)*pret,m.gnPC) WHERE EMPTY(NVL(valoare,0))
				UPDATE v_rul_obinv SET valtva = ROUND(IIF(cant<>0, cant, cante)*pret * (IIF(!EMPTY(NVL(proc_tva,0)), proc_tva, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtva,0))
		
				UPDATE v_rul_obinv SET valoarev = round(IIF(cant<>0, cant, cante)*pretv,m.gnPC) WHERE EMPTY(NVL(valoarev,0))
				UPDATE v_rul_obinv SET valtvav = ROUND(IIF(cant<>0, cant, cante)*pretv * (IIF(!EMPTY(NVL(proc_tvav,0)), proc_tvav, 1)-1), m.gnPC) WHERE EMPTY(NVL(valtvav,0))
			
				Select *, ;
					valoare + valtva As valoarectva, ;
					valoarev + valtvav As valoarevctva ;
					From v_rul_obinv ;
					Into Cursor RUL_TEMP_OBINV READWRITE 			
		
				Select * From RUL_TEMP_OBINV Into Cursor trul_obinv Readwrite
				Use In v_rul_obinv
			Endif
		Endif
		
		If lnSucces > 0
			If gnAn >= Iif(Type('gnAnFormNou')='U',2007,gnAnFormNou)
		*!*		modificare ROACONT v 2.0.78 : Nvl(id_jtva_coloana,0)=0
		*Select a.*,Iif(Isnull(id_jtva_coloana),0,1) As cu_Tva From tact a Into Cursor tact Readwrite
				Select a.*,Iif(Nvl(id_jtva_coloana,0)=0,0,1) As cu_Tva From tact a Into Cursor tact Readwrite
		*!*		modificare ROACONT v 2.0.78 ^
		*		Omodif = Createobject([frm_modific2007],lnIdSet)
				Omodif = Createobject([frm_modific2024],lnIdSet)
		*		DO FORM frm_modific2024 NAME omodif LINKED WITH m.lnIdSet NOSHOW 
			Else
				Omodif = Createobject([frm_modific])
			Endif
			Select tact
			Omodif.Show()
		
			If buton=1
		
				llRul = .T. && este posibil sa modific si rul, rul_obinv
				
				If Thisform.do_deschide_tranzactie()
					Select actactan
					If !llSters
						lnSucces  = oscrie_in_fisiere(2,.T.,llRul)
					Else
						lnSucces = 1
					Endif
		*!*	modificare	04.2014	- scriere act_rul	^
					If lnSucces >0
						If Used('actactan')
							Use In actactan
						Endif
						Select tact
						If gnAn >= Iif(Type('gnAnFormNou')='U',2007,gnAnFormNou)
							Replace id_jtva_coloana With Null,proc_tva With 0 For cu_Tva = 0
						Endif
						Select * From tact Into Cursor actactan Readwrite
						Replace All id_util With gnIdUtil, sters With 0
						If llRul
							If Used('rul_temp')
								Use In RUL_TEMP
							Endif
							Select * From trul Into Cursor RUL_TEMP Readwrite
							Replace All id_util With gnIdUtil, sters With 0
							If Used('rul_temp_obinv')
								Use In RUL_TEMP_OBINV
							Endif
							Select * From trul_obinv Into Cursor RUL_TEMP_OBINV Readwrite
							Replace All id_util With gnIdUtil, sters With 0
		
						Endif
						lnSucces  = oscrie_in_fisiere(0,.T.,llRul)
					Endif
		
		*!*	modificare	ROAGEST v 2.1.36
					If lnSucces > 0
						lcSql = [begin pack_contafin.finalizeaza_modificare_nota(?pnLuna,?pnAn,?pdDataOra,] + Alltrim(Str(lnIdSet)) + [,] + ;
							ALLTRIM(Str(lnCod)) + [,] + Alltrim(Str(lnIdFact)) + [,] + Alltrim(Str(lnIdfactd)) + [,?gnIdUtil); end;]
						lnSucces = Iif(goExecutor.oExecuta(lcSql),1,-1)
					Endif
		*!*			IF lnSucces > 0 AND llGestInvantar && nota de inventariere : update dataOra_validat cu dataora modificarii notei contabile
		*!*				lcSql = [update ] + gcs + [.gest_inventar set dataora_validat = pack_contafin.GET_DATAORA() where dataora_validat = ?pdDataOra and an = ?pnAn and luna = ?pnLuna]
		*!*				lnSucces = goExecutor.oExecute(lcSql)
		*!*				goExecutor.oReset()
		*!*				IF lnSucces < 0
		*!*					aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		*!*				ENDIF
		*!*			ENDIF
		*!*			IF lnSucces > 0 AND llVanzari && nota din ROAFACTURARE
		*!*				lcSql = [begin ] + gcs + [.pack_facturare.actualizeaza_vanzari(] + ALLTRIM(STR(lnCod)) + [,pack_contafin.get_cod()); end;]
		*!*				lnSucces = goExecutor.oExecute(lcSql)
		*!*				goExecutor.oReset()
		*!*				IF lnSucces < 0
		*!*					aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		*!*				ENDIF
		*!*			ENDIF
		*!*			*!*	modificare ROACONT v 2.0.73
		*!*			IF lnSucces > 0
		*!*				lcSql = [update ] + gcS + [.atasamente_vanzari set cod = pack_contafin.get_cod() where cod = ] + ALLTRIM(STR(lnCod))
		*!*				lnSucces = goExecutor.oExecute(lcSql)
		*!*				goExecutor.oReset()
		*!*				IF lnSucces < 0
		*!*					aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
		*!*				ENDIF
		*!*			ENDIF
		*!*			*!*	modificare ROACONT v 2.0.73	^
		*!*	modificare	ROAGEST v 2.1.36	^
		
		*!*	modificare	04.2014	- scriere act_rul
		*!*			IF lnSucces < 0
		*!*				lnSucces = goExecutor.oExecute("ROLLBACK")
		*!*			ELSE
		*!*				lnSucces = goExecutor.oExecute("COMMIT")
		*!*			ENDIF
		*!*
		*!*			IF lnSucces < 0
		*!*				aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
		*!*			ENDIF
		*!*
		*!*			lnSucces = sqlsetprop(gnhandle,"Transactions",1)
		*!*			IF lnSucces < 0
		*!*				aMESSAGEBOX('Programul a trecut pe tranzactie manuala. Iesiti din program si intrati din nou!',0+48,'Atentie!')
		*!*				QUIT
		*!*				RETRY
		*!*			ENDIF
		*!*			THIS.do_cauta
		*!*		ENDIF
					If Thisform.do_inchide_tranzactie(Iif(lnSucces<0,2,1))
						Thisform.do_cauta
					Endif
				Endif
			Endif
		*!*	modificare	04.2014	- scriere act_rul	^
		Endif
		
		If Used('actactan')
			Use In actactan
		Endif
		If Used('tact')
			Use In tact
		Endif
		If Used('rul_temp')
			Use In RUL_TEMP
		Endif
		If Used('rul_temp_obinv')
			Use In RUL_TEMP_OBINV
		Endif
		If Used('trul')
			Use In trul
		Endif
		If Used('trul_obinv')
			Use In trul_obinv
		Endif
		
		
	ENDPROC

	PROCEDURE do_sterge
		If !Thisform.lactiv4
			Return
		Endif
		
		Local lnCod, llSters, lnSucces, llRul, llGestInvantar,lnIdFact,lnIdfactd, llVanzari, lnOptiune
		Store .F. To llSters, llRul, llVanzari
		lnSucces = 0
		lnOptiune = 0
		
		If glLunaInchisa
			Return
		Endif
		
		Select actjur
		lnCod = cod
		pnAn = an
		pnLuna = luna
		lnIdSet = id_set
		lnSters = sters
		lnIdFact = id_fact
		lnIdfactd = id_factd
		*!*	modificare	ROAGEST	v 2.1.36
		PRIVATE pdDataOra
		pdDataOra = Null
		*!*	modificare	ROAGEST	v 2.1.36	^
		If lnSters = 1
			Return
		Endif
		
		If Between(lnIdSet,30000,30009)
			amessagebox("Nu puteti sterge aceasta nota decat din programul ROAPRODUCTIE!",0+48,"Atentie")
			Return
		Endif
		
		Local lleSters, lcConditieSters
		
		lleSters = Iif('STERS'$UPPER(THISFORM.filtru_pretty_ro_full), .T., .F.)
		lcConditieSters = [ STERS = 0 AND ]
		
		If (pnAn * 12) + pnLuna <> (gnAn * 12) + gnLuna
			amessagebox('Nu puteti sterge decat inregistrari din luna curenta!',0+48,'Atentie!')
			Return
		Endif
		
		*** verificare restrictie stergere documente cu referinte (incasari/plati)
		llReferinteDocumente = ReferinteDocumenteNota(pnAn, pnLuna, lnCod) &&  && odocumente.prg
		
		*!* 08.05.2008
		If lnIdSet = 90501 && reevaluare solduri in valuta la 31.12
			llReferinteDocumente = .F.
			aMessageBox("Trebuie refacute situatiile de facturi pentru a se reveni la cursul de schimb original", 0+48, "Reevaluare solduri in valuta")
		EndIf 	
		*!* 08.05.2008 ^
		
		If llReferinteDocumente
			amessagebox("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
			Return
		Endif
		
		lnOptiune = xmenu('Stergere document;\' + IIF(m.lnIdSet = 99996, '', '<') + 'Anulare document = stergere document si creare document anulat')
		IF EMPTY(m.lnOptiune)
			RETURN
		ENDIF 
		
		If lnIdSet =  90101 && nota Inventariere si constatare Diferente
			llGestInvantar = .T.
			pdDataOra = actjur.dataora
		Endif
		
		
		Use In (SELECT('actactan'))
		Use In (SELECT('rul_temp'))
		Use In (SELECT('rul_temp_obinv'))
		
		
		*---------------------
		
		lcSql = [select * from vact_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_act]
		lcCursor = [v_act]
		
		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
		goExecutor.oReset()
		If lnSucces < 0
			amessagebox(goExecutor.cEroare,0+16,"Eroare")
		Endif
		
		If lnSucces > 0
			Select * From v_act Into Cursor actactan READWRITE 
			Use In v_act
		Endif
		
		If lnSucces > 0 && AND llRul
			lcSql = [select * from vrul_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul]
			lcCursor = [v_rul]
		
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
			goExecutor.oReset()
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Endif
			If Reccount(lcCursor)>0
				llRul = .T.
			Endif
			If lnSucces > 0
				lcSql = [select * from vrul_obinv_tot where ] + lcConditieSters + [ an = ] + Transform(gnAn) + [ and luna = ] + Transform(gnLuna) + [ and cod = ] + Alltrim(Str(lnCod)) + [ order by id_rul_obinv]
				lcCursor = [v_rul_obinv]
		
				lnSucces = goExecutor.oExecute(lcSql,lcCursor)
				goExecutor.oReset()
				If lnSucces < 0
					amessagebox(goExecutor.cEroare,0+16,"Eroare")
				Endif
				If Reccount(lcCursor)>0
					llRul = .T.
				Endif
			Endif
		
			If lnSucces > 0
				Select * From v_rul Into Cursor rul_temp
				Use In v_rul
				Select * From v_rul_obinv Into Cursor rul_temp_obinv
				Use In v_rul_obinv
			Endif
		Endif
		
		
		If lnSucces > 0
			overif=Createobject('verificare')
			overif.Show(1)
			Clear Class 'verificare'
		
			If buton = 1
				lnSucces  = OSCRIE_IN_FISIERE(2,.F.,llRul)
				IF lnSucces > 0
					lcSql = [begin pack_contafin.finalizeaza_stergere_nota(?pnLuna,?pnAn,?pdDataOra,] + ALLTRIM(STR(lnIdSet)) + [,] + ;
						ALLTRIM(STR(lnCod)) + [,] + ALLTRIM(STR(lnIdFact)) + [,] + Alltrim(Str(lnIdfactd)) + [,?gnIdUtil); end;]
					llSucces = goExecutor.oExecuta(lcSql)
					
					IF m.llSucces AND m.lnOptiune = 2 && anulare document
						USE IN (SELECT('rul_temp'))
						USE IN (SELECT('rul_temp_obinv'))
						UPDATE actactan SET suma = 0, id_set = 99996, proc_tva = 0, id_jtva_coloana = null, suma_val = 0
		
						lnSucces  = OSCRIE_IN_FISIERE(0)
				
					ENDIF 
				ENDIF
		
			Endif
		Endif
		
		
		Use In (SELECT('actactan'))
		Use In (SELECT('rul_temp'))
		Use In (SELECT('rul_temp_obinv'))
		
		This.do_cauta
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
		
	ENDPROC

	PROCEDURE do_validare
		#DEFINE CRLF CHR(13) + CHR(10)
		
		LOCAL lnSucces, lnSucces2, lnRaspuns, lnIdAct, lcDocumentCurentValidat
		lnSucces = 0
		lnSucces2 = 0
		
		lcDocumentCurentValidat = IIF(actjur.VALIDAT = 1, '\', '')
		lnIdAct = actjur.ID_ACT
		
		PRIVATE poRec
		poRec = NULL
		
		IF !THIS.but_validare.VISIBLE
			RETURN
		ENDIF
		
		x = xmenu(lcDocumentCurentValidat + "Validare document \<curent;Validare toate documentele \<selectate")
		lnRaspuns = 6
		DO CASE
			CASE x = 1
				lnRaspuns = AMESSAGEBOX('Doriti sa validati documentul curent?',4+32,'Validare')
			CASE x = 2
				lnRaspuns = AMESSAGEBOX('Doriti sa validati toate documentele selectate?',4+32,'Validare')
		ENDCASE
		
		IF lnRaspuns # 6 OR !INLIST(x,1,2)
			RETURN
		ENDIF
		
		lnSucces = SQLSETPROP(gnHandle,"Transactions",2) && TRANZACTIE MANUALA
		IF lnSucces < 0
			AERROR(laEroare)
		
			AMESSAGEBOX('Programul nu a trecut pe tranzactie automata!' + CRLF + ;
				ALLTRIM(TRANSFORM(laEroare(1))) + CRLF + ALLTRIM(TRANSFORM(laEroare(2))) + CRLF + ;
				ALLTRIM(TRANSFORM(laEroare(3))), 0+16, 'Eroare')
			RETURN
		ENDIF
		
		IF x = 1
			lcConditie = [NVL(validat,0) = 0 and cod = ] + ALLTRIM(STR(actjur.cod))
		ELSE
			lcConditie = [NVL(validat,0) = 0]
		ENDIF
		SELECT DISTINCT an, luna, cod FROM actjur WHERE &lcConditie INTO CURSOR cCoduriTemp
		IF _TALLY = 0
			AMESSAGEBOX('Nu exista inregistrari nevalidate!',0+48,'Validare')
		ELSE
			lnSucces = 1
			SELECT cCoduriTemp
			SCAN
				SCATTER NAME poRec
				lcSql = [begin pack_contafin.ValidareInregistrari(?poRec.an, ?poRec.luna, ?gnIdUtil, ?poRec.cod); end;]
				lnSucces = goExecutor.oExecute(lcSql)
				IF lnSucces < 0
					AMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,'Eroare')
					EXIT
				ENDIF
			ENDSCAN
			
			IF lnSucces < 0
				lcSql = 'ROLLBACK'
			ELSE
				lcSql = 'COMMIT'
			ENDIF
		
			lnSucces2 = goExecutor.oExecute(lcSql)
			IF lnSucces2 < 0
				AMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,'Eroare')
			ELSE
				AMESSAGEBOX('Inregistrarile au fost validate.',0+64 ,'Validare')
		
				lnSucces = SQLSETPROP(gnHandle,"Transactions",1) && TRANZACTIE AUTOMATA
				IF lnSucces < 0
					AERROR(laEroare)
		
					AMESSAGEBOX('Programul nu a trecut pe tranzactie automata!' + CRLF + ;
						ALLTRIM(TRANSFORM(laEroare(1))) + CRLF + ALLTRIM(TRANSFORM(laEroare(2))) + CRLF + ;
						ALLTRIM(TRANSFORM(laEroare(3))), 0+16, 'Eroare')
				ENDIF
				IF lcSql = 'ROLLBACK'
					AMESSAGEBOX('Nu s-a executat validarea inregistrarilor!',0+32,'Atentie')
				ELSE
					THIS.do_cauta()
					SELECT actjur
					LOCATE FOR ID_ACT = lnIdAct
					IF !FOUND()
						GO TOP
					ENDIF
					THIS._GRID1.SETFOCUS()
				ENDIF
			ENDIF && lnSucces2 < 0
		ENDIF && _TALLY > 0
		
		USE IN (SELECT('cCoduriTemp'))
	ENDPROC

	PROCEDURE do_verifica
		* 01.04.2021
		* se afiseaza si rulajele obiecte de inventar in folosinta
		* se afiseaza inregistrarile si din alte luni decat luna curenta
		
		Local lleSters, lcConditieSters
		Local loar As 'verif_act_rul'
		Local lcSql, llSucces, lnAn, lnCod, lnLuna
		
		*!*	lleSters = IIF(this.ck_sters.Value = 1, .T., .F.)
		lleSters = Iif('STERS' $ Upper(Thisform.filtru_pretty_ro_full), .T., .F.)
		
		If lleSters
			lcConditieSters = [ ]
		Else
			lcConditieSters = [ STERS = 0 AND ]
		Endif
		
		Select actjur
		lnCod = cod
		lnAn = an
		lnLuna = luna
		
		TEXT To lcSql Textmerge Noshow
		select * from vact_tot where <<lcConditieSters>> an = <<lnAn>> and luna = <<lnLuna>> and cod = <<lnCod>> order by id_act
		ENDTEXT
		lcCursor = [v_act]
		
		llSucces = goExecutor.oExecuta(lcSql, lcCursor)
		
		If !m.llSucces
			Return
		Endif
		
		Select * From v_act Into Cursor actactan
		Use In (Select('v_act'))
		
		
		TEXT To lcSql Textmerge Noshow
		select * from vrul_tot where <<lcConditieSters>> an = <<lnAn>> and luna = <<lnLuna>> and cod = <<lnCod>> order by id_rul
		ENDTEXT
		
		llSucces = goExecutor.oExecuta(lcSql, [v_rul])
		If m.llSucces
		
			TEXT To lcSql Textmerge Noshow
		select * from vrul_obinv_tot where <<lcConditieSters>>  an = <<lnAn>> and luna = <<lnLuna>> and cod = <<lnCod>> order by id_rul_obinv
			ENDTEXT
		
			llSucces = goExecutor.oExecuta(lcSql, [v_rul_obinv])
			If m.llSucces
				Select v_rul
				Append From Dbf('v_rul_obinv')
				Use In (Select('v_rul_obinv'))
			Endif
		Endif
		
		If m.llSucces
			Select *, ;
				Round((cant + cante) * Pret, gnPc) As valoareftva, ;
				Round((cant + cante) * tva, gnPc) As valoaretva, ;
				Round((cant + cante) * (Pret + tva), gnPc) As valoarectva, ;
				Round((cant + cante) * pretv, gnPc) As valoarevftva, ;
				Round((cant + cante) * tvav, gnPc) As valoarevtva, ;
				Round((cant + cante) * (pretv + tvav), gnPc) As valoarevctva, ;
				Round((pretv - Pret) * (cant + cante), gnPc) As valoare_adaosftva, ;
				Round((tvav - tva) * (cant + cante), gnPc) As valoare_adaostva ;
				From v_rul ;
				Into Cursor RUL_TEMP
		
			*!*			SELECT * FROM RUL_TEMP INTO CURSOR trul READWRITE
			Use In (Select('v_rul'))
		Endif
		
		
		
		loar = Createobject('verif_act_rul')
		loar.Show(1)
		
		Use In (Select('actactan'))
		Use In (Select('RUL_TEMP'))
		
	ENDPROC

	PROCEDURE e_in_vanzari
		*!*	modificare	ROAGEST v 2.1.36
		*!*	Lparameters tnCod
		*!*	Local llEInVanzari,lcCursor,lnNr
		*!*	Store .F. To llEInVanzari
		*!*	lcSql = [select COUNT(*) as nr from vanzari where cod = ] + Alltrim(Str(tnCod))
		*!*	lcCursor = [crstmpvanz]
		*!*	If goExecutor.oExecuta(lcSql,lcCursor)
		*!*		Select (lcCursor)
		*!*		lnNr = nr
		*!*		If lnNr > 0
		*!*			llEInVanzari = .T.
		*!*		Endif
		*!*	Endif
		*!*	Use In Select(lcCursor)
		*!*	Return llEInVanzari
		*!*	modificare	ROAGEST v 2.1.36	^
	ENDPROC

	PROCEDURE Init
		
		Lparameters tnCurs,tcValuta
		If !Empty(tnCurs)
			Thisform.ncurs = tnCurs
		Endif
		
		If !Empty(tcValuta)
			Thisform.cvaluta = tcValuta
		Endif
		
		DoDefault()
		
		With Thisform
		*!* 16.11.2007 validare
		&& daca utilizatorul are drept de validare - fac vizibil butonul de validare
			Private pnAreDreptValidare
			pnAreDreptValidare = 0
			lnSucces = goExecutor.oFunction2Value([contafin_oracle.pack_drepturi.UtilHasValidare(?gnIdFirma,?gnIdUtil,'DREPTVALIDARE')], @pnAreDreptValidare)
			If lnSucces < 0
				pnAreDreptValidare = 0
				AMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,'Eroare')
			Endif
			If pnAreDreptValidare = 1
				This.but_validare.Visible = .T.
			Else
				This.but_validare.Visible = .F.
			Endif
		*!* 16.11.2007 validare ^
		
		*!*		If lnnivel=0
		*!*		If .lactiv6
		*!*			._GRID1.column27.Visible=.T. 	&& cod
		*!*			._GRID1.column28.Visible=.T. 	&& util
		*!*			._GRID1.column29.Visible=.T. 	&& dataora introducerii
		*!*			._GRID1.column30.Visible=.T.  	&& utils
		*!*			._GRID1.column31.Visible=.T.  	&& dataoras
		*!*	*.ck_util.VISIBLE=.T.
		*!*	*!*			.ck_sters.VISIBLE=.T.
		*!*	*.ck_dataora.VISIBLE=.T.
		*!*	*!*	modificare	22.11.2006
		*!*	*!*			.but_modifica1.VISIBLE=.T.
		*!*		Else
		*!*			._GRID1.column27.Visible=.F. 	&& cod
		*!*			._GRID1.column28.Visible=.F. 	&& util
		*!*			._GRID1.column29.Visible=.F. 	&& dataora introducerii
		*!*			._GRID1.column30.Visible=.F.  	&& utils
		*!*			._GRID1.column31.Visible=.F.  	&& dataoras
		*!*	*!*			If lnnivel>2
		*!*	*!*	*!*			.but_help1.left=.but_excel1.left
		*!*	*!*				.but_listare1.Left=.but_sterge1.Left
		*!*	*!*				.but_excel1.Left=.but_modifica1.Left
		*!*	*!*				._shape2.Left=630
		*!*	*!*				._shape2.Width=166
		*!*	*!*	*!*			thisform.but_sterge1.Visible=.F.
		*!*	*!*				.RemoveObject("but_sterge1")
		*!*	*!*			Else
		*!*	*!*				.but_sterge1.Visible=.T.
		*!*	*!*	*!*			.but_help1.left=.but_listare1.left
		*!*	*!*				.but_listare1.Left=.but_excel1.Left
		*!*	*!*				.but_excel1.Left=.but_sterge1.Left
		*!*	*!*				.but_sterge1.Left=.but_modifica1.Left
		*!*	*!*				._shape2.Left=595
		*!*	*!*				._shape2.Width=201
		*!*	*!*			Endif
		*!*	*!*			.RemoveObject("but_modifica1")
		*!*	*.ck_util.VISIBLE=.F.
		*!*	*!*			.ck_sters.VISIBLE=.F.
		*!*	*.ck_dataora.VISIBLE=.F.
		*!*	*!*		thisform.but_modifica1.Visible=.F.
		*!*		Endif
		
		*!*		If lnnivel>1 Or m.contab='GEST'
		*!*			.lb_titlu_alb_b121.Caption="REGISTRU JURNAL - EXTRAS * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
		*!*		Else
			.lb_titlu_alb_b121.Caption="REGISTRU JURNAL * "+Padl(Alltrim(Str(gnLuna)),2,'0')+"/"+Alltrim(Str(gnAn))
		*!*		ENDIF
		*!*		WITH .ck_perioada
		*!*			.filtru=[ AND LUNA=]+ALLTRIM(STR(gnLuna))+[ AND AN=]+ALLTRIM(STR(gnAn))
		*!*			.luna=PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
		*!*			.cvaloare1=.luna
		*!*			.cvaloare2=.luna
		*!*			.VALUE = 1
		*!*		ENDWITH
			If !Empty(Thisform.cvaluta)
				.lb_titlu_alb_b121.Caption = .lb_titlu_alb_b121.Caption + ;
					" Evaluarea in valuta  1 "+ Thisform.cvaluta + "=" +Alltrim(Str(Thisform.ncurs,10,gnPCurs))+" LEI"
			Endif
		Endwith
		
		*Thisform.actualizeaza_grid1()
		*** micsorare banda alba
		lnLungimeBanda = Thisform.but_termIN1.Width + 10
		lnPozitieButon = Thisform.but_termIN1.Left
		lnLungimeButon = Thisform.but_termIN1.Width + 1		&&	30 + 1 (spatiu)
		lnOffsetBanda = 6					&& diferenta dintre _shape2.left si but_termin1.left
		
		If Thisform.lactiv3 And !glLunaInchisa
			lnPozitieButon = lnPozitieButon - lnLungimeButon
			lnLungimeBanda = lnLungimeBanda + lnLungimeButon
			Thisform.but_modifica1.Left = lnPozitieButon
		Endif
		If Thisform.lactiv4 And !glLunaInchisa
			lnPozitieButon = lnPozitieButon - lnLungimeButon
			lnLungimeBanda = lnLungimeBanda + lnLungimeButon
			Thisform.but_sterge1.Left = lnPozitieButon
		Endif
		If Thisform.lactiv1
			lnPozitieButon = lnPozitieButon - lnLungimeButon
			lnLungimeBanda = lnLungimeBanda + lnLungimeButon
			Thisform.but_excel1.Left = lnPozitieButon
		Endif
		If Thisform.lactiv2
			lnPozitieButon = lnPozitieButon - lnLungimeButon
			lnLungimeBanda = lnLungimeBanda + lnLungimeButon
			Thisform.but_listare1.Left = lnPozitieButon
		Endif
		If Thisform.lactiv6
		*	THISFORM.ck_util.VISIBLE=.T.
		*!*		THISFORM.ck_sters.VISIBLE=.T.
		Endif
		*!*	With Thisform._shape2
		*!*		.Width = lnLungimeBanda
		*!*		.Left = lnPozitieButon - lnOffsetBanda
		*!*	Endwith
		
		If This.but_modifica1.Visible
			This.but_modifica1.Visible=!glLunaInchisa
		Endif
		If This.but_sterge1.Visible
			This.but_sterge1.Visible=!glLunaInchisa
		Endif
		
		
		lnLeft=Thisform.Width
		For i=1 To Thisform.Objects.Count
			If Upper(Substr(Thisform.Objects(i).Name,1,4))='BUT_' And Thisform.Objects(i).Visible And lnLeft>Thisform.Objects(i).Left
				lnLeft=Thisform.Objects(i).Left
			Endif
		Endfor
		Thisform._shape2.Left=lnLeft
		*!* Locale
		*!*	goLocale.SetLocale( thisform )
		*!* Locale ^
		
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		*!*	*THISFORM.COMMAND1.visible=.t.
		*!*	*THISFORM.COMMAND1.ENABLED=.t.
		*!*	if luna_inchisa
		*!*	*THISFORM.COMMAND1.visible=.f.
		*!*	*THISFORM.COMMAND1.ENABLED=.F.
		*!*	*THISFORM.COMMAND2.ENABLED=.F.
		*!*	endif
		
		*M.NIVEL=1
		If "REGISTRU JURNAL TOTAL"$UPPER(Thisform.lb_titlu_alb_b121.Caption)
		*!*		Thisform.ck_sters.Visible=.F.
		Endif
		
		If Thisform.eactan=.T.
			Thisform._grid1.column1.Visible=.F.
			Thisform._grid1.column1.Width=0
			Thisform.ck_total.Visible=.T.
		Endif
		
		If glLunaInchisa = .T.
			Thisform.but_sterge1.Visible=.F.
			Thisform.but_modifica1.Visible=.F.
		ENDIF
		
		lnPozitieButon = THISFORM.but_termIN1.LEFT
		lnLungimeButon = THISFORM.but_termIN1.WIDTH + 1
		
		lnLeft=1000
		FOR i=1 TO THISFORM.OBJECTS.COUNT
			IF UPPER(SUBSTR(THISFORM.OBJECTS(i).NAME,1,4))='BUT_' AND THISFORM.OBJECTS(i).VISIBLE=.T. 
				IF thisform.Objects(i).left < lnleft AND UPPER(thisform.Objects(i).name)#"BUT_START_CRITERII1" AND UPPER(thisform.Objects(i).name)#"BUT_RESET_CRITERII1"
					lnleft = thisform.Objects(i).left
				ENDIF
			ENDIF
		ENDFOR
		thisform.but_start_criterii1.Left=lnLeft+60
		*thisform.but_reset_criterii1.Left=thisform.but_start_criterii1.left+thisform.but_reset_criterii1.width
		
		* SAFT
		this._gRID1.cTaxcode.Visible = m.gl406
		this._gRID1.csaftProcent.Visible = m.gl406
		this._gRID1.cPaymentCode.Visible = m.gl406
		
		this.gridextra1.setup()
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#DEFINE crlf CHR(13)+CHR(10)
		*!*	DEBUG
		*!*	SUSPEND
		lcStringCriterii="Numar doc.\NRACT\N\none\" + crlf + ;
			"Tip doc.\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
			"Serie doc.\serie_act\T\none\"+ crlf + ;
			"Data doc.\dataact\D\none\" + crlf + ;
			"Data inreg.\dataIREG\D\none\" + crlf + ;
			"Explicatie D&C\partd,partc\T\|E|ID_PARTD=<<VALOARE>> OR ID_PARTC=<<VALOARE>>\nom_parteneri"+ crlf + ;	
			"Cod fiscal D&C\cod_fiscald,cod_fiscalc\T\none\"+ crlf + ;
			"Explicatie D\partD\T\ID_PARTD\nom_parteneri"+ crlf + ;
			"Explicatie C\partC\T\ID_PARTC\nom_parteneri"+ crlf + ;
			"Explicatie\explicatia\T\none\"+ crlf + ;
			"Explicatia 4\explicatia4\T\none\"+ crlf + ;
			"Explicatia 5\explicatia5\T\none\"+ crlf + ;
			"Explicatii\partD,partC,explicatia,explicatia4,explicatia5,fdoc,gestin,gestout,nrord,contract,nresp,dst_chlt,sectie,sucursala\T\none\"+ crlf + ;
			"Gest. destinatie\gestin\T\ID_GESTIN\nom_gestiune"+ crlf + ;
			"Gest. sursa\gestout\T\ID_GESTOUT\nom_gestiune" + crlf + ;
			"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
			"Contract\contract\T\none\" + crlf + ;
			"Cont deb.\scd\T\none\" + crlf + ;
			"Cont deb. analit.\ascd\T\none\" + crlf + ;
			"Cont cred.\scc\T\none\" + crlf + ;
			"Cont cred. analit.\ascc\T\none\" + crlf + ;
			"Cls. 1-7\nofiled\E\(to_number(SUBSTR(scd,1,1)) between 1 and 7 or to_number(SUBSTR(scc,1,1)) between 1 and 7)\" + crlf + ;
			"Cls. 8\nofiled\E\(to_number(SUBSTR(scd,1,1)) = 8 or to_number(SUBSTR(scc,1,1)) = 8)\" + crlf + ;
			"Cls. 9\nofiled\E\(to_number(SUBSTR(scd,1,1)) = 9 or to_number(SUBSTR(scc,1,1)) = 9)\" + crlf + ;
			"Suma\suma\N|get_mask(12,gnPA)\none\" + crlf + ;
			"Suma valuta\suma_val\N|get_mask(12,gnPval)\none\" + crlf + ;
			"Nr doc. incasat\perecheC\N\none\" + crlf + ;
			"Data doc. incasat\dataactC\D\none\" + crlf + ;	
			"Nr doc. platit\perecheD\N\none\" + crlf + ;
			"Data doc. platit\dataactD\D\none\" + crlf + ;		
			"Doc/Incasat/Platit\nract,pereched,perechec\T\|E|NRACT=<<VALOARE>> OR PERECHED=<<VALOARE>> OR PERECHEC=<<VALOARE>>\none"+ crlf + ;		
			"Nr. NIR/bon\nnir\N\none\" + crlf + ;
			"Responsabil\nresp\T\ID_RESPONSABIL\nom_parteneri" + crlf + ;
			"Cheltuieli/Venituri\dst_chlt\T\ ID_VENCHELT\nom_venchel" + crlf + ;
			"Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
			"Cod\cod\N\none\" + crlf + ;
			"Tip operatie\id_set\N\none\" + crlf + ;
			"Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
			"Cota TVA\proc_tva\N|get_mask(12,gnPA)\none\" + crlf + ;
			"Explicatie TVA\explicatie_tva\T\none\" + crlf + ;
			IIF(m.gl406, "Cod Taxa\taxname\T\none\" + crlf, "") + ;	
			IIF(m.gl406, "Cod Plata\paymentname\T\none\" + crlf, "") + ;		
			"Data introducerii\trunc(dataora)\D\none\" + crlf + ;
			"Oper. introducere\util\T\ID_UTIL\nom_utilizator" + crlf + ;
			"Validate\nofiled\E\(validat = 1)\" + crlf + ;
			"Nevalidate\nofiled\E\(validat = 0)\" + crlf + ;	
			"Data validarii\trunc(dataorav)\D\none\" + crlf + ;
			"Oper. validare\utilv\T\ID_UTILv\nom_utilizator" + crlf + ;
			"Registru\registru\T\none\" + crlf + ;
			IIF(glEMama, "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala"+ crlf, "")  + ;	&& aleg sucursale doar daca sunt pe mama
			"Anul\an\N\none\" + crlf + ;
			"Perioada\an*12+luna\D1\none\" + crlf + ;
			"Sterse\nofiled\E\(1=1)\" + crlf + ;  &&	modificare ROACONT v 2.0.78
		    "Oper. stergere\utils\T\ID_UTILS\nom_utilizator" + crlf + ; 
		    "Data stergerii\trunc(dataoras)\D\none\"   &&	modificare ROACONT v 2.0.78 ^
		DODEFAULT()
		
	ENDPROC

	PROCEDURE Ck_total.InteractiveChange
		*
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		thisform.calculeaza_total()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		thisform.calculeaza_total()
	ENDPROC

	PROCEDURE _GRID1.Init
		*!* 06.04.2015
		*!* marius.mutu
		*!* am adaugat o expresie complexa  pereched + dataactd si dadea eroare lasetarea culorii
		*!* nu am avuttimp sa depanez
		
		DODEFAULT()
		
		*!*	IF m.nivel=0
		IF thisform.lactiv6
			
		ENDIF
		&& inregistrarile sterse au dynamicforecolor rosu
		Thisform._grid1.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column") 
		
		&& clasa 8 si 9 au dynamicforecolor verde pe conturi
		Thisform._grid1.cScd.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
		Thisform._grid1.cAScd.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
		Thisform._grid1.cScc.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
		Thisform._grid1.cAScc.DynamicForeColor = "IIF(INLIST(LEFT(SCD,1), '8', '9') OR INLIST(LEFT(SCC,1), '8', '9'), RGB(0,128,0), RGB(0,0,0))"
		
		&& inregistrarile nevalidate sunt gri
		&& campurile null au galben pai
		lnnrcol=this.ColumnCount
		FOR i = 1 TO lnnrcol
			lcColor='this.Columns(' + ALLTRIM(STR(i)) + ').DynamicBackColor'
			lcControlSource1 = 'this.Columns(' + ALLTRIM(STR(i)) + ').controlsource'
			lcControlSource = &lcControlSource1
			*!* 16.11.2007
			&& iif(validat = 0, 'NU', 'DA') dadea eroare la dynamicbackcolor
			IF 'VALIDAT'$UPPER(lcControlSource)
				lcControlSource = 'validat'
			ENDIF 	
			*!* 16.11.2007 ^	
		
			* am adaugat o expresie complexa  pereched + dataactd si dadea eroare lasetarea culorii
			IF 'pereched'$LOWER(lcControlSource) OR 'perechec'$LOWER(lcControlSource)
				LOOP
			ENDIF 
			lcSet = lcColor + [ = "IIF(validat = 0,  RGB(240,241,255), IIF(ISNULL(] + lcControlSource + [),RGB(255,255,225),RGB(255,255,255)))"]
			&lcSet
		ENDFOR 
		
	ENDPROC

ENDDEFINE

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

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

	*<PropValue>
		DoCreate = .T.
		Height = 120
		Name = "frm_aleg_vizualizare"
		Width = 263
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape2.Height = 29
		_shape2.Left = 203
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 65
		Lb_titlu_alb_b121.Caption = "VIZUALIZARE RAPORT"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Left = 5
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 4
		Lb_titlu_alb_b121.Top = 6
		BUT_TERMIN1.Left = 234
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

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

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Modalitate de vizualizare a raportului", ;
		Left = 13, ;
		Name = "Lb_simplu1", ;
		TabIndex = 5, ;
		Top = 39
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'ogTipViz' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ButtonCount = 2, ;
		Height = 48, ;
		Left = 58, ;
		Name = "ogTipViz", ;
		TabIndex = 1, ;
		Top = 57, ;
		Width = 146, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "\<listare la imprimanta", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "\<export in Excel", ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
	
	PROCEDURE Destroy
		pnOptiune=Thisform.ogTipViz.Value
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_numefis" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cale" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 160
		Name = "frm_cale_f_excel"
		Width = 340
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Height = 29
		_SHAPE2.Left = 268
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 74
		LB_TITLU_ALB_B121.Caption = "Introduceti numele fisierului"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 5
		BUT_TERMIN1.Left = 307
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

	ADD OBJECT 'Clb_cale' AS clb_tx_simplu WITH ;
		Left = 24, ;
		Name = "Clb_cale", ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 76, ;
		TEXT_SIMPLU1.Format = "!K", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Cale", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_numefis' AS clb_tx_simplu WITH ;
		Left = 24, ;
		Name = "Clb_numefis", ;
		TabIndex = 1, ;
		Top = 48, ;
		TEXT_SIMPLU1.Format = "!K", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Nume fisier", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Caption = "\<Alege cale", ;
		Height = 27, ;
		Left = 216, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 2, ;
		Top = 118
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE do_cauta
		LOCAL lcCale
		lcCale=GETDIR(gcAppPath,"Cale","Alegeti directorul",64)
		IF !EMPTY(lcCale)
			thisform.clb_cale.texT_SIMPLU1.Value=lcCale
		ENDIF
	ENDPROC

	PROCEDURE inainte_de_do_renunt
		pniesire=0
		RETURN .T.
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local lcfisier,lccale
		lccale=Alltrim(Thisform.clb_cale.text_simplu1.Value)
		lcfisier=Alltrim(Thisform.clb_numefis.text_simplu1.Value)
		If Empty(lcfisier)
			aMessagebox("Nu ati introdus numele fisierului!",0+48,"Atentie")
			Thisform.clb_numefis.SetFocus()
			Return .F.
		Else
			lnpos=At('.',lcfisier)
			lnlung=Len(lcfisier)
			If enumefis(lcfisier)
				If lnpos>0
					lcext=Upper(Substr(lcfisier,lnpos+1,lnlung-lnpos))
					Set Exact On
					If lcext!="XLS"
						aMessagebox("Extensia nu este corecta!",0+48,"Atentie")
						Thisform.clb_numefis.text_simplu1.Value=Substr(lcfisier,1,lnpos)+"XLS"
						Return .F.
					Endif
		*!*				Set Exact Off
				Else
					lcfisier=lcfisier+".XLS"
				Endif
			Else
				aMessagebox("Numele fisierului contine caractere nepermise!",0+48,"Atentie")
				Return .F.
			Endif
		Endif
		pccale=lccale+lcfisier
		If File(pccale)
			aMessagebox("Mai exista un fisier cu acest nume in directorul ales!",0+48,"Atentie")
			Thisform.clb_numefis.SetFocus()
			Return .F.
		Endif
		pniesire=1
		Return .T.
		
	ENDPROC

	PROCEDURE Init
		thisform.clb_cale.text_simplu1.Value="C:\"
	ENDPROC

	PROCEDURE Clb_cale.TEXT_SIMPLU1.Valid
		*!*	IF !EMPTY(this.value) AND !DIRECTORY(this.Value)
		*!*		MESSAGEBOX("Calea introdusa este invalida!",0+16,"Eroare")
		*!*	ENDIF
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkContP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkTipP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkGestiuneP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkSectieP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkVenCheltP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkContractP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboContE" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboContP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboVenCheltE" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboSectieE" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboTipArticoleP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboGestiuneP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboGestiuneE" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboTipArticoleE" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboVenCheltP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboSectieP" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox6" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cconte		&& cont implicit articol client
		*p: ccontp		&& cont implicit articol furnizor
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cconte = 704
		ccontp = 628
		DoCreate = .T.
		Height = 623
		Name = "frm_configurare_efactura"
		Width = 424
		_memberdata = <VFPData>
			<memberdata name="ccontp" display="cContP"/>
			<memberdata name="cconte" display="cContE"/>
		</VFPData>
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 426
		_shape2.Left = 367
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Configurare import eFactura"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 25
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 393
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 23
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare cont contabil din inregistrarile anterioare ale clientului", ;
		ControlSource = "m.gnEFACTURA_CONT_ART_EF", ;
		Left = 12, ;
		Name = "_checkbox1", ;
		TabIndex = 12, ;
		Top = 359
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_checkbox2' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare tip articol din inregistrarile anterioare ale clientului", ;
		Enabled = .F., ;
		Left = 12, ;
		Name = "_checkbox2", ;
		TabIndex = 13, ;
		Top = 380
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_checkbox3' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare gestiune din inregistrarile anterioare ale clientului", ;
		ControlSource = "m.gnEFACTURA_GEST_ART_EF", ;
		Left = 12, ;
		Name = "_checkbox3", ;
		TabIndex = 14, ;
		Top = 401
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_checkbox4' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare sectie din inregistrarile anterioare ale clientului", ;
		Enabled = .F., ;
		Left = 12, ;
		Name = "_checkbox4", ;
		TabIndex = 15, ;
		Top = 424
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_checkbox5' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare tip ven/chlt din inregistrarile anterioare ale clientului", ;
		Enabled = .F., ;
		Left = 12, ;
		Name = "_checkbox5", ;
		TabIndex = 16, ;
		Top = 443
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_checkbox6' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare contract din inregistrarile anterioare ale clientului", ;
		Enabled = .F., ;
		Left = 12, ;
		Name = "_checkbox6", ;
		TabIndex = 17, ;
		Top = 464
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_label1' AS _label WITH ;
		Caption = "Facturi primite", ;
		FontBold = .T., ;
		Left = 14, ;
		Name = "_label1", ;
		TabIndex = 26, ;
		Top = 41
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label10' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Sectie implicita", ;
		Left = 12, ;
		Name = "_label10", ;
		TabIndex = 32, ;
		Top = 569, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label11' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Tip ven/chlt implicit", ;
		Left = 12, ;
		Name = "_label11", ;
		TabIndex = 34, ;
		Top = 594, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Tip articole implicit", ;
		Left = 14, ;
		Name = "_label2", ;
		TabIndex = 28, ;
		Top = 224, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Gestiune implicita", ;
		Left = 14, ;
		Name = "_label3", ;
		TabIndex = 30, ;
		Top = 249, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label4' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Sectie implicita", ;
		Left = 14, ;
		Name = "_label4", ;
		TabIndex = 33, ;
		Top = 274, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label5' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Tip ven/chlt implicit", ;
		Left = 14, ;
		Name = "_label5", ;
		TabIndex = 31, ;
		Top = 296, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label6' AS _label WITH ;
		Caption = "Facturi emise", ;
		FontBold = .T., ;
		Left = 12, ;
		Name = "_label6", ;
		TabIndex = 37, ;
		Top = 335
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label7' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Cont articole implicit", ;
		Left = 12, ;
		Name = "_label7", ;
		TabIndex = 36, ;
		Top = 493, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label8' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Tip articole implicit", ;
		Left = 12, ;
		Name = "_label8", ;
		TabIndex = 35, ;
		Top = 517, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label9' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Gestiune implicita", ;
		Left = 12, ;
		Name = "_label9", ;
		TabIndex = 29, ;
		Top = 543, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />

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

	ADD OBJECT 'cboContE' AS _cbsearch WITH ;
		BoundColumn = 1, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "50,250,50", ;
		ControlSource = "m.gcEFACTURA_CONT_ART_E", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboContE", ;
		RowSource = "cPlContE.cont, explicatie, tip_sold", ;
		RowSourceType = 6, ;
		TabIndex = 18, ;
		Top = 489, ;
		Width = 87, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboContP' AS _cbsearch WITH ;
		BoundColumn = 1, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "50,250,50", ;
		ControlSource = "m.gcEFACTURA_CONT_ART_P", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboContP", ;
		RowSource = "cPlContP.cont, explicatie, tip_sold", ;
		RowSourceType = 6, ;
		TabIndex = 7, ;
		Top = 196, ;
		Width = 87, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboGestiuneE' AS _cbsearch WITH ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,50", ;
		ControlSource = "m.gnEFACTURA_ID_GESTIUNE_E", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboGestiuneE", ;
		RowSource = "cGestiuniE.nume_gestiune, cont, id_gestiune", ;
		RowSourceType = 6, ;
		TabIndex = 20, ;
		Top = 539, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboGestiuneP' AS _cbsearch WITH ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,50", ;
		ControlSource = "m.gnEFACTURA_ID_GESTIUNE_P", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboGestiuneP", ;
		RowSource = "cGestiuniP.nume_gestiune, cont, id_gestiune", ;
		RowSourceType = 6, ;
		TabIndex = 9, ;
		Top = 246, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboSectieE' AS _cbsearch WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 1, ;
		ColumnLines = .F., ;
		ColumnWidths = "300", ;
		ControlSource = "m.gnEFACTURA_ID_SECTIE_E", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboSectieE", ;
		RowSource = "cSectiiE.sectie, id_sectie", ;
		RowSourceType = 6, ;
		TabIndex = 21, ;
		Top = 564, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboSectieP' AS _cbsearch WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 1, ;
		ColumnLines = .F., ;
		ColumnWidths = "300", ;
		ControlSource = "m.gnEFACTURA_ID_SECTIE_P", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboSectieP", ;
		RowSource = "cSectiiP.sectie, id_sectie", ;
		RowSourceType = 6, ;
		TabIndex = 10, ;
		Top = 271, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboTipArticoleE' AS _cbsearch WITH ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,50,50", ;
		ControlSource = "m.gnEFACTURA_ID_TIPART_E", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboTipArticoleE", ;
		RowSource = "cTipArticoleE.tip, cont, id", ;
		RowSourceType = 6, ;
		TabIndex = 19, ;
		Top = 514, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboTipArticoleP' AS _cbsearch WITH ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,50,50", ;
		ControlSource = "m.gnEFACTURA_ID_TIPART_P", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboTipArticoleP", ;
		RowSource = "cTipArticoleP.tip, cont, id", ;
		RowSourceType = 6, ;
		TabIndex = 8, ;
		Top = 221, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboVenCheltE' AS _cbsearch WITH ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,50", ;
		ControlSource = "m.gnEFACTURA_ID_VENCHELT_E", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboVenCheltE", ;
		RowSource = "cVenChelE.venchelt, tip, id_venchelt", ;
		RowSourceType = 6, ;
		TabIndex = 22, ;
		Top = 589, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'cboVenCheltP' AS _cbsearch WITH ;
		BoundColumn = 3, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "300,50", ;
		ControlSource = "m.gnEFACTURA_ID_VENCHELT_P", ;
		Format = "K", ;
		Height = 24, ;
		Left = 144, ;
		Name = "cboVenCheltP", ;
		RowSource = "cVenChelP.venchelt, tip, id_venchelt", ;
		RowSourceType = 6, ;
		TabIndex = 11, ;
		Top = 296, ;
		Width = 178, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'chkContP' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare cont contabil din inregistrarile anterioare ale furnizorului", ;
		ControlSource = "m.gnEFACTURA_CONT_ART_PF", ;
		Left = 14, ;
		Name = "chkContP", ;
		TabIndex = 1, ;
		Top = 65
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkContractP' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare contract din inregistrarile anterioare ale furnizorului", ;
		Enabled = .F., ;
		Left = 14, ;
		Name = "chkContractP", ;
		TabIndex = 6, ;
		Top = 170
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkGestiuneP' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare gestiune din inregistrarile anterioare ale furnizorului", ;
		ControlSource = "m.gnEFACTURA_GEST_ART_PF", ;
		Left = 14, ;
		Name = "chkGestiuneP", ;
		TabIndex = 3, ;
		Top = 107
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkSectieP' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare sectie din inregistrarile anterioare ale furnizorului", ;
		Enabled = .F., ;
		Left = 14, ;
		Name = "chkSectieP", ;
		TabIndex = 4, ;
		Top = 130
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkTipP' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare tip articol din inregistrarile anterioare ale furnizorului", ;
		Enabled = .F., ;
		Left = 14, ;
		Name = "chkTipP", ;
		TabIndex = 2, ;
		Top = 86
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'chkVenCheltP' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Preluare tip ven/chlt din inregistrarile anterioare ale furnizorului", ;
		Enabled = .F., ;
		Left = 14, ;
		Name = "chkVenCheltP", ;
		TabIndex = 5, ;
		Top = 149
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'lblCont' AS _label WITH ;
		Anchor = 0, ;
		Caption = "Cont articole implicit", ;
		Left = 14, ;
		Name = "lblCont", ;
		TabIndex = 27, ;
		Top = 199, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
	
	PROCEDURE cboGestiuneE.Valid
		gnEFACTURA_ID_GESTIUNE_E = cGestiuniE.id_gestiune
	ENDPROC

	PROCEDURE cboGestiuneP.Valid
		gnEFACTURA_ID_GESTIUNE_P = cGestiuniP.id_gestiune
		
	ENDPROC

	PROCEDURE cboSectieE.Valid
		gnEFACTURA_ID_SECTIE_E = cSectiiE.id_sectie
	ENDPROC

	PROCEDURE cboSectieP.Valid
		gnEFACTURA_ID_SECTIE_P = cSectiiP.id_sectie
	ENDPROC

	PROCEDURE cboTipArticoleE.Valid
		gnEFACTURA_ID_TIPART_E = cTipArticoleE.id
	ENDPROC

	PROCEDURE cboTipArticoleP.Valid
		gnEFACTURA_ID_TIPART_P = cTipArticoleP.id
		
	ENDPROC

	PROCEDURE cboVenCheltE.Valid
		gnEFACTURA_ID_VENCHELT_E = cVenChelE.id_venchelt
	ENDPROC

	PROCEDURE cboVenCheltP.Valid
		gnEFACTURA_ID_VENCHELT_P = cVenChelP.id_venchelt
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_deschidere_luna_cont 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="Nu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_intrebare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ck_tva_incasare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ck_impozit_profit" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 190
		Name = "frm_deschidere_luna_cont"
		Width = 311
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 311
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 287
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Visible = .F.
		_shape2.Width = 16
		Lb_titlu_alb_b121.Caption = "Titlu"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 280
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.Visible = .F.
		GRIDSORT1.Left = 240
		GRIDSORT1.Name = "GRIDSORT1"
		GRIDSORT1.Top = 36
	*</PropValue>

	ADD OBJECT 'ck_impozit_profit' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Impozit Profit (Initializare > Configurare Impozit)", ;
		ControlSource = "pnImpozitProfit", ;
		Enabled = .F., ;
		Left = 10, ;
		Name = "ck_impozit_profit", ;
		Top = 162, ;
		Visible = .T.
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'ck_tva_incasare' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "TVA la încasare (Initializare > Configurare TVA)", ;
		ControlSource = "pnTvaIncasare", ;
		Enabled = .F., ;
		Left = 10, ;
		Name = "ck_tva_incasare", ;
		Top = 142, ;
		Visible = .T.
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Da1' AS but_da WITH ;
		Height = 30, ;
		Left = 116, ;
		Name = "Da1", ;
		TabIndex = 2, ;
		Top = 90, ;
		Width = 55, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Lb_intrebare' AS lb_simplu WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		Caption = "Intrebare", ;
		Height = 36, ;
		Left = 11, ;
		Name = "Lb_intrebare", ;
		Top = 41, ;
		Width = 286
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'Nu1' AS but_nu WITH ;
		Height = 30, ;
		Left = 172, ;
		Name = "Nu1", ;
		TabIndex = 3, ;
		Top = 90, ;
		Width = 55, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE Init
		Lparameters tcTitlu,tcIntrebare,tlDeschidereDeLuna
		DoDefault()
		Thisform.lb_titlu_alb_b121.Caption=Upper(tcTitlu)
		Thisform.lb_intrebare.Caption=tcIntrebare
		
		
	ENDPROC

ENDDEFINE

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

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

	*<DefinedPropArrayMethod>
		*p: ctip
	*</DefinedPropArrayMethod>

	*<PropValue>
		ctip = 
		DoCreate = .T.
		Height = 100
		Name = "frm_interval_date"
		Width = 338
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Width = 338
		_SHAPE2.Height = 29
		_SHAPE2.Left = 268
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 71
		LB_TITLU_ALB_B121.Caption = "Perioada raport"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 4
		BUT_TERMIN1.Left = 305
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

	ADD OBJECT 'Clb_data' AS clb_nr_intre WITH ;
		Left = 25, ;
		Name = "Clb_data", ;
		TabIndex = 1, ;
		Top = 49, ;
		tx_n1.Alignment = 3, ;
		tx_n1.ControlSource = "pdData1", ;
		tx_n1.InputMask = "", ;
		tx_n1.Name = "tx_n1", ;
		tx_n1.Value = ({}), ;
		Lb_simplu1.Caption = "Data", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		tx_n2.Alignment = 3, ;
		tx_n2.ControlSource = "pdData2", ;
		tx_n2.InputMask = "", ;
		tx_n2.Name = "tx_n2", ;
		tx_n2.Value = ({})
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE inainte_de_do_renunt
		pniesire=0
		RETURN .T.
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local llReturn
		Do Case
		Case Empty(pdData1)
			aMessagebox("Nu ati completat data de inceput!",0+48,"Atentie")
			Thisform.clb_data.tx_n1.SetFocus()
			llReturn=.F.
		Case Empty(pdData2)
			aMessagebox("Nu ati completat data de sfarsit!",0+48,"Atentie")
			Thisform.clb_data.tx_n2.SetFocus()
			llReturn=.F.
		Otherwise
			pniesire=1
			llReturn=.T.
		Endcase
		Return llReturn
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_interval_luni AS _frmbase OF "..\..\..\roacomenzi\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

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

	*<DefinedPropArrayMethod>
		*p: ctip
	*</DefinedPropArrayMethod>

	*<PropValue>
		BindControls = .T.
		ctip = 
		DoCreate = .T.
		Height = 100
		Name = "frm_interval_luni"
		Width = 338
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Width = 338
		_SHAPE2.Height = 29
		_SHAPE2.Left = 268
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 71
		LB_TITLU_ALB_B121.Caption = "Interval"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 4
		BUT_TERMIN1.Left = 305
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Left = 272, ;
		Name = "But_renunt1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\..\..\roacomenzi\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
		Left = 25, ;
		Name = "Clb_luna_intre1", ;
		Top = 49, ;
		tx_n1.ControlSource = "pcAnLuna1", ;
		tx_n1.Name = "tx_n1", ;
		Lb_simplu1.Caption = "Interval", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		tx_n2.ControlSource = "pcAnLuna2", ;
		tx_n2.Name = "tx_n2"
		*< END OBJECT: ClassLib="..\..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE inainte_de_do_termin
		LOCAL llReturn
		DO CASE
			CASE EMPTY(pcAnLuna1)
				aMESSAGEBOX("Nu ati completat luna de inceput!",0+48,"Atentie")
				THISFORM.clb_data.tx_n1.SETFOCUS()
				llReturn=.F.
			CASE EMPTY(pcAnLuna2)
				aMESSAGEBOX("Nu ati completat luna de sfarsit!",0+48,"Atentie")
				THISFORM.clb_data.tx_n2.SETFOCUS()
				llReturn=.F.
			OTHERWISE
				llReturn=.T.
		ENDCASE
		RETURN llReturn
		
	ENDPROC

ENDDEFINE

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

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

	*<PropValue>
		DoCreate = .T.
		Height = 160
		Name = "frm_optiune"
		Width = 266
		_shape1.Anchor = 10
		_shape1.Name = "_shape1"
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 203
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 65
		Lb_titlu_alb_b121.Caption = "Titlu"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 237
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

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

	ADD OBJECT 'Lb_intrebare' AS lb_simplu WITH ;
		Caption = "Intrebare", ;
		Left = 11, ;
		Name = "Lb_intrebare", ;
		Top = 39
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

	ADD OBJECT 'ogOptiuni' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ButtonCount = 4, ;
		Height = 84, ;
		Left = 22, ;
		Name = "ogOptiuni", ;
		Top = 60, ;
		Width = 220, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "optiune 1", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "optiune 2", ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "optiune 3", ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 43, ;
		Option3.Width = 69, ;
		Option4.AutoSize = .T., ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "optiune 4", ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Name = "Option4", ;
		Option4.Top = 62, ;
		Option4.Width = 69
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
	
	PROCEDURE Destroy
		pnOptiune = Thisform.ogOptiuni.Value
	ENDPROC

	PROCEDURE Init
		Lparameters tcTitlu,tcIntrebare,tnNrOptiuni,tcOptiuni,tlFaraRenuntare
		DoDefault()
		Thisform.lb_titlu_alb_b121.Caption=Upper(tcTitlu)
		Thisform.lb_intrebare.Caption=tcIntrebare
		Thisform.ogOptiuni.ButtonCount=tnNrOptiuni
		*!*	Do Case
		*!*	Case tnNrOptiuni=2
		*!*		Thisform.ogOptiuni.Height=48
		*!*	Case tnNrOptiuni=3
		*!*		Thisform.ogOptiuni.Height=60
		*!*	Endcase
		If !Empty(tlFaraRenuntare)
			Thisform.but_RENUNT1.Visible = .F.
			lnAnchor = Thisform._shaPE2.Anchor
			Thisform._shaPE2.Anchor = 0
			lnDiferenta = Thisform.but_RENUNT1.Left - Thisform._shaPE2.Left
			Thisform._shaPE2.Left = Thisform.but_teRMIN1.Left - lnDiferenta
			Thisform._shaPE2.Anchor = lnAnchor
		Endif
		If !Empty(tcOptiuni)
			lnPozI=1
			For i=1 To tnNrOptiuni
				lnPozF=At([;],tcOptiuni,i)
				Thisform.ogOptiuni.Buttons(i).Caption=Substr(tcOptiuni,lnPozI,lnPozF-lnPozI)
				Thisform.ogOptiuni.Buttons(i).AutoSize=.T.
				Thisform.ogOptiuni.Buttons(i).BackStyle=0
				lnPozI=lnPozF+1
			Endfor
		Endif
		Thisform.ogOptiuni.AutoSize=.T.
		If Thisform.ogOptiuni.Width>Thisform.Width
			Thisform.Width=Thisform.ogOptiuni.Width+Thisform.ogOptiuni.Left+10
		Endif
		Thisform.Height=Thisform.ogOptiuni.Height+Thisform.ogOptiuni.Top+15
		Thisform.ogOptiuni.Left=Round((Thisform.Width-Thisform.ogOptiuni.Width)/2,0)
		Thisform.AutoCenter=.T.
		Thisform.Refresh()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS verif_act_rul 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="grdRulaje" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNnir.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNnir.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cUM.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cUM.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPret.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPret.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCant.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCant.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCante.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCante.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCod.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCod.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cAcont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cAcont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cGest.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cGest.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrord.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrord.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPretd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPretd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProcent.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProcent.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoareftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoareftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPretv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPretv.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cTvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cTvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cUtil.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cUtil.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataora.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataora.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDatain.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDatain.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNresp.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNresp.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cGestC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cGestC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cGrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cGrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSubgrupa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSubgrupa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cUtils.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cUtils.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataoras.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataoras.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNume_val.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNume_val.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCodmatF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cCodmatF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cLot.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cLot.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataExpirare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDataExpirare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPart_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cPart_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrord_rez.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cNrord_rez.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoaretva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoaretva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoarevftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoarevftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProc_tvav.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProc_tvav.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cAdaos_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cAdaos_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoare_adaosftva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cValoare_adaosftva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloare_adaostva.header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloare_adaostva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar_tva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cDiscunitar_tva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProc_disc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cProc_disc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloarecTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloarecTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevcTVA.cvaloarevcTVA" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdRulaje.cvaloarevcTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cScd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cScd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cAscd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cAscd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cScc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cScc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cAscc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cAscc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column29.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column29.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column30.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column32.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column32.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column36.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column36.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column38.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.Column38.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cIdFact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cIdFact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nsuma
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackColor = 192,192,192
		BorderStyle = 3
		DoCreate = .T.
		Height = 508
		Name = "verif_act_rul"
		nsuma = 0
		Width = 807
		_shape1.Anchor = 11
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 828
		_shape1.ZOrderSet = 1
		_shape2.Anchor = 9
		_shape2.Left = 758
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.ZOrderSet = 2
		Lb_titlu_alb_b121.Caption = "Verificare note contabile cu rulajele dupa cod"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 6
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 778
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 4
		Gridsort1.Left = 120
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 12
	*</PropValue>

	ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
		ccolwithlabel = cNrCrt, ;
		csourcegrid = grdRulaje, ;
		csumcolumns = cValoareftva, cValoaretva, cValoarectva, cValoarevftva, cValoarevtva, cValoarevctva, cValoare_adaosftva, cvaloare_adaostva, ;
		ctotallabelexpression = 'TOTAL', ;
		Left = 6, ;
		Name = "_grdfooter1", ;
		Top = 466, ;
		Width = 792, ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 9, ;
		Comment = "*:OnResize=RB", ;
		Left = 508, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 2, ;
		TabStop = .F., ;
		Top = 212, ;
		ZOrderSet = 7, ;
		Text_simplu1.ControlSource = "thisform.nsuma", ;
		Text_simplu1.InputMask = (get_mask(12,gnPA)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "TOTAL", ;
		Lb_simplu1.FontBold = .T., ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'grdAct' AS _grid WITH ;
		Anchor = 11, ;
		ColumnCount = 42, ;
		DeleteMark = .F., ;
		Height = 168, ;
		HighlightStyle = 2, ;
		Left = 6, ;
		Name = "grdAct", ;
		Panel = 1, ;
		RecordSource = "actactan", ;
		RowHeight = 19, ;
		TabIndex = 1, ;
		Top = 39, ;
		Width = 792, ;
		ZOrderSet = 6, ;
		Column1.ControlSource = "nrcrt()", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.ForeColor = 0,0,0, ;
		Column1.Name = "Column1", ;
		Column1.Width = 30, ;
		Column2.ControlSource = "fdoc", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.ForeColor = 0,0,0, ;
		Column2.Name = "Column2", ;
		Column2.Width = 38, ;
		Column3.ControlSource = "dataireg", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.ForeColor = 0,0,0, ;
		Column3.Name = "Column3", ;
		Column3.Width = 54, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "dataact", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.ForeColor = 0,0,0, ;
		Column4.Name = "Column4", ;
		Column4.Width = 54, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "nract", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.ForeColor = 0,0,0, ;
		Column5.Name = "Column5", ;
		Column5.Width = 48, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "partD", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.ForeColor = 0,0,0, ;
		Column6.Name = "Column6", ;
		Column6.Width = 125, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "partC", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.ForeColor = 0,0,0, ;
		Column7.Name = "Column7", ;
		Column7.Width = 116, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "explicatia", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.ForeColor = 0,0,0, ;
		Column8.Name = "Column8", ;
		Column8.Width = 90, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "scd", ;
		Column9.FontBold = .T., ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.ForeColor = 0,0,0, ;
		Column9.Name = "cScd", ;
		Column9.Width = 32, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "ascd", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.ForeColor = 0,0,0, ;
		Column10.Name = "cAscd", ;
		Column10.Width = 35, ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "scc", ;
		Column11.FontBold = .T., ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.ForeColor = 0,0,0, ;
		Column11.Name = "cScc", ;
		Column11.Width = 33, ;
		Column12.ColumnOrder = 13, ;
		Column12.ControlSource = "ascc", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.ForeColor = 0,0,0, ;
		Column12.Name = "cAscc", ;
		Column12.Width = 35, ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "suma", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.ForeColor = 0,0,0, ;
		Column13.Format = "R", ;
		Column13.InputMask = (get_mask(12,gnPA)), ;
		Column13.Name = "Column13", ;
		Column13.Width = 85, ;
		Column14.ColumnOrder = 15, ;
		Column14.ControlSource = "nrord", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.ForeColor = 0,0,0, ;
		Column14.Name = "Column14", ;
		Column14.Width = 93, ;
		Column15.ColumnOrder = 17, ;
		Column15.ControlSource = "perecheD", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.ForeColor = 0,0,0, ;
		Column15.Name = "Column15", ;
		Column15.Width = 55, ;
		Column16.ColumnOrder = 18, ;
		Column16.ControlSource = "perecheC", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.ForeColor = 0,0,0, ;
		Column16.Name = "Column16", ;
		Column16.Width = 55, ;
		Column17.ColumnOrder = 21, ;
		Column17.ControlSource = "datascad", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.ForeColor = 0,0,0, ;
		Column17.Name = "Column17", ;
		Column17.Width = 47, ;
		Column18.ColumnOrder = 22, ;
		Column18.ControlSource = "nnir", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.ForeColor = 0,0,0, ;
		Column18.Name = "Column18", ;
		Column18.Width = 75, ;
		Column19.ColumnOrder = 23, ;
		Column19.ControlSource = "nresp", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.ForeColor = 0,0,0, ;
		Column19.Name = "Column19", ;
		Column20.ColumnOrder = 24, ;
		Column20.ControlSource = "dst_chlt", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.ForeColor = 0,0,0, ;
		Column20.Name = "Column20", ;
		Column21.ColumnOrder = 25, ;
		Column21.ControlSource = "suma_val", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.ForeColor = 0,0,0, ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(12,gnPVal)), ;
		Column21.Name = "Column21", ;
		Column22.ColumnOrder = 26, ;
		Column22.ControlSource = "nume_val", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.ForeColor = 0,0,0, ;
		Column22.Name = "Column22", ;
		Column22.Width = 31, ;
		Column23.ColumnOrder = 27, ;
		Column23.ControlSource = "curs", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.ForeColor = 0,0,0, ;
		Column23.InputMask = (get_mask(12,gnPcurs)), ;
		Column23.Name = "Column23", ;
		Column23.Width = 51, ;
		Column24.ColumnOrder = 32, ;
		Column24.ControlSource = "sectie", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.ForeColor = 0,0,0, ;
		Column24.Name = "Column25", ;
		Column25.ColumnOrder = 19, ;
		Column25.ControlSource = "proc_tva", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.ForeColor = 0,0,0, ;
		Column25.InputMask = "99.99", ;
		Column25.Name = "Column26", ;
		Column25.Width = 45, ;
		Column26.ColumnOrder = 39, ;
		Column26.ControlSource = "cod", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.ForeColor = 0,0,0, ;
		Column26.Name = "Column27", ;
		Column26.Width = 51, ;
		Column27.ColumnOrder = 34, ;
		Column27.ControlSource = "util", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.ForeColor = 0,0,0, ;
		Column27.Name = "Column28", ;
		Column27.Width = 84, ;
		Column28.ColumnOrder = 35, ;
		Column28.ControlSource = "dataora", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.ForeColor = 0,0,0, ;
		Column28.Name = "Column29", ;
		Column28.Width = 96, ;
		Column29.ColumnOrder = 36, ;
		Column29.ControlSource = "utils", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.ForeColor = 0,0,0, ;
		Column29.Name = "Column30", ;
		Column30.ColumnOrder = 37, ;
		Column30.ControlSource = "dataoras", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.ForeColor = 0,0,0, ;
		Column30.Name = "Column31", ;
		Column30.Width = 83, ;
		Column31.ColumnOrder = 38, ;
		Column31.ControlSource = "id_set", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.ForeColor = 0,0,0, ;
		Column31.Name = "Column32", ;
		Column32.ColumnOrder = 33, ;
		Column32.ControlSource = "sucursala", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.ForeColor = 0,0,0, ;
		Column32.Name = "Column33", ;
		Column33.ColumnOrder = 28, ;
		Column33.ControlSource = "explicatia4", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.ForeColor = 0,0,0, ;
		Column33.Name = "Column34", ;
		Column34.ColumnOrder = 29, ;
		Column34.ControlSource = "explicatia5", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.ForeColor = 0,0,0, ;
		Column34.Name = "Column35", ;
		Column35.ColumnOrder = 30, ;
		Column35.ControlSource = "GESTIN", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.ForeColor = 0,0,0, ;
		Column35.Name = "Column36", ;
		Column36.ColumnOrder = 31, ;
		Column36.ControlSource = "GESTOUT", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.ForeColor = 0,0,0, ;
		Column36.Name = "Column37", ;
		Column37.ColumnOrder = 16, ;
		Column37.ControlSource = "contract", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.ForeColor = 0,0,0, ;
		Column37.Name = "Column24", ;
		Column37.Width = 58, ;
		Column38.ColumnOrder = 20, ;
		Column38.ControlSource = "explicatie_tva", ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.ForeColor = 0,0,0, ;
		Column38.Name = "Column38", ;
		Column39.ColumnOrder = 5, ;
		Column39.ControlSource = "serie_act", ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.ForeColor = 0,0,0, ;
		Column39.Name = "cSerie_act", ;
		Column39.Width = 51, ;
		Column40.ControlSource = "id_Fact", ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "cIdFact", ;
		Column41.ControlSource = "id_factd", ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cIdFactD", ;
		Column42.ControlSource = "id_factc", ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.Name = "cIdFactC"
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />

	ADD OBJECT 'grdAct.cAscc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "A Cred", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.cAscd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "A Deb", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.cIdFact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id fact", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.cIdFactC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id FactC", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.cIdFactD.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id FactD", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'grdAct.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'grdAct.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "NIR/Bon", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'grdAct.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.Column20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Chelt/Venituri", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'grdAct.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operator stergere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.Column31.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora stergerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'grdAct.cScc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C Cred", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdAct.cScd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C Deb", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'grdRulaje.cvaloare_adaostva.header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare TVA adaos", ;
		FontName = "Arial", ;
		Name = "header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'grdRulaje.cvaloarevTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Show
		Lparameters nStyle
		Select actactan
		Sum suma To Thisform.nsuma
		
		
		This.Width = INT(_screen.Width*0.9)
		This.Height = Int(_Screen.Height * 0.7)
		this.AutoCenter = .T.
		
		This._grdfooter1.attachtogrid(This.grdrulaje)
		This._grdfooter1.calctotal()
	ENDPROC

	PROCEDURE grdAct.Init
		* Nu sterge
	ENDPROC

	PROCEDURE grdRulaje.Init
		*Nu sterge
	ENDPROC

ENDDEFINE

DEFINE CLASS verificare AS formtermin OF "baza.vcx" 		&& La stergerea setului de note contabile din registrul jurnal.
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Precedent1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Blocbuton1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Blocbuton1.Da1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Blocbuton1.Nu1" 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.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.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.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.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column37.Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: aleg_ascc
		*m: aleg_ascd
		*m: verif_ascc
		*m: verif_ascd
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		Caption = ""
		DataSession = 1
		DoCreate = .T.
		Height = 388
		Name = "verificare"
		Width = 832
		SHAPE1.Anchor = 10
		SHAPE1.Height = 36
		SHAPE1.Left = 0
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 0
		SHAPE1.Width = 828
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 27
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 30
		TERMINAT1.Left = 792
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.Top = 2
		TERMINAT1.Visible = .F.
		TITLUFRUMOS1.Caption = "STERGETI SETUL DE NOTE CONTABILE ?"
		TITLUFRUMOS1.Height = 27
		TITLUFRUMOS1.Left = 7
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.Top = 5
		TITLUFRUMOS1.Width = 364
	*</PropValue>

	ADD OBJECT 'Blocbuton1' AS blocbuton WITH ;
		Anchor = 8, ;
		Height = 37, ;
		Left = 719, ;
		Name = "Blocbuton1", ;
		Top = -1, ;
		Visible = .T., ;
		Width = 110
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'Blocbuton1.Da1' AS da WITH ;
		Left = 55, ;
		Name = "Da1", ;
		Top = 4, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'Blocbuton1.Nu1' AS nu WITH ;
		Left = 4, ;
		Name = "Nu1", ;
		Top = 4, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		Anchor = 15, ;
		BackColor = 255,255,255, ;
		ColumnCount = 37, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		GridLineColor = 192,192,192, ;
		GridLines = 3, ;
		Height = 349, ;
		Left = 0, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "ACTACTAN", ;
		RowHeight = 19, ;
		TabIndex = 5, ;
		Top = 35, ;
		Width = 828, ;
		ZOrderSet = 5, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "NRCRT()", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 34, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "DATAIREG", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 67, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 255,255,255, ;
		Column3.ColumnOrder = 2, ;
		Column3.ControlSource = "FDOC", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 90, ;
		Column4.Alignment = 0, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "DATAACT", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 70, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "NRACT", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 94, ;
		Column6.Alignment = 0, ;
		Column6.BackColor = 255,255,255, ;
		Column6.ColumnOrder = 11, ;
		Column6.ControlSource = "partd", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 134, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 255,255,255, ;
		Column7.ColumnOrder = 6, ;
		Column7.ControlSource = "SCD", ;
		Column7.DynamicForeColor = "rgb(0,0,128)", ;
		Column7.FontBold = .F., ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.ForeColor = 0,0,128, ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 62, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 255,255,255, ;
		Column8.ColumnOrder = 8, ;
		Column8.ControlSource = "SCC", ;
		Column8.DynamicForeColor = "rgb(0,0,128)", ;
		Column8.FontBold = .F., ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 66, ;
		Column9.Alignment = 1, ;
		Column9.BackColor = 255,255,255, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "SUMA", ;
		Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column9.FontBold = .F., ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Format = "r", ;
		Column9.InputMask = (get_mask(12,gnPa)), ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 107, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 255,255,255, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "partc", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 132, ;
		Column11.Alignment = 0, ;
		Column11.BackColor = 255,255,255, ;
		Column11.ColumnOrder = 13, ;
		Column11.ControlSource = "EXPLICATIA", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 72, ;
		Column12.BackColor = 255,255,255, ;
		Column12.ColumnOrder = 29, ;
		Column12.ControlSource = "COD", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 97, ;
		Column13.BackColor = 255,255,255, ;
		Column13.ColumnOrder = 17, ;
		Column13.ControlSource = "pereched", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 91, ;
		Column14.BackColor = 255,255,255, ;
		Column14.ColumnOrder = 20, ;
		Column14.ControlSource = "explicatia4", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 72, ;
		Column15.BackColor = 255,255,255, ;
		Column15.ColumnOrder = 22, ;
		Column15.ControlSource = "suma_val", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.Format = "r", ;
		Column15.InputMask = (get_mask(12,gnPval)), ;
		Column15.Name = "Column16", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 67, ;
		Column16.BackColor = 255,255,255, ;
		Column16.ColumnOrder = 23, ;
		Column16.ControlSource = "curs", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.Format = "r", ;
		Column16.InputMask = (get_mask(12,gnPcurs)), ;
		Column16.Name = "Column17", ;
		Column16.ReadOnly = .T., ;
		Column16.Width = 64, ;
		Column17.BackColor = 255,255,255, ;
		Column17.ColumnOrder = 28, ;
		Column17.ControlSource = "proc_tva", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.InputMask = "999.99", ;
		Column17.Name = "Column18", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 78, ;
		Column18.BackColor = 255,255,255, ;
		Column18.ColumnOrder = 19, ;
		Column18.ControlSource = "datascad", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.Name = "Column19", ;
		Column18.ReadOnly = .T., ;
		Column18.Visible = .T., ;
		Column18.Width = 88, ;
		Column19.BackColor = 255,255,255, ;
		Column19.ColumnOrder = 21, ;
		Column19.ControlSource = "explicatia5", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Name = "Column20", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 72, ;
		Column20.BackColor = 255,255,255, ;
		Column20.ColumnOrder = 31, ;
		Column20.ControlSource = "util", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.Name = "Column21", ;
		Column20.ReadOnly = .T., ;
		Column20.Width = 122, ;
		Column21.BackColor = 255,255,255, ;
		Column21.ColumnOrder = 32, ;
		Column21.ControlSource = "dataora", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.Name = "Column22", ;
		Column21.ReadOnly = .T., ;
		Column21.Width = 125, ;
		Column22.BackColor = 255,255,255, ;
		Column22.ColumnOrder = 33, ;
		Column22.ControlSource = "utils", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Name = "Column23", ;
		Column22.ReadOnly = .T., ;
		Column22.Width = 105, ;
		Column23.BackColor = 255,255,255, ;
		Column23.ColumnOrder = 34, ;
		Column23.ControlSource = "dataoras", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Name = "Column24", ;
		Column23.ReadOnly = .T., ;
		Column23.Width = 108, ;
		Column24.BackColor = 255,255,255, ;
		Column24.ColumnOrder = 25, ;
		Column24.ControlSource = "nresp", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.Name = "Column25", ;
		Column24.ReadOnly = .T., ;
		Column24.Width = 78, ;
		Column25.BackColor = 255,255,255, ;
		Column25.ColumnOrder = 26, ;
		Column25.ControlSource = "dst_chlt", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "Column26", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 105, ;
		Column26.BackColor = 255,255,255, ;
		Column26.ColumnOrder = 14, ;
		Column26.ControlSource = "nrord", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.Name = "Column27", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 106, ;
		Column27.BackColor = 255,255,255, ;
		Column27.ColumnOrder = 16, ;
		Column27.ControlSource = "nnir", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.Name = "Column28", ;
		Column27.ReadOnly = .T., ;
		Column27.Width = 98, ;
		Column28.BackColor = 255,255,255, ;
		Column28.ColumnOrder = 27, ;
		Column28.ControlSource = "sectie", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Name = "Column29", ;
		Column28.ReadOnly = .T., ;
		Column28.Width = 76, ;
		Column29.BackColor = 255,255,255, ;
		Column29.ColumnOrder = 24, ;
		Column29.ControlSource = "neimpozab", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.InputMask = (get_mask(12,gnPa)), ;
		Column29.Name = "Column30", ;
		Column29.ReadOnly = .T., ;
		Column30.BackColor = 242,255,255, ;
		Column30.ColumnOrder = 7, ;
		Column30.ControlSource = "ascd", ;
		Column30.DynamicBackColor = "rgb(242,255,255)", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.Format = "r", ;
		Column30.InputMask = "xxxx", ;
		Column30.Name = "Column31", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 50, ;
		Column31.BackColor = 242,255,255, ;
		Column31.ColumnOrder = 9, ;
		Column31.ControlSource = "ascc", ;
		Column31.DynamicBackColor = "rgb(242,255,255)", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.Format = "r", ;
		Column31.InputMask = "xxxx", ;
		Column31.Name = "Column32", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 48, ;
		Column32.BackColor = 255,255,255, ;
		Column32.ColumnOrder = 18, ;
		Column32.ControlSource = "perechec", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.Name = "Column33", ;
		Column32.ReadOnly = .T., ;
		Column32.Width = 88, ;
		Column33.BackColor = 255,255,255, ;
		Column33.ColumnOrder = 30, ;
		Column33.ControlSource = "sucursala", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.Name = "Column15", ;
		Column33.ReadOnly = .T., ;
		Column33.Width = 109, ;
		Column34.BackColor = 255,255,255, ;
		Column34.ColumnOrder = 15, ;
		Column34.ControlSource = "contract", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 72, ;
		Column35.BackColor = 255,255,255, ;
		Column35.ControlSource = "explicatie_tva", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 164, ;
		Column36.BackColor = 255,255,255, ;
		Column36.ControlSource = "taxname", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.Name = "Column36", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 111, ;
		Column37.BackColor = 255,255,255, ;
		Column37.ControlSource = "paymentname", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.Name = "Column37", ;
		Column37.ReadOnly = .T., ;
		Column37.Width = 96
		*< END OBJECT: BaseClass="grid" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data&ora introducerii", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		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", ;
		FontSize = 10, ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
		Caption = "Analit.D", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
		Caption = "Analit.C", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
		BackColor = 242,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		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", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column37.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		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", ;
		FontSize = 10, ;
		Name = "Header4"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Precedent1' AS precedent WITH ;
		Left = 761, ;
		Name = "Precedent1", ;
		Top = 2, ;
		Visible = .F., ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
	
	PROCEDURE aleg_ascc
		*!*	LOCAL cc,acc
		*!*	m.den=''
		*!*	SELECT actactan
		*!*	cc=scC
		*!*	acc=ascc
		
		*!*	SELECT cont+'.'+acont+' - '+denumire as den FROM plcontana WHERE ALLTRIM(cont)=ALLTRIM(cc) INTO CURSOR ceva ORDER BY acont
		*!*	SELECT ceva
		
		*!*	IF _tally=0
		*!*		*	DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+cc
		*!*		IF USED('CEVA')
		*!*			USE IN ceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		RETURN
		*!*	ENDIF
		
		*!*	SELECT ceva 
		*!*	DO caut_alfa_cursor WITH 'ceva','den','Alegeti simbolul analitic','m.den'
		
		*!*	SELECT actactan
		*!*	REPLACE ascC WITH SUBSTR(m.den,6,4)
		
		*!*	IF USED('CEVA')
		*!*		USE IN ceva 
		*!*	ENDIF  
		*!*	SELECT actactan 
		*!*	thisform.grid1.refresh
	ENDPROC

	PROCEDURE aleg_ascd
		*!*	LOCAL cc
		*!*	m.den=''
		*!*	SELECT actactan
		*!*	cc=scd
		
		*!*	SELECT cont+'.'+acont+' - '+denumire as den FROM plcontana WHERE cont=cc INTO CURSOR ceva ORDER BY acont
		*!*	IF _tally=0
		*!*	*DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+cc
		*!*		IF USED('CEVA')
		*!*			USE IN ceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		RETURN
		*!*	endif
		
		*!*	DO caut_alfa_cursor WITH 'ceva','den','Alegeti simbolul analitic','m.den'
		
		*!*	SELECT actactan
		*!*	REPLACE ascd WITH SUBSTR(m.den,6,4)
		*!*	IF USED('CEVA')
		*!*		USE IN ceva 
		*!*	ENDIF 
		*!*	SELECT actactan 
		*!*	thisform.grid1.refresh
	ENDPROC

	PROCEDURE Init
		Local lnFormHeight, lnGridHeight
		lnGridHeight = RECCOUNT('actactan')  * this.griD1.RowHeight + this.grid1.HeaderHeight
		lnFormHeight = m.lnGridHeight + this.shape1.Height
		
		this.Height = MAX(400, MIN(m.lnFormHeight, INT(_screen.Height*0.7)))
		this.Width = INT(_screen.Width*0.7)
		this.AutoCenter = .T.
		
		this.grID1.column36.Visible = m.gl406 && taxa saft
		this.grID1.column37.Visible = m.gl406 && cod plata saft
		
		Do nrord With 'actactan'
		Select actactan
		Go Top
		
		 
	ENDPROC

	PROCEDURE verif_ascc
		*!*	LOCAL lc_d,acC
		*!*	m.den=''
		*!*	ll_l=.f.
		*!*	SELECT actactan
		*!*	lc_C=scC
		*!*	acC=ascC
		
		*!*	SELECT cont+'.'+acont+' - '+denumire as den,cont,acont FROM plcontana ;
		*!*	WHERE ALLTRIM(cont)=ALLTRIM(lc_C) ;
		*!*	INTO CURSOR tceva ORDER BY acont
		
		*!*	SELECT tceva
		
		*!*	IF _tally=0
		*!*		IF !EMPTY(acC)
		*!*			DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+lc_C
		*!*			ll_l=.t.
		*!*		ENDIF 
		*!*		
		*!*		IF USED('TCEVA')
		*!*			USE IN Tceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		THIS.grid1.Setfocus 
		*!*		RETURN ll_l
		*!*	ELSE 
		*!*		IF !PlClick
		*!*			IF EMPTY(acc)
		*!*				SELECT actactan
		*!*				IF FLOCK()
		*!*					REPLACE ascc WITH '0000'
		*!*				ENDIF 
		*!*				IF USED('TCEVA')
		*!*					USE IN Tceva 
		*!*				ENDIF 
		*!*				SELECT actactan 
		*!*				THIS.grid1.SetFocus 
		*!*				RETURN ll_l
		*!*			ENDIF 
		*!*		ENDIF 
		*!*	ENDIF
		
		*!*	SELECT tceva
		*!*	IF PlClick
		*!*		DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*		SELECT actactan
		*!*		REPLACE ascC WITH SUBSTR(m.den,6,4)
		*!*	ELSE 
		*!*		LOCATE FOR ALLTRIM(cont)=ALLTRIM(lc_C) AND ALLTRIM(acont)=ALLTRIM(acC)
		*!*		IF !FOUND()
		*!*			DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*			SELECT actactan
		*!*			REPLACE ascC WITH SUBSTR(m.den,6,4)
		*!*		ENDIF 
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva 
		*!*	ENDIF  
		
		*!*	SELECT actactan 
		*!*	this.grid1.Refresh 
		*!*	RETURN ll_l
	ENDPROC

	PROCEDURE verif_ascd
		*!*	LOCAL lc_d,acd
		*!*	m.den=''
		*!*	ll_l=.f.
		*!*	SELECT actactan
		*!*	lc_d=scd
		*!*	acd=ascd
		
		*!*	SELECT cont+'.'+acont+' - '+denumire as den,cont,acont FROM plcontana ;
		*!*	WHERE ALLTRIM(cont)=ALLTRIM(lc_d) ;
		*!*	INTO CURSOR tceva ORDER BY acont
		
		*!*	SELECT tceva
		
		*!*	IF _tally=0
		*!*		IF !EMPTY(acd)
		*!*			DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul '+lc_d
		*!*			ll_l=.t.
		*!*		ENDIF 
		*!*		
		*!*		IF USED('TCEVA')
		*!*			USE IN Tceva 
		*!*		ENDIF 
		*!*		SELECT actactan 
		*!*		THIS.Grid1.SetFocus 
		*!*		RETURN ll_l
		*!*	ELSE 
		*!*		IF !PlClick
		*!*			IF empty(acd)
		*!*				SELECT actactan
		*!*				IF FLOCK()
		*!*					REPLACE ascd WITH '0000'
		*!*				ENDIF 
		*!*				IF USED('TCEVA')
		*!*					USE IN Tceva 
		*!*				ENDIF 
		*!*				SELECT actactan 
		*!*				THIS.Grid1.SetFocus  
		*!*				RETURN ll_l
		*!*			ENDIF 
		*!*		ENDIF 
		*!*	ENDIF
		
		*!*	SELECT tceva
		
		*!*	IF PlClick
		*!*		DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*		SELECT actactan
		*!*		REPLACE ascd WITH SUBSTR(m.den,6,4)
		*!*	ELSE 
		*!*		LOCATE FOR ALLTRIM(cont)=ALLTRIM(lc_d) AND ALLTRIM(acont)=ALLTRIM(acd)
		*!*		IF !FOUND()
		*!*			DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
		*!*			SELECT actactan
		*!*			REPLACE ascd WITH SUBSTR(m.den,6,4)
		*!*		ENDIF 
		*!*	ENDIF 
		
		*!*	IF USED('TCEVA')
		*!*		USE IN Tceva 
		*!*	ENDIF  
		
		*!*	SELECT actactan 
		*!*	THIS.Grid1.Refresh
		*!*	RETURN ll_l
	ENDPROC

	PROCEDURE Grid1.Column1.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column1.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column11.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column11.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column12.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column12.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column31.Text1.Click
		*!*	*thisform.ALEG_ASCD()
		*!*	this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Grid1.Column31.Text1.LostFocus
		*!*	PARAMETERS PlClick
		*!*		ll_l=thisform.verif_ASCD()
		*!*		IF ll_l
		*!*			REPLACE ACTACTAN.ASCD WITH ''
		*!*			RETURN 0
		*!*		ENDIF 
		*!*		THIS.Parent.Parent.Refresh 
		*ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.Click
		*!*	*thisform.ALEG_ASCC()
		*!*	this.LostFocus(.t.)
		
	ENDPROC

	PROCEDURE Grid1.Column32.Text1.LostFocus
		*!*	PARAMETERS PlClick
		*!*	*IF !EMPTY(ascc)
		*!*		ll_l=thisform.verif_ASCC()
		*!*		IF ll_l
		*!*			REPLACE ACTACTAN.ASCC WITH ''
		*!*			RETURN 0
		*!*		ENDIF 
		*!*		THIS.Parent.Parent.Refresh 
		*!*	*ENDIF 
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column5.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column5.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.DblClick
		*thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Precedent1.COMMAND1.Click
		BUTON=3
		THISFORM.Release 
	ENDPROC

ENDDEFINE

DEFINE CLASS vizpage AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="BANDA21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgcod" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" 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.Column8.Header8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.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="Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text27" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label27" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BANDABLOC1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BANDABLOC1.BLOCBUTON1.Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text28" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label28" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BLOCBUTON1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BLOCBUTON1.Nu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BLOCBUTON1.Da1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Tpreta" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Tpretv" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lpreta" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lpretv" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: setcaption
		*m: updatelist
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 1
		Caption = "Form1"
		DoCreate = .T.
		FontName = "Comic Sans MS"
		Height = 377
		Name = "vizpage"
		TitleBar = 0
		Width = 682
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'BANDA21' AS banda2 WITH ;
		Height = 34, ;
		Left = 0, ;
		Name = "BANDA21", ;
		Top = 0, ;
		Visible = .F., ;
		Width = 683
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="shape" />

	ADD OBJECT 'BANDABLOC1' AS bandabloc WITH ;
		Left = 0, ;
		Name = "BANDABLOC1", ;
		TabIndex = 60, ;
		Top = 0, ;
		BANDA21.Name = "BANDA21", ;
		BLOCBUTON1.Name = "BLOCBUTON1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'BANDABLOC1.BLOCBUTON1.Terminat1' AS terminat WITH ;
		Left = 88, ;
		Name = "Terminat1", ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'BLOCBUTON1' AS blocbuton WITH ;
		Height = 35, ;
		Left = 574, ;
		Name = "BLOCBUTON1", ;
		Top = -1, ;
		Visible = .F., ;
		Width = 110
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'BLOCBUTON1.Da1' AS da WITH ;
		Left = 54, ;
		Name = "Da1", ;
		Top = 3, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 51, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'BLOCBUTON1.Nu1' AS nu WITH ;
		Left = 4, ;
		Name = "Nu1", ;
		Top = 3, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 51, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 21, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		GridLineColor = 128,128,128, ;
		Height = 241, ;
		Left = 17, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "rull", ;
		RowHeight = 19, ;
		TabIndex = 28, ;
		Top = 106, ;
		Width = 645, ;
		ZOrderSet = 6, ;
		Column1.Alignment = 0, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ColumnOrder = 4, ;
		Column1.ControlSource = "um", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 39, ;
		Column2.Alignment = 1, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ColumnOrder = 5, ;
		Column2.ControlSource = "pret", ;
		Column2.DynamicForeColor = "IIF(PRET>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.Format = "r", ;
		Column2.InputMask = "99 999 999 999 999.99", ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 66, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 255,255,255, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "denumire", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 9, ;
		Column3.Format = "", ;
		Column3.InputMask = "", ;
		Column3.Name = "Column4", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 124, ;
		Column4.Alignment = 1, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "cant", ;
		Column4.DynamicForeColor = "IIF(CANT>=0, RGB(0,0,0), RGB(0,0,255))", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.FontSize = 9, ;
		Column4.Format = "r", ;
		Column4.InputMask = "999 999.999", ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 69, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "cante", ;
		Column5.DynamicForeColor = "IIF(CANTE>=0, RGB(0,0,0), RGB(0,0,255))", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.FontSize = 9, ;
		Column5.Format = "r", ;
		Column5.InputMask = "999 999.999", ;
		Column5.Name = "Column6", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 67, ;
		Column6.Alignment = 1, ;
		Column6.BackColor = 255,255,255, ;
		Column6.ColumnOrder = 9, ;
		Column6.ControlSource = "gest", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.FontSize = 9, ;
		Column6.Format = "", ;
		Column6.InputMask = "", ;
		Column6.Name = "Column8", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 43, ;
		Column7.BackColor = 255,255,255, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "scd", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.FontSize = 9, ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 46, ;
		Column8.BackColor = 255,255,255, ;
		Column8.ColumnOrder = 14, ;
		Column8.ControlSource = "pretv", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.FontSize = 9, ;
		Column8.Format = "r", ;
		Column8.InputMask = "99 999 999 999 999", ;
		Column8.Name = "Column9", ;
		Column8.ReadOnly = .T., ;
		Column8.Visible = .T., ;
		Column8.Width = 75, ;
		Column9.BackColor = 255,255,255, ;
		Column9.ColumnOrder = 15, ;
		Column9.ControlSource = "tva", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.FontSize = 9, ;
		Column9.Format = "r", ;
		Column9.InputMask = "999 999 999 999", ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .T., ;
		Column9.Visible = .T., ;
		Column9.Width = 75, ;
		Column10.BackColor = 255,255,255, ;
		Column10.ColumnOrder = 16, ;
		Column10.ControlSource = "tvav", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.FontSize = 9, ;
		Column10.Format = "r", ;
		Column10.InputMask = "999 999 999 999", ;
		Column10.Name = "Column11", ;
		Column10.ReadOnly = .T., ;
		Column10.Visible = .T., ;
		Column10.Width = 75, ;
		Column11.BackColor = 255,255,255, ;
		Column11.ColumnOrder = 17, ;
		Column11.ControlSource = "(cant+cante)*(pret+tva)", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.FontSize = 9, ;
		Column11.Format = "r", ;
		Column11.InputMask = "99 999 999 999 999", ;
		Column11.Name = "Column12", ;
		Column11.ReadOnly = .T., ;
		Column11.Visible = .T., ;
		Column11.Width = 75, ;
		Column12.BackColor = 255,255,255, ;
		Column12.ColumnOrder = 18, ;
		Column12.ControlSource = "(cant+cante)*(pretv+tvav)", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.FontSize = 9, ;
		Column12.Format = "r", ;
		Column12.InputMask = "99 999 999 999 999", ;
		Column12.Name = "Column13", ;
		Column12.ReadOnly = .T., ;
		Column12.Visible = .T., ;
		Column12.Width = 75, ;
		Column13.BackColor = 255,255,255, ;
		Column13.ColumnOrder = 10, ;
		Column13.ControlSource = "curs", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.FontSize = 9, ;
		Column13.Format = "r", ;
		Column13.InputMask = "9 999 999 999", ;
		Column13.Name = "Column14", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 54, ;
		Column14.BackColor = 255,255,255, ;
		Column14.ColumnOrder = 12, ;
		Column14.ControlSource = "procent", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.FontSize = 9, ;
		Column14.Format = "r", ;
		Column14.InputMask = "999.99", ;
		Column14.Name = "Column15", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 51, ;
		Column15.BackColor = 255,255,255, ;
		Column15.ColumnOrder = 13, ;
		Column15.ControlSource = "adaos", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.FontSize = 9, ;
		Column15.Format = "r", ;
		Column15.InputMask = "9 999 999 999", ;
		Column15.Name = "Column16", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 56, ;
		Column16.BackColor = 255,255,255, ;
		Column16.ColumnOrder = 11, ;
		Column16.ControlSource = "pretd", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.FontSize = 9, ;
		Column16.Format = "r", ;
		Column16.InputMask = "9 999 999.99", ;
		Column16.Name = "Column17", ;
		Column16.ReadOnly = .T., ;
		Column16.Width = 63, ;
		Column17.BackColor = 255,255,255, ;
		Column17.ColumnOrder = 2, ;
		Column17.ControlSource = "codmat", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.FontSize = 9, ;
		Column17.Name = "Column18", ;
		Column17.ReadOnly = .F., ;
		Column17.Width = 63, ;
		Column18.BackColor = 255,255,255, ;
		Column18.ColumnOrder = 19, ;
		Column18.ControlSource = "util", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.FontSize = 9, ;
		Column18.Name = "Column19", ;
		Column18.ReadOnly = .T., ;
		Column18.Width = 95, ;
		Column19.BackColor = 255,255,255, ;
		Column19.ColumnOrder = 20, ;
		Column19.ControlSource = "dataora", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.FontSize = 9, ;
		Column19.Name = "Column20", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 94, ;
		Column20.BackColor = 255,255,255, ;
		Column20.ColumnOrder = 1, ;
		Column20.ControlSource = "nnir", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.FontSize = 9, ;
		Column20.Name = "Column21", ;
		Column20.ReadOnly = .T., ;
		Column20.Width = 55, ;
		Column21.BackColor = 255,255,255, ;
		Column21.ColumnOrder = 21, ;
		Column21.ControlSource = "sectie", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.FontSize = 9, ;
		Column21.Name = "Column22", ;
		Column21.ReadOnly = .T., ;
		Column21.Width = 75
		*< END OBJECT: BaseClass="grid" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		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 = "Denumire", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header4"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
		Alignment = 2, ;
		BackColor = 212,208,200, ;
		Caption = "Iesiri", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header6"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Fel document", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label1", ;
		TabIndex = 33, ;
		Top = 114, ;
		Width = 65
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Suma", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label10", ;
		TabIndex = 41, ;
		Top = 114, ;
		Width = 29
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Lucrarea", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label11", ;
		TabIndex = 42, ;
		Top = 193, ;
		Width = 45
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Nr doc.platit", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label12", ;
		TabIndex = 43, ;
		Top = 114, ;
		Width = 57
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Data scadenta", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label13", ;
		TabIndex = 44, ;
		Top = 220, ;
		Width = 69
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		AutoSize = .T., ;
		Caption = "NIR / Bon", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label14", ;
		TabIndex = 45, ;
		Top = 166, ;
		Width = 49
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Responsabil", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label15", ;
		TabIndex = 46, ;
		Top = 246, ;
		Width = 60
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label16' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Cheltuiala/Venit", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label16", ;
		TabIndex = 47, ;
		Top = 273, ;
		Width = 74
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label17' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Explicatia4", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label17", ;
		TabIndex = 48, ;
		Top = 299, ;
		Width = 52
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label18' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Explicatia5", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label18", ;
		TabIndex = 49, ;
		Top = 324, ;
		Width = 52
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label19' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Explicatia6", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label19", ;
		TabIndex = 50, ;
		Top = 220, ;
		Width = 52
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Data inregistrarii", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label2", ;
		TabIndex = 32, ;
		Top = 140, ;
		Width = 78
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label20' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Suma in valuta", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label20", ;
		TabIndex = 51, ;
		Top = 166, ;
		Width = 71
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label21' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Curs valutar", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label21", ;
		TabIndex = 52, ;
		Top = 193, ;
		Width = 60
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label22' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Neimpozabil", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 233, ;
		Name = "Label22", ;
		TabIndex = 53, ;
		Top = 140, ;
		Width = 59
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label23' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Sectie", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label23", ;
		TabIndex = 54, ;
		Top = 246, ;
		Width = 30
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label24' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Cod fiscal", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label24", ;
		TabIndex = 56, ;
		Top = 273, ;
		Width = 47
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label25' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label25", ;
		TabIndex = 57, ;
		Top = 39, ;
		Width = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label26' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Operator introducere", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 121, ;
		Name = "Label26", ;
		TabIndex = 58, ;
		Top = 38, ;
		Width = 100
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label27' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data/ora introducerii", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 346, ;
		Name = "Label27", ;
		TabIndex = 59, ;
		Top = 38, ;
		Width = 97
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label28' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Nr doc.incasat", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 450, ;
		Name = "Label28", ;
		TabIndex = 55, ;
		Top = 140, ;
		Width = 69
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label29' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Tip op.", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 568, ;
		Name = "Label29", ;
		TabIndex = 57, ;
		Top = 39, ;
		Width = 35
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Data actului ", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label3", ;
		TabIndex = 34, ;
		Top = 166, ;
		Width = 59
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Nr document", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label4", ;
		TabIndex = 35, ;
		Top = 193, ;
		Width = 62
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Explicatia1", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label5", ;
		TabIndex = 36, ;
		Top = 220, ;
		Width = 52
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Explicatia2", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label6", ;
		TabIndex = 37, ;
		Top = 246, ;
		Width = 52
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Explicatia3", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label7", ;
		TabIndex = 38, ;
		Top = 273, ;
		Width = 52
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Analitic debitor", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label8", ;
		TabIndex = 39, ;
		Top = 299, ;
		Width = 69
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Analitic creditor", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label9", ;
		TabIndex = 40, ;
		Top = 324, ;
		Width = 72
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lpreta' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Total Achizitie", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 129, ;
		Name = "Lpreta", ;
		TabIndex = 58, ;
		Top = 67, ;
		Visible = .F., ;
		Width = 65
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lpretv' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Toatal Vanzare", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 354, ;
		Name = "Lpretv", ;
		TabIndex = 59, ;
		Top = 67, ;
		Visible = .F., ;
		Width = 74
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pgcod' AS pageframe WITH ;
		ActivePage = 1, ;
		ErasePage = .T., ;
		Height = 302, ;
		Left = 7, ;
		Name = "pgcod", ;
		PageCount = 3, ;
		TabIndex = 1, ;
		Tabs = .T., ;
		TabStretch = 1, ;
		TabStyle = 1, ;
		Top = 62, ;
		Width = 666, ;
		Page1.Caption = "", ;
		Page1.Name = "page1", ;
		Page1.PageOrder = 1, ;
		Page2.Caption = "", ;
		Page2.Name = "page2", ;
		Page2.PageOrder = 2, ;
		Page3.Caption = "", ;
		Page3.FontName = "MS Sans Serif", ;
		Page3.Name = "page3", ;
		Page3.PageOrder = 3
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 252, ;
		Left = 13, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 101, ;
		Width = 653
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "camp.fdoc", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 112, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text10' AS textbox WITH ;
		ControlSource = "camp.suma", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 309, ;
		Name = "Text10", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 11, ;
		Top = 112, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text11' AS textbox WITH ;
		ControlSource = "camp.nrord", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 12, ;
		Top = 191, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text12' AS textbox WITH ;
		ControlSource = "camp.pereche", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 13, ;
		Top = 112, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text13' AS textbox WITH ;
		ControlSource = "camp.datascad", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 309, ;
		Name = "Text13", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 14, ;
		Top = 218, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text14' AS textbox WITH ;
		ControlSource = "camp.nnir", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text14", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 15, ;
		Top = 164, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text15' AS textbox WITH ;
		ControlSource = "camp.nresp", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 309, ;
		Name = "Text15", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 16, ;
		Top = 244, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text16' AS textbox WITH ;
		ControlSource = "camp.dst_chlt", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 309, ;
		Name = "Text16", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 17, ;
		Top = 270, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text17' AS textbox WITH ;
		ControlSource = "camp.nume_3", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 309, ;
		Name = "Text17", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 18, ;
		Top = 297, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text18' AS textbox WITH ;
		ControlSource = "camp.nume_4", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 309, ;
		Name = "Text18", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 19, ;
		Top = 323, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text19' AS textbox WITH ;
		ControlSource = "camp.nume_5", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text19", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 23, ;
		Top = 218, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "camp.dataireg", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 3, ;
		Top = 138, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text20' AS textbox WITH ;
		ControlSource = "camp.suma_2", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		InputMask = "999 999 999 999.99", ;
		Left = 309, ;
		Name = "Text20", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 21, ;
		Top = 164, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text21' AS textbox WITH ;
		ControlSource = "camp.suma_3", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 309, ;
		Name = "Text21", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 22, ;
		Top = 191, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text22' AS textbox WITH ;
		ControlSource = "camp.neimpozab", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 309, ;
		Name = "Text22", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 20, ;
		Top = 138, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text23' AS textbox WITH ;
		ControlSource = "camp.sectie", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text23", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 24, ;
		Top = 244, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text24' AS textbox WITH ;
		ControlSource = "camp.cod_fiscal", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text24", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 25, ;
		Top = 270, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text25' AS textbox WITH ;
		ControlSource = "camp.cod", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 36, ;
		Name = "Text25", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 29, ;
		Top = 36, ;
		Width = 75
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text26' AS textbox WITH ;
		ControlSource = "camp.util", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 222, ;
		Name = "Text26", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 30, ;
		Top = 36, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text27' AS textbox WITH ;
		ControlSource = "camp.dataora", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 447, ;
		Name = "Text27", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 31, ;
		Top = 36, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text28' AS textbox WITH ;
		ControlSource = "camp.pereche2", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 525, ;
		Name = "Text28", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 26, ;
		Top = 138, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text29' AS textbox WITH ;
		ControlSource = "camp.id_set", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 602, ;
		Name = "Text29", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 29, ;
		Top = 36, ;
		Width = 75
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "camp.dataact", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 164, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		ControlSource = "camp.nract", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 191, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		ControlSource = "camp.nume", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 6, ;
		Top = 218, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		ControlSource = "camp.nume_2", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 7, ;
		Top = 244, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		ControlSource = "camp.explicatia", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 8, ;
		Top = 270, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		ControlSource = "camp.ascd", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text8", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 9, ;
		Top = 297, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		ControlSource = "camp.ascc", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 104, ;
		Name = "Text9", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 10, ;
		Top = 323, ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
		Caption = "Detalii inregistrari", ;
		Height = 37, ;
		Left = 12, ;
		Name = "Titlufrumos1", ;
		TabIndex = 27, ;
		Top = 0, ;
		Width = 252
		*< END OBJECT: ClassLib="baza.vcx" BaseClass="label" />

	ADD OBJECT 'Tpreta' AS textbox WITH ;
		ControlSource = "pnPretA", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 197, ;
		Name = "Tpreta", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 30, ;
		Top = 65, ;
		Visible = .F., ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Tpretv' AS textbox WITH ;
		ControlSource = "pnPretV", ;
		DisabledBackColor = 255,255,255, ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 428, ;
		Name = "Tpretv", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 31, ;
		Top = 65, ;
		Visible = .F., ;
		Width = 115
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		THISFORM.LockScreen = .T.
		*WAIT WINDOW 'INIT'
		SELECT rull
		LOCATE FOR cod=m.cod
		IF FOUND()
			THISFORM.pgcod.PageCount = n+1
			THISFORM.pgcod.Pages(n+1).Caption = 'Gestiuni'
		ELSE 
			THISFORM.pgcod.PageCount = n
		ENDIF 
		*Call a method to update the captions on all the tabs
		THISFORM.SetCaption
		
		*Call a method to update the list to display the proper values
		
		FOR i=1 TO thisform.pgcod.pagecount
			thisform.pgcod.Pages(i).fontname='Comic Sans MS' &&'Arial Narrow'
			thisform.pgcod.Pages(i).forecolor=8404992
			*thisform.pgcod.Pages(i).fontbold=.t.
			*thisform.pgcod.Pages(i).fontsize=10
		ENDFOR 
		
		SELECT aaa
		LOCATE FOR scd=m.scd AND scc=m.scc AND nume_2=m.nume_2
		n=RECNO()
		thisform.pgcod.ActivePage=n
		this.grid1.Visible=.f.
		this.grid1.ZOrder(1)
		THISFORM.UpdateList
		
		THISFORM.LockScreen = .F.
	ENDPROC

	PROCEDURE setcaption
		*!*	THISFORM.LockScreen = .T.
		*!*	FOR i = 1 to THISFORM.pgcod.PageCount
		*!*		FirstLetter = SUBSTR(THISFORM.Alphabet,((n - 1)*ROUND(LEN(THISFORM.Alphabet)/THISFORM.pgfRolodex.PageCount,0))+1,1)
		*!*		IF n = THISFORM.pgfRolodex.PageCount	&&last page
		*!*			LastLetter = right(THISFORM.Alphabet,1)
		*!*		ELSE
		*!*			LastLetter = SUBSTR(THISFORM.Alphabet,((n)*ROUND(LEN(THISFORM.Alphabet)/THISFORM.pgfRolodex.PageCount,0)),1)
		*!*		ENDIF
		*!*		THISFORM.pgfRolodex.Pages(n).Caption = FirstLetter + "-" + LastLetter
		*!*	ENDFOR
		*!*	THISFORM.LockScreen = .F.
		FOR i = 1 to n &&THISFORM.pgcod.PageCount
			SELECT aaa
			GO i
			SCATTER FIELDS scd,scc NAME lloc
			THISFORM.pgcod.Pages(i).Caption = lloc.scd + "-" + lloc.scc
		ENDFOR 
		RELEASE lloc 
		
			
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		*WAIT WINDOW 'SHOW'
		thisform.bandablOC1.asezare
	ENDPROC

	PROCEDURE updatelist
		If !This.pgcod.Pages(N).Caption='Gestiuni'
			this.grid1.ZOrder(1)
			Select aaa
				
			Go N
			Scatter Name camp
			For i=1 To Thisform.pgcod.PageCount
				Thisform.pgcod.Pages(i).ForeColor=Iif(i=N,Rgb(0,0,255),Rgb(0,64,128))
			ENDFOR
			this.tpreta.Visible = .F.
			this.tpretv.Visible = .F.
			this.lpreta.Visible = .F. 
			this.lpretv.Visible = .F. 
		ELSE
			This.pgcod.ActivePage=n
			For i=1 To Thisform.pgcod.PageCount
				Thisform.pgcod.Pages(i).ForeColor=Iif(i=N,Rgb(0,0,255),Rgb(0,64,128))
			ENDFOR
			this.grid1.Visible=.t.
			Thisform.Refresh
			Select rull
			Set Filter To cod=m.cod
			this.grid1.zorder(0)
			
			Select rull
			SUM (cant -cante) * pret TO pnPretA
			SUM (cant -cante) * pretv TO pnPretV
			GO TOP 
			pnPretA = ABS(pnPretA)
			pnPretV = ABS(pnPretV)
				
			this.tpreta.Visible = .t.
			this.tpretv.Visible = .t.
			this.lpreta.Visible = .T. 
			this.lpretv.Visible = .T. 
		
			
		*!*		Do Form gestiuni
		*!*		This.pgcod.ActivePage=1
		*!*		SELECT aaa
		*!*		GO top
		*!*		SCATTER NAME camp
		*!*		For i=1 To Thisform.pgcod.PageCount
		*!*			Thisform.pgcod.Pages(i).ForeColor=Iif(i=1,Rgb(0,0,255),Rgb(0,64,128))
		*!*		Endfor
		Endif
		Thisform.Refresh
		
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		LPARAMETERS nColIndex
		
		
		sele rull
		scat FIEL CANT,COD memv
		*!*	if m.cant#0
		*!*	thisform.pageframe1.page2.enabled=.t.
		*!*	thisform.optiongroup1.option2.enabled=.t.
		*!*	thisform.pageframe1.page3.enabled=.f.
		*!*	thisform.optiongroup1.option3.enabled=.f.
		*!*	else
		*!*	thisform.pageframe1.page2.enabled=.f.
		*!*	thisform.optiongroup1.option2.enabled=.f.
		*!*	thisform.pageframe1.page3.enabled=.t.
		*!*	thisform.optiongroup1.option3.enabled=.t.
		*!*	endif
	ENDPROC

	PROCEDURE Grid1.Valid
		*!*	scatter FIEL COD memvar
		*!*	codfix=m.cod
		
	ENDPROC

	PROCEDURE pgcod.Click
		*Updates the list to have the proper data
		THISFORM.LockScreen = .T.
		n=thisform.pgcod.activepage 
		THISFORM.UpdateList
		THISFORM.LockScreen = .F.
	ENDPROC

ENDDEFINE
