205 lines
8.6 KiB
Plaintext
205 lines
8.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
|
|
*
|
|
#INCLUDE "include\keycodes.h"
|
|
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
|
|
|
|
DataSource = .NULL.
|
|
Height = 200
|
|
Left = 1
|
|
Name = "Dataenvironment"
|
|
Top = 220
|
|
Width = 520
|
|
|
|
ADD OBJECT 'Cursor1' AS cursor WITH ;
|
|
Alias = "foxuser_fdbozzo", ;
|
|
CursorSource = foxuser_fdbozzo.dbf, ;
|
|
Height = 90, ;
|
|
Left = 10, ;
|
|
Name = "Cursor1", ;
|
|
Top = 20, ;
|
|
Width = 90
|
|
*< END OBJECT: BaseClass="cursor" />
|
|
|
|
PROCEDURE BeforeOpenTables
|
|
*-- Dataenvironment.BeforeOpenTables()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cursor1.Init
|
|
*-- Dataenvironment.Cursor1.Init()
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_form1 AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cnt_controles1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cnt_controles1.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Olecontrol1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: metodo_comun && Método común
|
|
*</DefinedPropArrayMethod>
|
|
|
|
Caption = "Form1"
|
|
DoCreate = .T.
|
|
Height = 250
|
|
Icon = container.ico
|
|
Left = 0
|
|
Name = "frm_Form1"
|
|
Top = 0
|
|
Width = 470
|
|
WindowType = 1
|
|
|
|
ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ;
|
|
Left = 28, ;
|
|
Name = "Cnt_controles1", ;
|
|
TabIndex = 3, ;
|
|
Top = 72, ;
|
|
Check1.Alignment = 0, ;
|
|
Check1.Name = "Check1", ;
|
|
Check1.TabIndex = 1, ;
|
|
Check1.ZOrderSet = 0, ;
|
|
Check2.Alignment = 0, ;
|
|
Check2.Name = "Check2", ;
|
|
Check2.TabIndex = 2, ;
|
|
Check2.ZOrderSet = 1, ;
|
|
Check3.Alignment = 0, ;
|
|
Check3.Name = "Check3", ;
|
|
Check3.TabIndex = 4, ;
|
|
Check3.ZOrderSet = 4, ;
|
|
Check4.Alignment = 0, ;
|
|
Check4.Name = "Check4", ;
|
|
Check4.TabIndex = 5, ;
|
|
Check4.ZOrderSet = 5, ;
|
|
Label_h.Name = "Label_h", ;
|
|
Label_h.TabIndex = 6, ;
|
|
Label_h.ZOrderSet = 2, ;
|
|
Textbox_h.Name = "Textbox_h", ;
|
|
Textbox_h.TabIndex = 3, ;
|
|
Textbox_h.ZOrderSet = 3
|
|
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ;
|
|
Caption = "Label1", ;
|
|
Height = 17, ;
|
|
Left = 24, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 7, ;
|
|
Top = 84, ;
|
|
Width = 64
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "Command1", ;
|
|
Height = 27, ;
|
|
Left = 28, ;
|
|
Name = "Command1", ;
|
|
TabIndex = 1, ;
|
|
Top = 20, ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
|
Caption = "Command1", ;
|
|
Height = 27, ;
|
|
Left = 132, ;
|
|
Name = "Command2", ;
|
|
TabIndex = 2, ;
|
|
Top = 20, ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Olecontrol1' AS olecontrol WITH ;
|
|
Height = 157, ;
|
|
Left = 328, ;
|
|
Name = "Olecontrol1", ;
|
|
Top = 72, ;
|
|
Width = 133
|
|
*< END OBJECT: BaseClass="olecontrol" Nombre="frm_Form1.Olecontrol1" Parent="frm_Form1" ObjName="Olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
|
|
PROCEDURE Load
|
|
*-- Form 1 LOAD()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE metodo_comun && Método común
|
|
*-- frm_Form1.metodo_comun()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Unload
|
|
*-- Form1.Unload()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cnt_controles1.Check1.Click
|
|
*-- Form1.Cnt_controles1.Check1.Click()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cnt_controles1.Check2.Click
|
|
*-- Form1.Cnt_controles1.Check2.Click()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cnt_controles1.Check3.Click
|
|
*-- Form1.Cnt_controles1.Check3.Click()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cnt_controles1.Check4.Click
|
|
*-- Form1.Cnt_controles1.Check4.Click()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cnt_controles1.Init
|
|
*-- Form1.Command1.Cnt_controles1.Init()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cnt_controles1.Label1.Click
|
|
*-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo!
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
*-- Form1.Command1.Click()
|
|
PUBLIC ;
|
|
glEnabled_Opc_A_2_Sub_2 ;
|
|
, glEnabled_Opc_A_2_Sub_3 ;
|
|
, glEnabled_Opc_B
|
|
|
|
STORE .T. TO ;
|
|
glEnabled_Opc_A_2_Sub_2 ;
|
|
, glEnabled_Opc_A_2_Sub_3 ;
|
|
, glEnabled_Opc_B
|
|
|
|
DO MENU1.MPR
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command2.Click
|
|
*-- Form1.Command2.Click()
|
|
QUIT
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|