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!

[seccion_31]

nueva version 3.0

En espera de su publicacion

> Nota general:



ATENCION:
Con cada cambio, aseguraos que la unidad del componente en delphi 7 es recompilada, de lo contrario tendreis una unidad TVerifactu
desactualizada contra una DLL que usa tipos distintos, por tanto dara errores de proteccion general.


version 3.0
----------------------------------------------------------------------------------------------------------------------------
Se reducen las sesiones de 10 a 6.

Nuevo:

Tras el envio, y/o en el evento es posible consultar el resultado de la automatizacion:

TRegistroFacturaStatus=record
exenta :boolean; <- hay valores en record de exentas
canarias :boolean; <- ha sido clasificada como canarias, ceuta, o melilla
sujetopasivo:boolean; <- ha sido marcada como sujeto pasivo
cee :boolean; <- ha sido enviada como cee
exporta :boolean; <- ha sido enviada como exportacion
end;

por ejemplo:

if resultado.facturas[1].status.canarias then ....



En consultas ahora se devuelve correctamente CLIENTENIF cuando se trata de una factura con IDOtro. (exportacion y cee)

Modificada incidencia de string a boolean en el resultado de consulta por cada factura.

Añadida informacion sobre incidencia, en el resultado de facturas tras un envio:

Por cada factura, se devuelve el campo incidencia informado SOLO para esa factura (que afectara a todo el envio), en el elemento del array de cada factura
En el conjunto del envio, el campo incidenciaEnvio ya que se informo al menos 1 factura con incidencia ese "pack" de envio.


---> Evento para recibir las facturas consultadas:

TRegistroConEvent = procedure( Sender: TObject; resultadoConsulta:TConsultaCallBack ) of object;

Permite recibir mas alla de las 1000 facturas contenidas en el array, hasta las 10.000 de la primera pagina de la AEAT
Todavia se mantiene la recepcion de las 1000 primeras via array, pero se puede implementar el evento.

La Demo D7 se ha actualizado para mostrar el uso de eventos, con una pestaña nueva.

Se pueden enviar 1000 facturas, con descripcion de operacion de 500 digitos.

En la consulta, la descripcion de operacion recibida/consultada se reduce a 255 digitos, tanto por evento como por array.


---> Evento para recibir el resultado de las facturas enviadas:

Permite recibir factura a factura en un evento su estado tras el envio
Todavia se mantiene el array del resultado de facturas enviadas, pero ademas se puede implementar el evento.

TRegistroResEvent = procedure( Sender: TObject; resultadoEnvio:TResultadoCallBack ) of object;

En la demo hay un ejemplo de implementacion.

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

Ya está publicada la versión 3.0 en el FTP del club.

[seccion_31]

TRegistroFacturaStatus:

empezamos bien:

para que funcione correctamente el tema del status segun la automatizacion ejecutada por el componente, algo que puede venir bien para documentar el registro, hay que cambiar esto en

la unidad uverifactuFuncs (D10) y recompilar la DLL

El resto de funciones estan correctas. Este cambio y otros apareceran la semana que viene en el 3.1

procedure clearStatus(sesion, indice:integer);
begin
    sesiones[sesion].status[indice].exenta      :=false;
    sesiones[sesion].status[indice].canarias    :=false;
    sesiones[sesion].status[indice].sujetoPasivo:=false;
    sesiones[sesion].status[indice].cee         :=false;
    sesiones[sesion].status[indice].exporta     :=false;
end;

y

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

    FacturaRegistro     : TRegistroFactura;

    rectificadasArray   :  FacturasRectificadas2;
    rectificada         :  IDFacturaARType;

    j:integer;
