romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed binary sources (FoxBin2Prg)

Browse Source
This commit is contained in:
Lutz
2023-08-26 21:49:42 +02:00
parent 607c6120a5
commit 4c7589c927
166 changed files with 48386 additions and 37119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1234
TESTS/DATOS_READONLY/FB2P_DBC.DC2
View File

File diff suppressed because it is too large Load Diff

172
TESTS/DATOS_READONLY/FB2P_DBF.DB2
View File

@@ -5,10 +5,11 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbf.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
<LastUpdate>2014/01/06</LastUpdate>
<LastUpdate></LastUpdate>
<Database>fb2p_dbc.dbc</Database>
<FileType>0x00000031</FileType>
<FileType_Descrip>Visual FoxPro, autoincrement enabled</FileType_Descrip>
@@ -116,66 +117,117 @@
</FIELD>
</FIELDS>
<IndexFiles>
<indexFile>FB2P_DBF.CDX</indexFile>
<IndexFile Type="Structural" >
<INDEXES>
<INDEX>
<TagName>DEPTO</TagName>
<TagType>REGULAR</TagType>
<Key>DEPTO</Key>
<Filter>.NOT.DELETED().AND..T.</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>EDAD</TagName>
<TagType>CANDIDATE</TagType>
<Key>EDAD</Key>
<Filter></Filter>
<Order>DESCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>EDAD_ND</TagName>
<TagType>REGULAR</TagType>
<Key>EDAD</Key>
<Filter>.NOT.DELETED()</Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>ID</TagName>
<TagType>PRIMARY</TagType>
<Key>ID</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>I_NOMBRE</TagName>
<TagType>REGULAR</TagType>
<Key>NOMBRE</Key>
<Filter>.NOT.DELETED().AND..T..AND..NOT..F.</Filter>
<Order>DESCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>NOMBRE</TagName>
<TagType>REGULAR</TagType>
<Key>NOMBRE</Key>
<Filter>.NOT.DELETED().AND..T..AND..T.</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>NOTDELETED</TagName>
<TagType>BINARY</TagType>
<Key>.NOT.DELETED()</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
</INDEXES>
</IndexFile>
</IndexFiles>
<RECORDS>
<RECORD>
<NOMBRE>Fer</NOMBRE>
<EDAD>45</EDAD>
<ID>18</ID>
<BIGTEXT></BIGTEXT>
<DEPTO>D.1.C</DEPTO>
</RECORD>
<RECORD>
<NOMBRE>Fer2</NOMBRE>
<EDAD>46</EDAD>
<ID>22</ID>
<BIGTEXT></BIGTEXT>
<DEPTO>D.1.C</DEPTO>
</RECORD>
<RECORD>
<NOMBRE>Fer3</NOMBRE>
<EDAD>47</EDAD>
<ID>24</ID>
<BIGTEXT></BIGTEXT>
<DEPTO>D.1.C</DEPTO>
</RECORD>
<RECORD>
<NOMBRE>Fer4</NOMBRE>
<EDAD>48</EDAD>
<ID>26</ID>
<BIGTEXT></BIGTEXT>
<DEPTO>D.1.C</DEPTO>
</RECORD>
<RECORD>
<NOMBRE>Fer5</NOMBRE>
<EDAD>49</EDAD>
<ID>28</ID>
<BIGTEXT></BIGTEXT>
<DEPTO>D.1.C</DEPTO>
</RECORD>
</RECORDS>
<INDEXES>
<INDEX>
<TagName>ID</TagName>
<TagType>PRIMARY</TagType>
<Key>ID</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>EDAD_ND</TagName>
<TagType>REGULAR</TagType>
<Key>EDAD</Key>
<Filter>.NOT.DELETED()</Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>NOTDELETED</TagName>
<TagType>BINARY</TagType>
<Key>.NOT.DELETED()</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>EDAD</TagName>
<TagType>CANDIDATE</TagType>
<Key>EDAD</Key>
<Filter></Filter>
<Order>DESCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>DEPTO</TagName>
<TagType>REGULAR</TagType>
<Key>DEPTO</Key>
<Filter>.NOT.DELETED().AND..T.</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>NOMBRE</TagName>
<TagType>REGULAR</TagType>
<Key>NOMBRE</Key>
<Filter>.NOT.DELETED().AND..T..AND..T.</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>I_NOMBRE</TagName>
<TagType>REGULAR</TagType>
<Key>NOMBRE</Key>
<Filter>.NOT.DELETED().AND..T..AND..NOT..F.</Filter>
<Order>DESCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
</INDEXES>
</TABLE>

4
TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2
View File

@@ -9,7 +9,7 @@
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
DEFINE PAD "_40O0YW62F" OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
@@ -22,7 +22,7 @@ ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors" && Setup some very effective error handling
ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P
DEFINE PAD _40O0YW62G OF _MSYSMENU PROMPT "E\<dit" COLOR SCHEME 3 ;
DEFINE PAD "_40O0YW62G" OF _MSYSMENU PROMPT "E\<dit" COLOR SCHEME 3 ;
KEY ALT+D, "ALT+D" ;
SKIP FOR oApp.Database() == "Production" && Don't show this option when rendering menu item on production

6
TESTS/DATOS_READONLY/Menu_LineBreak.mn2
View File

@@ -9,7 +9,7 @@
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
DEFINE PAD "_40O0YW62F" OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
@@ -22,7 +22,7 @@ ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors"
ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P
DEFINE PAD _40O0YW62G OF _MSYSMENU PROMPT "E\<dit" COLOR SCHEME 3 ;
DEFINE PAD "_40O0YW62G" OF _MSYSMENU PROMPT "E\<dit" COLOR SCHEME 3 ;
KEY ALT+D, "ALT+D" ;
SKIP FOR oApp.Database() == "Production" && Don't show this option when rendering menu item on production
@@ -30,7 +30,7 @@ ON PAD _40O0YW62G OF _MSYSMENU ACTIVATE POPUP Edit
*----------------------------------
DEFINE POPUP Edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE PAD _40O101BHZ OF _MSYSMENU PROMPT "Skip For" COLOR SCHEME 3 ;
DEFINE PAD "_40O101BHZ" OF _MSYSMENU PROMPT "Skip For" COLOR SCHEME 3 ;
SKIP FOR iif(type("oMenu")=="O",oMenu.GetAccess(),.t.) && This comment line has<CR>a line break in it
ON SELECTION PAD _40O101BHZ OF _MSYSMENU messageb("Hello!")

139
TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdbase.vc2 Normal file
View File

@@ -0,0 +1,139 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS grdbase AS grid
*< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: canresort
*m: commoncolumnclick && Generic column click handler
*m: createtag && Create a grid indexd tag for sorting
*m: resizecover
*m: visible_assign
*</DefinedPropArrayMethod>
*<PropValue>
ColumnCount = 2
Height = 200
Name = "grdbase"
Width = 320
Column1.Name = "Column1"
Column2.Name = "Column2"
*</PropValue>
ADD OBJECT 'Column1.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '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 'Column2.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE canresort
*
* CanResort
*
RETURN .T.
ENDPROC
PROCEDURE Click
*
* Do some things here
*
DODEFAULT()
ENDPROC
PROCEDURE commoncolumnclick && Generic column click handler
*
* Common behavior when clicked
*
LPARAMETERS toColumn
ENDPROC
PROCEDURE createtag && Create a grid indexd tag for sorting
*
* Index on each column's ControlSource
*
ENDPROC
PROCEDURE DblClick
*
* Double-clicked!
*
RETURN DODEFAULT()
ENDPROC
PROCEDURE Destroy
*
* Destroy the grid
*
RETURN .T.
ENDPROC
PROCEDURE Resize
*
* React to resizing the grid
*
ENDPROC
PROCEDURE resizecover
*
* ResizeCover if one exists
*
ENDPROC
PROCEDURE visible_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.Visible = m.vNewVal
ENDPROC
PROCEDURE When
*
* When what?
*
ENDPROC
PROCEDURE Column1.Text1.Click
*
* Call common method
*
this.Parent.Parent.commoncolumnclick(this)
ENDPROC
PROCEDURE Column2.Text1.Click
*
* Call common method
*
this.Parent.Parent.commoncolumnclick(this)
ENDPROC
ENDDEFINE

74
TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdgeneral.vc2 Normal file
View File

@@ -0,0 +1,74 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS grdgeneral AS grdbase OF "classlib_method_order_bug_test.vcx"
*< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "grdgeneral"
Column1.Header1.Name = "Header1"
Column1.Name = "Column1"
Column1.Text1.Name = "Text1"
Column2.Header1.Name = "Header1"
Column2.Name = "Column2"
Column2.Text1.Name = "Text1"
*</PropValue>
PROCEDURE canresort
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
ENDPROC
PROCEDURE commoncolumnclick && Generic column click handler
*!******************************************************************************
*!* Method: grdGeneral::CommonColumnClick()
*!* Returns: Logical
LPARAMETERS toColumn
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
*
* Measure Success
*
LOCAL llSuccess as Boolean
llSuccess = .T.
** TODO
*
* Return logical, success(T) or failure(F)
*
RETURN llSuccess
ENDPROC
PROCEDURE Init
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Column1.Text1.Click
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
ENDPROC
ENDDEFINE

202
TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2
View File

@@ -4,202 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS grdbase AS grid
*< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="grdbase" Baseclass="grid" />
*< EXTERNAL_CLASS: Name="grdgeneral" Baseclass="grid" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: canresort
*m: commoncolumnclick && Generic column click handler
*m: createtag && Create a grid indexd tag for sorting
*m: resizecover
*m: visible_assign
*</DefinedPropArrayMethod>
ColumnCount = 2
Height = 200
Name = "grdbase"
Width = 320
Column1.Name = "Column1"
Column2.Name = "Column2"
ADD OBJECT 'Column1.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '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 'Column2.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE canresort
*
* CanResort
*
RETURN .T.
ENDPROC
PROCEDURE Click
*
* Do some things here
*
DODEFAULT()
ENDPROC
PROCEDURE commoncolumnclick && Generic column click handler
*
* Common behavior when clicked
*
LPARAMETERS toColumn
ENDPROC
PROCEDURE createtag && Create a grid indexd tag for sorting
*
* Index on each column's ControlSource
*
ENDPROC
PROCEDURE DblClick
*
* Double-clicked!
*
RETURN DODEFAULT()
ENDPROC
PROCEDURE Destroy
*
* Destroy the grid
*
RETURN .T.
ENDPROC
PROCEDURE Resize
*
* React to resizing the grid
*
ENDPROC
PROCEDURE resizecover
*
* ResizeCover if one exists
*
ENDPROC
PROCEDURE visible_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.Visible = m.vNewVal
ENDPROC
PROCEDURE When
*
* When what?
*
ENDPROC
PROCEDURE Column1.Text1.Click
*
* Call common method
*
this.Parent.Parent.commoncolumnclick(this)
ENDPROC
PROCEDURE Column2.Text1.Click
*
* Call common method
*
this.Parent.Parent.commoncolumnclick(this)
ENDPROC
ENDDEFINE
DEFINE CLASS grdgeneral AS grdbase OF "classlib_method_order_bug_test.vcx"
*< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
Name = "grdgeneral"
Column1.Header1.Name = "Header1"
Column1.Name = "Column1"
Column1.Text1.Name = "Text1"
Column2.Header1.Name = "Header1"
Column2.Name = "Column2"
Column2.Text1.Name = "Text1"
PROCEDURE canresort
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
ENDPROC
PROCEDURE commoncolumnclick && Generic column click handler
*!******************************************************************************
*!* Method: grdGeneral::CommonColumnClick()
*!* Returns: Logical
LPARAMETERS toColumn
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
*
* Measure Success
*
LOCAL llSuccess as Boolean
llSuccess = .T.
** TODO
*
* Return logical, success(T) or failure(F)
*
RETURN llSuccess
ENDPROC
PROCEDURE Init
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Column1.Text1.Click
*
* Call default logic.
*
IF NOT DODEFAULT()
RETURN .F.
ENDIF
ENDPROC
ENDDEFINE
*

19
TESTS/DATOS_READONLY/f_checkbox.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

822
TESTS/DATOS_READONLY/f_checkbox.f_base1.sc2 Normal file
View File

@@ -0,0 +1,822 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS f_base1 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_checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_checkbox2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Cl_checkbox3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Check3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Cl_checkbox4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Check4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Check5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Check6" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Left = 0
Name = "F_base1"
Top = 0
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CHECKBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CHECKBOX SUBCLASADOS"
Label2.Name = "Label2"
*</PropValue>
ADD OBJECT 'Check1' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = (17), ;
HelpContextID = 0, ;
Left = (64), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = (72), ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (152), ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Check2' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 64, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check2", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 96, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Cl_checkbox1' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 340, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 72, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cl_checkbox2' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 340, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox2", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 96, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Container1' AS container WITH ;
Height = 76, ;
Left = 24, ;
Name = "Container1", ;
Top = 152, ;
Width = 516
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Container1.Check3' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 40, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check3", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Container1.Check4' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 40, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check4", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Container1.Cl_checkbox3' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 316, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox3", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Container1.Cl_checkbox4' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 316, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox4", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ErasePage = .T., ;
Height = 113, ;
Left = 24, ;
Name = "Pageframe1", ;
PageCount = 2, ;
Top = 276, ;
Width = 517, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'Pageframe1.Page1.Check5' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 35, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check5", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Pageframe1.Page1.Check6' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 35, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check6", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Pageframe1.Page1.Cl_checkbox5' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 311, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox5", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Pageframe1.Page1.Cl_checkbox6' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 311, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox6", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ENDDEFINE

830
TESTS/DATOS_READONLY/f_checkbox.sc2
View File

@@ -4,830 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS f_base1 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_checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_checkbox2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Cl_checkbox3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Check3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Cl_checkbox4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Check4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Check5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Check6" UniqueID="" Timestamp="" />
DoCreate = .T.
Left = 0
Name = "F_base1"
Top = 0
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CHECKBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CHECKBOX SUBCLASADOS"
Label2.Name = "Label2"
ADD OBJECT 'Check1' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = (17), ;
HelpContextID = 0, ;
Left = (64), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = (72), ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (152), ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Check2' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 64, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check2", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 96, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Cl_checkbox1' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 340, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 72, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cl_checkbox2' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 340, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox2", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 96, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Container1' AS container WITH ;
Height = 76, ;
Left = 24, ;
Name = "Container1", ;
Top = 152, ;
Width = 516
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Container1.Check3' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 40, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check3", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Container1.Check4' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 40, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check4", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Container1.Cl_checkbox3' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 316, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox3", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Container1.Cl_checkbox4' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 240,240,240, ;
DisabledForeColor = 109,109,109, ;
DisabledPicture = ..\..\, ;
DownPicture = ..\..\, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .F., ;
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, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 316, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox4", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .F., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ErasePage = .T., ;
Height = 113, ;
Left = 24, ;
Name = "Pageframe1", ;
PageCount = 2, ;
Top = 276, ;
Width = 517, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'Pageframe1.Page1.Check5' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 35, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check5", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Pageframe1.Page1.Check6' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox normal", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 35, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Check6", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 152, ;
WordWrap = .F.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Pageframe1.Page1.Cl_checkbox5' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 17, ;
HelpContextID = 0, ;
Left = 311, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox5", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 16, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ADD OBJECT 'Pageframe1.Page1.Cl_checkbox6' AS cl_checkbox WITH ;
Alignment = 0, ;
Anchor = 0, ;
AutoSize = .F., ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
Caption = "Checkbox subclasado", ;
Centered = .F., ;
ColorScheme = 1, ;
ColorSource = 4, ;
Comment = "", ;
ControlSource = "", ;
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 = 9, ;
FontStrikethru = .F., ;
FontUnderline = .F., ;
ForeColor = 0,0,0, ;
Height = 21, ;
HelpContextID = 0, ;
Left = 311, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_checkbox6", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
PictureMargin = 0, ;
PicturePosition = 13, ;
PictureSpacing = 0, ;
ReadOnly = .T., ;
RightToLeft = .F., ;
SpecialEffect = 0, ;
StatusBarText = "", ;
Style = 1, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 40, ;
Value = 0, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 156, ;
WordWrap = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
ENDDEFINE
*

19
TESTS/DATOS_READONLY/f_combobox.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_combobox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

1236
TESTS/DATOS_READONLY/f_combobox.f_base1.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1244
TESTS/DATOS_READONLY/f_combobox.sc2
View File

File diff suppressed because it is too large Load Diff

19
TESTS/DATOS_READONLY/f_commandgroup.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_commandgroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

1398
TESTS/DATOS_READONLY/f_commandgroup.f_base1.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1406
TESTS/DATOS_READONLY/f_commandgroup.sc2
View File

File diff suppressed because it is too large Load Diff

19
TESTS/DATOS_READONLY/f_containers.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

327
TESTS/DATOS_READONLY/f_containers.f_base1.sc2 Normal file
View File

@@ -0,0 +1,327 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS f_base1 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="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Oleboundcontrol1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_olebound1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_control1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Name = "F_base1"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CONTAINER NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CONTAINER SUBCLASADO"
Label2.Name = "Label2"
*</PropValue>
ADD OBJECT 'Cl_container1' AS cl_container WITH ;
Anchor = 0, ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
BorderColor = 255,255,0, ;
BorderWidth = 1, ;
ColorSource = 4, ;
Comment = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ForeColor = 0,0,0, ;
Height = 68, ;
HelpContextID = 0, ;
Left = 296, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_container1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\fondogris.bmp, ;
SpecialEffect = 2, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = 36, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 244
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
ADD OBJECT 'Cl_control1' 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 = (61), ;
HelpContextID = 0, ;
Left = (296), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_control1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
SpecialEffect = 2, ;
Style = 0, ;
TabIndex = 12, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = (196), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (242)
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
ADD OBJECT 'Cl_olebound1' AS cl_olebound WITH ;
Anchor = 0, ;
AutoActivate = 2, ;
AutoSize = .F., ;
AutoVerbMenu = .T., ;
Comment = "", ;
ControlSource = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
Height = 57, ;
HelpContextID = 0, ;
HostName = "", ;
Left = 296, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_olebound1", ;
Sizable = .T., ;
StatusBarText = "", ;
Stretch = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = 120, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 244
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="oleboundcontrol" />
ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ;
ActivePage = 2, ;
Anchor = 0, ;
ColorSource = 4, ;
Comment = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ErasePage = .T., ;
Height = 116, ;
HelpContextID = 0, ;
Left = 300, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_pageframe1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
PageCount = 3, ;
RightToLeft = .F., ;
StatusBarText = "", ;
TabOrientation = 0, ;
Tabs = .T., ;
TabStop = .T., ;
TabStretch = 1, ;
TabStyle = 1, ;
Tag = "", ;
Themes = .T., ;
ToolTipText = "", ;
Top = 280, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 256, ;
Page1.Name = "Page1", ;
Page2.Name = "Page2", ;
Page3.Caption = "Page3", ;
Page3.Name = "Page3"
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
ADD OBJECT 'Container1' AS container WITH ;
Anchor = 0, ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
BorderColor = 255,255,0, ;
BorderWidth = 1, ;
ColorSource = 4, ;
Comment = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ForeColor = 0,0,0, ;
Height = (68), ;
HelpContextID = 0, ;
Left = (28), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Container1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\fondogris.bmp, ;
SpecialEffect = 2, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = (36), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (244)
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Oleboundcontrol1' AS oleboundcontrol WITH ;
Anchor = 0, ;
AutoActivate = 2, ;
AutoSize = .F., ;
AutoVerbMenu = .T., ;
Comment = "", ;
ControlSource = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
Height = (57), ;
HelpContextID = 0, ;
HostName = "", ;
Left = (28), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Oleboundcontrol1", ;
Sizable = .T., ;
StatusBarText = "", ;
Stretch = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = (120), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (244)
*< END OBJECT: BaseClass="oleboundcontrol" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ActivePage = 2, ;
Anchor = 0, ;
ColorSource = 4, ;
Comment = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ErasePage = .T., ;
Height = (117), ;
HelpContextID = 0, ;
Left = (24), ;
MemberClass = "cl_page", ;
MemberClassLibrary = lib_controles.vcx, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Pageframe1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
PageCount = 3, ;
RightToLeft = .F., ;
StatusBarText = "", ;
TabOrientation = 0, ;
Tabs = .T., ;
TabStop = .T., ;
TabStretch = 1, ;
TabStyle = 1, ;
Tag = "", ;
Themes = .T., ;
ToolTipText = "", ;
Top = (280), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (256), ;
Cl_page1.BackColor = 240,240,240, ;
Cl_page1.Caption = "P<>gina 1", ;
Cl_page1.ColorSource = 4, ;
Cl_page1.Comment = "", ;
Cl_page1.DragIcon = ..\..\, ;
Cl_page1.DragMode = 0, ;
Cl_page1.Enabled = .T., ;
Cl_page1.FontBold = .F., ;
Cl_page1.FontCharSet = 0, ;
Cl_page1.FontCondense = .F., ;
Cl_page1.FontExtend = .F., ;
Cl_page1.FontItalic = .F., ;
Cl_page1.FontName = "Arial", ;
Cl_page1.FontOutline = .F., ;
Cl_page1.FontShadow = .F., ;
Cl_page1.FontSize = 8, ;
Cl_page1.FontStrikethru = .F., ;
Cl_page1.FontUnderline = .F., ;
Cl_page1.ForeColor = 0,0,0, ;
Cl_page1.HelpContextID = 0, ;
Cl_page1.MouseIcon = ..\..\, ;
Cl_page1.MousePointer = 0, ;
Cl_page1.Name = "Cl_page1", ;
Cl_page1.OLEDragMode = 0, ;
Cl_page1.OLEDragPicture = ..\..\, ;
Cl_page1.OLEDropEffects = 3, ;
Cl_page1.OLEDropMode = 0, ;
Cl_page1.PageOrder = 1, ;
Cl_page1.Picture = ..\..\, ;
Cl_page1.StatusBarText = "", ;
Cl_page1.Tag = "", ;
Cl_page1.ToolTipText = "", ;
Cl_page1.WhatsThisHelpID = -1, ;
Cl_page2.Caption = "P<>gina 2", ;
Cl_page2.Name = "Cl_page2", ;
Cl_page2.PageOrder = 2, ;
Cl_page3.Caption = "P<>gina 3", ;
Cl_page3.Name = "Cl_page3", ;
Cl_page3.PageOrder = 3
*< END OBJECT: BaseClass="pageframe" />
ENDDEFINE

335
TESTS/DATOS_READONLY/f_containers.sc2
View File

@@ -4,335 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS f_base1 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="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Oleboundcontrol1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_olebound1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_control1" UniqueID="" Timestamp="" />
DoCreate = .T.
Name = "F_base1"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CONTAINER NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CONTAINER SUBCLASADO"
Label2.Name = "Label2"
ADD OBJECT 'Cl_container1' AS cl_container WITH ;
Anchor = 0, ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
BorderColor = 255,255,0, ;
BorderWidth = 1, ;
ColorSource = 4, ;
Comment = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ForeColor = 0,0,0, ;
Height = 68, ;
HelpContextID = 0, ;
Left = 296, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_container1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\fondogris.bmp, ;
SpecialEffect = 2, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = 36, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 244
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
ADD OBJECT 'Cl_control1' 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 = (61), ;
HelpContextID = 0, ;
Left = (296), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_control1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = ..\..\, ;
SpecialEffect = 2, ;
Style = 0, ;
TabIndex = 12, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = (196), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (242)
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
ADD OBJECT 'Cl_olebound1' AS cl_olebound WITH ;
Anchor = 0, ;
AutoActivate = 2, ;
AutoSize = .F., ;
AutoVerbMenu = .T., ;
Comment = "", ;
ControlSource = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
Height = 57, ;
HelpContextID = 0, ;
HostName = "", ;
Left = 296, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_olebound1", ;
Sizable = .T., ;
StatusBarText = "", ;
Stretch = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = 120, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 244
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="oleboundcontrol" />
ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ;
ActivePage = 2, ;
Anchor = 0, ;
ColorSource = 4, ;
Comment = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ErasePage = .T., ;
Height = 116, ;
HelpContextID = 0, ;
Left = 300, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_pageframe1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
PageCount = 3, ;
RightToLeft = .F., ;
StatusBarText = "", ;
TabOrientation = 0, ;
Tabs = .T., ;
TabStop = .T., ;
TabStretch = 1, ;
TabStyle = 1, ;
Tag = "", ;
Themes = .T., ;
ToolTipText = "", ;
Top = 280, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 256, ;
Page1.Name = "Page1", ;
Page2.Name = "Page2", ;
Page3.Caption = "Page3", ;
Page3.Name = "Page3"
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
ADD OBJECT 'Container1' AS container WITH ;
Anchor = 0, ;
BackColor = 240,240,240, ;
BackStyle = 1, ;
BorderColor = 255,255,0, ;
BorderWidth = 1, ;
ColorSource = 4, ;
Comment = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ForeColor = 0,0,0, ;
Height = (68), ;
HelpContextID = 0, ;
Left = (28), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Container1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\fondogris.bmp, ;
SpecialEffect = 2, ;
StatusBarText = "", ;
Style = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = (36), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (244)
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Oleboundcontrol1' AS oleboundcontrol WITH ;
Anchor = 0, ;
AutoActivate = 2, ;
AutoSize = .F., ;
AutoVerbMenu = .T., ;
Comment = "", ;
ControlSource = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
Height = (57), ;
HelpContextID = 0, ;
HostName = "", ;
Left = (28), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Oleboundcontrol1", ;
Sizable = .T., ;
StatusBarText = "", ;
Stretch = 0, ;
TabStop = .T., ;
Tag = "", ;
ToolTipText = "", ;
Top = (120), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (244)
*< END OBJECT: BaseClass="oleboundcontrol" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ActivePage = 2, ;
Anchor = 0, ;
ColorSource = 4, ;
Comment = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
ErasePage = .T., ;
Height = (117), ;
HelpContextID = 0, ;
Left = (24), ;
MemberClass = "cl_page", ;
MemberClassLibrary = lib_controles.vcx, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Pageframe1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
PageCount = 3, ;
RightToLeft = .F., ;
StatusBarText = "", ;
TabOrientation = 0, ;
Tabs = .T., ;
TabStop = .T., ;
TabStretch = 1, ;
TabStyle = 1, ;
Tag = "", ;
Themes = .T., ;
ToolTipText = "", ;
Top = (280), ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (256), ;
Cl_page1.BackColor = 240,240,240, ;
Cl_page1.Caption = "P<>gina 1", ;
Cl_page1.ColorSource = 4, ;
Cl_page1.Comment = "", ;
Cl_page1.DragIcon = ..\..\, ;
Cl_page1.DragMode = 0, ;
Cl_page1.Enabled = .T., ;
Cl_page1.FontBold = .F., ;
Cl_page1.FontCharSet = 0, ;
Cl_page1.FontCondense = .F., ;
Cl_page1.FontExtend = .F., ;
Cl_page1.FontItalic = .F., ;
Cl_page1.FontName = "Arial", ;
Cl_page1.FontOutline = .F., ;
Cl_page1.FontShadow = .F., ;
Cl_page1.FontSize = 8, ;
Cl_page1.FontStrikethru = .F., ;
Cl_page1.FontUnderline = .F., ;
Cl_page1.ForeColor = 0,0,0, ;
Cl_page1.HelpContextID = 0, ;
Cl_page1.MouseIcon = ..\..\, ;
Cl_page1.MousePointer = 0, ;
Cl_page1.Name = "Cl_page1", ;
Cl_page1.OLEDragMode = 0, ;
Cl_page1.OLEDragPicture = ..\..\, ;
Cl_page1.OLEDropEffects = 3, ;
Cl_page1.OLEDropMode = 0, ;
Cl_page1.PageOrder = 1, ;
Cl_page1.Picture = ..\..\, ;
Cl_page1.StatusBarText = "", ;
Cl_page1.Tag = "", ;
Cl_page1.ToolTipText = "", ;
Cl_page1.WhatsThisHelpID = -1, ;
Cl_page2.Caption = "P<>gina 2", ;
Cl_page2.Name = "Cl_page2", ;
Cl_page2.PageOrder = 2, ;
Cl_page3.Caption = "P<>gina 3", ;
Cl_page3.Name = "Cl_page3", ;
Cl_page3.PageOrder = 3
*< END OBJECT: BaseClass="pageframe" />
ENDDEFINE
*

