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

Config per folder

Browse Source 
On operation per folder, change of folder must change configuration
 fixed #86
This commit is contained in:
Lutz
2022-06-13 21:58:47 +02:00
parent efffbedca5
commit b844be69a3
12 changed files with 110 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
FoxBin2PRGVersionFile.txt
View File

@@ -2,8 +2,8 @@ Lparameters toUpdateInfo
Local lcNote Local lcNote
With toUpdateInfo With toUpdateInfo
.VersionNumber = 'v1.19.75' .VersionNumber = 'v1.19.76'
.VersionDate = Date(2022,06,08) .VersionDate = Date(2022,06,13)
.SourceFileUrl = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip' .SourceFileUrl = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip'
.Link = 'https://github.com/fdbozzo/foxbin2prg/wiki' .Link = 'https://github.com/fdbozzo/foxbin2prg/wiki'
@@ -21,6 +21,9 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
+++++++++++++++++++++++ Change History +++++++++++++++++++++++ +++++++++++++++++++++++ Change History +++++++++++++++++++++++
2022-06-08 v1.19.76
- Bug Fix: On operation per folder, change of folder must change configuration (JoergSchneider)
2022-06-08 v1.19.75 2022-06-08 v1.19.75
- Bug Fix: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider) - Bug Fix: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider)
- Enhancement: Typo in German (JoergSchneider) - Enhancement: Typo in German (JoergSchneider)

4
README.md
View File

@@ -1,4 +1,4 @@
# FoxBin2Prg v1.19.75 # FoxBin2Prg v1.19.76
**Binary/Text Converting program for Microsoft Visual FoxPro** **Binary/Text Converting program for Microsoft Visual FoxPro**
## Lutz Scheffler ## Lutz Scheffler
@@ -143,4 +143,4 @@ For usage see [documentation](./docs/FoxBin2Prg.md)
## Contribution ## Contribution
See [contribution](./.github/CONTRIBUTING.md) See [contribution](./.github/CONTRIBUTING.md)
Last changed: _2022/06/08_ ![Picture](./docs/pictures/vfpxpoweredby_alternative.gif) Last changed: _2022/06/13_ ![Picture](./docs/pictures/vfpxpoweredby_alternative.gif)

BIN
ThorUpdater/FoxBin2Prg.zip
View File

Binary file not shown.

7
ThorUpdater/FoxBin2PrgVersion.txt
View File

@@ -10,8 +10,8 @@ local;
lcappName = "FoxBin2Prg" lcappName = "FoxBin2Prg"
*Set following two numbers on version *Set following two numbers on version
ldDate = date(2022,06,08) ldDate = date(2022,06,13)
lcmajorVersion = "1.19.75" lcmajorVersion = "1.19.76"
*lnJulian = val(sys(11, m.ldDate)) - val(sys(11, {^2000-01-01})) *lnJulian = val(sys(11, m.ldDate)) - val(sys(11, {^2000-01-01}))
*lcJulian = padl(transform(lnJulian), 4, '0') *lcJulian = padl(transform(lnJulian), 4, '0')
@@ -39,6 +39,9 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
+++++++++++++++++++++++ Change History +++++++++++++++++++++++ +++++++++++++++++++++++ Change History +++++++++++++++++++++++
2022-06-08 v1.19.76
- Bug Fix: On operation per folder, change of folder must change configuration (JoergSchneider)
2022-06-08 v1.19.75 2022-06-08 v1.19.75
- Bug Fix: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider) - Bug Fix: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider)
- Enhancement: Typo in German (JoergSchneider) - Enhancement: Typo in German (JoergSchneider)

5
docs/FoxBin2Prg_Changes.md
View File

