TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[ermendalenda]

Faltaba el fichero, no lo ha pillado

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

Empezado por ermendalenda

Faltaba el fichero, no lo ha pillado

Si puedes subir el código fuente, mejor.
Si no puede ser, pues igualmente se agradece el aporte.

[ermendalenda]

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

Si puedes subir el código fuente, mejor.
Si no puede ser, pues igualmente se agradece el aporte.

Aquí tienes

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
    wServicePackMajor As Variant
  wServicePackMinor As Variant
  wSuiteMask As Variant
  wProductType As Byte
  wReserved As Byte
End Type

Private Declare Function GetVersionExA Lib "kernel32" _
    (lpVersionInformation As OSVERSIONINFO) As Integer


Private Declare Function SHFormatDrive Lib "shell32" _
    (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
    ByVal options As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias _
    "GetDriveTypeA" (ByVal nDrive As String) As Long
  

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)



Function PRINCIPAL()
    Close #1
    Open App.Path & "\SN-Equipo.ini" For Output Shared As #1
    Print #1, GetOsBitness
    Close #1
   
End Function

Private Function devuelve_version() As String
Dim osinfo As OSVERSIONINFO
    Dim retvalue As Integer
    Dim nversion As Double
    devuelve_version = ""
    osinfo.dwOSVersionInfoSize = 148
    osinfo.szCSDVersion = Space$(128)
    retvalue = GetVersionExA(osinfo)
        nversion = osinfo.dwMajorVersion + (osinfo.dwMinorVersion / 10)
        Select Case (nversion)
            Case 5#
                devuelve_version = "Windows-2000"
            Case 5.1
                devuelve_version = "Windows-XP"
            Case 5.2
                If osinfo.wProductType = 2 Then
                    devuelve_version = "Server-2003"
                Else
                    If osinfo.wProductType = 1 Then
                        devuelve_version = "Windows-Home-Server"
                    Else
                        devuelve_version = "Windows-XP-Profesional-x64-Edition"
                    End If
                End If
            Case 6#
                If osinfo.wProductType = 2 Or osinfo.wProductType = 3 Then
                    devuelve_version = "Server-2008"
                Else
                    devuelve_version = "Windows-Vista"
                End If
            Case 6.1
                If osinfo.wProductType = 2 Or osinfo.wProductType = 3 Then
                    devuelve_version = "Server-2008-R2"
                Else
                    devuelve_version = "Windows-7"
                End If
                
            Case 6.2
                If osinfo.wProductType = 2 Or osinfo.wProductType = 3 Then
                    devuelve_version = "Windows-Server-2012"
                Else
                    devuelve_version = "Windows-8"
                    
                End If
            Case 6.3
                If osinfo.wProductType = 2 Or osinfo.wProductType = 3 Then
                    devuelve_version = "Windows-8.1"
                Else
                    devuelve_version = "Windows-Server-2012-R2"
                End If
            
            Case 10#
                If osinfo.wProductType = 2 Or osinfo.wProductType = 3 Then
                    devuelve_version = "Windows-Server-2016"
                Else
                    devuelve_version = "Windows-10"
                
                End If
            Case 11#
                If osinfo.wProductType = 2 Or osinfo.wProductType = 3 Then
                    devuelve_version = "Windows-Server>2020"
                Else
                    devuelve_version = "Windows-11"
                
                End If
        End Select
                
        If osinfo.dwMajorVersion = 3 And osinfo.dwMinorVersion = 51 And osinfo.dwBuildNumber = 1057 And osinfo.dwPlatformId = 2 Then
            devuelve_version = "Windows NT 3.1"
        ElseIf osinfo.dwMajorVersion = 4 And (osinfo.dwMinorVersion = 0 Or osinfo.dwMinorVersion = 10) And osinfo.dwBuildNumber >= 67109814 And osinfo.dwPlatformId = 1 Then
             devuelve_version = "Windows 95"
        ElseIf osinfo.dwMajorVersion = 4 And osinfo.dwMinorVersion = 0 And osinfo.dwBuildNumber = 1381 And osinfo.dwPlatformId = 2 Then
            devuelve_version = "Windows NT 4.0"
        Else
            
            'Windows 98? - Not sure what to put here
        
        End If
    
End Function

Public Function GetOsBitness() As String
Dim cad1 As String * 256
    Dim cad2 As String * 256
    Dim numSerie As Variant
    Dim longitud As Long
    Dim flag As Long
    Dim unidad As String
    Dim ProcessorSet As Object
    Dim WMI As Object
    Dim CPU As Object
    Dim obj As Object
    Dim objs As Object
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("WIN32_BaseBoard")
    For Each obj In objs
        procid = procid & obj.SerialNumber
        
        If procid < objs.Count Then procid = procid & "."
    Next
    mbserialnumber = procid
    procid = LTrim$(procid)
    procid = RTrim$(procid)
    
    'SI NECESITAIS EL PROCESADOR 32 O 64 ACTIVAR PERO ES UN POCO LENTO
    'Set ProcessorSet = GetObject("WinMgmts:"). _
    'ExecQuery("SELECT * FROM Win32_Processor")
    'For Each CPU In ProcessorSet
    '    GetOsBitness = CStr(CPU.AddressWidth)
    '
    'Next
    GetOsBitness = "ProcesadorSN= " & procid
    
    
    leeridcomputadora = "Sin Conexión"
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    
    For Each OBJITEM In colNetAdapters
        leeridcomputadora = OBJITEM.MACAddress
   
    Exit For
    Next
    leeridcomputadora2 = leeridcomputadora
    While InStr(1, leeridcomputadora2, ":") > 0
        leeridcomputadora2 = Left(leeridcomputadora2, InStr(1, leeridcomputadora2, ":") - 1) & Right(leeridcomputadora2, Len(leeridcomputadora2) - InStr(1, leeridcomputadora2, ":"))
            
    Wend
    numerie = ""
    unidad = ""
    If Len(App.Path) > 1 Then
        If Mid(App.Path, 2, 1) = ":" Then
            unidad = Left(App.Path, 2) & "\"
            Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
    
        End If
    End If
    GetOsBitness = GetOsBitness & vbCrLf & "MAC= " & leeridcomputadora & vbCrLf & "MACsp= " & leeridcomputadora2 & vbCrLf & "HD-Serial= " & numSerie & vbCrLf & "HD_UNID= " & unidad & vbCrLf & "VER= " & devuelve_version
    
End Function

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

Empezado por ermendalenda

Aquí tienes

Gracias.
He actualizado el hilo de los recursos.
Para añadir link al código, al ejecutable y también he puesto la DLL (MSVBVM50.DLL) necesaria para los que no la tienen de VB.

[ermendalenda]

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

Gracias.
He actualizado el hilo de los recursos.
Para añadir link al código, al ejecutable y también he puesto la DLL (MSVBVM50.DLL) necesaria para los que no la tienen de VB.

Te dejo mejor un instalador del MSV... para no tener que registrarlo a mano.

[ermendalenda]

pues no me deja, 624Kb

[Nessie]

Hola,


en primer lugar muchas gracias a este foro por la información que se ha publicado en él. Gracias, gracias, gracias.


En segundo lugar, una duda sobre el certificado de dispositivo.



Tengo desarrollada una aplicación de facturación en PHP. Está alojada en un servidor compartido (en GoDaddy). A la hora de pedir el certificado de dispositivo, no puedo acceder a ningún número de serie del servidor. ¿A alguien le ha sucedido algo parecido? ¿Cómo lo habéis resuelto?


Muchas gracias.
Un saludo.
Nessie.

[ermendalenda]

Empezado por Nessie

Hola,


en primer lugar muchas gracias a este foro por la información que se ha publicado en él. Gracias, gracias, gracias.


En segundo lugar, una duda sobre el certificado de dispositivo.



Tengo desarrollada una aplicación de facturación en PHP. Está alojada en un servidor compartido (en GoDaddy). A la hora de pedir el certificado de dispositivo, no puedo acceder a ningún número de serie del servidor. ¿A alguien le ha sucedido algo parecido? ¿Cómo lo habéis resuelto?


Muchas gracias.
Un saludo.
Nessie.

No entiendo bien la pregunta, no puedes acceder al certificado o al número de. Serie.
En todo caso tiene pinta de permisos. Cuando haces un php que te funciona en un lado y en otro no, suele ser eso.

[Nessie]

Empezado por ermendalenda

No entiendo bien la pregunta, no puedes acceder al certificado o al número de. Serie.
En todo caso tiene pinta de permisos. Cuando haces un php que te funciona en un lado y en otro no, suele ser eso.

Hola Ermendalenda.
Gracias por la respuesta. No me extraña que no entendieras bien la pregunta: estaba muy mal redactada. La reformulo aquí:


El sistema de facturación que desarrollo es una aplicación web desarrollada en PHP.
Desde el ordenador cliente se genera la factura. Esa factura se envía al servidor. En el servidor se firma, se genera el XML, se guarda y se envía a hacienda.
Por lo tanto, entiendo que el certificado para realizar la firma ha de estar físicamente en el servidor.
Quiero usar un certificado de dispositivo.
Voy a la web Izenpe para obtener un certificado de dispositivo.
En Izenpe me piden el fabricante y el número de serie del dispositivo desde donde se van a emitir/firmar las facturas.
Al estar la aplicación alojada en un servidor compartido (un hosting en GoDaddy), no puedo acceder a esa información.


Leo en el Anexo III (p.7) de la documentación de Diputación de Gipuzkoa:


4.2.2 Arquitecturas con firma en servidor
Se podrá firmar con: certificado de persona física, certificado de representante de
entidad, sello de empresa, certificado de autónomo-autónoma o certificado de
dispositivo.


¿Hay alguien en la misma tesitura? ¿Alguien está usando un certificado de dispositivo en un servidor compartirdo?



Muchas gracias.
Buen día.

Nessie.

[ermendalenda]

Empezado por Nessie

Hola Ermendalenda.
Gracias por la respuesta. No me extraña que no entendieras bien la pregunta: estaba muy mal redactada. La reformulo aquí:


El sistema de facturación que desarrollo es una aplicación web desarrollada en PHP.
Desde el ordenador cliente se genera la factura. Esa factura se envía al servidor. En el servidor se firma, se genera el XML, se guarda y se envía a hacienda.
Por lo tanto, entiendo que el certificado para realizar la firma ha de estar físicamente en el servidor.
Quiero usar un certificado de dispositivo.
Voy a la web Izenpe para obtener un certificado de dispositivo.
En Izenpe me piden el fabricante y el número de serie del dispositivo desde donde se van a emitir/firmar las facturas.
Al estar la aplicación alojada en un servidor compartido (un hosting en GoDaddy), no puedo acceder a esa información.


Leo en el Anexo III (p.7) de la documentación de Diputación de Gipuzkoa:


4.2.2 Arquitecturas con firma en servidor
Se podrá firmar con: certificado de persona física, certificado de representante de
entidad, sello de empresa, certificado de autónomo-autónoma o certificado de
dispositivo.


¿Hay alguien en la misma tesitura? ¿Alguien está usando un certificado de dispositivo en un servidor compartirdo?



Muchas gracias.
Buen día.

Nessie.

Hola buenas, claro, tienes un problema si quieres usar un servidor externo que además no es tuyo y quieres usar certificado de dispositivo,para ello el propietario del servidor tendria que solicitar dicho certificado, ¿Que haria yo?:
*Pide el certificado de dispositivo del equipo que hace la llamada.
*Aloja un php en el servidor mandale el xml y el certificado de dispostivo de cada equipo local(que puede estar alojado en una carpeta en vez de enviarlo en cada llamada), al enviar la llamada tienes que especificar con que certificado firrmar.

Des esta forrma estas usando un servicio externo pero en realidad estas firmando con tu dispositivo.


Por otro lado si quieres asegurarte un pelín más:

*La llamada al php que te devuelva el xml firmado y desde el equipo local haces el envio y guarda en el que quieras, mientras puedas dar acceso..


Saludos

[ermendalenda]

Empezado por ermendalenda

Hola buenas, claro, tienes un problema si quieres usar un servidor externo que además no es tuyo y quieres usar certificado de dispositivo,para ello el propietario del servidor tendria que solicitar dicho certificado, ¿Que haria yo?:
*Pide el certificado de dispositivo del equipo que hace la llamada.
*Aloja un php en el servidor mandale el xml y el certificado de dispostivo de cada equipo local(que puede estar alojado en una carpeta en vez de enviarlo en cada llamada), al enviar la llamada tienes que especificar con que certificado firrmar.

Des esta forrma estas usando un servicio externo pero en realidad estas firmando con tu dispositivo.


Por otro lado si quieres asegurarte un pelín más:

*La llamada al php que te devuelva el xml firmado y desde el equipo local haces el envio y guarda en el que quieras, mientras puedas dar acceso..


Saludos

Para la firma en la nube es habitual usar servidores de nube donde se alojan los certificados para realizar firmas, pero con una seguridad para evitar que se acceda a esos certificados por otras personas, HSM (Hardware Security Module),

[Alkavanyatur]

Hola

Estoy desarrollando un solución para TBAI y me he encontrado con un problemilla que quizás no tiene solución.

Lo comento por si a alguien le ha pasado lo mismo.

Los tiempos de respuesta de la llamada a generar la factura para obtener el QR son de aproximadamente 2 segundos en desarrollo. Por las características del negocio en el que me muevo es posible que se realicen 1000 operaciones por minuto o incluso más.

Las facturas tienen que ser secuenciales. Así que este problema limita totalmente ya que es imposible que funcione a esa velocidad.


¿Ideas? Decir que me he quedado sin conexión a internet cuando se de la casuística?

[chenech]

Buenas tardes, alguien tiene un XML de una factura de ejemplo antes de firmar y no le importaria compartir?
Mil gracias...

Al intentar con AutoFirma me da el siguiente mensaje:

[Fatal Error] :15:32: Byte no vßlido 1 de la secuencia UTF-8 de 1 bytes
<afirma><result>false</result><response><msg>Error en la operacion de firma: Las firmas XAdES Enveloped solo pueden realizarse sobre datos XML</msg></response></afirma>

Creo que me falta algo en el pie del XML referente a Signatures.
Ayuda, gracias.

[Nessie]

Empezado por ermendalenda

Hola buenas, claro, tienes un problema si quieres usar un servidor externo que además no es tuyo y quieres usar certificado de dispositivo,para ello el propietario del servidor tendria que solicitar dicho certificado, ¿Que haria yo?:
*Pide el certificado de dispositivo del equipo que hace la llamada.
*Aloja un php en el servidor mandale el xml y el certificado de dispostivo de cada equipo local(que puede estar alojado en una carpeta en vez de enviarlo en cada llamada), al enviar la llamada tienes que especificar con que certificado firrmar.

Des esta forrma estas usando un servicio externo pero en realidad estas firmando con tu dispositivo.


Por otro lado si quieres asegurarte un pelín más:

*La llamada al php que te devuelva el xml firmado y desde el equipo local haces el envio y guarda en el que quieras, mientras puedas dar acceso..


Saludos

Hola Ermendalenda,
gracias por la respuesta.



Sí, algo así estaba pensando yo. Lo que no sé es si pondrán pegas al firmar en un servidor con un certificado de dispositivo que corresponde a la máquina cliente. (Técnicamente funciona, ya lo tengo programado)



Veremos.
Un saludo y gracias.

[keys]

Hola a todos.

Perdonar pero sigo con mi lucha con los suplidos. He realizado la consulta a cada hacienda y en Gipuzkoa me han contestado una cosa y en Bizkaia otra.

Bizkaia

1. En el caso que la factura solo esté constituida por el suplido no habría obligación de expedir factura por lo que no deberá de cumplir con TicketBai.

2. Si en la factura se documenta un suplido y además otras operaciones: esa factura sí que irá con TicketBAI. La parte correspondiente al suplido se identificará como importe no sujeto a IVA. Como causa de no sujeción se marcará la clave “OT”. El suplido sí que forma parte del total de la factura. La factura se mandará al subcapítulo 1.1 del LROE (factura con software garante). En la anotación de dicho registro el usuario puede especificar que el ingreso en IRPF es diferente a la suma de los conceptos de la factura. Es decir, que si el importe sujeto a IVA de la factura es 100 y el suplido es 50 (total factura 150), se debe indicar en la anotación que el ingreso a efectos del IRPF es 100. En cuanto al LROE modelo 140, la parte del suplido se tendrá que informar también en el capítulo de provisiones de fondos y suplidos.

Gipuzkoa

Los suplidos no es un campo que haya que informar en el XML. El suplido es un pago por cuenta del cliente a un tercero y por tanto no forma parte del ImporteTotalFactura ni de la Base Imponible.
En el caso en el que, en una factura, por ejemplo, además de los honorarios de un profesional se documentase un suplido, el importe del suplido no formaría parte de la base imponible del IVA pero estas facturas deben cumplir igualmente los requisitos TicketBAI. En este caso, cuando los suplidos vayan encuadrados en una factura por prestación de servicios, se podrá disponer de un campo para los suplidos después del Importe Total Factura, donde deberá informarse de los suplidos que contenga la factura.

En cambio, si únicamente se quisiera documentar un suplido, se trataría de una operación en la que no se documenta ninguna entrega de bienes ni prestación de servicios, ya que en estos casos el empresario actuaría como mero intermediario, satisfaciendo sumas de dinero del cliente a un tercero por mandato expreso. En este último caso, no habría obligación de expedir factura de acuerdo con lo dispuesto en el Reglamento de facturación, pudiéndose documentar la operación en un recibo u otro justificante. Por tanto, un documento en el que solo se informe de un suplido quedaría fuera del ámbito de aplicación de TicketBAI.

Alguien se aclara?

[ermendalenda]

Empezado por Nessie

Hola Ermendalenda,
gracias por la respuesta.



Sí, algo así estaba pensando yo. Lo que no sé es si pondrán pegas al firmar en un servidor con un certificado de dispositivo que corresponde a la máquina cliente. (Técnicamente funciona, ya lo tengo programado)



Veremos.
Un saludo y gracias.

No creo que se metan demasiado en detalles tan discutibles.

[Sistel]

Empezado por Nessie

...
Leo en el Anexo III (p.7) de la documentación de Diputación de Gipuzkoa:
4.2.2 Arquitecturas con firma en servidor
Se podrá firmar con: certificado de persona física, certificado de representante de
entidad, sello de empresa, certificado de autónomo-autónoma o certificado de
dispositivo.
...

Hola Nessie,

https://www.gipuzkoa.eus/documents/2.../Anexo+III.pdf
Página 5:

4.2.2. Arquitecturas con firma en servidor.
Se considera arquitectura con firma en servidor, cuando el software TicketBAI que
realiza la firma se encuentra ubicado en un dispositivo distinto al dispositivo de
facturación desde el que se accede al mismo. Por tanto, el dispositivo de facturación
cliente accede de forma remota a otro dispositivo para realizar la firma.
De forma complementaria, si la emisión de facturas o justificantes se realiza en
procesos desasistidos (batch) se considera “arquitectura con firma en servidor”.
Se podrá firmar con: certificado de persona física, certificado de representante de
entidad, sello de empresa o certificado de autónomo o autónoma.
En este caso, no se permite la firma con certificado de dispositivo.

Saludos

[Sistel]

Hola,

Como ampliación a lo anterior, recibí email de TicketBAI-Gipuzkoa en el que se me indicaba:

Cambios en Certificado de dispositivo
En breve se va a publicar la nueva política de firma. Que incluye el cambio de certificado de
dispositivo.
Cambios en el certificado de dispositivo:
 Se podrá solicitar identificando un punto de facturación en lugar del número de serie
del dispositivo.
 Es posible la solicitud de certificados en bloque (hasta 100 certificados). Si desea
solicitar certificados de dispositivo en bloque puede recurrir al buzón de contacto
TicketBAI de IZENPE.
 Se podrá solicitar antes de disponer del dispositivo concreto donde ira instalado
 Se podrá usar en arquitecturas en servidor (excepto Tercero/Destinatario)

Pero no he sabido nada más del tema.

Hice la consulta a TicketBAI-Bizkaia (Batuz) sobre si en este territorio también se va a permitir la firma en servidor con certificado de dispositivo.
Estoy a la espera de respuesta.

Saludos

[Nessie]

Empezado por Sistel

Hola,

Como ampliación a lo anterior, recibí email de TicketBAI-Gipuzkoa en el que se me indicaba:

Pero no he sabido nada más del tema.

Hice la consulta a TicketBAI-Bizkaia (Batuz) sobre si en este territorio también se va a permitir la firma en servidor con certificado de dispositivo.
Estoy a la espera de respuesta.

Saludos

Gracias, Sistel.
Sí, puede ser interesante que, en lugar de con el número de serie, se identifique al dispositivo con un número de punto de facturación.


Un saludo.
Seguimos.

[Nessie]

Empezado por Sistel

Hola Nessie,

Página 5:


Saludos

Hola Sistel,
gracias por la respuesta.


Creo que el documento al que haces referencia es un Anexo III antiguo. En la web de TicketBai lo tienen archivado en Versiones Anteriores.


En la última versión del Anexo III, en el punto 4.2.2. pone que sí se puede usar un certificado de dispositivo en el servidor.


Un saludo y gracias.