*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_form_aa.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />

	DataSource = .NULL.
	Name = "Dataenvironment"
	TabStop = .F.
	Visible = .F.

ENDDEFINE

DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cl_grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cl_grid1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cl_grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.checkbox" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.collection" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.combobox" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.commandgroup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.commandbutton" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.container" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.control" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.editbox" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.hyperlink" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.image" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.label" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.line" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.listbox" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.optiongroup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.option" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.spinner" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.textbox" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: add_control
		*m: run_tests
		*p: l_activated
		*p: n_controles_count
		*p: valor
		*a: a_controles[1,0]
	*</DefinedPropArrayMethod>

	AllowOutput = .T.
	AlwaysOnBottom = .F.
	AlwaysOnTop = .T.
	AutoCenter = .F.
	BackColor = 192,192,192
	BindControls = .T.
	BorderStyle = 3
	BufferMode = 0
	Caption = "AllControls_Test"
	ClipControls = .T.
	Closable = .T.
	ColorSource = 4
	Comment = ""
	ContinuousScroll = .T.
	ControlBox = .T.
	c_testname = AllControls_Test
	DataSession = 2
	DEClass = "cl_dataenvironment"
	DEClassLibrary = lib_controles.vcx
	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 = 9
	FontStrikethru = .F.
	FontUnderline = .F.
	ForeColor = 0,0,0
	HalfHeightCaption = .F.
	Height = (460)
	HelpContextID = 0
	HScrollSmallChange = 10
	Icon = bmps\container.ico
	KeyPreview = .F.
	Left = (2)
	LockScreen = .F.
	l_activated = .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_form_aa"
	n_controles_count = 0
	OLEDragMode = 0
	OLEDragPicture = ..\..\
	OLEDropEffects = 3
	OLEDropMode = 0
	Picture = bmps\fondogris.bmp
	RightToLeft = .F.
	ScaleMode = 3
	ScrollBars = 3
	ShowInTaskBar = .T.
	ShowTips = .F.
	ShowWindow = 0
	SizeBox = .F.
	TabIndex = 1
	TabStop = .T.
	Tag = ""
	Themes = .T.
	TitleBar = 1
	Top = (4)
	valor = .F.
	Visible = .T.
	VScrollSmallChange = 10
	WhatsThisButton = .F.
	WhatsThisHelp = .F.
	WhatsThisHelpID = -1
	Width = (998)
	WindowState = 0
	WindowType = 0
	ZoomBox = .F.
	cmdCapturar.Height = 27
	cmdCapturar.Left = 764
	cmdCapturar.Name = "cmdCapturar"
	cmdCapturar.RightToLeft = .F.
	cmdCapturar.Top = 392
	cmdCapturar.Width = 212
	Edit1.Height = 144
	Edit1.Left = 764
	Edit1.Name = "Edit1"
	Edit1.RightToLeft = .F.
	Edit1.Top = 32
	Edit1.Width = 212
	Label1.BackColor = 128,255,128
	Label1.Caption = "CONTROLES"
	Label1.Height = 17
	Label1.Left = 12
	Label1.Name = "Label1"
	Label1.RightToLeft = .F.
	Label1.Top = 8
	Label1.Width = 268
	Label2.BackColor = 128,255,128
	Label2.Caption = "TESTS"
	Label2.Height = 17
	Label2.Left = 296
	Label2.Name = "Label2"
	Label2.RightToLeft = .F.
	Label2.Top = 8
	Label2.Width = 460
	Label3.BackColor = 128,255,128
	Label3.Height = 17
	Label3.Left = 764
	Label3.Name = "Label3"
	Label3.RightToLeft = .F.
	Label3.Top = 8
	Label3.Width = 212

	ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
		AllowAddNew = .F., ;
		AllowAutoColumnFit = 0, ;
		AllowCellSelection = .T., ;
		AllowHeaderSizing = .F., ;
		AllowRowSizing = .F., ;
		Anchor = 0, ;
		BackColor = 255,255,217, ;
		ChildOrder = "", ;
		ColumnCount = 6, ;
		Comment = "", ;
		DeleteMark = .F., ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		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, ;
		GridLineColor = 0,0,0, ;
		GridLines = 3, ;
		GridLineWidth = 1, ;
		HeaderHeight = 18, ;
		Height = 424, ;
		HelpContextID = 0, ;
		Highlight = .T., ;
		HighlightBackColor = 51,153,255, ;
		HighlightForeColor = 255,255,255, ;
		HighlightRow = .T., ;
		HighlightRowLineWidth = 1, ;
		HighlightStyle = 0, ;
		Left = 296, ;
		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 = "C_TESTS", ;
		RecordSourceType = 1, ;
		RelationalExpr = "", ;
		RightToLeft = .F., ;
		RowHeight = 18, ;
		ScrollBars = 2, ;
		SelectedItemBackColor = 51,153,255, ;
		SelectedItemForeColor = 255,255,255, ;
		SplitBar = .F., ;
		StatusBarText = "", ;
		TabIndex = 6, ;
		TabStop = .T., ;
		Tag = "", ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 32, ;
		Value = 0, ;
		View = 0, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = 460, ;
		COLUMN1.Alignment = 3, ;
		COLUMN1.BackColor = 255,255,217, ;
		COLUMN1.Bound = .T., ;
		COLUMN1.ColumnOrder = 1, ;
		COLUMN1.Comment = "", ;
		COLUMN1.ControlSource = "c_ctlname", ;
		COLUMN1.CurrentControl = "Text1", ;
		COLUMN1.DynamicAlignment = "", ;
		COLUMN1.DynamicBackColor = "", ;
		COLUMN1.DynamicCurrentControl = "", ;
		COLUMN1.DynamicFontBold = "", ;
		COLUMN1.DynamicFontItalic = "", ;
		COLUMN1.DynamicFontName = "", ;
		COLUMN1.DynamicFontOutline = "", ;
		COLUMN1.DynamicFontShadow = "", ;
		COLUMN1.DynamicFontSize = "", ;
		COLUMN1.DynamicFontStrikethru = "", ;
		COLUMN1.DynamicFontUnderline = "", ;
		COLUMN1.DynamicForeColor = "", ;
		COLUMN1.DynamicInputMask = "", ;
		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 = 9, ;
		COLUMN1.FontStrikethru = .F., ;
		COLUMN1.FontUnderline = .F., ;
		COLUMN1.ForeColor = 0,0,0, ;
		COLUMN1.Format = "", ;
		COLUMN1.Header1.Alignment = 0, ;
		COLUMN1.Header1.BackColor = 240,240,240, ;
		COLUMN1.Header1.Caption = "Control", ;
		COLUMN1.Header1.Comment = "", ;
		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 = 9, ;
		COLUMN1.Header1.FontStrikethru = .F., ;
		COLUMN1.Header1.FontUnderline = .F., ;
		COLUMN1.Header1.ForeColor = 0,0,0, ;
		COLUMN1.Header1.MouseIcon = ..\..\, ;
		COLUMN1.Header1.MousePointer = 0, ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Header1.Picture = ..\..\, ;
		COLUMN1.Header1.StatusBarText = "", ;
		COLUMN1.Header1.Tag = "", ;
		COLUMN1.Header1.ToolTipText = "", ;
		COLUMN1.Header1.WordWrap = .F., ;
		COLUMN1.InputMask = "", ;
		COLUMN1.MouseIcon = ..\..\, ;
		COLUMN1.MousePointer = 0, ;
		COLUMN1.Movable = .T., ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.ReadOnly = .F., ;
		COLUMN1.Resizable = .T., ;
		COLUMN1.SelectOnEntry = .T., ;
		COLUMN1.Sparse = .T., ;
		COLUMN1.StatusBarText = "", ;
		COLUMN1.Tag = "", ;
		COLUMN1.Text1.Alignment = 3, ;
		COLUMN1.Text1.Anchor = 0, ;
		COLUMN1.Text1.AutoComplete = 0, ;
		COLUMN1.Text1.AutoCompSource = "", ;
		COLUMN1.Text1.AutoCompTable = "", ;
		COLUMN1.Text1.BackColor = 255,255,217, ;
		COLUMN1.Text1.BackStyle = 1, ;
		COLUMN1.Text1.BorderColor = 100,100,100, ;
		COLUMN1.Text1.BorderStyle = 0, ;
		COLUMN1.Text1.Century = 1, ;
		COLUMN1.Text1.ColorScheme = 1, ;
		COLUMN1.Text1.ColorSource = 4, ;
		COLUMN1.Text1.Comment = "", ;
		COLUMN1.Text1.DateFormat = 0, ;
		COLUMN1.Text1.DateMark = "", ;
		COLUMN1.Text1.DisabledBackColor = 255,255,255, ;
		COLUMN1.Text1.DisabledForeColor = 109,109,109, ;
		COLUMN1.Text1.DragIcon = ..\..\, ;
		COLUMN1.Text1.DragMode = 0, ;
		COLUMN1.Text1.Enabled = .T., ;
		COLUMN1.Text1.EnableHyperlinks = .F., ;
		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 = 9, ;
		COLUMN1.Text1.FontStrikethru = .F., ;
		COLUMN1.Text1.FontUnderline = .F., ;
		COLUMN1.Text1.ForeColor = 0,0,0, ;
		COLUMN1.Text1.Format = "", ;
		COLUMN1.Text1.HelpContextID = 0, ;
		COLUMN1.Text1.HideSelection = .T., ;
		COLUMN1.Text1.Hours = 0, ;
		COLUMN1.Text1.IMEMode = 0, ;
		COLUMN1.Text1.InputMask = "", ;
		COLUMN1.Text1.IntegralHeight = .F., ;
		COLUMN1.Text1.MemoWindow = "", ;
		COLUMN1.Text1.MouseIcon = ..\..\, ;
		COLUMN1.Text1.MousePointer = 0, ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.NullDisplay = "", ;
		COLUMN1.Text1.OLEDragMode = 0, ;
		COLUMN1.Text1.OLEDragPicture = ..\..\, ;
		COLUMN1.Text1.OLEDropEffects = 3, ;
		COLUMN1.Text1.OLEDropMode = 0, ;
		COLUMN1.Text1.OLEDropTextInsertion = 0, ;
		COLUMN1.Text1.OpenWindow = .F., ;
		COLUMN1.Text1.PasswordChar = "", ;
		COLUMN1.Text1.ReadOnly = .F., ;
		COLUMN1.Text1.RightToLeft = .F., ;
		COLUMN1.Text1.Seconds = 2, ;
		COLUMN1.Text1.SelectedBackColor = 51,153,255, ;
		COLUMN1.Text1.SelectedForeColor = 255,255,255, ;
		COLUMN1.Text1.SelectOnEntry = .F., ;
		COLUMN1.Text1.SpecialEffect = 0, ;
		COLUMN1.Text1.StatusBarText = "", ;
		COLUMN1.Text1.StrictDateEntry = 1, ;
		COLUMN1.Text1.Style = 0, ;
		COLUMN1.Text1.TabIndex = 1, ;
		COLUMN1.Text1.TabStop = .T., ;
		COLUMN1.Text1.Tag = "", ;
		COLUMN1.Text1.TerminateRead = .F., ;
		COLUMN1.Text1.Themes = .T., ;
		COLUMN1.Text1.ToolTipText = "", ;
		COLUMN1.Text1.Value = , ;
		COLUMN1.Text1.Visible = .T., ;
		COLUMN1.ToolTipText = "", ;
		COLUMN1.Visible = .T., ;
		COLUMN1.Width = 170, ;
		COLUMN2.Alignment = 2, ;
		COLUMN2.BackColor = 255,255,217, ;
		COLUMN2.ControlSource = "c_Access", ;
		COLUMN2.DynamicBackColor = 'ICASE( c_access="S", RGB(0,255,0), c_access="N", RGB(255,0,0), RGB(255,255,255) )', ;
		COLUMN2.DynamicForeColor = 'ICASE( c_access="N", RGB(255,255,255), RGB(0,0,0) )', ;
		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 = 9, ;
		COLUMN2.FontStrikethru = .F., ;
		COLUMN2.FontUnderline = .F., ;
		COLUMN2.ForeColor = 0,0,0, ;
		COLUMN2.Header1.Alignment = 2, ;
		COLUMN2.Header1.BackColor = 240,240,240, ;
		COLUMN2.Header1.Caption = "Access", ;
		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 = 9, ;
		COLUMN2.Header1.FontStrikethru = .F., ;
		COLUMN2.Header1.FontUnderline = .F., ;
		COLUMN2.Header1.Name = "Header1", ;
		COLUMN2.Name = "COLUMN2", ;
		COLUMN2.ReadOnly = .F., ;
		COLUMN2.Text1.Alignment = 2, ;
		COLUMN2.Text1.BackColor = 255,255,217, ;
		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 = 9, ;
		COLUMN2.Text1.FontStrikethru = .F., ;
		COLUMN2.Text1.FontUnderline = .F., ;
		COLUMN2.Text1.ForeColor = 0,0,0, ;
		COLUMN2.Text1.Name = "Text1", ;
		COLUMN2.Text1.ReadOnly = .F., ;
		COLUMN2.Text1.RightToLeft = .F., ;
		COLUMN2.Text1.Visible = .T., ;
		COLUMN2.Visible = .T., ;
		COLUMN2.Width = 50, ;
		COLUMN3.Alignment = 2, ;
		COLUMN3.BackColor = 255,255,217, ;
		COLUMN3.ControlSource = "c_Assign", ;
		COLUMN3.DynamicBackColor = 'ICASE( c_assign="S", RGB(0,255,0), c_assign="N", RGB(255,0,0), RGB(255,255,255) )', ;
		COLUMN3.DynamicForeColor = 'ICASE( c_assign="N", RGB(255,255,255), RGB(0,0,0) )', ;
		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 = 9, ;
		COLUMN3.FontStrikethru = .F., ;
		COLUMN3.FontUnderline = .F., ;
		COLUMN3.ForeColor = 0,0,0, ;
		COLUMN3.Header1.Alignment = 2, ;
		COLUMN3.Header1.Caption = "Assign", ;
		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 = 9, ;
		COLUMN3.Header1.FontStrikethru = .F., ;
		COLUMN3.Header1.FontUnderline = .F., ;
		COLUMN3.Header1.Name = "Header1", ;
		COLUMN3.Name = "COLUMN3", ;
		COLUMN3.ReadOnly = .F., ;
		COLUMN3.Text1.Alignment = 2, ;
		COLUMN3.Text1.BackColor = 255,255,217, ;
		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 = 9, ;
		COLUMN3.Text1.FontStrikethru = .F., ;
		COLUMN3.Text1.FontUnderline = .F., ;
		COLUMN3.Text1.ForeColor = 0,0,0, ;
		COLUMN3.Text1.Name = "Text1", ;
		COLUMN3.Text1.ReadOnly = .F., ;
		COLUMN3.Text1.RightToLeft = .F., ;
		COLUMN3.Text1.Visible = .T., ;
		COLUMN3.Visible = .T., ;
		COLUMN3.Width = 50, ;
		COLUMN4.Alignment = 2, ;
		COLUMN4.BackColor = 255,255,217, ;
		COLUMN4.ControlSource = "c_Value", ;
		COLUMN4.DynamicBackColor = 'ICASE( c_value="S", RGB(0,255,0), c_value="N", RGB(255,0,0), RGB(255,255,255) )', ;
		COLUMN4.DynamicForeColor = 'ICASE( c_value="N", RGB(255,255,255), RGB(0,0,0) )', ;
		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 = 9, ;
		COLUMN4.FontStrikethru = .F., ;
		COLUMN4.FontUnderline = .F., ;
		COLUMN4.ForeColor = 0,0,0, ;
		COLUMN4.Header1.Alignment = 2, ;
		COLUMN4.Header1.Caption = "Value/Act", ;
		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 = 9, ;
		COLUMN4.Header1.FontStrikethru = .F., ;
		COLUMN4.Header1.FontUnderline = .F., ;
		COLUMN4.Header1.Name = "Header1", ;
		COLUMN4.Name = "COLUMN4", ;
		COLUMN4.ReadOnly = .F., ;
		COLUMN4.Text1.Alignment = 2, ;
		COLUMN4.Text1.BackColor = 255,255,217, ;
		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 = 9, ;
		COLUMN4.Text1.FontStrikethru = .F., ;
		COLUMN4.Text1.FontUnderline = .F., ;
		COLUMN4.Text1.ForeColor = 0,0,0, ;
		COLUMN4.Text1.Name = "Text1", ;
		COLUMN4.Text1.ReadOnly = .F., ;
		COLUMN4.Text1.RightToLeft = .F., ;
		COLUMN4.Text1.Visible = .T., ;
		COLUMN4.Visible = .T., ;
		COLUMN4.Width = 50, ;
		COLUMN5.Alignment = 2, ;
		COLUMN5.BackColor = 255,255,217, ;
		COLUMN5.ControlSource = "c_ProgrChg", ;
		COLUMN5.DynamicBackColor = 'ICASE( c_ProgrChg="S", RGB(0,255,0), c_ProgrChg="N", RGB(255,0,0), RGB(255,255,255) )', ;
		COLUMN5.DynamicForeColor = 'ICASE( c_ProgrChg="N", RGB(255,255,255), RGB(0,0,0) )', ;
		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 = 9, ;
		COLUMN5.FontStrikethru = .F., ;
		COLUMN5.FontUnderline = .F., ;
		COLUMN5.ForeColor = 0,0,0, ;
		COLUMN5.Header1.Alignment = 2, ;
		COLUMN5.Header1.Caption = "Prg.Chg", ;
		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 = 9, ;
		COLUMN5.Header1.FontStrikethru = .F., ;
		COLUMN5.Header1.FontUnderline = .F., ;
		COLUMN5.Header1.Name = "Header1", ;
		COLUMN5.Name = "COLUMN5", ;
		COLUMN5.ReadOnly = .F., ;
		COLUMN5.Text1.Alignment = 2, ;
		COLUMN5.Text1.BackColor = 255,255,217, ;
		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 = 9, ;
		COLUMN5.Text1.FontStrikethru = .F., ;
		COLUMN5.Text1.FontUnderline = .F., ;
		COLUMN5.Text1.ForeColor = 0,0,0, ;
		COLUMN5.Text1.Name = "Text1", ;
		COLUMN5.Text1.ReadOnly = .F., ;
		COLUMN5.Text1.RightToLeft = .F., ;
		COLUMN5.Text1.Visible = .T., ;
		COLUMN5.Visible = .T., ;
		COLUMN5.Width = 50, ;
		Column6.Alignment = 2, ;
		Column6.BackColor = 255,255,217, ;
		Column6.ControlSource = "c_UI", ;
		Column6.DynamicBackColor = 'ICASE( c_UI="S", RGB(0,255,0), c_UI="N", RGB(255,0,0), RGB(255,255,255) )', ;
		Column6.DynamicForeColor = 'ICASE( c_UI="N", RGB(255,255,255), RGB(0,0,0) )', ;
		Column6.Enabled = .T., ;
		Column6.FontBold = .F., ;
		Column6.FontCharSet = 0, ;
		Column6.FontCondense = .F., ;
		Column6.FontExtend = .F., ;
		Column6.FontItalic = .F., ;
		Column6.FontName = "Arial", ;
		Column6.FontOutline = .F., ;
		Column6.FontShadow = .F., ;
		Column6.FontSize = 9, ;
		Column6.FontStrikethru = .F., ;
		Column6.FontUnderline = .F., ;
		Column6.ForeColor = 0,0,0, ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Visible = .T., ;
		Column6.Width = 50
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />

	ADD OBJECT 'Cl_grid1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "UI", ;
		FontBold = .F., ;
		FontCharSet = 0, ;
		FontCondense = .F., ;
		FontExtend = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontOutline = .F., ;
		FontShadow = .F., ;
		FontStrikethru = .F., ;
		FontUnderline = .F., ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Cl_grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,217, ;
		BorderStyle = 0, ;
		Enabled = .T., ;
		FontBold = .F., ;
		FontCharSet = 0, ;
		FontCondense = .F., ;
		FontExtend = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontOutline = .F., ;
		FontShadow = .F., ;
		FontStrikethru = .F., ;
		FontUnderline = .F., ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		RightToLeft = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Cl_image1' AS cl_image WITH ;
		Anchor = 0, ;
		BackStyle = 1, ;
		BorderColor = 255,0,0, ;
		BorderStyle = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		Height = 104, ;
		HelpContextID = 0, ;
		Left = 764, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "Cl_image1", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		Picture = bmps\vfpxlogo.bmp, ;
		RotateFlip = 0, ;
		StatusBarText = "", ;
		Stretch = 0, ;
		Tag = "", ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 284, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = 212, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />

	ADD OBJECT 'Image1' AS image WITH ;
		BorderColor = 255,0,0, ;
		BorderStyle = 1, ;
		Enabled = .T., ;
		Height = 104, ;
		Left = 764, ;
		Name = "Image1", ;
		Picture = bmps\vfpxlogo.bmp, ;
		Top = 180, ;
		Width = 212
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'pgf' AS cl_pageframe WITH ;
		ActivePage = 2, ;
		Anchor = 0, ;
		ColorSource = 4, ;
		Comment = "", ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		ErasePage = .T., ;
		Height = 384, ;
		HelpContextID = 0, ;
		Left = 12, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "pgf", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		PageCount = 2, ;
		RightToLeft = .F., ;
		StatusBarText = "", ;
		TabIndex = 7, ;
		TabOrientation = 1, ;
		Tabs = .T., ;
		TabStop = .T., ;
		TabStretch = 1, ;
		TabStyle = 0, ;
		Tag = "", ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 28, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = 268, ;
		Page1.BackColor = 240,240,240, ;
		Page1.Caption = "Page1", ;
		Page1.ColorSource = 4, ;
		Page1.Comment = "Sin comentarios", ;
		Page1.DragIcon = ..\..\, ;
		Page1.DragMode = 0, ;
		Page1.Enabled = .T., ;
		Page1.FontBold = .F., ;
		Page1.FontCharSet = 0, ;
		Page1.FontCondense = .F., ;
		Page1.FontExtend = .F., ;
		Page1.FontItalic = .F., ;
		Page1.FontName = "Arial", ;
		Page1.FontOutline = .F., ;
		Page1.FontShadow = .F., ;
		Page1.FontSize = 9, ;
		Page1.FontStrikethru = .F., ;
		Page1.FontUnderline = .F., ;
		Page1.ForeColor = 0,0,0, ;
		Page1.HelpContextID = 0, ;
		Page1.MouseIcon = ..\..\, ;
		Page1.MousePointer = 0, ;
		Page1.Name = "Page1", ;
		Page1.OLEDragMode = 0, ;
		Page1.OLEDragPicture = ..\..\, ;
		Page1.OLEDropEffects = 3, ;
		Page1.OLEDropMode = 0, ;
		Page1.PageOrder = 1, ;
		Page1.Picture = ..\..\, ;
		Page1.StatusBarText = "", ;
		Page1.Tag = "", ;
		Page1.ToolTipText = "", ;
		Page1.WhatsThisHelpID = -1, ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2", ;
		Page2.PageOrder = 2
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />

	ADD OBJECT 'pgf.Page1.checkbox' AS cl_checkbox WITH ;
		Alignment = 0, ;
		Anchor = 0, ;
		AutoSize = .F., ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		Caption = "Chk1", ;
		Centered = .F., ;
		ColorScheme = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DisabledBackColor = 240,240,240, ;
		DisabledForeColor = 109,109,109, ;
		DisabledPicture = ..\..\, ;
		DownPicture = ..\..\, ;
		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, ;
		Height = (21), ;
		HelpContextID = 0, ;
		Left = (7), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "checkbox", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		Picture = bmps\treeview.bmp, ;
		PictureMargin = 0, ;
		PicturePosition = 4, ;
		PictureSpacing = 0, ;
		ReadOnly = .F., ;
		RightToLeft = .F., ;
		SpecialEffect = 0, ;
		StatusBarText = "", ;
		Style = 1, ;
		TabIndex = 1, ;
		TabStop = .T., ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (8), ;
		Value = 0, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (199), ;
		WordWrap = .F., ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pgf.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ;
		Anchor = 0, ;
		AutoSize = .F., ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		BorderColor = 100,100,100, ;
		BorderStyle = 1, ;
		ButtonCount = 2, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefWidth = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		Height = (46), ;
		HelpContextID = 0, ;
		Left = 123, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "Cl_optiongroup1", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		SpecialEffect = 0, ;
		StatusBarText = "", ;
		TabIndex = 1, ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 231, ;
		Value = 2, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (112), ;
		ZOrderSet = 20, ;
		Option1.Alignment = 0, ;
		Option1.Anchor = 0, ;
		Option1.AutoSize = .F., ;
		Option1.BackColor = 192,192,192, ;
		Option1.BackStyle = 1, ;
		Option1.Caption = "Esta es la opc. 1", ;
		Option1.ColorScheme = 1, ;
		Option1.ColorSource = 4, ;
		Option1.Comment = "", ;
		Option1.ControlSource = "", ;
		Option1.DisabledBackColor = 240,240,240, ;
		Option1.DisabledForeColor = 109,109,109, ;
		Option1.DisabledPicture = ..\..\, ;
		Option1.DownPicture = ..\..\, ;
		Option1.DragIcon = ..\..\, ;
		Option1.DragMode = 0, ;
		Option1.Enabled = .T., ;
		Option1.FontBold = .F., ;
		Option1.FontCondense = .F., ;
		Option1.FontExtend = .F., ;
		Option1.FontItalic = .F., ;
		Option1.FontName = "Arial", ;
		Option1.FontOutline = .F., ;
		Option1.FontShadow = .F., ;
		Option1.FontSize = 8, ;
		Option1.FontStrikethru = .F., ;
		Option1.FontUnderline = .F., ;
		Option1.ForeColor = 0,0,0, ;
		Option1.Height = 16, ;
		Option1.HelpContextID = 0, ;
		Option1.Left = 5, ;
		Option1.MouseIcon = ..\..\, ;
		Option1.MousePointer = 0, ;
		Option1.Name = "Option1", ;
		Option1.OLEDragMode = 0, ;
		Option1.OLEDragPicture = ..\..\, ;
		Option1.OLEDropEffects = 3, ;
		Option1.OLEDropMode = 0, ;
		Option1.Picture = bmps\scccheckout.bmp, ;
		Option1.PictureMargin = 0, ;
		Option1.PicturePosition = 4, ;
		Option1.PictureSpacing = 0, ;
		Option1.RightToLeft = .F., ;
		Option1.SpecialEffect = 0, ;
		Option1.StatusBarText = "", ;
		Option1.Style = 0, ;
		Option1.TabIndex = 1, ;
		Option1.TabStop = .T., ;
		Option1.Tag = "", ;
		Option1.TerminateRead = .F., ;
		Option1.Themes = .T., ;
		Option1.ToolTipText = "", ;
		Option1.Top = 5, ;
		Option1.Value = 0, ;
		Option1.Visible = .T., ;
		Option1.WhatsThisHelpID = -1, ;
		Option1.Width = 98, ;
		Option1.WordWrap = .F., ;
		Option2.AutoSize = .F., ;
		Option2.BackColor = 192,192,192, ;
		Option2.Caption = "Esta es la opc. 2", ;
		Option2.FontSize = 8, ;
		Option2.Height = 16, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Picture = bmps\scccheckout.bmp, ;
		Option2.PicturePosition = 4, ;
		Option2.Style = 0, ;
		Option2.Top = 24, ;
		Option2.Value = 1, ;
		Option2.Width = 102
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ;
		Left = 218, ;
		Name = "collection", ;
		Top = 8
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" />

	ADD OBJECT 'pgf.Page1.combobox' AS cl_combobox WITH ;
		Alignment = 0, ;
		Anchor = 0, ;
		BackColor = 255,255,255, ;
		BorderColor = 128,255,128, ;
		BorderStyle = 1, ;
		BoundColumn = 1, ;
		BoundTo = .F., ;
		ColorScheme = 2, ;
		ColorSource = 4, ;
		ColumnCount = 0, ;
		ColumnLines = .T., ;
		ColumnWidths = "", ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DisabledBackColor = 240,240,240, ;
		DisabledForeColor = 109,109,109, ;
		DisabledItemBackColor = 255,255,255, ;
		DisabledItemForeColor = 109,109,109, ;
		DisplayCount = 0, ;
		DisplayValue = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		FirstElement = 1, ;
		FontBold = .F., ;
		FontCondense = .F., ;
		FontExtend = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontOutline = .F., ;
		FontShadow = .F., ;
		FontSize = 8, ;
		FontStrikethru = .F., ;
		FontUnderline = .F., ;
		ForeColor = 0,0,0, ;
		Format = "", ;
		Height = (20), ;
		HelpContextID = 0, ;
		HideSelection = .T., ;
		IMEMode = 0, ;
		IncrementalSearch = .T., ;
		InputMask = "", ;
		ItemBackColor = 255,255,255, ;
		ItemForeColor = 0,0,0, ;
		ItemTips = .F., ;
		Left = (7), ;
		Margin = 0, ;
		MaxLength = 0, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "combobox", ;
		NullDisplay = "", ;
		NumberOfElements = 0, ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		OLEDropTextInsertion = 0, ;
		Picture = bmps\treeview.bmp, ;
		PictureSelectionDisplay = 0, ;
		ReadOnly = .F., ;
		RightToLeft = .F., ;
		RowSource = "", ;
		RowSourceType = 0, ;
		SelectedBackColor = 51,153,255, ;
		SelectedForeColor = 255,255,255, ;
		SelectedItemBackColor = 51,153,255, ;
		SelectedItemForeColor = 255,255,255, ;
		SelectOnEntry = .F., ;
		Sorted = .F., ;
		SpecialEffect = 1, ;
		StatusBarText = "", ;
		Style = 0, ;
		TabIndex = 1, ;
		TabStop = .T., ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (35), ;
		Value = , ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (196), ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />

	ADD OBJECT 'pgf.Page1.commandbutton' AS cl_commandbutton WITH ;
		AutoSize = .F., ;
		Caption = "Comando", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		FontSize = 8, ;
		Height = (25), ;
		Left = (99), ;
		Name = "commandbutton", ;
		Picture = bmps\treeview.bmp, ;
		PicturePosition = 4, ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (63), ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (80), ;
		WordWrap = .F., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'pgf.Page1.commandgroup' AS cl_commandgroup WITH ;
		Anchor = 0, ;
		AutoSize = .F., ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		BorderColor = 100,100,100, ;
		BorderStyle = 1, ;
		ButtonCount = 2, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		Height = (64), ;
		HelpContextID = 0, ;
		Left = (6), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "commandgroup", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		SpecialEffect = 0, ;
		StatusBarText = "", ;
		TabIndex = 2, ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (60), ;
		Value = 1, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (93), ;
		ZOrderSet = 4, ;
		Command1.Alignment = 2, ;
		Command1.Anchor = 0, ;
		Command1.AutoSize = .F., ;
		Command1.BackColor = 192,192,192, ;
		Command1.Cancel = .F., ;
		Command1.Caption = "Comando1", ;
		Command1.ColorScheme = 1, ;
		Command1.ColorSource = 4, ;
		Command1.Comment = "", ;
		Command1.Default = .F., ;
		Command1.DisabledBackColor = 240,240,240, ;
		Command1.DisabledForeColor = 109,109,109, ;
		Command1.DisabledPicture = ..\..\, ;
		Command1.DownPicture = ..\..\, ;
		Command1.DragIcon = ..\..\, ;
		Command1.DragMode = 0, ;
		Command1.Enabled = .T., ;
		Command1.FontBold = .F., ;
		Command1.FontCharSet = 0, ;
		Command1.FontCondense = .F., ;
		Command1.FontExtend = .F., ;
		Command1.FontItalic = .F., ;
		Command1.FontName = "Arial", ;
		Command1.FontOutline = .F., ;
		Command1.FontShadow = .F., ;
		Command1.FontSize = 8, ;
		Command1.FontStrikethru = .F., ;
		Command1.FontUnderline = .F., ;
		Command1.ForeColor = 0,0,0, ;
		Command1.Height = 25, ;
		Command1.HelpContextID = 0, ;
		Command1.Left = 1, ;
		Command1.MouseIcon = ..\..\, ;
		Command1.MousePointer = 0, ;
		Command1.Name = "Command1", ;
		Command1.OLEDragMode = 0, ;
		Command1.OLEDragPicture = ..\..\, ;
		Command1.OLEDropEffects = 3, ;
		Command1.OLEDropMode = 0, ;
		Command1.Picture = bmps\sobrepostal.bmp, ;
		Command1.PictureMargin = 0, ;
		Command1.PicturePosition = 4, ;
		Command1.PictureSpacing = 0, ;
		Command1.RightToLeft = .F., ;
		Command1.SpecialEffect = 0, ;
		Command1.StatusBarText = "", ;
		Command1.Style = 0, ;
		Command1.TabIndex = 1, ;
		Command1.TabStop = .T., ;
		Command1.Tag = "", ;
		Command1.TerminateRead = .F., ;
		Command1.Themes = .T., ;
		Command1.ToolTipText = "", ;
		Command1.Top = 4, ;
		Command1.Visible = .T., ;
		Command1.WhatsThisHelpID = -1, ;
		Command1.Width = 90, ;
		Command1.WordWrap = .F., ;
		Command2.AutoSize = .F., ;
		Command2.BackColor = 192,192,192, ;
		Command2.Caption = "Comando2", ;
		Command2.FontSize = 8, ;
		Command2.Height = 25, ;
		Command2.Left = 1, ;
		Command2.Name = "Command2", ;
		Command2.Picture = bmps\sobrepostal.bmp, ;
		Command2.PicturePosition = 4, ;
		Command2.Top = 32, ;
		Command2.Width = 90
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />

	ADD OBJECT 'pgf.Page1.container' AS cl_container WITH ;
		Anchor = 0, ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		BorderColor = 100,100,100, ;
		BorderWidth = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		ForeColor = 0,0,0, ;
		Height = (24), ;
		HelpContextID = 0, ;
		Left = (227), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "container", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		Picture = ..\..\, ;
		SpecialEffect = 2, ;
		StatusBarText = "", ;
		Style = 0, ;
		TabIndex = 4, ;
		TabStop = .T., ;
		Tag = "", ;
		test_aa = .F., ;
		ToolTipText = "", ;
		Top = (127), ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (20), ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />

	ADD OBJECT 'pgf.Page1.control' AS cl_control WITH ;
		Anchor = 0, ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		BorderColor = 100,100,100, ;
		BorderWidth = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		ForeColor = 0,0,0, ;
		Height = (24), ;
		HelpContextID = 0, ;
		Left = (199), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "control", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		Picture = ..\..\, ;
		SpecialEffect = 2, ;
		StatusBarText = "", ;
		Style = 0, ;
		TabIndex = 5, ;
		TabStop = .T., ;
		Tag = "", ;
		test_aa = .F., ;
		ToolTipText = "", ;
		Top = (127), ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (20), ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />

	ADD OBJECT 'pgf.Page1.editbox' AS cl_editbox WITH ;
		AddLineFeeds = .F., ;
		Alignment = 0, ;
		AllowTabs = .F., ;
		Anchor = 0, ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderColor = 128,255,128, ;
		BorderStyle = 1, ;
		ColorScheme = 2, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DisabledBackColor = 240,240,240, ;
		DisabledForeColor = 109,109,109, ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		EnableHyperlinks = .F., ;
		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, ;
		Format = "", ;
		Height = (41), ;
		HelpContextID = 0, ;
		HideSelection = .T., ;
		IMEMode = 0, ;
		IntegralHeight = .F., ;
		Left = (183), ;
		Margin = 2, ;
		MaxLength = 0, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "editbox", ;
		NullDisplay = "", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		OLEDropTextInsertion = 0, ;
		PasswordChar = "", ;
		ReadOnly = .F., ;
		RightToLeft = .F., ;
		ScrollBars = 2, ;
		SelectedBackColor = 51,153,255, ;
		SelectedForeColor = 255,255,255, ;
		SelectOnEntry = .F., ;
		SpecialEffect = 1, ;
		StatusBarText = "", ;
		TabIndex = 6, ;
		TabStop = .T., ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (60), ;
		Value = , ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (68), ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />

	ADD OBJECT 'pgf.Page1.hyperlink' AS cl_hyperlink WITH ;
		Comment = "", ;
		Left = 199, ;
		Name = "hyperlink", ;
		Tag = "", ;
		test_aa = .F., ;
		Top = 103
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" />

	ADD OBJECT 'pgf.Page1.image' AS cl_image WITH ;
		Anchor = 0, ;
		BackStyle = 1, ;
		BorderColor = 100,100,100, ;
		BorderStyle = 0, ;
		ColorSource = 4, ;
		Comment = "", ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		Height = 16, ;
		HelpContextID = 0, ;
		Left = 231, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "image", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		Picture = bmps\scccheckout.bmp, ;
		RotateFlip = 0, ;
		StatusBarText = "", ;
		Stretch = 0, ;
		Tag = "", ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 107, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = 16, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />

	ADD OBJECT 'pgf.Page1.label' AS cl_label WITH ;
		Alignment = 0, ;
		Anchor = 0, ;
		AutoSize = .F., ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		BorderStyle = 0, ;
		Caption = "Label4", ;
		ColorScheme = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		FontOutline = .F., ;
		FontShadow = .F., ;
		FontSize = 8, ;
		FontStrikethru = .F., ;
		FontUnderline = .F., ;
		ForeColor = 0,0,0, ;
		Height = (17), ;
		HelpContextID = 0, ;
		Left = (6), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "label", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		RightToLeft = .F., ;
		Rotation = 0, ;
		StatusBarText = "", ;
		Style = 0, ;
		TabIndex = 7, ;
		Tag = "", ;
		test_aa = .F., ;
		ToolTipText = "", ;
		Top = (136), ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (104), ;
		WordWrap = .F., ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />

	ADD OBJECT 'pgf.Page1.line' AS cl_line WITH ;
		Anchor = 0, ;
		BorderColor = 255,0,0, ;
		BorderStyle = 1, ;
		BorderWidth = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		DrawMode = 13, ;
		Enabled = .T., ;
		Height = (8), ;
		HelpContextID = 0, ;
		Left = (121), ;
		LineSlant = "\", ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "line", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		PolyPoints = "", ;
		Rotation = 0, ;
		StatusBarText = "", ;
		Tag = "", ;
		test_aa = .F., ;
		ToolTipText = "", ;
		Top = (136), ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (50), ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />

	ADD OBJECT 'pgf.Page1.listbox' AS cl_listbox WITH ;
		Anchor = 0, ;
		AutoHideScrollbar = 0, ;
		BorderColor = 128,255,128, ;
		BoundColumn = 1, ;
		BoundTo = .F., ;
		ColorScheme = 1, ;
		ColorSource = 4, ;
		ColumnCount = 0, ;
		ColumnLines = .T., ;
		ColumnWidths = "", ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DisabledBackColor = 255,255,255, ;
		DisabledForeColor = 109,109,109, ;
		DisabledItemBackColor = 255,255,255, ;
		DisabledItemForeColor = 109,109,109, ;
		DisplayValue = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		FirstElement = 1, ;
		FontBold = .F., ;
		FontCondense = .F., ;
		FontExtend = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontOutline = .F., ;
		FontShadow = .F., ;
		FontSize = 8, ;
		FontStrikethru = .F., ;
		FontUnderline = .F., ;
		Height = (60), ;
		HelpContextID = 0, ;
		IncrementalSearch = .T., ;
		IntegralHeight = .F., ;
		ItemBackColor = 255,255,255, ;
		ItemForeColor = 0,0,0, ;
		ItemTips = .F., ;
		Left = (7), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		MoverBars = .F., ;
		MultiSelect = .F., ;
		Name = "listbox", ;
		NullDisplay = "", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		Picture = ..\..\, ;
		RightToLeft = .F., ;
		RowSource = "", ;
		RowSourceType = 0, ;
		SelectedItemBackColor = 51,153,255, ;
		SelectedItemForeColor = 255,255,255, ;
		Sorted = .F., ;
		SpecialEffect = 1, ;
		StatusBarText = "", ;
		TabIndex = 8, ;
		TabStop = .T., ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (164), ;
		Value = , ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (224), ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />

	ADD OBJECT 'pgf.Page1.option' AS cl_option WITH ;
		AutoSize = .F., ;
		Caption = "Esta es la opción B", ;
		DefHeight = , ;
		DefWidth = , ;
		FontSize = 8, ;
		Height = (16), ;
		Left = 11, ;
		Name = "option", ;
		Top = 283, ;
		Width = (110), ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" />

	ADD OBJECT 'pgf.Page1.optiongroup' AS cl_optiongroup WITH ;
		Anchor = 0, ;
		AutoSize = .F., ;
		BackColor = 240,240,240, ;
		BackStyle = 1, ;
		BorderColor = 100,100,100, ;
		BorderStyle = 1, ;
		ButtonCount = 2, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		Height = (46), ;
		HelpContextID = 0, ;
		Left = (7), ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "optiongroup", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		SpecialEffect = 0, ;
		StatusBarText = "", ;
		TabIndex = 1, ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = (232), ;
		Value = 2, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (112), ;
		ZOrderSet = 14, ;
		Option1.Alignment = 0, ;
		Option1.Anchor = 0, ;
		Option1.AutoSize = .F., ;
		Option1.BackColor = 192,192,192, ;
		Option1.BackStyle = 1, ;
		Option1.Caption = "Esta es la opc. 1", ;
		Option1.ColorScheme = 1, ;
		Option1.ColorSource = 4, ;
		Option1.Comment = "", ;
		Option1.ControlSource = "", ;
		Option1.DisabledBackColor = 240,240,240, ;
		Option1.DisabledForeColor = 109,109,109, ;
		Option1.DisabledPicture = ..\..\, ;
		Option1.DownPicture = ..\..\, ;
		Option1.DragIcon = ..\..\, ;
		Option1.DragMode = 0, ;
		Option1.Enabled = .T., ;
		Option1.FontBold = .F., ;
		Option1.FontCondense = .F., ;
		Option1.FontExtend = .F., ;
		Option1.FontItalic = .F., ;
		Option1.FontName = "Arial", ;
		Option1.FontOutline = .F., ;
		Option1.FontShadow = .F., ;
		Option1.FontSize = 8, ;
		Option1.FontStrikethru = .F., ;
		Option1.FontUnderline = .F., ;
		Option1.ForeColor = 0,0,0, ;
		Option1.Height = 41, ;
		Option1.HelpContextID = 0, ;
		Option1.Left = 5, ;
		Option1.MouseIcon = ..\..\, ;
		Option1.MousePointer = 0, ;
		Option1.Name = "Option1", ;
		Option1.OLEDragMode = 0, ;
		Option1.OLEDragPicture = ..\..\, ;
		Option1.OLEDropEffects = 3, ;
		Option1.OLEDropMode = 0, ;
		Option1.Picture = bmps\scccheckout.bmp, ;
		Option1.PictureMargin = 0, ;
		Option1.PicturePosition = 4, ;
		Option1.PictureSpacing = 0, ;
		Option1.RightToLeft = .F., ;
		Option1.SpecialEffect = 0, ;
		Option1.StatusBarText = "", ;
		Option1.Style = 1, ;
		Option1.TabIndex = 1, ;
		Option1.TabStop = .T., ;
		Option1.Tag = "", ;
		Option1.TerminateRead = .F., ;
		Option1.Themes = .T., ;
		Option1.ToolTipText = "", ;
		Option1.Top = 5, ;
		Option1.Value = 0, ;
		Option1.Visible = .T., ;
		Option1.WhatsThisHelpID = -1, ;
		Option1.Width = 112, ;
		Option1.WordWrap = .F., ;
		Option2.AutoSize = .F., ;
		Option2.BackColor = 192,192,192, ;
		Option2.Caption = "Esta es la opc. 2", ;
		Option2.FontSize = 8, ;
		Option2.Height = 16, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Picture = bmps\scccheckout.bmp, ;
		Option2.PicturePosition = 4, ;
		Option2.Style = 1, ;
		Option2.Top = 24, ;
		Option2.Value = 1, ;
		Option2.Width = 103
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'pgf.Page1.Pageframe1' AS pageframe WITH ;
		DefHeight = , ;
		DefLeft = , ;
		DefTop = , ;
		DefWidth = , ;
		ErasePage = .T., ;
		Height = (61), ;
		Left = (135), ;
		MemberClass = "cl_page", ;
		MemberClassLibrary = lib_controles.vcx, ;
		Name = "Pageframe1", ;
		PageCount = 2, ;
		TabOrientation = 2, ;
		Themes = .F., ;
		Top = (284), ;
		Width = (117), ;
		ZOrderSet = 19, ;
		Cl_page1.Caption = "Pg1", ;
		Cl_page1.Name = "Cl_page1", ;
		Cl_page2.BackColor = 255,193,132, ;
		Cl_page2.Caption = "Pg2", ;
		Cl_page2.Name = "Cl_page2"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'pgf.Page1.spinner' AS cl_spinner WITH ;
		Alignment = 1, ;
		Anchor = 0, ;
		BackColor = 255,255,255, ;
		BorderColor = 128,255,128, ;
		BorderStyle = 1, ;
		ColorScheme = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DefHeight = , ;
		DefWidth = , ;
		DisabledBackColor = 240,240,240, ;
		DisabledForeColor = 109,109,109, ;
		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, ;
		Format = "", ;
		Height = (19), ;
		HelpContextID = 0, ;
		HideSelection = .T., ;
		Increment = 1.00, ;
		InputMask = "", ;
		KeyboardHighValue = 2147483647, ;
		KeyboardLowValue = -2147483647, ;
		Left = 11, ;
		Margin = 0, ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "spinner", ;
		NullDisplay = "", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		OLEDropTextInsertion = 0, ;
		ReadOnly = .F., ;
		RightToLeft = .F., ;
		SelectedBackColor = 51,153,255, ;
		SelectedForeColor = 255,255,255, ;
		SelectOnEntry = .F., ;
		SpecialEffect = 1, ;
		SpinnerHighValue = 2147483647.00, ;
		SpinnerLowValue = -2147483647.00, ;
		StatusBarText = "", ;
		TabIndex = 9, ;
		TabStop = .T., ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 303, ;
		Value = 0, ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (108), ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />

	ADD OBJECT 'pgf.Page1.textbox' AS cl_textbox WITH ;
		Alignment = 3, ;
		Anchor = 0, ;
		AutoComplete = 0, ;
		AutoCompSource = "", ;
		AutoCompTable = "", ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderColor = 128,255,128, ;
		BorderStyle = 1, ;
		Century = 1, ;
		ColorScheme = 1, ;
		ColorSource = 4, ;
		Comment = "", ;
		ControlSource = "", ;
		DateFormat = 0, ;
		DateMark = "", ;
		DefHeight = , ;
		DefWidth = , ;
		DisabledBackColor = 240,240,240, ;
		DisabledForeColor = 109,109,109, ;
		DragIcon = ..\..\, ;
		DragMode = 0, ;
		Enabled = .T., ;
		EnableHyperlinks = .F., ;
		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, ;
		Format = "", ;
		Height = (19), ;
		HelpContextID = 0, ;
		HideSelection = .T., ;
		Hours = 0, ;
		IMEMode = 0, ;
		InputMask = "", ;
		IntegralHeight = .F., ;
		Left = 11, ;
		Margin = 0, ;
		MaxLength = 0, ;
		MemoWindow = "", ;
		MouseIcon = ..\..\, ;
		MousePointer = 0, ;
		Name = "textbox", ;
		NullDisplay = "", ;
		OLEDragMode = 0, ;
		OLEDragPicture = ..\..\, ;
		OLEDropEffects = 3, ;
		OLEDropMode = 0, ;
		OpenWindow = .F., ;
		PasswordChar = "", ;
		ReadOnly = .F., ;
		RightToLeft = .F., ;
		Seconds = 2, ;
		SelectedBackColor = 51,153,255, ;
		SelectedForeColor = 255,255,255, ;
		SelectOnEntry = .F., ;
		SpecialEffect = 1, ;
		StatusBarText = "", ;
		StrictDateEntry = 1, ;
		Style = 0, ;
		TabIndex = 1, ;
		TabStop = .T., ;
		Tag = "", ;
		TerminateRead = .F., ;
		test_aa = .F., ;
		Themes = .T., ;
		ToolTipText = "", ;
		Top = 327, ;
		Value = , ;
		Visible = .T., ;
		WhatsThisHelpID = -1, ;
		Width = (108), ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />

	ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ;
		Comment = "", ;
		DefHeight = , ;
		DefWidth = , ;
		Enabled = .T., ;
		Height = (23), ;
		Interval = 0, ;
		Left = 235, ;
		Name = "timer", ;
		Tag = "", ;
		test_aa = .F., ;
		Top = 255, ;
		Width = (23)
		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" />
	
	PROCEDURE Activate
		IF NOT THISFORM.l_activated
			THISFORM.run_tests()
			THISFORM.l_activated	= .T.
		ENDIF
		
	ENDPROC

	PROCEDURE add_control
		LPARAMETERS toControl
		
		LOCAL lcCtlPath
		
		WITH THISFORM
			lcCtlPath	= SYS(1272, toControl)
		
			INSERT INTO C_TESTS ;
				( c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg, c_UI ) ;
				VALUES ;
				( SUBSTR( lcCtlPath, LEN(.NAME) + 2), 'N', 'N', 'N', 'N', 'N' )
		ENDWITH
		
	ENDPROC

	PROCEDURE Load
		CREATE CURSOR C_TESTS ( c_CtlName C(30), c_Access C(1), c_Assign C(1), c_Value C(1), c_ProgrChg C(1), c_UI C(1) )
		INDEX ON c_CtlName TAG c_CtlName
		
	ENDPROC

	PROCEDURE run_tests
		TRY
			LOCAL loEx AS Exception, loCtl
			
			WITH THISFORM AS Form
				*-- c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg
				THISFORM.pgf.page1.SETALL( "Tag", "" )
				THISFORM.pgf.ActivePage = 1
		
				SCAN
					*-- Test UI Enable
					loCtl	= EVALUATE( "." + ALLTRIM(c_CtlName) )
					DO CASE
					CASE NOT PEMSTATUS(loCtl, 'UIEnable',5)
						REPLACE c_UI WITH "-"
					CASE loCtl.Tag = "UI"
						REPLACE c_UI WITH "S"
					ENDCASE
				ENDSCAN
		
				SCAN
					*-- Test Access
					loCtl	= EVALUATE( "." + ALLTRIM(c_CtlName) )
					loCtl.Tag	= ''
					IF loCtl.test_aa = "ACCESS_OK"
						REPLACE c_Access WITH "S"
					ENDIF
				ENDSCAN
		
				SCAN
					*-- Test Assign
					loCtl	= EVALUATE( "." + ALLTRIM(c_CtlName) )
					loCtl.Tag	= ''
					loCtl.test_aa = "ASSIGN_OK"
					IF loCtl.Tag = "ASSIGN_OK"
						REPLACE c_Assign WITH "S"
					ENDIF
				ENDSCAN
					
				SCAN
					*-- Test Valor/Activate
					loCtl	= EVALUATE( "." + ALLTRIM(c_CtlName) )
		
					DO CASE
					CASE loCtl.Baseclass == 'Checkbox'
						.valor	= 1
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Combobox'
						.valor	= 3
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Commandgroup'
						.valor	= 2
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Editbox'
						.valor	= 'Texto editable'
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Listbox'
						.valor	= 3
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Optiongroup'
						.valor	= 2
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Optionbutton'
						.valor	= 2
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Spinner'
						.valor	= 123
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Textbox'
						.valor	= "Mi texto"
						loCtl.ControlSource = 'THISFORM.valor'
						IF loCtl.Value = .valor
							REPLACE c_Value WITH "S"
						ENDIF
						loCtl.ControlSource = ''
		
					CASE loCtl.Baseclass == 'Page'
						loCtl.Parent.ActivePage = 2
						IF loCtl.Tag = 'AC'
							REPLACE c_Value WITH "S"
						ENDIF
		
					OTHERWISE
						REPLACE c_Value WITH "-"
		
					ENDCASE
				ENDSCAN
				
				SCAN
					*-- Test ProgrammaticChange
					loCtl	= EVALUATE( "." + ALLTRIM(c_CtlName) )
					.Tag	= ''
					DO CASE
					CASE loCtl.Baseclass == 'Checkbox'
						loCtl.Value = 0
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Combobox'
						loCtl.Value = 1
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Commandgroup'
						loCtl.Value = 1
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Editbox'
						loCtl.Value = 'Editado!'
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Listbox'
						loCtl.Value = 1
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Optiongroup'
						loCtl.Value = 1
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Spinner'
						loCtl.Value = 321
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					CASE loCtl.Baseclass == 'Textbox'
						loCtl.Value = 'Editado!'
						IF NOT EMPTY(.tag)
							REPLACE c_ProgrChg WITH "S"
						ENDIF
		
					OTHERWISE
						REPLACE c_ProgrChg WITH "-"
		
					ENDCASE
					
				ENDSCAN
			ENDWITH
			
		
		CATCH TO loEx
			THISFORM.edit1.Value = 'Error ' + TRANSFORM(loEx.ErrorNo) + CHR(13) ;
				+ loEx.Message + CHR(13) ;
				+ loEx.Procedure + ', Line ' + TRANSFORM(loEx.LineNo) + CHR(13) ;
				+ loEx.Details
		
		FINALLY
			IF USED("C_TESTS")
				SELECT C_TESTS
				GO TOP
			ENDIF
		
		ENDTRY
		
	ENDPROC

	PROCEDURE pgf.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.checkbox.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.checkbox.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
	ENDPROC

	PROCEDURE pgf.Page1.checkbox.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.checkbox.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.checkbox.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.Cl_optiongroup1.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.Cl_optiongroup1.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
		
	ENDPROC

	PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.Cl_optiongroup1.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.collection.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.collection.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.collection.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.combobox.Init
		this.AddListItem('Este es el valor.A1')
		this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
		this.AddListItem('Este es el valor.B1')
		this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
		this.AddListItem('Este es el valor.C1')
		this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.combobox.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
	ENDPROC

	PROCEDURE pgf.Page1.combobox.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.combobox.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.combobox.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.commandbutton.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.commandbutton.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.commandbutton.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.commandbutton.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.commandgroup.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.commandgroup.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
	ENDPROC

	PROCEDURE pgf.Page1.commandgroup.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.commandgroup.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.commandgroup.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.container.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.container.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.container.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.container.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.control.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.control.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.control.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.control.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.editbox.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.editbox.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
	ENDPROC

	PROCEDURE pgf.Page1.editbox.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.editbox.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.editbox.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.hyperlink.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.hyperlink.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.hyperlink.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.image.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.image.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.image.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.image.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.label.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.label.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.label.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.label.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.line.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.line.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.line.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.line.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.listbox.Init
		this.AddListItem('Este es el valor.A1')
		this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
		this.AddListItem('Este es el valor.B1')
		this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
		this.AddListItem('Este es el valor.C1')
		this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.listbox.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
		
	ENDPROC

	PROCEDURE pgf.Page1.listbox.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.listbox.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.listbox.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.option.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.option.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.option.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.option.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.optiongroup.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.optiongroup.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
		
	ENDPROC

	PROCEDURE pgf.Page1.optiongroup.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.optiongroup.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.optiongroup.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Activate
		THIS.Tag = 'AC'
		
	ENDPROC

	PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.Pageframe1.Init
		this.Cl_page2.Init()
		
	ENDPROC

	PROCEDURE pgf.Page1.Pageframe1.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THISFORM.pgf.Tag = 'UI'
		ENDIF
		
		
	ENDPROC

	PROCEDURE pgf.Page1.spinner.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.spinner.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
		
	ENDPROC

	PROCEDURE pgf.Page1.spinner.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.spinner.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.spinner.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.textbox.Init
		THISFORM.add_control( THIS )
		
	ENDPROC

	PROCEDURE pgf.Page1.textbox.ProgrammaticChange
		THISFORM.Tag = 'PC'
		
	ENDPROC

	PROCEDURE pgf.Page1.textbox.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.textbox.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.Page1.textbox.UIEnable
		LPARAMETERS lEnable
		
		IF lEnable
			THIS.Tag = 'UI'
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.timer.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.Page1.timer.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

	PROCEDURE pgf.test_aa_access
		IF EMPTY(THIS.Tag)
			RETURN "ACCESS_OK"
		ELSE
			RETURN THIS.Tag
		ENDIF
		
	ENDPROC

	PROCEDURE pgf.test_aa_assign
		LPARAMETERS vNewVal
		
		THIS.test_aa = m.vNewVal
		THIS.Tag	= EVL(m.vNewVal,'')
		
	ENDPROC

ENDDEFINE