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

New version

Browse Source 
see docs/Changelog.md
Merge branch 'fork_mod'
This commit is contained in:
Lutz
2023-12-06 14:03:41 +01:00
parent 0369545ad2 17c23c2733
commit caaf3e93ed
133 changed files with 2156 additions and 40747 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
TESTS/.gitignore vendored Normal file
View File

@@ -0,0 +1,92 @@
#exclude general
*.*
#include general
#dbx data
#!*.dbf
#!*.cdx
#!*.fpt
#!*.dbc
#!*.dc[tx]
#grafics
!*.bmp
!*.msk
!*.ico
!*.cdr
!*.cur
#programms
!*.prg
!*.fpw
#header
!*.h
#libs (by FoxBin2prg)
!*.vc[xt]
!*.pj[xt]
!*.fr[xt]
!*.mn[xt]
!*.sc[xt]
!*.lb[xt]
#FoxBin2prg
#!*.vc2
#!*.pj2
#!*.fr2
#!*.mn2
#!*.sc2
#!*.lb2
#!*.d[bc]2
#include special
#default git
!*.gitignore
!/desktop.ini
!data/*.jpg
!/FileName_Caps.EXE
!/Fb2P_Diff.EXE
!/"CLEAR ALL.exe"
#gitlab
!*.md
!/.gitlab/
#diverse
!*.reg
!README.md
#exclude special
foxuser_9.*
_command.prg
*ref.*
debug*.*
Sicherungskopie*.*
include/projsub.h
include/projekt_switch.h
include/projekt_user.h
Factory_Init.*
#nix von hier
default/
temp/
tmp/
bin2txt.*
#exclude general
*special, settings to create foxbin2prg binary
!/foxbin2prg_self.cfg
#re-include
#!foxbin2prg_keywords.*
#Thor special
!/BuildProcess/*.prg
!/BuildProcess/*.txt
!/BuildProcess/*.md
!/BuildProcess/*.gitignore
!/ThorUpdater/*.*

1236
TESTS/DATOS_READONLY/FB2P_DBC.DC2
View File

File diff suppressed because it is too large Load Diff

181
TESTS/DATOS_READONLY/FB2P_DBF.DB2
View File

@@ -1,181 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_dbf.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
<LastUpdate>2014/01/06</LastUpdate>
<Database>fb2p_dbc.dbc</Database>
<FileType>0x00000031</FileType>
<FileType_Descrip>Visual FoxPro, autoincrement enabled</FileType_Descrip>
<FIELDS>
<FIELD>
<Name>NOMBRE</Name>
<Type>C</Type>
<Width>30</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp>.NOT.EMPTY(nombre)</Field_Valid_Exp>
<Field_Valid_Text>"El nombre est<73> vac<61>o"</Field_Valid_Text>
<Field_Default_Value>"."</Field_Default_Value>
<Table_Valid_Exp>edad>10</Table_Valid_Exp>
<Table_Valid_Text>"Mensaje de error de la regla edad > 10"</Table_Valid_Text>
<LongTableName>NOMBRELARGODELDBF</LongTableName>
<Ins_Trig_Exp>__ri_insert_nombrelargodeldbf().AND.(ins_trg())</Ins_Trig_Exp>
<Upd_Trig_Exp>__ri_update_nombrelargodeldbf().AND.(upd_trg())</Upd_Trig_Exp>
<Del_Trig_Exp>del_trg()</Del_Trig_Exp>
<TableComment>Comentario de la tabla "fb2p_dbf"</TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>EDAD</Name>
<Type>N</Type>
<Width>3</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>ID</Name>
<Type>I</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>30</Autoinc_Nextval>
<Autoinc_Step>2</Autoinc_Step>
</FIELD>
<FIELD>
<Name>BIGTEXT</Name>
<Type>M</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>DEPTO</Name>
<Type>C</Type>
<Width>10</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
</FIELDS>
<indexFile>FB2P_DBF.CDX</indexFile>
<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>

33
TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2
View File

@@ -1,33 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu_comments_procedure.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
*----------------------------------
DEFINE POPUP AfirstEntr MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF AfirstEntr PROMPT "Item 1" ;
KEY ALT+1, "ALT+1" && Do something depending on App version
ON SELECTION BAR 1 OF AfirstEntr iif(oApp.Version()=="v1.0",oApp.Run(1), oApp.Run(2))
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 ;
KEY ALT+D, "ALT+D" ;
SKIP FOR oApp.Database() == "Production" && Don't show this option when rendering menu item on production
ON PAD _40O0YW62G OF _MSYSMENU ACTIVATE POPUP Edit
*----------------------------------
DEFINE POPUP Edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
*</MenuCode>

38
TESTS/DATOS_READONLY/Menu_LineBreak.mn2
View File

@@ -1,38 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu_linebreak.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
*----------------------------------
DEFINE POPUP AfirstEntr MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF AfirstEntr PROMPT "Item 1" ;
KEY ALT+1, "ALT+1" && Do something depending on App version
ON SELECTION BAR 1 OF AfirstEntr iif(oApp.Version()=="v1.0",oApp.Run(1), oApp.Run(2))
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 ;
KEY ALT+D, "ALT+D" ;
SKIP FOR oApp.Database() == "Production" && Don't show this option when rendering menu item on production
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 ;
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!")
*</MenuCode>

205
TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2
View File

@@ -1,205 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>
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

144
TESTS/DATOS_READONLY/encuestas.db2
View File

@@ -1,144 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="encuestas.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
<LastUpdate></LastUpdate>
<Database></Database>
<FileType>0x00000030</FileType>
<FileType_Descrip>Visual FoxPro</FileType_Descrip>
<FIELDS>
<FIELD>
<Name>PROMOTOR</Name>
<Type>C</Type>
<Width>20</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>IDENC</Name>
<Type>C</Type>
<Width>20</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>CALIFIC</Name>
<Type>C</Type>
<Width>2</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>FECHA</Name>
<Type>D</Type>
<Width>8</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>RESULTADO</Name>
<Type>C</Type>
<Width>10</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
</FIELDS>
<RECORDS>
<RECORD>
<PROMOTOR>PEPE</PROMOTOR>
<IDENC>id1</IDENC>
<CALIFIC>Q</CALIFIC>
<FECHA>1969/11/25</FECHA>
<RESULTADO></RESULTADO>
</RECORD>
<RECORD>
<PROMOTOR>PEPE</PROMOTOR>
<IDENC>id2</IDENC>
<CALIFIC>NQ</CALIFIC>
<FECHA>1969/11/25</FECHA>
<RESULTADO></RESULTADO>
</RECORD>
</RECORDS>
</TABLE>

833
TESTS/DATOS_READONLY/f_checkbox.sc2
View File

@@ -1,833 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

1247
TESTS/DATOS_READONLY/f_combobox.sc2
View File

File diff suppressed because it is too large Load Diff

1409
TESTS/DATOS_READONLY/f_commandgroup.sc2
View File

File diff suppressed because it is too large Load Diff

338
TESTS/DATOS_READONLY/f_containers.sc2
View File

@@ -1,338 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

2843
TESTS/DATOS_READONLY/f_form_aa.sc2
View File

File diff suppressed because it is too large Load Diff

1331
TESTS/DATOS_READONLY/f_form_aa2.sc2
View File

File diff suppressed because it is too large Load Diff

3137
TESTS/DATOS_READONLY/f_form_controles.sc2
View File

File diff suppressed because it is too large Load Diff

971
TESTS/DATOS_READONLY/f_formset.sc2
View File

@@ -1,971 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
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

578
TESTS/DATOS_READONLY/f_listbox.sc2
View File

@@ -1,578 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

39
TESTS/DATOS_READONLY/f_nullchars_incode.sc2
View File

@@ -1,39 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

1438
TESTS/DATOS_READONLY/f_optiongroup.sc2
View File

File diff suppressed because it is too large Load Diff

215
TESTS/DATOS_READONLY/f_optiongroup2.sc2
View File

@@ -1,215 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

461
TESTS/DATOS_READONLY/f_test.sc2
View File

@@ -1,461 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

1458
TESTS/DATOS_READONLY/f_textbox.sc2
View File

File diff suppressed because it is too large Load Diff

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

@@ -1,34 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.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>
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

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

@@ -1,121 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.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
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

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

@@ -1,23 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.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>
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

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

@@ -1,14 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS cl_olebound AS oleboundcontrol
*< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" />
Height = 100
Name = "cl_olebound"
Width = 100
ENDDEFINE

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

@@ -1,14 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.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==" />
Height = 67
Name = "cl_olecontrol"
Width = 131
ENDDEFINE

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

@@ -1,51 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.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>
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

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

@@ -1,14 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
DEFINE CLASS proj_hook AS projecthook
*< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" />
Height = 22
Name = "proj_hook"
Width = 23
ENDDEFINE

18
TESTS/DATOS_READONLY/fb2p_classperfile_text.vc2
View File

@@ -1,18 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_classperfile_text.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_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" />
*

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.

89
TESTS/DATOS_READONLY/fb2p_depto.db2
View File

@@ -1,89 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_depto.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
<LastUpdate></LastUpdate>
<Database>fb2p_dbc.dbc</Database>
<FileType>0x00000030</FileType>
<FileType_Descrip>Visual FoxPro</FileType_Descrip>
<FIELDS>
<FIELD>
<Name>DEPTO</Name>
<Type>C</Type>
<Width>10</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp>depto_field_validation_rule()</Field_Valid_Exp>
<Field_Valid_Text>depto_field_validation_message()</Field_Valid_Text>
<Field_Default_Value>"Depto."</Field_Default_Value>
<Table_Valid_Exp>fb2p_depto_record_rule_validation()</Table_Valid_Exp>
<Table_Valid_Text>fb2p_depto_record_rule_validation_message()</Table_Valid_Text>
<LongTableName>FB2P_DEPTO</LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp>__ri_delete_fb2p_depto()</Del_Trig_Exp>
<TableComment>Comentario de "fb2p_depto"</TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>DESCRIP</Name>
<Type>C</Type>
<Width>50</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
</FIELDS>
<indexFile>FB2P_DEPTO.CDX</indexFile>
<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>
<RECORDS>
<RECORD num="1">
<DEPTO>D.1.C</DEPTO>
<DESCRIP>la descrip</DESCRIP>
</RECORD>
</RECORDS>
</TABLE>

577
TESTS/DATOS_READONLY/fb2p_foxuser.fr2
View File

File diff suppressed because one or more lines are too long

143
TESTS/DATOS_READONLY/fb2p_foxuser.lb2
View File

@@ -1,143 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_foxuser.lbx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="1" objcode="53" name="" vpos="2.000" hpos="2750.000" height="1000.000" width="40000.000" order="" unique=".F." environ=".T." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="0" ruler="1" rulerlines="1" grid=".T." gridv="12" gridh="12" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".T." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".T." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="1" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="2" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="4" name="" vpos="0.000" hpos="0.000" height="10000.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="6" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="7" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="8" objcode="0" name="" vpos="8333.333" hpos="2604.168" height="1666.667" width="34791.665" order="" unique=".F." environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[ALLT(Type)+ALLT(Id)+IIF(Readonly,'Y','N')+LTRIM(STR(Ckval,6,0))+DTOC(Updated)]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="23" objcode="0" name="" vpos="16.000" hpos="8.000" height="12.000" width="9.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[4]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="23" objcode="0" name="" vpos="14.000" hpos="5.000" height="11.000" width="30.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="25" objcode="0" name="dataenvironment" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Name = "Dataenvironment"
]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="26" objcode="0" name="cursor" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Order = "updated"
Alias = "foxuser_fdbozzo"
CursorSource = foxuser_fdbozzo.dbf
Name = "cursor1"
]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>

489
TESTS/DATOS_READONLY/fb2p_free.db2
View File

@@ -1,489 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_free.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
<LastUpdate></LastUpdate>
<Database></Database>
<FileType>0x00000032</FileType>
<FileType_Descrip>Visual FoxPro, Varchar, Varbinary, or Blob-enabled</FileType_Descrip>
<FIELDS>
<FIELD>
<Name>CARACTER</Name>
<Type>C</Type>
<Width>30</Width>
<Decimals>0</Decimals>
<Null>.T.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>FECHA</Name>
<Type>D</Type>
<Width>8</Width>
<Decimals>0</Decimals>
<Null>.T.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>FECHORA</Name>
<Type>T</Type>
<Width>8</Width>
<Decimals>0</Decimals>
<Null>.T.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>LOGICO</Name>
<Type>L</Type>
<Width>1</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>DOBLE</Name>
<Type>B</Type>
<Width>8</Width>
<Decimals>5</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>FLOTANTE</Name>
<Type>F</Type>
<Width>10</Width>
<Decimals>6</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>NUMERICO</Name>
<Type>N</Type>
<Width>12</Width>
<Decimals>3</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>BLOB</Name>
<Type>W</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>MONEDA</Name>
<Type>Y</Type>
<Width>8</Width>
<Decimals>4</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>GENERAL</Name>
<Type>G</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>ENTERO</Name>
<Type>I</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>NOTAS</Name>
<Type>M</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>VAR_BINARY</Name>
<Type>Q</Type>
<Width>35</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>VAR_CHAR</Name>
<Type>V</Type>
<Width>36</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>NOTASBIN</Name>
<Type>M</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.T.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>CARC_BIN</Name>
<Type>C</Type>
<Width>30</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.T.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>VARCHARBIN</Name>
<Type>V</Type>
<Width>37</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.T.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>0</Autoinc_Nextval>
<Autoinc_Step>0</Autoinc_Step>
</FIELD>
<FIELD>
<Name>ID_AUTOINC</Name>
<Type>I</Type>
<Width>4</Width>
<Decimals>0</Decimals>
<Null>.F.</Null>
<NoCPTran>.F.</NoCPTran>
<Field_Valid_Exp></Field_Valid_Exp>
<Field_Valid_Text></Field_Valid_Text>
<Field_Default_Value></Field_Default_Value>
<Table_Valid_Exp></Table_Valid_Exp>
<Table_Valid_Text></Table_Valid_Text>
<LongTableName></LongTableName>
<Ins_Trig_Exp></Ins_Trig_Exp>
<Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment>
<Autoinc_Nextval>50</Autoinc_Nextval>
<Autoinc_Step>5</Autoinc_Step>
</FIELD>
</FIELDS>
<indexFile>FB2P_FREE.CDX</indexFile>
<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>
<RECORDS>
<RECORD num="4">
<CARACTER></CARACTER>
<FECHA>/ / </FECHA>
<FECHORA>/ / : : </FECHORA>
<LOGICO>.F.</LOGICO>
<DOBLE>0.00000</DOBLE>
<FLOTANTE>0.000000</FLOTANTE>
<NUMERICO>0.000</NUMERICO>
<BLOB></BLOB>
<MONEDA>0.0000</MONEDA>
<ENTERO>0</ENTERO>
<NOTAS></NOTAS>
<VAR_BINARY></VAR_BINARY>
<VAR_CHAR></VAR_CHAR>
<NOTASBIN></NOTASBIN>
<CARC_BIN>ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg</CARC_BIN>
<VARCHARBIN></VARCHARBIN>
<ID_AUTOINC>45</ID_AUTOINC>
</RECORD>
<RECORD num="2">
<CARACTER>axaxaxaxaXAXA</CARACTER>
<FECHA>1969/11/26</FECHA>
<FECHORA>1969/11/26 22:10:06</FECHORA>
<LOGICO>.T.</LOGICO>
<DOBLE>123.45676</DOBLE>
<FLOTANTE>123.456786</FLOTANTE>
<NUMERICO>123.456</NUMERICO>
<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>
<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>
</RECORD>
<RECORD num="1">
<CARACTER>lalal.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></CARACTER>
<FECHA>1969/11/27</FECHA>
<FECHORA>1969/11/27 22:10:07</FECHORA>
<LOGICO>.T.</LOGICO>
<DOBLE>123.45677</DOBLE>
<FLOTANTE>123.456787</FLOTANTE>
<NUMERICO>123.457</NUMERICO>
<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>
<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>
</RECORD>
<RECORD num="3">
<CARACTER>pepepepepEPE</CARACTER>
<FECHA>1969/11/25</FECHA>
<FECHORA>1969/11/25 22:10:05</FECHORA>
<LOGICO>.T.</LOGICO>
<DOBLE>123.45675</DOBLE>
<FLOTANTE>123.456785</FLOTANTE>
<NUMERICO>123.455</NUMERICO>
<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>
<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>
</RECORD>
</RECORDS>
</TABLE>

3
TESTS/DATOS_READONLY/fb2p_free.dbf.cfg
View File

@@ -1,3 +0,0 @@
DBF_Conversion_Support: 8
DBF_Conversion_Order: caracter
DBF_Conversion_Condition: .T.

564
TESTS/DATOS_READONLY/fb2p_frm_1.sc2
View File

@@ -1,564 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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)
*
*
#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

237
TESTS/DATOS_READONLY/fb2p_frm_2.sc2
View File

@@ -1,237 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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" />
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

159
TESTS/DATOS_READONLY/fb2p_test.pj2
View File

@@ -1,159 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
LPARAMETERS tcDir
lcCurdir = SYS(5)+CURDIR()
CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
*<DevInfo>
_Author = "El autor"
_Company = "La compan<61>a"
_Address = "La direcci<63>n"
_City = "Ciudad"
_State = "State"
_PostalCode = "Cod.Post"
_Country = "Pa<50>s"
*--
_Comments = "Comentarios"
_CompanyName = "Company Name"
_FileDescription = "File Description"
_LegalCopyright = "Legal Copyright"
_LegalTrademark = "Legal Trademark"
_ProductName = "Product Name"
_MajorVer = "1"
_MinorVer = "0"
_Revision = "5"
_LanguageID = "Language ID"
_AutoIncrement = "1"
*</DevInfo>
*<ServerHead>
_LibraryName = 'C:\DESA\test2\fb2p_test.exe'
_InternalName = 'fb2p_test'
_ProjectName = 'fb2p_test'
_TypeLibDesc = 'fb2p_test Type Library'
_ServerType = ' 0'
_TypeLib = '{97DF3026-912D-4604-B06D-60EF52C19B70}'
*</ServerHead>
*<ServerData>
_HelpContextID = '0'
_ServerName = 'fb2p_test.cl_form'
_Description = 'mi OLE server DLL'
_HelpFile = ''
_ServerClass = 'cl_form'
_ClassLibrary = 'c:\desa\test2\fb2p_test.vcx'
_Instancing = '1'
_CLSID = '{E888ECF1-F911-4F1B-A5DC-8739057087B1}'
_Interface = '{63194B79-0E07-44E6-9FC3-2EBCAA27787A}'
*</ServerData>
*<ServerData>
_HelpContextID = '0'
_ServerName = 'fb2p_test.cl_imagen'
_Description = 'otro ole'
_HelpFile = ''
_ServerClass = 'cl_imagen'
_ClassLibrary = 'c:\desa\test2\fb2p_test.vcx'
_Instancing = '1'
_CLSID = '{BA0AD3CE-E874-402F-A835-85AE1CDCE515}'
_Interface = '{6B05B62A-2C51-4C45-921F-E09FA0E66CF5}'
*</ServerData>
*<BuildProj>
*<.HomeDir = 'c:\desa\foxbin2prg\tests\datos_readonly' />
FOR EACH loProject IN _VFP.Projects FOXOBJECT
loProject.Close()
ENDFOR
STRTOFILE( '', '__newproject.f2b' )
BUILD PROJECT fb2p_test.pjx FROM '__newproject.f2b'
FOR EACH loProject IN _VFP.Projects FOXOBJECT
loProject.Close()
ENDFOR
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" />
*</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'
*</FileComments>
*<ExcludedFiles>
.ITEM(lcCurdir + 'config\config.fpw').Exclude = .T.
*</ExcludedFiles>
*<TextFiles>
.ITEM(lcCurdir + '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'
.Debug = .T.
.Encrypted = .T.
*<.CmntStyle = 1 />
*<.NoLogo = .F. />
*<.SaveCode = .T. />
.ProjectHookLibrary = 'fb2p_test.vcx'
.ProjectHookClass = 'proj_hook'
*</ProjectProperties>
ENDWITH
_VFP.Projects('fb2p_test.pjx').Close()
*ERASE '__newproject.f2b'
CD (lcCurdir)
RETURN

40
TESTS/DATOS_READONLY/fb2p_test.pjm
View File

@@ -1,40 +0,0 @@
Version= 1.20
Author=El autor
Company=La compan<61>a
Address=La direcci<63>n
City=Ciudad
State=State
Zip=Cod.Post
Country=Pa<50>s
SaveCode=.T.
Debug=.T.
Encrypt=.T.
NoLogo=.F.
CommentStyle=1
Comments=Comentarios
CompanyName=Company Name
FileDescription=File Description
LegalCopyright=Legal Copyright
LegalTrademarks=Legal Trademark
ProductName=Product Name
Major=1
Minor=0
Revision=5
AutoIncrement=.T.
[OLEServers]
C:\DESA\test2\fb2p_test.exe,fb2p_test,fb2p_test,fb2p_test Type Library,0,{97DF3026-912D-4604-B06D-60EF52C19B70}
cl_form,c:\desa\test2\fb2p_test.vcx,fb2p_test.cl_form,0,mi OLE server DLL,,1,{E888ECF1-F911-4F1B-A5DC-8739057087B1},{63194B79-0E07-44E6-9FC3-2EBCAA27787A}
cl_imagen,c:\desa\test2\fb2p_test.vcx,fb2p_test.cl_imagen,0,otro ole,,1,{BA0AD3CE-E874-402F-A835-85AE1CDCE515},{6B05B62A-2C51-4C45-921F-E09FA0E66CF5}
[OLEServersEnd]
[ProjectFiles]
0,i,bmps\container.ico,.F.,.F.,0,,,
1132700355,V,fb2p_test.vcx,.F.,.T.,1252,,,clase descrip
1132700357,K,fb2p_frm_1.scx,.F.,.F.,1252,,,
1132700358,K,fb2p_frm_2.scx,.F.,.F.,1252,,,
1132700438,x,bmps\sobrepostal.bmp,.F.,.F.,0,,,
1132700438,x,bmps\scccheckout.bmp,.F.,.F.,0,,,
1132700438,x,bmps\carpetaabierta.bmp,.F.,.F.,0,,,
1132700438,x,bmps\carpetacerrada.bmp,.F.,.F.,0,,,
1132700438,x,bmps\treeview.bmp,.F.,.F.,0,,,
1132700450,T,config\config.fpw,.T.,.F.,1252,,,
[EOF]

260
TESTS/DATOS_READONLY/fb2p_test.vc2
View File

@@ -1,260 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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)
*
*
*< 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

45
TESTS/DATOS_READONLY/fb2p_test_bug_estructural.vc2
View File

@@ -1,45 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
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

70
TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2
View File

@@ -1,70 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
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

203
TESTS/DATOS_READONLY/form1.sc2
View File

@@ -1,203 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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)
*
*
#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

1
TESTS/DATOS_READONLY/foxbin2prg.cfg
View File

@@ -1 +0,0 @@
DBF_Conversion_Support:4

25
TESTS/DATOS_READONLY/github_issues.vc2
View File

@@ -1,25 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="github_issues.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS issue_26 AS custom
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
Name = "issue_26"
PROCEDURE Init
* REPORTED BY KIRIDES - 09/07/2018
* https://github.com/fdbozzo/foxbin2prg/issues/26
*-------------------------------------------------
create cursor (lcTabelle) (;
SOME_ID N(4),;
TEXT C(50),; && This is Any Comment
SOME_OTHER N(10,2);
)
ENDPROC
ENDDEFINE

16139
TESTS/DATOS_READONLY/lib_controles.vc2
View File

File diff suppressed because it is too large Load Diff

112
TESTS/DATOS_READONLY/lib_controles2.vc2
View File

@@ -1,112 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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_controles2.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS f_optiongroup2 AS cl_optiongroup OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
Anchor = 0
AutoSize = .F.
BackColor = 240,240,240
BackStyle = 1
BorderColor = 100,100,100
BorderStyle = 1
ButtonCount = 2
ColorSource = 4
Comment = ""
ControlSource = ""
DragIcon = ..\..\
DragMode = 0
Enabled = .T.
Height = 46
HelpContextID = 0
MemberClassLibrary = ..\..\
MouseIcon = ..\..\
MousePointer = 0
Name = "f_optiongroup2"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
SpecialEffect = 0
StatusBarText = ""
TabIndex = 1
Tag = ""
TerminateRead = .F.
test_aa = .F.
Themes = .T.
ToolTipText = ""
Value = 0
Visible = .T.
WhatsThisHelpID = -1
Width = 71
Option1.Alignment = 0
Option1.Anchor = 0
Option1.AutoSize = .T.
Option1.BackColor = 240,240,240
Option1.BackStyle = 1
Option1.Caption = "Opt1"
Option1.ColorScheme = 1
Option1.ColorSource = 4
Option1.Comment = ""
Option1.ControlSource = ""
Option1.DefHeight =
Option1.DefLeft =
Option1.DefTop =
Option1.DefWidth =
Option1.DisabledBackColor = 240,240,240
Option1.DisabledForeColor = 109,109,109
Option1.DisabledPicture = ..\..\
Option1.DownPicture = ..\..\
Option1.DragIcon = ..\..\
Option1.DragMode = 0
Option1.Enabled = .T.
Option1.FontBold = .F.
Option1.FontCondense = .F.
Option1.FontExtend = .F.
Option1.FontItalic = .F.
Option1.FontName = "Arial"
Option1.FontOutline = .F.
Option1.FontShadow = .F.
Option1.FontSize = 9
Option1.FontStrikethru = .F.
Option1.FontUnderline = .F.
Option1.ForeColor = 0,0,0
Option1.Height = (16)
Option1.HelpContextID = 0
Option1.Left = (5)
Option1.MouseIcon = ..\..\
Option1.MousePointer = 0
Option1.Name = "Option1"
Option1.OLEDragMode = 0
Option1.OLEDragPicture = ..\..\
Option1.OLEDropEffects = 3
Option1.OLEDropMode = 0
Option1.Picture = ..\..\
Option1.PictureMargin = 0
Option1.PicturePosition = 13
Option1.PictureSpacing = 0
Option1.RightToLeft = .F.
Option1.SpecialEffect = 0
Option1.StatusBarText = ""
Option1.Style = 0
Option1.TabIndex = 1
Option1.TabStop = .T.
Option1.Tag = ""
Option1.TerminateRead = .F.
Option1.Themes = .T.
Option1.ToolTipText = ""
Option1.Top = (5)
Option1.Value = 0
Option1.Visible = .T.
Option1.WhatsThisHelpID = -1
Option1.Width = (47)
Option1.WordWrap = .F.
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
ENDDEFINE

48
TESTS/DATOS_READONLY/macros.fk2
View File

@@ -1,48 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="macros.fky" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<MACRO>
Macro_Name : special_chars
Keystroke : ALT+0
Macro_Keystrokes: {CTRL+A}{CTRL+B}{CTRL+C}{CTRL+D}{CTRL+E}{CTRL+F}{CTRL+G}{BACKSPACE}{TAB}{CTRL+ENTER}{CTRL+K}{CTRL+L}{ENTER}{CTRL+N}{SPACEBAR}{CTRL+N}{CTRL+O}{CTRL+P}{CTRL+Q}{CTRL+R}{CTRL+S}{CTRL+T}{CTRL+U}{CTRL+V}{CTRL+W}{CTRL+X}{CTRL+Y}{CTRL+Z}{ESCAPE}{CTRL+BACKSLASH}{CTRL+RBRACKET}{CTRL+CARET}{CTRL+HYPHEN}{SPACEBAR}{ESCAPE}{SHIFT+SEMICOLON},:._-?{x10BF}'{x00A1}{SEMICOLON},
</MACRO>
<MACRO>
Macro_Name : tecla_alt_c
Keystroke : ALT+C
Macro_Keystrokes: {ALT+1}{ALT+2}{ALT+3}{ALT+4}{ALT+A}{x0095}???``{SHIFT+CTRL+A}{CTRL+ALT+A}{SHIFT+CTRL+ALT+A}{ALT+A}Aa{BACKSPACE}{BACKSPACE}{DEL}{SHIFT+DEL}{CTRL+DEL}{ALT+DEL}A{SHIFT+INS}{SHIFT+HOME}{SHIFT+UPARROW}{SHIFT+DNARROW}{SHIFT+LEFTARROW}{SHIFT+RIGHTARROW}{SHIFT+PGUP}{SHIFT+PGDN}{SHIFT+END}{x1100}
</MACRO>
<MACRO>
Macro_Name : ctrl_enter_j
Keystroke : ALT+J
Macro_Keystrokes: {CTRL+ENTER}{CTRL+ENTER}{CTRL+K}
</MACRO>
<MACRO>
Macro_Name : alt_z
Keystroke : ALT+Z
Macro_Keystrokes: {UPARROW}{RIGHTARROW}{DNARROW}{LEFTARROW}{HOME}{END}{PGUP}{PGDN}{DEL}{BACKSPACE}{x00BA}1234567890'{x00A1}{TAB}qwertyuiop{x00F2}+asdfghjkl{x00F1}{x00E1}{x00E7}<zxcvbnm,.-{SHIFT+HOME}{DEL}{x10AA}!"{x10B7}$%&/()=?{x10BF}{x10D4}*{x10D6}{x10C7}{SHIFT+SEMICOLON}:_><\|@#{CTRL+ALT+4}~{x0080}{x00AC}{CTRL+ALT+7}u{CTRL+ALT+8}{CTRL+ALT+9}{CTRL+ALT+0}{CTRL+ALT+'}{x0001}{CTRL+ALT+'}][{CTRL+ALT+P}{CTRL+ALT+O}{RBRACE}{LBRACE}{ESCAPE}{F2}{SHIFT+F2}{CTRL+ALT+F2}{CTRL+F2}{INS}{INS}{ESCAPE}zZ{CTRL+ALT+Z}{LITERAL+l}it{PAUSE KEY}{PAUSE 1.20}end.{ESCAPE}{SHIFT+ESCAPE}{F2}{CTRL+F2}{SHIFT+F2}{ALT+F2}
</MACRO>
<MACRO>
Macro_Name : ctrl_dnarrow
Keystroke : CTRL+DNARROW
Macro_Keystrokes: {UPARROW}{UPARROW}{RIGHTARROW}{RIGHTARROW}{DNARROW}{LEFTARROW}{LEFTARROW}{DNARROW}{LITERAL+d}ds{PAUSE KEY}
</MACRO>
<MACRO>
Macro_Name : ctrl_rightarrow
Keystroke : CTRL+RIGHTARROW
Macro_Keystrokes: {UPARROW}{UPARROW}{UPARROW}{RIGHTARROW}{RIGHTARROW}{RIGHTARROW}{HOME}{PGDN}{PAUSE 2.00}
</MACRO>
<MACRO>
Macro_Name : tecla_ctrl_z
Keystroke : CTRL+Z
Macro_Keystrokes: {CTRL+E}{CTRL+C}{CTRL+Q}{CTRL+HOME}{CTRL+END}{CTRL+PGUP}{CTRL+PGDN}{CTRL+ENTER}{CTRL+LEFTARROW}{UPARROW}{UPARROW}{UPARROW}{RIGHTARROW}{RIGHTARROW}{RIGHTARROW}{HOME}{PGDN}{PAUSE 0.00}{CTRL+UPARROW}{UPARROW}{UPARROW}{RIGHTARROW}{RIGHTARROW}{DNARROW}{LEFTARROW}{LEFTARROW}{DNARROW}{LITERAL+d}ds{PAUSE 0.00}{UPARROW}{UPARROW}{RIGHTARROW}{RIGHTARROW}{DNARROW}{LEFTARROW}{LEFTARROW}{DNARROW}{LITERAL+d}ds{PAUSE 0.00}{CTRL+SPACEBAR}^
</MACRO>

BIN
TESTS/DATOS_READONLY/macros.fky
View File

Binary file not shown.

106
TESTS/DATOS_READONLY/menu1.mn2
View File

@@ -1,106 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu1.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>APPEND</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _000000001 OF _MSYSMENU PROMPT "Opci<63>n A && submen<65>" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario's Opci<63>n A
ON PAD _000000001 OF _MSYSMENU ACTIVATE POPUP Opci<63>nAsub
*----------------------------------
DEFINE POPUP Opci<63>nAsub MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nAsub PROMPT "Opci<63>n A-&&-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp" && Comentario Opci<63>n A-1
ON BAR 1 OF Opci<63>nAsub ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Shortcut_Menu_Title OF Opci<63>nA1 PROMPT "Opci<63>nA-1-&&-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp" && Comentario Opci<63>n A-1-sub con && trampa :)
ON SELECTION BAR Shortcut_Menu_Title OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n 'trampa' para Opci<63>n A-&&-1"
DEFINE BAR 2 OF Opci<63>nAsub PROMPT "Opci<63>n A-2" && Comentario Opci<63>n A-2
ON BAR 2 OF Opci<63>nAsub ACTIVATE POPUP Opci<63>nA2Su
*----------------------------------
DEFINE POPUP Opci<63>nA2Su MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2Su DO Menu1_Opci<63>n_A_2_Sub_SNIPPET
DEFINE BAR 2 OF Opci<63>nA2Su PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2Su wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2Su ACTIVATE POPUP _3yl0d68e0
*----------------------------------
DEFINE POPUP _3yl0d68e0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _3yl0d68e0 PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3yl0d68e0 QUIT
ON SELECTION POPUP _3yl0d68e0 *-- Sin procedure, pero podria ir aqu<71>
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
ON SELECTION POPUP Opci<63>nAsub *-- PROCEDURE Le cambi<62> el nombre!
DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci<63>n B con comando" COLOR SCHEME 3 ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command && con trampa's" && Comentario's de la Opci<63>n b
ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opci<63>n B y ma's trampas"
ON SELECTION POPUP ALL DO MenuBarProc
ON SELECTION MENU _MSYSMENU DO SELECTION_MENU__MSYSMENU_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE Menu1_Opci<63>n_A_2_Sub_SNIPPET
#NAME Menu1_Opci<63>n_A_2_Sub_SNIPPET
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && Menu1_Opci<63>n_A_2_Sub_SNIPPET
PROCEDURE MenuBarProc
#NAME MenuBarProc
WAIT WINDOW "Menu Bar Procedure"
WAIT WINDOW "Y ahora??"
ENDPROC && MenuBarProc
PROCEDURE SELECTION_MENU__MSYSMENU_FB2P
*-- Menu Procedure
wait window "Y ahora es Procedure!"
ENDPROC && SELECTION_MENU__MSYSMENU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

0
TESTS/DATOS_READONLY/menu1.MNT → TESTS/DATOS_READONLY/menu1.mnt
View File

125
TESTS/DATOS_READONLY/menu2.mn2
View File

@@ -1,125 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>5</MenuType>
*<MenuLocation>APPEND</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _40Q0H1MMN OF _MSYSMENU PROMPT "Opci<63>n A con submen<65>" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario<CR>multil<69>nea<CR>rompetodo
ON PAD _40Q0H1MMN OF _MSYSMENU ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp" && Comentario<CR>multil<69>nea<CR>rompetodo
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Shortcut_Menu_Title OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp" && Comentario<CR>multil<69>nea<CR>rompetodo
ON SELECTION BAR Shortcut_Menu_Title OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2Su
*----------------------------------
DEFINE POPUP Opci<63>nA2Su MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2Su DO Menu1_Opci<63>n_A_2_Sub_SNIPPET
DEFINE BAR 2 OF Opci<63>nA2Su PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2Su wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2Su ACTIVATE POPUP _3yl0d68e0
*----------------------------------
DEFINE POPUP _3yl0d68e0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _3yl0d68e0 PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3yl0d68e0 QUIT
ON SELECTION POPUP _3yl0d68e0 *-- Sin procedure, pero podria ir aqu<71>
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
DEFINE BAR 3 OF Opci<63>nA_CS PROMPT "Opci<63>n A-3" ;
SKIP FOR valor de skip() ;
MESSAGE "un mensaje de texto" && Y este es<CR>el nuevo comando<CR>dentro de un PROC!
ON SELECTION BAR 3 OF Opci<63>nA_CS ON ERROR ****
DEFINE BAR 4 OF Opci<63>nA_CS PROMPT ""About " + oApp.AppName()"
ON BAR 4 OF Opci<63>nA_CS ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem MARGIN RELATIVE SHADOW COLOR SCHEME 4 ON SELECTION POPUP Opci<63>nA_CS *-- PROCEDURE Le cambi<62> el nombre!
DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci<63>n B con comando" COLOR SCHEME 3 ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opci<63>n B"
DEFINE PAD _43302YWHK OF _MSYSMENU PROMPT "\<About ] + alltrim(oApp.GetPProp([icAppTitle]))+"..." + [" COLOR SCHEME 3
ON PAD _43302YWHK OF _MSYSMENU ACTIVATE POPUP _40t0aif1j
*----------------------------------
DEFINE POPUP _40t0aif1j MARGIN RELATIVE SHADOW COLOR SCHEME 4ON SELECTION POPUP ALL DO ALL_FB2P
ON SELECTION MENU _MSYSMENU DO SELECTION_MENU__MSYSMENU_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE Menu1_Opci<63>n_A_2_Sub_SNIPPET
#NAME Menu1_Opci<63>n_A_2_Sub_SNIPPET
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && Menu1_Opci<63>n_A_2_Sub_SNIPPET
PROCEDURE ALL_FB2P
*- Menu bar procedure
multil<69>nea
rompetodo
<Menu Options>
ENDPROC && ALL_FB2P
PROCEDURE SELECTION_MENU__MSYSMENU_FB2P
*-- Menu Procedure
multil<69>nea
rompetodo
<General Options>
ENDPROC && SELECTION_MENU__MSYSMENU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

28
TESTS/DATOS_READONLY/menu3.mn2
View File

@@ -1,28 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu3.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _43302YWIM OF _MSYSMENU PROMPT "ejemplo" COLOR SCHEME 3
ON SELECTION PAD _43302YWIM OF _MSYSMENU do test
DEFINE PAD _43302YWIN OF _MSYSMENU PROMPT "ejemplo2" COLOR SCHEME 3
ON SELECTION PAD _43302YWIN OF _MSYSMENU DO TEST
*</MenuCode>
*<Procedures>
PROCEDURE TEST
#NAME TEST
WAIT WINDOW PROGRAM() + ' (menu)'
ENDPROC && TEST
*</Procedures>

98
TESTS/DATOS_READONLY/menu_shortcut.mn2
View File

@@ -1,98 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu_shortcut.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Opci<63>n A con submen<65>" ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
ON BAR 1 OF Shortcut ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON SELECTION BAR 1 OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2SU
*----------------------------------
DEFINE POPUP Opci<63>nA2SU SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2SU DO BAR_1_OF_Opci<63>nA2SU_FB2P
DEFINE BAR 2 OF Opci<63>nA2SU PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2SU wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2SU ACTIVATE POPUP _3ym134xpb
*----------------------------------
DEFINE POPUP _3ym134xpb SHORTCUT RELATIVE
DEFINE BAR 1 OF _3ym134xpb PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3ym134xpb QUIT
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
DEFINE BAR 2 OF Shortcut PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON BAR 2 OF Shortcut ACTIVATE POPUP opc_b
*----------------------------------
DEFINE POPUP opc_b SHORTCUT RELATIVE
DEFINE BAR 1 OF opc_b PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION BAR 1 OF opc_b WAIT WINDOW "Opci<63>n B"
ON SELECTION POPUP Shortcut *- Menu procedure (secundario)
ON SELECTION POPUP ALL *-- Menu Procedure GENERAL (Setup/Cleanup)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Opci<63>nA2SU_FB2P
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && BAR_1_OF_Opci<63>nA2SU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

0
TESTS/DATOS_READONLY/menu_shortcut.MNT → TESTS/DATOS_READONLY/menu_shortcut.mnt
View File

98
TESTS/DATOS_READONLY/menu_shortcut2.mn2
View File

@@ -1,98 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu_shortcut2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE POPUP MiShortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF MiShortcut PROMPT "Opci<63>n A con submen<65>" ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
ON BAR 1 OF MiShortcut ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON SELECTION BAR 1 OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2SU
*----------------------------------
DEFINE POPUP Opci<63>nA2SU SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2SU DO BAR_1_OF_Opci<63>nA2SU_FB2P
DEFINE BAR 2 OF Opci<63>nA2SU PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2SU wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2SU ACTIVATE POPUP _3ym134xpb
*----------------------------------
DEFINE POPUP _3ym134xpb SHORTCUT RELATIVE
DEFINE BAR 1 OF _3ym134xpb PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3ym134xpb QUIT
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
DEFINE BAR 2 OF MiShortcut PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON BAR 2 OF MiShortcut ACTIVATE POPUP opc_b
*----------------------------------
DEFINE POPUP opc_b SHORTCUT RELATIVE
DEFINE BAR 1 OF opc_b PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION BAR 1 OF opc_b WAIT WINDOW "Opci<63>n B"
ON SELECTION POPUP MiShortcut *- Menu procedure
ON SELECTION POPUP ALL *-- Menu Procedure Principal
ACTIVATE POPUP MiShortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Opci<63>nA2SU_FB2P
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && BAR_1_OF_Opci<63>nA2SU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

0
TESTS/DATOS_READONLY/menu_shortcut2.MNT → TESTS/DATOS_READONLY/menu_shortcut2.mnt
View File

39
TESTS/DATOS_READONLY/procedure_in_lparameters.vc2
View File

@@ -1,39 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="procedure_in_lparameters.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS custest AS custom
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: createcsrhealthcodes
*</DefinedPropArrayMethod>
Name = "custest"
PROCEDURE createcsrhealthcodes
*
* Add values to cursor, row by row.
*
FOR lnIndex = 1 TO lnCount
*
* Write values to csr
*
REPLACE CBO_Id WITH lnCBO_ID, Diagnosis WITH lcDiagnosis, AdmitDiagnosis WITH lcAdmitDiagnosis, ; && Try to Break FB2P
Procedure WITH lcProcedure IN csrHealthCareCodes
ENDFOR
*
* Return success flag.
*
RETURN llSuccess
ENDPROC
ENDDEFINE

161
TESTS/DATOS_READONLY/test_public_protected.vc2
View File

@@ -1,161 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="test_public_protected.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cmdbutton1 AS commandbutton
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: invalue
*</DefinedPropArrayMethod>
Caption = "Command1"
Height = 27
invalue = Default Value
Name = "cmdbutton1"
Width = 84
ENDDEFINE
DEFINE CLASS cmdsubbutton AS cmdbutton1 OF "test_public_protected.vcx"
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
PROTECTED invalue
invalue = New Value
Name = "cmdsubbutton"
ENDDEFINE
DEFINE CLASS frmform1 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="txtAddedThisThird" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmdbutton11" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: canprocess
*m: initobjects
*m: processaction
*m: processactionpart1
*m: processactionpart2
*</DefinedPropArrayMethod>
Caption = "Form"
DoCreate = .T.
Name = "frmform1"
ADD OBJECT 'Cmdbutton11' AS cmdsubbutton WITH ;
Height = 36, ;
Left = 60, ;
Name = "Cmdbutton11", ;
Top = 144, ;
Width = 120
*< END OBJECT: ClassLib="test_public_protected.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "This button was added second", ;
DefHeight = , ;
DefLeft = , ;
Height = (25), ;
Left = (this.Height), ;
Name = "Command1", ;
Top = 48, ;
Width = 192
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
Caption = "This label was added first", ;
Height = 18, ;
Left = 24, ;
Name = "Label1", ;
Top = 12, ;
Width = 144
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtAddedThisThird' AS textbox WITH ;
Height = 25, ;
Left = 24, ;
Name = "txtAddedThisThird", ;
Top = 96, ;
Width = 180
*< END OBJECT: BaseClass="textbox" />
PROTECTED PROCEDURE canprocess
ENDPROC
PROCEDURE Init
*
* Init the form!
*
thisform.Caption = "Hello world!"
ENDPROC
PROTECTED PROCEDURE initobjects
*
* Initialize some objects here
*
ENDPROC
PROCEDURE processaction
*
* ProcessActions again, all public
*
* TODO
ENDPROC
PROTECTED PROCEDURE processactionpart1
*
* Part 1, do some stuff
*
SELECT 0
ENDPROC
PROTECTED PROCEDURE processactionpart2
ENDPROC
ENDDEFINE
DEFINE CLASS frmform2 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="Label1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: privatemethod && A private method
*m: protectedmethod && A protected method
*m: publicmethod && Regular public method
*</DefinedPropArrayMethod>
Caption = "Form"
DoCreate = .T.
Name = "frmform2"
ADD OBJECT 'Label1' AS label WITH ;
Caption = "Added this control first", ;
Height = 25, ;
Left = 36, ;
Name = "Label1", ;
Top = 24, ;
Width = 205
*< END OBJECT: BaseClass="label" />
HIDDEN PROCEDURE privatemethod && A private method
* Private method
ENDPROC
PROTECTED PROCEDURE protectedmethod && A protected method
* Protected method
ENDPROC
PROCEDURE publicmethod && Regular public method
* Pub method
ENDPROC
ENDDEFINE

111
TESTS/DATOS_READONLY/test_report.fr2
View File

@@ -1,111 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="test_report.frx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="1" objcode="53" name="" vpos="1.000" hpos="0.000" height="0.000" width="-1.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="0" ruler="1" rulerlines="0" grid=".T." gridv="12" gridh="12" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".T." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[ORIENTATION=0
PAPERSIZE=1
COLOR=2
]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="1" name="" vpos="0.000" hpos="0.000" height="8646.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="4" name="" vpos="0.000" hpos="0.000" height="4271.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="9" objcode="7" name="" vpos="0.000" hpos="0.000" height="4271.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="5" objcode="0" name="" vpos="2500.000" hpos="11250.000" height="5000.000" width="10000.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".T." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["A test:
Caption!
...and more."]]>
<supexpr><![CDATA[LEN("This is an example with a CRLF after it") > 0 and .T. and 1=1]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="5" objcode="0" name="" vpos="2500.000" hpos="23541.667" height="5000.000" width="12500.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".T." supalways=".T." supovflow=".T." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Another
test caption :)
--end--"]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[Este es
un comment
en 3 l<>neas!]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="23" objcode="0" name="" vpos="16.000" hpos="8.000" height="12.000" width="10.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[4]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<supexpr><![CDATA[]]>
<comment><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="" timestamp="0" objtype="25" objcode="0" name="dataenvironment" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F."
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Top = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.

27
TESTS/DATOS_READONLY/var_a.me2
View File

@@ -1,27 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="var_a.mem" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
A_VALORESS_LONGNAME A(20,1)
( 1, 1) N(15,4) 123456.789000000000000000
( 2, 1) N(10) 123456.789000000000000000
( 3, 1) N(15,4) 123456.789000000000000000
( 4, 1) N(15,4) 123456.789000000000000000
( 5, 1) N(15,4) 123456.789000000000000000
( 6, 1) N(13,2) 123456.789000000000000000
( 7, 1) C "text string"
( 8, 1) Y 123456.7890
( 9, 1) D 2018/03/21
( 10, 1) T 2018/03/21 01:02:03
( 11, 1) Q 0h74
( 12, 1) C "t"
( 13, 1) L .T.
( 14, 1) Q 0h7465787420737472696E67
( 15, 1) N(10) 123456.000000000000000000
( 16, 1) I .NULL.
( 17, 1) Y .NULL.
( 18, 1) C .NULL.
( 19, 1) B .NULL.
( 20, 1) N(10) 16.000000000000000000

BIN
TESTS/DATOS_READONLY/var_a.mem
View File

Binary file not shown.

7
TESTS/DATOS_READONLY/var_d.me2
View File

@@ -1,7 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="var_d.mem" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<EFBFBD>APALATEROS D 2018/03/24

BIN
TESTS/DATOS_READONLY/var_d.mem
View File

Binary file not shown.

7
TESTS/DATOS_READONLY/var_y.me2
View File

@@ -1,7 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="var_y.mem" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<EFBFBD>APALATEROS Y 123.4500

BIN
TESTS/DATOS_READONLY/var_y.mem
View File

Binary file not shown.

7
TESTS/DATOS_READONLY/var_y2.me2
View File

@@ -1,7 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="var_y2.mem" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<EFBFBD>APALATERO Y 123.4500

BIN
TESTS/DATOS_READONLY/var_y2.mem
View File

Binary file not shown.

60
TESTS/DATOS_READONLY/vars.me2
View File

@@ -1,60 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="vars.mem" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
A_VALORES A(3,2)
( 1, 1) C "Fer"
( 1, 2) C "Orange"
( 2, 1) C "Ceci"
( 2, 2) C "Verde"
( 3, 1) C "Sofi"
( 3, 2) N(10) 17.000000000000000000
A_VALS A(16)
( 1) N(15,4) 123456.789000000000000000
( 2) N(10) 123456.789000000000000000
( 3) N(10) -123456.000000000000000000
( 4) N(14,2) -123456.789000000000000000
( 5) N(17,5) -123456.789000000000000000
( 6) N(13,2) 123456.789000000000000000
( 7) C "text string"
( 8) Y 123456.7890
( 9) D 2018/03/21
( 10) T 2018/03/21 01:02:03
( 11) Q 0h74
( 12) C "t"
( 13) L .T.
( 14) Q 0h7465787420737472696E67
( 15) N(10) 123456.000000000000000000
( 16) L .F.
B_VALOR N(13,2) 123456.789000000000000000
B_VALOR2 N(13,2) 123456.789000000000000000
C_VALOR C "ABCdef"
C_VAR___10 C "1234567890"
C_VAR____11 C "12345678901"
C_VAR_____12 C "123456789012"
C_VAR______13 C "1234567890123"
C_VAR_____________20 C "12345678901234567890"
D_VALOR D 2018/03/21
ESTA_ES_UNA_VARIABLE_BASTANTE_LARGA_CON_LA_INTENCION_DE_SABER_CUANTO_SOPORTAN_LOS_NOMBRES C "Guau! :)"
F_VALOR N(10) 123456.789000000000000000
F_VALOR2 N(15,4) 123456.789000000000000000
F_VALOR3 N(15,4) 123456.789000000000000000
I_VALOR N(10) 123456.000000000000000000
I_VALOR2 N(10) 123456789.000000000000000000
L_VALOR L .T.
N_VALOR N(15,4) 123456.789000000000000000
N_VALOR2 N(10) 123456.789000000000000000
N_VALOR3 N(15,4) 123456.789000000000000000
N_VALOR4 N(11) -123456.789000000000000000
N_VALOR5 N(15,3) -123456.789000000000000000
N_VALOR6 N(11) -123456.789000000000000000
N_VALOR7 N(11) -123456.789000000000000000
N_VALOR8 N(11) -1234.000000000000000000
N_VALOR_14_4 N(15,4) 123456.789000000000000000
N_VALOR_16_0 N(11) -123456.789000000000000000
N_VALOR_18_2 N(14,2) -123456.789000000000000000
T_VALOR T 2018/03/21 01:02:03
X_VALOR L .NULL.
Y_VALOR Y 123456.7890

BIN
TESTS/DATOS_READONLY/vars.mem
View File

Binary file not shown.

9
TESTS/DATOS_READONLY/varx.me2
View File

@@ -1,9 +0,0 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="varx.mem" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
N_VALOR_10 N(10) 10.000000000000000000
N_VALOR__11 N(13,2) 11.110000000000000000
<EFBFBD>APALATEROS L .NULL.

BIN
TESTS/DATOS_READONLY/varx.mem
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/vw_local_encuestas.tbf
View File

Binary file not shown.