Veri*Factu Capítulo 2...

No he visto que estuviese cerrado y no me gusta revivir conversaciones antiguas, pero como no tenia contestación y estoy buscado esa misma información, os voy a incluir unas funciones para este tema y firmar con autofirma que debe estar instalado.

Hay que tener en cuenta, (TipoFactura) lo siguiente:

Tipos de Factura Comunes

1. F1 - Factura ordinaria

   • Factura estándar para operaciones habituales.

2. F2 - Factura simplificada

   • Utilizada en operaciones donde no es obligatorio detallar toda la información del cliente.

3. F3 - Factura rectificativa

   • Emitida para corregir errores o modificaciones en una factura anterior.

4. F4 - Factura recapitulativa

   • Agrupa varias operaciones en un solo documento.

Tipos de Factura Especiales

5. R1 - Factura rectificativa ordinaria

   • Corrige errores de facturas ordinarias.

6. R2 - Factura rectificativa simplificada

   • Corrige facturas simplificadas.

7. R3 - Factura rectificativa recapitulativa

   • Corrige facturas recapitulativas.

Cómo elegir el tipo de factura:

• Factura ordinaria (F1): La más común, utilizada para ventas regulares.
• Factura rectificativa (F3): Cuando necesitas corregir un error o ajustar un importe.
• Factura simplificada (F2): Para operaciones menores o cuando la normativa lo permite.

CuotaTotal  es el importe total de IVA separador decimal el punto.

ImporteTotal es el importe total de la factura IVA incluido.

La funcion que genera el xml contempla si va a ser Alta, Modificación o Evento (TipoRegistro)

Option Compare Database
Option Explicit

' Tipo de datos personalizado para almacenar la información del registro
Type RegistroAlta
    IDEmisorFactura As String
    NumSerieFactura As String
    FechaExpedicionFactura As String
    TipoFactura As String
    CuotaTotal As String
    ImporteTotal As String
    Huella As String
    FechaHoraHusoGenRegistro As String
End Type

Function CalcularHuella(Registro As RegistroAlta, TipoRegistro As String) As String
    Dim DataToHash As String
    Dim oSHA256 As Object
    Dim HashBytes() As Byte
    Dim HashString As String
    Dim i As Integer

    Select Case LCase(TipoRegistro)
        Case "alta"
            DataToHash = "IDEmisorFactura=" & Registro.IDEmisorFactura & _
                         "&NumSerieFactura=" & Registro.NumSerieFactura & _
                         "&FechaExpedicionFactura=" & Registro.FechaExpedicionFactura & _
                         "&TipoFactura=" & Registro.TipoFactura & _
                         "&CuotaTotal=" & Registro.CuotaTotal & _
                         "&ImporteTotal=" & Registro.ImporteTotal & _
                         "&Huella=" & Registro.Huella & _
                         "&FechaHoraHusoGenRegistro=" & Registro.FechaHoraHusoGenRegistro

        Case "modificacion"
            DataToHash = "IDEmisorFactura=" & Registro.IDEmisorFactura & _
                         "&NumSerieFactura=" & Registro.NumSerieFactura & _
                         "&FechaExpedicionFactura=" & Registro.FechaExpedicionFactura & _
                         "&Huella=" & Registro.Huella & _
                         "&FechaHoraHusoGenRegistro=" & Registro.FechaHoraHusoGenRegistro

        Case "evento"
            DataToHash = "NIF=" & Registro.IDEmisorFactura & _
                         "&IdSistemaInformatico=SYS001&TipoEvento=" & Registro.TipoFactura & _
                         "&HuellaEvento=" & Registro.Huella & _
                         "&FechaHoraHusoGenEvento=" & Registro.FechaHoraHusoGenRegistro

        Case Else
            MsgBox "Tipo de registro no reconocido para cálculo de huella."
            Exit Function
    End Select

    ' Calcular hash SHA-256
    Set oSHA256 = CreateObject("System.Security.Cryptography.SHA256Managed")
    HashBytes = oSHA256.ComputeHash_2(StrConv(DataToHash, vbFromUnicode))

    ' Convertir a hexadecimal
    For i = LBound(HashBytes) To UBound(HashBytes)
        HashString = HashString & LCase(Right("00" & Hex(HashBytes(i)), 2))
    Next i

    CalcularHuella = UCase(HashString)
End Function


