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

BugFix: Converting PRG -> DBF, .NULL. values

Browse Source 
If a field holds a .NULL. value, the field is not set to .NULL. on recreation
This commit is contained in:
Lutz
2021-02-14 21:36:01 +01:00
parent d5ad215e67
commit 637bc3b0eb
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
foxbin2prg.prg
View File

@@ -228,6 +228,7 @@
* 14/02/21 Lutz Scheffler conversion dbf -> prg, error if only test mode (toFoxBin2Prg.l_ProcessFiles is false) * 14/02/21 Lutz Scheffler conversion dbf -> prg, error if only test mode (toFoxBin2Prg.l_ProcessFiles is false)
* minor translations * minor translations
* 14/02/21 Lutz Scheffler conversion prg -> dbf, fields with .NULL. value are incorectly recreated
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES> * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
* *
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
@@ -25128,8 +25129,20 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
lcFieldType = loField._Type lcFieldType = loField._Type
llNoCPTran = CAST( loField._NoCPTran as Logical) llNoCPTran = CAST( loField._NoCPTran as Logical)
*!* Changed by: Lutz Scheffler 14.2.2021
*!* change date="{^2021-02-14,20:35:00}"
* Does not recreate .NULL. Field values
* CAST(.. does not tronsform ".NULL." to .NULL.
* so we test field for NULL flag and is cValue is ".NULL.", we use .NULL.
llNull = CAST( loField._Null as Logical)
DO CASE DO CASE
CASE m.llNull AND UPPER(m.lcValue)=='.NULL.' && .NULL.
luValue = .NULL.
*!* /Changed by: Lutz Scheffler 14.2.2021
CASE lcFieldType == 'L' && Logical (Boolean) CASE lcFieldType == 'L' && Logical (Boolean)
luValue = CAST(lcValue as Logical) luValue = CAST(lcValue as Logical)