565 lines
20 KiB
Plaintext
565 lines
20 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="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="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBdOTWhkM8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
|
|
|
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
|