From 2ac24da47d6bebc1e8a4ef54262295d6c6828714 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Wed, 8 Jun 2016 20:56:16 +0200
Subject: [PATCH] =?UTF-8?q?-=20Fix:=20Cuando=20hay=20un=20campo=20memo=20v?=
 =?UTF-8?q?ac=C3=ADo,=20al=20regenerar=20la=20tabla=20se=20queda=20embucla?=
 =?UTF-8?q?do=20porque=20no=20encuentra=20el=20CDATA?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 98fe34d..04e53c1 100644
--- 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