cheveguerra/jRDC-Multi
1
0
Fork 0
mirror of https://github.com/KeymonSoft/jRDC-Multi.git synced 2026-04-17 21:06:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.08.02

Browse Source 
- Se hizo un cambio para tratar de que las conexiones se "identifiquen" con Oracle y Jorge pueda saber que conexiones/recursos estamos ocupando
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-02 22:46:38 -06:00
parent 45e4336d3c
commit 6597ef3394
4 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DB1Handler.bas
View File

@@ -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

9
RDCConnector.bas
View File

@@ -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

4
jRDC_Multi.b4j
View File

@@ -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

2
jRDC_Multi.b4j.meta
View File

@@ -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