SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

muli · #1 07-03-2024

Si claro estamos hablando de las recibidas, y lo que comento está en la pagina 38 de 350 del manual del sii de la version 1.1

keys · #2 07-03-2024

Cita:

Empezado por muli

Si claro estamos hablando de las recibidas, y lo que comento está en la pagina 38 de 350 del manual del sii de la version 1.1

Pues yo he importado los wsdl de hacienda y si me aparece.

muli · #3 07-03-2024

Yo no dudo de que no aparezca, el tema es que no se como indicar que biendeinversion=S ya que en la unidad suministrosfacemitidas.pas que se creó con la importación del WSDL no me aparece esa referencia, quizás mi error es que no genero bien la unidad de importacion del WSDL?

Saludos

keys · #4 07-03-2024

¿Cuando usas el wsdl converter le estás señalando la versión 1.2?

keys · #5 07-03-2024

Código Delphi [-]DetalleIVARecibidaType = class(TRemotable)
  private
    FTipoImpositivo: Tipo2_2Type;
    FTipoImpositivo_Specified: boolean;
    FBaseImponible: ImporteSgn12_2Type;
    FCuotaSoportada: ImporteSgn12_2Type;
    FCuotaSoportada_Specified: boolean;
    FTipoRecargoEquivalencia: Tipo2_2Type;
    FTipoRecargoEquivalencia_Specified: boolean;
    FCuotaRecargoEquivalencia: ImporteSgn12_2Type;
    FCuotaRecargoEquivalencia_Specified: boolean;
    FPorcentCompensacionREAGYP: Tipo2_2Type;
    FPorcentCompensacionREAGYP_Specified: boolean;
    FImporteCompensacionREAGYP: ImporteSgn12_2Type;
    FImporteCompensacionREAGYP_Specified: boolean;
    FBienInversion: BienInversionType;
    FBienInversion_Specified: boolean;
    procedure SetTipoImpositivo(Index: Integer; const ATipo2_2Type: Tipo2_2Type);
    function  TipoImpositivo_Specified(Index: Integer): boolean;
    procedure SetCuotaSoportada(Index: Integer; const AImporteSgn12_2Type: ImporteSgn12_2Type);
    function  CuotaSoportada_Specified(Index: Integer): boolean;
    procedure SetTipoRecargoEquivalencia(Index: Integer; const ATipo2_2Type: Tipo2_2Type);
    function  TipoRecargoEquivalencia_Specified(Index: Integer): boolean;
    procedure SetCuotaRecargoEquivalencia(Index: Integer; const AImporteSgn12_2Type: ImporteSgn12_2Type);
    function  CuotaRecargoEquivalencia_Specified(Index: Integer): boolean;
    procedure SetPorcentCompensacionREAGYP(Index: Integer; const ATipo2_2Type: Tipo2_2Type);
    function  PorcentCompensacionREAGYP_Specified(Index: Integer): boolean;
    procedure SetImporteCompensacionREAGYP(Index: Integer; const AImporteSgn12_2Type: ImporteSgn12_2Type);
    function  ImporteCompensacionREAGYP_Specified(Index: Integer): boolean;
    procedure SetBienInversion(Index: Integer; const ABienInversionType: BienInversionType);
    function  BienInversion_Specified(Index: Integer): boolean;
  published
    property TipoImpositivo:            Tipo2_2Type         Index (IS_OPTN) read FTipoImpositivo write SetTipoImpositivo stored TipoImpositivo_Specified;
    property BaseImponible:             ImporteSgn12_2Type  read FBaseImponible write FBaseImponible;
    property CuotaSoportada:            ImporteSgn12_2Type  Index (IS_OPTN) read FCuotaSoportada write SetCuotaSoportada stored CuotaSoportada_Specified;
    property TipoRecargoEquivalencia:   Tipo2_2Type         Index (IS_OPTN) read FTipoRecargoEquivalencia write SetTipoRecargoEquivalencia stored TipoRecargoEquivalencia_Specified;
    property CuotaRecargoEquivalencia:  ImporteSgn12_2Type  Index (IS_OPTN) read FCuotaRecargoEquivalencia write SetCuotaRecargoEquivalencia stored CuotaRecargoEquivalencia_Specified;
    property PorcentCompensacionREAGYP: Tipo2_2Type         Index (IS_OPTN) read FPorcentCompensacionREAGYP write SetPorcentCompensacionREAGYP stored PorcentCompensacionREAGYP_Specified;
    property ImporteCompensacionREAGYP: ImporteSgn12_2Type  Index (IS_OPTN) read FImporteCompensacionREAGYP write SetImporteCompensacionREAGYP stored ImporteCompensacionREAGYP_Specified;
    property BienInversion:             BienInversionType   Index (IS_OPTN) read FBienInversion write SetBienInversion stored BienInversion_Specified;
  end;

muli · #6 07-03-2024

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 [-]// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : https://sede.agenciatributaria.gob.e...Recibidas.wsdl
//  >Import : https://sede.agenciatributaria.gob.es/static_files/Sede/Procedimiento_ayuda/G417/FicherosSuministros/V_1_1/WSDL/SuministroFactRecibidas.wsdl>0
// Encoding : UTF-8
// Codegen  : [wfForceSOAP12+]
// Version  : 1.0
// (07/03/2024 13:50:02 - - $Rev: 113440 $)
// ************************************************************************ //

unit SuministroFactRecibidas;

interface

uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:RespuestaConsultaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaConsultaLR.xsd"[]
  // !:ConsultaLRFactInformadasProveedor - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/ConsultaLR.xsd"[]
  // !:RespuestaConsultaLRFactInformadasProveedor - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaConsultaLR.xsd"[]
  // !:ConsultaLRFactInformadasAgrupadasProveedor - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/ConsultaLR.xsd"[]
  // !:RespuestaConsultaLRFactInformadasAgrupadasProveedor - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaConsultaLR.xsd"[]
  // !:SuministroLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"[]
  // !:RespuestaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaSuministro.xsd"[]
  // !:BajaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"[]
  // !:RespuestaLRBajaFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaSuministro.xsd"[]
  // !:ConsultaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/ConsultaLR.xsd"[]


  // ************************************************************************ //
  // Namespace : https://www2.agenciatributaria.gob.e...Recibidas.wsdl
  // style     : ????
  // use       : ????
  // binding   : siiBinding
  // service   : siiService
  // port      : SuministroFactRecibidas
  // ************************************************************************ //
  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
  { siiSOAP }
  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.

keys · #7 07-03-2024

Pon 1.2 El fichero que se tiene que generar es mucho mas grande que lo que has puesto

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco	keys	Internet	4170	Hace 1 Semana 17:29:05
AEAT envio de datos vía Webservice problemas con WSDL	CelsoO	Internet	11	09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@	apicito	Internet	3	31-01-2017 11:25:28
Error en Webservice funcion envio de sms	webmasterplc	Delphi para la web	5	25-07-2013 20:10:29
Problemas con envío de XML a un WebService	davidvamo	Internet	1	13-02-2007 15:49:20