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

	*<PropValue>
		DataSource = .NULL.
		Height = 0
		Left = 0
		Name = "Dataenvironment"
		Top = 0
		Width = 0
	*</PropValue>

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cPart.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cPart.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cBaza.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cBaza.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSuma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSuma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.cSerie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.cSerie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cmd_reset1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_nract" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_dataact" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_part" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_tx_totrul" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_tx_totact" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_tx_totrulv" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_serie_act" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.ck_sectie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cPart.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cPart.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cBaza.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cBaza.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSerieAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSerieAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSuma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSuma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSectie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSectie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cNnir.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cNnir.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoareV.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoareV.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoarevTva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoarevTva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Clb_tx_totrul" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Clb_tx_totact" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Clb_tx_totrulv" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: actualizeaza_grid3
		*m: calcul_sume
		*p: lproductie
		*p: nfel
		*p: ntotact
		*p: ntotrul
		*p: ntotrulv
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = pageframe1.page1.grid1;pageframe1.page1.grid2;pageframe1.page2.grid1;pageframe1.page2.grid2
		DoCreate = .T.
		Height = 482
		lproductie = .F.
		Name = "Frm_termin12"
		nfel = 0
		ntotact = 0
		ntotrul = 0
		ntotrulv = 0
		Width = 752
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 752
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 684
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 68
		Lb_titlu_alb_b121.Anchor = 2
		Lb_titlu_alb_b121.Caption = "Facturi de achizitie cu NIR"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 2
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 721
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 576
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 9
	*</PropValue>

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 8, ;
		Left = 690, ;
		Name = "But_listare1", ;
		TabIndex = 4, ;
		Top = 1
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Pageframe1' AS pageframe WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 428, ;
		Left = 8, ;
		Name = "Pageframe1", ;
		PageCount = 2, ;
		TabIndex = 1, ;
		Top = 40, ;
		Width = 739, ;
		Page1.Caption = "Verificare Facturi cu NIR-uri", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Verificare NIR-uri cu Facturi", ;
		Page2.Name = "Page2"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Pageframe1.Page1.Ck_dataact' AS ck_filtru_numar WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		AutoSize = .T., ;
		camp_nume = a1.dataact, ;
		Caption = "Data factura", ;
		FontName = "Arial Narrow", ;
		Left = 157, ;
		Name = "Ck_dataact", ;
		TabIndex = 3, ;
		tip = D, ;
		Top = 8
		*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.Ck_nract' AS ck_filtru_numar WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		AutoSize = .T., ;
		camp_nume = A1.NRACT, ;
		Caption = "Nr. factura", ;
		FontName = "Arial Narrow", ;
		Left = 90, ;
		mask = (replicate('9',15)), ;
		Name = "Ck_nract", ;
		TabIndex = 2, ;
		Top = 8
		*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.Ck_part' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		AutoSize = .T., ;
		camp_nume = b.denumire, ;
		Caption = "Partener", ;
		Comment = "*:OnResize=LT", ;
		FontName = "Arial Narrow", ;
		Left = 230, ;
		Name = "Ck_part", ;
		TabIndex = 4, ;
		Top = 8
		*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.ck_sectie' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		AutoSize = .T., ;
		camp_nume = s.sectie, ;
		Caption = "Sectie", ;
		Comment = "*:OnResize=LT", ;
		FontName = "Arial Narrow", ;
		Left = 292, ;
		Name = "ck_sectie", ;
		TabIndex = 4, ;
		Top = 8
		*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.Ck_serie_act' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		AutoSize = .T., ;
		camp_nume = a1.serie_act, ;
		Caption = "Serie factura", ;
		Comment = "*:OnResize=LT", ;
		FontName = "Arial Narrow", ;
		Left = 13, ;
		Name = "Ck_serie_act", ;
		TabIndex = 1, ;
		Top = 8
		*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.Clb_tx_totact' AS clb_tx_simplu WITH ;
		Anchor = 6, ;
		BackColor = 255,255,255, ;
		Height = 29, ;
		Left = 2, ;
		Name = "Clb_tx_totact", ;
		TabIndex = 10, ;
		Top = 361, ;
		Width = 240, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.FontBold = .T., ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 135, ;
		Lb_simplu1.Caption = "Valoare fara TVA", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Clb_tx_totrul' AS clb_tx_simplu WITH ;
		Anchor = 6, ;
		BackColor = 255,255,255, ;
		Height = 29, ;
		Left = 244, ;
		Name = "Clb_tx_totrul", ;
		TabIndex = 9, ;
		Top = 361, ;
		Width = 223, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.FontBold = .T., ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
		Text_simplu1.Left = 84, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 135, ;
		Lb_simplu1.Caption = "Valoare NIR", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Clb_tx_totrulv' AS clb_tx_simplu WITH ;
		Anchor = 6, ;
		BackColor = 255,255,255, ;
		Height = 29, ;
		Left = 469, ;
		Name = "Clb_tx_totrulv", ;
		TabIndex = 11, ;
		Top = 361, ;
		Width = 265, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.FontBold = .T., ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
		Text_simplu1.Left = 126, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 135, ;
		Lb_simplu1.Caption = "Valoare vanzare NIR", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Cmd_cauta1' AS cmd_cauta WITH ;
		Anchor = 0, ;
		Comment = "*:OnResize=LT", ;
		Height = 27, ;
		Left = 372, ;
		Name = "Cmd_cauta1", ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		Top = 4, ;
		Width = 78
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Pageframe1.Page1.Cmd_reset1' AS cmd_reset WITH ;
		Anchor = 0, ;
		Comment = "*:OnResize=LT", ;
		Height = 27, ;
		Left = 456, ;
		Name = "Cmd_reset1", ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		Top = 4, ;
		Width = 78
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Pageframe1.Page1.Grid1' AS grid WITH ;
		Anchor = 15, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		HeaderHeight = 35, ;
		Height = 143, ;
		Left = 8, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsAct", ;
		RowHeight = 19, ;
		TabIndex = 5, ;
		Top = 35, ;
		Width = 720, ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "ttod(dataact)", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 76, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "nract", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 79, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "part", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 9, ;
		Column3.Name = "cPart", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 328, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "baza", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.FontSize = 9, ;
		Column4.InputMask = (get_mask(14,gnPc)), ;
		Column4.Name = "cBaza", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 102, ;
		Column5.ColumnOrder = 1, ;
		Column5.ControlSource = "serie_act", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column1", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 46, ;
		Column6.ColumnOrder = 6, ;
		Column6.ControlSource = "suma", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.FontSize = 9, ;
		Column6.InputMask = (get_mask(14,gnPc)), ;
		Column6.Name = "cSuma", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 86, ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "sectie", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.FontSize = 10, ;
		Column7.Name = "cSectie", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 157
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.cBaza.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare fara TVA contabil", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.cBaza.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie fact.", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.Column1.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 'Pageframe1.Page1.Grid1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data factura", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.Column2.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. factura", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.Column3.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid1.cPart.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Partener", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.cPart.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid1.cSectie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectie", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.cSectie.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 'Pageframe1.Page1.Grid1.cSuma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare cu TVA contabil", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid1.cSuma.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2' AS grid WITH ;
		Anchor = 14, ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		HeaderHeight = 36, ;
		Height = 171, ;
		Left = 8, ;
		Name = "Grid2", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsRul", ;
		RowHeight = 19, ;
		TabIndex = 6, ;
		Top = 179, ;
		Width = 720, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nnir", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 64, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "codmat", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 77, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "denumire", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 9, ;
		Column3.Name = "Column4", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 156, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "pret", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.FontSize = 9, ;
		Column4.InputMask = (get_mask(14,gnPpret)), ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 80, ;
		Column5.ColumnOrder = 8, ;
		Column5.ControlSource = "cont", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.FontSize = 9, ;
		Column5.Name = "Column6", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 31, ;
		Column6.ColumnOrder = 5, ;
		Column6.ControlSource = "cantitate", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.FontSize = 9, ;
		Column6.InputMask = (get_mask(14,gnPcant)), ;
		Column6.Name = "Column7", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 53, ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "valoare", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.FontSize = 9, ;
		Column7.InputMask = (get_mask(14,gnPc)), ;
		Column7.Name = "Column8", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 82, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "acont", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.FontSize = 9, ;
		Column8.Name = "Column9", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 47, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "PRETV", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.FontSize = 9, ;
		Column9.InputMask = (get_mask(14,gnPPretV)), ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 76, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "valoareV", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.FontSize = 9, ;
		Column10.InputMask = (get_mask(14,gnPc)), ;
		Column10.Name = "Column11", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 96, ;
		Column11.ColumnOrder = 4, ;
		Column11.ControlSource = "serie", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.FontSize = 9, ;
		Column11.Name = "cSerie", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 86, ;
		Column12.ControlSource = "valoarevtva", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.FontSize = 10, ;
		Column12.InputMask = (get_mask(14,gnPc)), ;
		Column12.Name = "Column1", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 81
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare cu TVA", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column1.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 'Pageframe1.Page1.Grid2.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret vanzare", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column10.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare fara TVA", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column11.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr NIR", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column2.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod material", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column3.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire articol", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column4.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pret achizitie", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column5.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column6.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cantitate", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column7.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie fara TVA", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column8.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.Column9.Text1' AS textbox WITH ;
		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 'Pageframe1.Page1.Grid2.cSerie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page1.Grid2.cSerie.Text1' AS textbox WITH ;
		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 'Pageframe1.Page2.Clb_tx_totact' AS clb_tx_simplu WITH ;
		Anchor = 6, ;
		BackColor = 255,255,255, ;
		Height = 29, ;
		Left = 2, ;
		Name = "Clb_tx_totact", ;
		TabIndex = 4, ;
		Top = 362, ;
		Width = 240, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.FontBold = .T., ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 135, ;
		Lb_simplu1.Caption = "Valoare fara TVA", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page2.Clb_tx_totrul' AS clb_tx_simplu WITH ;
		Anchor = 6, ;
		BackColor = 255,255,255, ;
		Height = 29, ;
		Left = 244, ;
		Name = "Clb_tx_totrul", ;
		TabIndex = 3, ;
		Top = 362, ;
		Width = 223, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.FontBold = .T., ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
		Text_simplu1.Left = 84, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 135, ;
		Lb_simplu1.Caption = "Valoare NIR", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page2.Clb_tx_totrulv' AS clb_tx_simplu WITH ;
		Anchor = 6, ;
		BackColor = 255,255,255, ;
		Height = 29, ;
		Left = 469, ;
		Name = "Clb_tx_totrulv", ;
		TabIndex = 5, ;
		Top = 362, ;
		Width = 265, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.FontBold = .T., ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
		Text_simplu1.Left = 126, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 135, ;
		Lb_simplu1.Caption = "Valoare vanzare NIR", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page2.Grid1' AS grid WITH ;
		Anchor = 14, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		HeaderHeight = 35, ;
		Height = 171, ;
		Left = 7, ;
		Name = "Grid1", ;
		Panel = 1, ;
		RecordSource = "crsActCont", ;
		RowHeight = 19, ;
		TabIndex = 2, ;
		Top = 178, ;
		Width = 721, ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "ttod(dataact)", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cDataact", ;
		Column1.Width = 73, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "nract", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cNract", ;
		Column2.Width = 79, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "part", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cPart", ;
		Column3.Width = 289, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "baza", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.FontSize = 10, ;
		Column4.InputMask = (get_mask(14,gnPc)), ;
		Column4.Name = "cBaza", ;
		Column4.Width = 77, ;
		Column5.ColumnOrder = 1, ;
		Column5.ControlSource = "serie_act", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cSerieAct", ;
		Column5.Width = 54, ;
		Column6.ControlSource = "suma", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.FontSize = 10, ;
		Column6.InputMask = (get_mask(14,gnPc)), ;
		Column6.Name = "cSuma", ;
		Column7.ControlSource = "sectie", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.FontSize = 10, ;
		Column7.Name = "cSectie", ;
		Column7.Width = 174
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page2.Grid1.cBaza.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare fara TVA contabil", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'Pageframe1.Page2.Grid1.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. factura", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'Pageframe1.Page2.Grid1.cSerieAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie fact.", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Pageframe1.Page2.Grid1.cSuma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare cu TVA contabil", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Pageframe1.Page2.Grid2' AS grid WITH ;
		Anchor = 15, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		HeaderHeight = 38, ;
		Height = 171, ;
		Left = 7, ;
		Name = "Grid2", ;
		Panel = 1, ;
		RecordSource = "crsRulCont", ;
		RowHeight = 19, ;
		TabIndex = 1, ;
		Top = 5, ;
		Width = 721, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nnir", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Name = "cNnir", ;
		Column1.Width = 79, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "valoare", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.InputMask = (get_mask(14,gnPc)), ;
		Column2.Name = "cValoare", ;
		Column2.Width = 91, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "valoarev", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 9, ;
		Column3.InputMask = (get_mask(14,gnPc)), ;
		Column3.Name = "cValoareV", ;
		Column3.Width = 96, ;
		Column4.ColumnOrder = 2, ;
		Column4.ControlSource = "ttod(dataact)", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cDataact", ;
		Column4.Width = 67, ;
		Column5.ControlSource = "valoarevtva", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.FontSize = 10, ;
		Column5.InputMask = (get_mask(14,gnPc)), ;
		Column5.Name = "cValoarevTva", ;
		Column5.Width = 98
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data NIR", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Pageframe1.Page2.Grid2.cNnir.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr NIR", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cNnir.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare achizitie fara TVA", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cValoareV.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare fara TVA", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cValoareV.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cValoarevTva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare vanzare cu TVA", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page2.Grid2.cValoarevTva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		If TYPE('tcFiltru') <> 'C'
			lcFiltru = poRul.ca_baza1.cfiltru
		Else
			lcFiltru = tcFiltru
		Endif
		save_grid_tag(Thisform.pageframe1.page1.grid2)
		poRul.ca_baza1.cfiltru=lcFiltru
		poRul.ca_baza1.afisare()
		restore_grid_tag(Thisform.pageframe1.page1.grid2)
		Thisform.pageframe1.page1.grid2.Refresh
	ENDPROC

	PROCEDURE actualizeaza_grid2
		Lparameters tcFiltru
		
		Local lcFiltru
		lcFiltru = tcFiltru
		If Empty(lcFiltru)
			lcFiltru = poAct.ca_baza1.cfiltru
		Endif
		
		save_grid_tag(Thisform.pageframe1.page2.grid1)
		poAct.ca_baza1.cfiltru = lcFiltru
		poAct.ca_baza1.afisare()
		restore_grid_tag(Thisform.pageframe1.page2.grid1)
	ENDPROC

	PROCEDURE actualizeaza_grid3
		Lparameters tcFiltru
		Local lcFiltru
		If Empty(tcFiltru)
			lcFiltru = poNirBon.ca_baza1.cfiltru
		Else
			lcFiltru = tcFiltru
		Endif
		
		save_grid_tag(Thisform.pageframe1.page1.grid1)
		save_grid_tag(Thisform.pageframe1.page1.grid2)
		save_grid_tag(Thisform.pageframe1.page2.grid1)
		save_grid_tag(Thisform.pageframe1.page2.grid2)
		poNirBon.ca_baza1.cfiltru=lcFiltru
		poNirBon.ca_baza1.afisare()
		restore_grid_tag(Thisform.pageframe1.page1.grid1)
		restore_grid_tag(Thisform.pageframe1.page1.grid2)
		restore_grid_tag(Thisform.pageframe1.page2.grid1)
		restore_grid_tag(Thisform.pageframe1.page2.grid2)
		Thisform.pageframe1.page1.grid1.Refresh
	ENDPROC

	PROCEDURE calcul_sume
		If This.pageframe1.ActivePage = 1
			With This.pageframe1.page1
				lcAct = .grid1.RecordSource
				lcRul = .grid2.RecordSource
				Select (lcAct)
				Thisform.nTotAct = baza
		
				Select (lcRul)
				Calculate Sum(valoare) To Thisform.nTotRul
				Calculate Sum(valoareV) To Thisform.nTotRulV
				Locate
		
				If This.nTotRul <> This.nTotAct And This.nTotRulV <> This.nTotAct
					.clb_tx_totrul.text_simplu1.ForeColor = Rgb(255,0,0)
					.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(255,0,0)
				Else
					.clb_tx_totrul.text_simplu1.ForeColor = Rgb(0,0,0)
					.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(0,0,0)
				Endif
				With .clb_tx_totrul.text_simplu1
					.Value = Thisform.nTotRul
					.Refresh()
				Endwith
				With .clb_tx_totrulv.text_simplu1
					.Value = Thisform.nTotRulV
					.Refresh()
				Endwith
				With .clb_tx_totact.text_simplu1
					.Value = Thisform.nTotAct
					.Refresh()
				Endwith
			Endwith
		Else
			With This.pageframe1.page2
				lcAct = .grid1.RecordSource
				lcRul = .grid2.RecordSource
				Select (lcRul)
				Thisform.nTotRul = valoare
				Thisform.nTotRulV = valoareV
		
				Select (lcAct)
				Calculate Sum(baza) To Thisform.nTotAct
				Locate
		
				If This.nTotRul <> This.nTotAct And This.nTotRulV <> This.nTotAct
					.clb_tx_totrul.text_simplu1.ForeColor = Rgb(255,0,0)
					.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(255,0,0)
				Else
					.clb_tx_totrul.text_simplu1.ForeColor = Rgb(0,0,0)
					.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(0,0,0)
				Endif
				With .clb_tx_totrul.text_simplu1
					.Value = Thisform.nTotRul
					.Refresh()
				Endwith
				With .clb_tx_totrulv.text_simplu1
					.Value = Thisform.nTotRulV
					.Refresh()
				Endwith
				With .clb_tx_totact.text_simplu1
					.Value = Thisform.nTotAct
					.Refresh()
				Endwith
			Endwith
		Endif
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		lcFiltru = []
		With This.pageframe1.page1
			lcRul = .grid2.RecordSource
		
		* data fact.
			If  .ck_dataact.Value=1
				lcFiltru = lcFiltru +  .ck_dataact.filtru
			ELSE
				lcFiltru =lcFiltru + [ and (a1.an=?gnAn and a1.luna=?gnLuna)]	
			Endif
		
		* serie fact.
			If  .ck_serie_act.Value=1
				lcFiltru = lcFiltru +  .ck_serie_act.filtru
			Endif
		
		* nr. fact.
			If .ck_nract.Value=1
				lcFiltru =  lcFiltru +  .ck_nract.filtru
			Endif
		
		* explicatia 1
			If .ck_part.Value = 1
		*!*			lcFiltru = lcFiltru + STRTRAN(.ck_part.filtru,[^PART^],IIF(pnFel = 1, [partc], [partd]))
				lcFiltru = lcFiltru + .ck_part.filtru
			Endif
		
			If .ck_sectie.Value = 1
				lcFiltru = lcFiltru + .ck_sectie.filtru
			Endif
		Endwith
		
		If !Empty(lcFiltru)
			lcFiltru = Substr(lcFiltru,6)
		ELSE 
		    lcFiltru=[2=2]	
		Endif
		
		Thisform.actualizeaza_grid3(lcFiltru)
		If Reccount('crsAct')=0
			aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
		Endif
		
		This.calcul_sume
	ENDPROC

	PROCEDURE do_listare
		Local lcFiltruData
		lcFiltruData=[]
		
		If Thisform.pageframe1.page1.ck_dataact.Value  = 1
			lcFiltruData = lcFiltruData + Alltrim(Thisform.pageframe1.page1.ck_dataact.filtru)
			lcFiltruData = Substr(lcFiltruData,6)
			lcFiltruData = Strtran(lcFiltruData,'A1.','')
		ENDIF
		
		Thisform.AlwaysOnTop=.F.
		DO listare_centralizator_nir_bon WITH Thisform.nfel, thisform.lProductie, lcFiltruData
		Thisform.AlwaysOnTop=.T.
		
		* Am mutat listarea intr-o procedura separata, sa o pot apela separat, din meniu
		RETURN 
			
		*!*	*!*	11.06.2015
		*!*	*!*	MARIUS.MUTU
		*!*	*!* ID_SET = 268: bon consum pe lucrari in curs de executie cu import din fisier (pentru import consum vopsea 301 si creare si consum mix vopsea 345)
		*!*	*!* nu am nevoie de iesirea de mix 345 pentru ca se dubleaza iesirea de pe bon. Iese deja 301
		
		*!*	Local lcFiltruData
		*!*	lcFiltruData=[]
		
		*!*	If Thisform.pageframe1.page1.ck_dataact.Value  = 1
		*!*		lcFiltruData = lcFiltruData + Alltrim(Thisform.pageframe1.page1.ck_dataact.filtru)
		*!*		lcFiltruData = Substr(lcFiltruData,6)
		*!*		lcFiltruData = Strtran(lcFiltruData,'A1.','')
		*!*	Endif
		*!*	*!* 04.02.2009
		*!*	&& SELECTEZ DIN RUL NIR-URILE GRUPATE DUPA COD, NNIR, SECTIE, NRORD, DATAACT
		*!*	lcSqlRulListare = [select cod, nnir, sectie, nrord, dataact, ] + ;
		*!*		[SUM(case id_set when 234 then Round((PRET+TVA)*CANT, ?gnPC)- Round(Round((PRET+TVA)*CANT, ?gnPC)*(proc_tva-1)/proc_tva, ?gnPC) ] + ;
		*!*		[ else  ROUND(pret*] + Iif(pnFel = 1, [cant], [cante]) + [,?gnPc) end) as valoare,] + ;
		*!*		[SUM(case id_set when 234 then Round(Round((PRET+TVA)*CANT, ?gnPC)*(proc_tva-1)/proc_tva, ?gnPC) ] + ;
		*!*		[ else  Round(ROUND(pret*] + Iif(pnFel = 1, [cant], [cante]) + [,?gnPc)*(proc_tva-1), ?gnPC) end) as valtva,] + ;
		*!*		[SUM(case id_set when 234 then Round((PRET+TVA)*CANT, ?gnPC) ] + ;
		*!*		[ else  ROUND(pret*] + Iif(pnFel = 1, [cant], [cante]) + [,?gnPc) + Round(Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pret, ?gnPC)*(PROC_TVA-1), ?gnPC) end) as valctva,] + ;
		*!*		[SUM(case when nr_pag in (6,7) and proc_tvav <> 0 then + Round(] + Iif(pnFel = 1, [cant], [cante]) + [*(pretv + tvav), ?gnPC) - ] + ;
		*!*		[ Round(Round(] + Iif(pnFel = 1, [cant], [cante]) + [*(pretv+tvav), ?gnPC)*(PROC_TVAV-1)/PROC_TVAV, ?gnPC) else ] + ;
		*!*		[ Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pretv, ?gnPC) end) as valoarev, ] + ;
		*!*		[SUM(case when nr_pag in (6,7) and proc_tvav <> 0 then Round(] + Iif(pnFel = 1, [cant], [cante]) + [*(pretv + tvav), ?gnPC) else ] + ;
		*!*		[ Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pretv, ?gnPC) + Round(Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pretv, ?gnPC)*(PROC_TVAV-1), ?gnPC) end) as valoarevtva ] + ;
		*!*		[from vrul where ] + Iif(!EMPTY(lcFiltruData),;
		*!*		[(]+lcFiltruData+[ and ],;
		*!*		[an = ?gnAn and luna = ?gnLuna and  ]) +;
		*!*		IIF(tlProductie, [(id_set=26000 or id_set=26001) and ],[]) + ;
		*!*		[id_tip_rulaj = 0 ] + gcCondSucursala + [ and ] + ;
		*!*		IIF(pnFel = 1, [cant], [cante]) + [ <> 0 ] + ;
		*!*		IIF(pnFel = 2, [ and ((id_set = 268 and cont <> '345') or id_set <> 268)], []) + ;
		*!*		[group by cod, nnir, dataact, nrord, sectie ORDER BY DATAACT, NNIR]
		
		*!*	* ID_SET = 268: bon consum pe lucrari in curs de executie cu import din fisier (pentru import consum vopsea 301 si creare si consum mix vopsea 345)
		*!*	* nu am nevoie de iesirea de mix 345 pentru ca se dubleaza iesirea de pe bon. Iese deja 301
		
		*!*	lcCursor = [crsRulListare]
		*!*	lnSucces = goExecutor.oexecute(lcSqlRulListare,lcCursor)
		*!*	If lnSucces < 0
		*!*		aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
		*!*		Return
		*!*	Endif
		*!*	*!* 04.02.2009 ^
		*!*	If Used('crsraport')
		*!*		Use In crsraport
		*!*	Endif
		
		*!*	If Thisform.nfel=2	&&	Bonuri
		*!*		lcRaport=[centralizator_bon.frx]
		*!*		Select nnir,dataact,nrord,sectie,Sum(valoare) As valoare,Sum(valoarev) As valoarev ;
		*!*			FROM crsrullistare Group By nnir,dataact,nrord,sectie ;
		*!*			ORDER By dataact,nnir Into Cursor crsraport
		*!*	Else
		*!*		lcRaport=[centralizator_nir.frx]
		*!*		If Used('crstoate')
		*!*			Use In crstoate
		*!*		Endif
		
		*!*		If Type('crsact.part') <> 'U'
		*!*			Select a.Part As nume,a.serie_act,a.nract,a.dataact,a.baza As valftvacont, a.suma As valctvacont, b.nnir,b.valoare As valftva,b.valtva As valtva,b.valctva As valctva, ;
		*!*				a.disc_baza as valdiscb, a.disc_tva as valdisct, b.valoarev - b.valoare as valadaos ;
		*!*				FROM crsact a Left Join crsrullistare b On a.cod=b.cod ;
		*!*				ORDER By a.dataact,b.nnir Into Cursor crstoate
		*!*		Else
		*!*			Select '' As nume,a.serie_act,a.nract,a.dataact,a.baza As valftvacont, a.suma As valctvacont, b.nnir,b.valoare As valftva,b.valtva,b.valctva ;
		*!*				FROM crsact a Left Join crsrullistare b On a.cod=b.cod ;
		*!*				ORDER By a.dataact,b.nnir Into Cursor crstoate
		*!*		Endif
		
		*!*		Select nume,nract,serie_act,dataact,nnir,valftvacont, valctvacont, Sum(valftva) As valftva,Sum(valtva) As valtva,Sum(valctva) As valctva ,SUM(valdiscb) as valdiscb,SUM(valdisct) as valdisct,SUM(valadaos) as valadaos;
		*!*			FROM crstoate Group By nume,serie_act,nract,dataact,nnir,valftvacont, valctvacont ;
		*!*			ORDER By dataact,nnir Into Cursor crsraport
		
		*!*		If Used('crstoate')
		*!*			Use In crstoate
		*!*		Endif
		*!*	Endif
		
		*!*	If Reccount('crsraport')>0
		*!*		Thisform.AlwaysOnTop=.F.
		*!*		pcDataora=get_ora(2)
		*!*		Select crsraport
		*!*		Report Form (lcRaport) To Printer Prompt Preview
		*!*		Thisform.AlwaysOnTop=.T.
		*!*	Else
		*!*		aMESSAGEBOX("Nu exista inregistrari pentru listare!",0+48,"Atentie")
		*!*	Endif
		
		*!*	If Used('crsraport')
		*!*		Use In crsraport
		*!*	Endif
		
	ENDPROC

	PROCEDURE do_reset
		With This.pageframe1.page1
			.SetAll('value',0,'ck_filtru_text')
			.SetAll('value',0,'ck_filtru_numar')
			.ck_serie_act.SetFocus()
		Endwith
	ENDPROC

	PROCEDURE Init
		Parameters tnFel, tlProductie
		DoDefault()
		Thisform.nfel=tnFel
		If tnFel = 2 && BON-uri
			This.lb_titlu_alb_b121.Caption = [Verificare BONURI]
			With Thisform.pageframe1.page1
				.clb_tx_totrul.lb_simplu1.Caption = [Valoare BON]
				.clb_tx_totrulv.lb_simplu1.Caption = [Valoare vanzare BON]
				.Caption = [Verificare Facturi cu BONURI]
				.grid2.column2.header1.Caption = [Nr. BON]
			Endwith
			With Thisform.pageframe1.page2
				.clb_tx_totrul.lb_simplu1.Caption = [Valoare BON]
				.clb_tx_totrulv.lb_simplu1.Caption = [Valoare vanzare BON]
				.Caption = [Verificare BONURI cu Facturi]
				.grid2.cNnir.header1.Caption = [Nr. BON]
				.grid2.cDataAct.header1.Caption = [Data BON]		&&	modificare ROAPRODUCTIE v 2.0.2
			Endwith
		Endif
		
		Thisform.lProductie = tlProductie
		
		If Thisform.lProductie  && AND Thisform.nfel = 1
			With Thisform.pageframe1.page1
				.grid1.cPart.Width=0
				.ck_part.Visible = .F.
			Endwith
		Endif
		
		If Thisform.lProductie
			If tnFel = 1
				This.lb_titlu_alb_b121.Caption = [Procese verbale de productie]
			Else
				This.lb_titlu_alb_b121.Caption = [Bonuri de consum]
			Endif
			This.pageframe1.page1.Caption = [Verificare document cu rulaje]
			This.pageframe1.page2.Caption = [Verificare rulaje cu document]
		Endif
		This.pageframe1.page1.grid1.SetFocus()
		This.WindowState = 2
	ENDPROC

	PROCEDURE Pageframe1.Page1.Grid1.AfterRowColChange
		Lparameters nColIndex
		If Inlist(This.RowColChange,0,1,3)
			Select crsAct
			pnCod = cod
			Thisform.actualizeaza_grid1("")
			Thisform.calcul_sume
		Endif
		
	ENDPROC

	PROCEDURE Pageframe1.Page2.Activate
		This.grid2.SetFocus()
	ENDPROC

	PROCEDURE Pageframe1.Page2.Grid2.AfterRowColChange
		Lparameters nColIndex
		If Inlist(This.RowColChange,0,1,3)
			Select crsRulCont
			pnCod = cod
		*!*		pcCont = Alltrim(Cont)
		*!*		pcAcont = Alltrim(Nvl(acont,'XXXX'))
			Thisform.actualizeaza_grid2
			Thisform.calcul_sume
		Endif
	ENDPROC

ENDDEFINE
