bbaad331a5
NOTE: This Bug Fix implies that when tx2 files are regenerated, differences will occur almost certainly for the first time, so do not regenerate all tx2 files unnecesarily to keep differences at minimum.
204 lines
8.5 KiB
Plaintext
204 lines
8.5 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, ;
|
|
Check2.Alignment = 0, ;
|
|
Check2.Name = "Check2", ;
|
|
Check2.TabIndex = 2, ;
|
|
Check2.ZOrderSet = 1, ;
|
|
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, ;
|
|
Check1.Alignment = 0, ;
|
|
Check1.Name = "Check1", ;
|
|
Check1.TabIndex = 1, ;
|
|
Check1.ZOrderSet = 0, ;
|
|
Check3.Alignment = 0, ;
|
|
Check3.Name = "Check3", ;
|
|
Check3.TabIndex = 4, ;
|
|
Check3.ZOrderSet = 4
|
|
*< 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" 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
|