Visual FoxPro
Visual FoxPro
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 Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loXml
LOCAL loHttp
LOCAL loResp
LOCAL loXmlResp
lnSuccess = 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
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:urn","urn:server")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento",1,"xsi:type","urn:emitir_dte")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado",1,"xsi:type","urn:encabezado")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte",1,"xsi:type","xsd:string")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte","39")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision",1,"xsi:type","xsd:date")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision","2019-08-03")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago",1,"xsi:type","xsd:string")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago","0")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email",1,"xsi:type","xsd:string")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email","example@gmail.com")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles",1,"xsi:type","urn:detalles")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle",1,"xsi:type","urn:detalle")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad",1,"xsi:type","xsd:int")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad","3")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa",1,"xsi:type","xsd:string")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa","Recarga Agua Purificada")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario",1,"xsi:type","xsd:decimal")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario","1932.773109")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto",1,"xsi:type","xsd:boolean")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto","1")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales",1,"xsi:type","urn:totales")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_exento",1,"xsi:type","xsd:int")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_exento","0")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto",1,"xsi:type","xsd:int")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto","5798")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_iva",1,"xsi:type","xsd:int")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_iva","1102")
loXml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_final",1,"xsi:type","xsd:Int")
loXml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_final","6900")
loHttp = CreateObject('Chilkat.Http')
loHttp.BasicAuth = 1
loHttp.Login = "9.999.999-9/mylogin"
loHttp.Password = "mypassword"
loHttp.SetRequestHeader("SoapAction","https://conexion.facto.cl/documento.php/emitirDocumento")
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST","https://conexion.facto.cl/documento.php",loXml.GetXml(),"utf-8","text/xml",loResp)
IF (lnSuccess = 0) THEN
? loHttp.LastErrorText
RELEASE loXml
RELEASE loHttp
RELEASE loResp
CANCEL
ENDIF
* A status code = 200 indicates success.
? "Response status code = " + STR(loResp.StatusCode)
loXmlResp = CreateObject('Chilkat.Xml')
loXmlResp.LoadXml(loResp.BodyStr)
? "Response body text:"
? loXmlResp.GetXml()
* 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>
RELEASE loXml
RELEASE loHttp
RELEASE loResp
RELEASE loXmlResp