romfast/roadef
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roadef/Clase/ferestre_roadef.vc2

230 lines
7.3 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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
Reference in New Issue View Git Blame Copy Permalink