*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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
