(AutoIt) SOAP facturacion.finkok.com Stamp Request

Make a SOAP call to https://demo-facturacion.finkok.com/servicios/soap/stamp

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:stam="http://facturacion.finkok.com/stamp">
;    <soapenv:Header/>
;    <soapenv:Body>
;       <stam:stamp>
;          <stam:xml>cid:20379537153</stam:xml>
;          <stam:username>?</stam:username>
;          <stam:password>?</stam:password>
;       </stam:stamp>
;    </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:stam","http://facturacion.finkok.com/stamp")
$oXml.UpdateChildContent "soapenv:Header",""
$oXml.UpdateChildContent "soapenv:Body|stam:stamp|stam:xml","cid:20379537153"
$oXml.UpdateChildContent "soapenv:Body|stam:stamp|stam:username","MY_USERNAME"
$oXml.UpdateChildContent "soapenv:Body|stam:stamp|stam:password","MY_PASSWORD"

Local $strXml = $oXml.GetXml()

$oHttp.SetRequestHeader "SOAPAction","stamp"
$oHttp.SetRequestHeader "Content-Type","text/xml; charset=utf-8"

Local $sEndPoint = "https://demo-facturacion.finkok.com/servicios/soap/stamp"

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