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

[ramherfer]

Empezado por seccion_31

Si, En principio es mucho más sencillo

Vas a la última factura o ticket generada y enviada y cargas los datos del registro inicial después añades tu factura o ticket y envías. No hay más.

Que la demo en facturas.xml tenga los datos mal puede ser.

Quizás tenga algún índice activo que habrá que quitar. No me acuerdo.

Reviso la demo.

Creo que el problema está en las series, ya que según esto:

Código Delphi [-]
      // cargar el archivo xml de facturas ya enviadas
      FacturasEnviadas.LoadFromFile( xmlFacturas );
      FacturasEnviadas.IndexFieldNames:='Emisor;NumSerieFactura';
      FacturasEnviadas.Active:=true;

lo esta haciendo bien por lógica ya que de un mismo emisor, la serie FA250092 (que es la anterior que debía seleccionar) está antes que la RF250003 que es la última y la que seleciona como factura anterior. Pero erróneo en la práctica ya que la anterior debiera ser la FA250092.

[seccion_31]

Empezado por ramherfer

Creo que el problema está en las series, ya que según esto:

Código Delphi [-]
      // cargar el archivo xml de facturas ya enviadas
      FacturasEnviadas.LoadFromFile( xmlFacturas );
      FacturasEnviadas.IndexFieldNames:='Emisor;NumSerieFactura';
      FacturasEnviadas.Active:=true;

lo esta haciendo bien por lógica ya que de un mismo emisor, la serie FA250092 (que es la anterior que debía seleccionar) está antes que la RF250003 que es la última y la que seleciona como factura anterior. Pero erróneo en la práctica ya que la anterior debiera ser la FA250092.

correcto, elimina la linea FacturasEnviadas.IndexFieldNames:='Emisor;NumSerieFactura'; y listo. en la practica ira a la ultima generada/enviada cronologicamente independiemente de su serie/numero. (la demo solo permite un emisor/OT.)



En la version 3, esa linea ya no estara.

Saludos !

entiendo que sin esa linea el encadenamiento esta correcto, huella y demas?

[ramherfer]

Empezado por seccion_31

correcto, elimina la linea FacturasEnviadas.IndexFieldNames:='Emisor;NumSerieFactura'; y listo. en la practica ira a la ultima generada/enviada cronologicamente independiemente de su serie/numero. (la demo solo permite un emisor/OT.)



En la version 3, esa linea ya no estara.

Saludos !

entiendo que sin esa linea el encadenamiento esta correcto, huella y demas?

de momento no. la última que tengo en facturas.xml está rechazada y no tiene huella, estoy probando con esa línea de definición del indice eliminada, pero en la primera prueba no "parece" estar funcionando bien

[seccion_31]

La demo no se cómo se comporta con facturas no aceptadas y huellas. En su envío, luego lo miro

Elimina facturas.xml y comienza otras pruebas

Saludos

[seccion_31]

La demo solo coloca y añade la huella en las facturas enviadas OK. El resto lo ignorara en su BD xml.

He tenido que modificar un poco el programa demo para que lo ordene cronologicamente bien. y envie como huella anterior la ultima aceptada. (que en una aplicacion real, seria la ultima generada).

Como digo es una demo.

Estas modificaciones iran en la version 3.0

[seccion_31]

donde si tiene un error es en la anulacion (DLL)


en la 3.0 estara corregido


pero si quereis corregirlo ya:


uverifactuFuncs.pas (D10):


reemplazar esta funcion:

function anulacionfactura_verifactu(sesion:integer; cabecera:TVeriFactuInicio; indice:integer):RegistroFacturaType;
var
    Factura             : RegistroFacturaType;
    Destinatario        : PersonaFisicaJuridicaType;
    ListaDestinatarios  : Destinatarios;
    ListaDesglose       : DesgloseType;
    DetalleDesglose     : DetalleType;
    XSDatetime          : TXSDatetime;

    j:integer;
    _huellaAnterior     : string;
    facturaRegistro     : TRegistrofactura;
