(AutoIt) SOAP demoemision.thefactoryhka.com.pa DescargaPDF

Make a SOAP call to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc with SOAPAction http://tempuri.org/IService/DescargaPDF

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

; --------------------------------------------------------------------------------
; Also see Chilkat's Online WSDL Code Generator
; to generate code and SOAP Request and Response XML for each operation in a WSDL.
; --------------------------------------------------------------------------------

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; First build this SOAP XML request body:
; Use this online tool to generate the code from sample XML: 
; Generate Code to Create XML

; <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:ser="http://schemas.datacontract.org/2004/07/Services.Model">
;    <soapenv:Header/>
;    <soapenv:Body>
;       <tem:DescargaPDF>
;          <tem:tokenEmpresa>?</tem:tokenEmpresa>
;          <tem:tokenPassword>?</tem:tokenPassword>
;          <tem:datosDocumento>
;             <ser:codigoSucursalEmisor>?</ser:codigoSucursalEmisor>
;              <ser:numeroDocumentoFiscal>?</ser:numeroDocumentoFiscal>
;             <ser:puntoFacturacionFiscal>?</ser:puntoFacturacionFiscal>
;             <ser:serialDispositivo>?</ser:serialDispositivo>
;             <ser:tipoDocumento>?</ser:tipoDocumento>
;             <ser:tipoEmision>?</ser:tipoEmision>
;          </tem:datosDocumento>
;       </tem:DescargaPDF>
;    </soapenv:Body>
; </soapenv:Envelope>

$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "soapenv:Envelope"
$oXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
$oXml.AddAttribute("xmlns:tem","http://tempuri.org/")
$oXml.AddAttribute("xmlns:ser","http://schemas.datacontract.org/2004/07/Services.Model")
$oXml.UpdateChildContent "soapenv:Header",""
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:tokenEmpresa","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:tokenPassword","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:codigoSucursalEmisor","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:numeroDocumentoFiscal","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:puntoFacturacionFiscal","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:serialDispositivo","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoDocumento","?"
$oXml.UpdateChildContent "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoEmision","?"

Local $strXml = $oXml.GetXml()

$oHttp.SetRequestHeader "SOAPAction","http://tempuri.org/IService/DescargaPDF"
$oHttp.SetRequestHeader "Content-Type","text/xml; charset=utf-8"

Local $sEndPoint = "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc"

Local $oResp = $oHttp.PostXml($sEndPoint,$strXml,"utf-8")
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

Local $iStatusCode = $oResp.StatusCode
If ($iStatusCode <> 200) Then
    ConsoleWrite("Non-success status code: " & $iStatusCode & @CRLF)
    ConsoleWrite("Response header: " & $oResp.Header & @CRLF)
    ConsoleWrite("Response body: " & $oResp.BodyStr & @CRLF)
    ConsoleWrite("Unsuccessful." & @CRLF)

    Exit
EndIf

$oXmlResp = ObjCreate("Chilkat.Xml")
$oXmlResp.LoadXml($oResp.BodyStr)

ConsoleWrite($oXmlResp.GetXml() & @CRLF)

; Use this online tool to generate parsing code from sample XML: 
; Generate Parsing Code from XML