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

[seccion_31]

La 4.8 tiene un error, en la generacion de facturas F3 descubierto por matorral (gracias!)

Debe quedar asi, el extracto de codigo que la genera:

Código Delphi [-]
// tipo F3, si hay factura sustituida
    if facturaRegistro.nSustituye>0  then
    begin
        Factura.RegistroAlta.TipoFactura := ClaveTipoFacturaType.F3;

        // puse aqui el create de facturasSustituidas
        facturasSustituidas:=FacturasSustituidas2.create();

        for j:=0 to facturaRegistro.nSustituye-1 do
        begin
//            facturasSustituidas:=FacturasSustituidas2.create();
            facturaSustiuida:=IDFacturaARType.Create;

            facturaSustiuida.IDEmisorFactura       :=cabecera.emisor.nifEmisor;
            facturaSustiuida.NumSerieFactura       :=facturaRegistro.sustituyeTicketF3[j].NumSerieTicket;
            facturaSustiuida.FechaExpedicionFactura:=verifactuFecha(facturaRegistro.sustituyeTicketF3[j].fechaTicket);

            setlength(facturasSustituidas,j+1);
            facturasSustituidas[ High(facturasSustituidas ) ]:=facturaSustiuida;

        end;

        Factura.RegistroAlta.FacturasSustituidas:=facturasSustituidas;
    end;

Unidad: uVerifactuFuncs

Funcion: altafactura_F1_F2_F3_R4_R5_verifactu


Con esto queda solucionado: ira a compilacion en la 5.0 que incorporara como digo una versión temprana del interface con generación de facturaE

Si alguien lo necesita YA y no puede recompilar la DLL, que me escriba.


La próxima 5.0 FacturaE ya tiene alta (validado), rectificativa(validado), anulación(por validar) en una versión temprana, para facturas nacionales.


Saludos !

: )