Files
foxbin2prg/TESTS/DATOS_READONLY/f_formset.sc2
2014-05-16 17:16:46 +02:00

972 lines
30 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="f_formset.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
*-- 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 = 1
Name = "Dataenvironment"
OpenViews = 0
Tag = ""
Top = 220
Width = 520
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "encuestas", ;
BufferModeOverride = 1, ;
Comment = "", ;
CursorSource = encuestas.dbf, ;
Exclusive = .F., ;
Filter = "", ;
Height = 90, ;
Left = 10, ;
Name = "Cursor1", ;
NoDataOnLoad = .F., ;
Order = "", ;
OrderDirection = 0, ;
ReadOnly = .F., ;
Tag = "", ;
Top = 20, ;
Width = 90
*< END OBJECT: BaseClass="cursor" />
ENDDEFINE
DEFINE CLASS formset AS formset
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="F_base1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Cl_header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Cl_grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.Cl_grid1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: c_testname
*</DefinedPropArrayMethod>
AutoRelease = .T.
BufferMode = 0
Comment = ""
c_testname = Formset_Test
DataSession = 2
Name = "Formset"
ReadCycle = .T.
ReadLock = .T.
ReadMouse = .T.
ReadSave = .F.
ReadTimeout = 0
Tag = ""
Visible = .T.
WindowList = ""
WindowType = 0
ADD OBJECT 'F_base1' AS f_base WITH ;
AllowOutput = .T., ;
AlwaysOnBottom = .F., ;
AlwaysOnTop = .F., ;
AutoCenter = .F., ;
BackColor = 192,192,192, ;
BindControls = .T., ;
BorderStyle = 3, ;
ClipControls = .T., ;
Closable = .T., ;
ColorSource = 4, ;
Comment = "", ;
ContinuousScroll = .T., ;
ControlBox = .T., ;
c_testname = Formset_Test, ;
DefHeight = , ;
DefLeft = , ;
DefOleLCID = 0, ;
DefTop = , ;
DefWidth = , ;
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 = 8, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
HalfHeightCaption = .F., ;
Height = (424), ;
HelpContextID = 0, ;
HScrollSmallChange = 10, ;
Icon = ..\..\, ;
KeyPreview = .F., ;
Left = (2), ;
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 = "F_base1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
RightToLeft = .F., ;
ScaleMode = 3, ;
ScrollBars = 0, ;
ShowInTaskBar = .T., ;
ShowTips = .F., ;
ShowWindow = 0, ;
SizeBox = .F., ;
TabIndex = 1, ;
TabStop = .T., ;
Tag = "", ;
Themes = .T., ;
TitleBar = 1, ;
Top = (4), ;
Visible = .T., ;
VScrollSmallChange = 10, ;
WhatsThisButton = .F., ;
WhatsThisHelp = .F., ;
WhatsThisHelpID = -1, ;
Width = (819), ;
WindowState = 0, ;
WindowType = 0, ;
ZoomBox = .F., ;
Command2.Name = "Command2", ;
Command2.RightToLeft = .F., ;
Edit1.Name = "Edit1", ;
Edit1.RightToLeft = .F., ;
Label1.Name = "Label1", ;
Label1.RightToLeft = .F., ;
Label2.Name = "Label2", ;
Label2.RightToLeft = .F., ;
Label3.Name = "Label3", ;
Label3.RightToLeft = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="form" />
ADD OBJECT 'F_base1.Cl_grid1' AS cl_grid WITH ;
AllowAddNew = .F., ;
AllowAutoColumnFit = 0, ;
AllowCellSelection = .T., ;
AllowHeaderSizing = .T., ;
AllowRowSizing = .T., ;
Anchor = 0, ;
BackColor = 255,255,255, ;
ChildOrder = "", ;
ColumnCount = 5, ;
Comment = "", ;
DeleteMark = .T., ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FontBold = .F., ;
FontCharSet = 0, ;
FontCondense = .F., ;
FontExtend = .F., ;
FontItalic = .F., ;
FontName = "Arial", ;
FontOutline = .F., ;
FontShadow = .F., ;
FontSize = 8, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
GridLineColor = 0,0,0, ;
GridLines = 3, ;
GridLineWidth = 1, ;
HeaderHeight = 17, ;
Height = 160, ;
HelpContextID = 0, ;
Highlight = .T., ;
HighlightBackColor = 51,153,255, ;
HighlightForeColor = 255,255,255, ;
HighlightRow = .T., ;
HighlightRowLineWidth = 1, ;
HighlightStyle = 0, ;
Left = 308, ;
LinkMaster = "", ;
LockColumns = 0, ;
LockColumnsLeft = 0, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_grid1", ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Optimize = .F., ;
Panel = 1, ;
PanelLink = .T., ;
Partition = 0, ;
ReadOnly = .F., ;
RecordMark = .T., ;
RecordSource = "encuestas", ;
RecordSourceType = 1, ;
RelationalExpr = "", ;
RightToLeft = .F., ;
RowHeight = 17, ;
ScrollBars = 3, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
SplitBar = .T., ;
StatusBarText = "", ;
TabStop = .T., ;
Tag = "", ;
Themes = .T., ;
ToolTipText = "", ;
Top = 32, ;
Value = 0, ;
View = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 228, ;
Column1.BackColor = 255,255,255, ;
Column1.ControlSource = "", ;
Column1.Enabled = .T., ;
Column1.FontBold = .F., ;
Column1.FontCharSet = 0, ;
Column1.FontCondense = .F., ;
Column1.FontExtend = .F., ;
Column1.FontItalic = .F., ;
Column1.FontName = "Arial", ;
Column1.FontOutline = .F., ;
Column1.FontShadow = .F., ;
Column1.FontSize = 8, ;
Column1.FontStrikethru = .F., ;
Column1.FontUnderline = .F., ;
Column1.ForeColor = 0,0,0, ;
Column1.Header1.FontBold = .F., ;
Column1.Header1.FontCharSet = 0, ;
Column1.Header1.FontCondense = .F., ;
Column1.Header1.FontExtend = .F., ;
Column1.Header1.FontItalic = .F., ;
Column1.Header1.FontName = "Arial", ;
Column1.Header1.FontOutline = .F., ;
Column1.Header1.FontShadow = .F., ;
Column1.Header1.FontSize = 8, ;
Column1.Header1.FontStrikethru = .F., ;
Column1.Header1.FontUnderline = .F., ;
Column1.Header1.Name = "Header1", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .F., ;
Column1.Text1.BackColor = 255,255,255, ;
Column1.Text1.Enabled = .T., ;
Column1.Text1.FontBold = .F., ;
Column1.Text1.FontCharSet = 0, ;
Column1.Text1.FontCondense = .F., ;
Column1.Text1.FontExtend = .F., ;
Column1.Text1.FontItalic = .F., ;
Column1.Text1.FontName = "Arial", ;
Column1.Text1.FontOutline = .F., ;
Column1.Text1.FontShadow = .F., ;
Column1.Text1.FontSize = 8, ;
Column1.Text1.FontStrikethru = .F., ;
Column1.Text1.FontUnderline = .F., ;
Column1.Text1.ForeColor = 0,0,0, ;
Column1.Text1.Name = "Text1", ;
Column1.Text1.ReadOnly = .F., ;
Column1.Text1.Visible = .T., ;
Column1.Visible = .T., ;
Column2.BackColor = 255,255,255, ;
Column2.ControlSource = "", ;
Column2.Enabled = .T., ;
Column2.FontBold = .F., ;
Column2.FontCharSet = 0, ;
Column2.FontCondense = .F., ;
Column2.FontExtend = .F., ;
Column2.FontItalic = .F., ;
Column2.FontName = "Arial", ;
Column2.FontOutline = .F., ;
Column2.FontShadow = .F., ;
Column2.FontSize = 8, ;
Column2.FontStrikethru = .F., ;
Column2.FontUnderline = .F., ;
Column2.ForeColor = 0,0,0, ;
Column2.Header1.FontBold = .F., ;
Column2.Header1.FontCharSet = 0, ;
Column2.Header1.FontCondense = .F., ;
Column2.Header1.FontExtend = .F., ;
Column2.Header1.FontItalic = .F., ;
Column2.Header1.FontName = "Arial", ;
Column2.Header1.FontOutline = .F., ;
Column2.Header1.FontShadow = .F., ;
Column2.Header1.FontSize = 8, ;
Column2.Header1.FontStrikethru = .F., ;
Column2.Header1.FontUnderline = .F., ;
Column2.Header1.Name = "Header1", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .F., ;
Column2.Text1.BackColor = 255,255,255, ;
Column2.Text1.Enabled = .T., ;
Column2.Text1.FontBold = .F., ;
Column2.Text1.FontCharSet = 0, ;
Column2.Text1.FontCondense = .F., ;
Column2.Text1.FontExtend = .F., ;
Column2.Text1.FontItalic = .F., ;
Column2.Text1.FontName = "Arial", ;
Column2.Text1.FontOutline = .F., ;
Column2.Text1.FontShadow = .F., ;
Column2.Text1.FontSize = 8, ;
Column2.Text1.FontStrikethru = .F., ;
Column2.Text1.FontUnderline = .F., ;
Column2.Text1.ForeColor = 0,0,0, ;
Column2.Text1.Name = "Text1", ;
Column2.Text1.ReadOnly = .F., ;
Column2.Text1.Visible = .T., ;
Column2.Visible = .T., ;
Column3.BackColor = 255,255,255, ;
Column3.ControlSource = "", ;
Column3.Enabled = .T., ;
Column3.FontBold = .F., ;
Column3.FontCharSet = 0, ;
Column3.FontCondense = .F., ;
Column3.FontExtend = .F., ;
Column3.FontItalic = .F., ;
Column3.FontName = "Arial", ;
Column3.FontOutline = .F., ;
Column3.FontShadow = .F., ;
Column3.FontSize = 8, ;
Column3.FontStrikethru = .F., ;
Column3.FontUnderline = .F., ;
Column3.ForeColor = 0,0,0, ;
Column3.Header1.FontBold = .F., ;
Column3.Header1.FontCharSet = 0, ;
Column3.Header1.FontCondense = .F., ;
Column3.Header1.FontExtend = .F., ;
Column3.Header1.FontItalic = .F., ;
Column3.Header1.FontName = "Arial", ;
Column3.Header1.FontOutline = .F., ;
Column3.Header1.FontShadow = .F., ;
Column3.Header1.FontSize = 8, ;
Column3.Header1.FontStrikethru = .F., ;
Column3.Header1.FontUnderline = .F., ;
Column3.Header1.Name = "Header1", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .F., ;
Column3.Text1.BackColor = 255,255,255, ;
Column3.Text1.Enabled = .T., ;
Column3.Text1.FontBold = .F., ;
Column3.Text1.FontCharSet = 0, ;
Column3.Text1.FontCondense = .F., ;
Column3.Text1.FontExtend = .F., ;
Column3.Text1.FontItalic = .F., ;
Column3.Text1.FontName = "Arial", ;
Column3.Text1.FontOutline = .F., ;
Column3.Text1.FontShadow = .F., ;
Column3.Text1.FontSize = 8, ;
Column3.Text1.FontStrikethru = .F., ;
Column3.Text1.FontUnderline = .F., ;
Column3.Text1.ForeColor = 0,0,0, ;
Column3.Text1.Name = "Text1", ;
Column3.Text1.ReadOnly = .F., ;
Column3.Text1.Visible = .T., ;
Column3.Visible = .T., ;
Column4.BackColor = 255,255,255, ;
Column4.ControlSource = "", ;
Column4.Enabled = .T., ;
Column4.FontBold = .F., ;
Column4.FontCharSet = 0, ;
Column4.FontCondense = .F., ;
Column4.FontExtend = .F., ;
Column4.FontItalic = .F., ;
Column4.FontName = "Arial", ;
Column4.FontOutline = .F., ;
Column4.FontShadow = .F., ;
Column4.FontSize = 8, ;
Column4.FontStrikethru = .F., ;
Column4.FontUnderline = .F., ;
Column4.ForeColor = 0,0,0, ;
Column4.Header1.FontBold = .F., ;
Column4.Header1.FontCharSet = 0, ;
Column4.Header1.FontCondense = .F., ;
Column4.Header1.FontExtend = .F., ;
Column4.Header1.FontItalic = .F., ;
Column4.Header1.FontName = "Arial", ;
Column4.Header1.FontOutline = .F., ;
Column4.Header1.FontShadow = .F., ;
Column4.Header1.FontSize = 8, ;
Column4.Header1.FontStrikethru = .F., ;
Column4.Header1.FontUnderline = .F., ;
Column4.Header1.Name = "Header1", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .F., ;
Column4.Text1.BackColor = 255,255,255, ;
Column4.Text1.Enabled = .T., ;
Column4.Text1.FontBold = .F., ;
Column4.Text1.FontCharSet = 0, ;
Column4.Text1.FontCondense = .F., ;
Column4.Text1.FontExtend = .F., ;
Column4.Text1.FontItalic = .F., ;
Column4.Text1.FontName = "Arial", ;
Column4.Text1.FontOutline = .F., ;
Column4.Text1.FontShadow = .F., ;
Column4.Text1.FontSize = 8, ;
Column4.Text1.FontStrikethru = .F., ;
Column4.Text1.FontUnderline = .F., ;
Column4.Text1.ForeColor = 0,0,0, ;
Column4.Text1.Name = "Text1", ;
Column4.Text1.ReadOnly = .F., ;
Column4.Text1.Visible = .T., ;
Column4.Visible = .T., ;
Column5.BackColor = 255,255,255, ;
Column5.ControlSource = "", ;
Column5.Enabled = .T., ;
Column5.FontBold = .F., ;
Column5.FontCharSet = 0, ;
Column5.FontCondense = .F., ;
Column5.FontExtend = .F., ;
Column5.FontItalic = .F., ;
Column5.FontName = "Arial", ;
Column5.FontOutline = .F., ;
Column5.FontShadow = .F., ;
Column5.FontSize = 8, ;
Column5.FontStrikethru = .F., ;
Column5.FontUnderline = .F., ;
Column5.ForeColor = 0,0,0, ;
Column5.Header1.FontBold = .F., ;
Column5.Header1.FontCharSet = 0, ;
Column5.Header1.FontCondense = .F., ;
Column5.Header1.FontExtend = .F., ;
Column5.Header1.FontItalic = .F., ;
Column5.Header1.FontName = "Arial", ;
Column5.Header1.FontOutline = .F., ;
Column5.Header1.FontShadow = .F., ;
Column5.Header1.FontSize = 8, ;
Column5.Header1.FontStrikethru = .F., ;
Column5.Header1.FontUnderline = .F., ;
Column5.Header1.Name = "Header1", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .F., ;
Column5.Text1.BackColor = 255,255,255, ;
Column5.Text1.Enabled = .T., ;
Column5.Text1.FontBold = .F., ;
Column5.Text1.FontCharSet = 0, ;
Column5.Text1.FontCondense = .F., ;
Column5.Text1.FontExtend = .F., ;
Column5.Text1.FontItalic = .F., ;
Column5.Text1.FontName = "Arial", ;
Column5.Text1.FontOutline = .F., ;
Column5.Text1.FontShadow = .F., ;
Column5.Text1.FontSize = 8, ;
Column5.Text1.FontStrikethru = .F., ;
Column5.Text1.FontUnderline = .F., ;
Column5.Text1.ForeColor = 0,0,0, ;
Column5.Text1.Name = "Text1", ;
Column5.Text1.ReadOnly = .F., ;
Column5.Text1.Visible = .T., ;
Column5.Visible = .T.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
ADD OBJECT 'F_base1.grdEncuestas' AS grid WITH ;
AllowAddNew = .F., ;
AllowAutoColumnFit = 0, ;
AllowCellSelection = .T., ;
AllowHeaderSizing = .T., ;
AllowRowSizing = .T., ;
Anchor = 0, ;
BackColor = 255,255,255, ;
ChildOrder = "", ;
ColumnCount = 5, ;
Comment = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DeleteMark = .T., ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FontBold = .F., ;
FontCharSet = 0, ;
FontCondense = .F., ;
FontExtend = .F., ;
FontItalic = .F., ;
FontName = "Arial", ;
FontOutline = .F., ;
FontShadow = .F., ;
FontSize = 8, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
GridLineColor = 0,0,0, ;
GridLines = 3, ;
GridLineWidth = 1, ;
HeaderHeight = 17, ;
Height = (160), ;
HelpContextID = 0, ;
Highlight = .T., ;
HighlightBackColor = 51,153,255, ;
HighlightForeColor = 255,255,255, ;
HighlightRow = .T., ;
HighlightRowLineWidth = 1, ;
HighlightStyle = 0, ;
Left = (40), ;
LinkMaster = "", ;
LockColumns = 0, ;
LockColumnsLeft = 0, ;
MemberClass = "cl_Column", ;
MemberClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "grdEncuestas", ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Optimize = .F., ;
Panel = 1, ;
PanelLink = .T., ;
Partition = 0, ;
ReadOnly = .F., ;
RecordMark = .T., ;
RecordSource = "encuestas", ;
RecordSourceType = 1, ;
RelationalExpr = "", ;
RightToLeft = .F., ;
RowHeight = 17, ;
ScrollBars = 3, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
SplitBar = .T., ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
Themes = .T., ;
ToolTipText = "", ;
Top = (32), ;
Value = 0, ;
View = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (228), ;
Cl_column1.Alignment = 3, ;
Cl_column1.BackColor = 255,255,255, ;
Cl_column1.Bound = .T., ;
Cl_column1.ColumnOrder = 1, ;
Cl_column1.Comment = "Ver este Column", ;
Cl_column1.ControlSource = "promotor", ;
Cl_column1.CurrentControl = "Text1", ;
Cl_column1.DynamicAlignment = "", ;
Cl_column1.DynamicBackColor = "", ;
Cl_column1.DynamicCurrentControl = "", ;
Cl_column1.DynamicFontBold = "", ;
Cl_column1.DynamicFontItalic = "", ;
Cl_column1.DynamicFontName = "", ;
Cl_column1.DynamicFontOutline = "", ;
Cl_column1.DynamicFontShadow = "", ;
Cl_column1.DynamicFontSize = "", ;
Cl_column1.DynamicFontStrikethru = "", ;
Cl_column1.DynamicFontUnderline = "", ;
Cl_column1.DynamicForeColor = "", ;
Cl_column1.DynamicInputMask = "", ;
Cl_column1.Enabled = .T., ;
Cl_column1.FontBold = .F., ;
Cl_column1.FontCharSet = 0, ;
Cl_column1.FontCondense = .F., ;
Cl_column1.FontExtend = .F., ;
Cl_column1.FontItalic = .F., ;
Cl_column1.FontName = "Arial", ;
Cl_column1.FontOutline = .F., ;
Cl_column1.FontShadow = .F., ;
Cl_column1.FontSize = 8, ;
Cl_column1.FontStrikethru = .F., ;
Cl_column1.FontUnderline = .F., ;
Cl_column1.ForeColor = 0,0,0, ;
Cl_column1.Format = "", ;
Cl_column1.HeaderClass = "cl_Header", ;
Cl_column1.HeaderClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ;
Cl_column1.InputMask = "", ;
Cl_column1.MouseIcon = ..\..\, ;
Cl_column1.MousePointer = 0, ;
Cl_column1.Movable = .T., ;
Cl_column1.Name = "Cl_column1", ;
Cl_column1.ReadOnly = .F., ;
Cl_column1.Resizable = .T., ;
Cl_column1.SelectOnEntry = .T., ;
Cl_column1.Sparse = .T., ;
Cl_column1.StatusBarText = "", ;
Cl_column1.Tag = "", ;
Cl_column1.ToolTipText = "", ;
Cl_column1.Visible = .T., ;
Cl_column1.Width = 75, ;
Cl_column2.BackColor = 255,255,255, ;
Cl_column2.Enabled = .T., ;
Cl_column2.FontBold = .F., ;
Cl_column2.FontCharSet = 0, ;
Cl_column2.FontCondense = .F., ;
Cl_column2.FontExtend = .F., ;
Cl_column2.FontItalic = .F., ;
Cl_column2.FontName = "Arial", ;
Cl_column2.FontOutline = .F., ;
Cl_column2.FontShadow = .F., ;
Cl_column2.FontSize = 8, ;
Cl_column2.FontStrikethru = .F., ;
Cl_column2.FontUnderline = .F., ;
Cl_column2.ForeColor = 0,0,0, ;
Cl_column2.Name = "Cl_column2", ;
Cl_column2.ReadOnly = .F., ;
Cl_column2.Visible = .T., ;
Cl_column3.BackColor = 255,255,255, ;
Cl_column3.Enabled = .T., ;
Cl_column3.FontBold = .F., ;
Cl_column3.FontCharSet = 0, ;
Cl_column3.FontCondense = .F., ;
Cl_column3.FontExtend = .F., ;
Cl_column3.FontItalic = .F., ;
Cl_column3.FontName = "Arial", ;
Cl_column3.FontOutline = .F., ;
Cl_column3.FontShadow = .F., ;
Cl_column3.FontSize = 8, ;
Cl_column3.FontStrikethru = .F., ;
Cl_column3.FontUnderline = .F., ;
Cl_column3.ForeColor = 0,0,0, ;
Cl_column3.Name = "Cl_column3", ;
Cl_column3.ReadOnly = .F., ;
Cl_column3.Visible = .T., ;
Cl_column4.BackColor = 255,255,255, ;
Cl_column4.Enabled = .T., ;
Cl_column4.FontBold = .F., ;
Cl_column4.FontCharSet = 0, ;
Cl_column4.FontCondense = .F., ;
Cl_column4.FontExtend = .F., ;
Cl_column4.FontItalic = .F., ;
Cl_column4.FontName = "Arial", ;
Cl_column4.FontOutline = .F., ;
Cl_column4.FontShadow = .F., ;
Cl_column4.FontSize = 8, ;
Cl_column4.FontStrikethru = .F., ;
Cl_column4.FontUnderline = .F., ;
Cl_column4.ForeColor = 0,0,0, ;
Cl_column4.Name = "Cl_column4", ;
Cl_column4.ReadOnly = .F., ;
Cl_column4.Visible = .T., ;
Cl_column5.BackColor = 255,255,255, ;
Cl_column5.Enabled = .T., ;
Cl_column5.FontBold = .F., ;
Cl_column5.FontCharSet = 0, ;
Cl_column5.FontCondense = .F., ;
Cl_column5.FontExtend = .F., ;
Cl_column5.FontItalic = .F., ;
Cl_column5.FontName = "Arial", ;
Cl_column5.FontOutline = .F., ;
Cl_column5.FontShadow = .F., ;
Cl_column5.FontSize = 8, ;
Cl_column5.FontStrikethru = .F., ;
Cl_column5.FontUnderline = .F., ;
Cl_column5.ForeColor = 0,0,0, ;
Cl_column5.Name = "Cl_column5", ;
Cl_column5.ReadOnly = .F., ;
Cl_column5.Visible = .T.
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Cl_header1' AS cl_header WITH ;
Alignment = 0, ;
BackColor = 240,240,240, ;
Caption = "promotor", ;
Comment = "", ;
FontBold = .F., ;
FontCharSet = 0, ;
FontCondense = .F., ;
FontExtend = .F., ;
FontItalic = .F., ;
FontName = "Arial", ;
FontOutline = .F., ;
FontShadow = .F., ;
FontSize = 8, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_header1", ;
Picture = ..\..\, ;
StatusBarText = "", ;
Tag = "", ;
ToolTipText = "", ;
WordWrap = .F.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Text1' AS textbox WITH ;
Alignment = 3, ;
Anchor = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 8, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 51,153,255, ;
SelectedForeColor = 255,255,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Header1' AS header WITH ;
Caption = "idenc", ;
FontName = "Arial", ;
FontSize = 8, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 8, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 51,153,255, ;
SelectedForeColor = 255,255,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Header1' AS header WITH ;
Caption = "calific", ;
FontName = "Arial", ;
FontSize = 8, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 8, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 51,153,255, ;
SelectedForeColor = 255,255,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Header1' AS header WITH ;
Caption = "fecha", ;
FontName = "Arial", ;
FontSize = 8, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 8, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 51,153,255, ;
SelectedForeColor = 255,255,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Header1' AS header WITH ;
Caption = "resultado", ;
FontName = "Arial", ;
FontSize = 8, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 8, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 51,153,255, ;
SelectedForeColor = 255,255,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.Pageframe1' AS pageframe WITH ;
ErasePage = .T., ;
Height = 213, ;
Left = 28, ;
Name = "Pageframe1", ;
PageCount = 2, ;
Top = 200, ;
Width = 517, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'F_base1.Pageframe1.Page1.Cl_grid1' AS cl_grid WITH ;
Left = 279, ;
Name = "Cl_grid1", ;
Top = 8, ;
Column1.Header1.Name = "Header1", ;
Column1.Name = "Column1", ;
Column1.Text1.Name = "Text1", ;
Column2.Header1.Name = "Header1", ;
Column2.Name = "Column2", ;
Column2.Text1.Name = "Text1", ;
Column3.Header1.Name = "Header1", ;
Column3.Name = "Column3", ;
Column3.Text1.Name = "Text1", ;
Column4.Header1.Name = "Header1", ;
Column4.Name = "Column4", ;
Column4.Text1.Name = "Text1", ;
Column5.Header1.Name = "Header1", ;
Column5.Name = "Column5", ;
Column5.Text1.Name = "Text1"
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas' AS grid WITH ;
ColumnCount = 5, ;
Height = 160, ;
Left = 11, ;
Name = "grdEncuestas", ;
RecordSource = "encuestas", ;
RecordSourceType = 1, ;
Top = 8, ;
Width = 228, ;
Column1.ControlSource = "encuestas.promotor", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "encuestas.idenc", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "encuestas.calific", ;
Column3.Name = "Column3", ;
Column4.ControlSource = "encuestas.fecha", ;
Column4.Name = "Column4", ;
Column5.ControlSource = "encuestas.resultado", ;
Column5.Name = "Column5"
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1' AS header WITH ;
Caption = "promotor", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1' AS header WITH ;
Caption = "idenc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1' AS header WITH ;
Caption = "calific", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1' AS header WITH ;
Caption = "fecha", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1' AS header WITH ;
Caption = "resultado", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Refresh
DOEVENTS FORCE
THISFORMSET.Forms(1).c_testname = THISFORMSET.c_testname
THISFORMSET.Forms(1).REFRESH()
ENDPROC
PROCEDURE F_base1.Cl_grid1.Init
this.AutoFit()
ENDPROC
PROCEDURE F_base1.grdEncuestas.Init
this.AutoFit()
ENDPROC
ENDDEFINE