begin
    facturaRegistro:=sesiones[sesion].facturas[indice];

    Factura := RegistroFacturaType.Create;

    Factura.RegistroAnulacion             := RegistroAnulacion.Create;
    Factura.RegistroAnulacion.IDVersion   := VersionType._1_0;

    Factura.RegistroAnulacion.IDFactura                               := IDFacturaExpedidaBajaType.Create;
    Factura.RegistroAnulacion.IDFactura.IDEmisorFacturaAnulada        := cabecera.emisor.nifEmisor;
    Factura.RegistroAnulacion.IDFactura.NumSerieFacturaAnulada        := facturaRegistro.numSerieFactura;
    Factura.RegistroAnulacion.IDFactura.FechaExpedicionFacturaAnulada := verifactuFecha( facturaRegistro.fechafactura ) ; // (dd-mm-yyyy)


    // Encadenamiento
    Factura.RegistroAnulacion.Encadenamiento := Encadenamiento2.Create;

    // ¿ es el primer registro ?
    if sesiones[sesion].facturas[indice-1].huella='' then Factura.RegistroAnulacion.Encadenamiento.PrimerRegistro:=PrimerRegistroCadenaType(0) // S
    else
    begin
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior:=EncadenamientoFacturaAnteriorType.Create;

           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.IDEmisorFactura         :=cabecera.emisor.nifEmisor;
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.NumSerieFactura         :=sesiones[sesion].facturas[indice-1].numSerieFactura;
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.FechaExpedicionFactura  :=sesiones[sesion].facturas[indice-1].fechaFactura;
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.Huella                  :=sesiones[sesion].facturas[indice-1].huella;
    end;

    // Sin registro previo: (anulacion de facturas fuera de verifactu)
    if sesiones[sesion].facturas[indice].sinregistroPrevio then
          Factura.RegistroAnulacion.SinRegistroPrevio:=SinRegistroPrevioType.S;

    // sistemaInformatico
    sistemaInformatico( cabecera, Factura );

    //XSDatetime
    XSDatetime := TXSDatetime.Create;
    XSDatetime.UseZeroMilliseconds := False;
    XSDatetime.AsDateTime := Now;
    XSDatetime.Millisecond := 0;
    XSDatetime.UseZeroMilliseconds := False;
    XSDatetime.FractionalSeconds := 0;
    Factura.RegistroAnulacion.FechaHoraHusoGenRegistro := XSDatetime; // Formato: YYYY-MM-DDThh:mm:ssTZD (ej: 2024-01-01T19:20:30+01:00) (ISO 8601)

    // Huella
    facturaRegistro.Huella  := GenerarHuella_anulacion_RegistroVerifactu( Factura.RegistroAnulacion );
    sesiones[sesion].facturas[indice].huella:=facturaRegistro.Huella;

    Factura.RegistroAnulacion.TipoHuella := TipoHuellaType._01;
    Factura.RegistroAnulacion.Huella     := facturaRegistro.Huella;

    // fin, devolver el objeto  RegistroFacturacionAnulacionType  creado desde la informacion contenida en el record TRegistroFactura (ver utiles.pas)
    result:=factura;
end;

[ramherfer]

Empezado por seccion_31

donde si tiene un error es en la anulacion (DLL)


en la 3.0 estara corregido


pero si quereis corregirlo ya:


uverifactuFuncs.pas (D10):


reemplazar esta funcion:

function anulacionfactura_verifactu(sesion:integer; cabecera:TVeriFactuInicio; indice:integer):RegistroFacturaType;
var
    Factura             : RegistroFacturaType;
    Destinatario        : PersonaFisicaJuridicaType;
    ListaDestinatarios  : Destinatarios;
    ListaDesglose       : DesgloseType;
    DetalleDesglose     : DetalleType;
    XSDatetime          : TXSDatetime;

    j:integer;
    _huellaAnterior     : string;
    facturaRegistro     : TRegistrofactura;
