1563 lines
46 KiB
Plaintext
1563 lines
46 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 = 1
|
|
DoCreate = .T.
|
|
Height = 100
|
|
Name = "atentie"
|
|
Width = 401
|
|
WindowType = 0
|
|
SEIP1.Height = 90
|
|
SEIP1.Left = 6
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 5
|
|
SEIP1.Width = 388
|
|
SEIP1.ZOrderSet = 0
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 31
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\grafice\exclam2.ico
|
|
IMAGE1.Top = 12
|
|
IMAGE1.Width = 32
|
|
IMAGE1.ZOrderSet = 1
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 2
|
|
Label1.Alignment = 0
|
|
Label1.AutoSize = .T.
|
|
Label1.Left = 73
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 14
|
|
Label1.ZOrderSet = 3
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Height = 24, ;
|
|
Left = 350, ;
|
|
Name = "CMDTERMIN1", ;
|
|
Top = 62, ;
|
|
Width = 31, ;
|
|
ZOrderSet = 5, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "label2", ;
|
|
FontSize = 11, ;
|
|
Height = 19, ;
|
|
Left = 137, ;
|
|
Name = "Label2", ;
|
|
Top = 14, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "label3", ;
|
|
FontSize = 11, ;
|
|
Height = 19, ;
|
|
Left = 166, ;
|
|
Name = "Label3", ;
|
|
Top = 39, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 6
|
|
*< 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>
|
|
DoCreate = .T.
|
|
Height = 107
|
|
Name = "atentierosu"
|
|
Width = 400
|
|
SEIP1.Height = 96
|
|
SEIP1.Left = 6
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 5
|
|
SEIP1.Width = 388
|
|
Image1.BackStyle = 0
|
|
Image1.Height = 32
|
|
Image1.Left = 26
|
|
Image1.Name = "Image1"
|
|
Image1.Picture = ..\grafice\pericol.ico
|
|
Image1.Top = 14
|
|
Image1.Width = 32
|
|
Line1.Name = "Line1"
|
|
Label1.Caption = "Atentie!"
|
|
Label1.Left = 64
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 17
|
|
LABEL2.Left = 131
|
|
LABEL2.Name = "LABEL2"
|
|
LABEL2.Top = 17
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Height = 24
|
|
CMDTERMIN1.Imbuton1.Height = 29
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 27
|
|
CMDTERMIN1.Left = 353
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 60
|
|
CMDTERMIN1.Width = 31
|
|
LABEL3.Left = 180
|
|
LABEL3.Name = "LABEL3"
|
|
LABEL3.Top = 41
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS barabut AS container
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Modifica1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Nou1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
BackStyle = 1
|
|
Height = 35
|
|
Name = "barabut"
|
|
Width = 197
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Excel1' AS excel WITH ;
|
|
Left = 101, ;
|
|
Name = "Excel1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'List1' AS list WITH ;
|
|
Left = 133, ;
|
|
Name = "List1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Modifica1' AS modifica WITH ;
|
|
Left = 37, ;
|
|
Name = "Modifica1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Nou1' AS nou WITH ;
|
|
Left = 5, ;
|
|
Name = "Nou1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Sterge1' AS sterge WITH ;
|
|
Left = 69, ;
|
|
Name = "Sterge1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Terminat1' AS terminat WITH ;
|
|
Left = 165, ;
|
|
Name = "Terminat1", ;
|
|
Top = 3, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmdlist AS list OF "..\..\comun\clase\baza.vcx"
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Name = "cmdlist"
|
|
Imbuton1.Height = 27
|
|
Imbuton1.Name = "Imbuton1"
|
|
Imbuton1.Width = 30
|
|
Command1.Name = "Command1"
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmdlist_ AS commandbutton
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Caption = "\<LISTARE"
|
|
DownPicture = ..\grafice\delete.bmp
|
|
FontBold = .T.
|
|
ForeColor = 60,255,250
|
|
Height = 27
|
|
Name = "cmdlist"
|
|
Width = 98
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmdrenunt AS renunt OF "..\..\comun\clase\baza.vcx"
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Name = "cmdrenunt"
|
|
Imbuton1.Height = 27
|
|
Imbuton1.Name = "Imbuton1"
|
|
Imbuton1.Width = 30
|
|
Command1.Name = "Command1"
|
|
*</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 terminat OF "..\..\comun\clase\baza.vcx"
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Name = "cmdtermin"
|
|
Imbuton1.Height = 27
|
|
Imbuton1.Name = "Imbuton1"
|
|
Imbuton1.Width = 30
|
|
Command1.Name = "Command1"
|
|
*</PropValue>
|
|
|
|
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
|
|
THISFORM.RELEASE
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS danu AS sigur OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 111
|
|
Name = "danu"
|
|
Width = 341
|
|
SEIP1.Height = 99
|
|
SEIP1.Left = 5
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 6
|
|
SEIP1.Width = 330
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 14
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Top = 13
|
|
IMAGE1.Width = 32
|
|
LINE1.Name = "LINE1"
|
|
LABEL1.Alignment = 2
|
|
LABEL1.AutoSize = .F.
|
|
LABEL1.Caption = "Doriti sa continuati?"
|
|
LABEL1.FontBold = .F.
|
|
LABEL1.FontSize = 10
|
|
LABEL1.Height = 52
|
|
LABEL1.Left = 50
|
|
LABEL1.Name = "LABEL1"
|
|
LABEL1.Top = 15
|
|
LABEL1.Width = 277
|
|
LABEL1.WordWrap = .T.
|
|
LABEL2.Caption = "label2"
|
|
LABEL2.FontBold = .F.
|
|
LABEL2.Height = 21
|
|
LABEL2.Left = 336
|
|
LABEL2.Name = "LABEL2"
|
|
LABEL2.Top = 60
|
|
LABEL2.Visible = .F.
|
|
LABEL2.Width = 44
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Imbuton1.Height = 29
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 27
|
|
CMDTERMIN1.Left = 36
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 84
|
|
LABEL3.Name = "LABEL3"
|
|
Nu1.Command1.Name = "Command1"
|
|
Nu1.Imbuton1.Height = 27
|
|
Nu1.Imbuton1.Name = "Imbuton1"
|
|
Nu1.Imbuton1.Width = 51
|
|
Nu1.Left = 171
|
|
Nu1.Name = "Nu1"
|
|
Nu1.Top = 71
|
|
Da1.Command1.Name = "Command1"
|
|
Da1.Imbuton1.Height = 27
|
|
Da1.Imbuton1.Name = "Imbuton1"
|
|
Da1.Imbuton1.Width = 51
|
|
Da1.Left = 119
|
|
Da1.Name = "Da1"
|
|
Da1.Top = 71
|
|
*</PropValue>
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
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="Shape1" 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 = 1
|
|
Caption = "Calendar"
|
|
Closable = .T.
|
|
ControlBox = .T.
|
|
DoCreate = .T.
|
|
Height = 263
|
|
Icon = ..\grafice\mfix.ico
|
|
Name = "diary"
|
|
numel = mai
|
|
Width = 462
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CALEND' AS olecontrol WITH ;
|
|
Height = 159, ;
|
|
Left = 10, ;
|
|
Name = "CALEND", ;
|
|
Top = 93, ;
|
|
Width = 441, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\mscal.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEA086SBcMMBAwAAAEACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAogEAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAA4AAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAAAAAAAwAAAP7////+////BAAAAAUAAAAGAAAABwAAAAgAAAD+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8rySeOZBIcEIovBAIkAJwCAAAIAJQtAABvEAAA0AcEABgA////AAACAAIAAAAAAAAAAAAAAAAAAAIAAAAAAAEAOAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAvAJEQgEADU1TIFNhbnMgU2VyaWYBAAAAkAFEQgEADU1TIFNhbnMgU2VyaWYBAAAAvALA1AEADU1TIFNhbnMgU2VyaWYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
|
|
|
ADD OBJECT 'ComboAn' AS combobox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
ControlSource = "m.AN", ;
|
|
Height = 20, ;
|
|
Left = 368, ;
|
|
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 = 19, ;
|
|
Visible = .T., ;
|
|
Width = 72, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'ComboLuna' AS combobox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
ControlSource = "M.LUNA", ;
|
|
Height = 20, ;
|
|
Left = 248, ;
|
|
Name = "ComboLuna", ;
|
|
RowSource = "lunilean.numeluna", ;
|
|
RowSourceType = 6, ;
|
|
Style = 2, ;
|
|
TabIndex = 3, ;
|
|
TabStop = .F., ;
|
|
Top = 19, ;
|
|
Visible = .T., ;
|
|
Width = 108, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Container1' AS container WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 25, ;
|
|
Left = 20, ;
|
|
Name = "Container1", ;
|
|
SpecialEffect = 1, ;
|
|
Top = 67, ;
|
|
Width = 421, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="container" />
|
|
|
|
ADD OBJECT 'Container1.Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "L", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 6, ;
|
|
Name = "Label1", ;
|
|
Top = 2, ;
|
|
Width = 12, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "M", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 65, ;
|
|
Name = "Label2", ;
|
|
Top = 2, ;
|
|
Width = 15, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "M", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 125, ;
|
|
Name = "Label3", ;
|
|
Top = 2, ;
|
|
Width = 15, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "J", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 185, ;
|
|
Name = "Label4", ;
|
|
Top = 2, ;
|
|
Width = 11, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "V", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 245, ;
|
|
Name = "Label5", ;
|
|
Top = 2, ;
|
|
Width = 13, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "S", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 305, ;
|
|
Name = "Label6", ;
|
|
Top = 2, ;
|
|
Width = 13, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Container1.Label7' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "D", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,160, ;
|
|
Height = 22, ;
|
|
Left = 366, ;
|
|
Name = "Label7", ;
|
|
Top = 2, ;
|
|
Width = 14, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 3, ;
|
|
Height = 209, ;
|
|
Left = 5, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 47, ;
|
|
Width = 451, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "THISFORM.NUMEL", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 15, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 32, ;
|
|
Left = 19, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 15, ;
|
|
Width = 120, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "THISFORM.AN", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 15, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 142, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
Top = 15, ;
|
|
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.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="SEIP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Height = 108
|
|
Name = "fatentie"
|
|
Width = 375
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 2
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 32, ;
|
|
Left = 24, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\exclam2.ico, ;
|
|
Top = 12, ;
|
|
Width = 32, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Atentie!", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
Height = 24, ;
|
|
Left = 64, ;
|
|
Name = "Label1", ;
|
|
Top = 21, ;
|
|
Width = 60, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'SEIP1' AS seip WITH ;
|
|
BorderColor = 128,128,128, ;
|
|
BorderWidth = 1, ;
|
|
Height = 95, ;
|
|
Left = 6, ;
|
|
Name = "SEIP1", ;
|
|
Top = 6, ;
|
|
Width = 363, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ffergen AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .T.
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 3
|
|
Caption = ""
|
|
Closable = .F.
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Height = 500
|
|
Icon = ..\..\
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Movable = .F.
|
|
Name = "ffergen"
|
|
ShowTips = .T.
|
|
Width = 800
|
|
WindowType = 1
|
|
*</PropValue>
|
|
|
|
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 = 1
|
|
DoCreate = .T.
|
|
Height = 63
|
|
Name = "progresbar"
|
|
p = 0
|
|
v = 0
|
|
Width = 403
|
|
WindowType = 0
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "%", ;
|
|
Height = 17, ;
|
|
Left = 370, ;
|
|
Name = "Label1", ;
|
|
Top = 14, ;
|
|
Width = 19, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'PRBAR' AS olecontrol WITH ;
|
|
Height = 15, ;
|
|
Left = 22, ;
|
|
Name = "PRBAR", ;
|
|
Top = 31, ;
|
|
Width = 361, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDXc8R+aMMBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAACEAAAAAAAAABAAAAAIAAAD+/////v////7////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S6BMHCoUbEK/AQhAQKo2nIUM0EggAAABPJQAAjQEAAIR+4eYCAAUAHAAAAAAAAAAAAMhCAe/NqwAABQAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEJvcmRlclN0eWxlAAkAAABJCgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAAP//////////wPfBgh/e7L0BAAUAwPfBggAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAEAGAAAAB0AAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYWwACAAAAADkAQAAcAEAAAEAAAAlAAAAEAAAAAAAAAAAAAAAkAEAAAAAAAABAgEiTQBTACAAUwBhAG4AcwAgAFMAZQByAGkAZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAE0AUwAgAFMAYQBuAHMAIABTAGUAcgBpAGYAAAAAAAAAAAAAAA==" />
|
|
|
|
ADD OBJECT 'Seip1' AS seip WITH ;
|
|
Height = 49, ;
|
|
Left = 10, ;
|
|
Name = "Seip1", ;
|
|
Top = 7, ;
|
|
Width = 386, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "THISFORM.P", ;
|
|
Height = 23, ;
|
|
Left = 335, ;
|
|
Name = "Text1", ;
|
|
Top = 12, ;
|
|
Width = 36, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'TITLU' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = " ", ;
|
|
Height = 17, ;
|
|
Left = 24, ;
|
|
Name = "TITLU", ;
|
|
Top = 14, ;
|
|
Width = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
THISFORM.PRBAR.MAX=Maxs
|
|
THISFORM.PRBAR.VALUE=0
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS seip AS shape
|
|
*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
BackStyle = 0
|
|
BorderColor = 7,118,177
|
|
BorderWidth = 1
|
|
Height = 68
|
|
Name = "seip"
|
|
SpecialEffect = 1
|
|
Width = 68
|
|
*</PropValue>
|
|
|
|
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="Nu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 107
|
|
Name = "sigur"
|
|
Width = 348
|
|
WindowType = 1
|
|
SEIP1.BorderWidth = 1
|
|
SEIP1.Height = 97
|
|
SEIP1.Left = 5
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 5
|
|
SEIP1.Width = 338
|
|
Image1.BackStyle = 0
|
|
Image1.Height = 32
|
|
Image1.Left = 17
|
|
Image1.Name = "Image1"
|
|
Image1.Picture = ..\grafice\intreb.ico
|
|
Image1.Top = 15
|
|
Image1.Visible = .T.
|
|
Image1.Width = 32
|
|
Line1.Name = "Line1"
|
|
Label1.Caption = "Doriti sa iesiti din program ?"
|
|
Label1.Left = 80
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 22
|
|
Label2.Caption = "Imobilizari ?"
|
|
Label2.FontBold = .T.
|
|
Label2.FontSize = 12
|
|
Label2.Left = 0
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 96
|
|
Label2.Visible = .F.
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Imbuton1.Height = 29
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 27
|
|
CMDTERMIN1.Left = -12
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 96
|
|
CMDTERMIN1.Visible = .F.
|
|
Label3.Left = 336
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 36
|
|
Label3.Visible = .F.
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Da1' AS da WITH ;
|
|
Left = 123, ;
|
|
Name = "Da1", ;
|
|
Top = 67, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Nu1' AS nu WITH ;
|
|
Left = 175, ;
|
|
Name = "Nu1", ;
|
|
Top = 67, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
|
|
do inchidprog
|
|
thisform.release
|
|
QUIT
|
|
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
|
|
SEIP1.Height = 91
|
|
SEIP1.Left = 6
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 4
|
|
SEIP1.Width = 366
|
|
IMAGE1.Height = 22
|
|
IMAGE1.Left = 41
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\..\contab\grafice\hand.bmp
|
|
IMAGE1.Top = 14
|
|
IMAGE1.Width = 24
|
|
Line1.Name = "Line1"
|
|
Label1.Caption = "Stop!"
|
|
Label1.Left = 73
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 17
|
|
Label2.FontSize = 11
|
|
Label2.Left = 121
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 17
|
|
Cmdtermin1.Command1.Name = "Command1"
|
|
Cmdtermin1.Imbuton1.Height = 29
|
|
Cmdtermin1.Imbuton1.Name = "Imbuton1"
|
|
Cmdtermin1.Imbuton1.Width = 27
|
|
Cmdtermin1.Left = 336
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 62
|
|
Label3.FontSize = 11
|
|
Label3.Left = 168
|
|
Label3.Name = "Label3"
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS text AS atentie OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 102
|
|
Name = "text"
|
|
Width = 401
|
|
SEIP1.Height = 91
|
|
SEIP1.Left = 6
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 5
|
|
SEIP1.Width = 388
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 24
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\..\comun\grafice\note.ico
|
|
IMAGE1.Top = 20
|
|
IMAGE1.Width = 32
|
|
IMAGE1.ZOrderSet = 2
|
|
Line1.Name = "Line1"
|
|
Label1.Left = 12
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 60
|
|
Label1.Visible = .F.
|
|
Label1.ZOrderSet = 0
|
|
Label2.Alignment = 2
|
|
Label2.FontSize = 10
|
|
Label2.Left = 180
|
|
Label2.Name = "Label2"
|
|
Label2.ZOrderSet = 3
|
|
Cmdtermin1.Command1.Name = "Command1"
|
|
Cmdtermin1.Imbuton1.Height = 29
|
|
Cmdtermin1.Imbuton1.Name = "Imbuton1"
|
|
Cmdtermin1.Imbuton1.Width = 27
|
|
Cmdtermin1.Left = 352
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 63
|
|
Cmdtermin1.ZOrderSet = 4
|
|
Label3.FontSize = 10
|
|
Label3.Left = 180
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 37
|
|
Label3.Visible = .T.
|
|
Label3.ZOrderSet = 5
|
|
*</PropValue>
|
|
|
|
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="Nu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "textr"
|
|
Label1.Name = "Label1"
|
|
Label1.ZOrderSet = 1
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.ZOrderSet = 0
|
|
Image1.Height = 32
|
|
Image1.Name = "Image1"
|
|
Image1.Width = 32
|
|
Image1.ZOrderSet = 6
|
|
Label2.Name = "Label2"
|
|
Label2.ZOrderSet = 3
|
|
Label3.Name = "Label3"
|
|
Label3.ZOrderSet = 5
|
|
Cmdtermin1.Command1.Name = "Command1"
|
|
Cmdtermin1.Imbuton1.Height = 29
|
|
Cmdtermin1.Imbuton1.Name = "Imbuton1"
|
|
Cmdtermin1.Imbuton1.Width = 27
|
|
Cmdtermin1.Left = 360
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 12
|
|
Cmdtermin1.Visible = .F.
|
|
Cmdtermin1.ZOrderSet = 4
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Da1' AS da WITH ;
|
|
Left = 143, ;
|
|
Name = "Da1", ;
|
|
Top = 60, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Nu1' AS nu WITH ;
|
|
Left = 208, ;
|
|
Name = "Nu1", ;
|
|
Top = 60, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 51, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
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"
|
|
SEIP1.Name = "SEIP1"
|
|
Line1.Name = "Line1"
|
|
Label2.Name = "Label2"
|
|
Cmdtermin1.Command1.Name = "Command1"
|
|
Cmdtermin1.Imbuton1.Height = 29
|
|
Cmdtermin1.Imbuton1.Name = "Imbuton1"
|
|
Cmdtermin1.Imbuton1.Width = 27
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Label3.Left = 72
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 68
|
|
Label3.Visible = .F.
|
|
IMAGE1.BackStyle = 0
|
|
IMAGE1.Height = 32
|
|
IMAGE1.Left = 43
|
|
IMAGE1.Name = "IMAGE1"
|
|
IMAGE1.Picture = ..\..\contab\grafice\point04.ico
|
|
IMAGE1.Stretch = 0
|
|
IMAGE1.Top = 19
|
|
IMAGE1.Width = 32
|
|
*</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 = .F.
|
|
BackColor = 255,255,255
|
|
BackStyle = 0
|
|
Caption = "TITLU FRUMOS"
|
|
FontBold = .F.
|
|
FontName = "Comic Sans MS"
|
|
FontSize = 10
|
|
ForeColor = 255,255,255
|
|
Height = 37
|
|
Name = "titlufrumos"
|
|
Width = 364
|
|
WordWrap = .T.
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS titlu_ AS label
|
|
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
AutoSize = .T.
|
|
BackStyle = 0
|
|
Caption = "Label1"
|
|
FontBold = .T.
|
|
FontName = "Arial"
|
|
Height = 17
|
|
Name = "titlu"
|
|
Width = 40
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS vizgol 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="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="LabelTitlu" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape5" 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.Header2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label102" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label103" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label101" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 540
|
|
Name = "vizgol"
|
|
Width = 800
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Height = 27, ;
|
|
Left = 695, ;
|
|
Name = "Cmdtermin1", ;
|
|
TabIndex = 3, ;
|
|
Top = 487, ;
|
|
Width = 98, ;
|
|
ZOrderSet = 7, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 254,255,240, ;
|
|
ColumnCount = 3, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
GridLineColor = 128,128,128, ;
|
|
Height = 435, ;
|
|
Left = 12, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 1, ;
|
|
Top = 24, ;
|
|
View = 0, ;
|
|
Width = 672, ;
|
|
ZOrderSet = 6, ;
|
|
Column1.Alignment = 0, ;
|
|
Column1.BackColor = 254,255,240, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "nume_2", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.FontSize = 9, ;
|
|
Column1.Format = "", ;
|
|
Column1.InputMask = "", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 139, ;
|
|
Column2.Alignment = 0, ;
|
|
Column2.BackColor = 254,255,240, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.FontSize = 9, ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 53, ;
|
|
Column3.Alignment = 1, ;
|
|
Column3.BackColor = 254,255,240, ;
|
|
Column3.ColumnOrder = 3, ;
|
|
Column3.ControlSource = "incasari", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 9, ;
|
|
Column3.Format = "r", ;
|
|
Column3.InputMask = "999 999 999 999", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 94
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nume", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Elem.", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Incasari", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header3"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label101' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Total Incasari", ;
|
|
Height = 17, ;
|
|
Left = 269, ;
|
|
Name = "Label101", ;
|
|
TabIndex = 18, ;
|
|
Top = 485, ;
|
|
Width = 76, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label102' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Total Plati", ;
|
|
Height = 17, ;
|
|
Left = 417, ;
|
|
Name = "Label102", ;
|
|
TabIndex = 21, ;
|
|
Top = 486, ;
|
|
Width = 56, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label103' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "Sold", ;
|
|
Height = 17, ;
|
|
Left = 564, ;
|
|
Name = "Label103", ;
|
|
Top = 485, ;
|
|
Width = 27
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
Caption = "TOTAL SUME:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 17, ;
|
|
Left = 48, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 8, ;
|
|
Top = 464, ;
|
|
Width = 114
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'LabelTitlu' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 1, ;
|
|
Caption = "LabelTitlu", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 11, ;
|
|
Name = "LabelTitlu", ;
|
|
TabIndex = 22, ;
|
|
Top = 2, ;
|
|
Width = 80, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderColor = 7,118,177, ;
|
|
BorderWidth = 2, ;
|
|
Height = 65, ;
|
|
Left = 9, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 470, ;
|
|
Width = 677, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderColor = 7,118,177, ;
|
|
BorderWidth = 2, ;
|
|
Height = 516, ;
|
|
Left = 690, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 19, ;
|
|
Width = 108, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
Height = 67, ;
|
|
Left = 690, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 468, ;
|
|
Width = 108, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape5' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderColor = 7,118,177, ;
|
|
BorderWidth = 2, ;
|
|
Height = 41, ;
|
|
Left = 216, ;
|
|
Name = "Shape5", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 494, ;
|
|
Width = 437, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
ControlSource = "m.tincasari", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 248, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 5, ;
|
|
Top = 504, ;
|
|
Width = 110, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
ControlSource = "m.tplati", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 390, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 6, ;
|
|
Top = 504, ;
|
|
Width = 110, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
ControlSource = "sold", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 525, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 2, ;
|
|
TabIndex = 7, ;
|
|
Top = 504, ;
|
|
Width = 110, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Text1.GotFocus
|
|
sum incasari to m.tincasari
|
|
this.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Init
|
|
sele bannume
|
|
sum incasari to m.tincasari
|
|
this.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.GotFocus
|
|
sum plati to m.tplati
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.GotFocus
|
|
sold=tincasari-tplati
|
|
this.refresh
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|