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
-- 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.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: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:Cabecera|sf:ObligadoEmision|sf:NombreRazon', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:Cabecera|sf:ObligadoEmision|sf:NIF', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:IDVersion', '1.0'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:IDFactura|sf:IDEmisorFactura', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:IDFactura|sf:NumSerieFactura', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:IDFactura|sf:FechaExpedicionFactura', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:NombreRazonEmisor', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:TipoFactura', 'F1'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:DescripcionOperacion', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:Desglose|sf:DetalleDesglose|sf:CalificacionOperacion', 'S1'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:Desglose|sf:DetalleDesglose|sf:BaseImponibleOimporteNoSujeto', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:CuotaTotal', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:ImporteTotal', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:Encadenamiento', ''
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:NombreRazon', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:NIF', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:NombreSistemaInformatico', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:IdSistemaInformatico', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:Version', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:NumeroInstalacion', 'string'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:TipoUsoPosibleSoloVerifactu', 'S'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:TipoUsoPosibleMultiOT', 'S'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:SistemaInformatico|sf:IndicadorMultiplesOT', 'S'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:FechaHoraHusoGenRegistro', 'dateTime'
EXEC sp_OAMethod @xml, 'UpdateChildContentInt', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:TipoHuella', 01
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'soapenv:Body|sfLR:RegFactuSistemaFacturacion|sfLR:RegistroFactura|sf:RegistroAlta|sf:Huella', 'string'
-- 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
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 @hr = sp_OACreate 'Chilkat.HttpResponse', @resp OUT
EXEC sp_OAMethod @http, 'HttpStr', @success OUT, 'POST', @endpoint, @soapRequestBody, 'utf-8', 'application/xml', @resp
IF @success = 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
EXEC @hr = sp_OADestroy @resp
RETURN
END
-- Get the XML response body.
DECLARE @responseXml int
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
-- 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 @resp
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 @NombreRazon nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @NombreRazon OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:Cabecera|*:ObligadoEmision|*:NombreRazon'
DECLARE @NIF nvarchar(4000)
EXEC sp_OAMethod @responseXml, 'GetChildContent', @NIF OUT, '*:Body|*:RespuestaRegFactuSistemaFacturacion|*:Cabecera|*:ObligadoEmision|*:NIF'
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'
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @resp
EXEC @hr = sp_OADestroy @responseXml
END
GO