Creo que el problema va a estar ahí. Comento los pasos que realizo.
1.- Menu Component- Import WSDL
2.- Pongo la siguiente URL:
https://sede.agenciatributaria.gob.e...Recibidas.wsdl Y pulso NEXT
3.- Dejo marcado por defecto, Automatic SOAP versioning (Recommended) y pulso Next
4.- En Options no marco ni desmarco nada y pulso Finish
5.- Me crea la unidad SuministroFactRecibidas con el siguiente contenido (pongo la unidad entera)
Código Delphi
[-]
unit SuministroFactRecibidas;
interface
uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns;
type
siiSOAP = interface(IInvokable)
['{49CAF231-209B-3BAC-3734-FD93EC084CD6}']
function SuministroLRFacturasRecibidas(const SuministroLRFacturasRecibidas: SuministroLRFacturasRecibidas): RespuestaLRFacturasRecibidas; stdcall;
function AnulacionLRFacturasRecibidas(const AnulacionLRFacturasRecibidas: BajaLRFacturasRecibidas): RespuestaLRBajaFacturasRecibidas; stdcall;
function ConsultaLRFacturasRecibidas(const ConsultaLRFacturasRecibidas: ConsultaLRFacturasRecibidas): RespuestaConsultaLRFacturasRecibidas; stdcall;
function ConsultaLRFactInformadasProveedor(const ConsultaLRFactInformadasProveedor: ConsultaLRFactInformadasProveedor): RespuestaConsultaLRFactInformadasProveedor; stdcall;
function ConsultaLRFactInformadasAgrupadasProveedor(const ConsultaLRFactInformadasAgrupadasProveedor: ConsultaLRFactInformadasAgrupadasProveedor): RespuestaConsultaLRFactInformadasAgrupadasProveedor; stdcall;
end;
function GetsiiSOAP(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): siiSOAP;
implementation
uses System.SysUtils;
function GetsiiSOAP(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): siiSOAP;
const
defWSDL = 'https://sede.agenciatributaria.gob.es/static_files/Sede/Procedimiento_ayuda/G417/FicherosSuministros/V_1_1/WSDL/SuministroFactRecibidas.wsdl';
defURL = '';
defSvc = 'siiService';
defPrt = 'SuministroFactRecibidas';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as siiSOAP);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(siiSOAP), 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroFactRecibidas.wsdl', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(siiSOAP), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(siiSOAP), ioSOAP12);
end.