17
TESTS/DATOS_READONLY/f_form_aa.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,17 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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" />
*<PropValue>
DataSource = .NULL.
Name = "Dataenvironment"
TabStop = .F.
Visible = .F.
*</PropValue>
ENDDEFINE

2834
TESTS/DATOS_READONLY/f_form_aa.f_form_aa.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

2840
TESTS/DATOS_READONLY/f_form_aa.sc2
View File

File diff suppressed because it is too large Load Diff

17
TESTS/DATOS_READONLY/f_form_aa2.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,17 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_aa2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
*<PropValue>
DataSource = .NULL.
Name = "Dataenvironment"
TabStop = .F.
Visible = .F.
*</PropValue>
ENDDEFINE

1322
TESTS/DATOS_READONLY/f_form_aa2.f_form_aa1.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1328
TESTS/DATOS_READONLY/f_form_aa2.sc2
View File

File diff suppressed because it is too large Load Diff

17
TESTS/DATOS_READONLY/f_form_controles.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,17 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_controles.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Name = "Dataenvironment"
TabStop = .F.
Visible = .F.
*</PropValue>
ENDDEFINE

3128
TESTS/DATOS_READONLY/f_form_controles.f_base1.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

3134
TESTS/DATOS_READONLY/f_form_controles.sc2
View File

File diff suppressed because it is too large Load Diff

48
TESTS/DATOS_READONLY/f_formset.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,48 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="" />
*<PropValue>
AutoCloseTables = .T.
AutoOpenTables = .T.
Comment = ""
DataSource = .NULL.
DataSourceType = ""
Height = 200
InitialSelectedAlias = ""
Left = 1
Name = "Dataenvironment"
OpenViews = 0
Tag = ""
Top = 220
Width = 520
*</PropValue>
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

931
TESTS/DATOS_READONLY/f_formset.formset.sc2 Normal file
View File

@@ -0,0 +1,931 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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 formset AS formset
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="F_base1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Cl_header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Cl_grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.Cl_grid1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: c_testname
*</DefinedPropArrayMethod>
*<PropValue>
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
*</PropValue>
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., ;
Edit1.Name = "Edit1", ;
Edit1.RightToLeft = .F., ;
Label3.Name = "Label3", ;
Label3.RightToLeft = .F., ;
cmdCapturar.Name = "cmdCapturar", ;
cmdCapturar.RightToLeft = .F., ;
Label1.Name = "Label1", ;
Label1.RightToLeft = .F., ;
Label2.Name = "Label2", ;
Label2.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

968
TESTS/DATOS_READONLY/f_formset.sc2
View File

@@ -4,968 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< 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" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="formset" Baseclass="formset" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
AutoCloseTables = .T.
AutoOpenTables = .T.
Comment = ""
DataSource = .NULL.
DataSourceType = ""
Height = 200
InitialSelectedAlias = ""
Left = 1
Name = "Dataenvironment"
OpenViews = 0
Tag = ""
Top = 220
Width = 520
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "encuestas", ;
BufferModeOverride = 1, ;
Comment = "", ;
CursorSource = encuestas.dbf, ;
Exclusive = .F., ;
Filter = "", ;
Height = 90, ;
Left = 10, ;
Name = "Cursor1", ;
NoDataOnLoad = .F., ;
Order = "", ;
OrderDirection = 0, ;
ReadOnly = .F., ;
Tag = "", ;
Top = 20, ;
Width = 90
*< END OBJECT: BaseClass="cursor" />
ENDDEFINE
DEFINE CLASS formset AS formset
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="F_base1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Cl_header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Cl_grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.Cl_grid1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: c_testname
*</DefinedPropArrayMethod>
AutoRelease = .T.
BufferMode = 0
Comment = ""
c_testname = Formset_Test
DataSession = 2
Name = "Formset"
ReadCycle = .T.
ReadLock = .T.
ReadMouse = .T.
ReadSave = .F.
ReadTimeout = 0
Tag = ""
Visible = .T.
WindowList = ""
WindowType = 0
ADD OBJECT 'F_base1' AS f_base WITH ;
AllowOutput = .T., ;
AlwaysOnBottom = .F., ;
AlwaysOnTop = .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., ;
Edit1.Name = "Edit1", ;
Edit1.RightToLeft = .F., ;
Label3.Name = "Label3", ;
Label3.RightToLeft = .F., ;
cmdCapturar.Name = "cmdCapturar", ;
cmdCapturar.RightToLeft = .F., ;
Label1.Name = "Label1", ;
Label1.RightToLeft = .F., ;
Label2.Name = "Label2", ;
Label2.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
*

19
TESTS/DATOS_READONLY/f_listbox.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

567
TESTS/DATOS_READONLY/f_listbox.f_listbox_test.sc2 Normal file
View File

@@ -0,0 +1,567 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS f_listbox_test 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_ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Cl_ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ListBox1" UniqueID="" Timestamp="" />
*<PropValue>
c_testname = Listbox_Test
DoCreate = .T.
Left = 0
Name = "F_Listbox_Test"
Top = 0
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "LISTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "LISTBOX SUBCLASADOS"
Label2.Name = "Label2"
*</PropValue>
ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 308, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "Cl_ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 44, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
ADD OBJECT 'Container1' AS container WITH ;
Height = 97, ;
Left = 28, ;
Name = "Container1", ;
TabIndex = 9, ;
Top = 128, ;
Width = 512
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Container1.Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 280, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "Cl_ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 12, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
ADD OBJECT 'Container1.ListBox1' AS listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 8, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 11, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 12, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: BaseClass="listbox" />
ADD OBJECT 'ListBox1' AS listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = (36), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 11, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = (44), ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (224)
*< END OBJECT: BaseClass="listbox" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ErasePage = .T., ;
Height = 137, ;
Left = 28, ;
Name = "Pageframe1", ;
PageCount = 2, ;
TabIndex = 10, ;
Top = 252, ;
Width = 513, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'Pageframe1.Page1.Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 279, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "Cl_ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 8, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
ADD OBJECT 'Pageframe1.Page1.ListBox1' AS listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = "ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 11, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 8, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: BaseClass="listbox" />
PROCEDURE Cl_ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Container1.Cl_ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Container1.ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Pageframe1.Page1.Cl_ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Pageframe1.Page1.ListBox1.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)
this.ListIndex = 2
ENDPROC
ENDDEFINE

575
TESTS/DATOS_READONLY/f_listbox.sc2
View File

@@ -4,575 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="f_listbox_test" Baseclass="form" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS f_listbox_test 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_ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Cl_ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.ListBox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ListBox1" UniqueID="" Timestamp="" />
c_testname = Listbox_Test
DoCreate = .T.
Left = 0
Name = "F_Listbox_Test"
Top = 0
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "LISTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "LISTBOX SUBCLASADOS"
Label2.Name = "Label2"
ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 308, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "Cl_ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 44, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
ADD OBJECT 'Container1' AS container WITH ;
Height = 97, ;
Left = 28, ;
Name = "Container1", ;
TabIndex = 9, ;
Top = 128, ;
Width = 512
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Container1.Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 280, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "Cl_ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 12, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
ADD OBJECT 'Container1.ListBox1' AS listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 8, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 11, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 12, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: BaseClass="listbox" />
ADD OBJECT 'ListBox1' AS listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DefHeight = , ;
DefLeft = , ;
DefTop = , ;
DefWidth = , ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = (36), ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 11, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = (44), ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = (224)
*< END OBJECT: BaseClass="listbox" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ErasePage = .T., ;
Height = 137, ;
Left = 28, ;
Name = "Pageframe1", ;
PageCount = 2, ;
TabIndex = 10, ;
Top = 252, ;
Width = 513, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'Pageframe1.Page1.Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = 279, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
MoverBars = .F., ;
MultiSelect = .F., ;
Name = "Cl_ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 6, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 8, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
ADD OBJECT 'Pageframe1.Page1.ListBox1' AS listbox WITH ;
Anchor = 0, ;
AutoHideScrollbar = 0, ;
BorderColor = 255,255,0, ;
BoundColumn = 2, ;
BoundTo = .F., ;
ColorScheme = 2, ;
ColorSource = 4, ;
ColumnCount = 2, ;
ColumnLines = .T., ;
ColumnWidths = "150,150", ;
Comment = "", ;
ControlSource = "", ;
DisabledBackColor = 0,128,192, ;
DisabledForeColor = 128,0,255, ;
DisabledItemBackColor = 255,255,255, ;
DisabledItemForeColor = 109,109,109, ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
FirstElement = 1, ;
FontBold = .F., ;
FontCharSet = 0, ;
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 = "ListBox1", ;
NullDisplay = "", ;
NumberOfElements = 0, ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\sobrepostal.bmp, ;
RightToLeft = .F., ;
RowSource = "", ;
RowSourceType = 0, ;
SelectedItemBackColor = 51,153,255, ;
SelectedItemForeColor = 255,255,255, ;
Sorted = .F., ;
SpecialEffect = 1, ;
StatusBarText = "", ;
TabIndex = 11, ;
TabStop = .T., ;
Tag = "", ;
TerminateRead = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 8, ;
Value = , ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: BaseClass="listbox" />
PROCEDURE Cl_ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Container1.Cl_ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Container1.ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Pageframe1.Page1.Cl_ListBox1.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)
this.ListIndex = 2
ENDPROC
PROCEDURE Pageframe1.Page1.ListBox1.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)
this.ListIndex = 2
ENDPROC
ENDDEFINE
*

19
TESTS/DATOS_READONLY/f_nullchars_incode.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

28
TESTS/DATOS_READONLY/f_nullchars_incode.form1.sc2 Normal file
View File

@@ -0,0 +1,28 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
Caption = "Form1"
DoCreate = .T.
Height = 79
Left = 0
Name = "Form1"
Top = 0
Width = 394
*</PropValue>
PROCEDURE Click
LPARAMETERS p1, p2, p3
ENDPROC
PROCEDURE Load
LPARAMETERS p1, p2, p3
ENDPROC
ENDDEFINE

36
TESTS/DATOS_READONLY/f_nullchars_incode.sc2
View File

@@ -4,36 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="form1" Baseclass="form" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
Caption = "Form1"
DoCreate = .T.
Height = 79
Left = 0
Name = "Form1"
Top = 0
Width = 394
PROCEDURE Click
LPARAMETERS p1, p2, p3
ENDPROC
PROCEDURE Load
LPARAMETERS p1, p2, p3
ENDPROC
ENDDEFINE
*

19
TESTS/DATOS_READONLY/f_optiongroup.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_optiongroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

1427
TESTS/DATOS_READONLY/f_optiongroup.f_optiongroup_test.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1435
TESTS/DATOS_READONLY/f_optiongroup.sc2
View File

File diff suppressed because it is too large Load Diff

19
TESTS/DATOS_READONLY/f_optiongroup2.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

204
TESTS/DATOS_READONLY/f_optiongroup2.f_optiongroup1.sc2 Normal file
View File

@@ -0,0 +1,204 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "F_optiongroup1"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Optiongroup1.Anchor = 0
Optiongroup1.AutoSize = .F.
Optiongroup1.BackColor = 240,240,240
Optiongroup1.BackStyle = 0
Optiongroup1.BorderColor = 100,100,100
Optiongroup1.BorderStyle = 1
Optiongroup1.ButtonCount = 3
Optiongroup1.Cl_option1.Alignment = 0
Optiongroup1.Cl_option1.Anchor = 0
Optiongroup1.Cl_option1.AutoSize = .F.
Optiongroup1.Cl_option1.BackColor = 240,240,240
Optiongroup1.Cl_option1.BackStyle = 1
Optiongroup1.Cl_option1.Caption = "La opci<63>n 1"
Optiongroup1.Cl_option1.ColorScheme = 1
Optiongroup1.Cl_option1.ColorSource = 4
Optiongroup1.Cl_option1.Comment = ""
Optiongroup1.Cl_option1.ControlSource = ""
Optiongroup1.Cl_option1.DefHeight =
Optiongroup1.Cl_option1.DefLeft =
Optiongroup1.Cl_option1.DefTop =
Optiongroup1.Cl_option1.DefWidth =
Optiongroup1.Cl_option1.DisabledBackColor = 0,128,192
Optiongroup1.Cl_option1.DisabledForeColor = 128,0,255
Optiongroup1.Cl_option1.DisabledPicture = bmps\treeview.bmp
Optiongroup1.Cl_option1.DownPicture = ..\..\
Optiongroup1.Cl_option1.DragIcon = ..\..\
Optiongroup1.Cl_option1.DragMode = 0
Optiongroup1.Cl_option1.Enabled = .T.
Optiongroup1.Cl_option1.FontBold = .F.
Optiongroup1.Cl_option1.FontCondense = .F.
Optiongroup1.Cl_option1.FontExtend = .F.
Optiongroup1.Cl_option1.FontItalic = .F.
Optiongroup1.Cl_option1.FontName = "Arial"
Optiongroup1.Cl_option1.FontOutline = .F.
Optiongroup1.Cl_option1.FontShadow = .F.
Optiongroup1.Cl_option1.FontSize = 8
Optiongroup1.Cl_option1.FontStrikethru = .F.
Optiongroup1.Cl_option1.FontUnderline = .F.
Optiongroup1.Cl_option1.ForeColor = 0,0,0
Optiongroup1.Cl_option1.Height = (16)
Optiongroup1.Cl_option1.HelpContextID = 0
Optiongroup1.Cl_option1.Left = (16)
Optiongroup1.Cl_option1.MouseIcon = ..\..\
Optiongroup1.Cl_option1.MousePointer = 0
Optiongroup1.Cl_option1.Name = "Cl_option1"
Optiongroup1.Cl_option1.OLEDragMode = 0
Optiongroup1.Cl_option1.OLEDragPicture = ..\..\
Optiongroup1.Cl_option1.OLEDropEffects = 3
Optiongroup1.Cl_option1.OLEDropMode = 0
Optiongroup1.Cl_option1.Picture = bmps\sobrepostal.bmp
Optiongroup1.Cl_option1.PictureMargin = 0
Optiongroup1.Cl_option1.PicturePosition = 4
Optiongroup1.Cl_option1.PictureSpacing = 0
Optiongroup1.Cl_option1.RightToLeft = .F.
Optiongroup1.Cl_option1.SpecialEffect = 0
Optiongroup1.Cl_option1.StatusBarText = ""
Optiongroup1.Cl_option1.Style = 0
Optiongroup1.Cl_option1.TabIndex = 1
Optiongroup1.Cl_option1.TabStop = .T.
Optiongroup1.Cl_option1.Tag = ""
Optiongroup1.Cl_option1.TerminateRead = .F.
Optiongroup1.Cl_option1.test_aa = .F.
Optiongroup1.Cl_option1.Themes = .T.
Optiongroup1.Cl_option1.ToolTipText = ""
Optiongroup1.Cl_option1.Top = (4)
Optiongroup1.Cl_option1.Value = 0
Optiongroup1.Cl_option1.Visible = .T.
Optiongroup1.Cl_option1.WhatsThisHelpID = -1
Optiongroup1.Cl_option1.Width = (74)
Optiongroup1.Cl_option1.WordWrap = .F.
Optiongroup1.Cl_option2.Left = 16
Optiongroup1.Cl_option2.Name = "Cl_option2"
Optiongroup1.Cl_option2.Top = 28
Optiongroup1.Cl_option3.Left = 16
Optiongroup1.Cl_option3.Name = "Cl_option3"
Optiongroup1.Cl_option3.Top = 52
Optiongroup1.ColorSource = 4
Optiongroup1.Comment = ""
Optiongroup1.ControlSource = ""
Optiongroup1.DefHeight =
Optiongroup1.DefLeft =
Optiongroup1.DefTop =
Optiongroup1.DefWidth =
Optiongroup1.DragIcon = ..\..\
Optiongroup1.DragMode = 0
Optiongroup1.Enabled = .T.
Optiongroup1.Height = (76)
Optiongroup1.HelpContextID = 0
Optiongroup1.Left = (24)
Optiongroup1.MemberClassLibrary = lib_controles.vcx
Optiongroup1.MouseIcon = ..\..\
Optiongroup1.MousePointer = 0
Optiongroup1.Name = "Optiongroup1"
Optiongroup1.OLEDragMode = 0
Optiongroup1.OLEDragPicture = ..\..\
Optiongroup1.OLEDropEffects = 3
Optiongroup1.OLEDropMode = 0
Optiongroup1.SpecialEffect = 0
Optiongroup1.StatusBarText = ""
Optiongroup1.TabIndex = 1
Optiongroup1.Tag = ""
Optiongroup1.TerminateRead = .F.
Optiongroup1.Themes = .T.
Optiongroup1.ToolTipText = ""
Optiongroup1.Top = (24)
Optiongroup1.Value = 2
Optiongroup1.Visible = .T.
Optiongroup1.WhatsThisHelpID = -1
Optiongroup1.Width = (248)
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.Top = 4
Cl_optiongroup1.Option2.Left = 8
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.Top = 28
Cl_optiongroup1.Option3.Left = 8
Cl_optiongroup1.Option3.Name = "Option3"
Cl_optiongroup1.Option3.Top = 52
Cl_optiongroup2.Name = "Cl_optiongroup2"
Cl_optiongroup2.Option1.Left = 8
Cl_optiongroup2.Option1.Name = "Option1"
Cl_optiongroup2.Option1.Top = 4
Cl_optiongroup2.Option2.Left = 8
Cl_optiongroup2.Option2.Name = "Option2"
Cl_optiongroup2.Option2.Top = 28
Cl_optiongroup2.Option3.Left = 8
Cl_optiongroup2.Option3.Name = "Option3"
Cl_optiongroup2.Option3.Top = 52
Pageframe1.ErasePage = .T.
Pageframe1.Name = "Pageframe1"
Pageframe1.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
Pageframe1.Page1.Cl_optiongroup1.Option1.Left = 8
Pageframe1.Page1.Cl_optiongroup1.Option1.Name = "Option1"
Pageframe1.Page1.Cl_optiongroup1.Option1.Top = 8
Pageframe1.Page1.Cl_optiongroup1.Option2.Left = 8
Pageframe1.Page1.Cl_optiongroup1.Option2.Name = "Option2"
Pageframe1.Page1.Cl_optiongroup1.Option2.Top = 32
Pageframe1.Page1.Cl_optiongroup1.Option3.Left = 8
Pageframe1.Page1.Cl_optiongroup1.Option3.Name = "Option3"
Pageframe1.Page1.Cl_optiongroup1.Option3.Top = 56
Pageframe1.Page1.Cl_optiongroup2.Name = "Cl_optiongroup2"
Pageframe1.Page1.Cl_optiongroup2.Option1.Left = 8
Pageframe1.Page1.Cl_optiongroup2.Option1.Name = "Option1"
Pageframe1.Page1.Cl_optiongroup2.Option1.Top = 4
Pageframe1.Page1.Cl_optiongroup2.Option2.Left = 8
Pageframe1.Page1.Cl_optiongroup2.Option2.Name = "Option2"
Pageframe1.Page1.Cl_optiongroup2.Option2.Top = 28
Pageframe1.Page1.Cl_optiongroup2.Option3.Left = 8
Pageframe1.Page1.Cl_optiongroup2.Option3.Name = "Option3"
Pageframe1.Page1.Cl_optiongroup2.Option3.Top = 52
Pageframe1.Page1.Label2.Name = "Label2"
Pageframe1.Page1.Name = "Page1"
Pageframe1.Page1.Optiongroup1.Cl_option1.Left = 16
Pageframe1.Page1.Optiongroup1.Cl_option1.Name = "Cl_option1"
Pageframe1.Page1.Optiongroup1.Cl_option1.Top = 4
Pageframe1.Page1.Optiongroup1.Cl_option2.Left = 16
Pageframe1.Page1.Optiongroup1.Cl_option2.Name = "Cl_option2"
Pageframe1.Page1.Optiongroup1.Cl_option2.Top = 28
Pageframe1.Page1.Optiongroup1.Cl_option3.Left = 16
Pageframe1.Page1.Optiongroup1.Cl_option3.Name = "Cl_option3"
Pageframe1.Page1.Optiongroup1.Cl_option3.Top = 52
Pageframe1.Page1.Optiongroup1.Name = "Optiongroup1"
Pageframe1.Page1.Optiongroup2.Cl_option1.Left = 16
Pageframe1.Page1.Optiongroup2.Cl_option1.Name = "Cl_option1"
Pageframe1.Page1.Optiongroup2.Cl_option1.Top = 4
Pageframe1.Page1.Optiongroup2.Cl_option2.Left = 16
Pageframe1.Page1.Optiongroup2.Cl_option2.Name = "Cl_option2"
Pageframe1.Page1.Optiongroup2.Cl_option2.Top = 28
Pageframe1.Page1.Optiongroup2.Cl_option3.Left = 16
Pageframe1.Page1.Optiongroup2.Cl_option3.Name = "Cl_option3"
Pageframe1.Page1.Optiongroup2.Cl_option3.Top = 52
Pageframe1.Page1.Optiongroup2.Name = "Optiongroup2"
Pageframe1.Page2.Name = "Page2"
Optiongroup2.Cl_option1.Left = 16
Optiongroup2.Cl_option1.Name = "Cl_option1"
Optiongroup2.Cl_option1.Top = 4
Optiongroup2.Cl_option2.Left = 16
Optiongroup2.Cl_option2.Name = "Cl_option2"
Optiongroup2.Cl_option2.Top = 28
Optiongroup2.Cl_option3.Left = 16
Optiongroup2.Cl_option3.Name = "Cl_option3"
Optiongroup2.Cl_option3.Top = 52
Optiongroup2.Name = "Optiongroup2"
*</PropValue>
ENDDEFINE

212
TESTS/DATOS_READONLY/f_optiongroup2.sc2
View File