begin
    FacturaRegistro:=sesiones[sesion].facturas[indice];
    clearStatus(sesion, indice);

    Factura := RegistroFacturaType.Create;

    Factura.RegistroAlta            := RegistroAlta.Create;
    Factura.RegistroAlta.IDVersion  := SistemaFacturacion.VersionType(0);


    Factura.RegistroAlta.NombreRazonEmisor                := cabecera.emisor.NombreRazonEmisor;
    Factura.RegistroAlta.IDFactura                        := IDFacturaExpedidaType.Create;
    Factura.RegistroAlta.IDFactura.IDEmisorFactura        := cabecera.emisor.nifEmisor;

    Factura.RegistroAlta.IDFactura.NumSerieFactura        := facturaRegistro.numSerieFactura;
    Factura.RegistroAlta.IDFactura.FechaExpedicionFactura := verifactuFecha( facturaRegistro.fechafactura ) ; // (dd-mm-yyyy)
    Factura.RegistroAlta.DescripcionOperacion             := facturaRegistro.DescripcionOperacion;

    if facturaRegistro.subsanacion then
        Factura.RegistroAlta.Subsanacion:=SubsanacionType.S;

    if facturaRegistro.rechazoPrevioExiste then
        Factura.RegistroAlta.RechazoPrevio:=RechazoPrevioType.S;

    if facturaRegistro.rechazoPrevioNoExiste then
        Factura.RegistroAlta.RechazoPrevio:=RechazoPrevioType.X;

    if facturaRegistro.refExterna<>'' then  // informacion libre
        Factura.RegistroAlta.RefExterna := facturaRegistro.refExterna;

    // 1 destinatario (cliente):
    if facturaRegistro.clienteNIF<>'' then        // es una factura con destinatario TIPO F1
    begin
        if facturaRegistro.total<0 then
          Factura.RegistroAlta.TipoFactura := ClaveTipoFacturaType.R4
        else
          Factura.RegistroAlta.TipoFactura := ClaveTipoFacturaType.F1;

        Destinatario                     := PersonaFisicaJuridicaType.Create;
        Destinatario.NombreRazon         := facturaRegistro.cliente;

        // si no es españa puede ser comunitario o exportacion
        if facturaRegistro.clienteCodPais<>'ES' then
        begin
            Destinatario.IDOtro             := IDOtroType.Create;
            Destinatario.IDOtro.CodigoPais  := verifactu_codigoPais( facturaRegistro.clienteCodPais );

            if facturaRegistro.clientetipoNIF<>'' then
                Destinatario.IDOtro.IdType  := verifactu_tipoNIF   ( facturaRegistro.clientetipoNIF )
            else
            begin
                 if CodpaisEuropea(facturaRegistro.clienteCodPais) then
                    Destinatario.IDOtro.IdType :=PersonaFisicaJuridicaIDTypeType._02
                 else
                    Destinatario.IDOtro.IdType :=PersonaFisicaJuridicaIDTypeType._06;
            end;
            Destinatario.IDOtro.ID          := facturaRegistro.clienteNIF;
        end
        else
            Destinatario.NIF                 := facturaRegistro.clienteNIF;   // España

        // El destinatario (cliente) a la lista  (solo 1 cliente x factura)
        ListaDestinatarios:= destinatarios2.Create();
        SetLength(ListaDestinatarios, 1);
        ListaDestinatarios[0]               := Destinatario;
        Factura.RegistroAlta.Destinatarios  := ListaDestinatarios;
    end
    else        // Es un ticket o factura F2 con el cliente sin identificar
    begin
        if facturaRegistro.total<0 then
            Factura.RegistroAlta.TipoFactura := ClaveTipoFacturaType.R5
        else
            Factura.RegistroAlta.TipoFactura := ClaveTipoFacturaType.F2;

        Factura.RegistroAlta.FacturaSinIdentifDestinatarioArt61d:=CompletaSinDestinatarioType.S;
    end;

    // Desglose de iva y exenciones: (Nacional, Comunitario, o Exportacion)
    ListaDesglose := DesgloseType.Create();

    // Exenciones
    for j:=0 to facturaRegistro.nexentas-1 do      // x cada exencion
    begin
         if (facturaRegistro.exenta[j].baseImp<>0)and(facturaRegistro.exenta[j].tipoExenta<>'') then
         begin
             DetalleDesglose:= DetalleType.Create;

             if facturaRegistro.exenta[j].claveRegimen<>'' then
               DetalleDesglose.ClaveRegimen         :=codigoTrascendencia_verifactu( facturaRegistro.exenta[j].claveRegimen);

             if facturaRegistro.exenta[j].calificacionOperacion<>'' then
               DetalleDesglose.CalificacionOperacion:=codigoCalificacion_verifactu( facturaRegistro.exenta[j].calificacionOperacion );

             DetalleDesglose.OperacionExenta      :=codigoExenta_verifactu(facturaRegistro.exenta[j].tipoExenta);

             DetalleDesglose.BaseImponibleOimporteNoSujeto := NumeroVeriFactu( facturaRegistro.exenta[j].baseImp );

             sesiones[sesion].status[indice].exenta:=true;

             // colocar el desglose en la lista
             SetLength( ListaDesglose, Length(ListaDesglose) +1 );
             ListaDesglose[ High(ListaDesglose ) ] := DetalleDesglose ;
         end;
    end;

    // IVA
    for j:=0 to facturaRegistro.nivas-1 do      // x cada iva:
    Begin
          DetalleDesglose              := DetalleType.Create;

          DetalleDesglose.ClaveRegimen := IdOperacionesTrascendenciaTributariaType._01;

          // Tipo de calificacion y exenta segun pais
          if facturaRegistro.clienteCodPais='ES' then          // España:
          begin
              if not facturaRegistro.canarias then            // Si no es canarias:
              begin
                        // ¿inversion del sujeto pasivo?
                        if NOT facturaRegistro.inversionSujetoPasivo then // Factura Normal
                        begin
                            DetalleDesglose.CalificacionOperacion         := CalificacionOperacionType.S1;

                            DetalleDesglose.TipoImpositivo                := NumeroVeriFactu( facturaRegistro.iva[j].iva );
                            DetalleDesglose.CuotaRepercutida              := NumeroVeriFactu( facturaRegistro.iva[j].impiva );

                            if facturaRegistro.iva[j].req<>0 then  // ¿ lleva recargo de equivalencia ?
                            begin
                                DetalleDesglose.ClaveRegimen                  :=IdOperacionesTrascendenciaTributariaType._18;
                                DetalleDesglose.TipoRecargoEquivalencia       := NumeroVeriFactu( facturaRegistro.iva[j].req );
                                DetalleDesglose.CuotaRecargoEquivalencia      := NumeroVeriFactu( facturaRegistro.iva[j].impreq );
                            end;
                        end
                        else   // Con inversion del sujeto pasivo
                        begin
                            sesiones[sesion].status[indice].sujetopasivo       :=true;
                            DetalleDesglose.CalificacionOperacion         := CalificacionOperacionType.S2;
                            DetalleDesglose.TipoImpositivo                := NumeroVeriFactu( 0 );
                            DetalleDesglose.CuotaRepercutida              := NumeroVeriFactu( 0 );
                        end;
              end
              else  // caso especifico Canarias ceuta y melilla entrega de bienes
              begin
                   DetalleDesglose.ClaveRegimen     := IdOperacionesTrascendenciaTributariaType._02;
                   DetalleDesglose.OperacionExenta  := OperacionExentaType.E2;
              end;
          end
          else  // exportacion o comunidad Europea
          begin
              DetalleDesglose.OperacionExenta:= verifactu_tipoDesglose( facturaRegistro.clienteCodPais );

              if DetalleDesglose.OperacionExenta=OperacionExentaType.E5 then // UE
              begin
                   sesiones[sesion].status[indice].cee:=true;
                   DetalleDesglose.ClaveRegimen := IdOperacionesTrascendenciaTributariaType._01;
              end;

              if DetalleDesglose.OperacionExenta=OperacionExentaType.E2 then // Exportacion fuera de la UE
              begin
                   sesiones[sesion].status[indice].exporta:=true;
                   DetalleDesglose.ClaveRegimen := IdOperacionesTrascendenciaTributariaType._02;
              end;
          end;

          // Base Imponible
          DetalleDesglose.BaseImponibleOimporteNoSujeto := NumeroVeriFactu( facturaRegistro.iva[j].baseImp );

          // colocar el desglose en la lista
          SetLength( ListaDesglose, Length(ListaDesglose) +1 );
          ListaDesglose[ High(ListaDesglose ) ] := DetalleDesglose ;
      end;
      // asignar los desgloses de iva recien creados, al objeto de factura:
      Factura.RegistroAlta.Desglose:= ListaDesglose;

      // totales de factura ¿inversion sujeto pasivo?
      if NOT facturaRegistro.inversionSujetoPasivo then // Factura Normal
      begin
          Factura.RegistroAlta.CuotaTotal   := NumeroVeriFactu(  facturaRegistro.cuotatotal ) ;
          Factura.RegistroAlta.ImporteTotal := NumeroVeriFactu(  facturaRegistro.total );
      end
      else
      begin
          Factura.RegistroAlta.CuotaTotal   := NumeroVeriFactu( 0 );  // inversion sujeto pasivo
          Factura.RegistroAlta.ImporteTotal := NumeroVeriFactu( facturaRegistro.iva[0].baseImp );
      end;


      // factura rectificada: (1 x factura)
      if facturaRegistro.total <0 then
      begin
          setLength(rectificadasArray,1);
          rectificada:=IDFacturaARType.Create;

          rectificada.IDEmisorFactura       :=cabecera.emisor.nifEmisor;
          rectificada.NumSerieFactura       :=facturaRegistro.facturaRectificada;
          rectificada.FechaExpedicionFactura:=facturaRegistro.fechaFacturaRectificada;

          rectificadasArray[0]:=rectificada;

          Factura.RegistroAlta.FacturasRectificadas :=rectificadasArray;
          Factura.RegistroAlta.TipoRectificativa    :=ClaveTipoRectificativaType(1);
      end;

      // Encadenamiento con factura anterior
      Factura.RegistroAlta.Encadenamiento := Encadenamiento3.Create;

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

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

    // sistemaInformatico
    sistemaInformatico( cabecera, Factura );

    // XSDatetime
    XSDatetime := TXSDatetime.Create;
    XSDatetime.UseZeroMilliseconds := False;
    XSDatetime.AsDateTime := Now;
    XSDatetime.Millisecond := 0;
    XSDatetime.UseZeroMilliseconds := False;
    XSDatetime.FractionalSeconds := 0;


    Factura.RegistroAlta.FechaHoraHusoGenRegistro := XSDatetime; // Formato: YYYY-MM-DDThh:mm:ssTZD (ej: 2024-01-01T19:20:30+01:00) (ISO 8601)

    // Huella
    Factura.RegistroAlta.TipoHuella := TipoHuellaType._01;

    Factura.RegistroAlta.Huella             := GenerarHuella_alta_RegistroVerifactu(sesion,indice,Factura.RegistroAlta);
    sesiones[sesion].facturas[indice].huella:=Factura.RegistroAlta.Huella;

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

