ServiceSoap / FECAESolicitar
ASP AutoIt C C (Unicode) C++ C++ (Unicode) C# DataFlex Delphi Foxpro Go Java Node.js Objective-C Perl PHP Extension PowerBuilder Powershell PureBasic Python CkPython Ruby SQL Server Swift TCL VB.NET VB6 VBScript Xojo
-- Important: See this note about {{-https://cknotes.com/sql-sp_oamethod-string-length-return-value-limitations/|||string length limitations for strings returned by sp_OAMethod calls-}}.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @iTmp0 int
-- Important: Do not use nvarchar(max). See the {{-https://www.example-code.com/sql/default.asp|||warning about using nvarchar(max)-}}.
DECLARE @sTmp0 nvarchar(4000)
DECLARE @xml int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @xml OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
EXEC sp_OASetProperty @xml, 'Tag', 'soapenv:Envelope'
DECLARE @success int
EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns:soapenv', 'http://schemas.xmlsoap.org/soap/envelope/'
EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns:ar', 'http://ar.gov.afip.dif.FEV1/'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Header', ''
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:Auth|ar:Token', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:Auth|ar:Sign', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:Auth|ar:Cuit', 123456
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeCabReq|ar:CantReg', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeCabReq|ar:PtoVta', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeCabReq|ar:CbteTipo', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Concepto', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:DocTipo', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:DocNro', 123456
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbteDesde', 123456
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbteHasta', 123456
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbteFch', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpTotal', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpTotConc', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpNeto', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpOpEx', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpTrib', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:ImpIVA', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:FchServDesde', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:FchServHasta', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:FchVtoPago', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:MonId', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:MonCotiz', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:Tipo', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:PtoVta', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:Nro', 123456
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:Cuit', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:CbtesAsoc|ar:CbteAsoc|ar:CbteFch', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Id', 442
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Desc', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:BaseImp', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Alic', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Tributos|ar:Tributo|ar:Importe', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Iva|ar:AlicIva|ar:Id', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Iva|ar:AlicIva|ar:BaseImp', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Iva|ar:AlicIva|ar:Importe', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Opcionales|ar:Opcional|ar:Id', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Opcionales|ar:Opcional|ar:Valor', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Compradores|ar:Comprador|ar:DocTipo', 1042
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Compradores|ar:Comprador|ar:DocNro', 123456
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:Compradores|ar:Comprador|ar:Porcentaje', '456.00'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:PeriodoAsoc|ar:FchDesde', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|ar:FECAESolicitar|ar:FeCAEReq|ar:FeDetReq|ar:FECAEDetRequest|ar:PeriodoAsoc|ar:FchHasta', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv: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.
EXEC sp_OASetProperty @xml, 'EmitXmlDecl', 0
DECLARE @soapRequestBody nvarchar(4000)
EXEC sp_OAMethod @xml, 'GetXml', @soapRequestBody OUT
DECLARE @endpoint nvarchar(4000)
SELECT @endpoint = 'https://wswhomo.afip.gov.ar/wsfev1/service.asmx'
DECLARE @soapAction nvarchar(4000)
SELECT @soapAction = 'http://ar.gov.afip.dif.FEV1/FECAESolicitar'
-- For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
DECLARE @contentType nvarchar(4000)
SELECT @contentType = 'text/xml'
DECLARE @http int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT
EXEC sp_OAMethod @http, 'ClearHeaders', NULL
EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'Content-Type', @contentType
EXEC sp_OAMethod @http, 'SetRequestHeader', NULL, 'SOAPAction', @soapAction
DECLARE @resp int
EXEC sp_OAMethod @http, 'PostXml', @resp OUT, @endpoint, @soapRequestBody, 'utf-8'
EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
IF @iTmp0 = 0
BEGIN
EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Failed to send SOAP request.'
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @http
RETURN
END
-- Get the XML response body.
DECLARE @responseXml int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @responseXml OUT
EXEC sp_OAMethod @resp, 'GetBodyXml', @success OUT, @responseXml
DECLARE @statusCode int
EXEC sp_OAGetProperty @resp, 'StatusCode', @statusCode OUT
PRINT 'response status code: ' + @statusCode
EXEC @hr = sp_OADestroy @resp
-- If the status code does not indicate succcess, then show the response XML,
-- which probably contains error information.
IF @statusCode <> 200
BEGIN
EXEC sp_OAMethod @responseXml, 'GetXml', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @responseXml
RETURN
END
EXEC sp_OAMethod @responseXml, 'GetXml', @sTmp0 OUT
PRINT @sTmp0
-- 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).
DECLARE @Cuit int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @Cuit OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:Cuit'
DECLARE @PtoVta int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @PtoVta OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:PtoVta'
DECLARE @CbteTipo int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @CbteTipo OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:CbteTipo'
DECLARE @FchProceso nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @FchProceso OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:FchProceso'
DECLARE @CantReg int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @CantReg OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:CantReg'
DECLARE @Resultado nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Resultado OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:Resultado'
DECLARE @Reproceso nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Reproceso OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeCabResp|*:Reproceso'
DECLARE @Concepto int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @Concepto OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Concepto'
DECLARE @DocTipo int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @DocTipo OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:DocTipo'
DECLARE @DocNro int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @DocNro OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:DocNro'
DECLARE @CbteDesde int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @CbteDesde OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CbteDesde'
DECLARE @CbteHasta int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @CbteHasta OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CbteHasta'
DECLARE @CbteFch nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @CbteFch OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CbteFch'
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Resultado OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Resultado'
DECLARE @Code int
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @Code OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Observaciones|*:Obs|*:Code'
DECLARE @Msg nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Msg OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:Observaciones|*:Obs|*:Msg'
DECLARE @CAE nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @CAE OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CAE'
DECLARE @CAEFchVto nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @CAEFchVto OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:FeDetResp|*:FECAEDetResponse|*:CAEFchVto'
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @Code OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Events|*:Evt|*:Code'
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Msg OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Events|*:Evt|*:Msg'
EXEC sp_OAMethod @responseXml, 'GetChildIntValue', @Code OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Errors|*:Err|*:Code'
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Msg OUT, '*:Body|*:FECAESolicitarResponse|*:FECAESolicitarResult|*:Errors|*:Err|*:Msg'
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @responseXml
END
GO