1490 lines
42 KiB
Plaintext
1490 lines
42 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="ferestrebaza.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS atentie AS fatentie OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 100
|
|
Name = "atentie"
|
|
Width = 401
|
|
WindowType = 0
|
|
Shape1.Height = 92
|
|
Shape1.Left = 4
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 4
|
|
Shape1.Width = 392
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 31
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\grafice\exclam1.ico
|
|
IMAGE1.Top = 11
|
|
IMAGE1.Width = 32
|
|
Label1.Alignment = 0
|
|
Label1.AutoSize = .T.
|
|
Label1.Left = 73
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 18
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "\<OK", ;
|
|
Height = 24, ;
|
|
Left = 158, ;
|
|
Name = "CMDTERMIN1", ;
|
|
Top = 66, ;
|
|
Width = 84
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "label2", ;
|
|
FontSize = 11, ;
|
|
Height = 19, ;
|
|
Left = 137, ;
|
|
Name = "Label2", ;
|
|
Top = 18, ;
|
|
Width = 40
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "label3", ;
|
|
FontSize = 11, ;
|
|
Height = 19, ;
|
|
Left = 27, ;
|
|
Name = "Label3", ;
|
|
Top = 45, ;
|
|
Width = 348, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
PROCEDURE Deactivate
|
|
thisform.release
|
|
ENDPROC
|
|
|
|
PROCEDURE LostFocus
|
|
thisform.release
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS atentierosu AS stop OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 2
|
|
Desktop = .F.
|
|
DoCreate = .T.
|
|
Height = 104
|
|
Name = "atentierosu"
|
|
Width = 400
|
|
Shape1.Height = 92
|
|
Shape1.Left = 10
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 6
|
|
Shape1.Width = 380
|
|
Image1.BackStyle = 0
|
|
Image1.Height = 32
|
|
Image1.Left = 16
|
|
Image1.Name = "Image1"
|
|
Image1.Picture = ..\grafice\pericol.ico
|
|
Image1.Top = 14
|
|
Image1.Width = 32
|
|
Label1.Caption = "Atentie!"
|
|
Label1.Left = 60
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 116
|
|
Line1.Name = "Line1"
|
|
LABEL2.Alignment = 2
|
|
LABEL2.AutoSize = .F.
|
|
LABEL2.Height = 19
|
|
LABEL2.Left = 48
|
|
LABEL2.Name = "LABEL2"
|
|
LABEL2.Top = 18
|
|
LABEL2.Width = 336
|
|
CMDTERMIN1.Left = 158
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
LABEL3.Height = 19
|
|
LABEL3.Left = 26
|
|
LABEL3.Name = "LABEL3"
|
|
LABEL3.Top = 43
|
|
LABEL3.Width = 358
|
|
*</PropValue>
|
|
|
|
PROCEDURE Init
|
|
_screen.visible=.t.
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS atr AS atentierosu OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 2
|
|
Desktop = .T.
|
|
DoCreate = .T.
|
|
Height = 104
|
|
Name = "atr"
|
|
Width = 476
|
|
SHAPE1.Height = 92
|
|
SHAPE1.Left = 10
|
|
SHAPE1.Name = "SHAPE1"
|
|
SHAPE1.Top = 6
|
|
SHAPE1.Width = 458
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Width = 32
|
|
LABEL1.Name = "LABEL1"
|
|
LINE1.Name = "LINE1"
|
|
LABEL2.Height = 19
|
|
LABEL2.Left = 48
|
|
LABEL2.Name = "LABEL2"
|
|
LABEL2.Top = 18
|
|
LABEL2.Width = 408
|
|
CMDTERMIN1.Left = 196
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 68
|
|
LABEL3.Height = 19
|
|
LABEL3.Left = 23
|
|
LABEL3.Name = "LABEL3"
|
|
LABEL3.Top = 43
|
|
LABEL3.Width = 430
|
|
*</PropValue>
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
_SCREEN.VISIBLE=.F.
|
|
THISFORM.RELEASE
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS buttulb AS commandbutton
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: nrbar
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
Caption = "Command1"
|
|
FontBold = .T.
|
|
ForeColor = 0,0,0
|
|
Height = 27
|
|
Name = "buttulb"
|
|
nrbar = 0
|
|
Width = 84
|
|
*</PropValue>
|
|
|
|
PROCEDURE Click
|
|
*do exec_meniu with this.nrbar
|
|
ENDPROC
|
|
|
|
PROCEDURE RightClick
|
|
this.visible=.f.
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmdlist AS commandbutton
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Caption = "\<LISTARE"
|
|
DownPicture =
|
|
FontBold = .T.
|
|
ForeColor = 60,255,250
|
|
Height = 27
|
|
Name = "cmdlist"
|
|
Width = 98
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmdrenunt AS commandbutton
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Caption = "\<RENUNT"
|
|
FontBold = .T.
|
|
ForeColor = 255,0,0
|
|
Height = 27
|
|
Name = "cmdrenunt"
|
|
Width = 84
|
|
*</PropValue>
|
|
|
|
PROCEDURE Click
|
|
buton=2
|
|
THISFORM.RELEASE
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmdtermin AS commandbutton
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Caption = "\<TERMINAT"
|
|
FontBold = .T.
|
|
FontOutline = .F.
|
|
FontShadow = .F.
|
|
ForeColor = 0,0,255
|
|
Height = 27
|
|
Name = "cmdtermin"
|
|
Width = 84
|
|
*</PropValue>
|
|
|
|
PROCEDURE Click
|
|
buton=1
|
|
IF TYPE("THISFORM.Parent") = "O"
|
|
THISFORMSET.Release
|
|
ELSE
|
|
THISFORM.Release
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS danu AS sigur OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "danu"
|
|
Shape1.Name = "Shape1"
|
|
Image1.Height = 32
|
|
Image1.Left = 24
|
|
Image1.Name = "Image1"
|
|
Image1.Top = 12
|
|
Image1.Width = 32
|
|
Label1.Alignment = 2
|
|
Label1.AutoSize = .F.
|
|
Label1.FontBold = .F.
|
|
Label1.FontSize = 9
|
|
Label1.Height = 44
|
|
Label1.Left = 60
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 16
|
|
Label1.Width = 300
|
|
Label1.WordWrap = .T.
|
|
Line1.Name = "Line1"
|
|
Label2.Name = "Label2"
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
Label3.Name = "Label3"
|
|
CMDRENUNT1.Name = "CMDRENUNT1"
|
|
*</PropValue>
|
|
|
|
PROCEDURE CMDRENUNT1.Valid
|
|
buton=2
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Valid
|
|
buton=1
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS danurenunt AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cele3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 225
|
|
Name = "danurenunt"
|
|
Width = 288
|
|
LINE1.Name = "LINE1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'cele3' AS optiongroup WITH ;
|
|
ButtonCount = 3, ;
|
|
Height = 72, ;
|
|
Left = 24, ;
|
|
Name = "cele3", ;
|
|
Top = 91, ;
|
|
Value = 2, ;
|
|
Width = 240, ;
|
|
ZOrderSet = 3, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Se retin in totalitate", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 14, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 7, ;
|
|
Option1.Value = 0, ;
|
|
Option1.Width = 122, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Se retin numai cele diferite de zero", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 14, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 26, ;
|
|
Option2.Value = 1, ;
|
|
Option2.Width = 207, ;
|
|
Option3.AutoSize = .T., ;
|
|
Option3.Caption = "Nu se retine nici unul", ;
|
|
Option3.Height = 17, ;
|
|
Option3.Left = 14, ;
|
|
Option3.Name = "Option3", ;
|
|
Option3.Top = 45, ;
|
|
Option3.Width = 134
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 180, ;
|
|
Name = "CMDTERMIN1", ;
|
|
Top = 178
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 32, ;
|
|
Left = 27, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\..\sal2000\grafice\intreb.ico, ;
|
|
Top = 40, ;
|
|
Width = 32
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "Care dintre salariile brute calculate in aceasta foaie de lucru se retin si se inregistreaza in state?", ;
|
|
Height = 60, ;
|
|
Left = 72, ;
|
|
Name = "Label1", ;
|
|
Top = 36, ;
|
|
Width = 192, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Seip1' AS seip WITH ;
|
|
Height = 204, ;
|
|
Left = 12, ;
|
|
Name = "Seip1", ;
|
|
Top = 12, ;
|
|
Width = 264, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="..\..\sal2000\clase\ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
buton=thisform.cele3.value
|
|
thisform.release
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS diary AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Container1.Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CALEND" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ComboAn" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ComboLuna" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: an
|
|
*p: numel
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
an = 2000
|
|
BorderStyle = 3
|
|
Caption = "Calendar"
|
|
Closable = .T.
|
|
ControlBox = .T.
|
|
DoCreate = .T.
|
|
Height = 270
|
|
Icon = ..\grafice\cont11.ico
|
|
Name = "diary"
|
|
numel = Martie
|
|
Width = 478
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 3
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CALEND' AS olecontrol WITH ;
|
|
Height = 156, ;
|
|
Left = 15, ;
|
|
Name = "CALEND", ;
|
|
Top = 94, ;
|
|
Width = 441, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscal.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKDB9P1fK8QBAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAA4AAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAAAAAAAwAAAP7////+////BAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAAMAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8rySeOZBIcEIovBAIkAJwCAAAIAJQtAAAgEAAA0AcEABgAwMDAAITpEgAAAAAAAAAAAAAAAAAAAAIAAAAAAAEAOAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAvAJEQgEADU1TIFNhbnMgU2VyaWYBAAAAkAFEQgEADU1TIFNhbnMgU2VyaWYBAAAAvALA1AEADU1TIFNhbnMgU2VyaWYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAe4AALwCREIBAAVBcmlhbAHuAACQAURCAQAFQXJpYWwB7gAAvALA1AEABUFyaWFsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
|
|
|
ADD OBJECT 'ComboAn' AS combobox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
ControlSource = "m.AN", ;
|
|
Height = 20, ;
|
|
Left = 372, ;
|
|
Name = "ComboAn", ;
|
|
RowSource = "1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010", ;
|
|
RowSourceType = 1, ;
|
|
Style = 2, ;
|
|
TabIndex = 4, ;
|
|
TabStop = .F., ;
|
|
Top = 20, ;
|
|
Visible = .T., ;
|
|
Width = 72, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'ComboLuna' AS combobox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
ControlSource = "M.LUNA", ;
|
|
Height = 20, ;
|
|
Left = 252, ;
|
|
Name = "ComboLuna", ;
|
|
RowSource = "lunilean.numeluna", ;
|
|
RowSourceType = 6, ;
|
|
Style = 2, ;
|
|
TabIndex = 3, ;
|
|
TabStop = .F., ;
|
|
Top = 20, ;
|
|
Visible = .T., ;
|
|
Width = 108, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Container1' AS container WITH ;
|
|
Height = 25, ;
|
|
Left = 25, ;
|
|
Name = "Container1", ;
|
|
SpecialEffect = 1, ;
|
|
Top = 68, ;
|
|
Width = 421, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="container" />
|
|
|
|
ADD OBJECT 'Container1.Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "L", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 11, ;
|
|
Name = "Label1", ;
|
|
Top = 2, ;
|
|
Width = 12, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "M", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 70, ;
|
|
Name = "Label2", ;
|
|
Top = 2, ;
|
|
Width = 15, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "M", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 130, ;
|
|
Name = "Label3", ;
|
|
Top = 2, ;
|
|
Width = 15, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "J", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 190, ;
|
|
Name = "Label4", ;
|
|
Top = 2, ;
|
|
Width = 11, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "V", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 250, ;
|
|
Name = "Label5", ;
|
|
Top = 2, ;
|
|
Width = 13, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "S", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 310, ;
|
|
Name = "Label6", ;
|
|
Top = 2, ;
|
|
Width = 13, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label7' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "D", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 371, ;
|
|
Name = "Label7", ;
|
|
Top = 2, ;
|
|
Width = 14, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Seip1' AS seip WITH ;
|
|
Height = 201, ;
|
|
Left = 8, ;
|
|
Name = "Seip1", ;
|
|
Top = 55, ;
|
|
Width = 456, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "THISFORM.NUMEL", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 15, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 32, ;
|
|
Left = 24, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 16, ;
|
|
Width = 120, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "THISFORM.AN", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 15, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 147, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
Top = 16, ;
|
|
Width = 58, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Init
|
|
|
|
THISFORM.CALEND.day=day(date())
|
|
THISFORM.CALEND.month=month(date())
|
|
THISFORM.CALEND.year=year(date())
|
|
SELE LUNILEAN
|
|
LOCA FOR val(NL)=THISFORM.CALEND.MONTH
|
|
|
|
THISFORM.NUMEL=NUMELUNA
|
|
THISFORM.TEXT1.REFRESH
|
|
thisform.comboluna.value=NUMELUNA
|
|
thisform.comboan.value=str(year(date()))
|
|
ENDPROC
|
|
|
|
PROCEDURE CALEND.AfterUpdate
|
|
*** OLE Control Event ***
|
|
SELE LUNILEAN
|
|
LOCA FOR val(NL)=THISFORM.CALEND.MONTH
|
|
THISFORM.NUMEL=NUMELUNA
|
|
THISFORM.AN=THISFORM.CALEND.YEAR
|
|
THISFORM.TEXT1.REFRESH
|
|
THISFORM.TEXT2.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE ComboAn.Valid
|
|
thisform.calend.year=m.an
|
|
thisform.calend.refresh
|
|
|
|
SELE LUNILEAN
|
|
LOCA FOR val(NL)=THISFORM.CALEND.MONTH
|
|
THISFORM.NUMEL=NUMELUNA
|
|
THISFORM.AN=THISFORM.CALEND.YEAR
|
|
THISFORM.TEXT1.REFRESH
|
|
THISFORM.TEXT2.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE ComboLuna.AddItem
|
|
LPARAMETERS cItem
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE ComboLuna.Valid
|
|
local l
|
|
sele lunilean
|
|
*loca for allt(numeluna)=allt(this.value)
|
|
l=val(nl)
|
|
thisform.calend.month=l
|
|
thisform.calend.refresh
|
|
|
|
SELE LUNILEAN
|
|
LOCA FOR val(NL)=THISFORM.CALEND.MONTH
|
|
THISFORM.NUMEL=NUMELUNA
|
|
THISFORM.AN=THISFORM.CALEND.YEAR
|
|
THISFORM.TEXT1.REFRESH
|
|
THISFORM.TEXT2.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS fatentie AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BorderStyle = 2
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Height = 108
|
|
Name = "fatentie"
|
|
Width = 375
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
Height = 32, ;
|
|
Left = 24, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\exclam1.ico, ;
|
|
Top = 12, ;
|
|
Width = 32, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Caption = "Atentie!", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
Height = 24, ;
|
|
Left = 64, ;
|
|
Name = "Label1", ;
|
|
Top = 21, ;
|
|
Width = 60, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 90, ;
|
|
Left = 3, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 9, ;
|
|
Width = 367, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ffergen AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: do_reface
|
|
*m: do_renunt
|
|
*m: do_termin
|
|
*m: inainte_de_do_renunt
|
|
*m: inainte_de_do_termin
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .T.
|
|
AutoCenter = .T.
|
|
BorderStyle = 3
|
|
Caption = ""
|
|
Closable = .F.
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Height = 500
|
|
Icon = ..\..\
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Movable = .F.
|
|
Name = "ffergen"
|
|
Picture = ..\..\
|
|
ShowTips = .T.
|
|
Width = 800
|
|
WindowType = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Line1' AS line WITH ;
|
|
Height = 0, ;
|
|
Left = 0, ;
|
|
Name = "Line1", ;
|
|
Top = 475, ;
|
|
Visible = .F., ;
|
|
Width = 516
|
|
*< END OBJECT: BaseClass="line" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS labelsmecher AS label
|
|
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
AutoSize = .T.
|
|
BackColor = 228,228,228
|
|
BackStyle = 0
|
|
Caption = "Label1"
|
|
FontName = "Arial"
|
|
FontSize = 8
|
|
Height = 16
|
|
MouseIcon = ..\grafice\point.cur
|
|
MousePointer = 99
|
|
Name = "labelsmecher"
|
|
Width = 34
|
|
*</PropValue>
|
|
|
|
PROCEDURE MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.parent.refresh
|
|
|
|
*this.fontbold=.t.
|
|
this.fontunderline=.t.
|
|
this.forecolor=rgb(0,0,255)
|
|
*this.backstyle=1
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS progresbar AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="PRBAR" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="TITLU" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: p
|
|
*p: v
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 2
|
|
DoCreate = .T.
|
|
Height = 55
|
|
Name = "progresbar"
|
|
p = 0
|
|
v = 0
|
|
Width = 391
|
|
WindowType = 0
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Caption = "%", ;
|
|
Height = 17, ;
|
|
Left = 349, ;
|
|
Name = "Label1", ;
|
|
Top = 9, ;
|
|
Width = 26, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'PRBAR' AS olecontrol WITH ;
|
|
Height = 15, ;
|
|
Left = 15, ;
|
|
Name = "PRBAR", ;
|
|
Top = 27, ;
|
|
Width = 361, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\winnt\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGCQtOLklsMBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAACEAAAAAAAAABAAAAAIAAAD+/////v////7////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S6BMHCoUbEK/AQhAQKo2nIUM0EggAAABPJQAAjQEAAIR+4eYCAAUAHAAAAAAAAAAAAMhCAe/NqwAABQBoyhYATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVwBlAHMAdAABAACADAAAAEJvcmRlclN0eWxlAAkAAABJCgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGR2AAgAAAAABwAAAP//////////AAAAAB/e7L0BAAUAAAAAAAwAAAAYAAAAkAEAAAAAAABgAAAAYAAAACAAIiGBACAAAAAAIQAAAABAAAEAGAAAAB0AAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYWwACAAAAADkAQAAcAEAAAEAAAAlAAAAEAAAAAAAAAAAAAAAkAEAAAAAAAABAgEiTQBTACAAUwBhAG4AcwAgAFMAZQByAGkAZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAE0AUwAgAFMAYQBuAHMAIABTAGUAcgBpAGYAAAAAAAAAAAAAAA==" />
|
|
|
|
ADD OBJECT 'Seip1' AS seip WITH ;
|
|
Height = 43, ;
|
|
Left = 9, ;
|
|
Name = "Seip1", ;
|
|
Top = 5, ;
|
|
Width = 372, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "THISFORM.P", ;
|
|
Height = 23, ;
|
|
Left = 314, ;
|
|
Name = "Text1", ;
|
|
Top = 7, ;
|
|
Width = 36, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'TITLU' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = " ", ;
|
|
Height = 17, ;
|
|
Left = 17, ;
|
|
Name = "TITLU", ;
|
|
Top = 9, ;
|
|
Width = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
IF M=0
|
|
M=M+1
|
|
ENDIF
|
|
THISFORM.PRBAR.MAX=M
|
|
THISFORM.PRBAR.VALUE=0
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
THISFORM.PRBAR.VALUE=M
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS seip AS shape
|
|
*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
BackStyle = 0
|
|
Height = 68
|
|
Name = "seip"
|
|
SpecialEffect = 0
|
|
Width = 68
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS set AS formset
|
|
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="tbrprim" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
Name = "set"
|
|
Visible = .T.
|
|
WindowType = 0
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'tbrprim' AS tbrprim WITH ;
|
|
Height = 28, ;
|
|
Left = 7, ;
|
|
Name = "tbrprim", ;
|
|
Top = 23, ;
|
|
Width = 33, ;
|
|
Buton1.Left = 5, ;
|
|
Buton1.Name = "Buton1", ;
|
|
Buton1.ToolTipText = "Adauga la bara de instrumente ultima operatiune de introducere efectuata", ;
|
|
Buton1.Top = 3
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="toolbar" />
|
|
|
|
PROCEDURE tbrprim.Buton1.Click
|
|
local t0,c0,c1,c2,c3
|
|
local totbut,numebut,nrbut
|
|
totbut=this.parent.controlcount
|
|
nrbut=totbut-1
|
|
numebut='but'+alltrim(str(nrbut))
|
|
c0=rand(-10)
|
|
c0=rand(0)
|
|
c1=int(255*rand())
|
|
c2=int(255*rand())
|
|
c3=int(255*rand())
|
|
|
|
if bar()<1000
|
|
DO MESAJatent WITH 'Efectuati operatia de introducere dorita','si apoi reveniti!'
|
|
else
|
|
do mesaj with 'Adauga operatiunea de introducere:',prompt()
|
|
|
|
|
|
this.parent.addobject(numebut,'buttulb')
|
|
|
|
t0='this.parent.'+numebut
|
|
|
|
with &t0
|
|
.caption=alltrim(str(nrbut))
|
|
.tooltiptext=prompt()
|
|
.height=this.parent.buton1.height
|
|
.width=this.parent.buton1.width
|
|
.forecolor=rgb(c1,c2,c3)
|
|
.visible=.t.
|
|
.nrbar=bar()
|
|
endwith
|
|
|
|
endif
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS setinstr AS set OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Name = "setinstr"
|
|
tbrprim.BUTON1.Left = 5
|
|
tbrprim.BUTON1.Name = "BUTON1"
|
|
tbrprim.BUTON1.Top = 3
|
|
tbrprim.Height = 28
|
|
tbrprim.Left = 7
|
|
tbrprim.Name = "tbrprim"
|
|
tbrprim.Top = 23
|
|
tbrprim.Width = 33
|
|
*</PropValue>
|
|
|
|
PROCEDURE tbrprim.BUTON1.Click
|
|
**
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS setinstrum AS setinstr OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="tbrprim.Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="tbrprim.Command2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AutoRelease = .T.
|
|
Name = "setinstrum"
|
|
tbrprim.Buton1.Enabled = .T.
|
|
tbrprim.Buton1.Height = 40
|
|
tbrprim.Buton1.Left = 83
|
|
tbrprim.Buton1.Name = "Buton1"
|
|
tbrprim.Buton1.Picture = ..\grafice\calendar2.bmp
|
|
tbrprim.Buton1.StatusBarText = "Calendar "
|
|
tbrprim.Buton1.ToolTipText = "Calendar"
|
|
tbrprim.Buton1.Top = 3
|
|
tbrprim.Buton1.Visible = .T.
|
|
tbrprim.Buton1.Width = 40
|
|
tbrprim.Buton1.ZOrderSet = 2
|
|
tbrprim.Caption = "Instrumente"
|
|
tbrprim.ControlBox = .T.
|
|
tbrprim.Height = 46
|
|
tbrprim.Left = 122
|
|
tbrprim.Name = "tbrprim"
|
|
tbrprim.Top = 0
|
|
tbrprim.Width = 128
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'tbrprim.Command1' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Height = 40, ;
|
|
Left = 5, ;
|
|
Name = "Command1", ;
|
|
Picture = ..\grafice\calculator2.bmp, ;
|
|
StatusBarText = "Calculator", ;
|
|
ToolTipText = "Calculator", ;
|
|
Top = 3, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'tbrprim.Command2' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Height = 40, ;
|
|
Left = 44, ;
|
|
Name = "Command2", ;
|
|
Picture = ..\grafice\notepad1.bmp, ;
|
|
StatusBarText = "Editor pentru notite", ;
|
|
ToolTipText = "Notepad", ;
|
|
Top = 3, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
PROCEDURE tbrprim.Buton1.Click
|
|
*!* od=createo('diary')
|
|
*!* od.show(1)
|
|
ENDPROC
|
|
|
|
PROCEDURE tbrprim.Command1.Click
|
|
do case
|
|
case file('C:\WINDOWS\CALC.EXE')
|
|
run /N C:\WINDOWS\CALC.EXE
|
|
case file('C:\WINDOWS\SYSTEM32\CALC.EXE')
|
|
run /N C:\WINDOWS\SYSTEM32\CALC.EXE
|
|
case file('C:\WINnt\system32\CALC.EXE')
|
|
run /N C:\WINnt\system32\CALC.EXE
|
|
otherwise
|
|
do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!'
|
|
endcase
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE tbrprim.Command2.Click
|
|
do case
|
|
case file('C:\WINDOWS\NOTEPAD.EXE')
|
|
run /N C:\WINDOWS\NOTEPAD.EXE
|
|
case file('C:\WINnt\system32\NOTEPAD.EXE')
|
|
run /N C:\WINnt\system32\NOTEPAD.EXE
|
|
otherwise
|
|
do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!'
|
|
endcase
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE tbrprim.Show
|
|
LPARAMETERS nStyle
|
|
*if _screen.width>800
|
|
*this.dock(1,0,0)
|
|
*else
|
|
*this.dock(-1,0,0)
|
|
*endif
|
|
this.dock(0,0,0)
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS sigur AS atentie OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "sigur"
|
|
SHAPE1.Name = "SHAPE1"
|
|
Image1.BackStyle = 0
|
|
Image1.Height = 32
|
|
Image1.Left = 51
|
|
Image1.Name = "Image1"
|
|
Image1.Picture = ..\grafice\intreb.ico
|
|
Image1.Top = 22
|
|
Image1.Width = 32
|
|
Label1.Caption = "Doriti sa iesiti din program?"
|
|
Label1.Left = 102
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 26
|
|
Line1.Name = "Line1"
|
|
Label2.Left = 348
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 12
|
|
Label2.Visible = .F.
|
|
CMDTERMIN1.Caption = "\<DA"
|
|
CMDTERMIN1.Left = 114
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 60
|
|
Label3.Left = 353
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 37
|
|
Label3.Visible = .F.
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Caption = "\<NU", ;
|
|
Height = 24, ;
|
|
Left = 204, ;
|
|
Name = "CMDRENUNT1", ;
|
|
Top = 60
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
PROCEDURE CMDRENUNT1.Valid
|
|
buton=2
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Valid
|
|
buton=1
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS stop AS atentie OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 100
|
|
Name = "stop"
|
|
Width = 377
|
|
Shape1.Height = 92
|
|
Shape1.Left = 4
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 4
|
|
Shape1.Width = 368
|
|
IMAGE1.Height = 22
|
|
IMAGE1.Left = 41
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\grafice\hand.bmp
|
|
IMAGE1.Top = 14
|
|
IMAGE1.Width = 24
|
|
Label1.Caption = "Stop!"
|
|
Label1.Left = 386
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 12
|
|
Label1.Visible = .F.
|
|
Line1.Name = "Line1"
|
|
Label2.FontSize = 11
|
|
Label2.Left = 73
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 17
|
|
Cmdtermin1.Left = 146
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Label3.FontSize = 11
|
|
Label3.Left = 14
|
|
Label3.Name = "Label3"
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS tbrprim AS toolbar
|
|
*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Buton1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
Caption = "Introducere"
|
|
Height = 31
|
|
Left = 0
|
|
Name = "tbrprim"
|
|
Top = -1
|
|
Width = 33
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Buton1' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Height = 22, ;
|
|
Left = 5, ;
|
|
Name = "Buton1", ;
|
|
Picture = ..\grafice\edit1.bmp, ;
|
|
Top = 5, ;
|
|
Width = 23
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS text AS atentie OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 102
|
|
Name = "text"
|
|
Width = 439
|
|
Shape1.Height = 92
|
|
Shape1.Left = 4
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 4
|
|
Shape1.Width = 428
|
|
Shape1.ZOrderSet = 1
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 12
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\grafice\net13.ico
|
|
IMAGE1.Top = 23
|
|
IMAGE1.Width = 32
|
|
IMAGE1.ZOrderSet = 2
|
|
Label1.Left = 12
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 60
|
|
Label1.Visible = .F.
|
|
Label1.ZOrderSet = 0
|
|
Line1.Name = "Line1"
|
|
Label2.Alignment = 2
|
|
Label2.AutoSize = .F.
|
|
Label2.FontName = "Arial"
|
|
Label2.FontSize = 10
|
|
Label2.Height = 18
|
|
Label2.Left = 50
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 18
|
|
Label2.Width = 376
|
|
Label2.ZOrderSet = 3
|
|
Cmdtermin1.Left = 177
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 61
|
|
Cmdtermin1.ZOrderSet = 4
|
|
Label3.FontName = "Arial"
|
|
Label3.FontSize = 10
|
|
Label3.Height = 19
|
|
Label3.Left = 50
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 36
|
|
Label3.Visible = .T.
|
|
Label3.Width = 376
|
|
Label3.ZOrderSet = 5
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS textmare AS text OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 178
|
|
Name = "textmare"
|
|
Width = 379
|
|
LABEL1.Name = "LABEL1"
|
|
SHAPE1.Height = 164
|
|
SHAPE1.Left = 5
|
|
SHAPE1.Name = "SHAPE1"
|
|
SHAPE1.Top = 7
|
|
SHAPE1.Width = 368
|
|
Image1.BackStyle = 0
|
|
Image1.Height = 32
|
|
Image1.Left = 20
|
|
Image1.Name = "Image1"
|
|
Image1.Picture = ..\grafice\exclam2.ico
|
|
Image1.Top = 27
|
|
Image1.Width = 32
|
|
LABEL2.Alignment = 0
|
|
LABEL2.Height = 102
|
|
LABEL2.Left = 60
|
|
LABEL2.Name = "LABEL2"
|
|
LABEL2.Top = 24
|
|
LABEL2.Width = 300
|
|
LABEL2.WordWrap = .T.
|
|
Cmdtermin1.Left = 277
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 137
|
|
LABEL3.Left = 60
|
|
LABEL3.Name = "LABEL3"
|
|
LABEL3.Top = 180
|
|
LABEL3.Visible = .F.
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS textmarer AS textmare OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "textmarer"
|
|
Label1.Name = "Label1"
|
|
Shape1.Name = "Shape1"
|
|
Image1.Height = 32
|
|
Image1.Name = "Image1"
|
|
Image1.Width = 32
|
|
Label2.Name = "Label2"
|
|
CMDTERMIN1.Caption = "\<CONTINUARE"
|
|
CMDTERMIN1.Height = 27
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 135
|
|
CMDTERMIN1.Width = 84
|
|
Label3.Name = "Label3"
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Caption = "\<RENUNTARE", ;
|
|
Height = 27, ;
|
|
Left = 189, ;
|
|
Name = "CMDRENUNT1", ;
|
|
Top = 135, ;
|
|
Width = 84
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS textr AS text OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DoCreate = .T.
|
|
Height = 102
|
|
Name = "textr"
|
|
Width = 437
|
|
Label1.Name = "Label1"
|
|
SHAPE1.BackStyle = 0
|
|
SHAPE1.Name = "SHAPE1"
|
|
Image1.Height = 32
|
|
Image1.Name = "Image1"
|
|
Image1.Width = 32
|
|
Label2.BackStyle = 0
|
|
Label2.Name = "Label2"
|
|
Cmdtermin1.Caption = "\<CONTINUA"
|
|
Cmdtermin1.Left = 210
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 61
|
|
Label3.Name = "Label3"
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Caption = "\<RENUNTA", ;
|
|
Height = 24, ;
|
|
Left = 120, ;
|
|
Name = "CMDRENUNT1", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
PROCEDURE CMDRENUNT1.Valid
|
|
BUTON=2
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdtermin1.Valid
|
|
BUTON=1
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS textval AS text OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: valoare
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "textval"
|
|
valoare = 0
|
|
Label1.Name = "Label1"
|
|
Shape1.Name = "Shape1"
|
|
IMAGE1.BackStyle = 0
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 48
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\grafice\point04.ico
|
|
IMAGE1.Stretch = 0
|
|
IMAGE1.Top = 29
|
|
IMAGE1.Width = 32
|
|
Label2.Name = "Label2"
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Label3.Left = 84
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 96
|
|
Label3.Visible = .F.
|
|
LINE1.Name = "LINE1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "thisform.valoare", ;
|
|
FontBold = .T., ;
|
|
ForeColor = 0,0,160, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999 999", ;
|
|
Left = 101, ;
|
|
Name = "Text1", ;
|
|
Top = 33, ;
|
|
Width = 198
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
if thisform.valoare<0
|
|
thisform.text1.forecolor=rgb(255,0,0)
|
|
endif
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS titlu AS label
|
|
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Alignment = 0
|
|
AutoSize = .T.
|
|
Caption = "TITLU"
|
|
FontBold = .T.
|
|
FontName = "BankGothic Md BT"
|
|
FontShadow = .F.
|
|
FontSize = 12
|
|
ForeColor = 255,255,255
|
|
Height = 22
|
|
Name = "titlu"
|
|
TabIndex = 21
|
|
Width = 52
|
|
ZOrderSet = 6
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|