- VERSION 5.08.25

- Se modificaron los archivos de reinicio de los servicios (servidor y Bow) y se cambio el menu del "manager" para que a seccion de "reload" incluya la liga a reinciar Bow.

RDCConnector.bas

@@ -19,7 +19,7 @@ Public Sub Initialize(DB As String)
 '	Log("RDCConnector Initialize")
 	If DB.EqualsIgnoreCase("DB1") Then DB = "" 'Esto para el config.properties por default
 	Dim config As Map = LoadConfigMap(DB)
-	Log($"Inicializamos ${DB}, usuario: ${config.Get("User")}"$)
+	Log($"Inicializamos ${DB}, usuario: ${config.Get("User")} - Puerto: ${config.Get("ServerPort")}"$)
 	pool.Initialize(config.Get("DriverClass"), config.Get("JdbcUrl"), config.Get("User"), config.Get("Password"))
 	Dim jo As JavaObject = pool
 	jo.RunMethod("setMaxPoolSize", Array(5)) 'number of concurrent connections
@@ -100,8 +100,8 @@ Public Sub GetCommand(DB As String, Key As String) As String
 	If commands.ContainsKey("sql." & Key) = False Then
 		Log("*** Command not found: " & Key)
 	End If
-	Log("****  " & Key & "  ****")
-	Log(commands.Get("sql." & Key))
+	Log("=========  Traemos """ & Key & """  ==========")
+	Log(">>>>>>   " & commands.Get("sql." & Key) & "      <<<<<<")
 	Return commands.Get("sql." & Key)
 End Sub
 
@@ -109,7 +109,7 @@ 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")
+'	Log("regresamos 0")
 	Return pool.GetConnection
 End Sub
 
@@ -123,7 +123,7 @@ Private Sub LoadSQLCommands(config2 As Map, DB As String)
 		End If
 	Next
 	commands = newCommands
-	Log(commands)
+'	Log(commands)
 '	Log($"Inicializado: ${DB} "$ & Main.commandsMap.IsInitialized)
 	Main.commandsMap.Put(DB, commands)
 End Sub