- Reemplazadas las funciones de VFP9 de bajo nivel (FRead, FWrite) con el objeto del sistema Scripting.FileSystemObject para evitar el límite de 8-16KB en los campos memo

- Actualización de los Tests para el DBF fb2p_free
This commit is contained in:
fdbozzo
2016-05-29 16:28:19 +02:00
parent 4ee81ae28e
commit 8cc6590a5a
6 changed files with 62 additions and 33 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -286,9 +286,16 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
this.assertequals( lnFields_OUT, lnFields_IN, '[Cantidad de campos IN y OUT]' )
FOR I = 1 TO lnFields_IN
FOR X = 1 TO 18
THIS.assertequals( laCampos_IN(I,X), laCampos_OUT(I,X), '[Comparando estructura del campo ' + laCampos_IN(I,1) + ']' )
ENDFOR
IF laCampos_IN(I,18) > 0 && Autoinc_Step
*-- Para los campos AutoInc solo se comparan los primeros 4 datos de estructura
FOR X = 1 TO 4
THIS.assertequals( laCampos_IN(I,X), laCampos_OUT(I,X), '[Comparando estructura del campo ' + laCampos_IN(I,1) + ']' )
ENDFOR
ELSE
FOR X = 1 TO 18
THIS.assertequals( laCampos_IN(I,X), laCampos_OUT(I,X), '[Comparando estructura del campo ' + laCampos_IN(I,1) + ']' )
ENDFOR
ENDIF
ENDFOR
CATCH TO loEx