@@ -4,212 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="f_optiongroup1" Baseclass="form" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
DoCreate = .T.
Name = "F_optiongroup1"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Optiongroup1.Anchor = 0
Optiongroup1.AutoSize = .F.
Optiongroup1.BackColor = 240,240,240
Optiongroup1.BackStyle = 0
Optiongroup1.BorderColor = 100,100,100
Optiongroup1.BorderStyle = 1
Optiongroup1.ButtonCount = 3
Optiongroup1.Cl_option1.Alignment = 0
Optiongroup1.Cl_option1.Anchor = 0
Optiongroup1.Cl_option1.AutoSize = .F.
Optiongroup1.Cl_option1.BackColor = 240,240,240
Optiongroup1.Cl_option1.BackStyle = 1
Optiongroup1.Cl_option1.Caption = "La opci<63>n 1"
Optiongroup1.Cl_option1.ColorScheme = 1
Optiongroup1.Cl_option1.ColorSource = 4
Optiongroup1.Cl_option1.Comment = ""
Optiongroup1.Cl_option1.ControlSource = ""
Optiongroup1.Cl_option1.DefHeight =
Optiongroup1.Cl_option1.DefLeft =
Optiongroup1.Cl_option1.DefTop =
Optiongroup1.Cl_option1.DefWidth =
Optiongroup1.Cl_option1.DisabledBackColor = 0,128,192
Optiongroup1.Cl_option1.DisabledForeColor = 128,0,255
Optiongroup1.Cl_option1.DisabledPicture = bmps\treeview.bmp
Optiongroup1.Cl_option1.DownPicture = ..\..\
Optiongroup1.Cl_option1.DragIcon = ..\..\
Optiongroup1.Cl_option1.DragMode = 0
Optiongroup1.Cl_option1.Enabled = .T.
Optiongroup1.Cl_option1.FontBold = .F.
Optiongroup1.Cl_option1.FontCondense = .F.
Optiongroup1.Cl_option1.FontExtend = .F.
Optiongroup1.Cl_option1.FontItalic = .F.
Optiongroup1.Cl_option1.FontName = "Arial"
Optiongroup1.Cl_option1.FontOutline = .F.
Optiongroup1.Cl_option1.FontShadow = .F.
Optiongroup1.Cl_option1.FontSize = 8
Optiongroup1.Cl_option1.FontStrikethru = .F.
Optiongroup1.Cl_option1.FontUnderline = .F.
Optiongroup1.Cl_option1.ForeColor = 0,0,0
Optiongroup1.Cl_option1.Height = (16)
Optiongroup1.Cl_option1.HelpContextID = 0
Optiongroup1.Cl_option1.Left = (16)
Optiongroup1.Cl_option1.MouseIcon = ..\..\
Optiongroup1.Cl_option1.MousePointer = 0
Optiongroup1.Cl_option1.Name = "Cl_option1"
Optiongroup1.Cl_option1.OLEDragMode = 0
Optiongroup1.Cl_option1.OLEDragPicture = ..\..\
Optiongroup1.Cl_option1.OLEDropEffects = 3
Optiongroup1.Cl_option1.OLEDropMode = 0
Optiongroup1.Cl_option1.Picture = bmps\sobrepostal.bmp
Optiongroup1.Cl_option1.PictureMargin = 0
Optiongroup1.Cl_option1.PicturePosition = 4
Optiongroup1.Cl_option1.PictureSpacing = 0
Optiongroup1.Cl_option1.RightToLeft = .F.
Optiongroup1.Cl_option1.SpecialEffect = 0
Optiongroup1.Cl_option1.StatusBarText = ""
Optiongroup1.Cl_option1.Style = 0
Optiongroup1.Cl_option1.TabIndex = 1
Optiongroup1.Cl_option1.TabStop = .T.
Optiongroup1.Cl_option1.Tag = ""
Optiongroup1.Cl_option1.TerminateRead = .F.
Optiongroup1.Cl_option1.test_aa = .F.
Optiongroup1.Cl_option1.Themes = .T.
Optiongroup1.Cl_option1.ToolTipText = ""
Optiongroup1.Cl_option1.Top = (4)
Optiongroup1.Cl_option1.Value = 0
Optiongroup1.Cl_option1.Visible = .T.
Optiongroup1.Cl_option1.WhatsThisHelpID = -1
Optiongroup1.Cl_option1.Width = (74)
Optiongroup1.Cl_option1.WordWrap = .F.
Optiongroup1.Cl_option2.Left = 16
Optiongroup1.Cl_option2.Name = "Cl_option2"
Optiongroup1.Cl_option2.Top = 28
Optiongroup1.Cl_option3.Left = 16
Optiongroup1.Cl_option3.Name = "Cl_option3"
Optiongroup1.Cl_option3.Top = 52
Optiongroup1.ColorSource = 4
Optiongroup1.Comment = ""
Optiongroup1.ControlSource = ""
Optiongroup1.DefHeight =
Optiongroup1.DefLeft =
Optiongroup1.DefTop =
Optiongroup1.DefWidth =
Optiongroup1.DragIcon = ..\..\
Optiongroup1.DragMode = 0
Optiongroup1.Enabled = .T.
Optiongroup1.Height = (76)
Optiongroup1.HelpContextID = 0
Optiongroup1.Left = (24)
Optiongroup1.MemberClassLibrary = lib_controles.vcx
Optiongroup1.MouseIcon = ..\..\
Optiongroup1.MousePointer = 0
Optiongroup1.Name = "Optiongroup1"
Optiongroup1.OLEDragMode = 0
Optiongroup1.OLEDragPicture = ..\..\
Optiongroup1.OLEDropEffects = 3
Optiongroup1.OLEDropMode = 0
Optiongroup1.SpecialEffect = 0
Optiongroup1.StatusBarText = ""
Optiongroup1.TabIndex = 1
Optiongroup1.Tag = ""
Optiongroup1.TerminateRead = .F.
Optiongroup1.Themes = .T.
Optiongroup1.ToolTipText = ""
Optiongroup1.Top = (24)
Optiongroup1.Value = 2
Optiongroup1.Visible = .T.
Optiongroup1.WhatsThisHelpID = -1
Optiongroup1.Width = (248)
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.Top = 4
Cl_optiongroup1.Option2.Left = 8
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.Top = 28
Cl_optiongroup1.Option3.Left = 8
Cl_optiongroup1.Option3.Name = "Option3"
Cl_optiongroup1.Option3.Top = 52
Cl_optiongroup2.Name = "Cl_optiongroup2"
Cl_optiongroup2.Option1.Left = 8
Cl_optiongroup2.Option1.Name = "Option1"
Cl_optiongroup2.Option1.Top = 4
Cl_optiongroup2.Option2.Left = 8
Cl_optiongroup2.Option2.Name = "Option2"
Cl_optiongroup2.Option2.Top = 28
Cl_optiongroup2.Option3.Left = 8
Cl_optiongroup2.Option3.Name = "Option3"
Cl_optiongroup2.Option3.Top = 52
Pageframe1.ErasePage = .T.
Pageframe1.Name = "Pageframe1"
Pageframe1.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
Pageframe1.Page1.Cl_optiongroup1.Option1.Left = 8
Pageframe1.Page1.Cl_optiongroup1.Option1.Name = "Option1"
Pageframe1.Page1.Cl_optiongroup1.Option1.Top = 8
Pageframe1.Page1.Cl_optiongroup1.Option2.Left = 8
Pageframe1.Page1.Cl_optiongroup1.Option2.Name = "Option2"
Pageframe1.Page1.Cl_optiongroup1.Option2.Top = 32
Pageframe1.Page1.Cl_optiongroup1.Option3.Left = 8
Pageframe1.Page1.Cl_optiongroup1.Option3.Name = "Option3"
Pageframe1.Page1.Cl_optiongroup1.Option3.Top = 56
Pageframe1.Page1.Cl_optiongroup2.Name = "Cl_optiongroup2"
Pageframe1.Page1.Cl_optiongroup2.Option1.Left = 8
Pageframe1.Page1.Cl_optiongroup2.Option1.Name = "Option1"
Pageframe1.Page1.Cl_optiongroup2.Option1.Top = 4
Pageframe1.Page1.Cl_optiongroup2.Option2.Left = 8
Pageframe1.Page1.Cl_optiongroup2.Option2.Name = "Option2"
Pageframe1.Page1.Cl_optiongroup2.Option2.Top = 28
Pageframe1.Page1.Cl_optiongroup2.Option3.Left = 8
Pageframe1.Page1.Cl_optiongroup2.Option3.Name = "Option3"
Pageframe1.Page1.Cl_optiongroup2.Option3.Top = 52
Pageframe1.Page1.Label2.Name = "Label2"
Pageframe1.Page1.Name = "Page1"
Pageframe1.Page1.Optiongroup1.Cl_option1.Left = 16
Pageframe1.Page1.Optiongroup1.Cl_option1.Name = "Cl_option1"
Pageframe1.Page1.Optiongroup1.Cl_option1.Top = 4
Pageframe1.Page1.Optiongroup1.Cl_option2.Left = 16
Pageframe1.Page1.Optiongroup1.Cl_option2.Name = "Cl_option2"
Pageframe1.Page1.Optiongroup1.Cl_option2.Top = 28
Pageframe1.Page1.Optiongroup1.Cl_option3.Left = 16
Pageframe1.Page1.Optiongroup1.Cl_option3.Name = "Cl_option3"
Pageframe1.Page1.Optiongroup1.Cl_option3.Top = 52
Pageframe1.Page1.Optiongroup1.Name = "Optiongroup1"
Pageframe1.Page1.Optiongroup2.Cl_option1.Left = 16
Pageframe1.Page1.Optiongroup2.Cl_option1.Name = "Cl_option1"
Pageframe1.Page1.Optiongroup2.Cl_option1.Top = 4
Pageframe1.Page1.Optiongroup2.Cl_option2.Left = 16
Pageframe1.Page1.Optiongroup2.Cl_option2.Name = "Cl_option2"
Pageframe1.Page1.Optiongroup2.Cl_option2.Top = 28
Pageframe1.Page1.Optiongroup2.Cl_option3.Left = 16
Pageframe1.Page1.Optiongroup2.Cl_option3.Name = "Cl_option3"
Pageframe1.Page1.Optiongroup2.Cl_option3.Top = 52
Pageframe1.Page1.Optiongroup2.Name = "Optiongroup2"
Pageframe1.Page2.Name = "Page2"
Optiongroup2.Cl_option1.Left = 16
Optiongroup2.Cl_option1.Name = "Cl_option1"
Optiongroup2.Cl_option1.Top = 4
Optiongroup2.Cl_option2.Left = 16
Optiongroup2.Cl_option2.Name = "Cl_option2"
Optiongroup2.Cl_option2.Top = 28
Optiongroup2.Cl_option3.Left = 16
Optiongroup2.Cl_option3.Name = "Cl_option3"
Optiongroup2.Cl_option3.Top = 52
Optiongroup2.Name = "Optiongroup2"
ENDDEFINE
*

17
TESTS/DATOS_READONLY/f_test.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,17 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Name = "Dataenvironment"
TabStop = .F.
Visible = .F.
*</PropValue>
ENDDEFINE

452
TESTS/DATOS_READONLY/f_test.f_form_controles1.sc2 Normal file
View File

@@ -0,0 +1,452 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "F_form_controles1"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Label4.Alignment = 0
Label4.Anchor = 0
Label4.AutoSize = .F.
Label4.BackColor = 240,240,240
Label4.BackStyle = 1
Label4.BorderStyle = 0
Label4.Caption = "Label4"
Label4.ColorScheme = 1
Label4.ColorSource = 4
Label4.Comment = ""
Label4.DefHeight =
Label4.DefLeft =
Label4.DefTop =
Label4.DefWidth =
Label4.DisabledBackColor = 240,240,240
Label4.DisabledForeColor = 109,109,109
Label4.DragIcon = ..\..\
Label4.DragMode = 0
Label4.Enabled = .T.
Label4.FontBold = .F.
Label4.FontCondense = .F.
Label4.FontExtend = .F.
Label4.FontItalic = .F.
Label4.FontName = "Arial"
Label4.FontOutline = .F.
Label4.FontShadow = .F.
Label4.FontSize = 8
Label4.FontStrikethru = .F.
Label4.FontUnderline = .F.
Label4.ForeColor = 0,0,0
Label4.Height = (17)
Label4.HelpContextID = 0
Label4.Left = (44)
Label4.MouseIcon = ..\..\
Label4.MousePointer = 0
Label4.Name = "Label4"
Label4.OLEDragMode = 0
Label4.OLEDragPicture = ..\..\
Label4.OLEDropEffects = 3
Label4.OLEDropMode = 0
Label4.RightToLeft = .F.
Label4.Rotation = 0
Label4.Style = 0
Label4.TabIndex = 6
Label4.Tag = ""
Label4.ToolTipText = ""
Label4.Top = (40)
Label4.WhatsThisHelpID = -1
Label4.Width = (104)
Label4.WordWrap = .F.
Shape1.Anchor = 0
Shape1.BackColor = 240,240,240
Shape1.BackStyle = 1
Shape1.BorderColor = 100,100,100
Shape1.BorderStyle = 1
Shape1.BorderWidth = 1
Shape1.ColorScheme = 1
Shape1.ColorSource = 4
Shape1.Comment = ""
Shape1.Curvature = 0
Shape1.DefHeight =
Shape1.DefLeft =
Shape1.DefTop =
Shape1.DefWidth =
Shape1.DragIcon = ..\..\
Shape1.DragMode = 0
Shape1.DrawMode = 13
Shape1.Enabled = .T.
Shape1.FillColor = 0,0,0
Shape1.FillStyle = 1
Shape1.Height = (17)
Shape1.HelpContextID = 0
Shape1.Left = (44)
Shape1.MouseIcon = ..\..\
Shape1.MousePointer = 0
Shape1.Name = "Shape1"
Shape1.OLEDragMode = 0
Shape1.OLEDragPicture = ..\..\
Shape1.OLEDropEffects = 3
Shape1.OLEDropMode = 0
Shape1.PolyPoints = ""
Shape1.Rotation = 0
Shape1.SpecialEffect = 0
Shape1.StatusBarText = ""
Shape1.Style = 0
Shape1.Tag = ""
Shape1.ToolTipText = ""
Shape1.Top = (60)
Shape1.Visible = .T.
Shape1.WhatsThisHelpID = -1
Shape1.Width = (105)
Line1.Anchor = 0
Line1.BorderColor = 100,100,100
Line1.BorderStyle = 1
Line1.BorderWidth = 1
Line1.ColorSource = 4
Line1.Comment = ""
Line1.DefHeight =
Line1.DefLeft =
Line1.DefTop =
Line1.DefWidth =
Line1.DragIcon = ..\..\
Line1.DragMode = 0
Line1.DrawMode = 13
Line1.Enabled = .T.
Line1.Height = (8)
Line1.HelpContextID = 0
Line1.Left = (44)
Line1.LineSlant = "\"
Line1.MouseIcon = ..\..\
Line1.MousePointer = 0
Line1.Name = "Line1"
Line1.OLEDragMode = 0
Line1.OLEDragPicture = ..\..\
Line1.OLEDropEffects = 3
Line1.OLEDropMode = 0
Line1.PolyPoints = ""
Line1.Rotation = 0
Line1.StatusBarText = ""
Line1.Tag = ""
Line1.ToolTipText = ""
Line1.Top = (80)
Line1.Visible = .T.
Line1.WhatsThisHelpID = -1
Line1.Width = (104)
Image1.Anchor = 0
Image1.BackStyle = 1
Image1.BorderColor = 100,100,100
Image1.BorderStyle = 0
Image1.ColorSource = 4
Image1.Comment = ""
Image1.DefHeight =
Image1.DefLeft =
Image1.DefTop =
Image1.DefWidth =
Image1.DragIcon = ..\..\
Image1.DragMode = 0
Image1.Enabled = .T.
Image1.Height = (16)
Image1.HelpContextID = 0
Image1.Left = (44)
Image1.MouseIcon = ..\..\
Image1.MousePointer = 0
Image1.Name = "Image1"
Image1.OLEDragMode = 0
Image1.OLEDragPicture = ..\..\
Image1.OLEDropEffects = 3
Image1.OLEDropMode = 0
Image1.Picture = bmps\sobrepostal.bmp
Image1.RotateFlip = 0
Image1.StatusBarText = ""
Image1.Stretch = 0
Image1.Tag = ""
Image1.Themes = .T.
Image1.ToolTipText = ""
Image1.Top = (100)
Image1.Visible = .T.
Image1.WhatsThisHelpID = -1
Image1.Width = (17)
Image2.Name = "Image2"
Image3.Height = 16
Image3.Name = "Image3"
Image3.Width = 17
Image4.Name = "Image4"
Image5.Height = 16
Image5.Name = "Image5"
Image5.Width = 17
Pageframe1.ActivePage = 2
Pageframe1.Anchor = 0
Pageframe1.cl_page1.BackColor = 240,240,240
Pageframe1.cl_page1.Caption = "Page1"
Pageframe1.cl_page1.ColorSource = 4
Pageframe1.cl_page1.Comment = ""
Pageframe1.cl_page1.DragIcon = ..\..\
Pageframe1.cl_page1.DragMode = 0
Pageframe1.cl_page1.Enabled = .T.
Pageframe1.cl_page1.FontBold = .F.
Pageframe1.cl_page1.FontCharSet = 0
Pageframe1.cl_page1.FontCondense = .F.
Pageframe1.cl_page1.FontExtend = .F.
Pageframe1.cl_page1.FontItalic = .F.
Pageframe1.cl_page1.FontName = "Arial"
Pageframe1.cl_page1.FontOutline = .F.
Pageframe1.cl_page1.FontShadow = .F.
Pageframe1.cl_page1.FontSize = 8
Pageframe1.cl_page1.FontStrikethru = .F.
Pageframe1.cl_page1.FontUnderline = .F.
Pageframe1.cl_page1.ForeColor = 0,0,0
Pageframe1.cl_page1.HelpContextID = 0
Pageframe1.cl_page1.MouseIcon = ..\..\
Pageframe1.cl_page1.MousePointer = 0
Pageframe1.cl_page1.Name = "cl_page1"
Pageframe1.cl_page1.OLEDragMode = 0
Pageframe1.cl_page1.OLEDragPicture = ..\..\
Pageframe1.cl_page1.OLEDropEffects = 3
Pageframe1.cl_page1.OLEDropMode = 0
Pageframe1.cl_page1.PageOrder = 1
Pageframe1.cl_page1.StatusBarText = ""
Pageframe1.cl_page1.Tag = ""
Pageframe1.cl_page1.ToolTipText = ""
Pageframe1.cl_page1.WhatsThisHelpID = -1
Pageframe1.cl_page2.Image1.Height = 16
Pageframe1.cl_page2.Image1.Name = "Image1"
Pageframe1.cl_page2.Image1.Width = 17
Pageframe1.cl_page2.Image10.Height = 16
Pageframe1.cl_page2.Image10.Name = "Image10"
Pageframe1.cl_page2.Image10.Width = 17
Pageframe1.cl_page2.Image2.Name = "Image2"
Pageframe1.cl_page2.Image3.Height = 16
Pageframe1.cl_page2.Image3.Name = "Image3"
Pageframe1.cl_page2.Image3.Width = 17
Pageframe1.cl_page2.Image4.Name = "Image4"
Pageframe1.cl_page2.Image5.Height = 16
Pageframe1.cl_page2.Image5.Name = "Image5"
Pageframe1.cl_page2.Image5.Width = 17
Pageframe1.cl_page2.Image6.Height = 16
Pageframe1.cl_page2.Image6.Name = "Image6"
Pageframe1.cl_page2.Image6.Width = 17
Pageframe1.cl_page2.Image7.Name = "Image7"
Pageframe1.cl_page2.Image8.Height = 16
Pageframe1.cl_page2.Image8.Name = "Image8"
Pageframe1.cl_page2.Image8.Width = 17
Pageframe1.cl_page2.Image9.Name = "Image9"
Pageframe1.cl_page2.Label4.Alignment = 0
Pageframe1.cl_page2.Label4.Anchor = 0
Pageframe1.cl_page2.Label4.AutoSize = .F.
Pageframe1.cl_page2.Label4.BackColor = 240,240,240
Pageframe1.cl_page2.Label4.BackStyle = 1
Pageframe1.cl_page2.Label4.BorderStyle = 0
Pageframe1.cl_page2.Label4.Caption = "Label4"
Pageframe1.cl_page2.Label4.ColorScheme = 1
Pageframe1.cl_page2.Label4.ColorSource = 4
Pageframe1.cl_page2.Label4.Comment = ""
Pageframe1.cl_page2.Label4.DisabledBackColor = 240,240,240
Pageframe1.cl_page2.Label4.DisabledForeColor = 109,109,109
Pageframe1.cl_page2.Label4.DragIcon = ..\..\
Pageframe1.cl_page2.Label4.DragMode = 0
Pageframe1.cl_page2.Label4.Enabled = .T.
Pageframe1.cl_page2.Label4.FontBold = .F.
Pageframe1.cl_page2.Label4.Name = "Label4"
Pageframe1.cl_page2.Label5.Name = "Label5"
Pageframe1.cl_page2.Line1.Name = "Line1"
Pageframe1.cl_page2.Line2.Name = "Line2"
Pageframe1.cl_page2.Name = "cl_page2"
Pageframe1.cl_page2.PageOrder = 2
Pageframe1.cl_page2.Shape1.Name = "Shape1"
Pageframe1.cl_page2.Shape2.Name = "Shape2"
Pageframe1.cl_page2.Spinner1.Name = "Spinner1"
Pageframe1.cl_page2.Spinner2.Name = "Spinner2"
Pageframe1.cl_page3.Name = "cl_page3"
Pageframe1.cl_page3.PageOrder = 3
Pageframe1.ColorSource = 4
Pageframe1.Comment = ""
Pageframe1.DefHeight =
Pageframe1.DefLeft =
Pageframe1.DefTop =
Pageframe1.DefWidth =
Pageframe1.DragIcon = ..\..\
Pageframe1.DragMode = 0
Pageframe1.Enabled = .T.
Pageframe1.ErasePage = .T.
Pageframe1.Height = (193)
Pageframe1.HelpContextID = 0
Pageframe1.Left = (20)
Pageframe1.MouseIcon = ..\..\
Pageframe1.MousePointer = 0
Pageframe1.Name = "Pageframe1"
Pageframe1.OLEDragMode = 0
Pageframe1.OLEDragPicture = ..\..\
Pageframe1.OLEDropEffects = 3
Pageframe1.OLEDropMode = 0
Pageframe1.RightToLeft = .F.
Pageframe1.StatusBarText = ""
Pageframe1.TabIndex = 7
Pageframe1.TabOrientation = 0
Pageframe1.Tabs = .T.
Pageframe1.TabStop = .T.
Pageframe1.TabStretch = 1
Pageframe1.TabStyle = 1
Pageframe1.Tag = ""
Pageframe1.Themes = .T.
Pageframe1.ToolTipText = ""
Pageframe1.Top = (200)
Pageframe1.Visible = .T.
Pageframe1.WhatsThisHelpID = -1
Pageframe1.Width = (256)
Spinner1.Alignment = 1
Spinner1.Anchor = 0
Spinner1.BackColor = 255,255,255
Spinner1.BorderColor = 100,100,100
Spinner1.BorderStyle = 1
Spinner1.ColorScheme = 1
Spinner1.ColorSource = 4
Spinner1.Comment = ""
Spinner1.ControlSource = ""
Spinner1.DefHeight =
Spinner1.DefLeft =
Spinner1.DefTop =
Spinner1.DefWidth =
Spinner1.DisabledBackColor = 240,240,240
Spinner1.DisabledForeColor = 109,109,109
Spinner1.DragIcon = ..\..\
Spinner1.DragMode = 0
Spinner1.Enabled = .T.
Spinner1.FontBold = .F.
Spinner1.FontCondense = .F.
Spinner1.FontExtend = .F.
Spinner1.FontItalic = .F.
Spinner1.FontName = "Arial"
Spinner1.FontOutline = .F.
Spinner1.FontShadow = .F.
Spinner1.FontSize = 8
Spinner1.FontStrikethru = .F.
Spinner1.FontUnderline = .F.
Spinner1.ForeColor = 0,0,0
Spinner1.Format = ""
Spinner1.Height = (24)
Spinner1.HelpContextID = 0
Spinner1.HideSelection = .T.
Spinner1.Increment = 1.00
Spinner1.InputMask = ""
Spinner1.KeyboardHighValue = 2147483647
Spinner1.KeyboardLowValue = -2147483647
Spinner1.Left = (44)
Spinner1.Margin = 2
Spinner1.MouseIcon = ..\..\
Spinner1.MousePointer = 0
Spinner1.Name = "Spinner1"
Spinner1.NullDisplay = ""
Spinner1.OLEDragMode = 0
Spinner1.OLEDragPicture = ..\..\
Spinner1.OLEDropEffects = 3
Spinner1.OLEDropMode = 0
Spinner1.OLEDropTextInsertion = 0
Spinner1.ReadOnly = .F.
Spinner1.RightToLeft = .F.
Spinner1.SelectedBackColor = 51,153,255
Spinner1.SelectedForeColor = 255,255,255
Spinner1.SelectOnEntry = .F.
Spinner1.SpecialEffect = 0
Spinner1.StatusBarText = ""
Spinner1.TabIndex = 8
Spinner1.TabStop = .T.
Spinner1.Tag = ""
Spinner1.TerminateRead = .F.
Spinner1.Themes = .T.
Spinner1.ToolTipText = ""
Spinner1.Top = (160)
Spinner1.Value = 0
Spinner1.Visible = .T.
Spinner1.WhatsThisHelpID = -1
Spinner1.Width = (104)
Label5.Name = "Label5"
Shape2.Name = "Shape2"
Line2.Name = "Line2"
Image6.Height = 16
Image6.Name = "Image6"
Image6.Width = 17
Image7.Name = "Image7"
Image8.Height = 16
Image8.Name = "Image8"
Image8.Width = 17
Image9.Name = "Image9"
Image10.Height = 16
Image10.Name = "Image10"
Image10.Width = 17
Spinner2.Name = "Spinner2"
Cl_pageframe1.ErasePage = .T.
Cl_pageframe1.Name = "Cl_pageframe1"
Cl_pageframe1.Page1.Name = "Page1"
Cl_pageframe1.Page2.Image1.Height = 16
Cl_pageframe1.Page2.Image1.Name = "Image1"
Cl_pageframe1.Page2.Image1.Width = 17
Cl_pageframe1.Page2.Image10.Height = 16
Cl_pageframe1.Page2.Image10.Name = "Image10"
Cl_pageframe1.Page2.Image10.Width = 17
Cl_pageframe1.Page2.Image2.Name = "Image2"
Cl_pageframe1.Page2.Image3.Height = 16
Cl_pageframe1.Page2.Image3.Name = "Image3"
Cl_pageframe1.Page2.Image3.Width = 17
Cl_pageframe1.Page2.Image4.Name = "Image4"
Cl_pageframe1.Page2.Image5.Height = 16
Cl_pageframe1.Page2.Image5.Name = "Image5"
Cl_pageframe1.Page2.Image5.Width = 17
Cl_pageframe1.Page2.Image6.Height = 16
Cl_pageframe1.Page2.Image6.Name = "Image6"
Cl_pageframe1.Page2.Image6.Width = 17
Cl_pageframe1.Page2.Image7.Name = "Image7"
Cl_pageframe1.Page2.Image8.Height = 16
Cl_pageframe1.Page2.Image8.Name = "Image8"
Cl_pageframe1.Page2.Image8.Width = 17
Cl_pageframe1.Page2.Image9.Name = "Image9"
Cl_pageframe1.Page2.Label4.Name = "Label4"
Cl_pageframe1.Page2.Label5.Name = "Label5"
Cl_pageframe1.Page2.Line1.Name = "Line1"
Cl_pageframe1.Page2.Line2.Name = "Line2"
Cl_pageframe1.Page2.Name = "Page2"
Cl_pageframe1.Page2.Shape1.Name = "Shape1"
Cl_pageframe1.Page2.Shape2.Name = "Shape2"
Cl_pageframe1.Page2.Spinner1.Name = "Spinner1"
Cl_pageframe1.Page2.Spinner2.Name = "Spinner2"
Cl_pageframe1.Page3.Name = "Page3"
Cl_label1.Name = "Cl_label1"
Cl_shape1.Name = "Cl_shape1"
Cl_line1.Name = "Cl_line1"
Cl_image1.Height = 16
Cl_image1.Name = "Cl_image1"
Cl_image1.Width = 17
Cl_image2.Name = "Cl_image2"
Cl_image3.Height = 16
Cl_image3.Name = "Cl_image3"
Cl_image3.Width = 17
Cl_image4.Name = "Cl_image4"
Cl_image5.Height = 16
Cl_image5.Name = "Cl_image5"
Cl_image5.Width = 17
Cl_spinner1.Name = "Cl_spinner1"
Cl_label2.Name = "Cl_label2"
Cl_shape2.Name = "Cl_shape2"
Cl_line2.Name = "Cl_line2"
Cl_image6.Height = 16
Cl_image6.Name = "Cl_image6"
Cl_image6.Width = 17
Cl_image7.Name = "Cl_image7"
Cl_image8.Height = 16
Cl_image8.Name = "Cl_image8"
Cl_image8.Width = 17
Cl_image9.Name = "Cl_image9"
Cl_image10.Height = 16
Cl_image10.Name = "Cl_image10"
Cl_image10.Width = 17
Cl_spinner2.Name = "Cl_spinner2"
*</PropValue>
ENDDEFINE

