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

274
.github/CONTRIBUTING.md vendored
View File

@@ -1,152 +1,122 @@
# How to contribute to FoxBin2Prg
## Bug report?
- Please check [issues](https://github.com/fdbozzo/foxbin2prg/issues) if the bug is reported
- If you're unable to find an open issue addressing the problem, open a new one. Be sure to include a title and clear description, as much relevant information as possible, and a code sample or an executable test case demonstrating the expected behavior that is not occurring.
- Please add your current configuration creating a config file via
```
DO FOXBIN2PRG.PRG WITH '-C','path-to-source\FoxBin.cfg'
```
**Do not include your normal config**
### Did you write a patch that fixes a bug?
- Open a new GitHub merge request with the patch.
- Ensure the PR description clearly describes the problem and solution.
- Include the relevant version number if applicable.
- See [New version](#new-version) for additional tasks
## Coding conventions
Start reading our code and you'll get the hang of it. We optimize for readability:
- Beautification is done like:
- Keywords: Mixed case
- Symbols: First occurence
- Indentation Tabs, 1
- Indent anything then Comments
- Please do not run BeautifyX with mDots insertion against the code.
- We ALWAYS put spaces after list items and method parameters (`[1, 2, 3]`, not `[1,2,3]`), around operators (`x = 1`, not `x=1`).
- This is open source software. Consider the people who will read your code, and make it look nice for them. It's sort of like driving a car: Perhaps you love doing donuts when you're alone, but with passengers the goal is to make the ride as smooth as possible.
- Please kindly add comments where and what you change
## New version
Please note, there are some tasks to set up a new version.
Stuff is a bit scattered, so this is where to look up.
1. Please create a fork at github
- See this [guide](https://www.dataschool.io/how-to-contribute-on-github/) for setting up and using a fork
- If already forked, pull the recent state, or get most recent version otherwise.
2. On top of _FoxBin2Prg.prg_ there are two version numbers:
`#DEFINE DN_FB2PRG_VERSION 1.20`
`#DEFINE DC_FB2PRG_VERSION_REAL '1.20.00'`
3. Please set the **minor** part of _DC_FB2PRG_VERSION_REAL_ to a new number.
**Do not** alter the **1.20** part. This is written to the text files.
Alteration might force that the files must be newly commited, what is not everybodies taste.
4. Add a meaningful description of the change in the changes list on top of _FoxBin2Prg.prg_.
The most recent entries for changes in the middle of this section around _* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>_,
The most recent bugs are listed above _* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>_
5. Alter version in _README.md_
6. Add a description to _docs\Change_Log.md_
7. Please alter the footer of *.md files touched to recent date.
8. If a change to the config files is made please add the description to the various properties (multi lang)
- _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_cfg:_ for general settings
- _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_tab_cfg:_ for settings per table
9. Create a template _foxbin2prg.cfg.txt_ for general settings or _foxbin2prg.dbf.cfg.txt_ for the settings per table.
- Do this even if no change to the setting to change the version number inside this files.
- Or change version number in those files manually
- **Note**. If you are not on an English comp, set the value _Language: EN_ in your local _foxbin2prg.cfg_ to create English files.
- run like:
```
CD Path_Top_Project
DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt"
DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbc.txt"
```
10. If a change to the parameters is made, change _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_ properties.
11. For changed functionality, add descriptive text on the appropriate _.md_ file in _docs_ folder.
12. Alter the version number for the EXE to the version used above.
13. Compile to EXE **in VFP9 SP2**
14. Change Thor ([see below](#thor-conventions))
15. Commit
16. Push to your fork
17. Create a pull request
## Thor conventions
This project is part of [VFPX](https://vfpx.github.io/) and published via [Thor](https://github.com/VFPX/Thor).
There are some considerations to make to add a new version to Thor.
Please check [Supporting Thor Updater](https://vfpx.github.io/thorupdate/)
In special:
- Update _Project.txt_, in special the version number
- and run the script included, or
- add files to _FoxBin2Prg.zip_, namely
- FoxBin2Prg.prg,
- FoxBin2Prg.exe,
- the config files templates
- Update the version number in _FoxBin2PrgVersion.txt_
- Right-click CreateThorUpdate.ps1 in the ThorUpdater folder and choose Run with PowerShell
## Updating from @lshceffler's fork
- Quit any code / IDE working on your FoxBin2Prg directory
- Create a file in the FoxBin2Prg folder named get_fork.sh with the following content:
```
#!/bin/sh
############################################################
#
#get_fork.sh
#
#get a second branch to work in parallel
#because we can not simple merge
#
#Lutz Scheffler 2023-09-03
#
############################################################
#create a new remote to fork lscheffler
git remote add sf git@github.com:lscheffler/foxbin2prg.git
#read lscheffler
git fetch sf
#create a new branch "lutz" and switch into it
git switch -c lutz
#reset this branch to the last common anchestor between lscheffler/fork_mod and fdbozzo/master
git reset --hard c31b8106652
#connect the new branch with lscheffler/fork_mod
git branch --set-upstream-to=sf/fork_mod lutz
#set branch to top of his remote branch
git pull
#switch back to master
git switch master
#create a new folder on drive, that shows the lscheffler data
git worktree add ../FoxBin2Prg_Lutz lutz
#you can now work in the one and in the other directory
#that means you can copy files from the one to the other via normal function
#or you can pick data from the one to the other like
#for example FoxBin2Prg.prg
#git checkout lutz FoxBin2Prg.prg
#the file is not in the index, you can alter and then add and commit
```
- Right-click the FoxBin2Prg directory, and choose Git Bash Here
- Run "./get_fork.sh"
This will create a new directory "FoxBin2Prg_Lutz" in the parent of "FoxBin2Prg", with the recent state of my fork. You can work in this folder exactly the same way as in "FoxBin2Prg" (if you need the exe files, notice the README.md), only the branch is different. Those are two branches of the same repo, so one can work with git commands.
Now you can work / copy the files via explorer, or, as suggested in the file attached, you can tell git to do the work.
Open the bash in "FoxBin2Prg" directory, and run:
```
git checkout lutz <file_to_get_from_lutz_branch>
```
Then follow the earlier instructions for committing.
----
Last changed: _2023/09/04_ ![Picture](../docs/pictures/vfpxpoweredby_alternative.gif)
# How to contribute to FoxBin2Prg
## Bug report?
- Please check [issues](https://github.com/fdbozzo/foxbin2prg/issues) if the bug is reported
- If you're unable to find an open issue addressing the problem, open a new one. Be sure to include a title and clear description, as much relevant information as possible, and a code sample or an executable test case demonstrating the expected behavior that is not occurring.
- Please add your current configuration creating a config file via
```
CD 'path-to-source'
DO FOXBIN2PRG.PRG WITH '-C','FoxBin.cfg'
```
**Do not include your normal config**
### Did you write a patch that fixes a bug?
- Open a new GitHub merge request with the patch.
- Ensure the PR description clearly describes the problem and solution.
- Include the relevant version number if applicable.
- See [New version](#new-version) for additional tasks
## Coding conventions
Start reading our code and you'll get the hang of it. We optimize for readability:
- Beautification is done like:
- Keywords: Mixed case
- Symbols: First occurence
- Indentation Tabs, 1
- Indent anything then Comments
- Please do not run BeautifyX with mDots insertion against the code.
- We ALWAYS put spaces after list items and method parameters (`[1, 2, 3]`, not `[1,2,3]`), around operators (`x = 1`, not `x=1`).
- This is open source software. Consider the people who will read your code, and make it look nice for them. It's sort of like driving a car: Perhaps you love doing donuts when you're alone, but with passengers the goal is to make the ride as smooth as possible.
- Please kindly add comments where and what you change
## New version
Please note, there are some tasks to set up a new version.
Stuff is a bit scattered, so this is where to look up.
- New fork
1. Please create a fork at github
- See this [guide](https://www.dataschool.io/how-to-contribute-on-github/) for setting up and using a fork
2. clone your fork to your computer
- Existing fork
1. If already forked, gather the recent state of the master to your fork (for example: "Sync fork" in github on top of your repository)
2. Pull the recent state,
3. or get most recent version otherwise.
**Note: You must run FoxBin2Prg against itself to create the binaries and exes:**
```
CD "path_to_FoxBin2Prg"
*This uses a special configuration
DO ReCreate_FoxBin2Prg.prg
```
**Note: Do not run FoxBin2Prg.prg directly.**
3. Do your changes
4. On top of _FoxBin2Prg.prg_ there are two version numbers:
```
#DEFINE DN_FB2PRG_VERSION 1.21
#DEFINE DC_FB2PRG_VERSION_REAL '1.21.01'
```
5. Please set the **minor** part of _DC_FB2PRG_VERSION_REAL_ to a new number.
**Do not** alter the **1.21** part. This is written to the text files.
Alteration might force that the files must be newly commited, what is not everybodies taste.
The value might be altered, if the file structure of the text files is changed.
6. Add a meaningful description of the change in the changes list on top of _FoxBin2Prg.prg_.
The most recent entries for changes in the middle of this section around _* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>_,
The most recent bugs are listed above _* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>_
7. Alter version in _README.md_
8. Add a description to _docs\ChangeLog.md_
9. If a change to the config files is made, please add the description to the various properties (multi lang)
- _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_cfg:_ for general settings
- _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_tab_cfg:_ for settings per table
10. If a change to the parameters is made, change _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_ properties.
11. For changed functionality, add descriptive text on the appropriate _.md_ file in _docs_ folder.
12. Please alter the footer of \*.md files touched to recent date.
13. Alter the version number for the EXE to the version used above.
14. Create the text representation of the binary sources running like
```
CD "path_to_FoxBin2Prg"
*This uses a special configuration
DO Create_FoxBin2Prg.prg
```
**Note: Do not run FoxBin2Prg.prg directly.**
15. **The following steps are not neccesary, if you use *VPXDeployment* to create a new version that is applicable for Thor use.**
16. Compile to EXE **in VFP9 SP2**
17. Change Thor ([see below](#thor-conventions))
18. commit
19. push to your fork
20. Create a pull request
## Thor conventions
This project is part of [VFPX](https://vfpx.github.io/) and published via [Thor](https://github.com/VFPX/Thor).
Some steps must be done to create the information for Thor
### Using VFPXDeployment
The standard procedure to create the Thor files is runing VFPXDeployment via Thor.
<comment>1. If you add or remove files to FoxBin2Prg, that you need in the release:
- alter *BuildProcess/installedfiles.txt*, see [here](https://github.com/VFPX/VFPXDeployment/blob/main/docs/Documentation.md#installedfilestxt)
- open the *Helper/Clean_ThorFolder.prg* file
- navigate to *Get_CompareFiles procedure*
- alter the TEXT .. ENDTEXT section to remove all files deleted and add new files, check the block for examples.
- There is a programm *Helper/GetRevisions.prg* to create the list, but this need to run VFPXDeployment one time to create the INSTALLEDFILES directory before.</comment>
2. Run VFPXDeployment. It will set version number to EXE, compile, set several documentation and create the files for Thor.
3. commit
4. push to your fork
5. create a pull request
### Without VFPXDeployment
If you do not use VFPXDeployment
There are some considerations to make to add a new version to Thor.
Please check [Supporting Thor Updater](https://vfpx.github.io/thorupdate/)
In special:
- Update _Project.txt_, in special the version number
<comment>- update the *Helper/Clean_ThorFolder.prg* file, see above
- add files to _FoxBin2Prg.zip_, namely
- FoxBin2Prg.prg,
- FoxBin2Prg.exe,
- the config files templates
- Clean_ThorFolder.prg
- Update the version number in _FoxBin2PrgVersion.txt_
- Update the changelog in _FoxBin2PrgVersion.txt_
- The use of CreateThorUpdate.ps1 is not longer recommended.</comment>
- Right-click CreateThorUpdate.ps1 in the ThorUpdater folder and choose *Run with PowerShell*.
Thanks
----
Last changed: _2023/12/05_ ![Picture](../docs/pictures/vfpxpoweredby_alternative.gif)

97
.gitignore vendored
View File

@@ -1,21 +1,92 @@
#exclude general
*.bak
*.tmp
*.prj
*.pui
*.orig
*.err
/*.dbf
/*.CDX
/*.fxp
/*.fpt
*.*
TESTS/DATOS_READONLY/*.FXP
#include general
#dbx data
#!*.dbf
#!*.cdx
#!*.fpt
*special, exclude local config
foxbin2prg.cfg
#!*.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/*.*

2
BuildProcess/Substitute.txt Normal file
View File

@@ -0,0 +1,2 @@
#List of additional files that will be substituded when running VFPXDeployment for FoxBin2PRG
docs\ChangeLog.md

45
BuildProcess/Thor_Update_FoxBin2PRG.prg Normal file
View File

@@ -0,0 +1,45 @@
lparameters;
toUpdateObject
local;
lcRepositoryURL as string, ;
lcDownloadsBranch as string, ;
lcDownloadsURL as string, ;
lcVersionFileURL as string, ;
lcZIPFileURL as string, ;
lcRegisterWithThor as string
* Get the URL for the version and ZIP files.
lcRepositoryURL = 'https://github.com/fdbozzo/foxbin2prg'
&& the URL for the project's repository
* Note: If you use a more recent version of git, your default branch may not be "master".
lcDownloadsBranch = 'master'
lcDownloadsURL = strtran(m.lcRepositoryURL, 'github.com', ;
'raw.githubusercontent.com') + '/' + m.lcDownloadsBranch + '/ThorUpdater/'
lcVersionFileURL = m.lcDownloadsURL + 'FoxBin2PRGVersion.txt' &&'FoxBin2PRGVersion.txt'
&& the URL for the file containing code to get the available version number
lcZIPFileURL = m.lcDownloadsURL + 'FoxBin2PRG.zip'
&& the URL for the zip file containing the project
text to lcRegisterWithThor noshow textmerge
messagebox('From the Thor menu, choose "More -> Open Folder -> Components" to see the folder where FoxBin2PRG was installed', 0, 'FoxBin2PRG Installed', 5000)
endtext
* Set the properties of the passed updater object.
with m.toUpdateObject
.ApplicationName = 'FoxBin2PRG'
.VersionLocalFilename = 'FoxBin2PRGVersionFile.txt'
.VersionFileURL = m.lcVersionFileURL
.SourceFileUrl = m.lcZIPFileURL
.Component = 'Yes'
.Link = m.lcRepositoryURL
.LinkPrompt = 'FoxBin2PRG Home Page'
.ProjectCreationDate = date(2023, 8, 6)
.RegisterWithThor = m.lcRegisterWithThor
endwith
return m.toUpdateObject
*created by VFPX Deployment, 06.08.2023 15:23:02

160
BuildProcess/VersionTemplate.txt Normal file
View File

@@ -0,0 +1,160 @@
@@@ Edit this template if necessary. Note the use of placeholders such as
{APPNAME} and {APPID}; they are substituted with the correct values when
the deployment process is run, so no need to edit those. Also, this file is
textmerged so some text may not appear in the generated {APPID}Version.txt.
Also, any text between @@@ and \\\ is removed.
\\\lparameters toUpdateObject
* Set the properties of the passed updater object.@@@ You likely won't need to
* edit this code. One possible change is versioning: if you want to use the
* Julian date as a minor version number, edit the AvailableVersion setting to:
*
* .AvailableVersion = '{APPNAME}-{VERSION}.{JULIAN}-update-{VERSIONDATE}'
*
* or possibly:
*
* .AvailableVersion = '{APPNAME}-{VERSION}-{JULIAN}-{VERSIONDATE}'\\\
with toUpdateObject
.VersionNumber = '{VERSION} - {VERSIONDATE}'
.AvailableVersion = '{APPNAME}-{VERSION}-update-{VERSIONDATE}'
.Notes = GetNotes()
.RegisterWithThor = GetRegisterWithThor()
endwith
return toUpdateObject
*!* procedure GetRegisterWithThor
*!* local lcCommand
*!* text to lcCommand noshow
*!* lcBase = EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder')
*!* IF FILE(m.lcBase+"clean_copied_memo.prg") THEN
*!* *remove old crap
*!* DO m.lcBase+"clean_thorfolder.prg" WITH lcBase
*!* ENDIF &&FILE(m.lcBase+"clean_copied_memo.prg")
*!*
*!* DELETE FILE (m.lcBase+"clean_thorfolder.*")
*!*
*!* endtext
*!*
*!* return lcCommand
*!* endproc &&GetRegisterWithThor
* Get the notes for the project.@@@ Edit this code as necessary. If you specify
* the name of a change log file as the ChangeLog setting in ProjectSettings.txt,
* the contents of that file are substituted for the CHANGELOG placeholder so
* there's no need to edit this.\\\
procedure GetNotes
local lcNotes
text to lcNotes noshow
A 2-way conversor for Visual FoxPro 9 binary files intended to be used with SCM tools (Full or only Diff and Merge operations) or just for backup
Supported formats are: PJX, PJM, SCX, VCX, FRX, LBX, MNX, DBC, DBF, FKY, MEM
To fix a bug, this version changes the text file header. It is suggested to create all text files and commit in one step.
Developed by Fernando D. Bozzo - GitHub: https://github.com/fdbozzo/foxbin2prg
{CHANGELOG}
endtext
return lcNotes
@@@* Register the tool with Thor. This template code assumes the tool is an APP
* file named {AppID}.app, where AppID is the AppID setting in ProjectSettings.txt.
* If that isn't the case, edit the Code property as necessary.
\\\* Register the tool with Thor. Note: Thor replaces ##InstallFolder## with the
* installation path for the tool when this code is executed.
<<iif('{COMPONENT}' = 'No', '', '@@@')>>
procedure GetRegisterWithThor
local lcCommand
text to lcCommand noshow
* "{APPNAME}" is a tool created by VFPX Deployment:
* Create the tool under Thor Tools.
loThorInfo = Execscript (_Screen.cThorDispatcher, 'Thor Register=')
with loThorInfo
* Required properties.
.PRGName = 'Thor_Tool_{APPID}'
.FolderName = '##InstallFolder##'
.Prompt = '{APPNAME}'
* Optional properties.
.Description = '{APPNAME}'
* These are used to group and sort tools when they are displayed in menus or
* the Thor form.
.Category = '{CATEGORY}'
.CanRunAtStartUp = .F.
* This is the code to execute when the tool is selected.
.Code = "do ('##InstallFolder##{APPID}.app')"
* Register the tool with Thor.
llRegister = .Register()
endwith
endtext
return lcCommand
endproc &&GetRegisterWithThor
<<iif('{COMPONENT}' = 'No', '', '\\\')>><<iif('{COMPONENT}' = 'No', '@@@', '')>>
* "{APPNAME}" is a Component. No procedure GetRegisterWithThor created by VFPX Deployment
<<iif('{COMPONENT}' = 'No', '\\\', '')>>
@@@* Register the tool with Thor. This template code assumes the tool is an APP
* file named {AppID}.app, where AppID is the AppID setting in ProjectSettings.txt.
* If that isn't the case, edit the Code property as necessary.
\\\* Register the tool with Thor. Note: Thor replaces ##InstallFolder## with the
* installation path for the tool when this code is executed.
procedure GetRegisterWithThor
local lcCommand
text to lcCommand noshow
<<iif('{COMPONENT}' = 'No', '', '@@@')>>
* "{APPNAME}" is a tool created by VFPX Deployment:
* Create the tool under Thor Tools.
loThorInfo = Execscript (_Screen.cThorDispatcher, 'Thor Register=')
with loThorInfo
* Required properties.
.PRGName = 'Thor_Tool_{APPID}'
.FolderName = '##InstallFolder##'
.Prompt = '{APPNAME}'
* Optional properties.
.Description = '{APPNAME}'
* These are used to group and sort tools when they are displayed in menus or
* the Thor form.
.Category = '{CATEGORY}'
.CanRunAtStartUp = .F.
* This is the code to execute when the tool is selected.
.Code = "do ('##InstallFolder##{APPID}.app')"
* Register the tool with Thor.
llRegister = .Register()
endwith
<<iif('{COMPONENT}' = 'No', '', '\\\')>>
<<iif('{COMPONENT}' = 'No', '@@@', '')>>
* "{APPNAME}" is a Component. No code created by VFPX Deployment
<<iif('{COMPONENT}' = 'No', '\\\', '')>>
endtext
return lcCommand
*created by VFPX Deployment, <<DATETIME()>>

14
BuildProcess/afterbuild.prg Normal file
View File

@@ -0,0 +1,14 @@
* This program should can tasks like
* - FoxBin2Prg, if the automatic way was not used
* - git processing like add, commit or push
* - set debug info On in pjx or include file
*
* The program runs after
* - FoxBin2Prg is, if enabled, run
* - Thor files are created and zipped
* - git is, if enabled, run
*
* This program can use the public
* variables discussed in the documentation as necessary.
return

76
BuildProcess/buildme.prg Normal file
View File

@@ -0,0 +1,76 @@
*BuildMe.prg for [add your application]
*
* This program should perform any build tasks necessary for the project, such
* as updating version numbers in code or include files. This program can use the public
* variables discussed in the documentation as necessary.
LOCAL;
lcVerno as String,;
lnProject as Integer,;
llFound as Boolean,;
loProject as Project
*Get FoxBin2Prg verno from FoxBin2Prg.prg
lcVerno = "VERNO"
DO foxbin2prg.prg WITH lcVerno
*Set Thor verno
pcVersion = m.lcVerno
pcFullVersion = m.lcVerno
pcPJXFile = pcPJXFile &&"foxbin2prg.pjx"
*Set FoxBin2Prg.exe verno
For lnProject = 1 To _vfp.Projects.Count
If Upper(Fullpath(m.pcPJXFile))==Upper(_vfp.Projects(m.lnProject).Name) Then
_vfp.Projects(m.lnProject).VersionNumber = m.lcVerno
llFound = .T.
Exit
Endif &&Upper(Fullpath(m.pcPJXFile))==Upper(_vfp.Projects(m.lnProject).Name)
Endfor &&lnProject
If !m.llFound
If _Vfp.Projects.Count>0
loProject = _vfp.ActiveProject
Endif &&_Vfp.Projects.Count>0
MODIFY PROJECT (Fullpath(m.pcPJXFile)) Noshow Nowait Noprojecthook
_vfp.ActiveProject.VersionNumber = m.lcVerno
_vfp.ActiveProject.Close
If _Vfp.Projects.Count>0
_vfp.ActiveProject = m.loProject
Endif &&_Vfp.Projects.Count>0
Endif &&!m.llFound
* ToDo
llFound = FILE(Fullpath("FOXBIN2PRG.CFG"))
If m.llFound
rename FOXBIN2PRG.CFG to FOXBIN2PRG.CFG.tmp
Endif &&m.llFound
strtofile("Language: EN","FOXBIN2PRG.CFG")
DO foxbin2prg.prg WITH "-c", "foxbin2prg.cfg.txt"
DO foxbin2prg.prg WITH "-t", "foxbin2prg.dbf.cfg.txt"
delete file FOXBIN2PRG.CFG
If m.llFound
rename FOXBIN2PRG.CFG.tmp to FOXBIN2PRG.CFG
Endif &&m.llFound
*set english on
*export foxbin2prg.cfg.txt and foxbin2prg.dbf.cfg.txt
*set english off
return
*Stuff we can do:
* - get version number (pcVersion) from an include file
* - set version number (pcVersion) to an include file
* - set version number to pjx used
* - set debug info off in pjx or include file
* - If FoxBin2Prg internal to VFPXDeployment is not fitting, run own way
* - create pcFullVersion like you use in the .VersionNumber of Version*.txt file for use in README.md
* (else it will use pcVersion)
* like the example in the Version text template:
pcFullVersion = pcVersion+' - ' + pcJulian
* - copy files to ../InstalledFiles subfolder
* - modify documentation

69
BuildProcess/installedfiles.txt Normal file
View File

@@ -0,0 +1,69 @@
#Folder
#.git/
#.github/
#.gitignore
#BuildProcess/
#CONFIG/
#Documentacion/
#FileName_Caps/
#INSTALLEDFILES/
#TESTS/
#ThorUpdater/
#WinMergePortable/
#data/
#docs/
#tool/
#xThorUpdater/
#to ignore
#.gitattributes
#VFP9RENU.dll*
#vfp9r.dll*
#filetypes.conf
#ignore.conf
#to move
#FoxBin2PRGVersionFile.txt
#----------------------
#Fb2P_Diff
Fb2P_Diff\Fb2P_Diff.exe||\Fb2P_Diff.exe
#FileName_Caps
\FileName_Caps.exe
\FileName_Caps.cfg
#fb2p_diff.exe
\fb2p_diff.exe
#CLEAR ALL.exe
\CLEAR ALL.exe
#Foxbin2prg
#default
\*.vbs
#config
\FOXBIN2PRG.CFG.TXT
\FOXBIN2PRG.DBF.CFG.TXT
Config\config.fpw
#prg
\foxbin2prg.exe
\foxbin2prg.ico
\foxbin2prg.jpg
#we ignore the pjx for Thor, if somebody needs it, he can clone the repo
#\foxbin2prg.pjt
#\foxbin2prg.pjx
\foxbin2prg.prg
\foxbin2prg_keywords.cdx
\foxbin2prg_keywords.dbf
\props_*.txt
\LICENSE
########
\readme.md
WinMergePortable\

73
BuildProcess/projectsettings.txt Normal file
View File

@@ -0,0 +1,73 @@
*ProjectSettings.txt to create Thor deployment
*See https://github.com/VFPX/VFPXDeployment/blob/main/docs/Documentation.md for help.
*Paths relative are based on git toplevel folder
*The name to show in Thor. Mandatory
AppName = FoxBin2PRG
*The ID for Thor operation. Mandatory
AppID = FoxBin2PRG
*Version number
*A string, or enter pjx to use _VFP.ActiveProject.VersionNumber or, if defined PJXFile
*SF 20230806: <20>berdenken, wie das hier und pjx und prg zusammengeht
Version = 1.0
*Component of Thor or Tool. Use No for Tool.
Component = Yes
*Remote repository on a git server. There are two ways for the remote repository.
*- the builder assumes https://github.com/VFPX/{AppId}
*- or enter the URL here (uncomment to use):
Repository = https://github.com/fdbozzo/foxbin2prg
*The changelog file. Might be merged into the {AppID}Version.txt
*The file installed as template (uncomment to use):
*ChangeLog = docs\ChangeLog.md
*Create VFPX community folders and files. Will not overwrite existing files.
*Include_VFPX = Yes
*Do not create Thor folders and files (uncomment to use):
*Include_Thor = No
* The remaining lines are options to are not mandatory uncomment the options to use *
*"Yes" to auto run FoxBin2prg (Default), else "No" to not run.
RunBin2Prg = No
*"Yes" to auto run git (Default), else "No" to not run.
RunGit = No
*The release date formatted as YYYY-MM-DD; if omitted, today
*VersionDate = 1973-09-11
*Yes (Default) to prompt for Version if not specified
*Prompt = Yes
*The category to use when adding to the Thor menu. If omitted, "Applications". only when Component is No.
*Category = {My}
*The relative path to the PJX file to compile. Omit this if that isn't required.
PJXFile = FoxBin2Prg.pjx
*The path to the APP or EXE to build from the project, with the extension
AppFile = FoxBin2Prg.exe
*Builds the project specified in PJXFile without the RECOMPILE clause.
*Recompile = No
*A comma-separated list of relative paths to which FoxBin2PRG is to be applied.
*Bin2PRGFolder = {MySource1,MySource1}
*A different name for the staging folder.
*InstalledFilesFolder = {MyInstallFolder}
*Remove all files from InstalledFiles folder if InstalledFiles.txt is given
*Clear_InstalledFiles = No
*add a gitignore to InstalledFiles directory to not add this directory to git repository
gitIgnore_InstalledFiles = Yes
*A different name for version file used to publish info on the remote server.
*A help with old projects using a different name for the version file
*VersionFile_Remote = {AppID}Version.txt

6
Create_Foxbin2Prg.prg Normal file
View File

@@ -0,0 +1,6 @@
*Create config templates
DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt",FULLPATH("Create_FoxBin2Prg.cfg","")
DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbf.cfg.txt",FULLPATH("Create_FoxBin2Prg.cfg","")
*create binaries
DO FOXBIN2PRG.PRG WITH JUSTPATH(FULLPATH("","")),"Bin2Prg",,,,,,,,,FULLPATH("Create_FoxBin2Prg.cfg","")

2
FOXBIN2PRG.DBF.CFG.TXT
View File

@@ -1,6 +1,6 @@
*################################################################################################################
*-- Individual DBF configuration file (syntax: filename.dbf.cfg) Defaults see FoxBin2prg.cfg
*Version: v1.20.07
*Version: v1.21.01
*****************************************************************************************************************
*DBF_Conversion_Support: <0,1,2,4,8> && 0=No support, 1=Generate Header TXT only (Diff), 2=Generate Header TXT and BIN (Merge/Only Structure!), 4=Generate TXT with DATA (Diff), 8=Export and Import DATA (Merge/Structure & Data)

19
Fb2P_Diff/fb2p_diff.dataenvironment.sc2
View File

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

BIN
Fb2P_Diff/fb2p_diff.dataenvironment.sct
View File

Binary file not shown.

BIN
Fb2P_Diff/fb2p_diff.dataenvironment.scx
View File

Binary file not shown.

1471
Fb2P_Diff/fb2p_diff.frmdiff.sc2
View File

File diff suppressed because it is too large Load Diff

BIN
Fb2P_Diff/fb2p_diff.frmdiff.sct
View File

Binary file not shown.

BIN
Fb2P_Diff/fb2p_diff.frmdiff.scx
View File

Binary file not shown.

3
Fb2P_Diff/fb2p_diff.pj2
View File

@@ -1,8 +1,7 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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.20" SourceFile="fb2p_diff.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*< FOXBIN2PRG: Version="1.21" SourceFile="fb2p_diff.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
LPARAMETERS tcDir

6
Fb2P_Diff/fb2p_diff.sc2
View File

@@ -1,11 +1,7 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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.20" SourceFile="fb2p_diff.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*< FOXBIN2PRG: Version="1.21" SourceFile="fb2p_diff.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
*< EXTERNAL_CLASS: Name="frmdiff" Baseclass="form" />
*

10
FileName_Caps/Filename_caps.pj2
View File

@@ -1,8 +1,7 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="filename_caps.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*< FOXBIN2PRG: Version="1.21" SourceFile="filename_caps.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
LPARAMETERS tcDir
@@ -50,8 +49,8 @@ MODIFY PROJECT 'Filename_caps.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('Filename_caps.pjx')
WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" />
.ADD('filename_caps.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" />
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('filename_caps.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
*</BuildProj>
.ITEM('__newproject.f2b').Remove()
@@ -63,13 +62,12 @@ WITH loProject.FILES
*</ExcludedFiles>
*<TextFiles>
.ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
.ITEM("config\config.fpw").Type = 'T'
*</TextFiles>
ENDWITH
WITH loProject
*<ProjectProperties>
.SetMain(lcCurdir + 'filename_caps.prg')
.Debug = .T.
.Encrypted = .F.
*<.CmntStyle = 1 />

BIN
FileName_Caps/Filename_caps.pjt
View File

Binary file not shown.

BIN
FileName_Caps/Filename_caps.pjx
View File

Binary file not shown.

153
Helper/Read_InstallFiles.prg Normal file
View File

@@ -0,0 +1,153 @@
LPARAMETERS;
tcDirectory
*set step on
tcDirectory = EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder')
DO CASE
CASE VARTYPE(tcDirectory)#'C'
CASE !INLIST(UPPER(tcDirectory),'?','/?','-?','/Help','-Help')
OTHERWISE
tcDirectory = JUSTFNAME(SYS(16))
InfoScreen(tcDirectory)
RETURN
ENDCASE
ADDPROPERTY(_SCREEN,'gvX1',tcDirectory)
CLEAR ALL
LOCAL;
lcDir,;
lcExt,;
lcErr,;
lcOldPath,;
lcDirectory,;
llNewGUID,;
lcResult
lcDirectory = _SCREEN.gvX1
REMOVEPROPERTY(_SCREEN,'gvX1')
lcOldPath = FULLPATH(CURDIR())
DO CASE
CASE EMPTY(lcDirectory)
lcDir = ''
CASE !DIRECTORY(lcDirectory) AND !FILE(lcDirectory)
lcDir = ''
CASE DIRECTORY(lcDirectory)
lcDir = ADDBS(lcDirectory)
OTHERWISE
MESSAGEBOX('Nicht unterst<73>tzter Dateityp.')
RETURN
ENDCASE
IF EMPTY(lcDir) THEN
CLEAR
lcDir = GETDIR('','','',64)
IF ALLTRIM(lcDir)=='' THEN
RETURN
ENDIF &&ALLTRIM(lcDir)==''
ENDIF &&EMPTY(lcDir)
PUBLIC;
poRegExp
*!* poRegExp = CREATEOBJECT('VBScript.RegExp')
*!* WITH poRegExp
*!* .IgnoreCase = .T.
*!* .GLOBAL = .T.
*!* .MultiLine = .T.
*!* ENDWITH &&poRegExp
lcErr = ''
lcResult = ''
ScanDir(lcDir,@lcErr,lcDir,@lcResult)
_CLIPTEXT = lcResult
IF !EMPTY(lcErr) THEN
MESSAGEBOX('Fehler in der Zwischenablage gespeichert',0+48)
_CLIPTEXT = SUBSTR(lcErr,3)
ENDIF &&!EMPTY(lcErr)
poRegExp = .NULL.
RELEASE;
poRegExp
CD (lcOldPath)
RETURN lcResult
PROCEDURE InfoScreen
LPARAMETERS;
tcProgram
LOCAL;
lcTemp AS CHARACTER,;
lnOldMemoW AS INTEGER
TEXT TO lcTEMP NOSHOW textmerge
<<tcProgram>>
Creates a list of files in a given subdirectory with subdirectories.
Usage:
<<tcProgram>> [/?] [cDirectory]
/? Displays this text
cDirectory optional directory to start from, subdirectories will be included
Return is in clipboard
ENDTEXT
lnOldMemoW = SET("Memowidth")
SET MEMOWIDTH TO 100
?lcTemp FONT 'Courier',6
SET MEMOWIDTH TO lnOldMemoW
ENDPROC &&InfoScreen
PROCEDURE ScanDir
LPARAMETERS;
tcDir,;
tcErr,;
tcDir2,;
tcResult
LOCAL;
lnLoop1,;
lcOldDir
LOCAL ARRAY;
laDir(1)
* SET STEP ON
lcOldDir = FULLPATH(CURDIR())
CD (tcDir)
FOR lnLoop1 = 1 TO ADIR(laDir,'','D')
IF INLIST(laDir(lnLoop1,1),'.','..') THEN
LOOP
ENDIF &&INLIST(laDir(lnLoop1,1),'.','..')
ScanDir(ADDBS(tcDir+laDir(lnLoop1,1)),@tcErr,tcDir2,@tcResult)
ENDFOR &&lnLoop1
Dir_Action(tcDir,@tcErr,tcDir2,@tcResult)
CD (lcOldDir)
ENDPROC &&ScanDir
PROCEDURE Dir_Action
LPARAMETERS;
tcDir,;
tcErr,;
tcDir2,;
tcResult
LOCAL;
lnStart AS INTEGER
LOCAL ARRAY;
laDir(1)
tcDir2 = STRTRAN(tcDir,tcDir2,'')
FOR lnStart = 1 TO ADIR(laDir,'*.*')
tcResult = tcResult+0h0d0a+laDir(lnStart,1)
ENDFOR &&lnStart
RETURN
ENDPROC &&Dir_Action

0
clean_copied_memo.prg → Helper/clean_copied_memo.prg
View File

469
Helper/clean_thorfolder.prg Normal file
View File

@@ -0,0 +1,469 @@
LPARAMETERS;
tcDirectory
DO CASE
CASE VARTYPE(tcDirectory)#'C'
CASE !INLIST(UPPER(tcDirectory),'?','/?','-?','/Help','-Help')
OTHERWISE
tcDirectory = JUSTFNAME(SYS(16))
InfoScreen(tcDirectory)
RETURN
ENDCASE
ADDPROPERTY(_SCREEN,'gvX1',tcDirectory)
CLEAR ALL
LOCAL;
lcDir,;
lcExt,;
lcErr,;
lcOldPath,;
lcDirectory,;
llNewGUID
LOCAL ARRAY;
laActual(1)
lcDirectory = _SCREEN.gvX1
REMOVEPROPERTY(_SCREEN,'gvX1')
lcOldPath = FULLPATH(CURDIR())
DO CASE
CASE EMPTY(lcDirectory)
lcDir = ''
CASE !DIRECTORY(lcDirectory) AND !FILE(lcDirectory)
lcDir = ''
CASE DIRECTORY(lcDirectory)
lcDir = ADDBS(lcDirectory)
OTHERWISE
MESSAGEBOX('Nicht unterst<73>tzter Dateityp.')
RETURN
ENDCASE
IF EMPTY(lcDir) THEN
CLEAR
lcDir = GETDIR('','','',64)
IF ALLTRIM(lcDir)=='' THEN
RETURN
ENDIF &&ALLTRIM(lcDir)==''
ENDIF &&EMPTY(lcDir)
PUBLIC;
poRegExp
*!* poRegExp = CREATEOBJECT('VBScript.RegExp')
*!* WITH poRegExp
*!* .IgnoreCase = .T.
*!* .GLOBAL = .T.
*!* .MultiLine = .T.
*!* ENDWITH &&poRegExp
lcErr = ''
lcResult = ''
Get_CompareFiles(@laActual)
ScanDir(lcDir,@lcErr,lcDir,@laActual)
CD
IF !EMPTY(lcErr) THEN
MESSAGEBOX('Fehler in der Zwischenablage gespeichert',0+48)
_CLIPTEXT = SUBSTR(lcErr,3)
ENDIF &&!EMPTY(lcErr)
poRegExp = .NULL.
RELEASE;
poRegExp
CD (lcOldPath)
PROCEDURE InfoScreen
LPARAMETERS;
tcProgram
LOCAL;
lcTemp AS CHARACTER,;
lnOldMemoW AS INTEGER
TEXT TO lcTEMP NOSHOW textmerge
<<tcProgram>>
Removes files from old installation out og Thor installation directroy for FoxBin2Prg
Compares with a list of files, change proc Get_CompareFiles to add or remove files.
Run Read_InstallFiles.prg against INSTALLEDFILES directory to get the list of files.
Usage:
<<tcProgram>> [/?] [cDirectory]
/? Displays this text
cDirectory optional directory to start from, subdirectories will be included
ENDTEXT
lnOldMemoW = SET("Memowidth")
SET MEMOWIDTH TO 100
?lcTemp FONT 'Courier',6
SET MEMOWIDTH TO lnOldMemoW
ENDPROC &&InfoScreen
PROCEDURE ScanDir
LPARAMETERS;
tcDir,;
tcErr,;
tcDir2,;
taActual
LOCAL;
lnLoop1,;
lcOldDir
LOCAL ARRAY;
laDir(1)
* SET STEP ON
lcOldDir = FULLPATH(CURDIR())
CD (tcDir)
FOR lnLoop1 = 1 TO ADIR(laDir,'','D')
IF INLIST(laDir(lnLoop1,1),'.','..') THEN
LOOP
ENDIF &&INLIST(laDir(lnLoop1,1),'.','..')
ScanDir(ADDBS(tcDir+laDir(lnLoop1,1)),@tcErr,tcDir2,@taActual)
ENDFOR &&lnLoop1
Dir_Action(tcDir,@tcErr,tcDir2,@taActual)
CD (lcOldDir)
ENDPROC &&ScanDir
PROCEDURE Dir_Action
LPARAMETERS;
tcDir,;
tcErr,;
tcDir2,;
taActual
LOCAL;
lnStart AS INTEGER
EXTERNAL ARRAY;
taActual
LOCAL ARRAY;
laDir(1)
tcDir2 = STRTRAN(tcDir,tcDir2,'')
FOR lnStart = 1 TO ADIR(laDir,'*.*')
IF EMPTY(ASCAN(taActual,tcDir2+laDir(lnStart,1))) THEN
DELETE FILE JUSTFNAME(laDir(lnStart,1))
ENDIF &&EMPTY(ASCAN(taActual,tcDir2+laDir(lnStart,1)))
ENDFOR &&lnStart
DIMENSION ;
laDir(1)
laDir = .F.
ADIR(laDir,'*.*')
IF EMPTY(laDir(1,1)) THEN
CD ..
TRY
RMDIR JUSTFNAME(JUSTPATH(m.tcDir))
CATCH
*incase there is a folder, the cheap ignore
?m.tcDir
ENDTRY
ENDIF &&EMPTY(laDir(1,1))
RETURN
ENDPROC &&Dir_Action
PROCEDURE Get_CompareFiles
LPARAMETERS;
taActual
EXTERNAL ARRAY;
taActual
LOCAL;
lcTemp AS STRING
TEXT TO lctemp NOSHOW
CONFIG\CONFIG.FPW
WINMERGEPORTABLE\APP\APPINFO\LAUNCHER\SPLASH.JPG
WINMERGEPORTABLE\APP\APPINFO\LAUNCHER\WINMERGEPORTABLE.INI
WINMERGEPORTABLE\APP\APPINFO\APPICON.ICO
WINMERGEPORTABLE\APP\APPINFO\APPICON_128.PNG
WINMERGEPORTABLE\APP\APPINFO\APPICON_16.PNG
WINMERGEPORTABLE\APP\APPINFO\APPICON_32.PNG
WINMERGEPORTABLE\APP\APPINFO\APPINFO.INI
WINMERGEPORTABLE\APP\APPINFO\INSTALLER.INI
WINMERGEPORTABLE\APP\DEFAULTDATA\SETTINGS\WINMERGE.REG
WINMERGEPORTABLE\APP\WINMERGE\DOCS\CHANGELOG.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-BASQUE.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-BRAZILIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-BULGARIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CATALAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CHINESESIMPLIFIED.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CHINESETRADITIONAL.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CROATIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-DUTCH.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-FRENCH.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-GALICIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-GREEK.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-JAPANESE.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-ROMANIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-SERBIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-SPANISH.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-SWEDISH.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-TURKISH.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-UKRAINIAN.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\README.TXT
WINMERGEPORTABLE\APP\WINMERGE\DOCS\RELEASENOTES.HTML
WINMERGEPORTABLE\APP\WINMERGE\DOCS\WINMERGE.CHM
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\ADAMULTI.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\ASPNET.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\CSHARP_LOOSE.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\DELPHI.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\FILEFILTER.TMPL
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\FRONTPAGE.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MASM.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MERGE_GNUC_LOOSE.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MERGE_VB_LOOSE.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MERGE_VC_LOOSE.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MICROSOFT_VISUAL_FOXPRO_FOXBIN2PRG.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\SOURCECONTROL.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\SYMBIAN.FLT
WINMERGEPORTABLE\APP\WINMERGE\FILTERS\XML_HTML.FLT
WINMERGEPORTABLE\APP\WINMERGE\LANG\AF.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\AR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\AST.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\AZ.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\BA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\BE.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\BG.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\BN.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\BR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\CA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\CS.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\CY.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\DA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\DE.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\EL.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\EN.TTT
WINMERGEPORTABLE\APP\WINMERGE\LANG\EO.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\ES.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\ET.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\EU.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\EXT.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\FA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\FI.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\FR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\FUR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\FY.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\GL.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\GU.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\HE.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\HI.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\HR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\HU.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\HY.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\ID.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\IO.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\IS.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\IT.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\JA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\KA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\KK.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\KO.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\KU-CKB.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\KU.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\LT.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\LV.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\MK.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\MN.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\MR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\MS.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\NB.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\NE.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\NL.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\NN.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\PA-IN.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\PL.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\PS.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\PT-BR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\PT.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\RO.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\RU.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SI.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SK.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SL.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SQ.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SR-SPC.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SR-SPL.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\SV.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\TA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\TH.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\TR.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\TT.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\UG.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\UK.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\UZ.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\VA.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\VI.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\ZH-CN.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANG\ZH-TW.TXT
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\BASQUE.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\BRAZILIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\BULGARIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CATALAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CHINESESIMPLIFIED.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CHINESETRADITIONAL.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CROATIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CZECH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\DANISH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\DUTCH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\FRENCH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\GALICIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\GERMAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\GREEK.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\HUNGARIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\ITALIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\JAPANESE.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\KOREAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\NORWEGIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\PERSIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\POLISH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\PORTUGUESE.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\ROMANIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\RUSSIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SERBIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SLOVAK.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SLOVENIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SPANISH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SWEDISH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\TURKISH.PO
WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\UKRAINIAN.PO
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\COMPAREMSEXCELFILES.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\COMPAREMSWORDFILES.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\DISPLAYXMLFILES.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\EDITOR ADDIN.SCT
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNORECOLUMNS.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNORECOMMENTSC.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNOREFIELDSCOMMA.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNOREFIELDSTAB.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNORELEADINGLINENUMBERS.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\INSERT DATETIME.SCT
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\WATCHBEGINNINGOFLOG.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\WATCHENDOFLOG.DLL
WINMERGEPORTABLE\APP\WINMERGE\7Z.DLL
WINMERGEPORTABLE\APP\WINMERGE\7ZIP_PAD.XML
WINMERGEPORTABLE\APP\WINMERGE\CONTRIBUTORS.TXT
WINMERGEPORTABLE\APP\WINMERGE\FILES.TXT
WINMERGEPORTABLE\APP\WINMERGE\IGNORESECTIONMARKERS.INI
WINMERGEPORTABLE\APP\WINMERGE\LIBEXPAT.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z910U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z911.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z911U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z912.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z912U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z913.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z913U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z914.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z914U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z915.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z915U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z916.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z916U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z917.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z917U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z918.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z918U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z919.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z919U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z920.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z920U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MERGELANG.DLL
WINMERGEPORTABLE\APP\WINMERGE\MFC90.DLL
WINMERGEPORTABLE\APP\WINMERGE\MFC90U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MFCM90.DLL
WINMERGEPORTABLE\APP\WINMERGE\MFCM90U.DLL
WINMERGEPORTABLE\APP\WINMERGE\MICROSOFT.VC90.CRT.MANIFEST
WINMERGEPORTABLE\APP\WINMERGE\MICROSOFT.VC90.MFC.MANIFEST
WINMERGEPORTABLE\APP\WINMERGE\MSVCM90.DLL
WINMERGEPORTABLE\APP\WINMERGE\MSVCP90.DLL
WINMERGEPORTABLE\APP\WINMERGE\MSVCR90.DLL
WINMERGEPORTABLE\APP\WINMERGE\PCRE.DLL
WINMERGEPORTABLE\APP\WINMERGE\WINMERGEU.EXE
WINMERGEPORTABLE\DATA\SETTINGS\WINMERGE.REG
WINMERGEPORTABLE\DATA\SETTINGS\WINMERGEPORTABLESETTINGS.INI
WINMERGEPORTABLE\OTHER\HELP\IMAGES\DONATION_BUTTON.PNG
WINMERGEPORTABLE\OTHER\HELP\IMAGES\FAVICON.ICO
WINMERGEPORTABLE\OTHER\HELP\IMAGES\HELP_BACKGROUND_FOOTER.PNG
WINMERGEPORTABLE\OTHER\HELP\IMAGES\HELP_BACKGROUND_HEADER.PNG
WINMERGEPORTABLE\OTHER\HELP\IMAGES\HELP_LOGO_TOP.PNG
WINMERGEPORTABLE\OTHER\SOURCE\APPNAMEPORTABLE.INI
WINMERGEPORTABLE\OTHER\SOURCE\LAUNCHERLICENSE.TXT
WINMERGEPORTABLE\OTHER\SOURCE\PORTABLEAPPS.COMINSTALLERCUSTOM.NSH
WINMERGEPORTABLE\OTHER\SOURCE\README.TXT
WINMERGEPORTABLE\HELP.HTML
WINMERGEPORTABLE\WINMERGEPORTABLE.EXE
.GITIGNORE
CONVERT_VFP9_BIN_2_PRG.VBS
CONVERT_VFP9_PRG_2_BIN.VBS
FB2P_DIFF.EXE
FILENAME_CAPS.CFG
FILENAME_CAPS.EXE
FOXBIN2PRG.CFG.TXT
FOXBIN2PRG.DBF.CFG.TXT
FOXBIN2PRG.EXE
FOXBIN2PRG.ICO
FOXBIN2PRG.JPG
FOXBIN2PRG.PRG
FOXBIN2PRGVERSIONFILE.TXT
FOXBIN2PRG_KEYWORDS.CDX
FOXBIN2PRG_KEYWORDS.DBF
LICENSE
NORMALIZE_FILENAMES.VBS
PROPS_ALL.TXT
PROPS_CHECKBOX.TXT
PROPS_COLLECTION.TXT
PROPS_COMBOBOX.TXT
PROPS_COMMANDBUTTON.TXT
PROPS_COMMANDGROUP.TXT
PROPS_CONTAINER.TXT
PROPS_CONTROL.TXT
PROPS_CURSOR.TXT
PROPS_CURSORADAPTER.TXT
PROPS_DATAENVIRONMENT.TXT
PROPS_EDITBOX.TXT
PROPS_FORM.TXT
PROPS_FORMSET.TXT
PROPS_GRID.TXT
PROPS_GRID_COLUMN.TXT
PROPS_GRID_HEADER.TXT
PROPS_HYPERLINK.TXT
PROPS_IMAGE.TXT
PROPS_LABEL.TXT
PROPS_LINE.TXT
PROPS_LISTBOX.TXT
PROPS_OLEBOUND.TXT
PROPS_OPTIONGROUP.TXT
PROPS_OPTIONGROUP_OPTION.TXT
PROPS_PAGEFRAME.TXT
PROPS_PAGEFRAME_PAGE.TXT
PROPS_PRE_V1_19_22.TXT
PROPS_PROJECTHOOK.TXT
PROPS_RELATION.TXT
PROPS_REPORTLISTENER.TXT
PROPS_SEPARATOR.TXT
PROPS_SHAPE.TXT
PROPS_SPINNER.TXT
PROPS_TEXTBOX.TXT
PROPS_TIMER.TXT
PROPS_TOOLBAR.TXT
PROPS_XMLADAPTER.TXT
PROPS_XMLFIELD.TXT
PROPS_XMLTABLE.TXT
README.MD
VFP9_FOXBIN2PRG.VBS
FOXBIN2PRG.CFG
CLEAN_THORFOLDER.PRG
CLEAN_THORFOLDER.FXP
ENDTEXT &&lcTemp
ALINES(taActual,lcTemp)
ENDPROC &&Get_CompareFiles

21
Helper/getrevisions.prg Normal file
View File

@@ -0,0 +1,21 @@
*-- Para Fidel
#DEFINE HISTORIAL_I '* <HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>'
#DEFINE HISTORIAL_F '* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>'
LOCAL lcHistorial, laLinea(1), laHistorial(1,4)
lcHistorial = STREXTRACT( FILETOSTR('FOXBIN2PRG.PRG'), HISTORIAL_I, HISTORIAL_F )
SET MEMOWIDTH TO 220 && Solo para prueba. Quitar en la funci<63>n
CLEAR && Solo para prueba. Quitar en la funci<63>n
*-- Formato a leer:
*-- [* 04/11/2013 FDBOZZO v1.0 Creaci<63>n inicial de las clases y soporte de los archivos VCX/SCX/PJX]
FOR I = 1 TO ALINES(laLinea, lcHistorial, 1+4+8)
DIMENSION laHistorial(I,4)
laHistorial(I,1) = GETWORDNUM( laLinea(I), 2 )
laHistorial(I,2) = GETWORDNUM( laLinea(I), 3 )
laHistorial(I,3) = GETWORDNUM( laLinea(I), 4 )
laHistorial(I,4) = SUBSTR( laLinea(I), AT(laHistorial(I,3), laLinea(I)) + LEN(laHistorial(I,3)) + 1 )
*-- Este '?' es solo de prueba
? '['+laHistorial(I,1)+']', '['+laHistorial(I,2)+']', '['+laHistorial(I,3)+']', '['+laHistorial(I,4)+']'
ENDFOR
*-- En este punto ten<65>s el array laHistorial con 1 columna para cada dato.

12
Helper/preparar_SpecialProps_desde_Lista.prg Normal file
View File

@@ -0,0 +1,12 @@
LOCAL I, lcStrIn, lcStrOut, laStr(1), lcLeftDelim, lcRightDelim, lcStr, lnLines, lnPosDlr
ON KEY LABEL CTRL+R DO preparar_specialprops_desde_lista.prg
lcStrOut = ''
lcStrIn = _CLIPTEXT
lnLines = ALINES(laStr, lcStrIn)
lnPosDlr = AT('.',laStr(1))
FOR I = 1 TO lnLines
lcStrOut = lcStrOut + CHR(13) + ".SortSpecialProps_Form_Add( '" + laStr(I) + "', @I )"
ENDFOR
_CLIPTEXT = SUBSTR( lcStrOut, 2 )

5
Helper/readme.md Normal file
View File

@@ -0,0 +1,5 @@
# FoxBin2Prg/Helper
Programs used to assist with the program, inherited from Fernando
Last changed: _2023/08/26_

21
INSTALLEDFILES/license Normal file
View File

@@ -0,0 +1,21 @@
MIT License
Copyright (c) 2014 Fernando D. Bozzo
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.

318
README.md
View File

@@ -1,140 +1,178 @@
# FoxBin2Prg v1.20.07
**Binary/Text Converting program for Microsoft Visual FoxPro**
![VFPX Logo](https://vfpx.github.io/images/vfpxbanner_small.gif)
---
## What is FOXBIN2PRG?
It is a program intended to be used with **SCM tools** (Source Code Managers, like VSS, CVS, SVN)
and *DVCS tools* (Version Control Systems such as Git, Mercurial, Plastic, and others),
or as **standalone** program for **Diff** (viewing differences) and **Merge** operations.
Foxbin2prg can substitute for **SccText/X**, **TwoFox** and others,
and enhance their functionality, generating bidirectional PRG-Style versions of Foxpro binary files that allow recreating the original binary file.
## Advantages:
* It generates "PRG" _style_ text files from Foxpro binary files for use in SCM and VCS systems and for visual comparison.
(it's not really a prg, and can not be compiled, but it reads like one to Foxpro developers.)
* It enables the change of the Text version as easy as modifying a PRG.
* All the program code for any binary file (a form, a report, a class) is in just one text file, to simplify its maintainability.
* You can regenerate the original binaries from the text files, so it is useful as backup
* The extensions are configurable if you create a FOXBIN2PRG.CFG file
* Inheritance of CFG configuration files between directories
* Methods and properties of Text versions are alphabetically sorted for easy comparison
* You can set the "UseClassPerFile" setting to create individual files by class or DBC member.
(Which violates number three above, but it may be what you want.)
* Takes advantage of the Win32 API using foxbin2prg as an object
* It has compatibility with SccText/X at the parameter level so that it can be used as substitute for SccText with SourceSafe. (Not that we recommend SourceSafe.)
* Productivity: You can create a shortcut in the "SendTo" folder on your user Windows Profile, so you can "send" the selected file (pjx,pj2,etc) to Foxbin2prg.exe and make on-the-fly conversions
* You can modify the TX2 Prg-Style versions of your objects with MODIFY COMMAND (without compile) to see colored syntax, or even use the Document View to navigate the procedures
* Get back your SourceSafe projects (.pjx) from their .pjm file
The program supports conversions between PJX,SCX,VCX,FRX,LBX,DBC,DBF and MNX files, for which it generates TEXT versions with extension PJ2,SC2,VC2,FR2,LB2,DC2,DB2 and MN2. If you want, the created text file extensions can be reconfigured to be compatibilize with SourceSafe.
## Examples
### Redefine extensions of _Text_
Here is an example of a FOXBIN2PRG.CFG configuration file if you need to change extensions for using it with a specific VSS (SourceSafe)
```
extension: SC2=SCA
extension: VC2=VCA
extension: PJ2=PJA
extension: MN2=MNA
extension: FR2=FRA
extension: LB2=LBA
extension: DB2=DBA
extension: DC2=DCA
```
### Use FoxBin2Prg
```
DO FOXBIN2PRG.PRG WITH "<path>\archivo.scx" ==> Generates the TEXT version sc2 extension
DO FOXBIN2PRG.PRG WITH "<path>\archivo.sc2" ==> Regenerates the binary version with scx extension
DO FOXBIN2PRG.PRG WITH "<path>","Prg2Bin" ==> Generates the TEXT of the path, that is directory or file
DO FOXBIN2PRG.PRG WITH "<path>","Bin2Prg" ==> Regenerates the binary version of the path, that is directory or file
DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest settings
DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings
```
### Interactive list of options
```
DO FOXBIN2PRG.PRG WITH "?"
```
### Use with MS Windows SendTo
You can create up to three different shortcuts pointing to FoxBin2Prg.exe and in your "SendTo" folder in your Windows profile. This allows you to "send" a selected file (pjx,pj2,etc) to the selected option, and make on-the-fly conversions. (Make sure you have the option for seeing known file extensions turned on!):
#### Process directories or individual files to _Text_
- Name:
`FoxBin2Prg - Binary2Text.lnk`
- Right-click/Properties/destination_
`<path>\foxbin2prg.exe "BIN2PRG-SHOWMSG"`
#### Process directories or individual files to _Binary_
- Name:
`FoxBin2Prg - Text2Binary.lnk`
- Right-click/Properties/destination_
`<path>\foxbin2prg.exe "PRG2BIN-SHOWMSG"`
#### Process individual files or directories asking what to convert
- Name:
`FoxBin2Prg.lnk`
- Right-click/Properties/destination_
`<path>\foxbin2prg.exe "INTERACTIVE-SHOWMSG"`
##### How to use the links
Select a file, right-click, SendTo -> FoxBin2Prg
## LOCALIZATION:
Is automatic starting at v1.19.38 (Languages: EN,ES,FR,DE)
## FINAL NOTE:
This program is Open Source and "libre", and I don't make any guaranties that it fulfills your expectations or that it will be free of bugs.
I will try to fix bugs if my obligations let me do it.
## LICENCE:
This work is licensed under the Creative Commons Attribution 4.0 International License.
To view a copy of this license, visit http://creativecommons.org/licenses/by/4.0/.
---
## Changes
See [Changes](./docs/ChangeLog.md)
### Changes to Settings
To get the new settings in config file, use the new create-a-template function:
```
DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest default settings
DO FOXBIN2PRG.PRG WITH "-C","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with active settings
DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings
```
----
## Limitations
If dealing with project files, FoxBin2Prg will fail if files of the project are not stored on the drive of the project.
See [issue #93](https://github.com/fdbozzo/foxbin2prg/issues/93).
----
## Usage
For usage see [documentation](./docs/FoxBin2Prg.md)
----
## Helping with FoxBin2PRG
See [contribution](./.github/CONTRIBUTING.md)
---
## Note
The spanish documentation is not longer maintained - it would fade.
For fast access a quick run is [introduced](#use-foxbin2prg), more [complex](./docs/FoxBin2Prg_Run.md#usage-1), and a large [documentation](./docs/FoxBin2Prg.md) exists too.
If you do not access FoxBin2Prg via [Thor](https://github.com/VFPX/Thor) remind yourself to compile the exe first.
If you like to see Fernando's blog, or value his work:
- Blog: http://fdbozzo.blogspot.com.es/
- [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&amp;business=fdbozzo%40gmail%2ecom&amp;lc=ES&amp;item_name=FoxBin2Prg&amp;item_number=FoxBin2Prg&amp;currency_code=USD&amp;bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted)
----
Last changed: _2023/09/23_ ![Picture](./docs/pictures/vfpxpoweredby_alternative.gif)
# FoxBin2Prg
## Version 1.21.01
**Binary/Text Converting program for Microsoft Visual FoxPro**
## Lutz Scheffler
This is the perpetuation of [Fernando D. Bozzo](https://github.com/fdbozzo) foxbin2prg.
The spanish documentation is not longer maintained.
Remind yourself to compile the exe first.
## Regenerate after download / clone / pull
**Note: If you have cloned or pulled the project, you must run it against itself to create the binaries and exes.**
Run
```
CD "path_to_FoxBin2Prg"
*This uses a special configuration
DO ReCreate_FoxBin2Prg.prg
```
**Note: Do not run FoxBin2Prg.prg directly.**
---
If you like to value my work, support the Geeks at
[![Virtual Fox Fest!](https://virtualfoxfest.com/images/ZoomFoxSmall.png)](https://virtualfoxfest.com/) or [![Southwest Fox!](http://www.swfox.net/images/KokoWhite.jpg)](https://www.swfox.net).
I also do not reject invitations to a beer, next time in Arizona.
---
If you like to see Fernandos blog, or value his work:
- Blog: http://fdbozzo.blogspot.com.es/
- [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&amp;business=fdbozzo%40gmail%2ecom&amp;lc=ES&amp;item_name=FoxBin2Prg&amp;item_number=FoxBin2Prg&amp;currency_code=USD&amp;bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted)
Thank you for your support!
----
## Important Note
To fix a bug, this version changes the text file header.
It is suggested to create all text files and commit in one step.
----
## Contribution
See [contribution](./.github/CONTRIBUTING.md)
---
## What is FOXBIN2PRG?
It is a program intended to be used with **SCM tools** (Source Code Managers, like VSS, CVS, SVN)
and *DVCS tools* (Version Control Systems such as Git, Mercurial, Plastic, and others),
or as **standalone** program for **Diff** (viewing differences) and **Merge** operations.
Foxbin2prg can substitute for **SccText/X**, **TwoFox** and others,
and enhance their functionality, generating bidirectional PRG-Style versions of Foxpro binary files that allow recreating the original binary file.
## Advantages:
* It generates "PRG" _style_ text files from Foxpro binary files for use in SCM and VCS systems and for visual comparison.
(it's not really a prg, and can not be compiled, but it reads like one to Foxpro developers.)
* It enables the change of the Text version as easy as modifying a PRG.
* All the program code for any binary file (a form, a report, a class) is in just one text file, to simplify its maintainability.
* You can regenerate the original binaries from the text files, so it is useful as backup
* The extensions are configurable if you create a FOXBIN2PRG.CFG file
* Inheritance of CFG configuration files between directories
* Methods and properties of Text versions are alphabetically sorted for easy comparison
* You can set the "UseClassPerFile" setting to create individual files by class or DBC member.
(Which violates number three above, but it may be what you want.)
* Takes advantage of the Win32 API using foxbin2prg as an object
* It has compatibility with SccText/X at the parameter level so that it can be used as substitute for SccText with SourceSafe. (Not that we recommend SourceSafe.)
* Productivity: You can create a shortcut in the "SendTo" folder on your user Windows Profile, so you can "send" the selected file (pjx,pj2,etc) to Foxbin2prg.exe and make on-the-fly conversions
* You can modify the TX2 Prg-Style versions of your objects with MODIFY COMMAND (without compile) to see colored syntax, or even use the Document View to navigate the procedures
* Get back your SourceSafe projects (.pjx) from their .pjm file
The program supports conversions between PJX,SCX,VCX,FRX,LBX,DBC,DBF and MNX files, for which it generates TEXT versions with extension PJ2,SC2,VC2,FR2,LB2,DC2,DB2 and MN2. If you want, the created text file extensions can be reconfigured to be compatibilize with SourceSafe.
## Examples
### Redefine extensions of _Text_
Here is an example of a FOXBIN2PRG.CFG configuration file if you need to change extensions for using it with a specific VSS (SourceSafe)
```
extension: SC2=SCA
extension: VC2=VCA
extension: PJ2=PJA
extension: MN2=MNA
extension: FR2=FRA
extension: LB2=LBA
extension: DB2=DBA
extension: DC2=DCA
```
### Use FoxBin2Prg
```
DO FOXBIN2PRG.PRG WITH "<path>\archivo.scx" ==> Generates the TEXT version sc2 extension
DO FOXBIN2PRG.PRG WITH "<path>\archivo.sc2" ==> Regenerates the binary version with scx extension
DO FOXBIN2PRG.PRG WITH "<path>","Prg2Bin" ==> Generates the TEXT of the path, that is directory or file
DO FOXBIN2PRG.PRG WITH "<path>","Bin2Prg" ==> Regenerates the binary version of the path, that is directory or file
DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest settings
DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings
```
### Interactive list of options
```
DO FOXBIN2PRG.PRG WITH "?"
```
### Use with MS Windows SendTo
You can create up to three different shortcuts pointing to FoxBin2Prg.exe and in your "SendTo" folder in your Windows profile. This allows you to "send" a selected file (pjx,pj2,etc) to the selected option, and make on-the-fly conversions. (Make sure you have the option for seeing known file extensions turned on!):
#### Process directories or individual files to _Text_
- Name:
`FoxBin2Prg - Binary2Text.lnk`
- Right-click/Properties/destination_
`<path>\foxbin2prg.exe "BIN2PRG-SHOWMSG"`
#### Process directories or individual files to _Binary_
- Name:
`FoxBin2Prg - Text2Binary.lnk`
- Right-click/Properties/destination_
`<path>\foxbin2prg.exe "PRG2BIN-SHOWMSG"`
#### Process individual files or directories asking what to convert
- Name:
`FoxBin2Prg.lnk`
- Right-click/Properties/destination_
`<path>\foxbin2prg.exe "INTERACTIVE-SHOWMSG"`
##### How to use the links
Select a file, right-click, SendTo -> FoxBin2Prg
## LOCALIZATION:
Is automatic starting at v1.19.38 (Languages: EN,ES,FR,DE)
## FINAL NOTE:
This program is Open Source and "libre", and I don't make any guaranties that it fulfills your expectations or that it will be free of bugs.
I will try to fix bugs if my obligations let me do it.
## LICENCE:
This work is licensed under the Creative Commons Attribution 4.0 International License.
To view a copy of this license, visit http://creativecommons.org/licenses/by/4.0/.
---
## Changes
See [Changes](./docs/ChangeLog.md)
### Changes to Settings
To get the new settings in config file, use the new create-a-template function:
```
DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest default settings
DO FOXBIN2PRG.PRG WITH "-C","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with active settings
DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings
```
----
## Limitations
If dealing with project files, FoxBin2Prg will fail if files of the project are not stored on the drive of the project.
See [issue #93](https://github.com/fdbozzo/foxbin2prg/issues/93).
----
## Usage
For usage see [documentation](./docs/FoxBin2Prg.md)
----
## Helping with FoxBin2PRG
See [contribution](./.github/CONTRIBUTING.md)
---
## Note
The spanish documentation is not longer maintained - it would fade.
For fast access a quick run is [introduced](#use-foxbin2prg), more [complex](./docs/FoxBin2Prg_Run.md#usage-1), and a large [documentation](./docs/FoxBin2Prg.md) exists too.
If you do not access FoxBin2Prg via [Thor](https://github.com/VFPX/Thor) remind yourself to compile the exe first.
If you like to see Fernando's blog, or value his work:
- Blog: http://fdbozzo.blogspot.com.es/
- [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&amp;business=fdbozzo%40gmail%2ecom&amp;lc=ES&amp;item_name=FoxBin2Prg&amp;item_number=FoxBin2Prg&amp;currency_code=USD&amp;bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted)
----
Last changed: _2023/12/05_ ![Picture](./docs/pictures/vfpxpoweredby_alternative.gif)

13
ReCreate_FoxBin2Prg.prg Normal file
View File

@@ -0,0 +1,13 @@
*ReCreate all FoxBin2Prg files from there text representation and compile
DO FoxBin2Prg.PRG WITH JUSTPATH(FULLPATH("","")),"Prg2Bin",,,,,,,,,FULLPATH("Create_FoxBin2Prg.cfg","")
BUILD PROJECT FoxBin2Prg.EXE FROM FoxBin2Prg.pjx RECOMPILE
CD Fb2P_Diff
BUILD PROJECT Fb2P_Diff.EXE FROM Fb2P_Diff.pjx RECOMPILE
CD ..\FileName_Caps
BUILD PROJECT FileName_Caps.EXE FROM FileName_Caps.pjx RECOMPILE
CD ..

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.

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