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

2016-06-08 20:56:16 +02:00
parent a171ffdae7
commit 2ac24da47d
1 changed files with 2 additions and 1 deletions
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -23971,7 +23971,8 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
 									luValue		= STRCONV(lcValue,14)
 								ELSE
 									* 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
 											luValue = .Decode(lcValue, .T.)
 											EXIT