[seccion_31]

Generacion de huella

este es un tema sobre el que tengo dudas.

el componente, genera la huella durante el envio de la factura. Si enviamos en el momento de hacer la factura, no hay problema. La huella generada coincide con la generacion de la factura.

Si la factura no pasa (por motivos tecnicos, fallo de la AEAT o de internet), no se cambia nada de la factura, y se reenvia de nuevo, se generara otra huella con la fecha y hora actualizadas. Que podria diferir del momento de la generacion de la factura.

( Eso si: si la fecha de la factura es distinta a la actual se activara el flag de incidencia, pero con una fecha de generacion de registro actual que NO coincidira con la fecha de la factura )

[ramherfer]

Empezado por seccion_31

Generacion de huella

este es un tema sobre el que tengo dudas.

el componente, genera la huella durante el envio de la factura. Si enviamos en el momento de hacer la factura, no hay problema. La huella generada coincide con la generacion de la factura.

Si la factura no pasa (por motivos tecnicos, fallo de la AEAT o de internet), no se cambia nada de la factura, y se reenvia de nuevo, se generara otra huella con la fecha y hora actualizadas. Que podria diferir del momento de la generacion de la factura.

( Eso si: si la fecha de la factura es distinta a la actual se activara el flag de incidencia, pero con una fecha de generacion de registro actual que NO coincidira con la fecha de la factura )

