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

Changeset: 488 fdbozzo - 13/11/2014 23:37:21:

Browse Source 
- Arreglo de defectos introducidos
This commit is contained in:
fdbozzo
2014-11-13 23:38:07 +01:00
parent e9c65e4fcc 0564007807
commit a0a904ca28
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
foxbin2prg.prg
View File

@@ -1190,7 +1190,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF ENDIF
FINALLY FINALLY
RELEASE toEx, tlRelanzarError, tcBakFile_1, tcBakFile_2, tcBakFile_3 ; RELEASE toEx, tlRelanzarError, tcBakFile_1, tcBakFile_2, tcBakFile_3 ;
, lcNext_Bak, lcExt_1, lcExt_2, lcExt_3, tcOutputFile_Ext1, tcOutputFile_Ext2, tcOutputFile_Ext3 ; , lcNext_Bak, lcExt_1, lcExt_2, lcExt_3, tcOutputFile_Ext1, tcOutputFile_Ext2, tcOutputFile_Ext3 ;
, tcOutputFile , tcOutputFile
ENDTRY ENDTRY
@@ -1535,7 +1535,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF ENDIF
ENDFOR ENDFOR
RELEASE tcFileName, tcFilters, llFound, laFiltros RELEASE tcFileName, tcFilters, laFiltros
RETURN llFound RETURN llFound
ENDFUNC ENDFUNC
@@ -14248,12 +14248,14 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
LOCAL loTables AS CL_DBC_TABLES OF 'FOXBIN2PRG.PRG' ; LOCAL loTables AS CL_DBC_TABLES OF 'FOXBIN2PRG.PRG' ;
, loConnections AS CL_DBC_CONNECTIONS OF 'FOXBIN2PRG.PRG' ; , loConnections AS CL_DBC_CONNECTIONS OF 'FOXBIN2PRG.PRG' ;
, loViews AS CL_DBC_VIEWS OF 'FOXBIN2PRG.PRG' , loViews AS CL_DBC_VIEWS OF 'FOXBIN2PRG.PRG'
LOCAL lcStoredProcedures
STORE NULL TO loTables, loConnections, loViews STORE NULL TO loTables, loConnections, loViews
WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_DBC OF 'FOXBIN2PRG.PRG'
loTables = ._Tables loTables = ._Tables
loConnections = ._Connections loConnections = ._Connections
loViews = ._Views loViews = ._Views
lcStoredProcedures = ._StoredProcedures
ERASE (tc_OutputFile) ERASE (tc_OutputFile)
CREATE DATABASE (tc_OutputFile) CREATE DATABASE (tc_OutputFile)
@@ -14269,9 +14271,9 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
SET Property = lcMemoWithProperties ; SET Property = lcMemoWithProperties ;
WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('Database'),128) WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('Database'),128)
IF NOT EMPTY(._StoredProcedures) IF NOT EMPTY(lcStoredProcedures)
UPDATE TABLABIN ; UPDATE TABLABIN ;
SET CODE = ._StoredProcedures ; SET CODE = lcStoredProcedures ;
WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128) WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128)
ENDIF ENDIF