Function GenerarXML(Registro As RegistroAlta, TipoRegistro As String) As String
    Dim XMLString As String
    
    Select Case LCase(TipoRegistro)
        Case "alta"
            ' XML para Registro de Alta
            XMLString = "<RegistroAlta>" & vbCrLf & _
                        "    <IDFactura>" & vbCrLf & _
                        "        <IDEmisorFactura>" & Registro.IDEmisorFactura & "</IDEmisorFactura>" & vbCrLf & _
                        "        <NumSerieFactura>" & Registro.NumSerieFactura & "</NumSerieFactura>" & vbCrLf & _
                        "        <FechaExpedicionFactura>" & Registro.FechaExpedicionFactura & "</FechaExpedicionFactura>" & vbCrLf & _
                        "    </IDFactura>" & vbCrLf & _
                        "    <TipoFactura>" & Registro.TipoFactura & "</TipoFactura>" & vbCrLf & _
                        "    <CuotaTotal>" & Registro.CuotaTotal & "</CuotaTotal>" & vbCrLf & _
                        "    <ImporteTotal>" & Registro.ImporteTotal & "</ImporteTotal>" & vbCrLf & _
                        "    <Encadenamiento>" & vbCrLf & _
                        "        <RegistroAnterior>" & vbCrLf & _
                        "            <Huella>" & Registro.Huella & "</Huella>" & vbCrLf & _
                        "        </RegistroAnterior>" & vbCrLf & _
                        "    </Encadenamiento>" & vbCrLf & _
                        "    <FechaHoraHusoGenRegistro>" & Registro.FechaHoraHusoGenRegistro & "</FechaHoraHusoGenRegistro>" & vbCrLf & _
                        "</RegistroAlta>"
        
        Case "modificacion"
            ' XML para Registro de Modificación
            XMLString = "<RegistroModificacion>" & vbCrLf & _
                        "    <IDFactura>" & vbCrLf & _
                        "        <IDEmisorFactura>" & Registro.IDEmisorFactura & "</IDEmisorFactura>" & vbCrLf & _
                        "        <NumSerieFactura>" & Registro.NumSerieFactura & "</NumSerieFactura>" & vbCrLf & _
                        "        <FechaExpedicionFactura>" & Registro.FechaExpedicionFactura & "</FechaExpedicionFactura>" & vbCrLf & _
                        "    </IDFactura>" & vbCrLf & _
                        "    <Encadenamiento>" & vbCrLf & _
                        "        <RegistroAnterior>" & vbCrLf & _
                        "            <Huella>" & Registro.Huella & "</Huella>" & vbCrLf & _
                        "        </RegistroAnterior>" & vbCrLf & _
                        "    </Encadenamiento>" & vbCrLf & _
                        "    <FechaHoraHusoGenRegistro>" & Registro.FechaHoraHusoGenRegistro & "</FechaHoraHusoGenRegistro>" & vbCrLf & _
                        "</RegistroModificacion>"
        
        Case "evento"
            ' XML para Registro de Evento
            XMLString = "<RegistroEvento>" & vbCrLf & _
                        "    <SistemaInformatico>" & vbCrLf & _
                        "        <NIF>" & Registro.IDEmisorFactura & "</NIF>" & vbCrLf & _
                        "        <NumSerie>" & Registro.NumSerieFactura & "</NumSerie>" & vbCrLf & _
                        "        <Version>1.0</Version>" & vbCrLf & _
                        "    </SistemaInformatico>" & vbCrLf & _
                        "    <TipoEvento>" & Registro.TipoFactura & "</TipoEvento>" & vbCrLf & _
                        "    <Encadenamiento>" & vbCrLf & _
                        "        <HuellaEvento>" & Registro.Huella & "</HuellaEvento>" & vbCrLf & _
                        "    </Encadenamiento>" & vbCrLf & _
                        "    <FechaHoraHusoGenEvento>" & Registro.FechaHoraHusoGenRegistro & "</FechaHoraHusoGenEvento>" & vbCrLf & _
                        "</RegistroEvento>"
        
        Case Else
            XMLString = "Error: Tipo de Registro no reconocido."
    End Select
    
    GenerarXML = XMLString
End Function

Sub FirmarXMLConAutoFirma()
    Dim ShellCommand As String
    Dim AutoFirmaPath As String
    Dim InputXML As String
    Dim OutputXML As String
    
    ' Ruta al ejecutable de AutoFirma
    AutoFirmaPath = "C:\Program Files\AutoFirma\AutoFirma.jar"
    
    ' Archivos de entrada y salida
    InputXML = "C:\Ruta\RegistroAlta.xml"
    OutputXML = "C:\Ruta\RegistroAltaFirmado.xml"
    
    ' Comando para firmar el XML
    ShellCommand = "java -jar """ & AutoFirmaPath & """ sign -i """ & InputXML & """ -o """ & OutputXML & """ -format XAdES"
    
    ' Ejecutar el comando
    Shell ShellCommand, vbNormalFocus
    
    MsgBox "Firma completada. Archivo firmado en: " & OutputXML
End Sub

Gracias por la información. Ahora queda lo del tema de comunicación, que estoy un poco pez. Me instalalare lo del soapui.

Un saludo

No programo en mi día a día. Pero me gusta estar al día y como hace tiempo me hice un pequeño programa para gestión de servicios enlazandondo con Factusol para el tema de la facturación, tenia curiosidad de como se haría lo del tema de veri*factu y me puse a mirar y probar.

   Pues uso access 2016 32 bits en un ordenador en otro access 2019 64 bits y los dos con MZTOOLS 8.0.3.3934.