Habiendo revisado la documentación y teniendo en cuenta que no es un reenvio, sino que en el intento anterior por algún motivo, no pudo hacerlo. La huella debería ser la misma que en el primer intento y debiendo coincidir con el envio que se complete, ya que esa coincidiría la fecha de expedición y la de generación (entrada en nuestro registro SIF - primer intento -). Yo genero el registro SIF pero por motivos ajenos al sistema de facturación, no puedo enviar el registro.

Es como lo entiendo y veo. Por favor corregirme si estoy en un error.
Un saludo,

[[newtron]]

Empezado por seccion_31

Generacion de huella

este es un tema sobre el que tengo dudas.

el componente, genera la huella durante el envio de la factura. Si enviamos en el momento de hacer la factura, no hay problema. La huella generada coincide con la generacion de la factura.

Si la factura no pasa (por motivos tecnicos, fallo de la AEAT o de internet), no se cambia nada de la factura, y se reenvia de nuevo, se generara otra huella con la fecha y hora actualizadas. Que podria diferir del momento de la generacion de la factura.

( Eso si: si la fecha de la factura es distinta a la actual se activara el flag de incidencia, pero con una fecha de generacion de registro actual que NO coincidira con la fecha de la factura )

Yo creo que, aunque no se pueda enviar la factura por lo que sea, la huella no habría que cambiarla. La factura se ha emitido en un momento determinado y eso no se debería de cambiar. Yo en particular no cambio absolutamente nada de la factura aunque la envíe más tarde, lo único es el parámetro de incidencia si veo que se retrasa más de lo estipulado.


