Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[afxe]

Ermendalenda, te lo has currado... la verdad es que RamHerFer tiene razón... deberíamos haber trabajado más en equipo para escribir un workflow, tener una biblioteca de herramientas externas y otra de código. Y no vendría mal un apartado de "Preguntas Frecuentes". Pero no me miréis a mí, no tengo ni idea de cómo hacer todo eso, pero me encantaría participar.

Al final, con tantos aplazamientos del desarrollo técnico, el que más y el que menos hemos bajado los brazos esperando a que se aclaren, porque cada vez que dicen algo nos ponemos a desarrollar y luego se retractan, cambian, modifican, deshacen... para dejarnos con cara de tontos. Por lo cual la decisión más sabia que he leído en el foro es esperar a que desplieguen el desarrollo técnico y aclaremos dudas... y sinceramente, creo que ellos están más perdidos que nosotros, por lo que he decidido tomármelo con calma.

No podemos elegir trabajar enganchado permanentemente con la AEAT, pues implicaría que si se pierde conexión no se puede facturar... hace poco una obra cortó una fibra en un polígono y dejó a muchos negocios, incluso 3 grandes supermercados, sin internet durante 2 días.

En cuanto al encadenamiento, tenía entendido que se podía y debía hacer por serie, ya que en un sistema de facturación NO centralizada (cada puesto o dispositivo puede emitir facturas), no puede hacer el encadenamiento con las facturas emitidas por otros dispositivos.

Lo veo todo muy verde aún... pero a lo mejor es mi desidia por este asunto.

[ermendalenda]

Buenas, independientemente de que software de desarrollo useis existe una libreria de
windows para generar los hash "advapi32.dll", el desarrollo si lo buscais por internet seguro que lo encontrais, la declaración en vb sería:

Declare Function CryptCreateHash Lib "advapi32.dll" _
(ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, _
ByRef phHash As Long) As Long
Declare Function CryptReleaseContext Lib "advapi32.dll" _
(ByVal hProv As Long, ByVal dwFlags As Long) As Long
Declare Function CryptCreateHash Lib "advapi32.dll" _
(ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, _
ByRef phHash As Long) As Long
Declare Function CryptDestroyHash Lib "advapi32.dll" _
(ByVal hHash As Long) As Long
Declare Function CryptHashData Lib "advapi32.dll" _
(ByVal hHash As Long, pbData As Any, ByVal cbData As Long, ByVal dwFlags As Long) As Long
Declare Function CryptGetHashParam Lib "advapi32.dll" _
(ByVal hHash As Long, ByVal dwParam As Long, pbData As Any, ByRef pcbData As Long, _
ByVal dwFlags As Long) As Long

Y aquí las constantes que declaro para facilitar su uso

Private Const PROV_RSA_FULL As Long = 1
Private Const PROV_RSA_AES As Long = 24
Private Const CRYPT_VERIFYCONTEXT As Long = &HF0000000

Private Const HP_HASHVAL As Long = 2
Private Const HP_HASHSIZE As Long = 4

Private Const ALG_TYPE_ANY As Long = 0
Private Const ALG_CLASS_HASH As Long = 32768

Private Const ALG_SID_MD2 As Long = 1
Private Const ALG_SID_MD4 As Long = 2
Private Const ALG_SID_MD5 As Long = 3
Private Const ALG_SID_SHA As Long = 4
Private Const ALG_SID_SHA_256 As Long = 12
Private Const ALG_SID_SHA_384 As Long = 13
Private Const ALG_SID_SHA_512 As Long = 14

Private Const CALG_MD2 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD2)
Private Const CALG_MD4 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD4)
Private Const CALG_MD5 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5)
Private Const CALG_SHA As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA)
Public Const CALG_SHA_256 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA_256)
Public Const CALG_SHA_384 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA_384)
Public Const CALG_SHA_512 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA_512)
Private pvToByteArray1() As Byte

[ermendalenda]

Empezado por afxe

Ermendalenda, te lo has currado... la verdad es que RamHerFer tiene razón... deberíamos haber trabajado más en equipo para escribir un workflow, tener una biblioteca de herramientas externas y otra de código. Y no vendría mal un apartado de "Preguntas Frecuentes". Pero no me miréis a mí, no tengo ni idea de cómo hacer todo eso, pero me encantaría participar.

Al final, con tantos aplazamientos del desarrollo técnico, el que más y el que menos hemos bajado los brazos esperando a que se aclaren, porque cada vez que dicen algo nos ponemos a desarrollar y luego se retractan, cambian, modifican, deshacen... para dejarnos con cara de tontos. Por lo cual la decisión más sabia que he leído en el foro es esperar a que desplieguen el desarrollo técnico y aclaremos dudas... y sinceramente, creo que ellos están más perdidos que nosotros, por lo que he decidido tomármelo con calma.

No podemos elegir trabajar enganchado permanentemente con la AEAT, pues implicaría que si se pierde conexión no se puede facturar... hace poco una obra cortó una fibra en un polígono y dejó a muchos negocios, incluso 3 grandes supermercados, sin internet durante 2 días.

En cuanto al encadenamiento, tenía entendido que se podía y debía hacer por serie, ya que en un sistema de facturación NO centralizada (cada puesto o dispositivo puede emitir facturas), no puede hacer el encadenamiento con las facturas emitidas por otros dispositivos.

Lo veo todo muy verde aún... pero a lo mejor es mi desidia por este asunto.

Hola, otros dispositivos llevan su encadenamiento, no confundamos serie con dispositivo, el mismo dispositivo puede tener varias series.

[ramherfer]

Hola buenas tardes. Bueno pues parece que mi apli genera los distintos puros los xml según las estructuras expuestas gracias a aquellos que me echasteis un cable.
Ahora tengo que, mediante un proceso externo calcular la huella hash sha256 del nodo RegistroFacturacion en el momento de estar generando el xml (no se si existe esa posibilidad). Con mi pequeño de delphi 7 no puedo hacerlo tengo que recurir si o si a un proceso externo que me devuelva el hash del nodo, o algún componente que me podais recomendar. Ahora bien por favor ¿como podría sacar el valor del nodo completo como String para calcular la huella?
Por mas que he bicheado en Google y en el foro, por más vueltas que le he dado, no lo consigo. Solo consigo un precioso string en blanco de las mil quinientas treinta y cuatro veces que lo he intentado.
Gracias por anticipado como siempre.