@@ -27,8 +27,9 @@ _**Note:** you can click on the version number for downloading this version from
| Rel.Date | Developer | Version | Details | | Rel.Date | Developer | Version | Details |
| - | - | - | - | | - | - | - | - |
| 2022/06/13 | LScheffler | [v1.19.76](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.76) | **Bug Fix**: On operation per folder, change of folder must change configuration (JoergSchneider) |
| 2022/06/08 | LScheffler | [v1.19.75](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.75) | **Bug Fix**: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider) | | 2022/06/08 | LScheffler | [v1.19.75](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.75) | **Bug Fix**: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider) |
| 2022/06/08 | LScheffler | [v1.19.75](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.75) | **Enhancement**: Typo in German (JoergSchneider) | | | | [ | **Enhancement**: Typo in German (JoergSchneider) |
| 2022/05/13 | bjornhoeksel | [v1.19.74](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.74) | **Bug Fix**: Fix menu bars with shortcuts keys like KEY F6, "F6"; are lost. (DanLauer) | | 2022/05/13 | bjornhoeksel | [v1.19.74](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.74) | **Bug Fix**: Fix menu bars with shortcuts keys like KEY F6, "F6"; are lost. (DanLauer) |
| 2022/04/08 | LScheffler | [v1.19.73](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.73) | **Bug Fix**: Problem converting trailing spaces on line end in memo (again) (bjornhoeksel) | | 2022/04/08 | LScheffler | [v1.19.73](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.73) | **Bug Fix**: Problem converting trailing spaces on line end in memo (again) (bjornhoeksel) |
| 2022/04/07 | LScheffler | [v1.19.72](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.72) | **Bug Fix**: Problem converting trailing spaces on line end in memo (bjornhoeksel) | | 2022/04/07 | LScheffler | [v1.19.72](https://github.com/fdbozzo/foxbin2prg/releases/tag/v1.19.72) | **Bug Fix**: Problem converting trailing spaces on line end in memo (bjornhoeksel) |
@@ -418,4 +419,4 @@ _**Note:** you can click on the version number for downloading this version from
This project is part of [VFPX](https://vfpx.github.io/). This project is part of [VFPX](https://vfpx.github.io/).
---- ----
Last changed: _2022/06/08_ ![Picture](./pictures/vfpxpoweredby_alternative.gif) Last changed: _2022/06/13_ ![Picture](./pictures/vfpxpoweredby_alternative.gif)

2
foxbin2prg.cfg.txt
View File

@@ -1,6 +1,6 @@
*################################################################################################################ *################################################################################################################
*FOXBIN2PRG.CFG configuration options: (If no values given, these are the DEFAULTS) *FOXBIN2PRG.CFG configuration options: (If no values given, these are the DEFAULTS)
*Version: v1.19.75 *Version: v1.19.76
***************************************************************************************************************** *****************************************************************************************************************
* Note, configuration files will follow an inheritance. * Note, configuration files will follow an inheritance.

2
foxbin2prg.dbf.cfg.txt
View File

@@ -1,6 +1,6 @@
*################################################################################################################ *################################################################################################################
*-- Individual DBF configuration file (syntax: filename.dbf.cfg) Defaults see FoxBin2prg.cfg *-- Individual DBF configuration file (syntax: filename.dbf.cfg) Defaults see FoxBin2prg.cfg
*Version: v1.19.75 *Version: v1.19.76
***************************************************************************************************************** *****************************************************************************************************************
*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) *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)

BIN
foxbin2prg.exe
View File

Binary file not shown.

2
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "MIT License"
_ProductName = "FOXBIN2PRG" _ProductName = "FOXBIN2PRG"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = "75" _Revision = "76"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "0" _AutoIncrement = "0"
*</DevInfo> *</DevInfo>

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

139
foxbin2prg.prg
View File

@@ -297,6 +297,7 @@
* 13/05/2022 bjornhoeksel v1.19.74 Bug Fix: Fix menu bars with shortcuts keys like KEY F6, "F6"; are lost. (DanLauer) * 13/05/2022 bjornhoeksel v1.19.74 Bug Fix: Fix menu bars with shortcuts keys like KEY F6, "F6"; are lost. (DanLauer)
* 08/06/2022 LScheffler v1.19.75 Enhancement: Typo in German (JoergSchneider) * 08/06/2022 LScheffler v1.19.75 Enhancement: Typo in German (JoergSchneider)
* 08/06/2022 LScheffler v1.19.75 Bug Fix: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider) * 08/06/2022 LScheffler v1.19.75 Bug Fix: Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider)
* 13/06/2022 LScheffler v1.19.76 Bug Fix: On operation per folder, change of folder must change configuration (JoergSchneider)
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES> * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
* *
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
@@ -468,7 +469,7 @@
* 13/05/2022 DanLauer Bug REPORT v1.19.73 Fix menu bars with shortcuts keys like KEY F6, "F6"; are lost. * 13/05/2022 DanLauer Bug REPORT v1.19.73 Fix menu bars with shortcuts keys like KEY F6, "F6"; are lost.
* 08/06/2022 JoergSchneider Bug REPORT v1.19.74 Typo in German (JoergSchneider) * 08/06/2022 JoergSchneider Bug REPORT v1.19.74 Typo in German (JoergSchneider)
* 08/06/2022 JoergSchneider Bug REPORT v1.19.74 Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider) * 08/06/2022 JoergSchneider Bug REPORT v1.19.74 Multiple text2bin and bin2text conversion on MNX causes space grow (JoergSchneider)
* 10/06/2022 JoergSchneider Bug REPORT v1.19.75 On operation per folder, change of folder must change configuration (JoergSchneider)
* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)> * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
* *
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
@@ -984,7 +985,7 @@ Define Class c_foxbin2prg As Session
Protected n_CFG_Actual, l_Main_CFG_Loaded, o_Configuration, l_CFG_CachedAccess Protected n_CFG_Actual, l_Main_CFG_Loaded, o_Configuration, l_CFG_CachedAccess
*-- *--
n_FB2PRG_Version = 1.19 n_FB2PRG_Version = 1.19
c_FB2PRG_Version_Real = '1.19.75' c_FB2PRG_Version_Real = '1.19.76'
*-- *--
c_Language = '' && EN, FR, ES, DE c_Language = '' && EN, FR, ES, DE
c_Language_In = '(auto)' c_Language_In = '(auto)'
@@ -1161,9 +1162,9 @@ Define Class c_foxbin2prg As Session
This.c_Foxbin2prg_ConfigFile = Evl( tcCFG_File, Forceext( This.c_Foxbin2prg_FullPath, 'CFG' ) ) This.c_Foxbin2prg_ConfigFile = Evl( tcCFG_File, Forceext( This.c_Foxbin2prg_FullPath, 'CFG' ) )
This.c_BackgroundImage = This.get_AbsolutePath( Addbs(Justpath(This.c_Foxbin2prg_FullPath)) + 'foxbin2prg.jpg' ) This.c_BackgroundImage = This.get_AbsolutePath( Addbs(Justpath(This.c_Foxbin2prg_FullPath)) + 'foxbin2prg.jpg' )
lc_Foxbin2prg_EXE = Forceext( This.c_Foxbin2prg_FullPath, 'EXE' ) lc_Foxbin2prg_EXE = Forceext( This.c_Foxbin2prg_FullPath, 'EXE' )
*!* Changed by: SF 30.8.2021 *!* Changed by: Lutz Scheffler 30.8.2021
*!* <pdm> *!* <pdm>
*!* <change date="{^2021-08-30,07:48:00}">Changed by: SF<br /> *!* <change date="{^2021-08-30,07:48:00}">Changed by: Lutz Scheffler<br />
*!* https://github.com/fdbozzo/foxbin2prg/issues/69 / Incorrect version showing for v1.19.65 *!* https://github.com/fdbozzo/foxbin2prg/issues/69 / Incorrect version showing for v1.19.65
*!* Set version number to This.c_FB2PRG_Version_Real and ignore Exe *!* Set version number to This.c_FB2PRG_Version_Real and ignore Exe
*!* </change> *!* </change>
@@ -1172,7 +1173,7 @@ Define Class c_foxbin2prg As Session
* This.c_FB2PRG_EXE_Version = 'v' + Iif( Agetfileversion( laValues, lc_Foxbin2prg_EXE ) = 0, Transform(This.c_FB2PRG_Version_Real), laValues(11) ) * This.c_FB2PRG_EXE_Version = 'v' + Iif( Agetfileversion( laValues, lc_Foxbin2prg_EXE ) = 0, Transform(This.c_FB2PRG_Version_Real), laValues(11) )
This.c_FB2PRG_EXE_Version = 'v' + Transform(This.c_FB2PRG_Version_Real) This.c_FB2PRG_EXE_Version = 'v' + Transform(This.c_FB2PRG_Version_Real)
*!* /Changed by SF 30.8.2021 *!* /Changed by Lutz Scheffler 30.8.2021
AddProperty(_Screen, 'c_FB2PRG_EXE_Version', This.c_FB2PRG_EXE_Version) AddProperty(_Screen, 'c_FB2PRG_EXE_Version', This.c_FB2PRG_EXE_Version)
AddProperty(_Screen, 'ExitCode', 0) AddProperty(_Screen, 'ExitCode', 0)
@@ -3216,12 +3217,33 @@ Define Class c_foxbin2prg As Session
loDBF_CFG = Null loDBF_CFG = Null
lcExt = Upper(Justext('.' + tcFileName)) lcExt = Upper(Justext('.' + tcFileName))
If '\' $ tcFileName And lcExt == 'DBF' Then *!* Changed by: Lutz Scheffler 13.6.2022
lcDir = Justpath(tcFileName) *!* <pdm>
.get_DBF_Configuration(tcFileName, @loDBF_CFG) *!* <change date="{^2022-06-13,20:17:00}">Changed by: Lutz Scheffler<br />
Else *!* https://github.com/fdbozzo/foxbin2prg/issues/56 / Configfile is ignored if foldername has "." v1.19.74
lcDir = tcDir *!* On operation per folder, change of folder must change configuration
Endif *!* this method does not recieve tcDir in such case
*!* </change>
*!* </pdm>
*!* If '\' $ tcFileName And lcExt == 'DBF' Then
*!* lcDir = Justpath(tcFileName)
*!* .get_DBF_Configuration(tcFileName, @loDBF_CFG)
*!* Else
*!* lcDir = tcDir
*!* ENDIF
Do Case
Case '\' $ tcFileName And lcExt == 'DBF'
lcDir = Justpath(tcFileName)
.get_DBF_Configuration(tcFileName, @loDBF_CFG)
Case Not Empty(tcDir)
lcDir = tcDir
Case Vartype( tcFileName ) = "C"
lcDir = Justpath( tcFileName )
Endcase
*!* /Changed by: Lutz Scheffler 13.6.2022
If Not Empty(lcDir) If Not Empty(lcDir)
.evaluateConfiguration( '', '', '', '', '', '', '', '', lcDir, 'D' ) .evaluateConfiguration( '', '', '', '', '', '', '', '', lcDir, 'D' )
@@ -3258,13 +3280,34 @@ Define Class c_foxbin2prg As Session
loDBF_CFG = Null loDBF_CFG = Null
lcExt = Upper(Justext('.' + tcFileName)) lcExt = Upper(Justext('.' + tcFileName))
If '\' $ tcFileName And lcExt == .c_DB2 Then *!* Changed by: Lutz Scheffler 13.6.2022
lcDir = Justpath(tcFileName) *!* <pdm>
.get_DBF_Configuration(tcFileName, @loDBF_CFG) *!* <change date="{^2022-06-13,20:17:00}">Changed by: Lutz Scheffler<br />
Else *!* https://github.com/fdbozzo/foxbin2prg/issues/56 / Configfile is ignored if foldername has "." v1.19.74
lcDir = tcDir *!* On operation per folder, change of folder must change configuration
Endif *!* this method does not recieve tcDir in such case
*!* </change>
*!* </pdm>
*!* If '\' $ tcFileName And lcExt == .c_DB2 Then
*!* lcDir = Justpath(tcFileName)
*!* .get_DBF_Configuration(tcFileName, @loDBF_CFG)
*!* Else
*!* lcDir = tcDir
*!* Endif
Do Case
Case '\' $ tcFileName And lcExt == .c_DB2
lcDir = Justpath(tcFileName)
.get_DBF_Configuration(tcFileName, @loDBF_CFG)
Case Not Empty(tcDir)
lcDir = tcDir
Case Vartype( tcFileName ) = "C"
lcDir = Justpath( tcFileName )
Endcase
*!* /Changed by: Lutz Scheffler 13.6.2022
If Not Empty(lcDir) If Not Empty(lcDir)
.evaluateConfiguration( '', '', '', '', '', '', '', '', lcDir, 'D' ) .evaluateConfiguration( '', '', '', '', '', '', '', '', lcDir, 'D' )
Endif Endif
@@ -3904,7 +3947,8 @@ Define Class c_foxbin2prg As Session
Endcase Endcase
Endif Endif
*sf 2022 06 13
*SET STEP ON
*-- Evaluación de FileSpec de entrada *-- Evaluación de FileSpec de entrada
Do Case Do Case
Case Atc('-BIN2PRG', ('-' + tcType)) = 0 And Atc('-PRG2BIN', ('-' + tcType)) = 0 ; Case Atc('-BIN2PRG', ('-' + tcType)) = 0 And Atc('-PRG2BIN', ('-' + tcType)) = 0 ;
@@ -11606,9 +11650,9 @@ Define Class c_conversor_prg_a_vcx As c_conversor_prg_a_bin
loClase._UniqueID = toFoxBin2Prg.unique_ID() loClase._UniqueID = toFoxBin2Prg.unique_ID()
Endif Endif
*!* Changed by: SF 07.12.2021 *!* Changed by: Lutz Scheffler 07.12.2021
*!* <pdm> *!* <pdm>
*!* <change date="{^2021-12-07,09:14:00}">Changed by: SF<br /> *!* <change date="{^2021-12-07,09:14:00}">Changed by: Lutz Scheffler<br />
*!* https://github.com/fdbozzo/foxbin2prg/issues/72 / double classes in VCX *!* https://github.com/fdbozzo/foxbin2prg/issues/72 / double classes in VCX
*!* The old code will write a class whether or not the class is already in the classlib *!* The old code will write a class whether or not the class is already in the classlib
*!* Problem comes if a class is defined double by inconsistent UseClassPerFile, *!* Problem comes if a class is defined double by inconsistent UseClassPerFile,
@@ -11617,9 +11661,9 @@ Define Class c_conversor_prg_a_vcx As c_conversor_prg_a_bin
*!* </pdm> *!* </pdm>
Select TABLABIN Select TABLABIN
*!* Changed by: SF 23.02.2022 *!* Changed by: Lutz Scheffler 23.02.2022
*!* <pdm> *!* <pdm>
*!* <change date="{^2022-02-23,19:44:00}">Changed by: SF<br /> *!* <change date="{^2022-02-23,19:44:00}">Changed by: Lutz Scheffler<br />
*!* https://github.com/fdbozzo/foxbin2prg/issues/77 / If a classname is used as objectname too, an error is reported *!* https://github.com/fdbozzo/foxbin2prg/issues/77 / If a classname is used as objectname too, an error is reported
*!* A class is Objname with empty parent field, while an object has parent filled. *!* A class is Objname with empty parent field, while an object has parent filled.
*!* </change> *!* </change>
@@ -11631,7 +11675,7 @@ Define Class c_conversor_prg_a_vcx As c_conversor_prg_a_bin
FOR OBJNAME==loClase._ObjName; FOR OBJNAME==loClase._ObjName;
AND Empty(Parent) AND Empty(Parent)
*!* /Changed by SF 07.12.2021 *!* /Changed by Lutz Scheffler 07.12.2021
If Found() Then If Found() Then
*SF 20211207 *SF 20211207
*SET STEP ON *SET STEP ON
@@ -11640,7 +11684,7 @@ Define Class c_conversor_prg_a_vcx As c_conversor_prg_a_bin
loLang.C_ClassTwice_Class_LOC + loClase._ObjName+0h0D0A loLang.C_ClassTwice_Class_LOC + loClase._ObjName+0h0D0A
Endif &&FOUND() Endif &&FOUND()
*!* /Changed by SF 07.12.2021 *!* /Changed by Lutz Scheffler 07.12.2021
*-- Inserto la clase *-- Inserto la clase
Insert Into TABLABIN ; Insert Into TABLABIN ;
@@ -15281,9 +15325,9 @@ Define Class c_conversor_bin_a_prg As c_conversor_base
lcSetDeleted = Set("Deleted") lcSetDeleted = Set("Deleted")
Set Deleted Off Set Deleted Off
*!* Changed by: SF 25.2.2022 *!* Changed by: Lutz Scheffler 25.2.2022
*!* <pdm> *!* <pdm>
*!* <change date="{^2022-02-25,15:57:00}">Changed by: SF<br /> *!* <change date="{^2022-02-25,15:57:00}">Changed by: Lutz Scheffler<br />
*!* https://github.com/fdbozzo/foxbin2prg/issues/78 / After vc2 convert back to vcx class is corrupted no errors reported *!* https://github.com/fdbozzo/foxbin2prg/issues/78 / After vc2 convert back to vcx class is corrupted no errors reported
*!* Better named: Missing class when building text file from corrupted VCX *!* Better named: Missing class when building text file from corrupted VCX
*!* If the VCX is corrupted and holds empty records, the original coed will delete the next class. *!* If the VCX is corrupted and holds empty records, the original coed will delete the next class.
@@ -15309,7 +15353,7 @@ Define Class c_conversor_bin_a_prg As c_conversor_base
Skip -1 Skip -1
Endif Endif
Endscan Endscan
*!* /Changed by: SF 25.2.2022 *!* /Changed by: Lutz Scheffler 25.2.2022
Set Deleted &lcSetDeleted. Set Deleted &lcSetDeleted.
Return Return
@@ -18770,7 +18814,8 @@ Define Class c_conversor_dbc_a_prg As c_conversor_bin_a_prg
Local toDatabase As CL_DBC Of 'FOXBIN2PRG.PRG' Local toDatabase As CL_DBC Of 'FOXBIN2PRG.PRG'
Local toFoxBin2Prg As c_foxbin2prg Of 'FOXBIN2PRG.PRG' Local toFoxBin2Prg As c_foxbin2prg Of 'FOXBIN2PRG.PRG'
#Endif #Endif
*SF 20220613
*SET STEP ON
Try Try
With This As c_conversor_dbc_a_prg Of 'FOXBIN2PRG.PRG' With This As c_conversor_dbc_a_prg Of 'FOXBIN2PRG.PRG'
Local lnCodError, laDatabases(1), lnDatabases_Count, lcEventsFile, lcExternalHeader, lcCodigo ; Local lnCodError, laDatabases(1), lnDatabases_Count, lcEventsFile, lcExternalHeader, lcCodigo ;
@@ -25913,9 +25958,9 @@ Define Class CL_DBF_INDEXES As CL_COL_BASE
toFoxBin2Prg.writeLog( loLang.C_INDEX2TXT_PROCESSING_LOC ) toFoxBin2Prg.writeLog( loLang.C_INDEX2TXT_PROCESSING_LOC )
*!* Changed by: SF 18.3.2021 *!* Changed by: Lutz Scheffler 18.3.2021
*!* <pdm> *!* <pdm>
*!* <change date="{^2021-03-18,10:34:00}">Changed by: SF<br /> *!* <change date="{^2021-03-18,10:34:00}">Changed by: Lutz Scheffler<br />
*!* Standalone index <em>tc_InputFile.IDX</em> will be included if <em>DBF_Conversion_Order</em> is activated *!* Standalone index <em>tc_InputFile.IDX</em> will be included if <em>DBF_Conversion_Order</em> is activated
*!* use only tags of structural compound index file *!* use only tags of structural compound index file
*!* </change> *!* </change>
@@ -25937,7 +25982,7 @@ Define Class CL_DBF_INDEXES As CL_COL_BASE
* tnTagInfo_Count = Ataginfo( taTagInfo ) * tnTagInfo_Count = Ataginfo( taTagInfo )
tnTagInfo_Count = Ataginfo( taTagInfo, m.lcIndexFile ) tnTagInfo_Count = Ataginfo( taTagInfo, m.lcIndexFile )
*!* /Changed by: SF 18.3.2021 *!* /Changed by: Lutz Scheffler 18.3.2021
Asort( m.taTagInfo, 1, -1, 0, 1 ) Asort( m.taTagInfo, 1, -1, 0, 1 )
loIndex = Createobject("CL_DBF_INDEX") loIndex = Createobject("CL_DBF_INDEX")
@@ -26709,9 +26754,9 @@ Define Class CL_DBF_RECORD As CL_CUS_BASE
*-- SF: might, not must, see XMLTOCURSOR, flag 4096 *-- SF: might, not must, see XMLTOCURSOR, flag 4096
luValue = Strconv(luValue,13) luValue = Strconv(luValue,13)
Else Else
*!* Changed by: SF 07.4.2022 *!* Changed by: Lutz Scheffler 07.4.2022
*!* <pdm> *!* <pdm>
*!* <change date="{^2022-04-07,15:11:00}">Changed by: SF<br /> *!* <change date="{^2022-04-07,15:11:00}">Changed by: Lutz Scheffler<br />
*!* https://github.com/fdbozzo/foxbin2prg/issues/81 / Trailing spaces are lost for memo fields converting dbf with including data. *!* https://github.com/fdbozzo/foxbin2prg/issues/81 / Trailing spaces are lost for memo fields converting dbf with including data.
*!* RTRIM removed trsiling spaces from memo *!* RTRIM removed trsiling spaces from memo
*!* </change> *!* </change>
@@ -26721,7 +26766,7 @@ Define Class CL_DBF_RECORD As CL_CUS_BASE
Endcase Endcase
*!* Changed by: SF 07.4.2022 *!* Changed by: Lutz Scheffler 07.4.2022
*!* TEXT .. ENDTEXT removes trailing spaces from lines inserted with TEXXTMERGE *!* TEXT .. ENDTEXT removes trailing spaces from lines inserted with TEXXTMERGE
*!* Char etc are processed special *!* Char etc are processed special
If Vartype(luValue) = 'C' If Vartype(luValue) = 'C'
@@ -26731,7 +26776,7 @@ Define Class CL_DBF_RECORD As CL_CUS_BASE
<<>> <<'<' + lcField + '>'>><<luValue>><<'</' + lcField + '>'>> <<>> <<'<' + lcField + '>'>><<luValue>><<'</' + lcField + '>'>>
ENDTEXT ENDTEXT
Endif Endif
*!* /Changed by SF 07.4.2022 *!* /Changed by Lutz Scheffler 07.4.2022
Endif Endif
Next Next
@@ -28771,9 +28816,9 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
lnLineEnd = 0 lnLineEnd = 0
Endif Endif
*!* Changed by: SF 8.6.2022 *!* Changed by: Lutz Scheffler 8.6.2022
*!* <pdm> *!* <pdm>
*!* <change date="{^2022-06-08,16:16:00}">Changed by: SF<br /> *!* <change date="{^2022-06-08,16:16:00}">Changed by: Lutz Scheffler<br />
*!* https://github.com/fdbozzo/foxbin2prg/issues/84 / Multiple text2bin and bin2text conversion on MNX causes space grow *!* https://github.com/fdbozzo/foxbin2prg/issues/84 / Multiple text2bin and bin2text conversion on MNX causes space grow
*!* Bin2Text is formated like "xxx ;", trailing space must be removed, TRIM() added for SKIP FOR and PICTRES *!* Bin2Text is formated like "xxx ;", trailing space must be removed, TRIM() added for SKIP FOR and PICTRES
*!* </change> *!* </change>
@@ -28800,7 +28845,7 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
Case Left( tcLine, 9 ) == 'SKIP FOR ' Case Left( tcLine, 9 ) == 'SKIP FOR '
loReg.SkipFor = Alltrim( Strextract( tcLine, 'SKIP FOR ') ) loReg.SkipFor = Alltrim( Strextract( tcLine, 'SKIP FOR ') )
IF lnLineEnd > 0 IF lnLineEnd > 0
*!* Changed by: SF 8.6.2022 *!* Changed by: Lutz Scheffler 8.6.2022
loReg.SkipFor = Trim( Substr( loReg.SkipFor, 1, ATC(';', loReg.SkipFor, lnLineEnd)-1) ) loReg.SkipFor = Trim( Substr( loReg.SkipFor, 1, ATC(';', loReg.SkipFor, lnLineEnd)-1) )
ENDIF ENDIF
@@ -28815,7 +28860,7 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
loReg.RESNAME = Alltrim( Strextract( tcLine, 'PICTRES ') ) loReg.RESNAME = Alltrim( Strextract( tcLine, 'PICTRES ') )
IF lnLineEnd > 0 IF lnLineEnd > 0
*!* Changed by: SF 8.6.2022 *!* Changed by: Lutz Scheffler 8.6.2022
loReg.RESNAME = Trim( Substr( loReg.RESNAME, 1, ATC(';', loReg.RESNAME, lnLineEnd)-1) ) loReg.RESNAME = Trim( Substr( loReg.RESNAME, 1, ATC(';', loReg.RESNAME, lnLineEnd)-1) )
ELSE ELSE
@@ -28825,7 +28870,7 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
Otherwise Otherwise
* Nada * Nada
ENDCASE ENDCASE
*!* /Changed by: SF 8.6.2022 *!* /Changed by: Lutz Scheffler 8.6.2022
*!* /Changd By: BH 30.3.2022 *!* /Changd By: BH 30.3.2022
@@ -28993,7 +29038,7 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
lcPadName = Substr( m.lcPadName, 2, Len( m.lcPadName ) - 2 ) lcPadName = Substr( m.lcPadName, 2, Len( m.lcPadName ) - 2 )
loReg.Name = m.lcPadName loReg.Name = m.lcPadName
*!* Changed By: SF 18.1.2022 *!* Changed By: Lutz Scheffler 18.1.2022
*!* <pdm> *!* <pdm>
*!* <change date="{^2022-01-18,19:34:00}">Changed Bby SF<br /> *!* <change date="{^2022-01-18,19:34:00}">Changed Bby SF<br />
*!* <a href"https://github.com/fdbozzo/foxbin2prg/issues/74">Issue 74</a>, by Jimrnelson *!* <a href"https://github.com/fdbozzo/foxbin2prg/issues/74">Issue 74</a>, by Jimrnelson
@@ -29268,9 +29313,9 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
Store Null To loBarPop Store Null To loBarPop
lcTab = Replicate(Chr(9),tnNivel) lcTab = Replicate(Chr(9),tnNivel)
lcText = '' lcText = ''
*!* Changed by SF 22.4.2021 *!* Changed by Lutz Scheffler 22.4.2021
*!* <pdm> *!* <pdm>
*!* <change date="{^2021-04-22,06:24:00}">Changed by SF<br /> *!* <change date="{^2021-04-22,06:24:00}">Changed by Lutz Scheffler<br />
*!* If the BAR real name starts (legaly) with a digit it could not be recreated *!* If the BAR real name starts (legaly) with a digit it could not be recreated
*!* added code to add additional information to recreate the name *!* added code to add additional information to recreate the name
*!* name will wrap into " , so we got DEFINE BAR "Number" OF *!* name will wrap into " , so we got DEFINE BAR "Number" OF
@@ -29355,7 +29400,7 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
Release lcTab, loBarPop Release lcTab, loBarPop
Endtry Endtry
*!* /Changed by SF 22.4.2021 *!* /Changed by Lutz Scheffler 22.4.2021
Return lcText Return lcText
Endproc Endproc
@@ -29370,9 +29415,9 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
* toHeader (v! IN ) Objeto Registro de cabecera del menu * toHeader (v! IN ) Objeto Registro de cabecera del menu
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
Lparameters toReg, toBarPop, tnNivel, toHeader Lparameters toReg, toBarPop, tnNivel, toHeader
*!* Changed by SF 21.4.2021 *!* Changed by Lutz Scheffler 21.4.2021
*!* <pdm> *!* <pdm>
*!* <change date="{^2021-04-21,22:33:00}">Changed by SF<br /> *!* <change date="{^2021-04-21,22:33:00}">Changed by Lutz Scheffler<br />
*!* If the PAD real name starts (leagly) with "_" it could not be recreated *!* If the PAD real name starts (leagly) with "_" it could not be recreated
*!* added code to add additional information to recreate the name *!* added code to add additional information to recreate the name
*!* name will simple wrapped into ", so we got DEFINE PAD "_Name" OF *!* name will simple wrapped into ", so we got DEFINE PAD "_Name" OF
@@ -29392,7 +29437,7 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
toReg.Name = Evl(toReg.Name, '_' + Transform( Int( Val( toReg.ItemNum ) ), '@L #########') ) toReg.Name = Evl(toReg.Name, '_' + Transform( Int( Val( toReg.ItemNum ) ), '@L #########') )
lcName2 = Alltrim(toReg.Name) lcName2 = Alltrim(toReg.Name)
Endif &&!EMPTY(toReg.Name) AND toReg.Name = '_' Endif &&!EMPTY(toReg.Name) AND toReg.Name = '_'
*!* /Changed by SF 21.4.2021 *!* /Changed by Lutz Scheffler 21.4.2021
lcText = '' lcText = ''