Saludos.

[seccion_31]

Empezado por newtron

Yo creo que, aunque no se pueda enviar la factura por lo que sea, la huella no habría que cambiarla. La factura se ha emitido en un momento determinado y eso no se debería de cambiar. Yo en particular no cambio absolutamente nada de la factura aunque la envíe más tarde, lo único es el parámetro de incidencia si veo que se retrasa más de lo estipulado.


Saludos.

si, yo pienso lo mismo. De ahi mis dudas. (gracias)

hare pruebas, en principio se me ha ocurrido:

1) un evento que se enviara al calcular la huella de una factura, asi pase lo que pase, siempre se podra guardar, y/o bien al añadir la factura. (ya hay una funcion sin uso, que podria hacer eso)

(es mas seguro guardar la huella antes del envio, que recogerla tras el envio como se hace ahora)

2) al añadir la factura, se adjunta la huella archivada (lo cual indicaria de facto una incidencia), o no se adjunta, lo cual indicaria que es la primera vez que se intenta enviar, por tanto se enviara el evento.

3) enviar con incidencia o no segun ocurra.

Saludos !

[jguso]

como hacemos si no usamos capicom para los certificados, de que forma puedo indicar el certificado y el password para poder transmitir la factura a la aeat.


No hay posibilidad de decirle nombre de certificado y password ?????

[seccion_31]

Empezado por jguso

como hacemos si no usamos capicom para los certificados, de que forma puedo indicar el certificado y el password para poder transmitir la factura a la aeat.


No hay posibilidad de decirle nombre de certificado y password ?????

en el nombre del certificado el nombre de archivo .pfx o .p12
en passwordcertificado pues eso.

[seccion_31]

Ya esta todo prácticamente modificado. Para que funcione en esos "envios fallidos".

Pero.. una pregunta mas

El encadenamiento de esa factura reenviada, contra que se hace?

¿El encadenamiento original de cuando se genero el registro?

¿o el nuevo encadenamiento del registro anterior?

Saludos !

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

Empezado por seccion_31

Generacion de huella

este es un tema sobre el que tengo dudas.
el componente, genera la huella durante el envio de la factura. Si enviamos en el momento de hacer la factura, no hay problema. La huella generada coincide con la generacion de la factura.