458
TESTS/DATOS_READONLY/f_test.sc2
View File

@@ -4,458 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="f_form_controles1" Baseclass="form" />
DataSource = .NULL.
Name = "Dataenvironment"
TabStop = .F.
Visible = .F.
ENDDEFINE
DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
DoCreate = .T.
Name = "F_form_controles1"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Label4.Alignment = 0
Label4.Anchor = 0
Label4.AutoSize = .F.
Label4.BackColor = 240,240,240
Label4.BackStyle = 1
Label4.BorderStyle = 0
Label4.Caption = "Label4"
Label4.ColorScheme = 1
Label4.ColorSource = 4
Label4.Comment = ""
Label4.DefHeight =
Label4.DefLeft =
Label4.DefTop =
Label4.DefWidth =
Label4.DisabledBackColor = 240,240,240
Label4.DisabledForeColor = 109,109,109
Label4.DragIcon = ..\..\
Label4.DragMode = 0
Label4.Enabled = .T.
Label4.FontBold = .F.
Label4.FontCondense = .F.
Label4.FontExtend = .F.
Label4.FontItalic = .F.
Label4.FontName = "Arial"
Label4.FontOutline = .F.
Label4.FontShadow = .F.
Label4.FontSize = 8
Label4.FontStrikethru = .F.
Label4.FontUnderline = .F.
Label4.ForeColor = 0,0,0
Label4.Height = (17)
Label4.HelpContextID = 0
Label4.Left = (44)
Label4.MouseIcon = ..\..\
Label4.MousePointer = 0
Label4.Name = "Label4"
Label4.OLEDragMode = 0
Label4.OLEDragPicture = ..\..\
Label4.OLEDropEffects = 3
Label4.OLEDropMode = 0
Label4.RightToLeft = .F.
Label4.Rotation = 0
Label4.Style = 0
Label4.TabIndex = 6
Label4.Tag = ""
Label4.ToolTipText = ""
Label4.Top = (40)
Label4.WhatsThisHelpID = -1
Label4.Width = (104)
Label4.WordWrap = .F.
Shape1.Anchor = 0
Shape1.BackColor = 240,240,240
Shape1.BackStyle = 1
Shape1.BorderColor = 100,100,100
Shape1.BorderStyle = 1
Shape1.BorderWidth = 1
Shape1.ColorScheme = 1
Shape1.ColorSource = 4
Shape1.Comment = ""
Shape1.Curvature = 0
Shape1.DefHeight =
Shape1.DefLeft =
Shape1.DefTop =
Shape1.DefWidth =
Shape1.DragIcon = ..\..\
Shape1.DragMode = 0
Shape1.DrawMode = 13
Shape1.Enabled = .T.
Shape1.FillColor = 0,0,0
Shape1.FillStyle = 1
Shape1.Height = (17)
Shape1.HelpContextID = 0
Shape1.Left = (44)
Shape1.MouseIcon = ..\..\
Shape1.MousePointer = 0
Shape1.Name = "Shape1"
Shape1.OLEDragMode = 0
Shape1.OLEDragPicture = ..\..\
Shape1.OLEDropEffects = 3
Shape1.OLEDropMode = 0
Shape1.PolyPoints = ""
Shape1.Rotation = 0
Shape1.SpecialEffect = 0
Shape1.StatusBarText = ""
Shape1.Style = 0
Shape1.Tag = ""
Shape1.ToolTipText = ""
Shape1.Top = (60)
Shape1.Visible = .T.
Shape1.WhatsThisHelpID = -1
Shape1.Width = (105)
Line1.Anchor = 0
Line1.BorderColor = 100,100,100
Line1.BorderStyle = 1
Line1.BorderWidth = 1
Line1.ColorSource = 4
Line1.Comment = ""
Line1.DefHeight =
Line1.DefLeft =
Line1.DefTop =
Line1.DefWidth =
Line1.DragIcon = ..\..\
Line1.DragMode = 0
Line1.DrawMode = 13
Line1.Enabled = .T.
Line1.Height = (8)
Line1.HelpContextID = 0
Line1.Left = (44)
Line1.LineSlant = "\"
Line1.MouseIcon = ..\..\
Line1.MousePointer = 0
Line1.Name = "Line1"
Line1.OLEDragMode = 0
Line1.OLEDragPicture = ..\..\
Line1.OLEDropEffects = 3
Line1.OLEDropMode = 0
Line1.PolyPoints = ""
Line1.Rotation = 0
Line1.StatusBarText = ""
Line1.Tag = ""
Line1.ToolTipText = ""
Line1.Top = (80)
Line1.Visible = .T.
Line1.WhatsThisHelpID = -1
Line1.Width = (104)
Image1.Anchor = 0
Image1.BackStyle = 1
Image1.BorderColor = 100,100,100
Image1.BorderStyle = 0
Image1.ColorSource = 4
Image1.Comment = ""
Image1.DefHeight =
Image1.DefLeft =
Image1.DefTop =
Image1.DefWidth =
Image1.DragIcon = ..\..\
Image1.DragMode = 0
Image1.Enabled = .T.
Image1.Height = (16)
Image1.HelpContextID = 0
Image1.Left = (44)
Image1.MouseIcon = ..\..\
Image1.MousePointer = 0
Image1.Name = "Image1"
Image1.OLEDragMode = 0
Image1.OLEDragPicture = ..\..\
Image1.OLEDropEffects = 3
Image1.OLEDropMode = 0
Image1.Picture = bmps\sobrepostal.bmp
Image1.RotateFlip = 0
Image1.StatusBarText = ""
Image1.Stretch = 0
Image1.Tag = ""
Image1.Themes = .T.
Image1.ToolTipText = ""
Image1.Top = (100)
Image1.Visible = .T.
Image1.WhatsThisHelpID = -1
Image1.Width = (17)
Image2.Name = "Image2"
Image3.Height = 16
Image3.Name = "Image3"
Image3.Width = 17
Image4.Name = "Image4"
Image5.Height = 16
Image5.Name = "Image5"
Image5.Width = 17
Pageframe1.ActivePage = 2
Pageframe1.Anchor = 0
Pageframe1.cl_page1.BackColor = 240,240,240
Pageframe1.cl_page1.Caption = "Page1"
Pageframe1.cl_page1.ColorSource = 4
Pageframe1.cl_page1.Comment = ""
Pageframe1.cl_page1.DragIcon = ..\..\
Pageframe1.cl_page1.DragMode = 0
Pageframe1.cl_page1.Enabled = .T.
Pageframe1.cl_page1.FontBold = .F.
Pageframe1.cl_page1.FontCharSet = 0
Pageframe1.cl_page1.FontCondense = .F.
Pageframe1.cl_page1.FontExtend = .F.
Pageframe1.cl_page1.FontItalic = .F.
Pageframe1.cl_page1.FontName = "Arial"
Pageframe1.cl_page1.FontOutline = .F.
Pageframe1.cl_page1.FontShadow = .F.
Pageframe1.cl_page1.FontSize = 8
Pageframe1.cl_page1.FontStrikethru = .F.
Pageframe1.cl_page1.FontUnderline = .F.
Pageframe1.cl_page1.ForeColor = 0,0,0
Pageframe1.cl_page1.HelpContextID = 0
Pageframe1.cl_page1.MouseIcon = ..\..\
Pageframe1.cl_page1.MousePointer = 0
Pageframe1.cl_page1.Name = "cl_page1"
Pageframe1.cl_page1.OLEDragMode = 0
Pageframe1.cl_page1.OLEDragPicture = ..\..\
Pageframe1.cl_page1.OLEDropEffects = 3
Pageframe1.cl_page1.OLEDropMode = 0
Pageframe1.cl_page1.PageOrder = 1
Pageframe1.cl_page1.StatusBarText = ""
Pageframe1.cl_page1.Tag = ""
Pageframe1.cl_page1.ToolTipText = ""
Pageframe1.cl_page1.WhatsThisHelpID = -1
Pageframe1.cl_page2.Image1.Height = 16
Pageframe1.cl_page2.Image1.Name = "Image1"
Pageframe1.cl_page2.Image1.Width = 17
Pageframe1.cl_page2.Image10.Height = 16
Pageframe1.cl_page2.Image10.Name = "Image10"
Pageframe1.cl_page2.Image10.Width = 17
Pageframe1.cl_page2.Image2.Name = "Image2"
Pageframe1.cl_page2.Image3.Height = 16
Pageframe1.cl_page2.Image3.Name = "Image3"
Pageframe1.cl_page2.Image3.Width = 17
Pageframe1.cl_page2.Image4.Name = "Image4"
Pageframe1.cl_page2.Image5.Height = 16
Pageframe1.cl_page2.Image5.Name = "Image5"
Pageframe1.cl_page2.Image5.Width = 17
Pageframe1.cl_page2.Image6.Height = 16
Pageframe1.cl_page2.Image6.Name = "Image6"
Pageframe1.cl_page2.Image6.Width = 17
Pageframe1.cl_page2.Image7.Name = "Image7"
Pageframe1.cl_page2.Image8.Height = 16
Pageframe1.cl_page2.Image8.Name = "Image8"
Pageframe1.cl_page2.Image8.Width = 17
Pageframe1.cl_page2.Image9.Name = "Image9"
Pageframe1.cl_page2.Label4.Alignment = 0
Pageframe1.cl_page2.Label4.Anchor = 0
Pageframe1.cl_page2.Label4.AutoSize = .F.
Pageframe1.cl_page2.Label4.BackColor = 240,240,240
Pageframe1.cl_page2.Label4.BackStyle = 1
Pageframe1.cl_page2.Label4.BorderStyle = 0
Pageframe1.cl_page2.Label4.Caption = "Label4"
Pageframe1.cl_page2.Label4.ColorScheme = 1
Pageframe1.cl_page2.Label4.ColorSource = 4
Pageframe1.cl_page2.Label4.Comment = ""
Pageframe1.cl_page2.Label4.DisabledBackColor = 240,240,240
Pageframe1.cl_page2.Label4.DisabledForeColor = 109,109,109
Pageframe1.cl_page2.Label4.DragIcon = ..\..\
Pageframe1.cl_page2.Label4.DragMode = 0
Pageframe1.cl_page2.Label4.Enabled = .T.
Pageframe1.cl_page2.Label4.FontBold = .F.
Pageframe1.cl_page2.Label4.Name = "Label4"
Pageframe1.cl_page2.Label5.Name = "Label5"
Pageframe1.cl_page2.Line1.Name = "Line1"
Pageframe1.cl_page2.Line2.Name = "Line2"
Pageframe1.cl_page2.Name = "cl_page2"
Pageframe1.cl_page2.PageOrder = 2
Pageframe1.cl_page2.Shape1.Name = "Shape1"
Pageframe1.cl_page2.Shape2.Name = "Shape2"
Pageframe1.cl_page2.Spinner1.Name = "Spinner1"
Pageframe1.cl_page2.Spinner2.Name = "Spinner2"
Pageframe1.cl_page3.Name = "cl_page3"
Pageframe1.cl_page3.PageOrder = 3
Pageframe1.ColorSource = 4
Pageframe1.Comment = ""
Pageframe1.DefHeight =
Pageframe1.DefLeft =
Pageframe1.DefTop =
Pageframe1.DefWidth =
Pageframe1.DragIcon = ..\..\
Pageframe1.DragMode = 0
Pageframe1.Enabled = .T.
Pageframe1.ErasePage = .T.
Pageframe1.Height = (193)
Pageframe1.HelpContextID = 0
Pageframe1.Left = (20)
Pageframe1.MouseIcon = ..\..\
Pageframe1.MousePointer = 0
Pageframe1.Name = "Pageframe1"
Pageframe1.OLEDragMode = 0
Pageframe1.OLEDragPicture = ..\..\
Pageframe1.OLEDropEffects = 3
Pageframe1.OLEDropMode = 0
Pageframe1.RightToLeft = .F.
Pageframe1.StatusBarText = ""
Pageframe1.TabIndex = 7
Pageframe1.TabOrientation = 0
Pageframe1.Tabs = .T.
Pageframe1.TabStop = .T.
Pageframe1.TabStretch = 1
Pageframe1.TabStyle = 1
Pageframe1.Tag = ""
Pageframe1.Themes = .T.
Pageframe1.ToolTipText = ""
Pageframe1.Top = (200)
Pageframe1.Visible = .T.
Pageframe1.WhatsThisHelpID = -1
Pageframe1.Width = (256)
Spinner1.Alignment = 1
Spinner1.Anchor = 0
Spinner1.BackColor = 255,255,255
Spinner1.BorderColor = 100,100,100
Spinner1.BorderStyle = 1
Spinner1.ColorScheme = 1
Spinner1.ColorSource = 4
Spinner1.Comment = ""
Spinner1.ControlSource = ""
Spinner1.DefHeight =
Spinner1.DefLeft =
Spinner1.DefTop =
Spinner1.DefWidth =
Spinner1.DisabledBackColor = 240,240,240
Spinner1.DisabledForeColor = 109,109,109
Spinner1.DragIcon = ..\..\
Spinner1.DragMode = 0
Spinner1.Enabled = .T.
Spinner1.FontBold = .F.
Spinner1.FontCondense = .F.
Spinner1.FontExtend = .F.
Spinner1.FontItalic = .F.
Spinner1.FontName = "Arial"
Spinner1.FontOutline = .F.
Spinner1.FontShadow = .F.
Spinner1.FontSize = 8
Spinner1.FontStrikethru = .F.
Spinner1.FontUnderline = .F.
Spinner1.ForeColor = 0,0,0
Spinner1.Format = ""
Spinner1.Height = (24)
Spinner1.HelpContextID = 0
Spinner1.HideSelection = .T.
Spinner1.Increment = 1.00
Spinner1.InputMask = ""
Spinner1.KeyboardHighValue = 2147483647
Spinner1.KeyboardLowValue = -2147483647
Spinner1.Left = (44)
Spinner1.Margin = 2
Spinner1.MouseIcon = ..\..\
Spinner1.MousePointer = 0
Spinner1.Name = "Spinner1"
Spinner1.NullDisplay = ""
Spinner1.OLEDragMode = 0
Spinner1.OLEDragPicture = ..\..\
Spinner1.OLEDropEffects = 3
Spinner1.OLEDropMode = 0
Spinner1.OLEDropTextInsertion = 0
Spinner1.ReadOnly = .F.
Spinner1.RightToLeft = .F.
Spinner1.SelectedBackColor = 51,153,255
Spinner1.SelectedForeColor = 255,255,255
Spinner1.SelectOnEntry = .F.
Spinner1.SpecialEffect = 0
Spinner1.StatusBarText = ""
Spinner1.TabIndex = 8
Spinner1.TabStop = .T.
Spinner1.Tag = ""
Spinner1.TerminateRead = .F.
Spinner1.Themes = .T.
Spinner1.ToolTipText = ""
Spinner1.Top = (160)
Spinner1.Value = 0
Spinner1.Visible = .T.
Spinner1.WhatsThisHelpID = -1
Spinner1.Width = (104)
Label5.Name = "Label5"
Shape2.Name = "Shape2"
Line2.Name = "Line2"
Image6.Height = 16
Image6.Name = "Image6"
Image6.Width = 17
Image7.Name = "Image7"
Image8.Height = 16
Image8.Name = "Image8"
Image8.Width = 17
Image9.Name = "Image9"
Image10.Height = 16
Image10.Name = "Image10"
Image10.Width = 17
Spinner2.Name = "Spinner2"
Cl_pageframe1.ErasePage = .T.
Cl_pageframe1.Name = "Cl_pageframe1"
Cl_pageframe1.Page1.Name = "Page1"
Cl_pageframe1.Page2.Image1.Height = 16
Cl_pageframe1.Page2.Image1.Name = "Image1"
Cl_pageframe1.Page2.Image1.Width = 17
Cl_pageframe1.Page2.Image10.Height = 16
Cl_pageframe1.Page2.Image10.Name = "Image10"
Cl_pageframe1.Page2.Image10.Width = 17
Cl_pageframe1.Page2.Image2.Name = "Image2"
Cl_pageframe1.Page2.Image3.Height = 16
Cl_pageframe1.Page2.Image3.Name = "Image3"
Cl_pageframe1.Page2.Image3.Width = 17
Cl_pageframe1.Page2.Image4.Name = "Image4"
Cl_pageframe1.Page2.Image5.Height = 16
Cl_pageframe1.Page2.Image5.Name = "Image5"
Cl_pageframe1.Page2.Image5.Width = 17
Cl_pageframe1.Page2.Image6.Height = 16
Cl_pageframe1.Page2.Image6.Name = "Image6"
Cl_pageframe1.Page2.Image6.Width = 17
Cl_pageframe1.Page2.Image7.Name = "Image7"
Cl_pageframe1.Page2.Image8.Height = 16
Cl_pageframe1.Page2.Image8.Name = "Image8"
Cl_pageframe1.Page2.Image8.Width = 17
Cl_pageframe1.Page2.Image9.Name = "Image9"
Cl_pageframe1.Page2.Label4.Name = "Label4"
Cl_pageframe1.Page2.Label5.Name = "Label5"
Cl_pageframe1.Page2.Line1.Name = "Line1"
Cl_pageframe1.Page2.Line2.Name = "Line2"
Cl_pageframe1.Page2.Name = "Page2"
Cl_pageframe1.Page2.Shape1.Name = "Shape1"
Cl_pageframe1.Page2.Shape2.Name = "Shape2"
Cl_pageframe1.Page2.Spinner1.Name = "Spinner1"
Cl_pageframe1.Page2.Spinner2.Name = "Spinner2"
Cl_pageframe1.Page3.Name = "Page3"
Cl_label1.Name = "Cl_label1"
Cl_shape1.Name = "Cl_shape1"
Cl_line1.Name = "Cl_line1"
Cl_image1.Height = 16
Cl_image1.Name = "Cl_image1"
Cl_image1.Width = 17
Cl_image2.Name = "Cl_image2"
Cl_image3.Height = 16
Cl_image3.Name = "Cl_image3"
Cl_image3.Width = 17
Cl_image4.Name = "Cl_image4"
Cl_image5.Height = 16
Cl_image5.Name = "Cl_image5"
Cl_image5.Width = 17
Cl_spinner1.Name = "Cl_spinner1"
Cl_label2.Name = "Cl_label2"
Cl_shape2.Name = "Cl_shape2"
Cl_line2.Name = "Cl_line2"
Cl_image6.Height = 16
Cl_image6.Name = "Cl_image6"
Cl_image6.Width = 17
Cl_image7.Name = "Cl_image7"
Cl_image8.Height = 16
Cl_image8.Name = "Cl_image8"
Cl_image8.Width = 17
Cl_image9.Name = "Cl_image9"
Cl_image10.Height = 16
Cl_image10.Name = "Cl_image10"
Cl_image10.Width = 17
Cl_spinner2.Name = "Cl_spinner2"
ENDDEFINE
*

19
TESTS/DATOS_READONLY/f_textbox.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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_textbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

1447
TESTS/DATOS_READONLY/f_textbox.f_textbox_test.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1455
TESTS/DATOS_READONLY/f_textbox.sc2
View File

File diff suppressed because it is too large Load Diff

38
TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2
View File

@@ -12,23 +12,25 @@ DEFINE CLASS cl_commandgroup AS commandgroup && Descripci
*p: una_prop_cmgroup && Con comentario, pero sin valor
*</DefinedPropArrayMethod>
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
una_prop_cmgroup = .F. && Con comentario, pero sin valor
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
*<PropValue>
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
una_prop_cmgroup = .F.
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
*</PropValue>
ENDDEFINE

34
TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2
View File

@@ -23,22 +23,24 @@ DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL
HIDDEN ahidden,chidden
PROTECTED aprotected,cprotected
Caption = "Form"
chidden = && Prop.Hidden
cprotected = && Prop.Protegida
DoCreate = .T.
Height = 345
Left = 0
Name = "cl_form"
Picture = bmps\scccheckout.bmp
Top = 0
Width = 570
_memberdata = <VFPData>
<memberdata name="ahidden" display="aHidden"/>
<memberdata name="aprotected" display="aProtected"/>
<memberdata name="chidden" display="cHidden"/>
<memberdata name="cprotected" display="cProtected"/>
</VFPData> && XML Metadata for customizable properties
*<PropValue>
Caption = "Form"
chidden =
cprotected =
DoCreate = .T.
Height = 345
Left = 0
Name = "cl_form"
Picture = bmps\scccheckout.bmp
Top = 0
Width = 570
_memberdata = <VFPData>
<memberdata name="ahidden" display="aHidden"/>
<memberdata name="aprotected" display="aProtected"/>
<memberdata name="chidden" display="cHidden"/>
<memberdata name="cprotected" display="cProtected"/>
</VFPData>
*</PropValue>
ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
BackColor = 255,128,192, ;

10
TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2
View File

@@ -11,10 +11,12 @@ DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole
*m: un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
*</DefinedPropArrayMethod>
Height = 16
Name = "cl_imagen"
Picture = bmps\sobrepostal.bmp
Width = 17
*<PropValue>
Height = 16
Name = "cl_imagen"
Picture = bmps\sobrepostal.bmp
Width = 17
*</PropValue>
PROCEDURE un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
* ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase"

8
TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2
View File

@@ -7,8 +7,10 @@
DEFINE CLASS cl_olebound AS oleboundcontrol
*< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" />
Height = 100
Name = "cl_olebound"
Width = 100
*<PropValue>
Height = 100
Name = "cl_olebound"
Width = 100
*</PropValue>
ENDDEFINE

8
TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2
View File

@@ -7,8 +7,10 @@
DEFINE CLASS cl_olecontrol AS olecontrol
*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCpJ18M8c8BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
Height = 67
Name = "cl_olecontrol"
Width = 131
*<PropValue>
Height = 67
Name = "cl_olecontrol"
Width = 131
*</PropValue>
ENDDEFINE

42
TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2
View File

@@ -14,26 +14,28 @@ DEFINE CLASS cl_optiongroup AS optiongroup && descripcion
*p: propiedad_de_clase_sin_valor && Una propiedad sin valor para heredar
*</DefinedPropArrayMethod>
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
propiedad_de_clase_con_valor = UN VALOR DE LA CLASE && Tiene un valor por defecto
propiedad_de_clase_sin_valor = .F. && Una propiedad sin valor para heredar
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
*<PropValue>
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
propiedad_de_clase_con_valor = UN VALOR DE LA CLASE
propiedad_de_clase_sin_valor = .F.
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
*</PropValue>
PROCEDURE propiedad_de_clase_con_valor_access
*To do: Modify this routine for the Access method

8
TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2
View File

@@ -7,8 +7,10 @@
DEFINE CLASS proj_hook AS projecthook
*< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" />
Height = 22
Name = "proj_hook"
Width = 23
*<PropValue>
Height = 22
Name = "proj_hook"
Width = 23
*</PropValue>
ENDDEFINE

26
TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_dbf.dc2 Normal file
View File

@@ -0,0 +1,26 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<CONNECTION>
<Name>REMOTE_CONNECTION_DBF</Name>
<Comment></Comment>
<DataSource>Visual FoxPro Tables</DataSource>
<Database>foxuser_fdb</Database>
<ConnectString></ConnectString>
<Asynchronous>.F.</Asynchronous>
<BatchMode>.T.</BatchMode>
<ConnectTimeout>15</ConnectTimeout>
<DisconnectRollback>.F.</DisconnectRollback>
<DispLogin>1</DispLogin>
<DispWarnings>.F.</DispWarnings>
<IdleTimeout>0</IdleTimeout>
<PacketSize>4096</PacketSize>
<PassWord></PassWord>
<QueryTimeout>0</QueryTimeout>
<Transactions>1</Transactions>
<UserId></UserId>
<WaitTime>100</WaitTime>
</CONNECTION>

26
TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_oracle.dc2 Normal file
View File

