LOCAL loXml
LOCAL lcSoapRequestBody
LOCAL lcEndpoint
LOCAL lcSoapAction
LOCAL lcContentType
LOCAL loHttp
LOCAL loResp
LOCAL loResponseXml
LOCAL lnStatusCode
LOCAL lnCuit
LOCAL lnPtoVta
LOCAL lnCbteTipo
LOCAL lcFchProceso
LOCAL lnCantReg
LOCAL lcResultado
LOCAL lcReproceso
LOCAL lnConcepto
LOCAL lnDocTipo
LOCAL lnDocNro
LOCAL lnCbteDesde
LOCAL lnCbteHasta
LOCAL lcCbteFch
LOCAL lnCode
LOCAL lcMsg
LOCAL lcCAE
LOCAL lcCAEFchVto
loXml = CreateObject('Chilkat_9_5_0.Xml')
loXml.Tag = "soap:Envelope"
loXml.AddAttribute("xmlns:soap","http://www.w3.org/2003/05/soap-envelope")
loXml.AddAttribute("xmlns:ar","http://ar.gov.afip.dif.FEV1/")
loXml.UpdateChildContent("soap:Header","")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:Auth|ar:Token","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:Auth|ar:Sign","string")
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:Auth|ar:Cuit",123456)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeCabReq|ar:CantReg",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeCabReq|ar:PtoVta",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeCabReq|ar:CbteTipo",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Concepto",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:DocTipo",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:DocNro",123456)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbteDesde",123456)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbteHasta",123456)
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbteFch","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpTotal","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpTotConc","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpNeto","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpOpEx","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpTrib","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpIVA","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:FchServDesde","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:FchServHasta","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:FchVtoPago","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:MonId","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:MonCotiz","456.00")
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:Tipo",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:PtoVta",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:Nro",123456)
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:Cuit","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:CbteFch","string")
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Id",442)
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Desc","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:BaseImp","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Alic","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Importe","456.00")
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Iva|ar:AlicIva|ar:Id",1042)
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Iva|ar:AlicIva|ar:BaseImp","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Iva|ar:AlicIva|ar:Importe","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Opcionales|ar:Opcional|ar:Id","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Opcionales|ar:Opcional|ar:Valor","string")
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Compradores|ar:Comprador|ar:DocTipo",1042)
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Compradores|ar:Comprador|ar:DocNro",123456)
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Compradores|ar:Comprador|ar:Porcentaje","456.00")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:PeriodoAsoc|ar:FchDesde","string")
loXml.UpdateChildContent("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:PeriodoAsoc|ar:FchHasta","string")
loXml.UpdateChildContentInt("soap:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Actividades|ar:Actividad|ar:Id",123456)
* In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
loXml.EmitXmlDecl = 0
lcSoapRequestBody = loXml.GetXml()
lcEndpoint = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx"
lcSoapAction = "http://ar.gov.afip.dif.FEV1/FECAESolicitar"* For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
lcContentType = "text/xml"
loHttp = CreateObject('Chilkat_9_5_0.Http')
loHttp.ClearHeaders()
loHttp.SetRequestHeader("Content-Type",lcContentType)
loHttp.SetRequestHeader("SOAPAction",lcSoapAction)
loResp = loHttp.PostXml(lcEndpoint,lcSoapRequestBody,"utf-8")
IF (loHttp.LastMethodSuccess = 0) THEN
? loHttp.LastErrorText
? "Failed to send SOAP request."RELEASE loXml
RELEASE loHttp
CANCELENDIF* Get the XML response body.
loResponseXml = CreateObject('Chilkat_9_5_0.Xml')
loResp.GetBodyXml(loResponseXml)
lnStatusCode = loResp.StatusCode
? "response status code: " + STR(lnStatusCode)
RELEASE loResp
* If the status code does not indicate succcess, then show the response XML,
* which probably contains error information.IF (lnStatusCode <> 200) THEN
? loResponseXml.GetXml()
RELEASE loXml
RELEASE loHttp
RELEASE loResponseXml
CANCELENDIF
? loResponseXml.GetXml()
* Parse the successful SOAP response XML.* This is a sample of the response XML, but the namespace prefixes will be different.
* We can parse the result using "*" for the namespace prefixes (see below).
lnCuit = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:Cuit")
lnPtoVta = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:PtoVta")
lnCbteTipo = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:CbteTipo")
lcFchProceso = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:FchProceso")
lnCantReg = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:CantReg")
lcResultado = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:Resultado")
lcReproceso = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:Reproceso")
lnConcepto = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Concepto")
lnDocTipo = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:DocTipo")
lnDocNro = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:DocNro")
lnCbteDesde = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CbteDesde")
lnCbteHasta = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CbteHasta")
lcCbteFch = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CbteFch")
lcResultado = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Resultado")
lnCode = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Observaciones|*:Obs|*:Code")
lcMsg = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Observaciones|*:Obs|*:Msg")
lcCAE = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CAE")
lcCAEFchVto = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CAEFchVto")
lnCode = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Events|*:Evt|*:Code")
lcMsg = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Events|*:Evt|*:Msg")
lnCode = loResponseXml.GetChildIntValue("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Errors|*:Err|*:Code")
lcMsg = loResponseXml.GetChildContent("*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Errors|*:Err|*:Msg")
RELEASE loXml
RELEASE loHttp
RELEASE loResponseXml