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

- Quitado el forzado del modo Legacy

Browse Source 
- Borrado del DCX/DCT cuando se crea un nuevo DBC (el DCX [memo] existente acumulaba los memos anteriores)
This commit is contained in:
fdbozzo
2015-03-16 00:16:23 +01:00
parent 36d8945f40
commit 1b0821088a
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
foxbin2prg.prg
View File

@@ -16324,6 +16324,8 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
lcStoredProcedures = ._StoredProcedures lcStoredProcedures = ._StoredProcedures
ERASE (tc_OutputFile) ERASE (tc_OutputFile)
ERASE (FORCEEXT(tc_OutputFile,'DCX'))
ERASE (FORCEEXT(tc_OutputFile,'DCT'))
CREATE DATABASE (tc_OutputFile) CREATE DATABASE (tc_OutputFile)
CLOSE DATABASES CLOSE DATABASES
OPEN DATABASE (tc_OutputFile) SHARED OPEN DATABASE (tc_OutputFile) SHARED
@@ -17198,7 +17200,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
WITH THIS AS CL_DBC_FIELDS_DB OF 'FOXBIN2PRG.PRG' 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 FOR I = I + 1 TO tnCodeLines
.set_Line( @tcLine, @taCodeLines, I ) .set_Line( @tcLine, @taCodeLines, I )
@@ -18344,7 +18346,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
WITH THIS AS CL_DBC_FIELDS_VW OF 'FOXBIN2PRG.PRG' 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 FOR I = I + 1 TO tnCodeLines
.set_Line( @tcLine, @taCodeLines, I ) .set_Line( @tcLine, @taCodeLines, I )