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

[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.

[seccion_31]

Empezado por ramherfer

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.

con la correccion que envie sobre la DLL deberia quedar solucionado. Usando la demo hice una baja sin problema. Estaba enviado como se ve en tu registro la huella como numserie.

slds

[ramherfer]

Empezado por seccion_31

con la correccion que envie sobre la DLL deberia quedar solucionado. Usando la demo hice una baja sin problema. Estaba enviado como se ve en tu registro la huella como numserie.

slds

Correcto con la corrección la anulación funciona correctamente.
¡Gracias!