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

[[fjcg02]]

Tienes que analizar las funciones que te proporciona la unidad que te ha creado.
Con esas funciones, tendrás que saber qué parámetros necesitas y de qué tipo son. Con ellas deberás de ser capaz de conectarte, hacer login, hacer peticiones de información, hacer subidas de información, ... y además saber qué códigos devuelve cada una de ellas para saber si han ido bien o mal.

En los casos en que los he utilizado, siempre revisando la documentación, hago lo siguiente:
url de conexión, la que te diga la documentación.
certificado o nombre de usuario, o lo que sea.
crear la variable que devuelve los datos. Si es un string, posteriormente hay que pasarla a xml o lo que necesites en tu caso.

El proceso suele ser así:
datos de conexión. La url que te digan. No es la ".wsdl", será algo así
https://www.agencia.factura:8080/services/facturae
Login, a través de la función/funciones de la unidad que has creado.
Si va bien, hacer petición. El resultado suele quedar en una variable. tendrás funciones en la unidad que has creado.
procesar variable. Este tema ya es tuyo, lo que quieras hacer.
desconexión. a través de las funciones de la nueva unidad.

Yo creo que no tienes que utilizar ningún componente HTTPRIO1.

Si puedes publicar la unidad que te ha creado, te podemos dar pistas de por dónde pegan los tiros. Pero como ya he comentado, hay que tirar de documentación.

Un saludo

[[newtron]]

Ok, imagino que esto será de dominio público.

La unidad tiene así como 6600 líneas y no puedo pegarla aquí, la adjunto aquí.

Gracias y un saludo

[bucanero]

Hola foro,

Voy a intentar aportar algo al respecto, no uso ese WS de la AEAT por lo que no se exactamente los parámetros que hay que rellenar, pero si he importado WS de otros portales con un funcionamiento parecido.

Tras importar el WS del link de la AEAT y generar la correspondiente unit, el funcionamiento debería de ser algo así:

Código Delphi [-]
var
  ASuministroLRFacturasEmitidas:SuministroLRFacturasEmitidas;
  ARegistroLRFacturasEmitidas:Array_Of_LRfacturasEmitidasType;
begin
  try
    //se crea un array con el numero de facturas que se van a emitir
    //en este ejemplo solo 1, pero pueden ser mas
    SetLength(ARegistroLRFacturasEmitidas, 1);

    //se introducen los datos de cada una de las facturas
    ARegistroLRFacturasEmitidas[0].IDFactura:='tu  numero de factura';

    // ... rellenar aqui el resto de datos necesarios
    ARegistroLRFacturasEmitidas[0].FacturaExpedida.  := ... ;
    ARegistroLRFacturasEmitidas[0].PeriodoImpositivo. := ... ; 
    



    //se crea el objeto que se va a enviar
    ASuministroLRFacturasEmitidas := SuministroLRFacturasEmitidas.Create;
    ASuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon:='tu nombre';
    ASuministroLRFacturasEmitidas.Cabecera.Titular.NIF:='tu nif';

    //Un valor de la lista TipoComuniacion. Ver en la documentacion
    ASuministroLRFacturasEmitidas.Cabecera.TipoComunicacion:='A4';

    //se añade el array de facturas creado anteriormente
    ASuministroLRFacturasEmitidas.RegistroLRFacturasEmitidas:=ARegistroLRFacturasEmitidas;

    try
      // se hace la llamada a la funcion suministrada por el WS
      GetsiiSOAP.SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);
    except
      On E:Exception do
        //El proceso de envio dio error
        MessageDlg(E.Message, mtError, [mbOK], 0);
    end;
  finally
    // se eliminan los objetos creados
    ASuministroLRFacturasEmitidas.Free;
    setLength(ARegistroLRFacturasEmitidas, 0);
  end;
end;

Espero que esto pueda aportar algo de luz al tema

Un Saludo

[[newtron]]

Gracias bucanero.

Haré pruebas con ese código a ver qué pasa.

Saludos

[RUBEN_SP]

Hola Newtron. Tengo el mismo problema que tu.

Probaste el código de Bucanero? Que Tal?

Saludos

[[newtron]]

Hola.

Estoy haciendo pruebas y creo que los tiros no van exactamente por ahí, lo que hay que enviar son ficheros XML (creo). De una forma o de otra, cuando intento ejecutar el código que amablemente nos ha puesto el colega bucanero no me compila, en la primera línea:

Código Delphi [-]
    //se introducen los datos de cada una de las facturas
    ARegistroLRFacturasEmitidas[0].IDFactura:='tu  numero de factura';

me da el error: E2010 Incompatible types: 'IDFacturaExpedidaType' and 'string'

... sigo probando.

[Casimiro Notevi]

¿Puede ser un identificador de la factura, no el número en sí, y que luego habrá otro campo para el número?

ARegistroLRFacturasEmitidas[0].IDFactura:=1;
ARegistroLRFacturasEmitidas[0].¿NumFactura?:='A123';

Solo es una suposición.

[Neftali [Germán.Estévez]]

Empezado por newtron

me da el error: E2010 Incompatible types: 'IDFacturaExpedidaType' and 'string'

¿Puede ser porque el IDFactura no es un tipo simple?
Tal y como está en el documento que han adjuntado más arriba...

Código Delphi [-]
  LRfacturasEmitidasType = class(RegistroSii)
  private
    FIDFactura: IDFacturaExpedidaType;
    FFacturaExpedida: FacturaExpedidaType;
  public
    destructor Destroy; override;
  published
    property IDFactura:       IDFacturaExpedidaType  read FIDFactura write FIDFactura;
    property FacturaExpedida: FacturaExpedidaType    read FFacturaExpedida write FFacturaExpedida;
  end;

Y el tipo IDFacturaExpedidaType está definido tal que así:

Código Delphi [-]

  // ************************************************************************ //
  // XML       : IDFacturaExpedidaType, global, 
  // Namespace : https://www2.agenciatributaria.gob.e...nformacion.xsd
  // ************************************************************************ //
  IDFacturaExpedidaType = class(TRemotable)
  private
    FIDEmisorFactura: IDEmisorFactura3;
    FNumSerieFacturaEmisor: TextoIDFacturaType;
    FNumSerieFacturaEmisorResumenFin: TextoIDFacturaType;
    FNumSerieFacturaEmisorResumenFin_Specified: boolean;
    FFechaExpedicionFacturaEmisor: fecha;
    procedure SetNumSerieFacturaEmisorResumenFin(Index: Integer; const ATextoIDFacturaType: TextoIDFacturaType);
    function  NumSerieFacturaEmisorResumenFin_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property IDEmisorFactura:                 IDEmisorFactura3    read FIDEmisorFactura write FIDEmisorFactura;
    property NumSerieFacturaEmisor:           TextoIDFacturaType  read FNumSerieFacturaEmisor write FNumSerieFacturaEmisor;
    property NumSerieFacturaEmisorResumenFin: TextoIDFacturaType  Index (IS_OPTN) read FNumSerieFacturaEmisorResumenFin write SetNumSerieFacturaEmisorResumenFin stored NumSerieFacturaEmisorResumenFin_Specified;
    property FechaExpedicionFacturaEmisor:    fecha               read FFechaExpedicionFacturaEmisor write FFechaExpedicionFacturaEmisor;
  end;

Es un comentario.