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

Changeset: 491 fdbozzo - 13/11/2014 23:50:39:

Browse Source 
- Arreglo de defectos introducidos
This commit is contained in:
fdbozzo
2014-11-13 23:51:02 +01:00
parent 43f3a2191d d5b5ea3ecd
commit 40ca070838
1 changed files with 42 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
foxbin2prg.prg
View File

@@ -687,7 +687,6 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
FINALLY FINALLY
THIS.o_FSO = NULL THIS.o_FSO = NULL
THIS.o_FNC = NULL THIS.o_FNC = NULL
SET PROCEDURE TO
ENDTRY ENDTRY
RETURN RETURN
@@ -1535,7 +1534,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
@@ -2362,6 +2361,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
.writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC) ) .writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC) )
SET PROCEDURE TO (lcEXE_CAPS) ADDITIVE SET PROCEDURE TO (lcEXE_CAPS) ADDITIVE
.o_FNC = CREATEOBJECT( 'cl_FileName_Caps' ) .o_FNC = CREATEOBJECT( 'cl_FileName_Caps' )
RELEASE PROCEDURE (lcEXE_CAPS)
.n_ExisteCapitalizacion = 1 .n_ExisteCapitalizacion = 1
ELSE ELSE
@@ -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