diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 9125056..ffae085 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -1190,7 +1190,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM ENDIF 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 ; , tcOutputFile ENDTRY @@ -1535,7 +1535,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM ENDIF ENDFOR - RELEASE tcFileName, tcFilters, llFound, laFiltros + RELEASE tcFileName, tcFilters, laFiltros RETURN llFound ENDFUNC @@ -14248,12 +14248,14 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE LOCAL loTables AS CL_DBC_TABLES OF 'FOXBIN2PRG.PRG' ; , loConnections AS CL_DBC_CONNECTIONS OF 'FOXBIN2PRG.PRG' ; , loViews AS CL_DBC_VIEWS OF 'FOXBIN2PRG.PRG' + LOCAL lcStoredProcedures STORE NULL TO loTables, loConnections, loViews - WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG' - loTables = ._Tables - loConnections = ._Connections - loViews = ._Views + WITH THIS AS CL_DBC OF 'FOXBIN2PRG.PRG' + loTables = ._Tables + loConnections = ._Connections + loViews = ._Views + lcStoredProcedures = ._StoredProcedures ERASE (tc_OutputFile) CREATE DATABASE (tc_OutputFile) @@ -14269,9 +14271,9 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE SET Property = lcMemoWithProperties ; 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 ; - SET CODE = ._StoredProcedures ; + SET CODE = lcStoredProcedures ; WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128) ENDIF