@@ -0,0 +1,26 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<CONNECTION>
<Name>REMOTE_CONNECTION_ORACLE</Name>
<Comment></Comment>
<DataSource></DataSource>
<Database></Database>
<ConnectString>DRIVER={Oracle en OraClient11g_home1};SERVER=BDDServer;UID=BDDUser;PWD=BDDPwd;DBQ=CARTERA;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA</ConnectString>
<Asynchronous>.F.</Asynchronous>
<BatchMode>.T.</BatchMode>
<ConnectTimeout>15</ConnectTimeout>
<DisconnectRollback>.F.</DisconnectRollback>
<DispLogin>3</DispLogin>
<DispWarnings>.F.</DispWarnings>
<IdleTimeout>10</IdleTimeout>
<PacketSize>8192</PacketSize>
<PassWord></PassWord>
<QueryTimeout>180</QueryTimeout>
<Transactions>1</Transactions>
<UserId></UserId>
<WaitTime>100</WaitTime>
</CONNECTION>

461
TESTS/DATOS_READONLY/fb2p_dbc.database.storedproceduressource.dc2 Normal file
View File

@@ -0,0 +1,461 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<STOREDPROCEDURES><![CDATA[
PROCEDURE ins_trg
STRTOFILE( PROGRAM(), FORCEPATH( "LOG_DBC.TXT", JUSTPATH( EVL( DBC(),DBF() ) ) ) )
ENDPROC
PROCEDURE upd_trg
STRTOFILE( PROGRAM(), FORCEPATH( "LOG_DBC.TXT", JUSTPATH( EVL( DBC(),DBF() ) ) ) )
ENDPROC
PROCEDURE del_trg
STRTOFILE( PROGRAM(), FORCEPATH( "LOG_DBC.TXT", JUSTPATH( EVL( DBC(),DBF() ) ) ) )
ENDPROC
PROCEDURE depto_field_validation_rule
ENDPROC
PROCEDURE depto_field_validation_message
RETURN 'Mensaje para Field Rule "depto_field_validation_rule"'
ENDPROC
PROCEDURE fb2p_depto_record_rule_validation
ENDPROC
PROCEDURE fb2p_depto_record_rule_validation_message
RETURN 'Mensaje para Record Rule "fb2p_depto_record_rule_validation"'
ENDPROC
PROCEDURE depto_field_def_value
RETURN 'Dpto.'
ENDPROC
PROCEDURE dbc_OpenData
LPARAMETERS cDatabaseName, lExclusive, lNoUpdate, lValidate
* ? ' cDatabaseName = ' + TRANSFORM(cDatabaseName) + ' - ' + TYPE('cDatabaseName')
* ? ' lExclusive = ' + TRANSFORM(lExclusive) + ' - ' + TYPE('lExclusive')
* ? ' lNoUpdate = ' + TRANSFORM(lNoUpdate) + ' - ' + TYPE('lNoUpdate')
* ? ' lValidate = ' + TRANSFORM(lValidate) + ' - ' + TYPE('lValidate')
ENDPROC
**__RI_HEADER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_HEADER**
PROCEDURE RIDELETE
LOCAL llRetVal
llRetVal=.T.
IF (ISRLOCKED() AND !DELETED()) OR !RLOCK()
llRetVal=.F.
ELSE
IF !DELETED()
DELETE
IF CURSORGETPROP('BUFFERING') > 1
=TABLEUPDATE()
ENDIF
ENDIF NOT already DELETED
ENDIF
UNLOCK RECORD (RECNO())
llRetVal=pnerror=0
RETURN llRetVal
PROCEDURE RIUPDATE
LPARAMETERS tcFieldName,tcNewValue,tcCascadeParent
LOCAL llRetVal
llRetVal=.T.
IF ISRLOCKED() OR !RLOCK()
llRetVal=.F.
ELSE
IF EVAL(tcFieldName)<>tcNewValue
PRIVATE pcCascadeParent
pcCascadeParent=UPPER(IIF(TYPE("tcCascadeParent")<>"C","",tcCascadeParent))
REPLACE (tcFieldName) WITH tcNewValue
IF CURSORGETPROP('BUFFERING') > 1
=TABLEUPDATE()
ENDIF
ENDIF VALUES don't already match
ENDIF it's locked already, or I was able to lock it
UNLOCK RECORD (RECNO())
llRetVal=pnerror=0
RETURN llRetVal
PROCEDURE rierror
PARAMETERS tnErrNo,tcMessage,tcCode,tcProgram
LOCAL lnErrorRows,lnXX
lnErrorRows=ALEN(gaErrors,1)
IF TYPE('gaErrors[lnErrorRows,1]')<>"L"
DIMENSION gaErrors[lnErrorRows+1,alen(gaErrors,2)]
lnErrorRows=lnErrorRows+1
ENDIF
gaErrors[lnErrorRows,1]=tnErrNo
gaErrors[lnErrorRows,2]=tcMessage
gaErrors[lnErrorRows,3]=tcCode
gaErrors[lnErrorRows,4]=""
lnXX=1
DO WHILE !EMPTY(PROGRAM(lnXX))
gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;
PROGRAM(lnXX)
lnXX=lnXX+1
ENDDO
gaErrors[lnErrorRows,5]=pcParentDBF
gaErrors[lnErrorRows,6]=pnParentRec
gaErrors[lnErrorRows,7]=pcParentID
gaErrors[lnErrorRows,8]=pcParentExpr
gaErrors[lnErrorRows,9]=pcChildDBF
gaErrors[lnErrorRows,10]=pnChildRec
gaErrors[lnErrorRows,11]=pcChildID
gaErrors[lnErrorRows,12]=pcChildExpr
RETURN tnErrNo
PROCEDURE riopen
PARAMETERS tcTable,tcOrder
LOCAL lcCurWkArea,lcNewWkArea,lnInUseSpot,lnOccurs,lnOccurance
lnInUseSpot=0
lnOccurs = OCCURS(UPPER(tcTable)+"*",UPPER(pcRIcursors))
FOR lnOccurance = 1 TO lnOccurs
lnInUseSpot=ATC(tcTable+"*",pcRIcursors,lnOccurance)
IF ISDIGIT(SUBSTR(pcRIcursors,lnInUseSpot-1,1)) OR;
EMPTY(SUBSTR(pcRIcursors,lnInUseSpot-1,1))
EXIT
ENDIF
lnInUseSpot=0
ENDFOR
IF lnInUseSpot=0
lcCurWkArea=SELECT()
SELECT 0
lcNewWkArea=SELECT()
IF NOT EMPTY(tcOrder)
USE (tcTable) AGAIN ORDER (tcOrder) ;
ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
ELSE
USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
ENDIF
IF pnerror=0
pcRIcursors=pcRIcursors+UPPER(tcTable)+"?"+STR(SELECT(),5)
ELSE
lcNewWkArea=0
ENDIF something bad happened WHILE attempting TO OPEN the FILE
ELSE
lcNewWkArea=VAL(SUBSTR(pcRIcursors,lnInUseSpot+LEN(tcTable)+1,5))
pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTable)+"*"+STR(lcNewWkArea,5),;
UPPER(tcTable)+"?"+STR(lcNewWkArea,5))
IF NOT EMPTY(tcOrder)
SET ORDER TO (tcOrder) IN (lcNewWkArea)
ENDIF sent an ORDER
IF pnerror<>0
lcNewWkArea=0
ENDIF something bad happened WHILE setting ORDER
ENDIF
RETURN (lcNewWkArea)
PROCEDURE riend
PARAMETERS tlSuccess
LOCAL lnXX,lnSpot,lcWorkArea
IF tlSuccess
END TRANSACTION
ELSE
SET DELETED OFF
ROLLBACK
SET DELETED ON
ENDIF
IF EMPTY(pcRIolderror)
ON ERROR
ELSE
ON ERROR &pcRIolderror.
ENDIF
FOR lnXX=1 TO OCCURS("*",pcRIcursors)
lnSpot=ATC("*",pcRIcursors,lnXX)+1
USE IN (VAL(SUBSTR(pcRIcursors,lnSpot,5)))
ENDFOR
IF pcOldCompat = "ON"
SET COMPATIBLE ON
ENDIF
IF pcOldDele="OFF"
SET DELETED OFF
ENDIF
IF pcOldExact="ON"
SET EXACT ON
ENDIF
IF pcOldTalk="ON"
SET TALK ON
ENDIF
DO CASE
CASE EMPTY(pcOldDBC)
SET DATA TO
CASE pcOldDBC<>DBC()
SET DATA TO (pcOldDBC)
ENDCASE
RETURN .T.
PROCEDURE rireuse
* rireuse.prg
PARAMETERS tcTableName,tcWkArea
pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTableName)+"?"+STR(tcWkArea,5),;
UPPER(tcTableName)+"*"+STR(tcWkArea,5))
RETURN .T.
********************************************************************************
** "Referential integrity delete trigger for" fb2p_depto
PROCEDURE __RI_DELETE_fb2p_depto
LOCAL llRetVal
llRetVal = .T.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _TRIGGERLEVEL=1
BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
pcOldTalk=SET("TALK")
SET TALK OFF
pcOldDele=SET("DELETED")
pcOldExact=SET("EXACT")
pcOldCompat=SET("COMPATIBLE")
SET COMPATIBLE OFF
SET DELETED ON
SET EXACT OFF
pcRIcursors=""
pcRIwkareas=""
pcRIolderror=ON("error")
pnerror=0
ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
IF TYPE('gaErrors(1)')<>"U"
RELEASE gaErrors
ENDIF
PUBLIC gaErrors(1,12)
pcOldDBC=DBC()
SET DATA TO ("FB2P_DBC")
ENDIF FIRST TRIGGER
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcParentWkArea
LOCAL llDelHeaderarea
LOCAL lcStartArea
lcStartArea=SELECT()
llRetVal=.T.
lcParentWkArea=SELECT()
SELECT (lcParentWkArea)
pcParentDBF=DBF()
pnParentRec=RECNO()
STORE DEPTO TO lcParentID,pcParentID
pcParentExpr="DEPTO"
lcChildWkArea=riopen("nombrelargodeldbf","depto")
IF lcChildWkArea<=0
IF _TRIGGERLEVEL=1
DO riend WITH .F.
ENDIF AT the END OF the highest TRIGGER LEVEL
RETURN .F.
ENDIF NOT able TO OPEN the CHILD WORK area
pcChildDBF=DBF(lcChildWkArea)
SELECT (lcChildWkArea)
SEEK lcParentID
SCAN WHILE DEPTO=lcParentID AND llRetVal
pnChildRec=RECNO()
pcChildID=DEPTO
pcChildExpr="DEPTO"
llRetVal=RIDELETE()
ENDSCAN GET ALL OF the nombrelargodeldbf RECORDS
=rireuse("nombrelargodeldbf",lcChildWkArea)
IF NOT llRetVal
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Delete trigger for" fb2p_depto
********************************************************************************
********************************************************************************
PROCEDURE __RI_UPDATE_nombrelargodeldbf
** "Referential integrity update trigger for" nombrelargodeldbf
LOCAL llRetVal
llRetVal = .T.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _TRIGGERLEVEL=1
BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
pcOldTalk=SET("TALK")
SET TALK OFF
pcOldDele=SET("DELETED")
pcOldExact=SET("EXACT")
pcOldCompat=SET("COMPATIBLE")
SET COMPATIBLE OFF
SET DELETED ON
SET EXACT OFF
pcRIcursors=""
pcRIwkareas=""
pcRIolderror=ON("error")
pnerror=0
ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
IF TYPE('gaErrors(1)')<>"U"
RELEASE gaErrors
ENDIF
PUBLIC gaErrors(1,12)
pcOldDBC=DBC()
SET DATA TO ("FB2P_DBC")
ENDIF FIRST TRIGGER
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=SELECT()
llRetVal=.T.
lcChildWkArea=SELECT()
IF _TRIGGERLEVEL=1 OR TYPE("pccascadeparent")#"C" OR (NOT pcCascadeParent=="FB2P_DEPTO")
SELECT (lcChildWkArea)
lcChildID=DEPTO
lcOldChildID=OLDVAL("DEPTO")
pcChildDBF=DBF(lcChildWkArea)
pnChildRec=RECNO(lcChildWkArea)
pcChildID=lcOldChildID
pcChildExpr="DEPTO"
IF ISNULL(lcChildID) OR ISNULL(lcOldChildID) OR lcChildID <> lcOldChildID
lcParentWkArea=riopen("fb2p_depto","depto")
IF lcParentWkArea<=0
IF _TRIGGERLEVEL=1
DO riend WITH .F.
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN .F.
ENDIF NOT able TO OPEN the CHILD WORK area
pcParentDBF=DBF(lcParentWkArea)
llRetVal=SEEK(lcChildID,lcParentWkArea)
pnParentRec=RECNO(lcParentWkArea)
IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
ISFLOCKED(lcParentWkArea))
IF RLOCK(lcParentWkArea)
UNLOCK RECORD pnParentRec IN (lcParentWkArea)
ELSE
=rireuse("tparen",lcParentWkArea)
pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
ENDIF
=rireuse("fb2p_depto",lcParentWkArea)
IF NOT llRetVal
pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
ENDIF no PARENT
ENDIF THIS VALUE was changed
ENDIF NOT PART OF a CASCADE FROM "fb2p_depto"
lcParentWkArea=lcChildWkArea
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" nombrelargodeldbf
********************************************************************************
********************************************************************************
** "Referential integrity insert trigger for" nombrelargodeldbf
PROCEDURE __RI_INSERT_nombrelargodeldbf
LOCAL llRetVal
llRetVal = .T.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _TRIGGERLEVEL=1
BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
pcOldTalk=SET("TALK")
SET TALK OFF
pcOldDele=SET("DELETED")
pcOldExact=SET("EXACT")
pcOldCompat=SET("COMPATIBLE")
SET COMPATIBLE OFF
SET DELETED ON
SET EXACT OFF
pcRIcursors=""
pcRIwkareas=""
pcRIolderror=ON("error")
pnerror=0
ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
IF TYPE('gaErrors(1)')<>"U"
RELEASE gaErrors
ENDIF
PUBLIC gaErrors(1,12)
pcOldDBC=DBC()
SET DATA TO ("FB2P_DBC")
ENDIF FIRST TRIGGER
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcChildWkArea && child's work area
LOCAL lcStartArea
lcStartArea=SELECT()
llRetVal=.T.
lcChildWkArea=SELECT()
SELECT (lcChildWkArea)
lcChildID=DEPTO
pcChildDBF=DBF(lcChildWkArea)
pnChildRec=RECNO(lcChildWkArea)
pcChildID=lcChildID
pcChildExpr="DEPTO"
lcParentWkArea=riopen("fb2p_depto","depto")
IF lcParentWkArea<=0
IF _TRIGGERLEVEL=1
DO riend WITH .F.
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN .F.
ENDIF NOT able TO OPEN the CHILD WORK area
pcParentDBF=DBF(lcParentWkArea)
llRetVal=SEEK(lcChildID,lcParentWkArea)
pnParentRec=RECNO(lcParentWkArea)
IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
ISFLOCKED(lcParentWkArea))
IF RLOCK(lcParentWkArea)
UNLOCK RECORD pnParentRec IN (lcParentWkArea)
ELSE
=rireuse("tparen",lcParentWkArea)
pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
ENDIF
=rireuse("fb2p_depto",lcParentWkArea)
IF NOT llRetVal
pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity insert trigger for" nombrelargodeldbf
********************************************************************************
**__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER**
]]></STOREDPROCEDURES>

BIN
TESTS/DATOS_READONLY/fb2p_dbc.dbc
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/fb2p_dbc.dct
View File

Binary file not shown.

64
TESTS/DATOS_READONLY/fb2p_dbc.table.fb2p_depto.dc2 Normal file
View File

@@ -0,0 +1,64 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<Name>FB2P_DEPTO</Name>
<Comment>Comentario de "fb2p_depto"</Comment>
<Path>fb2p_depto.dbf</Path>
<DeleteTrigger>__ri_delete_fb2p_depto()</DeleteTrigger>
<InsertTrigger></InsertTrigger>
<UpdateTrigger></UpdateTrigger>
<PrimaryKey>depto</PrimaryKey>
<RuleExpression>fb2p_depto_record_rule_validation()</RuleExpression>
<RuleText>fb2p_depto_record_rule_validation_message()</RuleText>
<FIELD_ORDER>
depto
descrip
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>depto</Name>
<Caption>"Depto.Caption"</Caption>
<Comment>depto_field_comment</Comment>
<DefaultValue>"Depto."</DefaultValue>
<DisplayClass>cl_optiongroup</DisplayClass>
<DisplayClassLibrary>c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx</DisplayClassLibrary>
<Format>!</Format>
<InputMask>XXXXXXXXXX</InputMask>
<RuleExpression>depto_field_validation_rule()</RuleExpression>
<RuleText>depto_field_validation_message()</RuleText>
</FIELD>
<FIELD>
<Name>descrip</Name>
<Caption>Descripci<63>n</Caption>
<Comment></Comment>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
</FIELD>
</FIELDS>
<INDEXES>
<INDEX>
<Name>depto</Name>
<Comment></Comment>
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX>
<Name>descrip</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
</INDEXES>
</TABLE>

139
TESTS/DATOS_READONLY/fb2p_dbc.table.nombrelargodeldbf.dc2 Normal file
View File

@@ -0,0 +1,139 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<Name>NOMBRELARGODELDBF</Name>
<Comment>Comentario de la tabla "fb2p_dbf"</Comment>
<Path>fb2p_dbf.dbf</Path>
<DeleteTrigger>del_trg()</DeleteTrigger>
<InsertTrigger>__ri_insert_nombrelargodeldbf().AND.(ins_trg())</InsertTrigger>
<UpdateTrigger>__ri_update_nombrelargodeldbf().AND.(upd_trg())</UpdateTrigger>
<PrimaryKey>id</PrimaryKey>
<RuleExpression>edad>10</RuleExpression>
<RuleText>"Mensaje de error de la regla edad > 10"</RuleText>
<FIELD_ORDER>
nombre
edad
id
bigtext
depto
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>bigtext</Name>
<Caption></Caption>
<Comment></Comment>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
</FIELD>
<FIELD>
<Name>depto</Name>
<Caption></Caption>
<Comment></Comment>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
</FIELD>
<FIELD>
<Name>edad</Name>
<Caption></Caption>
<Comment></Comment>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
</FIELD>
<FIELD>
<Name>id</Name>
<Caption></Caption>
<Comment></Comment>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
</FIELD>
<FIELD>
<Name>nombre</Name>
<Caption>"Nombre:"</Caption>
<Comment>Comentario de "Nombre"</Comment>
<DefaultValue>"."</DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format>A</Format>
<InputMask>!XXXXXXXXXXXXXXXXXXXXXXXXXXXXX</InputMask>
<RuleExpression>.NOT.EMPTY(nombre)</RuleExpression>
<RuleText>"El nombre est<73> vac<61>o"</RuleText>
</FIELD>
</FIELDS>
<INDEXES>
<INDEX>
<Name>depto</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>edad</Name>
<Comment></Comment>
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX>
<Name>edad_nd</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>i_nombre</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>id</Name>
<Comment></Comment>
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX>
<Name>nombre</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>notdeleted</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
</INDEXES>
<RELATIONS>
<RELATION>
<Name>Relation 1</Name>
<ChildTable>NOMBRELARGODELDBF</ChildTable>
<ParentTable>FB2P_DEPTO</ParentTable>
<ChildIndex>DEPTO</ChildIndex>
<ParentIndex>DEPTO</ParentIndex>
<RefIntegrity></RefIntegrity>
</RELATION>
</RELATIONS>
</TABLE>

193
TESTS/DATOS_READONLY/fb2p_dbc.view.rv_db_debug_setup.dc2 Normal file
View File

@@ -0,0 +1,193 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<VIEW>
<Name>rv_db_debug_setup</Name>
<Comment></Comment>
<Tables>STROSNC.DB_DEBUG_SETUP</Tables>
<SQL>SELECT Db_debug_setup.PK_NAME, Db_debug_setup.ENABLED, Db_debug_setup.EVALUACION, Db_debug_setup.PK_METODO, Db_debug_setup.NIVELDEBUG, Db_debug_setup.F_DESDE, Db_debug_setup.F_HASTA, Db_debug_setup.DIRECCION_IP, Db_debug_setup.USUARIO FROM STROSNC.DB_DEBUG_SETUP Db_debug_setup ORDER BY Db_debug_setup.PK_NAME, Db_debug_setup.PK_METODO</SQL>
<AllowSimultaneousFetch>.T.</AllowSimultaneousFetch>
<BatchUpdateCount>1</BatchUpdateCount>
<CompareMemo>.T.</CompareMemo>
<ConnectName>remote_connection_Oracle</ConnectName>
<FetchAsNeeded>.T.</FetchAsNeeded>
<FetchMemo>.T.</FetchMemo>
<FetchSize>100</FetchSize>
<MaxRecords>-1</MaxRecords>
<Offline>.F.</Offline>
<ParameterList></ParameterList>
<Prepared>.T.</Prepared>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<SendUpdates>.F.</SendUpdates>
<ShareConnection>.T.</ShareConnection>
<SourceType>2</SourceType>
<UpdateType>1</UpdateType>
<UseMemoSize>255</UseMemoSize>
<WhereType>3</WhereType>
<FIELD_ORDER>
pk_name
enabled
evaluacion
pk_metodo
niveldebug
f_desde
f_hasta
direccion_ip
usuario
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>direccion_ip</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.DIRECCION_IP</UpdateName>
</FIELD>
<FIELD>
<Name>enabled</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>N(3)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.ENABLED</UpdateName>
</FIELD>
<FIELD>
<Name>evaluacion</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>M</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.EVALUACION</UpdateName>
</FIELD>
<FIELD>
<Name>f_desde</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>T</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.F_DESDE</UpdateName>
</FIELD>
<FIELD>
<Name>f_hasta</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>T</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.F_HASTA</UpdateName>
</FIELD>
<FIELD>
<Name>niveldebug</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>N(3)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.NIVELDEBUG</UpdateName>
</FIELD>
<FIELD>
<Name>pk_metodo</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.PK_METODO</UpdateName>
</FIELD>
<FIELD>
<Name>pk_name</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.PK_NAME</UpdateName>
</FIELD>
<FIELD>
<Name>usuario</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.USUARIO</UpdateName>
</FIELD>
</FIELDS>
</VIEW>

127
TESTS/DATOS_READONLY/fb2p_dbc.view.vista_local.dc2 Normal file
View File

@@ -0,0 +1,127 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<VIEW>
<Name>vista_local</Name>
<Comment></Comment>
<Tables>fb2p_dbc!nombrelargodeldbf</Tables>
<SQL>SELECT Fb2p_depto.descrip, Nombrelargodeldbf.nombre, Nombrelargodeldbf.edad, Nombrelargodeldbf.id, Nombrelargodeldbf.depto FROM fb2p_dbc!fb2p_depto INNER JOIN fb2p_dbc!nombrelargodeldbf ON Fb2p_depto.depto = Nombrelargodeldbf.depto</SQL>
<AllowSimultaneousFetch>.F.</AllowSimultaneousFetch>
<BatchUpdateCount>1</BatchUpdateCount>
<CompareMemo>.T.</CompareMemo>
<ConnectName></ConnectName>
<FetchAsNeeded>.F.</FetchAsNeeded>
<FetchMemo>.T.</FetchMemo>
<FetchSize>100</FetchSize>
<MaxRecords>-1</MaxRecords>
<Offline>.T.</Offline>
<ParameterList></ParameterList>
<Prepared>.F.</Prepared>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<SendUpdates>.T.</SendUpdates>
<ShareConnection>.F.</ShareConnection>
<SourceType>1</SourceType>
<UpdateType>1</UpdateType>
<UseMemoSize>255</UseMemoSize>
<WhereType>3</WhereType>
<Path>..\..\vista_local.dbf</Path>
<RecordCount>5</RecordCount>
<FIELD_ORDER>
descrip
nombre
edad
id
depto
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>depto</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(10)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.depto</UpdateName>
</FIELD>
<FIELD>
<Name>descrip</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(50)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>fb2p_dbc!fb2p_depto.descrip</UpdateName>
</FIELD>
<FIELD>
<Name>edad</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>N(3)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.edad</UpdateName>
</FIELD>
<FIELD>
<Name>id</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>I</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.T.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.id</UpdateName>
</FIELD>
<FIELD>
<Name>nombre</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.nombre</UpdateName>
</FIELD>
</FIELDS>
</VIEW>

127
TESTS/DATOS_READONLY/fb2p_dbc.view.vw_local_encuestas.dc2 Normal file
View File

@@ -0,0 +1,127 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<VIEW>
<Name>vw_local_encuestas</Name>
<Comment></Comment>
<Tables></Tables>
<SQL>SELECT ENCUESTAS.Promotor,ENCUESTAS.Idenc,ENCUESTAS.Calific,ENCUESTAS.Fecha, ENCUESTAS.Resultado FROM C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\ENCUESTAS.DBF ENCUESTAS</SQL>
<AllowSimultaneousFetch>.F.</AllowSimultaneousFetch>
<BatchUpdateCount>1</BatchUpdateCount>
<CompareMemo>.T.</CompareMemo>
<ConnectName></ConnectName>
<FetchAsNeeded>.F.</FetchAsNeeded>
<FetchMemo>.T.</FetchMemo>
<FetchSize>100</FetchSize>
<MaxRecords>-1</MaxRecords>
<Offline>.T.</Offline>
<ParameterList></ParameterList>
<Prepared>.F.</Prepared>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<SendUpdates>.F.</SendUpdates>
<ShareConnection>.T.</ShareConnection>
<SourceType>1</SourceType>
<UpdateType>1</UpdateType>
<UseMemoSize>255</UseMemoSize>
<WhereType>3</WhereType>
<Path>vw_local_encuestas.dbf</Path>
<RecordCount>2</RecordCount>
<FIELD_ORDER>
promotor
idenc
calific
fecha
resultado
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>calific</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(2)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>calific</UpdateName>
</FIELD>
<FIELD>
<Name>fecha</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>D</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>fecha</UpdateName>
</FIELD>
<FIELD>
<Name>idenc</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(20)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>idenc</UpdateName>
</FIELD>
<FIELD>
<Name>promotor</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(20)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>promotor</UpdateName>
</FIELD>
<FIELD>
<Name>resultado</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(10)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>resultado</UpdateName>
</FIELD>
</FIELDS>
</VIEW>

