*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oactualizari.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_actualizare_facturi_valuta AS _frmbase OF "..\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="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdConturi.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdConturi.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cNume.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cNume.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cNrAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cNrAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.csoldval.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.csoldval.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.csoldlei.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.csoldlei.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cCursBNR.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cCursBNR.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cDifLei.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cDifLei.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cNumeVal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cNumeVal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cAcont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cAcont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdFacturi.cAles.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdValuta" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdValuta.cValuta.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdValuta.cValuta.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdValuta.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdValuta.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDiferentaNefavorabila" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDiferentaFavorabila" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ddataact
		*p: ndiferentafavorabila
		*p: ndiferentanefavorabila
		*p: nnract
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = grdFacturi
		ddataact = (date())
		DoCreate = .T.
		Height = 482
		Name = "frm_actualizare_facturi_valuta"
		ndiferentafavorabila = 0
		ndiferentanefavorabila = 0
		nnract = 0
		Width = 772
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 780
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 677
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 112
		Lb_titlu_alb_b121.Caption = "Actualizare solduri in valuta la 31.12"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 740
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		Left = 679, ;
		Name = "But_excel1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Anchor = 8, ;
		Caption = "Selecteaza \<facturi", ;
		Height = 27, ;
		Left = 489, ;
		Name = "Cmd_cauta1", ;
		Top = 32, ;
		Width = 120
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
		Anchor = 8, ;
		Caption = "\<Scrie nota in Jurnal", ;
		Height = 27, ;
		Left = 625, ;
		Name = "Cmd_executa1", ;
		Top = 32, ;
		Width = 132
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grdConturi' AS grid WITH ;
		Anchor = 5, ;
		ColumnCount = 2, ;
		Comment = "*:OnResize=LS", ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 238, ;
		HighlightStyle = 2, ;
		Left = 12, ;
		Name = "grdConturi", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .T., ;
		RecordSource = "crsConturi", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		TabIndex = 5, ;
		Top = 64, ;
		Width = 221, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "explicatie", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cExplicatie", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 146, ;
		Column2.ColumnOrder = 1, ;
		Column2.ControlSource = "cont", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cCont", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 42
		*< END OBJECT: BaseClass="grid" />

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

	ADD OBJECT 'grdConturi.cCont.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 'grdConturi.cExplicatie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdConturi.cExplicatie.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 'grdFacturi' AS grid WITH ;
		Anchor = 15, ;
		ColumnCount = 12, ;
		Comment = "*:OnResize=SS", ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 366, ;
		HighlightStyle = 2, ;
		Left = 241, ;
		Name = "grdFacturi", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .T., ;
		RecordSource = "crsFacturi", ;
		RowHeight = 19, ;
		TabIndex = 6, ;
		Top = 63, ;
		Width = 516, ;
		Column1.ColumnOrder = 4, ;
		Column1.ControlSource = "nume", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cNume", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 190, ;
		Column2.ColumnOrder = 5, ;
		Column2.ControlSource = "nract", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cNrAct", ;
		Column2.ReadOnly = .T., ;
		Column3.ColumnOrder = 6, ;
		Column3.ControlSource = "dataact", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cDataact", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 72, ;
		Column4.ColumnOrder = 7, ;
		Column4.ControlSource = "soldval", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Format = "RK", ;
		Column4.InputMask = (get_mask(12,GnPval)), ;
		Column4.Name = "csoldval", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 86, ;
		Column5.ColumnOrder = 9, ;
		Column5.ControlSource = "soldlei", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Format = "RK", ;
		Column5.InputMask = (get_mask(12,GnPA)), ;
		Column5.Name = "csoldlei", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 91, ;
		Column6.ColumnOrder = 10, ;
		Column6.ControlSource = "curs", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.Format = "RK", ;
		Column6.InputMask = (get_mask(12,GnPcurs)), ;
		Column6.Name = "cCurs", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 60, ;
		Column7.ColumnOrder = 11, ;
		Column7.ControlSource = "cursBNR", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Format = "RK", ;
		Column7.InputMask = (get_mask(12,GnPcurs)), ;
		Column7.Name = "cCursBNR", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 58, ;
		Column8.ColumnOrder = 12, ;
		Column8.ControlSource = "diferenta", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Format = "RK", ;
		Column8.InputMask = (get_mask(12,GnPA)), ;
		Column8.Name = "cDifLei", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 104, ;
		Column9.ColumnOrder = 8, ;
		Column9.ControlSource = "NUME_VAL", ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Name = "cNumeVal", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 42, ;
		Column10.ColumnOrder = 2, ;
		Column10.ControlSource = "cont", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Name = "cCont", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 39, ;
		Column11.ColumnOrder = 3, ;
		Column11.ControlSource = "acont", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "cAcont", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 40, ;
		Column12.Alignment = 2, ;
		Column12.ColumnOrder = 1, ;
		Column12.ControlSource = "ales", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "cAles", ;
		Column12.ReadOnly = .F., ;
		Column12.Sparse = .F., ;
		Column12.Width = 33
		*< END OBJECT: BaseClass="grid" />

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

	ADD OBJECT 'grdFacturi.cAcont.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 'grdFacturi.cAles.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 48, ;
		Name = "Check1", ;
		ReadOnly = .F., ;
		Top = 44, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

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

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

	ADD OBJECT 'grdFacturi.cCont.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 'grdFacturi.cCurs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdFacturi.cCurs.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 'grdFacturi.cCursBNR.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs BNR", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdFacturi.cDataact.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 'grdFacturi.cDifLei.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta in lei", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdFacturi.cNrAct.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 'grdFacturi.cNume.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdFacturi.cNume.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 'grdFacturi.cNumeVal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdFacturi.cNumeVal.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 'grdFacturi.csoldlei.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold in lei", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdFacturi.csoldlei.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 'grdFacturi.csoldval.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold in valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdFacturi.csoldval.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 'grdValuta' AS grid WITH ;
		Anchor = 4, ;
		ColumnCount = 2, ;
		Comment = "*:OnResize=LB", ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 110, ;
		HighlightStyle = 2, ;
		Left = 12, ;
		Name = "grdValuta", ;
		Panel = 1, ;
		RecordMark = .T., ;
		RecordSource = "crsValute", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		TabIndex = 9, ;
		Top = 322, ;
		Width = 160, ;
		Column1.ControlSource = "nume_val", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Format = "K", ;
		Column1.Name = "cValuta", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 63, ;
		Column2.ControlSource = "curs", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Format = "RK", ;
		Column2.InputMask = (get_mask(16,GnPcurs)), ;
		Column2.Name = "cCurs", ;
		Column2.Width = 65
		*< END OBJECT: BaseClass="grid" />

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

	ADD OBJECT 'grdValuta.cCurs.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 'grdValuta.cValuta.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valuta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdValuta.cValuta.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 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Facturi", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 242, ;
		Name = "Label1", ;
		TabIndex = 14, ;
		Top = 44, ;
		Width = 46
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Anchor = 4, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Curs BNR", ;
		Comment = "*:OnResize=LB", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label2", ;
		TabIndex = 15, ;
		Top = 304, ;
		Width = 61
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Situatia", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label3", ;
		TabIndex = 13, ;
		Top = 44, ;
		Width = 51
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		Anchor = 4, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Daca se sterg notele de reevaluare din Registrul Jurnal, trebuie refacute situatiile de facturi ", ;
		Comment = "*:OnResize=LB", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		ForeColor = 255,0,0, ;
		Height = 17, ;
		Left = 12, ;
		Name = "Label4", ;
		TabIndex = 15, ;
		Top = 444, ;
		Width = 500
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Diferenta nefavorabila", ;
		Comment = "*:OnResize=RB", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 503, ;
		Name = "Label5", ;
		TabIndex = 20, ;
		Top = 434, ;
		Width = 144
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Diferenta favorabila", ;
		Comment = "*:OnResize=RB", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 504, ;
		Name = "Label6", ;
		TabIndex = 22, ;
		Top = 459, ;
		Width = 128
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		Anchor = 4, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "pentru a se reveni la cursul de schimb original", ;
		Comment = "*:OnResize=LB", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		ForeColor = 255,0,0, ;
		Height = 17, ;
		Left = 12, ;
		Name = "Label7", ;
		TabIndex = 15, ;
		Top = 460, ;
		Width = 255
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'txtDiferentaFavorabila' AS textbox WITH ;
		Anchor = 12, ;
		Comment = "*:OnResize=RB", ;
		ControlSource = "thisform.nDiferentaFavorabila", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,GnPA)), ;
		Left = 654, ;
		Name = "txtDiferentaFavorabila", ;
		ReadOnly = .T., ;
		TabIndex = 21, ;
		Top = 457, ;
		Width = 102
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDiferentaNefavorabila' AS textbox WITH ;
		Anchor = 12, ;
		Comment = "*:OnResize=RB", ;
		ControlSource = "thisform.nDiferentaNefavorabila", ;
		FontSize = 10, ;
		Format = "R", ;
		Height = 23, ;
		InputMask = (get_mask(12,GnPA)), ;
		Left = 654, ;
		Name = "txtDiferentaNefavorabila", ;
		ReadOnly = .T., ;
		TabIndex = 18, ;
		Top = 432, ;
		Width = 102
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE do_cauta
		Local lcCont, lnFelCont, lnCuInregistrari, llNuExistaCurs, lnIdValuta, lnCursBNR
		
		SELECT crsConturi
		lcCont = UPPER(ALLTRIM(CONT))
		lnFelCont = fel_cont
		lnCuInregistrari = Nvl(cu_inregistrari,0)
		
		THISFORM.LOCKSCREEN = .T.
		SELECT crsFacturi
		save_grid(THISFORM.grdFacturi)
		
		*!* 09.05.2008
		*!* banca/casa in valuta - selectez soldurile din balanta parteneri
		*!*	IF LEFT(lcCont,1) = '5'
		If lnCuInregistrari = 0
			pobalanta_parteneri.ca_baza1.cFiltru = [(cont = '] + lcCont + [')]
			pobalanta_parteneri.ca_baza1.afisare()
		ELSE
			poIreg_parteneri.ca_baza1.cFiltru = [(cont = '] + lcCont + [')]
			poIreg_parteneri.ca_baza1.afisare()
		ENDIF
		*!* 09.05.2008 ^
		
		llNuExistaCurs = .F.
		SELECT crsFacturi
		SCAN
			lnIdValuta = id_valuta
			lnCursBNR = 0
			SELECT crsValute
			LOCATE FOR id_valuta = lnIdValuta
			IF FOUND()
				lnCursBNR = CURS
				IF curs = 0
					llNuExistaCurs = .T.			
				ENDIF 
			ELSE
				llNuExistaCurs = .T.	
			ENDIF
		
			SELECT crsFacturi
			REPLACE cursBNR WITH lnCursBNR
		ENDSCAN
		
		SELECT crsFacturi
		IF lnFelCont = 0 && ACTIV
			lcSoldVal = [precvaldeb + valdebit - precvalcred - valcredit]
			lcSoldLei = [precdeb + debit - preccred - credit]
		ELSE
			lcSoldVal = [precvalcred + valcredit - precvaldeb - valdebit]
			lcSoldLei = [preccred + credit - precdeb - debit]
		ENDIF
		REPLACE ALL soldval WITH &lcSoldVal, soldLei WITH &lcSoldLei
		
		REPLACE ALL DIFERENTA WITH ROUND(cursBNR * soldval, gnPA) - ROUND(soldLei, gnPA) FOR !EMPTY(cursBNR) AND CURS # 0
		REPLACE ALL DIFERENTA WITH ROUND(cursBNR * soldval, gnPA) - ROUND(soldLei, gnPA) FOR !EMPTY(cursBNR) AND CURS = 0
		
		CALCULATE SUM(ABS(diferenta)) FOR diferenta > 0 TO thisform.ndiferentafavorabila 
		CALCULATE SUM(ABS(diferenta)) FOR diferenta < 0 TO thisform.ndiferentanefavorabila 
		GO TOP
		
		restore_grid(THISFORM.grdFacturi)
		this.txtDiferentaFavorabila.Refresh()
		this.txtdiferentaNefavorabila.Refresh()
		THISFORM.LOCKSCREEN = .F.
		
		IF llNuExistaCurs
			AMESSAGEBOX('Nu s-a completat cursul de schimb pentru una sau mai multe valute!', 0+48, 'Reevaluare')
		ENDIF 
			
		
	ENDPROC

	PROCEDURE do_excel
		DO export_excel_grid WITH this.grdFacturi 
	ENDPROC

	PROCEDURE do_executa
		LOCAL lnIdSet, llVerificAnalitic, llCompletareParteneri, lnFelCont, lcContAles, lnSucces
		lnIdSet = 90501
		llVerificAnalitic = .T.
		llCompletareParteneri = .T.
		
		lcCursor = "crsActTemp"
		
		SELECT DISTINCT CONT FROM crsFacturi WITH (BUFFERING = .T.) WHERE ales = 1 INTO CURSOR crsContAles
		IF _TALLY = 0
			USE IN crsContAles
			RETURN
		ENDIF
		SELECT crsContAles
		lcContAles = UPPER(ALLTRIM(CONT))
		USE IN crsContAles
		
		SELECT fel_cont ;
			FROM crsConturi ;
			WHERE UPPER(ALLTRIM(CONT)) = lcContAles ;
			INTO CURSOR crsFelCont
		
		IF _TALLY > 0
			SELECT crsFelCont
			lnFelCont = fel_cont
		ELSE
			lnFelCont = 0
		ENDIF
		USE IN crsFelCont
		
		
		
		SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ;
			SPACE(4) AS scd, acont AS ascd, SPACE(4) AS scc, acont AS ascc, diferenta AS SUMA, ;
			cursBNR AS CURS, nume_val, id_valuta, ;
			nract AS pereched, ID_FACT AS id_factd, ;
			nract AS perechec, ID_FACT AS id_factc, ;	
			PADR('DIFERENTE REEVALUARE;' + ALLTRIM(STR(nract)) + ';' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(cursBNR)), 50, ' ') AS explicatia, ;
			PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4, proc_tva, id_jtva_coloana ;
			FROM crsFacturi ;
			WITH (BUFFERING = .T.) ;
			WHERE ales = 1 AND diferenta <> 0 ;
			INTO CURSOR crsActTemp ;
			READWRITE
		
		IF _TALLY > 0
			SELECT crsActTemp
			*!*			19.01.2015: 765-> 7651
		*!*		REPLACE ALL scd WITH lcContAles, scc WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ;
		*!*			FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1)
			REPLACE ALL scd WITH lcContAles, scc WITH "7651", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ;
				FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1)		
			*!*			19.01.2015: 765-> 7651^
				
		*!*			19.01.2015: 665-> 6651
		*!*		REPLACE ALL scd WITH "665 ", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ;
		*!*			FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1)
			REPLACE ALL scd WITH "6651", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ;
				FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1)		
		*!*			19.01.2015: 665-> 6651 ^
		*!*			19.01.2015: 765-> 7651
		*!*		REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '765'
			REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '7651'
		*!*			19.01.2015: 765-> 7651^	
			*!*			19.01.2015: 665-> 6651
		*!*		REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '665'
			REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '6651'
		
			*!*			19.01.2015: 665-> 6651 ^
		
			REPLACE ALL SUMA WITH ABS(SUMA)
		
			this.AlwaysOnTop = .F.
			lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp")
			IF lnSucces > 0
				this.do_cauta()
				AMESSAGEBOX('Nota s-a scris in Registrul Jurnal.', 0+64, 'Reevaluare')
			ELSE
				AMESSAGEBOX('Nota nu s-a scris in Registrul Jurnal.', 0+16, 'Reevaluare')
			ENDIF 	
			this.AlwaysOnTop = .T.
		ENDIF
		
		IF USED("crsActTemp")
			USE IN crsActTemp
		ENDIF
		
		***-------------------------------------------------------------------------------------------------------------------------------------
		*!*	LOCAL lnIdSet, llVerificAnalitic, llCompletareParteneri, lnFelCont, lcContAles, lnSucces
		*!*	lnIdSet = 90501
		*!*	llVerificAnalitic = .T.
		*!*	llCompletareParteneri = .T.
		
		*!*	lcCursor = "crsActTemp"
		
		
		*!*	SELECT DISTINCT CONT FROM crsFacturi INTO CURSOR crsContAles
		*!*	IF _TALLY = 0
		*!*		USE IN crsContAles
		*!*		RETURN
		*!*	ENDIF
		*!*	SELECT crsContAles
		*!*	lcContAles = UPPER(ALLTRIM(CONT))
		*!*	USE IN crsContAles
		
		*!*	SELECT fel_cont ;
		*!*		FROM crsConturi ;
		*!*		WHERE UPPER(ALLTRIM(CONT)) = lcContAles ;
		*!*		INTO CURSOR crsFelCont
		
		*!*	IF _TALLY > 0
		*!*		SELECT crsFelCont
		*!*		lnFelCont = fel_cont
		*!*	ELSE
		*!*		lnFelCont = 0
		*!*	ENDIF
		*!*	USE IN crsFelCont
		
		
		
		*!*	SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ;
		*!*		SPACE(4) AS scd, acont AS ascd, SPACE(4) AS scc, acont AS ascc, diferenta AS SUMA, ;
		*!*		cursBNR AS CURS, nume_val, id_valuta, ;
		*!*		nract AS pereched, ID_FACT AS id_factd, ;
		*!*		nract AS perechec, ID_FACT AS id_factc, ;	
		*!*		PADR('DIFERENTE REEVALUARE;' + ALLTRIM(STR(nract)) + ';' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(cursBNR)), 50, ' ') AS explicatia, ;
		*!*		PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4 ;
		*!*		FROM crsFacturi ;
		*!*		WHERE diferenta <> 0 ;
		*!*		INTO CURSOR crsActTemp ;
		*!*		READWRITE
		
		*!*	IF _TALLY > 0
		*!*		SELECT crsActTemp
		*!*		REPLACE ALL scd WITH lcContAles, scc WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ;
		*!*			FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1)
		
		*!*		REPLACE ALL scd WITH "665 ", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ;
		*!*			FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1)
		
		*!*		REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '765'
		*!*		REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '665'
		
		*!*		REPLACE ALL SUMA WITH ABS(SUMA)
		
		*!*		this.AlwaysOnTop = .F.
		*!*		lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp")
		*!*		IF lnSucces > 0
		*!*			this.do_cauta()
		*!*			AMESSAGEBOX('Nota s-a scris in Registrul Jurnal.', 0+64, 'Reevaluare')
		*!*		ELSE
		*!*			AMESSAGEBOX('Nota nu s-a scris in Registrul Jurnal.', 0+16, 'Reevaluare')
		*!*		ENDIF 	
		*!*		this.AlwaysOnTop = .T.
		*!*	ENDIF
		
		*!*	IF USED("crsActTemp")
		*!*		USE IN crsActTemp
		*!*	ENDIF
		
	ENDPROC

	PROCEDURE Init
		this.WindowState= 2
		DODEFAULT()
		
	ENDPROC

	PROCEDURE grdConturi.AfterRowColChange
		LPARAMETERS nColIndex
		DELETE FROM crsFacturi
		thisform.grdFacturi.Refresh()
	ENDPROC

	PROCEDURE grdFacturi.cAles.Check1.Click
		*!*	SELECT crsFacturi
		*!*	CALCULATE SUM(ABS(diferenta)) FOR ales = 1 AND diferenta > 0 TO thisform.ndiferentafavorabila
		*!*	CALCULATE SUM(ABS(diferenta)) FOR ales = 1 AND diferenta < 0 TO thisform.ndiferentanefavorabila
		*!*	GO TOP
		
		SELECT SUM(NVL(ABS(diferenta),0.00)) AS difFav FROM crsFacturi WITH (BUFFERING = .T.) ;
			WHERE ales = 1 AND diferenta > 0 ;
			INTO CURSOR cDifFav
		
		THISFORM.ndiferentafavorabila = NVL(difFav,0.00)
		
		IF USED('cDifFav')
			USE IN cDifFav
		ENDIF
		
		SELECT SUM(NVL(ABS(diferenta),0.00)) AS difNefav FROM crsFacturi WITH (BUFFERING = .T.) ;
			WHERE ales = 1 AND diferenta < 0 ;
			INTO CURSOR cDifNefav
		
		THISFORM.ndiferentanefavorabila = NVL(difNefav,0.00)
		
		IF USED('cDifNefav')
			USE IN cDifNefav
		ENDIF
		
		THISFORM.txtDiferentaFavorabila.REFRESH()
		THISFORM.txtdiferentaNefavorabila.REFRESH()
		
	ENDPROC

	PROCEDURE grdValuta.DblClick
		SELECT V_VALUTA
		APPEND BLANK
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_actualizare_tva AS _frmbase OF "..\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="" />
	*< OBJECTDATA: ObjPath="ck_act" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ck_ireg_part" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ck_note" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_explicatie" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BindControls = .T.
		ctip = 
		DoCreate = .T.
		Height = 180
		Name = "frm_actualizare_tva"
		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 = "Actualizari TVA"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 7
		BUT_TERMIN1.Left = 305
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

	ADD OBJECT 'ck_act' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Registrul jurnal", ;
		ControlSource = "pnActAct", ;
		Left = 51, ;
		Name = "ck_act", ;
		TabIndex = 2, ;
		Top = 108
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'ck_ireg_part' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Inregistrarile de parteneri", ;
		ControlSource = "pnActIregPart", ;
		Height = 17, ;
		Left = 51, ;
		Name = "ck_ireg_part", ;
		TabIndex = 3, ;
		Top = 126
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'ck_note' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Notele contabile", ;
		ControlSource = "pnActNote", ;
		Left = 51, ;
		Name = "ck_note", ;
		TabIndex = 4, ;
		Top = 146
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
		Left = 25, ;
		Name = "Clb_luna_intre1", ;
		TabIndex = 1, ;
		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="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'lb_explicatie' AS lb_simplu WITH ;
		Caption = "Se actualizeaza", ;
		Left = 19, ;
		Name = "lb_explicatie", ;
		TabIndex = 8, ;
		Top = 89
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
	
	PROCEDURE inainte_de_do_termin
		Local llReturn
		Do Case
		Case Empty(pnActAct) And Empty(pnActIregPart) And Empty(pnActNote)
			amessagebox("Nu ati ales tabelele ce trebuie actualizate!",0+48,"Atentie")
			Thisform.ck_act.SetFocus()
			llReturn = .F.
		Case Empty(pcAnLuna1)
			amessagebox("Nu ati completat luna de inceput!",0+48,"Atentie")
			Thisform.clb_luna_intre1.tx_n1.SetFocus()
			llReturn=.F.
		Case Empty(pcAnLuna2)
			amessagebox("Nu ati completat luna de sfarsit!",0+48,"Atentie")
			Thisform.clb_luna_intre1.tx_n2.SetFocus()
			llReturn=.F.
		Otherwise
			llReturn=.T.
		Endcase
		Return llReturn
		
	ENDPROC

ENDDEFINE