go to post Yone Moreno · Oct 15, 2021 We may need to add the Content-Disposition header in the request and there specify the file name. In the example we had originally made with SoapUI, that header had this value: Content-Disposition: attachment; name="application.zip" Fine Tuning a WebClient tells you how you can specify headers in your web client using the SetHttpHeader() method that inherits from %SOAP.WebClient. Following the explanation in the documentation, we have added: do ..SetHttpHeader("Content-Disposition","application.zip") We have written the line before: Quit ..WebMethod("cargarFichero","CargarFicheroVacuRequest").Invoke($this,"http://ws.regvacuWs.ms.es/FicheroVacu/cargarFichero",.fichero,.ccaaId,.tipoFichero) When capturing the LOGSOAP we notice that it is left without including the Content-Disposition header and the name application.zip in what we send: Why could it be that when writing the line, it is left without including the new Content-Disposition header and the application.zip file name? 💭🤔 Also, in other tests, we have written 3 additional ways, to try to solve it: set ..ContentType="application/octet-stream; name=nombre" Using the above line, we don't see that it adds the "name" parameter. We tried the following line and it would generate an Ensemble exception: set ..HttpRequest.ContentType="application/octet-stream; name=nombre" ERROR #5001: <INVALID OREF>zcargarFichero+16^WSCLIENTE.HistoriaClinica.FicheroVacuServiceSOAP.1 and using the next line: do ..HttpRequest.SetHeader("name","nombre") It gives us exception as well: <INVALID OREF>zcargarFichero+16^WSCLIENTE.HistoriaClinica.FicheroVacuServiceSOAP.1 The complete class we have written of the Web Service is: Class WSCLIENTE.HistoriaClinica.FicheroVacuServiceSOAP Extends %SOAP.WebClient [ ProcedureBlock ] { // Parameter LOCATION = "https://regvacube.sns.gob.es/regvacu/ws/FicheroVacuService"; /// This is the URL used to access the web service. /// This is the namespace used by the Service Parameter NAMESPACE = "http://ws.regvacuWs.ms.es/regvacu/ws/FicheroVacuService"; /// 20/09/21 Cambiamos a 0, con el objetivo de quitar el xsi:type Parameter OUTPUTTYPEATTRIBUTE = 0; /// Determines handling of Security header. Parameter SECURITYIN = "ALLOW"; /// This is the name of the Service Parameter SERVICENAME = "FicheroVacuService"; // Parameter SOAPVERSION = 1.2; Parameter SOAPVERSION = 1.1; /// This is the SOAP version supported by the service. Parameter MTOMREQUIRED = 1; // Method cargarFichero(fichero As %xsd.base64Binary(REQUIRED=1), ccaaId As EsquemasDatos.HistoriaClinica.tns.CCAAIdType(REQUIRED=1), tipoFichero As EsquemasDatos.HistoriaClinica.tns.TipoFicheroType(REQUIRED=1)) As EsquemasDatos.HistoriaClinica.tns.InfoFicheroType(XMLNAME="responseFichero") [ Final, ProcedureBlock = 1, SoapBindingStyle = document, SoapBodyUse = literal, WebMethod ] // Method cargarFichero(fichero As %GlobalBinaryStream, ccaaId As EsquemasDatos.HistoriaClinica.tns.CCAAIdType(REQUIRED=1), tipoFichero As EsquemasDatos.HistoriaClinica.tns.TipoFicheroType(REQUIRED=1)) As EsquemasDatos.HistoriaClinica.tns.InfoFicheroType(XMLNAME="responseFichero") [ Final, ProcedureBlock = 1, SoapBindingStyle = document, SoapBodyUse = literal, WebMethod ] /// 15 10 21 Edu explica que el fichero, el .zip con un .csv necesitamos enviarlo SIN CODIFICAR /// quitamos %GlobalBinaryStream y ponemos %GlobalCharacterStream /// Method cargarFichero(fichero As %GlobalCharacterStream, ccaaId As EsquemasDatos.HistoriaClinica.tns.CCAAIdType(REQUIRED=1), tipoFichero As EsquemasDatos.HistoriaClinica.tns.TipoFicheroType(REQUIRED=1)) As EsquemasDatos.HistoriaClinica.tns.InfoFicheroType(XMLNAME="responseFichero") [ Final, ProcedureBlock = 1, SoapBindingStyle = document, SoapBodyUse = literal, WebMethod ] { //Header - Addresing set addressing = ..crearAddressing() set addressing.Action = "cargarFichero" set ..AddressingOut = addressing set ..AddressingOut.mustUnderstand = "1" //Firma el XML (mensaje SOAP) //do ..crearSignature() set ..MTOMRequired=1 //24 09 21 para añadir parametro name en cabecera content type //set ..ContentType="application/octet-stream; name=nombre" //28 09 21 probamos a ajustarlo //set ..ContentType="application/octet-stream; charset=latin1" //set ..ContentType="application/xhtml+xml; charset=latin1" /* 27 09 21 con el objetivo de poner parametro name en cabecera content type Genera excepcion: ERROR #5001: <INVALID OREF>zcargarFichero+16^WSCLIENTE.HistoriaClinica.FicheroVacuServiceSOAP.1 */ //set ..HttpRequest.ContentType="application/octet-stream; name=nombre" //do ..HttpRequest.SetHeader("name","nombre") /* 15 10 21 seguimos la indicacion de Alberto Fuentes: ➕ añadir la cabecera Content-Disposition en la petición y ahí especificar el nombre del archivo. https://es.community.intersystems.com/post/%C2%BFc%C3%B3mo-podr%C3%ADamos-usar-mtom-para-enviar-un-zip-con-un-csv-adentro#comment-169536 https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls?KEY=GSOAP_cli_details#GSOAP_cli_details_http_headers */ do ..SetHttpHeader("Content-Disposition","application.zip") Quit ..WebMethod("cargarFichero","CargarFicheroVacuRequest").Invoke($this,"http://ws.regvacuWs.ms.es/FicheroVacu/cargarFichero",.fichero,.ccaaId,.tipoFichero) } Method infoFichero(ccaaId As EsquemasDatos.HistoriaClinica.tns.CCAAIdType(REQUIRED=1), infoFichero As EsquemasDatos.HistoriaClinica.tns.InfoFicheroType(REQUIRED=1), Output estado As EsquemasDatos.HistoriaClinica.tns.EstadoFicheroType(REQUIRED=1)) As %xsd.base64Binary(XMLNAME="fichero") [ Final, ProcedureBlock = 1, SoapBindingStyle = document, SoapBodyUse = literal, WebMethod ] { set ..MTOMRequired=1 Quit ..WebMethod("infoFichero","InfoFicheroVacuRequest").Invoke($this,"http://ws.regvacuWs.ms.es/FicheroVacu/infoFichero",.ccaaId,.infoFichero,.estado) } Method crearAddressing() As %SOAP.Addressing.Properties { set IPRedSanitaria = ##class(Util.TablasMaestras).getValorMaestra("PARAMETROS","IPRedSanitaria") set puertoRespuestas = ##class(Util.TablasMaestras).getValorMaestra("PARAMETROS","PuertoRespuestasSSL") set ReplyTo = ##class(%SOAP.Addressing.EndpointReference).%New() set ReplyTo.Address = "http://www.w3.org/2005/08/addressing/anonymous" //set ReplyTo.Address = "https://"_IPRedSanitaria_":"_puertoRespuestas_"/csp/SNS/Servicios.ProgramasAsistenciales.SIFCOv02r00.cls" set MessageId = ##class(Util.FuncionesComunes).getUID() set addressing = ##class(%SOAP.Addressing.Properties).%New() set addressing.MessageId = MessageId set addressing.Destination = ..Location set addressing.ReplyEndpoint = ReplyTo Quit addressing } } How could we understand, debug, tune, and resolve together, this situation? If you could give us some guidance, we would appreciate it 🙇🙏🙏🙏🙏🙏 How would you recommend us to follow? What documentation do we need to study, read, understand, to complete this part? Thanks for your answers and time reading this question
go to post Yone Moreno · Jul 1, 2021 Hello Eduard thanks for your reply msg is a %GlobalCharacterStream it is defined before, here is the code: set msg=##class(%GlobalCharacterStream).%New() if ('tSC) || (response.error '= "")||(response.informacion.mensaje '= "") { do msg.Write("<br></br><H1>No existe el informe solicitado</H1>") } else { do ..Adapter.AssignOneSetting("Pdf","1","") Do msg.Write($SYSTEM.Encryption.Base64Decode(response.datos.pdf)) }