Ya lo hemos hablado.
Yo creo que ese comportamiento es erróneo según la documentación.

Creo que la huella dela factura, los encadenamientos, los QR,... se deben generar en el momento de crear la factura, independientemente de cuando se envíe.
Si por lo que sea el envío no puede hacerse, el sistema debe seguir funcionando de forma "normal".

Perdonad, si no estáis refiriéndoos a esto y estoy "meando fuera de tiesto".

[bmfranky]

Empezado por seccion_31

Ya esta todo prácticamente modificado. Para que funcione en esos "envios fallidos".

Pero.. una pregunta mas

El encadenamiento de esa factura reenviada, contra que se hace?

¿El encadenamiento original de cuando se genero el registro?

¿o el nuevo encadenamiento del registro anterior?

Saludos !

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

Ya lo hemos hablado.
Yo creo que ese comportamiento es erróneo según la documentación.

Creo que la huella dela factura, los encadenamientos, los QR,... se deben generar en el momento de crear la factura, independientemente de cuando se envíe.
Si por lo que sea el envío no puede hacerse, el sistema debe seguir funcionando de forma "normal".

Perdonad, si no estáis refiriéndoos a esto y estoy "meando fuera de tiesto".

Hola, lo que teneis que tener en cuenta es que el dato

<FechaHoraHusoGenRegistro>


Se validará que la FechaHoraHusoGenRegistro sea menor o igual que la fecha del sistema
de la AEAT, admitiéndose un margen de error. En caso de superar el umbral, se devolverá un
aviso de error (no generará rechazo).

Significa, Fecha y Hora + Huso Horario "Generacion Registro"
No pide la fechaca hora del envio, el envio puede ser despues, por varios motivos, incluso no haber envio, si estamos en no Verifactu.
Por logica se tiene que guardar en el momento de emitir/crear la factura/registro, no en el momento del envio, tampoco se puede modificar y "Siempre", consultar los datos del ultimo HASH, del encadenamiento para continuar con la cadena, sea de lo que sea, porque si encadenamos las acciones, hemos de encadenar con su cadena independiente a los de registros de facturacion.

Si a lo que te refieres es si se ha de cambiar el encadenamiento , no de ningun modo, el encadenamiento se refiere a cada registro.

  <RegistroAlta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    xxxxx
    xxxxx
</RegistroAlta>

Que puede ser de alta , baja ,etc, esto es lo que hay que encolar, guardar, etc para enviar/ reenviar, con sus datos originales, tanto si se envia al momento , como en diferido.
Asignando en la cabecera , si ha habido algun error, etc...

Espero que entre todos lo dejemos mas claro.

[seccion_31]

gracias por las aclaraciones

En la proxima actualizacion sera posible enviar una factura con su huella original y anterior original. si han pasado mas de 2 minutos desde la huella proporcionada, marcara como incidencia ese envio. ¿ ese tiempo de 2 minutos esta bien ?

En principio la forma de trabajar con el componente sería, de forma simplificada.

INICIO

1) hago una factura
2) inmedatamente la envio, (con exito, o no, me da lo mismo, igual que imprimo la envio)
3) obtendre su huella, la archivo en la factura
4) proceso el envio (si es posible, podria ser que no, debido a causas externas, si es posible guardo el csv )

FIN

ADICIONALMENTE:

1) Crear una lista de facturas pendientes de envio
2) Enviarlas en cuanto sea posible, reutilizando esa huella y huella anterior almacenada


Creo que el proceso cumple. Para procesos de facturacion individuales.

Con este tema, creo que queda cerrado ya todos los flecos a falta de probarlo.

Su implementacion en los que lo esten usando sera muy simple.

gracias !

Nota: en mi caso particular, ni pregunto, ni hago pausas, se pulsa el boton de facturar y se envia la factura, despues se imprime. por tanto generacion del registro y envio van de la mano. Si el envio NO se completa, queda archivada la huella que sera reutilizada en su reenvio.