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

- Arreglo de defectos introducidos

foxbin2prg.prg

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