*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*

*
#INCLUDE "..\..\include\principal.h"

DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" />

	AllowOutput = .T.
	AlwaysOnBottom = .F.
	AlwaysOnTop = .T.
	AutoCenter = .T.
	BackColor = 240,240,240
	BindControls = .T.
	BorderStyle = 3
	BufferMode = 0
	Caption = "Form"
	ClipControls = .T.
	Closable = .T.
	ColorSource = 4
	Comment = ""
	ContinuousScroll = .T.
	ControlBox = .T.
	DataSession = 1
	DefOleLCID = 0
	Desktop = .F.
	Dockable = 0
	DoCreate = .T.
	DrawMode = 13
	DrawStyle = 0
	DrawWidth = 1
	Enabled = .T.
	FillColor = 0,0,0
	FillStyle = 1
	FontBold = .F.
	FontCharSet = 0
	FontCondense = .F.
	FontExtend = .F.
	FontItalic = .F.
	FontName = "Arial"
	FontOutline = .F.
	FontShadow = .F.
	FontSize = 9
	FontStrikethru = .F.
	FontUnderline = .F.
	ForeColor = 0,0,0
	HalfHeightCaption = .F.
	Height = 346
	HelpContextID = 0
	HScrollSmallChange = 10
	Icon = ..\..\
	KeyPreview = .F.
	LockScreen = .F.
	MacDesktop = 0
	MaxButton = .T.
	MaxHeight = -1
	MaxLeft = -1
	MaxTop = -1
	MaxWidth = -1
	MDIForm = .F.
	MinButton = .T.
	MinHeight = -1
	MinWidth = -1
	MouseIcon = ..\..\
	MousePointer = 0
	Movable = .T.
	Name = "cl_form1"
	OLEDragMode = 0
	OLEDragPicture = ..\..\
	OLEDropEffects = 3
	OLEDropMode = 0
	Picture = bmps\fondogris.bmp
	RightToLeft = .F.
	ScaleMode = 3
	ScrollBars = 0
	ShowInTaskBar = .T.
	ShowTips = .F.
	ShowWindow = 0
	SizeBox = .F.
	TabIndex = 1
	TabStop = .T.
	Tag = ""
	Themes = .T.
	TitleBar = 1
	Visible = .T.
	VScrollSmallChange = 10
	WhatsThisButton = .F.
	WhatsThisHelp = .F.
	WhatsThisHelpID = -1
	Width = 648
	WindowState = 0
	WindowType = 0
	ZoomBox = .F.
	Cl_commandgroup1.Command1.Left = 8
	Cl_commandgroup1.Command1.Name = "Command1"
	Cl_commandgroup1.Command1.RightToLeft = .F.
	Cl_commandgroup1.Command1.Top = 4
	Cl_commandgroup1.Command2.Left = 124
	Cl_commandgroup1.Command2.Name = "Command2"
	Cl_commandgroup1.Command2.RightToLeft = .F.
	Cl_commandgroup1.Command2.Top = 4
	Cl_commandgroup1.Name = "Cl_commandgroup1"
	Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor
	Cl_commandgroup1.ZOrderSet = 2
	Cl_imagen1.Left = 268
	Cl_imagen1.Name = "Cl_imagen1"
	Cl_imagen1.Top = 292
	Cl_imagen1.ZOrderSet = 3
	Cl_imagen2.Left = 316
	Cl_imagen2.Name = "Cl_imagen2"
	Cl_imagen2.Top = 292
	Cl_imagen2.ZOrderSet = 4
	Cl_optiongroup1.Name = "Cl_optiongroup1"
	Cl_optiongroup1.Option1.Left = 8
	Cl_optiongroup1.Option1.Name = "Option1"
	Cl_optiongroup1.Option1.RightToLeft = .F.
	Cl_optiongroup1.Option1.Top = 8
	Cl_optiongroup1.Option1.Value = 0
	Cl_optiongroup1.Option2.Left = 124
	Cl_optiongroup1.Option2.Name = "Option2"
	Cl_optiongroup1.Option2.RightToLeft = .F.
	Cl_optiongroup1.Option2.Top = 8
	Cl_optiongroup1.Option2.Value = 1
	Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form!
	Cl_optiongroup1.Value = 2
	Cl_optiongroup1.ZOrderSet = 1

	ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ;
		Height = 67, ;
		Left = 484, ;
		Name = "Cl_olecontrol1", ;
		Top = 256, ;
		Width = 131
		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol"  Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="[encoded data, 4096 characters]" />

	ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
		BackColor = 255,128,255, ;
		ButtonCount = 2, ;
		Height = 76, ;
		Left = 8, ;
		Name = "Commandgroup1", ;
		Top = 172, ;
		Value = 1, ;
		Width = 244, ;
		ZOrderSet = 16, ;
		Command1.Caption = "\<Abrir", ;
		Command1.Height = 56, ;
		Command1.Left = 12, ;
		Command1.Name = "Command1", ;
		Command1.Picture = bmps\carpetaabierta.bmp, ;
		Command1.RightToLeft = .F., ;
		Command1.Top = 8, ;
		Command1.Width = 100, ;
		Command2.Caption = "\<Cerrar", ;
		Command2.Height = 56, ;
		Command2.Left = 128, ;
		Command2.Name = "Command2", ;
		Command2.Picture = bmps\carpetacerrada.bmp, ;
		Command2.RightToLeft = .F., ;
		Command2.Top = 8, ;
		Command2.Width = 96
		*< END OBJECT: BaseClass="commandgroup" />

	ADD OBJECT 'grdEncuestas' AS grid WITH ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		Height = 140, ;
		Left = 268, ;
		Name = "grdEncuestas", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "encuestas", ;
		RecordSourceType = 1, ;
		RightToLeft = .F., ;
		Top = 12, ;
		Width = 320, ;
		ZOrderSet = 15, ;
		Column1.ControlSource = "encuestas.promotor", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 58, ;
		Column2.ControlSource = "encuestas.idenc", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 46, ;
		Column3.ControlSource = "encuestas.calific", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 41, ;
		Column4.ControlSource = "encuestas.fecha", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 69, ;
		Column5.ControlSource = "encuestas.resultado", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 58
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ;
		Caption = "promotor", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		RightToLeft = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ;
		Caption = "idenc", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		RightToLeft = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ;
		Caption = "calific", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		RightToLeft = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ;
		Caption = "fecha", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		RightToLeft = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ;
		Caption = "resultado", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		RightToLeft = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'lblCalific' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Calific", ;
		Left = 491, ;
		Name = "lblCalific", ;
		RightToLeft = .F., ;
		TabIndex = 7, ;
		Top = 164, ;
		Width = 34, ;
		WordWrap = .T., ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblFecha' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Fecha", ;
		Left = 491, ;
		Name = "lblFecha", ;
		RightToLeft = .F., ;
		TabIndex = 9, ;
		Top = 192, ;
		Width = 34, ;
		WordWrap = .T., ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblIdenc' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Idenc", ;
		Left = 292, ;
		Name = "lblIdenc", ;
		RightToLeft = .F., ;
		TabIndex = 5, ;
		Top = 192, ;
		Width = 30, ;
		WordWrap = .T., ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblPromotor' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Promotor", ;
		Left = 271, ;
		Name = "lblPromotor", ;
		RightToLeft = .F., ;
		TabIndex = 3, ;
		Top = 164, ;
		Width = 51, ;
		WordWrap = .T., ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblResultado' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Resultado", ;
		Left = 472, ;
		Name = "lblResultado", ;
		RightToLeft = .F., ;
		TabIndex = 11, ;
		Top = 220, ;
		Width = 57, ;
		WordWrap = .T., ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
		BackColor = 0,128,255, ;
		ButtonCount = 2, ;
		Height = 72, ;
		Left = 8, ;
		Name = "Optiongroup1", ;
		Top = 256, ;
		Value = 2, ;
		Width = 244, ;
		ZOrderSet = 17, ;
		Option1.Caption = "Option1", ;
		Option1.Height = 48, ;
		Option1.Left = 16, ;
		Option1.Name = "Option1", ;
		Option1.Picture = bmps\scccheckout.bmp, ;
		Option1.RightToLeft = .F., ;
		Option1.Style = 1, ;
		Option1.Top = 12, ;
		Option1.Value = 0, ;
		Option1.Width = 92, ;
		Option2.Caption = "Option2", ;
		Option2.Height = 48, ;
		Option2.Left = 132, ;
		Option2.Name = "Option2", ;
		Option2.Picture = bmps\scccheckout.bmp, ;
		Option2.RightToLeft = .F., ;
		Option2.Style = 1, ;
		Option2.Top = 12, ;
		Option2.Value = 1, ;
		Option2.Width = 88
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BorderStyle = 2, ;
		BorderWidth = 1, ;
		Curvature = 16, ;
		Height = 49, ;
		Left = 264, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 284, ;
		Width = 101, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'txtCalific' AS textbox WITH ;
		Comment = "", ;
		ControlSource = "encuestas.calific", ;
		DisabledForeColor = 0,0,160, ;
		ForeColor = 0,0,255, ;
		Height = 23, ;
		Left = 532, ;
		MaxLength = 2, ;
		Name = "txtCalific", ;
		ReadOnly = .T., ;
		RightToLeft = .F., ;
		TabIndex = 8, ;
		Top = 164, ;
		Width = 38, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtFecha' AS textbox WITH ;
		Comment = "", ;
		ControlSource = "encuestas.fecha", ;
		DisabledForeColor = 0,0,160, ;
		ForeColor = 0,0,255, ;
		Height = 23, ;
		Left = 532, ;
		Name = "txtFecha", ;
		ReadOnly = .T., ;
		RightToLeft = .F., ;
		TabIndex = 10, ;
		Top = 192, ;
		Width = 73, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtIdenc' AS textbox WITH ;
		Comment = "", ;
		ControlSource = "encuestas.idenc", ;
		DisabledForeColor = 0,0,160, ;
		ForeColor = 0,0,255, ;
		Height = 23, ;
		Left = 328, ;
		MaxLength = 20, ;
		Name = "txtIdenc", ;
		ReadOnly = .T., ;
		RightToLeft = .F., ;
		TabIndex = 6, ;
		Top = 192, ;
		Width = 149, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtPromotor' AS textbox WITH ;
		Comment = "", ;
		ControlSource = "encuestas.promotor", ;
		DisabledForeColor = 0,0,160, ;
		ForeColor = 0,0,255, ;
		Height = 23, ;
		Left = 328, ;
		MaxLength = 20, ;
		Name = "txtPromotor", ;
		ReadOnly = .T., ;
		RightToLeft = .F., ;
		TabIndex = 4, ;
		Top = 164, ;
		Width = 149, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtResultado' AS textbox WITH ;
		Comment = "", ;
		ControlSource = "encuestas.resultado", ;
		DisabledForeColor = 0,0,160, ;
		ForeColor = 0,0,255, ;
		Height = 23, ;
		Left = 532, ;
		MaxLength = 10, ;
		Name = "txtResultado", ;
		ReadOnly = .T., ;
		RightToLeft = .F., ;
		TabIndex = 12, ;
		Top = 220, ;
		Width = 81, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	PROCEDURE grdEncuestas.AfterRowColChange
		LPARAMETERS nColIndex
		
		thisform.Refresh()
		
	ENDPROC

