Ley antifraude 2021 (VERIFACTU) - Programas informáticos

Delphier · #11 03-06-2024

Delphi 11.3

Código:

Uses System.hash

CadenaVerifactu :=
'IDEmisorFactura=89890001K&'+
'NumSerieFactura=12345679/G34&'+
'FechaExpedicionFactura=01-01-2024&'+
'TipoFactura=F1&CuotaTotal=12.35&'+
'ImporteTotal=123.45&'+
'Huella=3C464DAF61ACB827C65FDA19F352A4E3BDC2C640E9E9FC4CC058073F38F12F60&'+
'FechaHoraHusoGenRegistro=2024-01-01T19:20:35+01:00';


 Result := THashSHA2.GetHashString(CadenaVerifactu,THashSHA2.TSHA2Version.SHA256).ToUpper;

Resultado es = F7B94CFD8924EDFF273501B01EE5153E4CE8F259766F88CF6ACB8935802A2B97

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Hijo de Informáticos	gluglu	Humor	3	13-03-2007 11:05:35
Adictos informaticos ...	Trigger	Humor	2	11-10-2004 12:18:32
Nosotros los Informáticos	Trigger	Humor	1	10-10-2004 14:58:09
Patrón de los Informáticos.	obiwuan	Varios	20	10-09-2003 14:44:54
Chistes Informaticos	jhonny	Humor	2	11-08-2003 21:59:09