From 1b0821088a36b0220c9035f2aae9e6d0c840714e Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Mon, 16 Mar 2015 00:16:23 +0100
Subject: [PATCH] - Quitado el forzado del modo Legacy - Borrado del DCX/DCT
 cuando se crea un nuevo DBC (el DCX [memo] existente acumulaba los memos
 anteriores)

---
 foxbin2prg.prg | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 554adaf..703c73b 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -16324,6 +16324,8 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
 				lcStoredProcedures	= ._StoredProcedures
 
 				ERASE (tc_OutputFile)
+				ERASE (FORCEEXT(tc_OutputFile,'DCX'))
+				ERASE (FORCEEXT(tc_OutputFile,'DCT'))
 				CREATE DATABASE (tc_OutputFile)
 				CLOSE DATABASES
 				OPEN DATABASE (tc_OutputFile) SHARED
@@ -17198,7 +17200,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
 				llBloqueEncontrado	= .T.
 
 				WITH THIS AS CL_DBC_FIELDS_DB OF 'FOXBIN2PRG.PRG'
-					.n_Campos = 0
+					*.n_Campos = 0	&& Para forzar modo LEGACY
 					FOR I = I + 1 TO tnCodeLines
 						.set_Line( @tcLine, @taCodeLines, I )
 
@@ -18344,7 +18346,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
 				llBloqueEncontrado	= .T.
 
 				WITH THIS AS CL_DBC_FIELDS_VW OF 'FOXBIN2PRG.PRG'
-					.n_Campos = 0
+					*.n_Campos = 0	&& Para forzar modo LEGACY
 					FOR I = I + 1 TO tnCodeLines
 						.set_Line( @tcLine, @taCodeLines, I )