93
TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_convenios.dc2 Normal file
View File

@@ -0,0 +1,93 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<VIEW>
<Name>vw_ora_convenios</Name>
<Comment></Comment>
<Tables>CONVENIOS</Tables>
<SQL>SELECT CONVENIOS.ID_CONVENIO,CONVENIOS.NOMBRE_CONVENIO,CONVENIOS.HISTORICO FROM CONVENIOS</SQL>
<AllowSimultaneousFetch>.F.</AllowSimultaneousFetch>
<BatchUpdateCount>1</BatchUpdateCount>
<CompareMemo>.T.</CompareMemo>
<ConnectName>remote_connection_Oracle</ConnectName>
<FetchAsNeeded>.F.</FetchAsNeeded>
<FetchMemo>.T.</FetchMemo>
<FetchSize>100</FetchSize>
<MaxRecords>-1</MaxRecords>
<Offline>.T.</Offline>
<ParameterList></ParameterList>
<Prepared>.F.</Prepared>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<SendUpdates>.F.</SendUpdates>
<ShareConnection>.T.</ShareConnection>
<SourceType>2</SourceType>
<UpdateType>1</UpdateType>
<UseMemoSize>255</UseMemoSize>
<WhereType>3</WhereType>
<Path></Path>
<RecordCount>0</RecordCount>
<FIELD_ORDER>
id_convenio
nombre_convenio
historico
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>historico</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(1)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>CONVENIOS.HISTORICO</UpdateName>
</FIELD>
<FIELD>
<Name>id_convenio</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(15)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>CONVENIOS.ID_CONVENIO</UpdateName>
</FIELD>
<FIELD>
<Name>nombre_convenio</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(250)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>CONVENIOS.NOMBRE_CONVENIO</UpdateName>
</FIELD>
</FIELDS>
</VIEW>

59
TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_dual.dc2 Normal file
View File

@@ -0,0 +1,59 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<VIEW>
<Name>vw_ora_dual</Name>
<Comment></Comment>
<Tables>DUAL</Tables>
<SQL>SELECT DUAL.DUMMY FROM DUAL</SQL>
<AllowSimultaneousFetch>.F.</AllowSimultaneousFetch>
<BatchUpdateCount>1</BatchUpdateCount>
<CompareMemo>.T.</CompareMemo>
<ConnectName>REMOTE_CONNECTION_ORACLE</ConnectName>
<FetchAsNeeded>.F.</FetchAsNeeded>
<FetchMemo>.T.</FetchMemo>
<FetchSize>100</FetchSize>
<MaxRecords>-1</MaxRecords>
<Offline>.T.</Offline>
<ParameterList></ParameterList>
<Prepared>.F.</Prepared>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<SendUpdates>.F.</SendUpdates>
<ShareConnection>.T.</ShareConnection>
<SourceType>2</SourceType>
<UpdateType>1</UpdateType>
<UseMemoSize>255</UseMemoSize>
<WhereType>3</WhereType>
<Path></Path>
<RecordCount>0</RecordCount>
<FIELD_ORDER>
dummy
</FIELD_ORDER>
<FIELDS>
<FIELD>
<Name>dummy</Name>
<Caption>Dummy</Caption>
<Comment>Dummy_field_comment</Comment>
<DataType>C(1)</DataType>
<DefaultValue>Depto.</DefaultValue>
<DisplayClass>cl_optiongroup</DisplayClass>
<DisplayClassLibrary>fb2p_test.vcx</DisplayClassLibrary>
<Format>!</Format>
<InputMask>XXXXXXXXXX</InputMask>
<KeyField>.F.</KeyField>
<RuleExpression>dummy_field_validation_rule()</RuleExpression>
<RuleText>dummy_field_validation_message</RuleText>
<Updatable>.T.</Updatable>
<UpdateName>DUAL.DUMMY</UpdateName>
</FIELD>
</FIELDS>
</VIEW>

49
TESTS/DATOS_READONLY/fb2p_depto.db2
View File

@@ -5,6 +5,7 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_depto.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
@@ -56,34 +57,42 @@
</FIELD>
</FIELDS>
<IndexFiles>
<indexFile>FB2P_DEPTO.CDX</indexFile>
<IndexFile Type="Structural" >
<INDEXES>
<INDEX>
<TagName>DEPTO</TagName>
<TagType>PRIMARY</TagType>
<Key>DEPTO</Key>
<Filter>depto=>"0"</Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>DESCRIP</TagName>
<TagType>REGULAR</TagType>
<Key>DESCRIP</Key>
<Filter></Filter>
<Order>DESCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
</INDEXES>
<INDEXES>
<INDEX>
<TagName>DEPTO</TagName>
<TagType>PRIMARY</TagType>
<Key>DEPTO</Key>
<Filter>depto=>"0"</Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>DESCRIP</TagName>
<TagType>REGULAR</TagType>
<Key>DESCRIP</Key>
<Filter></Filter>
<Order>DESCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
</INDEXES>
</IndexFile>
</IndexFiles>
<RECORDS>
<RECORD num="1">
<RECORD>
<DEPTO>D.1.C</DEPTO>
<DESCRIP>la descrip</DESCRIP>
</RECORD>
</RECORDS>
</TABLE>

114
TESTS/DATOS_READONLY/fb2p_free.db2
View File

@@ -5,6 +5,7 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_free.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
@@ -376,39 +377,44 @@
</FIELD>
</FIELDS>
<IndexFiles>
<indexFile>FB2P_FREE.CDX</indexFile>
<IndexFile Type="Structural" >
<INDEXES>
<INDEX>
<TagName>CARACTER</TagName>
<TagType>CANDIDATE</TagType>
<Key>CARACTER</Key>
<Filter>.NOT.EMPTY(caracter)</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>ENTERO</TagName>
<TagType>REGULAR</TagType>
<Key>ENTERO</Key>
<Filter></Filter>
<Order>DESCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>LOGICO</TagName>
<TagType>BINARY</TagType>
<Key>LOGICO</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
</INDEXES>
<INDEXES>
<INDEX>
<TagName>CARACTER</TagName>
<TagType>CANDIDATE</TagType>
<Key>CARACTER</Key>
<Filter>.NOT.EMPTY(caracter)</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>ENTERO</TagName>
<TagType>REGULAR</TagType>
<Key>ENTERO</Key>
<Filter></Filter>
<Order>DESCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX>
<TagName>LOGICO</TagName>
<TagType>BINARY</TagType>
<Key>LOGICO</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
</INDEXES>
</IndexFile>
</IndexFiles>
<RECORDS>
<RECORD num="4">
<RECORD>
<CARACTER></CARACTER>
<FECHA>/ / </FECHA>
<FECHORA>/ / : : </FECHORA>
@@ -423,11 +429,12 @@
<VAR_BINARY></VAR_BINARY>
<VAR_CHAR></VAR_CHAR>
<NOTASBIN></NOTASBIN>
<CARC_BIN>ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg</CARC_BIN>
<CARC_BIN></CARC_BIN>
<VARCHARBIN></VARCHARBIN>
<ID_AUTOINC>45</ID_AUTOINC>
<ID_AUTOINC>50</ID_AUTOINC>
</RECORD>
<RECORD num="2">
<RECORD>
<CARACTER>axaxaxaxaXAXA</CARACTER>
<FECHA>1969/11/26</FECHA>
<FECHORA>1969/11/26 22:10:06</FECHORA>
@@ -438,15 +445,18 @@
<BLOB>NgAuAEUAcwB0AGEAIABlAHMAIAB1AG4AYQAgAGYAcgBhAHMAZQAgAGMAbwBkAGkAZgBpAGMAYQBkAGEAIABlAG4AIABoAGUAeABhACAAeQAgAGMAbwBuACAAYwBhAHIAYQBjAHQAZQByAGUAcwAgAGUAcwBwAGUAYwBpAGEAbABlAHMALgAgAOEA6QDtAPMA+gDBAMkAzQDTANoAxADLAM8A1gDcAOQA6wDvAPYA/ADgAOgA7ADyAPkA8QDRAMcA5wBeAA==</BLOB>
<MONEDA>12345.6786</MONEDA>
<ENTERO>1234567896</ENTERO>
<NOTAS>6.notas TXT.&#13;&#10;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.&#13;&#10;^Fin<69><6E></NOTAS>
<NOTAS><![CDATA[6.notas TXT.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
^Fin<69><6E>]]></NOTAS>
<VAR_BINARY>Ni5GcmFzZSBVVEYtOC4gw6HDqcOtw7PDusOEw4vDj8OWw5w=</VAR_BINARY>
<VAR_CHAR>var char 6.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></VAR_CHAR>
<NOTASBIN>yQBzAHQAYQAgAGUAcwAgAGwAYQAgAHMAZQDxAGEAbAAhAA==</NOTASBIN>
<CARC_BIN>Q2hhckJpbi02LsOhw6nDrcOzw7rDnMORICAgICAg</CARC_BIN>
<VARCHARBIN>VkNoYXJCaW4tNi7DocOpw63Ds8O6w5zDkQ==</VARCHARBIN>
<ID_AUTOINC>35</ID_AUTOINC>
<NOTASBIN><![CDATA[<5B>sta es la se<00>al!]]></NOTASBIN>
<CARC_BIN>CharBin-6.áéíóúÜÑ</CARC_BIN>
<VARCHARBIN>VCharBin-6.áéíóúÜÑ</VARCHARBIN>
<ID_AUTOINC>55</ID_AUTOINC>
</RECORD>
<RECORD num="1">
<RECORD>
<CARACTER>lalal.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></CARACTER>
<FECHA>1969/11/27</FECHA>
<FECHORA>1969/11/27 22:10:07</FECHORA>
@@ -457,15 +467,18 @@
<BLOB>NwAuAEUAcwB0AGEAIABlAHMAIAB1AG4AYQAgAGYAcgBhAHMAZQAgAGMAbwBkAGkAZgBpAGMAYQBkAGEAIABlAG4AIABoAGUAeABhACAAeQAgAGMAbwBuACAAYwBhAHIAYQBjAHQAZQByAGUAcwAgAGUAcwBwAGUAYwBpAGEAbABlAHMALgAgAOEA6QDtAPMA+gDBAMkAzQDTANoAxADLAM8A1gDcAOQA6wDvAPYA/ADgAOgA7ADyAPkA8QDRAMcA5wBeAA==</BLOB>
<MONEDA>12345.6787</MONEDA>
<ENTERO>1234567897</ENTERO>
<NOTAS>7.notas TXT.&#13;&#10;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.&#13;&#10;^Fin<69><6E></NOTAS>
<NOTAS><![CDATA[7.notas TXT.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
^Fin<69><6E>]]></NOTAS>
<VAR_BINARY>Ny5GcmFzZSBVVEYtOC4gw6HDqcOtw7PDusOEw4vDj8OWw5w=</VAR_BINARY>
<VAR_CHAR>var char 7.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></VAR_CHAR>
<NOTASBIN>yQB4AGkAdABvAHMAIADaAG4AaQBjAG8AcwAhACAAOgApAA==</NOTASBIN>
<CARC_BIN>Q2hhckJpbi03LsOhw6nDrcOzw7rDnMORICAgICAg</CARC_BIN>
<VARCHARBIN>VkNoYXJCaW4tNy7DocOpw63Ds8O6w5zDkQ==</VARCHARBIN>
<ID_AUTOINC>30</ID_AUTOINC>
<NOTASBIN><![CDATA[<5B>xitos <00>nicos! :)]]></NOTASBIN>
<CARC_BIN>CharBin-7.áéíóúÜÑ</CARC_BIN>
<VARCHARBIN>VCharBin-7.áéíóúÜÑ</VARCHARBIN>
<ID_AUTOINC>60</ID_AUTOINC>
</RECORD>
<RECORD num="3">
<RECORD>
<CARACTER>pepepepepEPE</CARACTER>
<FECHA>1969/11/25</FECHA>
<FECHORA>1969/11/25 22:10:05</FECHORA>
@@ -476,14 +489,19 @@
<BLOB>NQAuAEUAcwB0AGEAIABlAHMAIAB1AG4AYQAgAGYAcgBhAHMAZQAgAGMAbwBkAGkAZgBpAGMAYQBkAGEAIABlAG4AIABoAGUAeABhACAAeQAgAGMAbwBuACAAYwBhAHIAYQBjAHQAZQByAGUAcwAgAGUAcwBwAGUAYwBpAGEAbABlAHMALgAgAOEA6QDtAPMA+gDBAMkAzQDTANoAxADLAM8A1gDcAOQA6wDvAPYA/ADgAOgA7ADyAPkA8QDRAMcA5wBeAA==</BLOB>
<MONEDA>12345.6785</MONEDA>
<ENTERO>1234567895</ENTERO>
<NOTAS>5.notas TXT.&#13;&#10;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.&#13;&#10;^Fin<69><6E></NOTAS>
<NOTAS><![CDATA[5.notas TXT.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
^Fin<69><6E>]]></NOTAS>
<VAR_BINARY>NS5GcmFzZSBVVEYtOC4gw6HDqcOtw7PDusOEw4vDj8OWw5w=</VAR_BINARY>
<VAR_CHAR>var char 5.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></VAR_CHAR>
<NOTASBIN>yQBzAHQAYQAgAGUAcwAgAGwAYQAgAHMAZQDxAGEAbAAhAA==</NOTASBIN>
<CARC_BIN>Q2hhckJpbi01LsOhw6nDrcOzw7rDnMORICAgICAg</CARC_BIN>
<VARCHARBIN>VkNoYXJCaW4tNS7DocOpw63Ds8O6w5zDkQ==</VARCHARBIN>
<ID_AUTOINC>40</ID_AUTOINC>
<NOTASBIN><![CDATA[<5B>sta es la se<00>al!]]></NOTASBIN>
<CARC_BIN>CharBin-5.áéíóúÜÑ</CARC_BIN>
<VARCHARBIN>VCharBin-5.áéíóúÜÑ</VARCHARBIN>
<ID_AUTOINC>65</ID_AUTOINC>
</RECORD>
</RECORDS>
</TABLE>

511
TESTS/DATOS_READONLY/fb2p_frm_1.cl_form1.sc2 Normal file
View File

@@ -0,0 +1,511 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" />
*<PropValue>
AllowOutput = .T.
AlwaysOnBottom = .F.
AlwaysOnTop = .T.
AutoCenter = .T.
BackColor = 240,240,240
BindControls = .T.
BorderStyle = 3
BufferMode = 0
Caption = "Form"
ClipControls = .T.
Closable = .T.
ColorSource = 4
Comment = ""
ContinuousScroll = .T.
ControlBox = .T.
DataSession = 1
DefOleLCID = 0
Desktop = .F.
Dockable = 0
DoCreate = .T.
DrawMode = 13
DrawStyle = 0
DrawWidth = 1
Enabled = .T.
FillColor = 0,0,0
FillStyle = 1
FontBold = .F.
FontCharSet = 0
FontCondense = .F.
FontExtend = .F.
FontItalic = .F.
FontName = "Arial"
FontOutline = .F.
FontShadow = .F.
FontSize = 9
FontStrikethru = .F.
FontUnderline = .F.
ForeColor = 0,0,0
HalfHeightCaption = .F.
Height = 346
HelpContextID = 0
HScrollSmallChange = 10
Icon = ..\..\
KeyPreview = .F.
LockScreen = .F.
MacDesktop = 0
MaxButton = .T.
MaxHeight = -1
MaxLeft = -1
MaxTop = -1
MaxWidth = -1
MDIForm = .F.
MinButton = .T.
MinHeight = -1
MinWidth = -1
MouseIcon = ..\..\
MousePointer = 0
Movable = .T.
Name = "cl_form1"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
Picture = bmps\fondogris.bmp
RightToLeft = .F.
ScaleMode = 3
ScrollBars = 0
ShowInTaskBar = .T.
ShowTips = .F.
ShowWindow = 0
SizeBox = .F.
TabIndex = 1
TabStop = .T.
Tag = ""
Themes = .T.
TitleBar = 1
Visible = .T.
VScrollSmallChange = 10
WhatsThisButton = .F.
WhatsThisHelp = .F.
WhatsThisHelpID = -1
Width = 648
WindowState = 0
WindowType = 0
ZoomBox = .F.
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.RightToLeft = .F.
Cl_optiongroup1.Option1.Top = 8
Cl_optiongroup1.Option1.Value = 0
Cl_optiongroup1.Option2.Left = 124
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.RightToLeft = .F.
Cl_optiongroup1.Option2.Top = 8
Cl_optiongroup1.Option2.Value = 1
Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form!
Cl_optiongroup1.Value = 2
Cl_optiongroup1.ZOrderSet = 1
Cl_commandgroup1.Command1.Left = 8
Cl_commandgroup1.Command1.Name = "Command1"
Cl_commandgroup1.Command1.RightToLeft = .F.
Cl_commandgroup1.Command1.Top = 4
Cl_commandgroup1.Command2.Left = 124
Cl_commandgroup1.Command2.Name = "Command2"
Cl_commandgroup1.Command2.RightToLeft = .F.
Cl_commandgroup1.Command2.Top = 4
Cl_commandgroup1.Name = "Cl_commandgroup1"
Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor
Cl_commandgroup1.ZOrderSet = 2
Cl_imagen1.Left = 268
Cl_imagen1.Name = "Cl_imagen1"
Cl_imagen1.Top = 292
Cl_imagen1.ZOrderSet = 3
Cl_imagen2.Left = 316
Cl_imagen2.Name = "Cl_imagen2"
Cl_imagen2.Top = 292
Cl_imagen2.ZOrderSet = 4
*</PropValue>
ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ;
Height = 67, ;
Left = 484, ;
Name = "Cl_olecontrol1", ;
Top = 256, ;
Width = 131
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBdOTWhkM8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
BackColor = 255,128,255, ;
ButtonCount = 2, ;
Height = 76, ;
Left = 8, ;
Name = "Commandgroup1", ;
Top = 172, ;
Value = 1, ;
Width = 244, ;
ZOrderSet = 16, ;
Command1.Caption = "\<Abrir", ;
Command1.Height = 56, ;
Command1.Left = 12, ;
Command1.Name = "Command1", ;
Command1.Picture = bmps\carpetaabierta.bmp, ;
Command1.RightToLeft = .F., ;
Command1.Top = 8, ;
Command1.Width = 100, ;
Command2.Caption = "\<Cerrar", ;
Command2.Height = 56, ;
Command2.Left = 128, ;
Command2.Name = "Command2", ;
Command2.Picture = bmps\carpetacerrada.bmp, ;
Command2.RightToLeft = .F., ;
Command2.Top = 8, ;
Command2.Width = 96
*< END OBJECT: BaseClass="commandgroup" />
ADD OBJECT 'grdEncuestas' AS grid WITH ;
ColumnCount = 5, ;
DeleteMark = .F., ;
Height = 140, ;
Left = 268, ;
Name = "grdEncuestas", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "encuestas", ;
RecordSourceType = 1, ;
RightToLeft = .F., ;
Top = 12, ;
Width = 320, ;
ZOrderSet = 15, ;
Column1.ControlSource = "encuestas.promotor", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 58, ;
Column2.ControlSource = "encuestas.idenc", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 46, ;
Column3.ControlSource = "encuestas.calific", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 41, ;
Column4.ControlSource = "encuestas.fecha", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column4.Width = 69, ;
Column5.ControlSource = "encuestas.resultado", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 58
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ;
Caption = "promotor", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ;
Caption = "idenc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ;
Caption = "calific", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ;
Caption = "fecha", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ;
Caption = "resultado", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'lblCalific' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Calific", ;
Left = 491, ;
Name = "lblCalific", ;
RightToLeft = .F., ;
TabIndex = 7, ;
Top = 164, ;
Width = 34, ;
WordWrap = .T., ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblFecha' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Fecha", ;
Left = 491, ;
Name = "lblFecha", ;
RightToLeft = .F., ;
TabIndex = 9, ;
Top = 192, ;
Width = 34, ;
WordWrap = .T., ;
ZOrderSet = 12
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblIdenc' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Idenc", ;
Left = 292, ;
Name = "lblIdenc", ;
RightToLeft = .F., ;
TabIndex = 5, ;
Top = 192, ;
Width = 30, ;
WordWrap = .T., ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblPromotor' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Promotor", ;
Left = 271, ;
Name = "lblPromotor", ;
RightToLeft = .F., ;
TabIndex = 3, ;
Top = 164, ;
Width = 51, ;
WordWrap = .T., ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblResultado' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Resultado", ;
Left = 472, ;
Name = "lblResultado", ;
RightToLeft = .F., ;
TabIndex = 11, ;
Top = 220, ;
Width = 57, ;
WordWrap = .T., ;
ZOrderSet = 14
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
BackColor = 0,128,255, ;
ButtonCount = 2, ;
Height = 72, ;
Left = 8, ;
Name = "Optiongroup1", ;
Top = 256, ;
Value = 2, ;
Width = 244, ;
ZOrderSet = 17, ;
Option1.Caption = "Option1", ;
Option1.Height = 48, ;
Option1.Left = 16, ;
Option1.Name = "Option1", ;
Option1.Picture = bmps\scccheckout.bmp, ;
Option1.RightToLeft = .F., ;
Option1.Style = 1, ;
Option1.Top = 12, ;
Option1.Value = 0, ;
Option1.Width = 92, ;
Option2.Caption = "Option2", ;
Option2.Height = 48, ;
Option2.Left = 132, ;
Option2.Name = "Option2", ;
Option2.Picture = bmps\scccheckout.bmp, ;
Option2.RightToLeft = .F., ;
Option2.Style = 1, ;
Option2.Top = 12, ;
Option2.Value = 1, ;
Option2.Width = 88
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'Shape1' AS shape WITH ;
BorderStyle = 2, ;
BorderWidth = 1, ;
Curvature = 16, ;
Height = 49, ;
Left = 264, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 284, ;
Width = 101, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtCalific' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.calific", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
MaxLength = 2, ;
Name = "txtCalific", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 8, ;
Top = 164, ;
Width = 38, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtFecha' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.fecha", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
Name = "txtFecha", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 10, ;
Top = 192, ;
Width = 73, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtIdenc' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.idenc", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 328, ;
MaxLength = 20, ;
Name = "txtIdenc", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 6, ;
Top = 192, ;
Width = 149, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtPromotor' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.promotor", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 328, ;
MaxLength = 20, ;
Name = "txtPromotor", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 4, ;
Top = 164, ;
Width = 149, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtResultado' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.resultado", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
MaxLength = 10, ;
Name = "txtResultado", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 12, ;
Top = 220, ;
Width = 81, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="textbox" />
PROCEDURE grdEncuestas.AfterRowColChange
LPARAMETERS nColIndex
thisform.Refresh()
ENDPROC
ENDDEFINE

58
TESTS/DATOS_READONLY/fb2p_frm_1.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,58 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
*<PropValue>
AutoCloseTables = .T.
AutoOpenTables = .T.
Comment = ""
DataSource = .NULL.
DataSourceType = ""
Height = 200
InitialSelectedAlias = ""
Left = 11
Name = "Dataenvironment"
OpenViews = 0
Tag = ""
Top = 404
Width = 520
*</PropValue>
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "encuestas", ;
BufferModeOverride = 1, ;
Comment = "", ;
CursorSource = encuestas.dbf, ;
Exclusive = .F., ;
Filter = "", ;
Height = 98, ;
Left = 10, ;
Name = "Cursor1", ;
NoDataOnLoad = .F., ;
Order = "", ;
OrderDirection = 0, ;
ReadOnly = .F., ;
Tag = "", ;
Top = 20, ;
Width = 102
*< END OBJECT: BaseClass="cursor" />
PROCEDURE BeforeOpenTables
*-- Comentario en m<>todo [Dataenvironment.BeforeOpenTables]
ENDPROC
PROCEDURE Cursor1.Init
*-- Comentario en m<>todo [Dataenvironment.Cursor1.Init]
ENDPROC
ENDDEFINE

558
TESTS/DATOS_READONLY/fb2p_frm_1.sc2
View File

