Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[afxe]

Creo que Sistel tiene razón... la decisión de cuantos documentos tienes que enviar o el tiempo máximo de espera entre envíos te lo dirán en cada transmisión... y nuestros sistemas tendrán que acatar la orden. Imagino, que en una tienda de decoración, donde se hace diez o doce facturas a la hora, te dirán 1-0 (1 documento en cuanto esté hecho)... en un supermercado con 10 cajas generando 600 tickets por hora, te dirán 1000-120. De hecho, la indicación es que la primera transmisión sea 1-0, es decir, transmisión en cuanto se haga la primera factura. Imagino que cada inicio de jornada o caída del sistema, habrá que empezar con un 1-0... y luego esperar la respuesta de cómo seguir.

Lo que habrá que preguntar es qué pasa si no haces caso a su indicación y mandamos lo que nosotros decidamos... ¿provocará algún tipo de rechazo o error de incorporación?

[ermendalenda]

Empezado por afxe

Creo que Sistel tiene razón... la decisión de cuantos documentos tienes que enviar o el tiempo máximo de espera entre envíos te lo dirán en cada transmisión... y nuestros sistemas tendrán que acatar la orden. Imagino, que en una tienda de decoración, donde se hace diez o doce facturas a la hora, te dirán 1-0 (1 documento en cuanto esté hecho)... en un supermercado con 10 cajas generando 600 tickets por hora, te dirán 1000-120. De hecho, la indicación es que la primera transmisión sea 1-0, es decir, transmisión en cuanto se haga la primera factura. Imagino que cada inicio de jornada o caída del sistema, habrá que empezar con un 1-0... y luego esperar la respuesta de cómo seguir.

Lo que habrá que preguntar es qué pasa si no haces caso a su indicación y mandamos lo que nosotros decidamos... ¿provocará algún tipo de rechazo o error de incorporación?

Mmm.. no sé voy a esperar la doctrina pero creo que lo que yo voy a hacer tiene mucho sentido y no va a dar problemas. La orden no dice que tienes que enviar 1-0 obligatorimente, sino que ess el mínimo de registros y de tiempo de espera. Sólo hay que darle un par de vueltas para verle la lógica.

Lo el error lo lógico es que si se envia antes de tiempo, en la respuesta te vuelvan a indicar cuando/cuanto enviar.

[ermendalenda]

Hola,a ver que entendeis de ésto:

Huella de la factura (Realizada sobre el nodo RegistroFacturacion)

¿Calculariais con el nombre del nodo o sin él?

O sea sha256 sobre

<RegistroFacturacion></RegistroFacturacion>

¿Incluido o sin incluir ?

[antoine0]

Empezado por ermendalenda

Huella de la factura (Realizada sobre el nodo RegistroFacturacion)
¿Calculariais con el nombre del nodo o sin él?

Con; es decir, desde el primero < hasta el último >. El nodo incluye su identificador y sus delimitadores.

Creo que en la norma XML, el nodo se extiende un poco más, es decir, también recoge todo el texto que viene detrás del último > (¡cuidado, esto incluye los CR y LF!) y también eventuales comentarios que pueden venir después del último >.
Sin embargo, poner comentarios detrás del </RegistroFacturacion> me parece una extraordinaria mala idea
Y para evitar malas sorpresas de parte de paquetes XML que siguen la norma de forma más o menos estricta, creo que sería una buena idea pegar la etiqueta <DatosControl> justo detrás del </RegistroFacturacion>, sin nada entre las dos etiquetas.

[ermendalenda]

Empezado por antoine0

Con; es decir, desde el primero < hasta el último >. El nodo incluye su identificador y sus delimitadores.

Creo que en la norma XML, el nodo se extiende un poco más, es decir, también recoge todo el texto que viene detrás del último > (¡cuidado, esto incluye los CR y LF!) y también eventuales comentarios que pueden venir después del último >.
Sin embargo, poner comentarios detrás del </RegistroFacturacion> me parece una extraordinaria mala idea
Y para evitar malas sorpresas de parte de paquetes XML que siguen la norma de forma más o menos estricta, creo que sería una buena idea pegar la etiqueta <DatosControl> justo detrás del </RegistroFacturacion>, sin nada entre las dos etiquetas.

Buena idea gracias.

[CarlosMz]

Hola,

Esto es nuevo o es lo mismo:

www infoautonomos.com/blog/factura-electronica-obligatoria-autonomos/

[keys]

Eso es otra cosa.

Una cosa es la ley antifraude (VERIFACTU) y otra es la forma de como les envias las facturas a tus clientes que es a lo que se refiere el articulo (Facturae, pdf, etc...).

[Casimiro Notevi]

Empezado por CarlosMz

Hola,
Esto es nuevo o es lo mismo:
www infoautonomos.com/blog/factura-electronica-obligatoria-autonomos/

Es otra cosa:

¿Cuándo entrará en vigor? La factura electrónica entrará en vigor en enero de 2023 para todos aquellos autónomos o empresas que tengan una facturación superior a 8 millones de euros anuales.
El resto de autónomos y empresas (facturaciones inferiores a 8 millones de euros) tendrán de margen hasta 2025 para emitir todas sus facturas en formato electrónico.

