Publicaciones:
Respuestas:

Muchas gracias,

Efectivamente el problema estaba siendo originado porque la dirección al que se va a conectar es variable, por lo que no está configurado el componente con el parámetro de Server ni URL.

Lo he solucionado de la siguiente forma:
 

set ..Adapter.HTTPServer = pRequest.Url
Set URL = pRequest.Url_"/search"
set tHttpResponse = ##class(%Net.HttpResponse).%New()
set tSC = ..Adapter.SendFormDataArray(.tHttpResponse,"POST",tHttpRequest,,,URL)

if $$$ISERR(tSC) && (tHttpResponse="") $$$ThrowStatus(tSC)
// Comprobamos cual es el código de respuesta
set contenido = ""
while (tHttpResponse.Data.AtEnd = 0) { 
    set contenido = contenido_tHttpResponse.Data.Read() 
}

do pResponse.%JSONImport(contenido)
set pResponse.StatusCode = tHttpResponse.StatusCode

Muchas gracias por la respuesta.

Un saludo,
Kurro Lopez

Gracias Pierre-Yves,

Hice la recompilación pero no dio resultado, al final pudimos acceder al servidor donde estaba alojado y reinstalamos el WebTerminal descargandolo de la página oficial. Ya nos han advertido que no vamos a tener tanta suerte la próxima vez, porque no tenemos acceso al servidor donde está desplegado.

Muchas gracias de nuevo

Al final no era un problema de firewall.

El problema era que la instalación no compiló correctamente el código. No tomó la versión de ISC correctamente.

Estoy usando la versión WebTerminal-v4.9.3, en la linea 1507 hay una inicialización del parámetro iscProductVersion

<Parameter name="iscProductVersion">
<Description>
In older Cache versions, method "GetISCProduct" does not exists</Description>
<Expression>$case(
        ##class(%Dictionary.CompiledMethod).IDKEYExists("%SYSTEM.Version", "GetISCProduct"),
        1: $CLASSMETHOD("%SYSTEM.Version", "GetISCProduct"),
        : 2
    )</Expression>
</Parameter>

Después, en la linea 1611, comprueba cuál es la versión para asignar el role requerido:

set requiredRole = $case(..#iscProductVersion >= 4, 1: "%DB_IRISSYS", : "%DB_CACHESYS")

Pero, si compruebo cuál es mi versión, la respuesta es 3, en lugar de 4, por lo que está intentando asignar %DB_CACHESYS en lugar de %DB_IRISSYS, por lo que la compilación no termina.

w ##class(%SYSTEM.Version).GetISCProduct() 
3

Entonces, he modificado el fichero y cambiado la comparación ..#iscProductVersion para que compruebe si es mayor o igual a 3, y funciona.

En la linea 1730, hay otra comparación para definir el dbPrefix, por lo que he cambiado esta linea también.

set dbPrefix = $case(..#iscProductVersion >= 3, 1: "IRIS", : "CACHE")

Ahora, tengo Webterminal funcionando bien.

Nota: Estoy usando IRIS for Windows (x86-64) 2021.1 (Build 215U) Wed Jun 9 2021 09:39:22 EDT

Saludos,
Francisco Lopez

Aplicaciones de Open Exchange:
Seguidores:
Siguiendo:
Insignias de Global Masters: