Continuar la implementación de la importación de datos desde los DB2 sugerida por Walter Nichols

2016-05-24 20:22:05 +02:00
parent 31b7bd7ce7 0f4061157a
commit 86cab6ab41
4 changed files with 5 additions and 4 deletions
--- a/TESTS/DATOS_READONLY/fb2p_free.cdx
+++ b/TESTS/DATOS_READONLY/fb2p_free.cdx
--- a/TESTS/DATOS_READONLY/fb2p_free.dbf
+++ b/TESTS/DATOS_READONLY/fb2p_free.dbf
--- a/TESTS/DATOS_READONLY/fb2p_free.fpt
+++ b/TESTS/DATOS_READONLY/fb2p_free.fpt
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -183,6 +183,7 @@
 * 25/11/2015	FDBOZZO		v1.19.46	Mejora dbf: Nuevo par<61>metro ExcludeDBFAutoincNextval para evitar diferencias por este dato (edyshor)
 * 04/02/2016	FDBOZZO		v1.19.46	Bug Fix: Cuando se procesa un archivo en el directorio raiz, se genera un error 2062 (Aur<75>lien Dellieux)
 * 10/02/2016	FDBOZZO		v1.19.46	Bug Fix: Cuando se indica como nombre de archivo "*" y como tipo "*", se regeneran autom<6F>ticamente todos los archivos binarios desde los archivos de texto (Alejandro Sosa)
+* 29/07/2015	FDBOZZO		v1.19.46	Mejora DBF-Data: Permitir exportar e importar datos de los DBF (Walter Nicholls)
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -23645,10 +23646,10 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
 					DO CASE
 					CASE lcFieldType == 'G'
 						luValue		= 'GENERAL FIELD NOT SUPPORTED'
-						*CASE lcFieldType == 'W'
-						*	luValue		= 'BLOB FIELD NOT SUPPORTED'
-						*CASE lcFieldType == 'Q'
-						*	luValue		= 'VARBINARY FIELD NOT SUPPORTED'
+					CASE lcFieldType == 'W'
+						luValue		= 'BLOB FIELD NOT SUPPORTED'
+					CASE lcFieldType == 'Q'
+						luValue		= 'VARBINARY FIELD NOT SUPPORTED'
 					OTHERWISE
 						luValue		= EVALUATE(lcField)
 					ENDCASE