PureBasic
PureBasic
SOAP Request to Issue Documents in Facto.cl
See more HTTP Misc Examples
Demonstrates how to make a SOAP HTTP request to issue a document using the facto.cl webservice.Chilkat PureBasic Downloads
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkXml.pb"
Procedure ChilkatExample()
success.i = 0
; 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.
; --------------------------------------------------------------------------------
; Here is an example of an HTTP POST Request we'll be sending:
; POST /documento.php HTTP/1.1
; Content-Type: text/xml;charset=UTF-8
; SOAPAction: https://conexion.facto.cl/documento.php/emitirDocumento
;
; <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:server">
; <soapenv:Header/>
; <soapenv:Body>
; <urn:emitirDocumento soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
; <documento xsi:type="urn:emitir_dte">
; <encabezado xsi:type="urn:encabezado">
; <tipo_dte xsi:type="xsd:string">39</tipo_dte>
; <fecha_emision xsi:type="xsd:date">2019-08-03</fecha_emision>
; <condiciones_pago xsi:type="xsd:string">0</condiciones_pago>
; <receptor_email xsi:type="xsd:string">example@gmail.com</receptor_email>
; </encabezado>
; <detalles xsi:type="urn:detalles">
; <detalle xsi:type="urn:detalle">
; <cantidad xsi:type="xsd:int">3</cantidad>
; <glosa xsi:type="xsd:string">Recarga Agua Purificada</glosa>
; <monto_unitario xsi:type="xsd:decimal">1932.773109</monto_unitario>
; <exento_afecto xsi:type="xsd:boolean">1</exento_afecto>
; </detalle>
; </detalles>
; <totales xsi:type="urn:totales">
; <total_exento xsi:type="xsd:int">0</total_exento>
; <total_afecto xsi:type="xsd:int">5798</total_afecto>
; <total_iva xsi:type="xsd:int">1102</total_iva>
; <total_final xsi:type="xsd:Int">6900</total_final>
; </totales>
; </documento>
; </urn:emitirDocumento>
; </soapenv:Body>
; </soapenv:Envelope>
; Use this online tool to generate code from sample XML:
; Generate Code to Create XML
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xml, "soapenv:Envelope")
CkXml::ckAddAttribute(xml,"xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
CkXml::ckAddAttribute(xml,"xmlns:xsd","http://www.w3.org/2001/XMLSchema")
CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
CkXml::ckAddAttribute(xml,"xmlns:urn","urn:server")
CkXml::ckUpdateChildContent(xml,"soapenv:Header","")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento",1,"xsi:type","urn:emitir_dte")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado",1,"xsi:type","urn:encabezado")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte",1,"xsi:type","xsd:string")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte","39")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision",1,"xsi:type","xsd:date")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision","2019-08-03")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago",1,"xsi:type","xsd:string")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago","0")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email",1,"xsi:type","xsd:string")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email","example@gmail.com")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles",1,"xsi:type","urn:detalles")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle",1,"xsi:type","urn:detalle")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad",1,"xsi:type","xsd:int")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad","3")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa",1,"xsi:type","xsd:string")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa","Recarga Agua Purificada")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario",1,"xsi:type","xsd:decimal")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario","1932.773109")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto",1,"xsi:type","xsd:boolean")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto","1")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|totales",1,"xsi:type","urn:totales")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_exento",1,"xsi:type","xsd:int")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_exento","0")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto",1,"xsi:type","xsd:int")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto","5798")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_iva",1,"xsi:type","xsd:int")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_iva","1102")
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_final",1,"xsi:type","xsd:Int")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|urn:emitirDocumento|documento|totales|total_final","6900")
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkHttp::setCkBasicAuth(http, 1)
CkHttp::setCkLogin(http, "9.999.999-9/mylogin")
CkHttp::setCkPassword(http, "mypassword")
CkHttp::ckSetRequestHeader(http,"SoapAction","https://conexion.facto.cl/documento.php/emitirDocumento")
resp.i = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpStr(http,"POST","https://conexion.facto.cl/documento.php",CkXml::ckGetXml(xml),"utf-8","text/xml",resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkXml::ckDispose(xml)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
EndIf
; A status code = 200 indicates success.
Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
xmlResp.i = CkXml::ckCreate()
If xmlResp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::ckLoadXml(xmlResp,CkHttpResponse::ckBodyStr(resp))
Debug "Response body text:"
Debug CkXml::ckGetXml(xmlResp)
; The response will look like this:
; <?xml version="1.0" encoding="UTF-8"?>
; <SOAP-ENV:Envelope SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
; <SOAP-ENV:Body>
; <ns1:emitirDocumentoResponse xmlns:ns1="urn:server">
; <return xsi:type="xsd:complexType">
; <resultado>
; <status>0</status>
; <mensaje_error/>
; </resultado>
; <encabezado>
; <tipo_dte>39</tipo_dte>
; <folio>109999</folio>
; <fecha_emision>2019-08-03</fecha_emision>
; <condiciones_pago>0</condiciones_pago>
; <receptor_email>example@gmail.com</receptor_email>
; </encabezado>
; <detalles>
; <cantidad>3</cantidad>
; <glosa>Recarga Agua Purificada</glosa>
; <monto_unitario>1932.773109</monto_unitario>
; <exento_afecto>1</exento_afecto>
; </detalles>
; <totales>
; <total_exento>0</total_exento>
; <total_afecto>5798</total_afecto>
; <total_iva>1102</total_iva>
; <total_final>6900</total_final>
; </totales>
; <enlaces>
; <dte_xml>https://temporal.facto.cl/2019/08/999993022aa9e0733174e87086ade7d4.xml</dte_xml>
; <dte_pdf>https://temporal.facto.cl/2019/08/99999f52cf80c8ffc1fc22338dae022.pdf</dte_pdf>
; <dte_timbre>https://temporal.facto.cl/2019/08/999999856c08b3d24a83bf29add5364a.png</dte_timbre>
; </enlaces>
; </return>
; </ns1:emitirDocumentoResponse>
; </SOAP-ENV:Body>
; </SOAP-ENV:Envelope>
CkXml::ckDispose(xml)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
CkXml::ckDispose(xmlResp)
ProcedureReturn
EndProcedure