sfRequerimiento / RegFactuSistemaFacturacion
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
-- Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
EXEC @hr = sp_OACreate 'Chilkat.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:ds', 'http://www.w3.org/2000/09/xmldsig#'
EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns:sfLR', 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd'
EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns:sf', 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Header', ''
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion', '?<sfLR:RegistroFactura><sfLR:RegistroAlta><sf:IDVersion>1.0</sf:IDVersion><sf:IDFactura><sf:IDEmisorFactura>string</sf:IDEmisorFactura><sf:NumSerieFactura>string</sf:NumSerieFactura><sf:FechaExpedicionFactura>string</sf:FechaExpedicionFactura></sf:IDFactura><sf:RefExterna>string</sf:RefExterna><sf:NombreRazonEmisor>string</sf:NombreRazonEmisor><sf:Subsanacion>S</sf:Subsanacion><sf:RechazoPrevio>N</sf:RechazoPrevio><sf:TipoFactura>F1</sf:TipoFactura><sf:TipoRectificativa>S</sf:TipoRectificativa><sf:FacturasRectificadas><sf:IDFacturaRectificada><sf:IDEmisorFactura>string</sf:IDEmisorFactura><sf:NumSerieFactura>string</sf:NumSerieFactura><sf:FechaExpedicionFactura>string</sf:FechaExpedicionFactura></sf:IDFacturaRectificada></sf:FacturasRectificadas><sf:FacturasSustituidas><sf:IDFacturaSustituida><sf:IDEmisorFactura>string</sf:IDEmisorFactura><sf:NumSerieFactura>string</sf:NumSerieFactura><sf:FechaExpedicionFactura>string</sf:FechaExpedicionFactura></sf:IDFacturaSustituida></sf:FacturasSustituidas><sf:ImporteRectificacion><sf:BaseRectificada>string</sf:BaseRectificada><sf:CuotaRectificada>string</sf:CuotaRectificada><sf:CuotaRecargoRectificado>string</sf:CuotaRecargoRectificado></sf:ImporteRectificacion><sf:FechaOperacion>string</sf:FechaOperacion><sf:DescripcionOperacion>string</sf:DescripcionOperacion><sf:FacturaSimplificadaArt7273>S</sf:FacturaSimplificadaArt7273><sf:FacturaSinIdentifDestinatarioArt61d>S</sf:FacturaSinIdentifDestinatarioArt61d><sf:Macrodato>S</sf:Macrodato><sf:EmitidaPorTerceroODestinatario>D</sf:EmitidaPorTerceroODestinatario><sf:Tercero><sf:NombreRazon>string</sf:NombreRazon><sf:NIF>string</sf:NIF></sf:Tercero><sf:Destinatarios><sf:IDDestinatario><sf:NombreRazon>string</sf:NombreRazon><sf:NIF>string</sf:NIF></sf:IDDestinatario></sf:Destinatarios><sf:Cupon>S</sf:Cupon><sf:Desglose><sf:DetalleDesglose><sf:Impuesto>01</sf:Impuesto><sf:ClaveRegimen>01</sf:ClaveRegimen><sf:CalificacionOperacion>S1</sf:CalificacionOperacion><sf:TipoImpositivo>string</sf:TipoImpositivo><sf:BaseImponibleOimporteNoSujeto>string</sf:BaseImponibleOimporteNoSujeto><sf:BaseImponibleACoste>string</sf:BaseImponibleACoste><sf:CuotaRepercutida>string</sf:CuotaRepercutida><sf:TipoRecargoEquivalencia>string</sf:TipoRecargoEquivalencia><sf:CuotaRecargoEquivalencia>string</sf:CuotaRecargoEquivalencia></sf:DetalleDesglose></sf:Desglose><sf:CuotaTotal>string</sf:CuotaTotal><sf:ImporteTotal>string</sf:ImporteTotal><sf:Encadenamiento></sf:Encadenamiento><sf:SistemaInformatico><sf:NombreRazon>string</sf:NombreRazon><sf:NIF>string</sf:NIF><sf:NombreSistemaInformatico>string</sf:NombreSistemaInformatico><sf:IdSistemaInformatico>string</sf:IdSistemaInformatico><sf:Version>string</sf:Version><sf:NumeroInstalacion>string</sf:NumeroInstalacion><sf:TipoUsoPosibleSoloVerifactu>S</sf:TipoUsoPosibleSoloVerifactu><sf:TipoUsoPosibleMultiOT>S</sf:TipoUsoPosibleMultiOT><sf:IndicadorMultiplesOT>S</sf:IndicadorMultiplesOT></sf:SistemaInformatico><sf:FechaHoraHusoGenRegistro>dateTime</sf:FechaHoraHusoGenRegistro><sf:NumRegistroAcuerdoFacturacion>string</sf:NumRegistroAcuerdoFacturacion><sf:IdAcuerdoSistemaInformatico>string</sf:IdAcuerdoSistemaInformatico><sf:TipoHuella>01</sf:TipoHuella><sf:Huella>string</sf:Huella><ds:Signature Id="?"><ds:SignedInfo Id="?"><ds:CanonicalizationMethod Algorithm="?"></ds:CanonicalizationMethod><ds:SignatureMethod Algorithm="?"><ds:HMACOutputLength>integer</ds:HMACOutputLength></ds:SignatureMethod><ds:Reference Id="?" URI="?" Type="?"><ds:Transforms><ds:Transform Algorithm="?"></ds:Transform></ds:Transforms><ds:DigestMethod Algorithm="?"></ds:DigestMethod><ds:DigestValue>BASE64_DATA</ds:DigestValue></ds:Reference></ds:SignedInfo><ds:SignatureValue>...</ds:SignatureValue><ds:KeyInfo Id="?"></ds:KeyInfo><ds:Object Id="?" MimeType="?" Encoding="?"></ds:Object></ds:Signature></sfLR:RegistroAlta></sfLR:RegistroFactura>'
-- 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:///www1.agenciatributaria.gob.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/RequerimientoSOAP'
DECLARE @soapAction nvarchar(4000)
SELECT @soapAction = ''
-- 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
-- Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
EXEC @hr = sp_OACreate 'Chilkat.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
-- Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
EXEC @hr = sp_OACreate 'Chilkat.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 @CSV nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @CSV OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:CSV'
DECLARE @NIFPresentador nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @NIFPresentador OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:DatosPresentacion|*:NIFPresentador'
DECLARE @TimestampPresentacion nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @TimestampPresentacion OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:DatosPresentacion|*:TimestampPresentacion'
DECLARE @Cabecera nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @Cabecera OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:Cabecera'
DECLARE @TiempoEsperaEnvio nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @TiempoEsperaEnvio OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:TiempoEsperaEnvio'
DECLARE @EstadoEnvio nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @EstadoEnvio OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:EstadoEnvio'
DECLARE @IDEmisorFactura nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @IDEmisorFactura OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:IDFactura|*:IDEmisorFactura'
DECLARE @NumSerieFactura nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @NumSerieFactura OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:IDFactura|*:NumSerieFactura'
DECLARE @FechaExpedicionFactura nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @FechaExpedicionFactura OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:IDFactura|*:FechaExpedicionFactura'
DECLARE @EstadoRegistro nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @EstadoRegistro OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:EstadoRegistro'
DECLARE @CodigoErrorRegistro nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @CodigoErrorRegistro OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:CodigoErrorRegistro'
DECLARE @DescripcionErrorRegistro nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @DescripcionErrorRegistro OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:DescripcionErrorRegistro'
DECLARE @CSVRegistroDuplicado nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @CSVRegistroDuplicado OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:CSVRegistroDuplicado'
DECLARE @EstadoRegistroDuplicado nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @EstadoRegistroDuplicado OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:EstadoRegistroDuplicado'
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @responseXml
END
GO