Dim requestSoapXML2 As String=$"<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ser="http://servicio.hl7v24.sancorsalud.com.ar/">
<soapenv:Header/>
<soapenv:Body>
<ser:Message>
<pasaporte>0</pasaporte>
<mensaje>MSH|^~\{|TRIT0100M|TRIT00999999|SANCOR_SALUD|SANCOR_SALUD^604940^IIN|20170912144551||ZQI^Z01^ZQI_Z01|17091214455180419558|P|2.4|||NE|AL|ARG
PRD|PS^Prestador Solicitante||||||22^PR|
PID|||121297^0^^SANCOR_SALUD^HC||UNKNOWN</mensaje>
</ser:Message>
</soapenv:Body>
</soapenv:Envelope>"$
' j.Initialize("j", Me)
' j.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6")
' j.PostString(xServer,xMensa)
'j.Download(xServer)
Dim j As HttpJob
j.Initialize("j", Me)
'j.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.92 Safari/537.36")
'j.GetRequest.SetContentType("application/soap+xml; charset=utf-8")
'J.GetRequest.SetHeader("SOAPAction", """http://servicio.hl7v24.sancorsalud.com.ar/""")
'j.GetRequest.Timeout = DateTime.TicksPerSecond * 45
'j.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.92 Safari/537.36")
'J.GetRequest.SetContentType("text/xml; charset=utf-8")
j.PostString("https://testservicios.sancorsalud.com.ar/Autorizador/HL7v24",requestSoapXML2)
'j.GetRequest.SetHeader("Content-Type", "Application/soap+xml; charset=utf-8")
'j.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.92 Safari/537.36")
J.GetRequest.SetHeader("SOAPAction", """http://servicio.hl7v24.sancorsalud.com.ar/""")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Log(Job.GetString)
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub