Foros Club Delphi - Factura Electronica (FacturaE)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Temas legales (https://www.clubdelphi.com/foros/forumdisplay.php?f=65)

- - Factura Electronica (FacturaE) (https://www.clubdelphi.com/foros/showthread.php?t=97938)

Nosotros hacemos la siguiente llamada por línea de comandos:

Cita:

AutoFirmaCommandLine sign -i %1 -o %2 -store auto -format facturae -filter subject.contains:%3 -xml -config signatureProductionCountry=ESPAÑA

donde %1 es el fichero xml generado con la factura, %2 el fichero xml resultante ya firmado, y %3 es el CIF/NIF del certificado que se va a usar para firmar.

Para que funcione, yo copio, desde la carpeta de instalación de Aufirma, lo siguiente:

AutofirmaCommandLine.exe
y las carpetas:
certutil, y
jre

y las añado en la carpeta de instalación de mi aplicación.

Yo lo que hice en su momento fue descargarme el proyecto de autofirma lo toque por alguna cosilla ("No me acuerdo ") y a mis clientes les paso el .jar de autofirma personalizado a una carpeta y luego desde mi programa le paso los parámetros y lo firma.

Me ahorraba el tema por si no tenían instalado el autofirma y se lo pasaba yo. Antes la gente no sabia ni que era un certificado.

El proyecto https://github.com/ctt-gob-es/clienteafirma

¿os referís a tener un xml en una ruta y a partir de él generar el xsig?

Cita:

Empezado por novatico (Mensaje 572056)

Nosotros hacemos la siguiente llamada por línea de comandos:

> AutoFirmaCommandLine sign -i %1 -o %2 -store auto -format facturae -filter subject.contains:%3 -xml -config signatureProductionCountry=ESPAÑA

donde %1 es el fichero xml generado con la factura, %2 el fichero xml resultante ya firmado, y %3 es el CIF/NIF del certificado que se va a usar para firmar.

Para que funcione, yo copio, desde la carpeta de instalación de Aufirma, lo siguiente:

AutofirmaCommandLine.exe
y las carpetas:
certutil, y
jre

y las añado en la carpeta de instalación de mi aplicación.

Muchas gracias @novatico! :D

Cita:

Empezado por Noe277 (Mensaje 572060)

Yo lo que hice en su momento fue descargarme el proyecto de autofirma lo toque por alguna cosilla ("No me acuerdo ") y a mis clientes les paso el .jar de autofirma personalizado a una carpeta y luego desde mi programa le paso los parámetros y lo firma.
Me ahorraba el tema por si no tenían instalado el autofirma y se lo pasaba yo. Antes la gente no sabia ni que era un certificado.
El proyecto https://github.com/ctt-gob-es/clienteafirma

Ostras! :D Esto no lo sabía yo :) puede ser nuestra solución ...

Muchas gracias @Noe277

Cita:

Empezado por Jarogo08 (Mensaje 572064)

¿os referís a tener un xml en una ruta y a partir de él generar el xsig?

Sip, correcto :) ...
Nos gustaría hacerlo "desde dentro" de nuestro SW (vb.net) sin tener que usar Autofirma, ni aplicaciones externas :D ...
¿Tienes la solución mágica @Jarogo08? ;)

Cita:

Empezado por FacilIng (Mensaje 572069)

Sip, correcto :) ...
Nos gustaría hacerlo "desde dentro" de nuestro SW (vb.net) sin tener que usar Autofirma, ni aplicaciones externas :D ...
¿Tienes la solución mágica @Jarogo08? ;)

1) FirmaXadesNet en GitHub (proyecto C# para XAdES)

Este proyecto no es de Facturae directamente, pero es una biblioteca en C# que permite crear firmas XAdES (BES, EPES, etc.) y puede usarse para firmar un XML Facturae si configuras bien los parámetros de política.

2) FirmaXadesNetCore en NuGet (versión .NET Standard)

Una adaptación de FirmaXadesNet compatible con .NET Standard / .NET 6 / .NET 7 / .NET 8, lo que facilita usarlo en proyectos modernos.

Cita:

Empezado por FacilIng (Mensaje 572069)

Sip, correcto :) ...
Nos gustaría hacerlo "desde dentro" de nuestro SW (vb.net) sin tener que usar Autofirma, ni aplicaciones externas :D ...
¿Tienes la solución mágica @Jarogo08? ;)

Sí, nosotros lo hacemos!
Déjame montarte un ejemplo y lo pongo aquí. A ver si me da tiempo hoy!

Cita:

Empezado por Jarogo08 (Mensaje 572071)

Sí, nosotros lo hacemos!
Déjame montarte un ejemplo y lo pongo aquí. A ver si me da tiempo hoy!

Espero ansioso!!! :D:D:D

Aplicación de Windows Forms, un formulario con un botón (está en VB. NET)

Código:

Imports java.security

Imports java.io

Imports java.util

Imports java.security.cert

Imports javax.xml.parsers

Imports es.mityc.javasign.pkstore

Imports es.mityc.javasign.pkstore.keystore

Imports es.mityc.javasign.trust

Imports es.mityc.javasign.xml.xades.policy

Imports es.mityc.firmaJava.libreria.xades

Imports es.mityc.javasign.xml.refs

Imports es.mityc.firmaJava.libreria.utilidades

Imports org.w3c.dom

Imports sviudes.blogspot.com

Imports System.Xml





Public Class Form1



    Private Sub btnFirmarXML_Click(sender As Object, e As EventArgs) Handles btnFirmarXML.Click



        Dim ArchivoXML As String = "C:\Prueba\Factura.xml"

        Dim ArchivoXMLFirmado As String = "C:\Prueba\Factura.xsig"

        Dim ArchivoCertificado As String = "C:\Prueba\Certificado.pfx"

        Dim PasswordCertificado As String = "PasswordCertificado"



        Dim ClavePrivada As PrivateKey = Nothing

        Dim Proveedor As Provider = Nothing

        Dim Certificado As java.security.cert.X509Certificate = CargaCertificado(ArchivoCertificado, PasswordCertificado, ClavePrivada, Proveedor)



        ' Si hay certificado

        If Certificado IsNot Nothing Then



            ' Política de firma

            TrustFactory.instance = es.mityc.javasign.trust.TrustExtendFactory.newInstance()

            TrustFactory.truster = es.mityc.javasign.trust.MyPropsTruster.getInstance()

            PoliciesManager.POLICY_SIGN = New es.mityc.javasign.xml.xades.policy.facturae.Facturae31Manager()

            PoliciesManager.POLICY_VALIDATION = New es.mityc.javasign.xml.xades.policy.facturae.Facturae31Manager()



            ' Crear datos a firmar

            Dim dataToSign As DataToSign = New DataToSign()

            dataToSign.setXadesFormat(EnumFormatoFirma.XAdES_BES) ' XadES-PES

            dataToSign.setEsquema(XAdESSchemas.XAdES_132)

            dataToSign.setPolicyKey("facturae31")

            dataToSign.setAddPolicy(True)

            dataToSign.setXMLEncoding("UTF-8")

            dataToSign.setEnveloped(True)

            dataToSign.addObject(New ObjectToSign(New AllXMLToSign(), "facturae31", Nothing, "text/xml", Nothing))

            dataToSign.setDocument(CargaXML(ArchivoXML))



            ' Firmar

            Dim res() As Object = New FirmaXML().signFile(Certificado, dataToSign, ClavePrivada, Proveedor)



            ' Guardamos la firma en un fichero

            UtilidadTratarNodo.saveDocumentToOutputStream(res(0), New FileOutputStream(ArchivoXMLFirmado), True)



            MsgBox("Fichero " & ArchivoXMLFirmado & " generado correctamente", MsgBoxStyle.OkOnly, "btnFirmarXML_Click")

        Else

            MsgBox("No es posible acceder al certificado", MsgBoxStyle.OkOnly, "btnFirmarXML_Click")

        End If



    End Sub



    Public Shared Function CargaXML(ByVal Ruta As String) As Document



        Dim dbf As DocumentBuilderFactory = DocumentBuilderFactory.newInstance()

        dbf.setNamespaceAware(True)



        Return dbf.newDocumentBuilder().parse(New BufferedInputStream(New FileInputStream(Ruta)))

    End Function



    Public Shared Function CargaCertificado(ByVal Ruta As String, ByVal Clave As String, ByRef ClavePrivada As PrivateKey, ByRef Proveedor As Provider) As X509Certificate

        Dim Certificado As X509Certificate = Nothing



        Proveedor = Nothing

        ClavePrivada = Nothing



        ' Carga certificado de fichero PFX

        Dim ks As KeyStore = KeyStore.getInstance("PKCS12")

        ks.load(New BufferedInputStream(New FileInputStream(Ruta)), Clave.ToCharArray())

        Dim storeManager As IPKStoreManager = New KSStore(ks, New PassStoreKS(Clave))

        Dim certificates As List = storeManager.getSignCertificates()



        ' Si encontramos el certificado

        If certificates.size() = 1 Then

            Certificado = certificates.get(0)



            ' Obtención de la clave privada asociada al certificado

            ClavePrivada = storeManager.getPrivateKey(Certificado)



            ' Obtención del proveedor encargado de las labores criptográficas

            Proveedor = storeManager.getProvider(Certificado)

        End If



        Return Certificado

    End Function



End Class

Se necesitan las siguientes librerías al lado del ejecutable:

commons-logging-1.1.dll
facturaE_additional.dll
IKVM.OpenJDK.Core.dll
IKVM.OpenJDK.Security.dll
IKVM.OpenJDK.Text.dll
IKVM.OpenJDK.Util.dll
IKVM.OpenJDK.XML.API.dll
IKVM.OpenJDK.XML.Parse.dll
IKVM.Runtime.dll
MITyCLibAPI-1.0.4.dll
MITyCLibCert-1.0.4.dll
MITyCLibPolicy-1.0.4.dll
MITyCLibTrust-1.0.4.dll
MITyCLibTSA-1.0.4.dll
MITyCLibXADES-1.0.4.dll
xmlsec-1.4.2-ADSI-1.0.dll

No me preguntéis de donde se sacan porque las busqué hace unos 10 años y no tengo ni pajolera de donde las conseguí :D

No sé si tengo posibilidad de subir un rar con esta aplicación de ejemplo, así ya tendríais también las librerías

Cita:

Empezado por Jarogo08 (Mensaje 572073)

Aplicación de Windows Forms, un formulario con un botón (está en VB. NET)

Código:

Imports java.security

Imports java.io

Imports java.util

Imports java.security.cert

Imports javax.xml.parsers

Imports es.mityc.javasign.pkstore

Imports es.mityc.javasign.pkstore.keystore

Imports es.mityc.javasign.trust

Imports es.mityc.javasign.xml.xades.policy

Imports es.mityc.firmaJava.libreria.xades

Imports es.mityc.javasign.xml.refs

Imports es.mityc.firmaJava.libreria.utilidades

Imports org.w3c.dom

Imports sviudes.blogspot.com

Imports System.Xml





Public Class Form1



    Private Sub btnFirmarXML_Click(sender As Object, e As EventArgs) Handles btnFirmarXML.Click



        Dim ArchivoXML As String = "C:\Prueba\Factura.xml"

        Dim ArchivoXMLFirmado As String = "C:\Prueba\Factura.xsig"

        Dim ArchivoCertificado As String = "C:\Prueba\Certificado.pfx"

        Dim PasswordCertificado As String = "PasswordCertificado"



        Dim ClavePrivada As PrivateKey = Nothing

        Dim Proveedor As Provider = Nothing

        Dim Certificado As java.security.cert.X509Certificate = CargaCertificado(ArchivoCertificado, PasswordCertificado, ClavePrivada, Proveedor)



        ' Si hay certificado

        If Certificado IsNot Nothing Then



            ' Política de firma

            TrustFactory.instance = es.mityc.javasign.trust.TrustExtendFactory.newInstance()

            TrustFactory.truster = es.mityc.javasign.trust.MyPropsTruster.getInstance()

            PoliciesManager.POLICY_SIGN = New es.mityc.javasign.xml.xades.policy.facturae.Facturae31Manager()

            PoliciesManager.POLICY_VALIDATION = New es.mityc.javasign.xml.xades.policy.facturae.Facturae31Manager()



            ' Crear datos a firmar

            Dim dataToSign As DataToSign = New DataToSign()

            dataToSign.setXadesFormat(EnumFormatoFirma.XAdES_BES) ' XadES-PES

            dataToSign.setEsquema(XAdESSchemas.XAdES_132)

            dataToSign.setPolicyKey("facturae31")

            dataToSign.setAddPolicy(True)

            dataToSign.setXMLEncoding("UTF-8")

            dataToSign.setEnveloped(True)

            dataToSign.addObject(New ObjectToSign(New AllXMLToSign(), "facturae31", Nothing, "text/xml", Nothing))

            dataToSign.setDocument(CargaXML(ArchivoXML))



            ' Firmar

            Dim res() As Object = New FirmaXML().signFile(Certificado, dataToSign, ClavePrivada, Proveedor)



            ' Guardamos la firma en un fichero

            UtilidadTratarNodo.saveDocumentToOutputStream(res(0), New FileOutputStream(ArchivoXMLFirmado), True)



            MsgBox("Fichero " & ArchivoXMLFirmado & " generado correctamente", MsgBoxStyle.OkOnly, "btnFirmarXML_Click")

        Else

            MsgBox("No es posible acceder al certificado", MsgBoxStyle.OkOnly, "btnFirmarXML_Click")

        End If



    End Sub



    Public Shared Function CargaXML(ByVal Ruta As String) As Document



        Dim dbf As DocumentBuilderFactory = DocumentBuilderFactory.newInstance()

        dbf.setNamespaceAware(True)



        Return dbf.newDocumentBuilder().parse(New BufferedInputStream(New FileInputStream(Ruta)))

    End Function



    Public Shared Function CargaCertificado(ByVal Ruta As String, ByVal Clave As String, ByRef ClavePrivada As PrivateKey, ByRef Proveedor As Provider) As X509Certificate

        Dim Certificado As X509Certificate = Nothing



        Proveedor = Nothing

        ClavePrivada = Nothing



        ' Carga certificado de fichero PFX

        Dim ks As KeyStore = KeyStore.getInstance("PKCS12")

        ks.load(New BufferedInputStream(New FileInputStream(Ruta)), Clave.ToCharArray())

        Dim storeManager As IPKStoreManager = New KSStore(ks, New PassStoreKS(Clave))

        Dim certificates As List = storeManager.getSignCertificates()



        ' Si encontramos el certificado

        If certificates.size() = 1 Then

            Certificado = certificates.get(0)



            ' Obtención de la clave privada asociada al certificado

            ClavePrivada = storeManager.getPrivateKey(Certificado)



            ' Obtención del proveedor encargado de las labores criptográficas

            Proveedor = storeManager.getProvider(Certificado)

        End If



        Return Certificado

    End Function



End Class

Se necesitan las siguientes librerías al lado del ejecutable:

commons-logging-1.1.dll
facturaE_additional.dll
IKVM.OpenJDK.Core.dll
IKVM.OpenJDK.Security.dll
IKVM.OpenJDK.Text.dll
IKVM.OpenJDK.Util.dll
IKVM.OpenJDK.XML.API.dll
IKVM.OpenJDK.XML.Parse.dll
IKVM.Runtime.dll
MITyCLibAPI-1.0.4.dll
MITyCLibCert-1.0.4.dll
MITyCLibPolicy-1.0.4.dll
MITyCLibTrust-1.0.4.dll
MITyCLibTSA-1.0.4.dll
MITyCLibXADES-1.0.4.dll
xmlsec-1.4.2-ADSI-1.0.dll

No me preguntéis de donde se sacan porque las busqué hace unos 10 años y no tengo ni pajolera donde las conseguí :D

No sé si tengo posibilidad de subir un rar con esta aplicación de ejemplo, así ya tendríais también las librerías

Ostias @Jarogo08 :D ese código me suena :rolleyes: ...
Lo encontré hace un par de semanas, tengo todas las librerías de las que hablas, pero no fui capaz de hacerlo funcionar ...
A ver si ahora con lo que tú me dices lo consigo ...

Muuuuuuuchas gracias!!! :)

Cita:

Empezado por FacilIng (Mensaje 572074)

Pues copiando y pegando debería funcionarte, acabo de montar la aplicación para ponérosla y me va sin problema!

Sólo tienes que cambiar las 4 variables del principio del botón, obviamente

Cita:

Empezado por Jarogo08 (Mensaje 572075)

Pues copiando y pegando debería funcionarte, acabo de montar la aplicación para ponérosla y me va sin problema!
Sólo tienes que cambiar las 4 variables del principio del botón, obviamente

¡Integrado en nuestro código y funcionando! :fff:fff:fff

¡¡¡Muchísimas gracias @Jarogo08!!! :)

Cita:

Empezado por FacilIng (Mensaje 572095)

¡Integrado en nuestro código y funcionando! :fff:fff:fff

¡¡¡Muchísimas gracias @Jarogo08!!! :)

Me debes una! :cool::cool: :D:D

Cita:

Empezado por Jarogo08 (Mensaje 572097)

Me debes una! :cool::cool: :D:D

¡HECHO! :D
||-|| ||-|| ||-||

Nuevo cambio, acaban de aprobar el borrador del real decreto de factura electronica.
Otra vez volvemos a Facturae, mejor , sí, pero para volverse loco.
Lo peor no es el desarrollo, son los tiempos que dan para los cambios de estado de las factura que tendrán que matizar a que se refieren con 4 días habiles: no es lo mismo recibida, que aceptada, que anulada, que pagada...
Y 4 días habiles puede estar acorde para los envios de facturas emitidas y recibidas/contabilizadas(SII), pero para cambiar estados a facturas recibidas 4 días es un desastre monumental, y creo que poco alineado con la normatiba de facturacion en cuanto a tiempos de contabilización, para los departamentos de contabilidad/administración si se pretende que sea verificada ( la aceptación o no) las recibidas, seriamos esclavos.
espero qie maticen y no sea una locura. Espero que el cambio de eatado de 4 días se refieran a "recibida".
Aún no he leido completamente el borrador, pero ya me ha subido la tensión.

Cita:

Empezado por ermendalenda (Mensaje 572120)

Puedes pasar enlace a donde lo han colgado, porfa.

Cita:

Empezado por bmfranky (Mensaje 572121)

Puedes pasar enlace a donde lo han colgado, porfa.

Nada, no hay borrador se me ha descargado una version del 2023, lo que he puesto es antiguo, ya me extrañaba que fuera facturae, a ver qur nos dicen.
Se ha aprobado pero hay que esperar... tic tac.

Cita:

Empezado por ermendalenda (Mensaje 572122)

Nada, no hay borrador se me ha descargado una version del 2023, lo que he puesto es antiguo, ya me extrañaba que fuera facturae, a ver qur nos dicen.
Se ha aprobado pero hay que esperar... tic tac.

En toda la prensa dicen que han aprobado el real decreto. ¿Pero cual es?

Cita:

Empezado por Noe277 (Mensaje 572125)

En toda la prensa dicen que han aprobado el real decreto. ¿Pero cual es?

Lo mas probable es que aalga mañaba en el BOE, de monento el único borrador que existe oficial y el único que tiene hacienda es el del 2025
https://portal.mineco.gob.es/Recurso...lectronica.pdf