#include <C_CkXml.h>
#include <C_CkHttp.h>
#include <C_CkHttpResponse.h>
void ChilkatSample(void)
{
HCkXml xml;
const char *soapRequestBody;
const char *endpoint;
const char *soapAction;
const char *contentType;
HCkHttp http;
HCkHttpResponse resp;
HCkXml responseXml;
int statusCode;
int Id;
const char *Desc;
const char *FchDesde;
const char *FchHasta;
int Code;
const char *Msg;
xml = CkXml_Create();
CkXml_putTag(xml,"soap:Envelope");
CkXml_AddAttribute(xml,"xmlns:soap","http://www.w3.org/2003/05/soap-envelope");
CkXml_AddAttribute(xml,"xmlns:ar","http://ar.gov.afip.dif.FEV1/");
CkXml_UpdateChildContent(xml,"soap:Header","");
CkXml_UpdateChildContent(xml,"soap:Body|ar:FEParamGetTiposDoc|ar:Auth|ar:Token","string");
CkXml_UpdateChildContent(xml,"soap:Body|ar:FEParamGetTiposDoc|ar:Auth|ar:Sign","string");
CkXml_UpdateChildContentInt(xml,"soap:Body|ar:FEParamGetTiposDoc|ar:Auth|ar:Cuit",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. CkXml_putEmitXmlDecl(xml,FALSE);
soapRequestBody = CkXml_getXml(xml);
endpoint = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx";
soapAction = "http://ar.gov.afip.dif.FEV1/FEParamGetTiposDoc";
// For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
contentType = "text/xml";
http = CkHttp_Create();
CkHttp_ClearHeaders(http);
CkHttp_SetRequestHeader(http,"Content-Type",contentType);
CkHttp_SetRequestHeader(http,"SOAPAction",soapAction);
resp = CkHttp_PostXml(http,endpoint,soapRequestBody,"utf-8");
if (CkHttp_getLastMethodSuccess(http) == FALSE) {
printf("%s\n",CkHttp_lastErrorText(http));
printf("Failed to send SOAP request.\n");
CkXml_Dispose(xml);
CkHttp_Dispose(http);
return;
}
// Get the XML response body.
responseXml = CkXml_Create();
CkHttpResponse_GetBodyXml(resp,responseXml);
statusCode = CkHttpResponse_getStatusCode(resp);
printf("response status code: %d\n",statusCode);
CkHttpResponse_Dispose(resp);
// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.if (statusCode != 200) {
printf("%s\n",CkXml_getXml(responseXml));
CkXml_Dispose(xml);
CkHttp_Dispose(http);
CkXml_Dispose(responseXml);
return;
}
printf("%s\n",CkXml_getXml(responseXml));
// 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).
Id = CkXml_GetChildIntValue(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:ResultGet|*:DocTipo|*:Id");
Desc = CkXml_getChildContent(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:ResultGet|*:DocTipo|*:Desc");
FchDesde = CkXml_getChildContent(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:ResultGet|*:DocTipo|*:FchDesde");
FchHasta = CkXml_getChildContent(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:ResultGet|*:DocTipo|*:FchHasta");
Code = CkXml_GetChildIntValue(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:Errors|*:Err|*:Code");
Msg = CkXml_getChildContent(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:Errors|*:Err|*:Msg");
Code = CkXml_GetChildIntValue(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:Events|*:Evt|*:Code");
Msg = CkXml_getChildContent(responseXml,"*:Body|*:FEParamGetTiposDocResponse|*:FEParamGetTiposDocResult|*:Events|*:Evt|*:Msg");
CkXml_Dispose(xml);
CkHttp_Dispose(http);
CkXml_Dispose(responseXml);
}