*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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="" /> * *p: c_testname * 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 = .T., ; 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., ; cmdCapturar.Name = "cmdCapturar", ; cmdCapturar.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