AutoIt

SOAP facturacion.finkok.com Stamp Request

See more SOAP finkok.com Examples

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

Local $bSuccess = False

;  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")

;  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"

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

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpStr("POST",$sEndPoint,$strXml,"utf-8","text/xml",$oResp)
If ($bSuccess = False) 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