romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Agregado más feedback al importar/exportar registros de DBF

Browse Source
This commit is contained in:
fdbozzo
2016-06-08 23:38:18 +02:00
parent 2f2e23066c
commit 97e41a90b1
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

20
foxbin2prg.prg
View File

@@ -12091,7 +12091,7 @@ DEFINE CLASS c_conversor_prg_a_dbf AS c_conversor_prg_a_bin
IF llImportData AND lnCodeLines > 1 AND toTable._I > 1 THEN
*-- Identifico los registros de la tabla y los agrego
I = toTable._I - 1
toTable.analyzeCodeBlock( C_TABLE_I, @laCodeLines, @I, lnCodeLines )
toTable.analyzeCodeBlock( C_TABLE_I, @laCodeLines, @I, lnCodeLines, @toFoxBin2Prg )
ENDIF
IF NOT EMPTY(lcAlterTable)
@@ -22958,8 +22958,9 @@ DEFINE CLASS CL_DBF_TABLE AS CL_CUS_BASE
* taCodeLines (!@ IN ) Array de l<>neas del programa analizado
* I (!@ IN/OUT) N<>mero de l<>nea en an<61>lisis
* tnCodeLines (!@ IN ) Cantidad de l<>neas del programa analizado
* toFoxBin2Prg (@! IN ) Referencia de toFoxBin2Prg
*---------------------------------------------------------------------------------------------------
LPARAMETERS tcLine, taCodeLines, I, tnCodeLines
LPARAMETERS tcLine, taCodeLines, I, tnCodeLines, toFoxBin2Prg
TRY
LOCAL llBloqueEncontrado, lcPropName, lcValue, llFieldsEvaluated, llIndexesEvaluated ;
@@ -23005,7 +23006,7 @@ DEFINE CLASS CL_DBF_TABLE AS CL_CUS_BASE
ENDIF
loRecords = ._Records
loRecords.analyzeCodeBlock( @tcLine, @taCodeLines, @I, tnCodeLines, ._Fields )
loRecords.analyzeCodeBlock( @tcLine, @taCodeLines, @I, tnCodeLines, ._Fields, @toFoxBin2Prg )
OTHERWISE && Otro valor
*-- Estructura a reconocer:
@@ -23747,11 +23748,13 @@ DEFINE CLASS CL_DBF_RECORDS AS CL_COL_BASE
* I (@! IN/OUT) N<>mero de l<>nea en an<61>lisis
* tnCodeLines (@! IN ) Cantidad de l<>neas del programa analizado
* toFields (@! IN ) Estructura de los campos
* toFoxBin2Prg (@! IN ) Referencia de toFoxBin2Prg
*---------------------------------------------------------------------------------------------------
LPARAMETERS tcLine, taCodeLines, I, tnCodeLines, toFields
LPARAMETERS tcLine, taCodeLines, I, tnCodeLines, toFields, toFoxBin2Prg
#IF .F.
LOCAL toFields AS CL_DBF_FIELDS OF 'FOXBIN2PRG.PRG'
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
#ENDIF
TRY
@@ -23784,6 +23787,12 @@ DEFINE CLASS CL_DBF_RECORDS AS CL_COL_BASE
APPEND BLANK
loRecord.analyzeCodeBlock( @tcLine, @taCodeLines, @I, tnCodeLines, @toFields )
IF MOD(I,1000) = 0 THEN
toFoxBin2Prg.updateProgressbar( 'Importing DBF Data... ' + TRANSFORM(I) + '/' + TRANSFORM(tnCodeLines) + '', 1+(I/tnCodeLines), 3, 2 )
DOEVENTS
*FFLUSH( toFoxBin2Prg.n_FileHandle, .T. )
ENDIF
OTHERWISE && Otro valor
*-- No hay otros valores
ENDCASE
@@ -23863,7 +23872,8 @@ DEFINE CLASS CL_DBF_RECORDS AS CL_COL_BASE
*FWRITE( toFoxBin2Prg.n_FileHandle, lcText )
loTextStream.WriteLine( lcText ) && Replace VFP low-level file funcs.because the 8-16KB limit.
IF MOD(I,100) = 0 OR LEN(lcText) > 8*1024 THEN
toFoxBin2Prg.updateProgressbar( 'Exporting DBF Data...', 1+(I/lnReccount), 3, 2 )
toFoxBin2Prg.updateProgressbar( 'Exporting DBF Data... ' + TRANSFORM(I) + '/' + TRANSFORM(lnReccount) + '', 1+(I/lnReccount), 3, 2 )
DOEVENTS
*FFLUSH( toFoxBin2Prg.n_FileHandle, .T. )
ENDIF
ENDSCAN