@@ -4,561 +4,9 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="cl_form1" Baseclass="form" />
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*
#INCLUDE "..\..\include\principal.h"
DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" />
AllowOutput = .T.
AlwaysOnBottom = .F.
AlwaysOnTop = .T.
AutoCenter = .T.
BackColor = 240,240,240
BindControls = .T.
BorderStyle = 3
BufferMode = 0
Caption = "Form"
ClipControls = .T.
Closable = .T.
ColorSource = 4
Comment = ""
ContinuousScroll = .T.
ControlBox = .T.
DataSession = 1
DefOleLCID = 0
Desktop = .F.
Dockable = 0
DoCreate = .T.
DrawMode = 13
DrawStyle = 0
DrawWidth = 1
Enabled = .T.
FillColor = 0,0,0
FillStyle = 1
FontBold = .F.
FontCharSet = 0
FontCondense = .F.
FontExtend = .F.
FontItalic = .F.
FontName = "Arial"
FontOutline = .F.
FontShadow = .F.
FontSize = 9
FontStrikethru = .F.
FontUnderline = .F.
ForeColor = 0,0,0
HalfHeightCaption = .F.
Height = 346
HelpContextID = 0
HScrollSmallChange = 10
Icon = ..\..\
KeyPreview = .F.
LockScreen = .F.
MacDesktop = 0
MaxButton = .T.
MaxHeight = -1
MaxLeft = -1
MaxTop = -1
MaxWidth = -1
MDIForm = .F.
MinButton = .T.
MinHeight = -1
MinWidth = -1
MouseIcon = ..\..\
MousePointer = 0
Movable = .T.
Name = "cl_form1"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
Picture = bmps\fondogris.bmp
RightToLeft = .F.
ScaleMode = 3
ScrollBars = 0
ShowInTaskBar = .T.
ShowTips = .F.
ShowWindow = 0
SizeBox = .F.
TabIndex = 1
TabStop = .T.
Tag = ""
Themes = .T.
TitleBar = 1
Visible = .T.
VScrollSmallChange = 10
WhatsThisButton = .F.
WhatsThisHelp = .F.
WhatsThisHelpID = -1
Width = 648
WindowState = 0
WindowType = 0
ZoomBox = .F.
Cl_commandgroup1.Command1.Left = 8
Cl_commandgroup1.Command1.Name = "Command1"
Cl_commandgroup1.Command1.RightToLeft = .F.
Cl_commandgroup1.Command1.Top = 4
Cl_commandgroup1.Command2.Left = 124
Cl_commandgroup1.Command2.Name = "Command2"
Cl_commandgroup1.Command2.RightToLeft = .F.
Cl_commandgroup1.Command2.Top = 4
Cl_commandgroup1.Name = "Cl_commandgroup1"
Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor
Cl_commandgroup1.ZOrderSet = 2
Cl_imagen1.Left = 268
Cl_imagen1.Name = "Cl_imagen1"
Cl_imagen1.Top = 292
Cl_imagen1.ZOrderSet = 3
Cl_imagen2.Left = 316
Cl_imagen2.Name = "Cl_imagen2"
Cl_imagen2.Top = 292
Cl_imagen2.ZOrderSet = 4
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.RightToLeft = .F.
Cl_optiongroup1.Option1.Top = 8
Cl_optiongroup1.Option1.Value = 0
Cl_optiongroup1.Option2.Left = 124
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.RightToLeft = .F.
Cl_optiongroup1.Option2.Top = 8
Cl_optiongroup1.Option2.Value = 1
Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form!
Cl_optiongroup1.Value = 2
Cl_optiongroup1.ZOrderSet = 1
ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ;
Height = 67, ;
Left = 484, ;
Name = "Cl_olecontrol1", ;
Top = 256, ;
Width = 131
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBdOTWhkM8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
BackColor = 255,128,255, ;
ButtonCount = 2, ;
Height = 76, ;
Left = 8, ;
Name = "Commandgroup1", ;
Top = 172, ;
Value = 1, ;
Width = 244, ;
ZOrderSet = 16, ;
Command1.Caption = "\<Abrir", ;
Command1.Height = 56, ;
Command1.Left = 12, ;
Command1.Name = "Command1", ;
Command1.Picture = bmps\carpetaabierta.bmp, ;
Command1.RightToLeft = .F., ;
Command1.Top = 8, ;
Command1.Width = 100, ;
Command2.Caption = "\<Cerrar", ;
Command2.Height = 56, ;
Command2.Left = 128, ;
Command2.Name = "Command2", ;
Command2.Picture = bmps\carpetacerrada.bmp, ;
Command2.RightToLeft = .F., ;
Command2.Top = 8, ;
Command2.Width = 96
*< END OBJECT: BaseClass="commandgroup" />
ADD OBJECT 'grdEncuestas' AS grid WITH ;
ColumnCount = 5, ;
DeleteMark = .F., ;
Height = 140, ;
Left = 268, ;
Name = "grdEncuestas", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "encuestas", ;
RecordSourceType = 1, ;
RightToLeft = .F., ;
Top = 12, ;
Width = 320, ;
ZOrderSet = 15, ;
Column1.ControlSource = "encuestas.promotor", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 58, ;
Column2.ControlSource = "encuestas.idenc", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 46, ;
Column3.ControlSource = "encuestas.calific", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 41, ;
Column4.ControlSource = "encuestas.fecha", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column4.Width = 69, ;
Column5.ControlSource = "encuestas.resultado", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 58
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ;
Caption = "promotor", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ;
Caption = "idenc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ;
Caption = "calific", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ;
Caption = "fecha", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ;
Caption = "resultado", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'lblCalific' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Calific", ;
Left = 491, ;
Name = "lblCalific", ;
RightToLeft = .F., ;
TabIndex = 7, ;
Top = 164, ;
Width = 34, ;
WordWrap = .T., ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblFecha' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Fecha", ;
Left = 491, ;
Name = "lblFecha", ;
RightToLeft = .F., ;
TabIndex = 9, ;
Top = 192, ;
Width = 34, ;
WordWrap = .T., ;
ZOrderSet = 12
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblIdenc' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Idenc", ;
Left = 292, ;
Name = "lblIdenc", ;
RightToLeft = .F., ;
TabIndex = 5, ;
Top = 192, ;
Width = 30, ;
WordWrap = .T., ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblPromotor' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Promotor", ;
Left = 271, ;
Name = "lblPromotor", ;
RightToLeft = .F., ;
TabIndex = 3, ;
Top = 164, ;
Width = 51, ;
WordWrap = .T., ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblResultado' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Resultado", ;
Left = 472, ;
Name = "lblResultado", ;
RightToLeft = .F., ;
TabIndex = 11, ;
Top = 220, ;
Width = 57, ;
WordWrap = .T., ;
ZOrderSet = 14
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
BackColor = 0,128,255, ;
ButtonCount = 2, ;
Height = 72, ;
Left = 8, ;
Name = "Optiongroup1", ;
Top = 256, ;
Value = 2, ;
Width = 244, ;
ZOrderSet = 17, ;
Option1.Caption = "Option1", ;
Option1.Height = 48, ;
Option1.Left = 16, ;
Option1.Name = "Option1", ;
Option1.Picture = bmps\scccheckout.bmp, ;
Option1.RightToLeft = .F., ;
Option1.Style = 1, ;
Option1.Top = 12, ;
Option1.Value = 0, ;
Option1.Width = 92, ;
Option2.Caption = "Option2", ;
Option2.Height = 48, ;
Option2.Left = 132, ;
Option2.Name = "Option2", ;
Option2.Picture = bmps\scccheckout.bmp, ;
Option2.RightToLeft = .F., ;
Option2.Style = 1, ;
Option2.Top = 12, ;
Option2.Value = 1, ;
Option2.Width = 88
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'Shape1' AS shape WITH ;
BorderStyle = 2, ;
BorderWidth = 1, ;
Curvature = 16, ;
Height = 49, ;
Left = 264, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 284, ;
Width = 101, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtCalific' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.calific", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
MaxLength = 2, ;
Name = "txtCalific", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 8, ;
Top = 164, ;
Width = 38, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtFecha' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.fecha", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
Name = "txtFecha", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 10, ;
Top = 192, ;
Width = 73, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtIdenc' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.idenc", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 328, ;
MaxLength = 20, ;
Name = "txtIdenc", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 6, ;
Top = 192, ;
Width = 149, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtPromotor' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.promotor", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 328, ;
MaxLength = 20, ;
Name = "txtPromotor", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 4, ;
Top = 164, ;
Width = 149, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtResultado' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.resultado", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
MaxLength = 10, ;
Name = "txtResultado", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 12, ;
Top = 220, ;
Width = 81, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="textbox" />
PROCEDURE grdEncuestas.AfterRowColChange
LPARAMETERS nColIndex
thisform.Refresh()
ENDPROC
ENDDEFINE
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
AutoCloseTables = .T.
AutoOpenTables = .T.
Comment = ""
DataSource = .NULL.
DataSourceType = ""
Height = 200
InitialSelectedAlias = ""
Left = 11
Name = "Dataenvironment"
OpenViews = 0
Tag = ""
Top = 404
Width = 520
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "encuestas", ;
BufferModeOverride = 1, ;
Comment = "", ;
CursorSource = encuestas.dbf, ;
Exclusive = .F., ;
Filter = "", ;
Height = 98, ;
Left = 10, ;
Name = "Cursor1", ;
NoDataOnLoad = .F., ;
Order = "", ;
OrderDirection = 0, ;
ReadOnly = .F., ;
Tag = "", ;
Top = 20, ;
Width = 102
*< END OBJECT: BaseClass="cursor" />
PROCEDURE BeforeOpenTables
*-- Comentario en m<>todo [Dataenvironment.BeforeOpenTables]
ENDPROC
PROCEDURE Cursor1.Init
*-- Comentario en m<>todo [Dataenvironment.Cursor1.Init]
ENDPROC
ENDDEFINE

19
TESTS/DATOS_READONLY/fb2p_frm_2.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,19 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

226
TESTS/DATOS_READONLY/fb2p_frm_2.form1.sc2 Normal file
View File

@@ -0,0 +1,226 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: a_otra
*a: a_prop[1,0] && array
*p: _prop
*</DefinedPropArrayMethod>
*<PropValue>
AllowOutput = .T.
AlwaysOnBottom = .F.
AlwaysOnTop = .T.
AutoCenter = .F.
a_otra = .F.
BackColor = 240,240,240
BindControls = .T.
BorderStyle = 3
BufferMode = 0
Caption = "Form1"
ClipControls = .T.
Closable = .T.
ColorSource = 4
ContinuousScroll = .T.
ControlBox = .T.
DataSession = 1
DefOleLCID = 0
Dockable = 0
DoCreate = .T.
DrawMode = 13
DrawStyle = 0
DrawWidth = 1
Enabled = .T.
FillColor = 0,0,0
FillStyle = 1
FontBold = .F.
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 = 250
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
MousePointer = 0
Movable = .T.
Name = "Form1"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
RightToLeft = .F.
ScaleMode = 3
ScrollBars = 0
ShowInTaskBar = .T.
ShowTips = .F.
ShowWindow = 0
SizeBox = .F.
TabIndex = 1
TabStop = .T.
Tag = ""
Themes = .T.
TitleBar = 1
Top = 1
Visible = .T.
VScrollSmallChange = 10
WhatsThisButton = .F.
WhatsThisHelp = .F.
WhatsThisHelpID = -1
Width = 375
WindowState = 0
WindowType = 0
ZoomBox = .F.
_prop = .F.
*</PropValue>
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
ButtonCount = 3, ;
Height = 100, ;
Left = 12, ;
Name = "Commandgroup1", ;
Top = 8, ;
Value = 2, ;
Width = 94, ;
Command1.Caption = "Command1", ;
Command1.Height = 27, ;
Command1.Left = 5, ;
Command1.Name = "Command1", ;
Command1.Top = 5, ;
Command1.Width = 84, ;
Command2.Alignment = 2, ;
Command2.Anchor = 0, ;
Command2.AutoSize = .F., ;
Command2.BackColor = 240,240,240, ;
Command2.Cancel = .F., ;
Command2.Caption = "Command2", ;
Command2.ColorScheme = 1, ;
Command2.ColorSource = 4, ;
Command2.Default = .F., ;
Command2.DisabledBackColor = 240,240,240, ;
Command2.DisabledForeColor = 109,109,109, ;
Command2.DragMode = 0, ;
Command2.Enabled = .T., ;
Command2.FontBold = .F., ;
Command2.FontCondense = .F., ;
Command2.FontExtend = .F., ;
Command2.FontItalic = .F., ;
Command2.FontName = "Arial", ;
Command2.FontOutline = .F., ;
Command2.FontShadow = .F., ;
Command2.FontSize = 9, ;
Command2.FontStrikethru = .F., ;
Command2.FontUnderline = .F., ;
Command2.ForeColor = 0,0,0, ;
Command2.Height = 27, ;
Command2.HelpContextID = 0, ;
Command2.Left = 5, ;
Command2.MousePointer = 0, ;
Command2.Name = "Command2", ;
Command2.OLEDragMode = 0, ;
Command2.OLEDragPicture = ..\..\, ;
Command2.OLEDropEffects = 3, ;
Command2.OLEDropMode = 0, ;
Command2.Picture = ..\..\, ;
Command2.RightToLeft = .F., ;
Command2.SpecialEffect = 0, ;
Command2.StatusBarText = "", ;
Command2.Style = 0, ;
Command2.TabIndex = 2, ;
Command2.TabStop = .T., ;
Command2.Tag = "", ;
Command2.TerminateRead = .F., ;
Command2.Themes = .T., ;
Command2.ToolTipText = "", ;
Command2.Top = 34, ;
Command2.Visible = .T., ;
Command2.WhatsThisHelpID = -1, ;
Command2.Width = 84, ;
Command2.WordWrap = .F., ;
Command3.Caption = "Command3", ;
Command3.Height = 27, ;
Command3.Left = 5, ;
Command3.Name = "Command3", ;
Command3.Top = 63, ;
Command3.Width = 84
*< END OBJECT: BaseClass="commandgroup" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
ButtonCount = 3, ;
Height = 68, ;
Left = 20, ;
Name = "Optiongroup1", ;
Top = 144, ;
Value = 2, ;
Width = 71, ;
Option1.Caption = "Option1", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Value = 0, ;
Option1.Width = 61, ;
Option2.Caption = "Option2", ;
Option2.Height = 17, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option2.Value = 1, ;
Option2.Width = 61, ;
Option3.Caption = "Option3", ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 61
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ActivePage = 2, ;
ErasePage = .T., ;
Height = 132, ;
Left = 120, ;
Name = "Pageframe1", ;
PageCount = 3, ;
Top = 12, ;
Width = 245, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2", ;
Page3.Caption = "Page3", ;
Page3.Name = "Page3"
*< END OBJECT: BaseClass="pageframe" />
ENDDEFINE

234
TESTS/DATOS_READONLY/fb2p_frm_2.sc2
View File

@@ -4,234 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="form1" Baseclass="form" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: a_otra
*a: a_prop[1,0] && array
*p: _prop
*</DefinedPropArrayMethod>
AllowOutput = .T.
AlwaysOnBottom = .F.
AlwaysOnTop = .T.
AutoCenter = .F.
a_otra = .F.
BackColor = 240,240,240
BindControls = .T.
BorderStyle = 3
BufferMode = 0
Caption = "Form1"
ClipControls = .T.
Closable = .T.
ColorSource = 4
ContinuousScroll = .T.
ControlBox = .T.
DataSession = 1
DefOleLCID = 0
Dockable = 0
DoCreate = .T.
DrawMode = 13
DrawStyle = 0
DrawWidth = 1
Enabled = .T.
FillColor = 0,0,0
FillStyle = 1
FontBold = .F.
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 = 250
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
MousePointer = 0
Movable = .T.
Name = "Form1"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
RightToLeft = .F.
ScaleMode = 3
ScrollBars = 0
ShowInTaskBar = .T.
ShowTips = .F.
ShowWindow = 0
SizeBox = .F.
TabIndex = 1
TabStop = .T.
Tag = ""
Themes = .T.
TitleBar = 1
Top = 1
Visible = .T.
VScrollSmallChange = 10
WhatsThisButton = .F.
WhatsThisHelp = .F.
WhatsThisHelpID = -1
Width = 375
WindowState = 0
WindowType = 0
ZoomBox = .F.
_prop = .F.
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
ButtonCount = 3, ;
Height = 100, ;
Left = 12, ;
Name = "Commandgroup1", ;
Top = 8, ;
Value = 2, ;
Width = 94, ;
Command1.Caption = "Command1", ;
Command1.Height = 27, ;
Command1.Left = 5, ;
Command1.Name = "Command1", ;
Command1.Top = 5, ;
Command1.Width = 84, ;
Command2.Alignment = 2, ;
Command2.Anchor = 0, ;
Command2.AutoSize = .F., ;
Command2.BackColor = 240,240,240, ;
Command2.Cancel = .F., ;
Command2.Caption = "Command2", ;
Command2.ColorScheme = 1, ;
Command2.ColorSource = 4, ;
Command2.Default = .F., ;
Command2.DisabledBackColor = 240,240,240, ;
Command2.DisabledForeColor = 109,109,109, ;
Command2.DragMode = 0, ;
Command2.Enabled = .T., ;
Command2.FontBold = .F., ;
Command2.FontCondense = .F., ;
Command2.FontExtend = .F., ;
Command2.FontItalic = .F., ;
Command2.FontName = "Arial", ;
Command2.FontOutline = .F., ;
Command2.FontShadow = .F., ;
Command2.FontSize = 9, ;
Command2.FontStrikethru = .F., ;
Command2.FontUnderline = .F., ;
Command2.ForeColor = 0,0,0, ;
Command2.Height = 27, ;
Command2.HelpContextID = 0, ;
Command2.Left = 5, ;
Command2.MousePointer = 0, ;
Command2.Name = "Command2", ;
Command2.OLEDragMode = 0, ;
Command2.OLEDragPicture = ..\..\, ;
Command2.OLEDropEffects = 3, ;
Command2.OLEDropMode = 0, ;
Command2.Picture = ..\..\, ;
Command2.RightToLeft = .F., ;
Command2.SpecialEffect = 0, ;
Command2.StatusBarText = "", ;
Command2.Style = 0, ;
Command2.TabIndex = 2, ;
Command2.TabStop = .T., ;
Command2.Tag = "", ;
Command2.TerminateRead = .F., ;
Command2.Themes = .T., ;
Command2.ToolTipText = "", ;
Command2.Top = 34, ;
Command2.Visible = .T., ;
Command2.WhatsThisHelpID = -1, ;
Command2.Width = 84, ;
Command2.WordWrap = .F., ;
Command3.Caption = "Command3", ;
Command3.Height = 27, ;
Command3.Left = 5, ;
Command3.Name = "Command3", ;
Command3.Top = 63, ;
Command3.Width = 84
*< END OBJECT: BaseClass="commandgroup" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
ButtonCount = 3, ;
Height = 68, ;
Left = 20, ;
Name = "Optiongroup1", ;
Top = 144, ;
Value = 2, ;
Width = 71, ;
Option1.Caption = "Option1", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Value = 0, ;
Option1.Width = 61, ;
Option2.Caption = "Option2", ;
Option2.Height = 17, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option2.Value = 1, ;
Option2.Width = 61, ;
Option3.Caption = "Option3", ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 61
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ActivePage = 2, ;
ErasePage = .T., ;
Height = 132, ;
Left = 120, ;
Name = "Pageframe1", ;
PageCount = 3, ;
Top = 12, ;
Width = 245, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2", ;
Page3.Caption = "Page3", ;
Page3.Name = "Page3"
*< END OBJECT: BaseClass="pageframe" />
ENDDEFINE
*

36
TESTS/DATOS_READONLY/fb2p_test.cl_commandgroup.vc2 Normal file
View File

@@ -0,0 +1,36 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_commandgroup AS commandgroup && Descripci<63>n de cl_CommandGroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" />
#INCLUDE "..\..\include\principal.h"
*<DefinedPropArrayMethod>
*p: una_prop_cmgroup && Con comentario, pero sin valor
*</DefinedPropArrayMethod>
*<PropValue>
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
una_prop_cmgroup = .F.
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
*</PropValue>
ENDDEFINE

23
TESTS/DATOS_READONLY/fb2p_test.cl_cust_rsv_kwd.vc2 Normal file
View File

@@ -0,0 +1,23 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_cust_rsv_kwd AS custom
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: nota
*p: note && Reserved keyword
*</DefinedPropArrayMethod>
*<PropValue>
Height = 53
Name = "cl_cust_rsv_kwd"
nota =
note =
Width = 135
*</PropValue>
ENDDEFINE

123
TESTS/DATOS_READONLY/fb2p_test.cl_form.vc2 Normal file
View File

@@ -0,0 +1,123 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_imagen1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_imagen2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: chidden && Prop.Hidden
*p: cprotected && Prop.Protegida
*a: ahidden[1,0] && Array Oculto
*a: aprotected[1,0] && Array Protegido
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
HIDDEN ahidden,chidden
PROTECTED aprotected,cprotected
*<PropValue>
Caption = "Form"
chidden =
cprotected =
DoCreate = .T.
Height = 345
Left = 0
Name = "cl_form"
Picture = bmps\scccheckout.bmp
Top = 0
Width = 570
_memberdata = <VFPData>
<memberdata name="ahidden" display="aHidden"/>
<memberdata name="aprotected" display="aProtected"/>
<memberdata name="chidden" display="cHidden"/>
<memberdata name="cprotected" display="cProtected"/>
</VFPData>
*</PropValue>
ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
BackColor = 255,128,192, ;
Height = 66, ;
Left = 8, ;
Name = "Cl_commandgroup1", ;
Top = 88, ;
Width = 244, ;
Command1.Caption = "Abrir", ;
Command1.Height = 52, ;
Command1.Left = 8, ;
Command1.Name = "Command1", ;
Command1.Picture = bmps\carpetaabierta.bmp, ;
Command1.Top = 4, ;
Command1.Width = 104, ;
Command2.Caption = "Cerrar", ;
Command2.Height = 52, ;
Command2.Left = 124, ;
Command2.Name = "Command2", ;
Command2.Picture = bmps\carpetacerrada.bmp, ;
Command2.Top = 4, ;
Command2.Width = 104
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" />
ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ;
Height = 34, ;
Left = 452, ;
Name = "Cl_imagen1", ;
Picture = bmps\sobrepostal.bmp, ;
Stretch = 1, ;
Top = 276, ;
Width = 38
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" />
ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ;
Height = 34, ;
Left = 500, ;
Name = "Cl_imagen2", ;
Picture = bmps\treeview.bmp, ;
Stretch = 1, ;
Top = 276, ;
Width = 38
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" />
ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
BackColor = 0,128,255, ;
Height = 68, ;
Left = 8, ;
Name = "Cl_optiongroup1", ;
Top = 12, ;
Width = 244, ;
Option1.Height = 52, ;
Option1.Left = 8, ;
Option1.Name = "Option1", ;
Option1.Picture = bmps\scccheckout.bmp, ;
Option1.Style = 1, ;
Option1.Top = 8, ;
Option1.Width = 104, ;
Option2.Height = 52, ;
Option2.Left = 124, ;
Option2.Name = "Option2", ;
Option2.Picture = bmps\scccheckout.bmp, ;
Option2.Style = 1, ;
Option2.Top = 8, ;
Option2.Width = 104
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" />
PROCEDURE Cl_optiongroup1.Init
*-- Prueba para comprobar que respeta espacios y TABS del c<>digo
TEXT TO xx
* TAB a la izquierda del asterisco
* 2 TAB a la izquierda del asterisco
* 1 ESPACIO a la izquierda del asterisco
* 2 ESPACIOS a la izquierda del asterisco
1 TAB a la derecha del asterisco *
1 ESPACIO a la derecha del asterisco *
ENDTEXT && Esto termina sin ENTER
ENDPROC
ENDDEFINE

25
TESTS/DATOS_READONLY/fb2p_test.cl_imagen.vc2 Normal file
View File

@@ -0,0 +1,25 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
*</DefinedPropArrayMethod>
*<PropValue>
Height = 16
Name = "cl_imagen"
Picture = bmps\sobrepostal.bmp
Width = 17
*</PropValue>
PROCEDURE un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
* ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase"
ENDPROC
ENDDEFINE

16
TESTS/DATOS_READONLY/fb2p_test.cl_olebound.vc2 Normal file
View File

@@ -0,0 +1,16 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_olebound AS oleboundcontrol
*< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 100
Name = "cl_olebound"
Width = 100
*</PropValue>
ENDDEFINE

16
TESTS/DATOS_READONLY/fb2p_test.cl_olecontrol.vc2 Normal file
View File

@@ -0,0 +1,16 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_olecontrol AS olecontrol
*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCpJ18M8c8BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
*<PropValue>
Height = 67
Name = "cl_olecontrol"
Width = 131
*</PropValue>
ENDDEFINE

53
TESTS/DATOS_READONLY/fb2p_test.cl_optiongroup.vc2 Normal file
View File

@@ -0,0 +1,53 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_optiongroup AS optiongroup && descripcion
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: propiedad_de_clase_con_valor_access
*m: propiedad_de_clase_con_valor_assign
*p: propiedad_de_clase_con_valor && Tiene un valor por defecto
*p: propiedad_de_clase_sin_valor && Una propiedad sin valor para heredar
*</DefinedPropArrayMethod>
*<PropValue>
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
propiedad_de_clase_con_valor = UN VALOR DE LA CLASE
propiedad_de_clase_sin_valor = .F.
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
*</PropValue>
PROCEDURE propiedad_de_clase_con_valor_access
*To do: Modify this routine for the Access method
RETURN THIS.propiedad_de_clase_con_valor
ENDPROC
PROCEDURE propiedad_de_clase_con_valor_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.propiedad_de_clase_con_valor = m.vNewVal
ENDPROC
ENDDEFINE

92
TESTS/DATOS_READONLY/fb2p_test.pj2
View File