Ah, ya te ha contestado keys.

[ramherfer]

Empezado por ermendalenda

Hola,a ver que entendeis de ésto:

Huella de la factura (Realizada sobre el nodo RegistroFacturacion)

¿Calculariais con el nombre del nodo o sin él?

O sea sha256 sobre

<RegistroFacturacion></RegistroFacturacion>

¿Incluido o sin incluir ?

(Pongo esta pregunta en el hilo pero tengo dudas de como pasar la información desde el nodo del xml para calcular su huella)

Hola buenas tardes. A ver si me podeis echar un cable ¿Cómo puedo pasar el contenido del nodo <RegistroFacturacion>contenido</RegistroFacturación> a un string para calcular su huella? si es que se ha de hacer así. Por más que he buscado he intentado no lo consigo de ninguna manera. Ayuda por favor.

[Casimiro Notevi]

Algo así:

Código Delphi [-]
uses
  IdHash, IdHashSHA, IdGlobal, SysUtils;

function CalculateFileHash(const FileName: string): string;
var
  FileStream: TFileStream;
  SHA256Hash: TIdHashSHA256;
  HashBytes: TBytes;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SHA256Hash := TIdHashSHA256.Create;
    try
      HashBytes := SHA256Hash.HashValue(FileStream);
      Result := LowerCase(BytesToHex(HashBytes));
    finally
      SHA256Hash.Free;
    end;
  finally
    FileStream.Free;
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
  HashValue: string;
begin
  FileName := 'ruta_del_archivo.xml';
  HashValue := CalculateFileHash(FileName);
  ShowMessage('Hash SHA256 del archivo XML: ' + HashValue);
end;

[ramherfer]

Empezado por Casimiro Notevi

Algo así:

Código Delphi [-]
uses
  IdHash, IdHashSHA, IdGlobal, SysUtils;

function CalculateFileHash(const FileName: string): string;
var
  FileStream: TFileStream;
  SHA256Hash: TIdHashSHA256;
  HashBytes: TBytes;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SHA256Hash := TIdHashSHA256.Create;
    try
      HashBytes := SHA256Hash.HashValue(FileStream);
      Result := LowerCase(BytesToHex(HashBytes));
    finally
      SHA256Hash.Free;
    end;
  finally
    FileStream.Free;
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
  HashValue: string;
begin
  FileName := 'ruta_del_archivo.xml';
  HashValue := CalculateFileHash(FileName);
  ShowMessage('Hash SHA256 del archivo XML: ' + HashValue);
end;

Gracias Casimiro, pero eso sería para crear el hash del fichero xml, pero lo que tiene que llevar es en el campo huella el hash sólo del contenido del nodo <RegistroFacturacion>contenido</RegistroFacturacion>. Entonces el problema es que no tengo ni pajolera idea de como pasar el nodo completo a widestring (por ejemplo) para calcular el hash del string y pasarlo al campo huella. Agradezco tu respuesta mil+1

[ramherfer]

Bueno pues ya lo tengo, he recibido ayuda de valor incalculable, Si no, no lo consigo ni de coña. Ojo que como ya se había hablado, es bien distinto calcular el hash con el fichero xml formateado indentado que sin formato evidentemente los CR LF varian el valor del Hash. ¿Cómo se tendrá que hacer? pues sorpresa, pero por lo menos lo está haciendo. Luego es más fácil corregir y adaptar que empezar desde cero. Las cosas deprisa y corriendo por muy claras que las tengas, no suelen salir igual.
Observaciones estoy creando el hash mientras estoy creando el xml.

Aquí va el código, cualquier sugerencia u objeción sería bien recibida.

   

var
   archivoXML: TXMLDocument;
   NDatosControl, NCabecera : IXMLNode;
   NodoSistema, NodoRegistroAltaFacturas, NodoRegistroFacturacion: IXMLNode;
   ContenidoNodoRegistroFacturacion: WideString;
   Huella: String;

    · · ·

    NDatosControl := NCabecera.AddChild( 'DatosControl' );
    Nodo := NDatosControl.AddChild( 'Huella' );
    //***** Calculo Hash RegistroFacturacion
    NodoSistema := archivoXML.DocumentElement;
    NodoregistroAltaFacturas := NodoSistema.ChildNodes.FindNode('RegistroAltaFacturas');
    if Assigned(NodoregistroAltaFacturas) then
    begin
      NodoRegistroFacturacion := NodoRegistroAltaFacturas.ChildNodes.FindNode('RegistroFacturacion');
      if Assigned(NodoRegistroFacturacion) then
        ContenidoNodoRegistroFacturacion := NodoRegistroFacturacion.XML;
    end;
    Huella := CalculaStrHashSHA256(ContenidoNodoRegistroFacturacion, checkBox1.Checked);
    //****** Fin calculo huella SHA256
    Nodo.Text := Huella;
    Nodo := NDatosControl.AddChild( 'TipoHash' );
    Nodo.Text := '01';

    · · ·

La función CalculaStrHashSHA256 esta contenida en una librería DLL. Si alguien necesita el código de la librería lo pongo, aunque es bien sencillo.
He comprobado los Hash resultantes con la herramienta online https://emn178.github.io/online-tools/sha256.html y en principio están perfectos.