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

Changeset: 487 fdbozzo - 13/11/2014 23:17:11:

Browse Source 
- Arreglo de defectos introducidos
This commit is contained in:
fdbozzo
2014-11-13 23:37:11 +01:00
parent 2c88a26189
commit 0564007807
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
foxbin2prg.prg
View File

@@ -1450,7 +1450,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
@@ -13847,12 +13847,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)
@@ -13868,9 +13870,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