ENDDEFINE

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="" />

	AutoCloseTables = .T.
	AutoOpenTables = .T.
	Comment = ""
	DataSource = .NULL.
	DataSourceType = ""
	Height = 200
	InitialSelectedAlias = ""
	Left = 11
	Name = "Dataenvironment"
	OpenViews = 0
	Tag = ""
	Top = 404
	Width = 520

	ADD OBJECT 'Cursor1' AS cursor WITH ;
		Alias = "encuestas", ;
		BufferModeOverride = 1, ;
		Comment = "", ;
		CursorSource = encuestas.dbf, ;
		Exclusive = .F., ;
		Filter = "", ;
		Height = 98, ;
		Left = 10, ;
		Name = "Cursor1", ;
		NoDataOnLoad = .F., ;
		Order = "", ;
		OrderDirection = 0, ;
		ReadOnly = .F., ;
		Tag = "", ;
		Top = 20, ;
		Width = 102
		*< END OBJECT: BaseClass="cursor" />
	
	PROCEDURE BeforeOpenTables
		*-- Comentario en método [Dataenvironment.BeforeOpenTables]
		
	ENDPROC

	PROCEDURE Cursor1.Init
		*-- Comentario en método [Dataenvironment.Cursor1.Init]
		
	ENDPROC

ENDDEFINE
