*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_roadef.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_log_redeschid 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="grid_log_redeschid" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_COMBOBOX1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 386
		Name = "frm_log_redeschid"
		Width = 489
		_shape1.Anchor = 11
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 600
		_shape2.Anchor = 9
		_shape2.Left = 438
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Istoric deschideri/redeschideri de luna"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 458
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 264
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 12
	*</PropValue>

	ADD OBJECT '_COMBOBOX1' AS _combobox WITH ;
		Height = 24, ;
		Left = 6, ;
		Name = "_COMBOBOX1", ;
		RowSource = "crsLog_luni", ;
		RowSourceType = 2, ;
		Top = 36, ;
		Width = 138
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'grid_log_redeschid' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		Height = 312, ;
		Left = 6, ;
		Name = "grid_log_redeschid", ;
		Panel = 1, ;
		RecordSource = "crsLog_redeschid", ;
		Top = 66, ;
		Width = 474, ;
		Column1.ControlSource = "anul", ;
		Column1.Name = "Column1", ;
		Column1.Width = 39, ;
		Column2.ControlSource = "luna", ;
		Column2.Name = "Column2", ;
		Column2.Width = 37, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "utilizator", ;
		Column3.Name = "Column3", ;
		Column3.Width = 96, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "dataora", ;
		Column4.Name = "Column4", ;
		Column4.Width = 96, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "program", ;
		Column5.Name = "Column5", ;
		Column5.Width = 74, ;
		Column6.ColumnOrder = 4, ;
		Column6.ControlSource = 'iif(crsLog_redeschid.deschid=1,"Deschidere luna","Redeschidere luna")', ;
		Column6.Name = "Column6", ;
		Column6.Width = 91
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grid_log_redeschid.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Anul", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grid_log_redeschid.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Luna", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grid_log_redeschid.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grid_log_redeschid.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grid_log_redeschid.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Program", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grid_log_redeschid.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Operatie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grid_log_redeschid.Column6.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 pcFiltru
		
		LOCAL lcFiltru
		lcFiltru = pcFiltru
		
		*!*	IF EMPTY(lcFiltru)
		*!*		lcFiltru = poLog_redeschid.ca_baza1.cfiltru
		*!*	ENDIF
		
		save_grid_tag(THIS.grid_log_redeschid)
		poLog_redeschid.ca_baza1.cfiltru = lcFiltru
		poLog_redeschid.ca_baza1.afisare()
		restore_grid_tag(THIS.grid_log_redeschid)
		
		This.grid_log_redeschid.Refresh 
		
		
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		lcFiltru = ""
		
		lcAliasPerioada = This._cOMBOBOX1.RowSource
		Select (lcAliasPerioada)
		If !Empty(anul) And !Empty(luna)
			lcFiltru = lcFiltru + [ anul = ] + Alltrim(Str(anul)) + [ and luna = ] + Alltrim(Str(luna))
		ENDIF
		
		This.actualizeaza_grid1(lcFiltru)
		
		
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
		this._cOMBOBOX1.Value="<Toate inregistrarile>"
	ENDPROC

	PROCEDURE _COMBOBOX1.Valid
		thisform.do_cauta()
	ENDPROC

ENDDEFINE