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

- Fix: Cuando hay un campo memo vacío, al regenerar la tabla se queda embuclado porque no encuentra el CDATA

Browse Source
This commit is contained in:
fdbozzo
2016-06-08 20:56:16 +02:00
parent a171ffdae7
commit 2ac24da47d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
foxbin2prg.prg
View File

@@ -23971,7 +23971,8 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
luValue = STRCONV(lcValue,14) luValue = STRCONV(lcValue,14)
ELSE ELSE
* Si el memo es multi-l<>nea, leer hasta encontrar el final ']]>' del CDATA. * Si el memo es multi-l<>nea, leer hasta encontrar el final ']]>' del CDATA.
DO WHILE .T. luValue = ''
DO WHILE NOT EMPTY(lcValue)
IF ']]>' $ tcLine THEN IF ']]>' $ tcLine THEN
luValue = .Decode(lcValue, .T.) luValue = .Decode(lcValue, .T.)
EXIT EXIT