220 lines
6.4 KiB
Plaintext
220 lines
6.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="inchidluni.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>
|
|
Height = 200
|
|
Left = 1
|
|
Name = "Dataenvironment"
|
|
Top = 220
|
|
Width = 520
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: c
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BorderStyle = 3
|
|
c = oo
|
|
DoCreate = .T.
|
|
Height = 478
|
|
Name = "Ffergen1"
|
|
Width = 359
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Left = 311, ;
|
|
Name = "Cmdtermin1", ;
|
|
TabIndex = 3, ;
|
|
Top = 13, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 254,255,240, ;
|
|
ColumnCount = 3, ;
|
|
DeleteMark = .F., ;
|
|
GridLineColor = 192,192,192, ;
|
|
GridLines = 3, ;
|
|
Height = 324, ;
|
|
Left = 27, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "calendar", ;
|
|
TabIndex = 4, ;
|
|
Top = 129, ;
|
|
Width = 300, ;
|
|
ZOrderSet = 1, ;
|
|
Column1.Alignment = 0, ;
|
|
Column1.BackColor = 254,255,240, ;
|
|
Column1.ColumnOrder = 2, ;
|
|
Column1.ControlSource = "nl", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 75, ;
|
|
Column2.BackColor = 254,255,240, ;
|
|
Column2.ColumnOrder = 1, ;
|
|
Column2.ControlSource = "an", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 84, ;
|
|
Column3.Alignment = 0, ;
|
|
Column3.BackColor = 254,255,240, ;
|
|
Column3.ControlSource = "smf", ;
|
|
Column3.CurrentControl = "Check1", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .F., ;
|
|
Column3.Sparse = .F., ;
|
|
Column3.Width = 81
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Luna", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Anul", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "", ;
|
|
Height = 17, ;
|
|
Left = 27, ;
|
|
Name = "Check1", ;
|
|
ReadOnly = .F., ;
|
|
Top = 26, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Luna inchisa", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "", ;
|
|
ForeColor = 255,255,240, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Value =
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "In continuare datele din aceste luni vor putea fi vizualizate, dar nu si modificate. De asemenea nu vor fi permise noi introduceri de date/documente in aceste luni contabile.", ;
|
|
Height = 61, ;
|
|
Left = 28, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 6, ;
|
|
Top = 63, ;
|
|
Width = 300, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "BLOCARE DE LUNA", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 25, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 5, ;
|
|
Top = 18, ;
|
|
Width = 169, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "Bifati lunile pe care le doriti inchise.", ;
|
|
Height = 22, ;
|
|
Left = 28, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 6, ;
|
|
Top = 45, ;
|
|
Width = 300, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 460, ;
|
|
Left = 11, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 6, ;
|
|
Width = 337, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Cmdtermin1.Command1.Valid
|
|
sele calendar
|
|
loca for nl=m.nl and an=m.an
|
|
luna_inchisa = smf
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|