begin
    facturaRegistro:=sesiones[sesion].facturas[indice];

    Factura := RegistroFacturaType.Create;

    Factura.RegistroAnulacion             := RegistroAnulacion.Create;
    Factura.RegistroAnulacion.IDVersion   := VersionType._1_0;

    Factura.RegistroAnulacion.IDFactura                               := IDFacturaExpedidaBajaType.Create;
    Factura.RegistroAnulacion.IDFactura.IDEmisorFacturaAnulada        := cabecera.emisor.nifEmisor;
    Factura.RegistroAnulacion.IDFactura.NumSerieFacturaAnulada        := facturaRegistro.numSerieFactura;
    Factura.RegistroAnulacion.IDFactura.FechaExpedicionFacturaAnulada := verifactuFecha( facturaRegistro.fechafactura ) ; // (dd-mm-yyyy)


    // Encadenamiento
    Factura.RegistroAnulacion.Encadenamiento := Encadenamiento2.Create;

    // ¿ es el primer registro ?
    if sesiones[sesion].facturas[indice-1].huella='' then Factura.RegistroAnulacion.Encadenamiento.PrimerRegistro:=PrimerRegistroCadenaType(0) // S
    else
    begin
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior:=EncadenamientoFacturaAnteriorType.Create;

           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.IDEmisorFactura         :=cabecera.emisor.nifEmisor;
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.NumSerieFactura         :=sesiones[sesion].facturas[indice-1].numSerieFactura;
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.FechaExpedicionFactura  :=sesiones[sesion].facturas[indice-1].fechaFactura;
           Factura.RegistroAnulacion.Encadenamiento.RegistroAnterior.Huella                  :=sesiones[sesion].facturas[indice-1].huella;
    end;

    // Sin registro previo: (anulacion de facturas fuera de verifactu)
    if sesiones[sesion].facturas[indice].sinregistroPrevio then
          Factura.RegistroAnulacion.SinRegistroPrevio:=SinRegistroPrevioType.S;

    // sistemaInformatico
    sistemaInformatico( cabecera, Factura );

    //XSDatetime
    XSDatetime := TXSDatetime.Create;
    XSDatetime.UseZeroMilliseconds := False;
    XSDatetime.AsDateTime := Now;
    XSDatetime.Millisecond := 0;
    XSDatetime.UseZeroMilliseconds := False;
    XSDatetime.FractionalSeconds := 0;
    Factura.RegistroAnulacion.FechaHoraHusoGenRegistro := XSDatetime; // Formato: YYYY-MM-DDThh:mm:ssTZD (ej: 2024-01-01T19:20:30+01:00) (ISO 8601)

    // Huella
    facturaRegistro.Huella  := GenerarHuella_anulacion_RegistroVerifactu( Factura.RegistroAnulacion );
    sesiones[sesion].facturas[indice].huella:=facturaRegistro.Huella;

    Factura.RegistroAnulacion.TipoHuella := TipoHuellaType._01;
    Factura.RegistroAnulacion.Huella     := facturaRegistro.Huella;

    // fin, devolver el objeto  RegistroFacturacionAnulacionType  creado desde la informacion contenida en el record TRegistroFactura (ver utiles.pas)
    result:=factura;
end;

En la anulación me devuelve esto

<Encadenamiento>
<RegistroAnterior>
<IDEmisorFactura>25000000Z</IDEmisorFactura>
<NumSerieFactura>37734AAA13D8E2D74A4FBDDAD7B34C4EA026C3112A80334FFEDC500ADFDE0128</NumSerieFactura>
<FechaExpedicionFactura>04/04/2025</FechaExpedicionFactura>
<Huella>37734AAA13D8E2D74A4FBDDAD7B34C4EA026C3112A80334FFEDC500ADFDE0128</Huella>
</RegistroAnterior>
</Encadenamiento>

he comprobado y en VerifactuD7.addRegistroInicial(factura,fecha,huella)
Le estoy pasando los parametros correctos, pero la simulación me graba esos datos en el registro de anulación. Estoy dando de baja una factura enviada ayer.

En las altas funciona bien.