diff --git a/DB1Handler.bas b/DB1Handler.bas index 901e9cf..21d4b2c 100644 --- a/DB1Handler.bas +++ b/DB1Handler.bas @@ -29,7 +29,9 @@ Sub Handle(req As ServletRequest, resp As ServletResponse) Connector = Main.Connectors.Get("DB1") Dim con As SQL Try + Log(1) con = Connector.GetConnection("DB1") + Log("regresamos 1") If method = "query2" Then q = ExecuteQuery2("DB1", con, in, resp) '#if VERSION1 diff --git a/RDCConnector.bas b/RDCConnector.bas index a5fb232..0f768fc 100644 --- a/RDCConnector.bas +++ b/RDCConnector.bas @@ -72,7 +72,7 @@ Public Sub Initialize(DB As String) ' Dim jo2 As JavaObject = pool ' Log(jo2.GetField("END_TO_END_CLIENTID_INDEX")) - jo.RunMethod("setPreferredTestQuery", Array("BEGIN DBMS_SESSION.SET_IDENTIFIER('whatever'); END;")) +' jo.RunMethod("setPreferredTestQuery", Array("BEGIN DBMS_SESSION.SET_IDENTIFIER('jRDC_Multi'); END;")) ' jo.RunMethod("setPreferredTestQuery", Array("alter session set current_schema=MYSCHEMA")) ' jo2.RunMethod("setClientIdentifier",Array( "MAX")) ' Tiempo máximo de inactividad antes de cerrar una conexión #if DEBUG @@ -88,8 +88,8 @@ End Sub Private Sub LoadConfigMap(DB As String) As Map Private DBX As String = "" If DB <> "" Then DBX = "." & DB - Log("===========================================") - Log($"Leemos el config${DBX}.properties"$) + Log("============= LoadConfigMap =============") + Log($""========= Leemos el config${DBX}.properties ========="$) Return File.ReadMap("./", "config" & DBX & ".properties") End Sub @@ -106,8 +106,10 @@ Public Sub GetCommand(DB As String, Key As String) As String End Sub Public Sub GetConnection(DB As String) As SQL + Log("============= GetConnection ============= ") If DB.EqualsIgnoreCase("DB1") Then DB = "" 'Esto para el config.properties or default If DebugQueries Then LoadSQLCommands(LoadConfigMap(DB), DB) + Log("regresamos 0") Return pool.GetConnection End Sub @@ -121,6 +123,7 @@ Private Sub LoadSQLCommands(config2 As Map, DB As String) End If Next commands = newCommands + Log(commands) ' Log($"Inicializado: ${DB} "$ & Main.commandsMap.IsInitialized) Main.commandsMap.Put(DB, commands) End Sub diff --git a/jRDC_Multi.b4j b/jRDC_Multi.b4j index 7257669..b0e7b25 100644 --- a/jRDC_Multi.b4j +++ b/jRDC_Multi.b4j @@ -22,13 +22,13 @@ Module8=TestHandler NumberOfFiles=1 NumberOfLibraries=8 NumberOfModules=8 -Version=10 +Version=10.3 @EndOfDesignText@ 'Non-UI application (console / server application) #Region Project Attributes #CommandLineArgs: #MergeLibraries: True - ' VERSION 4.11.14 + ' VERSION 5.08.02 '########################################################################################################### '###################### PULL ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull diff --git a/jRDC_Multi.b4j.meta b/jRDC_Multi.b4j.meta index c316488..fd35057 100644 --- a/jRDC_Multi.b4j.meta +++ b/jRDC_Multi.b4j.meta @@ -25,6 +25,6 @@ ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= -NavigationStack=RDCConnector,LoadSQLCommands,120,6,RDCConnector,Initialize,21,6,Main,Process_Globals,28,0,DB1Handler,Class_Globals,8,0,DB1Handler,ReadList,312,0,Main,AppStart,81,6,DB2Handler,ReadList,312,0,DB3Handler,Class_Globals,11,0,DB3Handler,ReadList,312,0,DB3Handler,ReadBytesFully,277,0,DB4Handler,ReadList,312,0 +NavigationStack=RDCConnector,LoadSQLCommands,110,2,Main,Process_Globals,30,0,TestHandler,Handle,27,0,RDCConnector,LoadConfigMap,82,1,RDCConnector,Class_Globals,6,0,RDCConnector,GetConnection,108,6,RDCConnector,GetCommand,100,0,RDCConnector,Initialize,59,6,Manager,Handle,20,0,Main,AppStart,45,6 SelectedBuild=0 VisibleModules=1,2,3,4,7,6,8