Demo con código Verifactu.dll para (delphi 7)

[DarkDudae]

Empezado por seccion_31

buenos dias !

Ya tengo disponible una version mas que funcional del componente y servidor de mensajes para D7.

Incluyo la version compilada y codigo fuente del servidor en B10.

Muchas gracias por el código.
Lo estudiaré en profundidad, pero tiene muy buena pinta. En un principio pensé en hacerme un ejecutable o un servicio completo que fuese mirando en la BD cada X segundos si hay alguna factura nueva a enviar, pero con el tema de generar el QR para los tickets, algo de envío directo con un componente se hace más práctico.

[seccion_31]

Buenos dias !

Registro que carga la factura, podeis verlo en la unidad: utiposVerifactu y necesario para añadir las facturas al envio.

  TRegistroFactura=record
        sesion          :integer;          // no tocar
        nfactura        :integer;          // no tocar


        numSerieFactura :string[60];
        fechaFactura    :string[10];
        alta_baja       :string[1];       // "A"lta, o "B"aja

        DescripcionOperacion:TMyString;

        cliente         :string[120];
        clienteNIF      :string[20];      // 9 (nif) ... 20 (otros docs.)
        clientetipoNIF  :string[2];       // si se deja en blanco se determinara segun el pais
        clienteCodPais  :string[2];       // si se deja en blanco se considerara ES

        canarias        :boolean;         // = true si de canarias

        nivas : integer;
        iva   : array[0..maxivas] of TRegistroFacturaIVAS;

        cuotatotal, total:currency;

        situacion :TMyString;

        huella    :TMyString;

        facturaRectificada      :string[60];  // nº serie factura rectificada
        fechaFacturaRectificada :string[10];  // fecha
    end;

Los campos:

clientetipoNIF :string[2]; // si se deja en blanco se determinara segun el pais
clienteCodPais :string[2]; // si se deja en blanco se considerara ES
canarias :boolean; // = true si de canarias

Son opcionales, es decir si no se envia el clienteTipoNIF se determinara segun el pais, (lista de paises comunitarios o exportacion):

  country_ue:array[0..26] of string=('DE','AT','BE','BG','CY','HR','DK','SI','ES','EE','FI',
                                 'FR','GR','HU','IE','IT','LV','LT','LU','MT','NL','PL',
                                 'PT','CZ','SK','RO','SE');

Si no hay pais en clienteCodPais, se considerara ES

y Canarias si es un cliente canario.

La huella en la factura actual la calculara el componente.

Situacion: No se utiliza, que recuerde.

Asi que basicamente es limitarse a cumplimentar los datos basicos de una factura en la factura actual.



En la factura anterior, es identificarla, NO hace falta cargar todos los datos:

Numeroserie
Fecha
Huella

Si la factura anterior se encuentra entre las emitidas del envio, la huella la colocara el componente, solo necesaria si esta fuera del paquete de envio. Por ello una vez transmitida la factura hay que guardar su huella y sobre todo el CSV devuelto.

Saludos !