Ley antifraude 2021 (VERIFACTU) - Programas informáticos

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

[afxe]

Hola... alguien tiene información de qué es lo que hay que imprimir en el dichoso QR ??? En hacienda sólo dicen que tiene que ir la información necesaria para que el cliente pueda comprobar que la factura ha sido declarada correctamente. Pensé que con la Huella sería suficiente, pero también he leído que la información contenida también debe ayudar al cliente a registrar esa factura en su sistema automáticamente, ¿¿¿ habrá que meter el <registrofactura> completo ???

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

Empezado por afxe

... alguien tiene información de qué es lo que hay que imprimir en el dichoso QR ??? En hacienda sólo dicen que tiene que ir la información necesaria para que el cliente pueda comprobar que la factura ha sido declarada correctamente. Pensé que con la Huella sería suficiente, pero también he leído que la información contenida también debe ayudar al cliente a registrar esa factura en su sistema automáticamente, ¿¿¿ habrá que meter el <registrofactura> completo ???

Si es similar a TicketBAI (y por ahora las cosas se parecebn bastante) es una URL con la información suficiente para que el cliente "busque" su factura en el sistema y compare que es igul a la que tienes en las manos.

Es este caso es esta URL
https://tbai.prep.gipuzkoa.eus/qr/

Y a continuación concatenar esta información:
“?id=IDENTIFICATIVO_TBAIi&s=SERIE&nf=NUMERO_FACTURA&i=IMPORTE&cr=CODIGO_CRC”

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

[edari]

Pongo por adelantado que no he empezado a hacer anda de esto hasta que no sea todo más o menos definitivo.



Me he leído el hilo y esperando la nueva "movida" que nos llega.



Yo también tendré que generar el Hash sha256 desde un proceso externo y no sé si puedo usar utilidades tipo CERTUTIL del propio sistema operativo o me estoy liando bien liado...


https://www.dell.com/support/kbdoc/e...re-y-antivirus


Insisto que igual estoy diciendo una burrada pero bueno por si os suena este tipo de utilidades. Perdón de antemano...



Gracias...

[ermendalenda]

Empezado por edari

Pongo por adelantado que no he empezado a hacer anda de esto hasta que no sea todo más o menos definitivo.


Me he leído el hilo y esperando la nueva "movida" que nos llega.



Yo también tendré que generar el Hash sha256 desde un proceso externo y no sé si puedo usar utilidades tipo CERTUTIL del propio sistema operativo o me estoy liando bien liado...


https://www.dell.com/support/kbdoc/e...re-y-antivirus


Insisto que igual estoy diciendo una burrada pero bueno por si os suena este tipo de utilidades. Perdón de antemano...



Gracias...

Hay apis de windows que se pueden incluir, no creo que desarrollers en un lenguaje que no se pueda, tendría que ser cobol qbasic o gwbasic