*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofacturare_util.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_cursuri_valutare 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="grd_cursuri" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_cursuri.cCurs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_cursuri.cCurs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_cursuri.cNume_val.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_cursuri.cNume_val.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_cursuri.cMultiplicator.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_cursuri.cMultiplicator.Text1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		Caption = "Cursuri valutare"
		DoCreate = .T.
		Height = 224
		Name = "frm_cursuri_valutare"
		Width = 420
		WindowType = 1
		_shape1.Name = "_shape1"
		_shape1.Width = 422
		_shape2.Left = 370
		_shape2.Name = "_shape2"
		Lb_titlu_alb_b121.Caption = "Curs valutar"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 390
		BUT_TERMIN1.Name = "BUT_TERMIN1"
	*</PropValue>

	ADD OBJECT 'grd_cursuri' AS _grdrow WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 180, ;
		Left = 12, ;
		Name = "grd_cursuri", ;
		ScrollBars = 2, ;
		TabIndex = 1, ;
		Top = 32, ;
		Width = 396, ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "curs", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.InputMask = (get_mask(14,gnPCurs)), ;
		Column1.Name = "cCurs", ;
		Column1.Width = 102, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "nume_val", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cNume_val", ;
		Column2.Width = 130, ;
		Column3.ColumnOrder = 1, ;
		Column3.ControlSource = "multiplicator", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.InputMask = (get_mask(10,0)), ;
		Column3.Name = "cMultiplicator", ;
		Column3.Width = 130
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

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

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

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

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

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

	ADD OBJECT 'grd_cursuri.cNume_val.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 0,64,128
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		Lparameters tcCursor, tdZiCurs, tnTip
		Local lcCursor
		DoDefault()
		lcCursor = Iif(Empty(tcCursor), 'crscursuri', tcCursor)
		If !Used(m.lcCursor) Or Reccount(m.lcCursor) = 0
			This.Release()
			Return .F.
		Endif
		This.grd_cursuri.RecordSource = m.lcCursor
		If !Empty(Nvl(m.tdZiCurs, {}))
			This.Lb_titlu_alb_b121.Caption = "Curs valutar (" + Dtoc(m.tdZiCurs) + ")"
		Else
			This.Lb_titlu_alb_b121.Caption = "Curs valutar"
		Endif
	ENDPROC

ENDDEFINE