@@ -81,72 +81,74 @@ MODIFY PROJECT 'fb2p_test.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('fb2p_test.pjx')
WITH loProject.FILES
.ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbc.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbf.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ft__foxbin2prg__c_conversor_prg_a_mnx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\fxu_lib_objetos_y_funciones_de_soporte.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_base__dobackup.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_base__get_separatedpropandvalue.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_base__gettimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_base__identificarbloquesdeexclusion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_base__normalizarvalorpropiedad.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_base__rowtimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__get_propsandvaluesfrom_properties.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__indentarmemo.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__analizarasignacion_tag_indicado.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__insert_allobjects.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ut__foxbin2prg__c_foxbin2prg__evaluarconfiguracion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('bmps\carpetaabierta.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" />
.ADD('bmps\carpetacerrada.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" />
.ADD('bmps\scccheckout.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" />
.ADD('bmps\sobrepostal.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" />
.ADD('bmps\treeview.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" />
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_checkbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_combobox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_commandgroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_containers.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_form_aa.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_form_aa2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_form_controles.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_formset.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_listbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_optiongroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('f_textbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('fb2p_frm_1.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('fb2p_frm_2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('fb2p_test.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('lib_controles.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('lib_controles2.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" />
.ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbc.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbf.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ft__foxbin2prg__c_conversor_prg_a_mnx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\fxu_lib_objetos_y_funciones_de_soporte.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_base__dobackup.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_base__get_separatedpropandvalue.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_base__gettimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_base__identificarbloquesdeexclusion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_base__normalizarvalorpropiedad.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_base__rowtimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__get_propsandvaluesfrom_properties.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__indentarmemo.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__analizarasignacion_tag_indicado.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__insert_allobjects.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('..\ut__foxbin2prg__c_foxbin2prg__evaluarconfiguracion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('bmps\carpetaabierta.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('bmps\carpetacerrada.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('bmps\scccheckout.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('bmps\sobrepostal.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('bmps\treeview.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_checkbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_combobox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_commandgroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_containers.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_form_aa.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_form_aa2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_form_controles.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_formset.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_listbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_optiongroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('f_textbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('fb2p_frm_1.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('fb2p_frm_2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('fb2p_test.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('lib_controles.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('lib_controles2.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
*</BuildProj>
.ITEM('__newproject.f2b').Remove()
*<FileComments>
.ITEM(lcCurdir + 'f_form_aa.scx').Description = 'Form con todos los controles'
.ITEM(lcCurdir + 'f_form_aa2.scx').Description = 'Instancia del form con todos los controles'
.ITEM(lcCurdir + 'fb2p_test.vcx').Description = 'clase descrip'
.ITEM("f_form_aa.scx").Description = 'Form con todos los controles'
.ITEM("f_form_aa2.scx").Description = 'Instancia del form con todos los controles'
.ITEM("fb2p_test.vcx").Description = 'clase descrip'
*</FileComments>
*<ExcludedFiles>
.ITEM(lcCurdir + 'config\config.fpw').Exclude = .T.
.ITEM("config\config.fpw").Exclude = .T.
*</ExcludedFiles>
*<TextFiles>
.ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
.ITEM("config\config.fpw").Type = 'T'
*</TextFiles>
ENDWITH
WITH loProject
*<ProjectProperties>
.SetMain(lcCurdir + '..\fxu_lib_objetos_y_funciones_de_soporte.prg')
.Icon = lcCurdir + 'bmps\container.ico'
.SetMain("..\fxu_lib_objetos_y_funciones_de_soporte.prg")
.Icon = "bmps\container.ico"
.Debug = .T.
.Encrypted = .T.
*<.CmntStyle = 1 />
*<.NoLogo = .F. />
*<.SaveCode = .T. />
*<.User = '' />
.ProjectHookLibrary = 'fb2p_test.vcx'
.ProjectHookClass = 'proj_hook'
*</ProjectProperties>

16
TESTS/DATOS_READONLY/fb2p_test.proj_hook.vc2 Normal file
View File

@@ -0,0 +1,16 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS proj_hook AS projecthook
*< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 22
Name = "proj_hook"
Width = 23
*</PropValue>
ENDDEFINE

263
TESTS/DATOS_READONLY/fb2p_test.vc2
View File

@@ -4,257 +4,16 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" />
*< EXTERNAL_CLASS: Name="cl_cust_rsv_kwd" Baseclass="custom" />
*< EXTERNAL_CLASS: Name="cl_form" Baseclass="form" />
*< EXTERNAL_CLASS: Name="cl_imagen" Baseclass="image" />
*< EXTERNAL_CLASS: Name="cl_olebound" Baseclass="oleboundcontrol" />
*< EXTERNAL_CLASS: Name="cl_olecontrol" Baseclass="olecontrol" />
*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" />
*< EXTERNAL_CLASS: Name="proj_hook" Baseclass="projecthook" />
*
*< LIBCOMMENT: Comentario principal de "fb2p_test.vcx" />
*
DEFINE CLASS cl_commandgroup AS commandgroup && Descripci<63>n de cl_CommandGroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" />
#INCLUDE "..\..\include\principal.h"
*<DefinedPropArrayMethod>
*p: una_prop_cmgroup && Con comentario, pero sin valor
*</DefinedPropArrayMethod>
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
una_prop_cmgroup = .F. && Con comentario, pero sin valor
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
ENDDEFINE
DEFINE CLASS cl_cust_rsv_kwd AS custom
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: nota
*p: note && Reserved keyword
*</DefinedPropArrayMethod>
Height = 53
Name = "cl_cust_rsv_kwd"
nota =
note = && Reserved keyword
Width = 135
ENDDEFINE
DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_imagen1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_imagen2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: chidden && Prop.Hidden
*p: cprotected && Prop.Protegida
*a: ahidden[1,0] && Array Oculto
*a: aprotected[1,0] && Array Protegido
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
HIDDEN ahidden,chidden
PROTECTED aprotected,cprotected
Caption = "Form"
chidden = && Prop.Hidden
cprotected = && Prop.Protegida
DoCreate = .T.
Height = 345
Left = 0
Name = "cl_form"
Picture = bmps\scccheckout.bmp
Top = 0
Width = 570
_memberdata = <VFPData>
<memberdata name="ahidden" display="aHidden"/>
<memberdata name="aprotected" display="aProtected"/>
<memberdata name="chidden" display="cHidden"/>
<memberdata name="cprotected" display="cProtected"/>
</VFPData> && XML Metadata for customizable properties
ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
BackColor = 255,128,192, ;
Height = 66, ;
Left = 8, ;
Name = "Cl_commandgroup1", ;
Top = 88, ;
Width = 244, ;
Command1.Caption = "Abrir", ;
Command1.Height = 52, ;
Command1.Left = 8, ;
Command1.Name = "Command1", ;
Command1.Picture = bmps\carpetaabierta.bmp, ;
Command1.Top = 4, ;
Command1.Width = 104, ;
Command2.Caption = "Cerrar", ;
Command2.Height = 52, ;
Command2.Left = 124, ;
Command2.Name = "Command2", ;
Command2.Picture = bmps\carpetacerrada.bmp, ;
Command2.Top = 4, ;
Command2.Width = 104
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" />
ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ;
Height = 34, ;
Left = 452, ;
Name = "Cl_imagen1", ;
Picture = bmps\sobrepostal.bmp, ;
Stretch = 1, ;
Top = 276, ;
Width = 38
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" />
ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ;
Height = 34, ;
Left = 500, ;
Name = "Cl_imagen2", ;
Picture = bmps\treeview.bmp, ;
Stretch = 1, ;
Top = 276, ;
Width = 38
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" />
ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
BackColor = 0,128,255, ;
Height = 68, ;
Left = 8, ;
Name = "Cl_optiongroup1", ;
Top = 12, ;
Width = 244, ;
Option1.Height = 52, ;
Option1.Left = 8, ;
Option1.Name = "Option1", ;
Option1.Picture = bmps\scccheckout.bmp, ;
Option1.Style = 1, ;
Option1.Top = 8, ;
Option1.Width = 104, ;
Option2.Height = 52, ;
Option2.Left = 124, ;
Option2.Name = "Option2", ;
Option2.Picture = bmps\scccheckout.bmp, ;
Option2.Style = 1, ;
Option2.Top = 8, ;
Option2.Width = 104
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" />
PROCEDURE Cl_optiongroup1.Init
*-- Prueba para comprobar que respeta espacios y TABS del c<>digo
TEXT TO xx
* TAB a la izquierda del asterisco
* 2 TAB a la izquierda del asterisco
* 1 ESPACIO a la izquierda del asterisco
* 2 ESPACIOS a la izquierda del asterisco
1 TAB a la derecha del asterisco *
1 ESPACIO a la derecha del asterisco *
ENDTEXT && Esto termina sin ENTER
ENDPROC
ENDDEFINE
DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
*</DefinedPropArrayMethod>
Height = 16
Name = "cl_imagen"
Picture = bmps\sobrepostal.bmp
Width = 17
PROCEDURE un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
* ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase"
ENDPROC
ENDDEFINE
DEFINE CLASS cl_olebound AS oleboundcontrol
*< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" />
Height = 100
Name = "cl_olebound"
Width = 100
ENDDEFINE
DEFINE CLASS cl_olecontrol AS olecontrol
*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCpJ18M8c8BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
Height = 67
Name = "cl_olecontrol"
Width = 131
ENDDEFINE
DEFINE CLASS cl_optiongroup AS optiongroup && descripcion
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: propiedad_de_clase_con_valor_access
*m: propiedad_de_clase_con_valor_assign
*p: propiedad_de_clase_con_valor && Tiene un valor por defecto
*p: propiedad_de_clase_sin_valor && Una propiedad sin valor para heredar
*</DefinedPropArrayMethod>
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
propiedad_de_clase_con_valor = UN VALOR DE LA CLASE && Tiene un valor por defecto
propiedad_de_clase_sin_valor = .F. && Una propiedad sin valor para heredar
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
PROCEDURE propiedad_de_clase_con_valor_access
*To do: Modify this routine for the Access method
RETURN THIS.propiedad_de_clase_con_valor
ENDPROC
PROCEDURE propiedad_de_clase_con_valor_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.propiedad_de_clase_con_valor = m.vNewVal
ENDPROC
ENDDEFINE
DEFINE CLASS proj_hook AS projecthook
*< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" />
Height = 22
Name = "proj_hook"
Width = 23
ENDDEFINE
*

46
TESTS/DATOS_READONLY/fb2p_test_bug_estructural.cl_form.vc2 Normal file
View File

@@ -0,0 +1,46 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_estructural.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_form AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*<PropValue>
Caption = "Form"
DoCreate = .T.
Name = "cl_form"
*</PropValue>
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 36, ;
Name = "Command1", ;
Top = 32, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
PROCEDURE Load
TEXT && COMPROBACI<43>N DE CIERRE DE ESTRUCTURA "ENDPROC"
*-- Dejando la <20>ltim l<>nea sin ENTER se comprueba si el ENDPROC
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
ENDTEXT && Esto termina sin ENTER.
ENDPROC
PROCEDURE Command1.Click
TEXT && COMPROBACI<43>N DE CIERRE DE ESTRUCTURA "ENDPROC"
*-- Dejando la <20>ltim l<>nea sin ENTER se comprueba si el ENDPROC
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
ENDTEXT && Esto termina sin ENTER.
ENDPROC
ENDDEFINE

41
TESTS/DATOS_READONLY/fb2p_test_bug_estructural.vc2
View File

@@ -4,42 +4,7 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_estructural.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cl_form AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="cl_form" Baseclass="form" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
Caption = "Form"
DoCreate = .T.
Name = "cl_form"
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 36, ;
Name = "Command1", ;
Top = 32, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
PROCEDURE Load
TEXT && COMPROBACI<43>N DE CIERRE DE ESTRUCTURA "ENDPROC"
*-- Dejando la <20>ltim l<>nea sin ENTER se comprueba si el ENDPROC
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
ENDTEXT && Esto termina sin ENTER.
ENDPROC
PROCEDURE Command1.Click
TEXT && COMPROBACI<43>N DE CIERRE DE ESTRUCTURA "ENDPROC"
*-- Dejando la <20>ltim l<>nea sin ENTER se comprueba si el ENDPROC
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
ENDTEXT && Esto termina sin ENTER.
ENDPROC
ENDDEFINE
*

37
TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_commandgroup.vc2 Normal file
View File

@@ -0,0 +1,37 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_commandgroup AS commandgroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
*</PropValue>
PROCEDURE Command1.Click
TEXT && CL_COMMANDGROUP::Command1.Click()
* ESTE ES EL <20>NICO C<>DIGO QUE DEBER<45>A TENER ESTE M<>TODO.
* SI HAY M<>S C<>DIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE EST<53> MEZCLANDO.
ENDTEXT
ENDPROC
ENDDEFINE

41
TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_optiongroup.vc2 Normal file
View File

@@ -0,0 +1,41 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_optiongroup AS optiongroup
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
*</PropValue>
PROCEDURE Option1.Click
TEXT && CL_OPTIONGROUP::Option1.Click()
* BUG DEL M<>TODO MOVIDO:
* Este m<>todo es para reproducir un bug, por el cu<63>l el <20>ltimo PROCEDURE de un OBJETO
* de la clase anterior se queda referenciado en un obejeto que no se limpia,
* y por el cu<63>l el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega
* al mismo, quedando esa clase con un m<>todo vac<61>o. (O sea, esta)
ENDTEXT
ENDPROC
ENDDEFINE

67
TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2
View File

@@ -4,67 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cl_commandgroup AS commandgroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" />
*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" />
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
PROCEDURE Command1.Click
TEXT && CL_COMMANDGROUP::Command1.Click()
* ESTE ES EL <20>NICO C<>DIGO QUE DEBER<45>A TENER ESTE M<>TODO.
* SI HAY M<>S C<>DIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE EST<53> MEZCLANDO.
ENDTEXT
ENDPROC
ENDDEFINE
DEFINE CLASS cl_optiongroup AS optiongroup
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
PROCEDURE Option1.Click
TEXT && CL_OPTIONGROUP::Option1.Click()
* BUG DEL M<>TODO MOVIDO:
* Este m<>todo es para reproducir un bug, por el cu<63>l el <20>ltimo PROCEDURE de un OBJETO
* de la clase anterior se queda referenciado en un obejeto que no se limpia,
* y por el cu<63>l el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega
* al mismo, quedando esa clase con un m<>todo vac<61>o. (O sea, esta)
ENDTEXT
ENDPROC
ENDDEFINE
*

42
TESTS/DATOS_READONLY/form1.dataenvironment.sc2 Normal file
View File

@@ -0,0 +1,42 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
*<PropValue>
DataSource = .NULL.
Height = 200
Left = 1
Name = "Dataenvironment"
Top = 220
Width = 520
*</PropValue>
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "foxuser_fdbozzo", ;
CursorSource = foxuser_fdbozzo.dbf, ;
Height = 90, ;
Left = 10, ;
Name = "Cursor1", ;
Top = 20, ;
Width = 90
*< END OBJECT: BaseClass="cursor" />
PROCEDURE BeforeOpenTables
*-- Dataenvironment.BeforeOpenTables()
ENDPROC
PROCEDURE Cursor1.Init
*-- Dataenvironment.Cursor1.Init()
ENDPROC
ENDDEFINE

167
TESTS/DATOS_READONLY/form1.frm_form1.sc2 Normal file
View File

@@ -0,0 +1,167 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS frm_form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cnt_controles1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cnt_controles1.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Olecontrol1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: metodo_comun && M<>todo com<6F>n
*</DefinedPropArrayMethod>
*<PropValue>
Caption = "Form1"
DoCreate = .T.
Height = 250
Icon = container.ico
Left = 0
Name = "frm_Form1"
Top = 0
Width = 470
WindowType = 1
*</PropValue>
ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ;
Left = 28, ;
Name = "Cnt_controles1", ;
TabIndex = 3, ;
Top = 72, ;
Check2.Alignment = 0, ;
Check2.Name = "Check2", ;
Check2.TabIndex = 2, ;
Check2.ZOrderSet = 1, ;
Check4.Alignment = 0, ;
Check4.Name = "Check4", ;
Check4.TabIndex = 5, ;
Check4.ZOrderSet = 5, ;
Label_h.Name = "Label_h", ;
Label_h.TabIndex = 6, ;
Label_h.ZOrderSet = 2, ;
Textbox_h.Name = "Textbox_h", ;
Textbox_h.TabIndex = 3, ;
Textbox_h.ZOrderSet = 3, ;
Check1.Alignment = 0, ;
Check1.Name = "Check1", ;
Check1.TabIndex = 1, ;
Check1.ZOrderSet = 0, ;
Check3.Alignment = 0, ;
Check3.Name = "Check3", ;
Check3.TabIndex = 4, ;
Check3.ZOrderSet = 4
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" />
ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ;
Caption = "Label1", ;
Height = 17, ;
Left = 24, ;
Name = "Label1", ;
TabIndex = 7, ;
Top = 84, ;
Width = 64
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 28, ;
Name = "Command1", ;
TabIndex = 1, ;
Top = 20, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 132, ;
Name = "Command2", ;
TabIndex = 2, ;
Top = 20, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Olecontrol1' AS olecontrol WITH ;
Height = 157, ;
Left = 328, ;
Name = "Olecontrol1", ;
Top = 72, ;
Width = 133
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
PROCEDURE Load
*-- Form 1 LOAD()
ENDPROC
PROCEDURE metodo_comun && M<>todo com<6F>n
*-- frm_Form1.metodo_comun()
ENDPROC
PROCEDURE Unload
*-- Form1.Unload()
ENDPROC
PROCEDURE Cnt_controles1.Check1.Click
*-- Form1.Cnt_controles1.Check1.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check2.Click
*-- Form1.Cnt_controles1.Check2.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check3.Click
*-- Form1.Cnt_controles1.Check3.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check4.Click
*-- Form1.Cnt_controles1.Check4.Click()
ENDPROC
PROCEDURE Cnt_controles1.Init
*-- Form1.Command1.Cnt_controles1.Init()
ENDPROC
PROCEDURE Cnt_controles1.Label1.Click
*-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo!
ENDPROC
PROCEDURE Command1.Click
*-- Form1.Command1.Click()
PUBLIC ;
glEnabled_Opc_A_2_Sub_2 ;
, glEnabled_Opc_A_2_Sub_3 ;
, glEnabled_Opc_B
STORE .T. TO ;
glEnabled_Opc_A_2_Sub_2 ;
, glEnabled_Opc_A_2_Sub_3 ;
, glEnabled_Opc_B
DO MENU1.MPR
ENDPROC
PROCEDURE Command2.Click
*-- Form1.Command2.Click()
QUIT
ENDPROC
ENDDEFINE

199
TESTS/DATOS_READONLY/form1.sc2
View File

@@ -4,200 +4,9 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="frm_form1" Baseclass="form" />
*
#INCLUDE "include\keycodes.h"
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
DataSource = .NULL.
Height = 200
Left = 1
Name = "Dataenvironment"
Top = 220
Width = 520
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "foxuser_fdbozzo", ;
CursorSource = foxuser_fdbozzo.dbf, ;
Height = 90, ;
Left = 10, ;
Name = "Cursor1", ;
Top = 20, ;
Width = 90
*< END OBJECT: BaseClass="cursor" />
PROCEDURE BeforeOpenTables
*-- Dataenvironment.BeforeOpenTables()
ENDPROC
PROCEDURE Cursor1.Init
*-- Dataenvironment.Cursor1.Init()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cnt_controles1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cnt_controles1.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Olecontrol1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: metodo_comun && M<>todo com<6F>n
*</DefinedPropArrayMethod>
Caption = "Form1"
DoCreate = .T.
Height = 250
Icon = container.ico
Left = 0
Name = "frm_Form1"
Top = 0
Width = 470
WindowType = 1
ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ;
Left = 28, ;
Name = "Cnt_controles1", ;
TabIndex = 3, ;
Top = 72, ;
Check2.Alignment = 0, ;
Check2.Name = "Check2", ;
Check2.TabIndex = 2, ;
Check2.ZOrderSet = 1, ;
Check4.Alignment = 0, ;
Check4.Name = "Check4", ;
Check4.TabIndex = 5, ;
Check4.ZOrderSet = 5, ;
Label_h.Name = "Label_h", ;
Label_h.TabIndex = 6, ;
Label_h.ZOrderSet = 2, ;
Textbox_h.Name = "Textbox_h", ;
Textbox_h.TabIndex = 3, ;
Textbox_h.ZOrderSet = 3, ;
Check1.Alignment = 0, ;
Check1.Name = "Check1", ;
Check1.TabIndex = 1, ;
Check1.ZOrderSet = 0, ;
Check3.Alignment = 0, ;
Check3.Name = "Check3", ;
Check3.TabIndex = 4, ;
Check3.ZOrderSet = 4
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" />
ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ;
Caption = "Label1", ;
Height = 17, ;
Left = 24, ;
Name = "Label1", ;
TabIndex = 7, ;
Top = 84, ;
Width = 64
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 28, ;
Name = "Command1", ;
TabIndex = 1, ;
Top = 20, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 132, ;
Name = "Command2", ;
TabIndex = 2, ;
Top = 20, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Olecontrol1' AS olecontrol WITH ;
Height = 157, ;
Left = 328, ;
Name = "Olecontrol1", ;
Top = 72, ;
Width = 133
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
PROCEDURE Load
*-- Form 1 LOAD()
ENDPROC
PROCEDURE metodo_comun && M<>todo com<6F>n
*-- frm_Form1.metodo_comun()
ENDPROC
PROCEDURE Unload
*-- Form1.Unload()
ENDPROC
PROCEDURE Cnt_controles1.Check1.Click
*-- Form1.Cnt_controles1.Check1.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check2.Click
*-- Form1.Cnt_controles1.Check2.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check3.Click
*-- Form1.Cnt_controles1.Check3.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check4.Click
*-- Form1.Cnt_controles1.Check4.Click()
ENDPROC
PROCEDURE Cnt_controles1.Init
*-- Form1.Command1.Cnt_controles1.Init()
ENDPROC
PROCEDURE Cnt_controles1.Label1.Click
*-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo!
ENDPROC
PROCEDURE Command1.Click
*-- Form1.Command1.Click()
PUBLIC ;
glEnabled_Opc_A_2_Sub_2 ;
, glEnabled_Opc_A_2_Sub_3 ;
, glEnabled_Opc_B
STORE .T. TO ;
glEnabled_Opc_A_2_Sub_2 ;
, glEnabled_Opc_A_2_Sub_3 ;
, glEnabled_Opc_B
DO MENU1.MPR
ENDPROC
PROCEDURE Command2.Click
*-- Form1.Command2.Click()
QUIT
ENDPROC
ENDDEFINE

BIN
TESTS/DATOS_READONLY/foxuser_fdbozzo.db2 Normal file
View File

Binary file not shown.

39
TESTS/DATOS_READONLY/lib_controles.cl_checkbox.vc2 Normal file
View File

@@ -0,0 +1,39 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_checkbox AS checkbox
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: test_aa_access
*m: test_aa_assign
*p: test_aa
*</DefinedPropArrayMethod>
*<PropValue>
Alignment = 0
AutoSize = .T.
Caption = "Chk1"
Height = 17
Name = "cl_checkbox"
test_aa = .F.
Width = 47
*</PropValue>
PROCEDURE test_aa_access
*To do: Modify this routine for the Access method
RETURN THIS.test_aa
ENDPROC
PROCEDURE test_aa_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.test_aa = m.vNewVal
ENDPROC
ENDDEFINE

36
TESTS/DATOS_READONLY/lib_controles.cl_collection.vc2 Normal file
View File

@@ -0,0 +1,36 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_collection AS collection
*< CLASSDATA: Baseclass="collection" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: test_aa_access
*m: test_aa_assign
*p: test_aa
*</DefinedPropArrayMethod>
*<PropValue>
Height = 23
Name = "cl_collection"
test_aa = .F.
Width = 23
*</PropValue>
PROCEDURE test_aa_access
*To do: Modify this routine for the Access method
RETURN THIS.test_aa
ENDPROC
PROCEDURE test_aa_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.test_aa = m.vNewVal
ENDPROC
ENDDEFINE

116
TESTS/DATOS_READONLY/lib_controles.cl_combobox.vc2 Normal file
View File

@@ -0,0 +1,116 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_combobox AS combobox
*< CLASSDATA: Baseclass="combobox" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: test_aa_access
*m: test_aa_assign
*p: test_aa
*</DefinedPropArrayMethod>
*<PropValue>
Alignment = 0
Anchor = 0
BackColor = 255,255,255
BorderColor = 255,0,0
BorderStyle = 1
BoundColumn = 1
BoundTo = .F.
ColorScheme = 2
ColorSource = 4
ColumnCount = 0
ColumnLines = .T.
ColumnWidths = ""
Comment = ""
ControlSource = ""
DisabledBackColor = 240,240,240
DisabledForeColor = 109,109,109
DisabledItemBackColor = 255,255,255
DisabledItemForeColor = 109,109,109
DisplayCount = 0
DisplayValue = cl_combobox
DragIcon = ..\..\
DragMode = 0
Enabled = .T.
FirstElement = 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
Format = ""
Height = 24
HelpContextID = 0
HideSelection = .T.
IMEMode = 0
IncrementalSearch = .T.
InputMask = ""
ItemBackColor = 255,255,255
ItemForeColor = 0,0,0
ItemTips = .F.
Margin = 2
MaxLength = 0
MouseIcon = ..\..\
MousePointer = 0
Name = "cl_combobox"
NullDisplay = ""
NumberOfElements = 0
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
OLEDropTextInsertion = 0
Picture = ..\..\
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 = 0
StatusBarText = ""
Style = 0
TabIndex = 1
TabStop = .T.
Tag = ""
TerminateRead = .F.
test_aa = .F.
Themes = .T.
ToolTipText = ""
Value =
Visible = .T.
WhatsThisHelpID = -1
Width = 60
*</PropValue>
PROCEDURE test_aa_access
*To do: Modify this routine for the Access method
RETURN THIS.test_aa
ENDPROC
PROCEDURE test_aa_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.test_aa = m.vNewVal
ENDPROC
ENDDEFINE

38
TESTS/DATOS_READONLY/lib_controles.cl_commandbutton.vc2 Normal file
View File

@@ -0,0 +1,38 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_commandbutton AS commandbutton
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: test_aa_access
*m: test_aa_assign
*p: test_aa
*</DefinedPropArrayMethod>
*<PropValue>
AutoSize = .T.
Caption = "Cmd1"
Height = 27
Name = "cl_commandbutton"
test_aa = .F.
Width = 52
*</PropValue>
PROCEDURE test_aa_access
*To do: Modify this routine for the Access method
RETURN THIS.test_aa
ENDPROC
PROCEDURE test_aa_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.test_aa = m.vNewVal
ENDPROC
ENDDEFINE

57
TESTS/DATOS_READONLY/lib_controles.cl_commandgroup.vc2 Normal file
View File

@@ -0,0 +1,57 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_commandgroup AS commandgroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: test_aa_access
*m: test_aa_assign
*p: test_aa
*</DefinedPropArrayMethod>
*<PropValue>
AutoSize = .T.
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
test_aa = .F.
Value = 1
Width = 62
Command1.AutoSize = .T.
Command1.BackColor = 255,128,128
Command1.Caption = "Cmd1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 52
Command2.AutoSize = .T.
Command2.BackColor = 255,128,128
Command2.Caption = "Cmd2"
Command2.DisabledBackColor = 240,240,240
Command2.DisabledForeColor = 109,109,109
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 52
*</PropValue>
PROCEDURE test_aa_access
*To do: Modify this routine for the Access method
RETURN THIS.test_aa
ENDPROC
PROCEDURE test_aa_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.test_aa = m.vNewVal
ENDPROC
ENDDEFINE

Some files were not shown because too many files have changed in this diff Show More