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

batuzail · #1 13-07-2021

Cita:

Empezado por NVS

Hola,

Me parece muy buen consejo empezar con postman en la programacion de LROE de ticketbai e ir paso a paso, y es lo que quiero hacer, pero no consigo configurar en envío para Bizkaia (Guipuzkoa sin problemas)

Me podeis ayudar??

La respuesta que me da es está:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html>
<head>
<title>400 Bad Request</title>
</head>
<body>
<h1>Bad Request</h1>
<p>Your browser sent a request that this server could not understand.<br />
</p>
</body>
</html>

Quería poner imagenes con mi configuración, pero me da error al postear: Aún no tienes permitido poner enlaces ni imágenes

El valor completo de "eus-bizkaia-n3-data" es: {"con": "LROE", "apa": "1.1", "inte": {"nif": "B00000034","nrs": "HOTEL ADIBIDEZ"},"drs": {"mode": "240","ejer": "2022"}}

Muchas gracias de antemano

Yo estoy igual que tu, lo intento desde Postman y desde VB6 con Chilkat y recibo siempre error 400, si lo consigo te aviso, creo que debe de ser algo de los Headers

b4aronDeLaBirr4 · #2 13-07-2021

Has añadido el certificado en POSTMAN?

Se añaden aquí como en esta imagen

Yo puse el sello_entidad_act.p12 de desarrollode Izempe (recuerda poner el pin también, que es: IZDesa2021) y pones el Endpoint como puede ser el de alta: https://tbai-prep.egoitza.gipuzkoa.e...nFacturas/alta

sEngine · #3 13-07-2021

¿Sabeis si hay algun DNI de prueba para poder usar para las pruebas en bizkaia? Somos una empresa de fuera del pais vasco y si usamos nuestro DNI dice: "El interesado no está identificado",y si intento usar el de algun cliente nuestro me dice "No existe un apoderamiento para la pareja de interesado y representante indicada", por lo que no puedo probar si funciona realmente.
Me he bloqueado ya

skatologiko · #4 13-07-2021

Buenas tardes a todos. Soy nuevo en el foro, el cual he descubierto hoy volviéndome loco para preparar mis programas para ticket BAI. Tras leer las 50 páginas, sigo más perdido que un pulpo en un garaje. A ver si me podéis arrojar algo de luz. Yo programo con VB6 y las facturas las genero con Crystal Reports. Si no he entendido mal los pasos son los siguientes
Paso 1: Genero el XML de la factura. ¿de dónde sale el número de serie del dispositivo?
Paso 2: Obtengo un XML firmado con Autofirma a partir del fichero obtenido en el paso 1 y con un certificado digital, por ejemplo de la FNMT.
Paso 3: Aquí no entiendo si lo que tengo que extraer son 13 dígitos del archivo del paso 2 o qué exactamente. ¿Con esos dígitos se forma el código QR? ¿En formato jpg? ¿Habría que incrustar esa imagen jpg en la factura?
Paso 4: Entiendo que aquí hay que enviar el archivo obtenido en el paso 2 ¿no?. Y que es diferente para Guipuzcoa o Vizcaya

Otra duda que tengo es cuál es la manera más económica (o gratuita) de obtener el certificado para firmar el .EXE con signtool (porque para eso no sirve mi certificado de la FNMT ¿no?.

batuzail · #5 14-07-2021

Cita:

Empezado por skatologiko

Buenas tardes a todos. Soy nuevo en el foro, el cual he descubierto hoy volviéndome loco para preparar mis programas para ticket BAI. Tras leer las 50 páginas, sigo más perdido que un pulpo en un garaje. A ver si me podéis arrojar algo de luz. Yo programo con VB6 y las facturas las genero con Crystal Reports. Si no he entendido mal los pasos son los siguientes
Paso 1: Genero el XML de la factura. ¿de dónde sale el número de serie del dispositivo?
Paso 2: Obtengo un XML firmado con Autofirma a partir del fichero obtenido en el paso 1 y con un certificado digital, por ejemplo de la FNMT.
Paso 3: Aquí no entiendo si lo que tengo que extraer son 13 dígitos del archivo del paso 2 o qué exactamente. ¿Con esos dígitos se forma el código QR? ¿En formato jpg? ¿Habría que incrustar esa imagen jpg en la factura?
Paso 4: Entiendo que aquí hay que enviar el archivo obtenido en el paso 2 ¿no?. Y que es diferente para Guipuzcoa o Vizcaya

Otra duda que tengo es cuál es la manera más económica (o gratuita) de obtener el certificado para firmar el .EXE con signtool (porque para eso no sirve mi certificado de la FNMT ¿no?.

Te recomiendo los componentes de Chilkat para generar los xml y para realizar el envío, lo estoy haciedo sobre VB6, y ya consigo enviar a Gipuzkoa, en Bizkaia me da error 400 y 415, creo que es algo de cabeceras que tendré que descubrir.
Yo uso CR8.5 y para generar el QR encontre un dll que lo genera y permite guardarlo como imagen, ya que la versión de CR no permite crear QR.

Si necesitas ayuda te puedo pasar ejemplos para el envío.

Saludos

NVS · #6 14-07-2021

Cita:

Empezado por batuzail

Te recomiendo los componentes de Chilkat para generar los xml y para realizar el envío, lo estoy haciedo sobre VB6, y ya consigo enviar a Gipuzkoa, en Bizkaia me da error 400 y 415, creo que es algo de cabeceras que tendré que descubrir.
Yo uso CR8.5 y para generar el QR encontre un dll que lo genera y permite guardarlo como imagen, ya que la versión de CR no permite crear QR.

Si necesitas ayuda te puedo pasar ejemplos para el envío.

Saludos

Hola,

Una pregunta, las librerias de Chilkat NO son gratuitas, ¿verdad? o ¿si?

batuzail · #7 14-07-2021

Cita:

Empezado por NVS

Hola,

Una pregunta, las librerias de Chilkat NO son gratuitas, ¿verdad? o ¿si?

No, pero no son muy caras, para un empresa, unos 289$ licencia de por vida. Te van ha facilitar muchisimo la vida.

thinkows · #8 14-07-2021

Cita:

Empezado por batuzail

Te recomiendo los componentes de Chilkat para generar los xml y para realizar el envío, lo estoy haciedo sobre VB6, y ya consigo enviar a Gipuzkoa, en Bizkaia me da error 400 y 415, creo que es algo de cabeceras que tendré que descubrir.
Yo uso CR8.5 y para generar el QR encontre un dll que lo genera y permite guardarlo como imagen, ya que la versión de CR no permite crear QR.

Si necesitas ayuda te puedo pasar ejemplos para el envío.

Saludos

Buenos días creía que era el único en desarrollar en anacrónico VB6 que alegría me has dado, yo también genero el xml y firmo con chilkat ... pero el envío a Guipuzkoa lo tengo muy verde, estoy probando con Advanced Rest Client de SoftEmule el ejemplo que ha puesto un compañero pero siempre me da error 500, podrías poner algun ejemplo de envio a Guipuzkoa ??? te estaría muy agradecido y si necesitas algo mi
aquí estoy ....

Saludos y gracias de antemano

batuzail · #9 14-07-2021

Cita:

Empezado por thinkows

Buenos días creía que era el único en desarrollar en anacrónico VB6 que alegría me has dado, yo también genero el xml y firmo con chilkat ... pero el envío a Guipuzkoa lo tengo muy verde, estoy probando con Advanced Rest Client de SoftEmule el ejemplo que ha puesto un compañero pero siempre me da error 500, podrías poner algun ejemplo de envio a Guipuzkoa ??? te estaría muy agradecido y si necesitas algo mi
aquí estoy ....

Saludos y gracias de antemano

Aqui tienes lo que tengo hasta el momento, está un poco guarrete y con cosas a piñón, ya que estoy de pruebas aún, pero como punto de partida te funcionará, por lo menos para Gipuzkoa, yo tengo que implemetar los tres envíos. Como ves usando Chilkat no es muy complejo, además hay ejemplos y utilidades https://tools.chilkat.io/xmlCreate.cshtml, puedes instalar una version trial de 30 dias.

Código:

Attribute VB_Name = "TicketBAI"
Option Explicit


Public Function GenerarXMLTbai() '(ejercicio As Integer, serie As String, factura As Long) As Boolean
Dim success As Long
Dim rsFactura As Recordset
Dim sSQL As String

success = 1
'  Create the XML to be signed...
Dim xmlToSign As New ChilkatXml
xmlToSign.Tag = "T:TicketBai"
success = xmlToSign.AddAttribute("xmlns:T", "urn:ticketbai:emision")
xmlToSign.UpdateChildContent "Cabecera|IDVersionTBAI", "1.2"
xmlToSign.UpdateChildContent "Sujetos|Emisor|NIF", "B00000034"
xmlToSign.UpdateChildContent "Sujetos|Emisor|ApellidosNombreRazonSocial", "HOTEL ADIBIDEZ"
xmlToSign.UpdateChildContent "Sujetos|Destinatarios|IDDestinatario|NIF", "B26248146"
xmlToSign.UpdateChildContent "Sujetos|Destinatarios|IDDestinatario|ApellidosNombreRazonSocial", "EMPRESA LANTEGIA"
xmlToSign.UpdateChildContent "Factura|CabeceraFactura|SerieFactura", "B2022"
xmlToSign.UpdateChildContent "Factura|CabeceraFactura|NumFactura", "0100"
xmlToSign.UpdateChildContent "Factura|CabeceraFactura|FechaExpedicionFactura", "30-01-2021"
xmlToSign.UpdateChildContent "Factura|CabeceraFactura|HoraExpedicionFactura", "18:00:17"
xmlToSign.UpdateChildContent "Factura|DatosFactura|DescripcionFactura", "Servicios Hotel"
xmlToSign.UpdateChildContent "Factura|DatosFactura|DetallesFactura|IDDetalleFactura|DescripcionDetalle", ""
xmlToSign.UpdateChildContent "Factura|DatosFactura|DetallesFactura|IDDetalleFactura|Cantidad", "1"
xmlToSign.UpdateChildContent "Factura|DatosFactura|DetallesFactura|IDDetalleFactura|ImporteUnitario", "55"
xmlToSign.UpdateChildContent "Factura|DatosFactura|DetallesFactura|IDDetalleFactura|Descuento", "0"
xmlToSign.UpdateChildContent "Factura|DatosFactura|DetallesFactura|IDDetalleFactura|ImporteTotal", "66.55"
xmlToSign.UpdateChildContent "Factura|DatosFactura|ImporteTotalFactura", "66.55"
xmlToSign.UpdateChildContent "Factura|DatosFactura|Claves|IDClave|ClaveRegimenIvaOpTrascendencia", "01"
xmlToSign.UpdateChildContent "Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|TipoNoExenta", "S1"
xmlToSign.UpdateChildContent "Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|BaseImponible", "55.00"
xmlToSign.UpdateChildContent "Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|TipoImpositivo", "21.00"
xmlToSign.UpdateChildContent "Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|CuotaImpuesto", "11.55"
xmlToSign.UpdateChildContent "HuellaTBAI|EncadenamientoFacturaAnterior|SerieFacturaAnterior", "B2022"
xmlToSign.UpdateChildContent "HuellaTBAI|EncadenamientoFacturaAnterior|NumFacturaAnterior", "0099"
xmlToSign.UpdateChildContent "HuellaTBAI|EncadenamientoFacturaAnterior|FechaExpedicionFacturaAnterior", "29-01-2022"
xmlToSign.UpdateChildContent "HuellaTBAI|EncadenamientoFacturaAnterior|SignatureValueFirmaFacturaAnterior", "BeMkKwXaFsxHQec65SKpVP7EU9o4nUXOx7SAftIToFsxH+2j2tXPXhpBUnS26dhdSpiMl2DlTuqRsFdZfWyYazaGHgSRQHZZAnFt"
xmlToSign.UpdateChildContent "HuellaTBAI|Software|LicenciaTBAI", "TBAXXXXX"
xmlToSign.UpdateChildContent "HuellaTBAI|Software|EntidadDesarrolladora|NIF", "XXXXXX"
xmlToSign.UpdateChildContent "HuellaTBAI|Software|Nombre", "XXXXXXX"
xmlToSign.UpdateChildContent "HuellaTBAI|Software|Version", App.Major & "." & App.Minor & "." & App.Revision

FirmarXMLTbai xmlToSign

End Function

Public Function FirmarXMLTbai(xmlToSign As ChilkatXml) As Boolean
Dim gen As New ChilkatXmlDSigGen
Dim success As Long
    success = 1
    gen.SigLocation = "T:TicketBai"
    gen.SigLocationMod = 0
    gen.SigId = "Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-Signature"
    gen.SigNamespacePrefix = "ds"
    gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
    gen.SigValueId = "Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-SignatureValue"
    gen.SignedInfoCanonAlg = "C14N"
    gen.SignedInfoDigestMethod = "sha256"
    
    '  Set the KeyInfoId before adding references..
    gen.KeyInfoId = "Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-KeyInfo"
    
    '  Create an Object to be added to the Signature.
    Dim object1 As New ChilkatXml
    object1.Tag = "xades:QualifyingProperties"
    success = object1.AddAttribute("xmlns:xades", "http://uri.etsi.org/01903/v1.3.2#")
    success = object1.AddAttribute("Id", "Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-QualifyingProperties")
    success = object1.AddAttribute("Target", "#Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-Signature")
    success = object1.AddAttribute("xmlns:ds", "http://www.w3.org/2000/09/xmldsig#")
    success = object1.UpdateAttrAt("xades:SignedProperties", 1, "Id", "Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-SignedProperties")
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime", "TO BE GENERATED BY CHILKAT"
    success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2001/04/xmlenc#sha512")
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT"
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName", "TO BE GENERATED BY CHILKAT"
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber", "TO BE GENERATED BY CHILKAT"
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier", "https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf"
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description", ""
    success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2001/04/xmlenc#sha256")
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue", "Quzn98x3PMbSHwbUzaj5f5KOpiH0u8bvmwbbbNkO9Es="
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI", "https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf"
    success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat", 1, "ObjectReference", "#Reference-cf54e6a9-7bf2-4128-8cae-474a267a16a1")
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description", ""
    success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier", 1, "Qualifier", "OIDAsURN")
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier", "urn:oid:1.2.840.10003.5.109.10"
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Description", ""
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType", "text/xml"
    object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding", ""
    
    success = gen.AddObject("", object1.GetXml(), "", "")
    '  -------- Reference 1 --------
    success = gen.AddSameDocRef("", "sha512", "C14N", "", "http://www.w3.org/2000/09/xmldsig#Object")
    success = gen.SetRefIdAttr("", "Reference-cf54e6a9-7bf2-4128-8cae-474a267a16a1")
    '  -------- Reference 2 --------
    success = gen.AddObjectRef("Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-SignedProperties", "sha512", "", "", "http://uri.etsi.org/01903#SignedProperties")
    '  -------- Reference 3 --------
    success = gen.AddSameDocRef("Signature-a53a6ab2-f904-4f7c-be64-603333f651bf-KeyInfo", "sha512", "", "", "")
    '  Provide a certificate + private key. (PFX password is test123)
    Dim cert As New ChilkatCert
    success = cert.LoadPfxFile("ruta.pfx", "1234")
    If (success <> 1) Then
        Debug.Print cert.LastErrorText
        Exit Function
    End If
    
    success = gen.SetX509Cert(cert, 1)
    
    gen.KeyInfoType = "X509Data+KeyValue"
    gen.X509Type = "Certificate"
    '  Load XML to be signed...
    Dim sbXml As New ChilkatStringBuilder
    success = xmlToSign.GetXmlSb(sbXml)
    gen.Behaviors = "IndentedSignature,TransformSignatureXPath"
    '  Sign the XML...
    success = gen.CreateXmlDSigSb(sbXml)
    If (success <> 1) Then
        Debug.Print gen.LastErrorText
        Exit Function
    End If
    '  Save the signed XML to a file.
    success = sbXml.WriteFile("c:\signedXml.xml", "utf-8", 0)
    'Debug.Print sbXml.GetAsString()
    
    VerificarFirmaXMLTbai sbXml
End Function
 
Public Function VerificarFirmaXMLTbai(sbXml As ChilkatStringBuilder) As Boolean
Dim verifier As New ChilkatXmlDSig
Dim success As Long
    success = 1
    success = verifier.LoadSignatureSb(sbXml)
    If (success <> 1) Then
        Debug.Print verifier.LastErrorText
        Exit Function
    End If
    
    Dim numSigs As Long
    numSigs = verifier.NumSignatures
    Dim verifyIdx As Long
    verifyIdx = 0
    Do While verifyIdx < numSigs
        verifier.selector = verifyIdx
        Dim verified As Long
        verified = verifier.VerifySignature(1)
        If (verified <> 1) Then
            Debug.Print verifier.LastErrorText
            Exit Function
        End If
    
        verifyIdx = verifyIdx + 1
    Loop
    Debug.Print "All signatures were successfully verified."
End Function

Public Sub EnviarXMLTbai()

Dim Http As New ChilkatHttp
Dim success As Boolean
success = Http.SetSslClientCertPfx("ruta.pfx", "1234")
If (success = False) Then
    Debug.Print Http.LastErrorText
    Exit Sub
End If

' Get the XML we wish to send in the body of the request.
Dim sbXml As New ChilkatStringBuilder
success = sbXml.LoadFile("c:\signedXml.xml", "utf-8")
If (success = False) Then
    Debug.Print ("Failed to load XML that is to be the HTTP request body")
    Exit Sub
End If

Dim url As String
url = "https://tbai-prep.egoitza.gipuzkoa.eus/WAS/HACI/HTBRecepcionFacturasWEB/rest/recepcionFacturas/alta"
Dim bGzip As Boolean
bGzip = True
Dim resp As ChilkatHttpResponse

Set resp = Http.PostXml(url, sbXml.GetAsString, "utf-8")
If (Http.LastMethodSuccess = False) Then
    Debug.Print (Http.LastErrorText)
    Exit Sub
End If

Http.ClearHeaders

Debug.Print ("response status code: " & resp.StatusCode)

' Examine the response (it is already decompressed)
Debug.Print ("response body:")
Debug.Print (resp.BodyStr)

End Sub

Galaxian · #10 15-07-2021

Cita:

Empezado por thinkows

Buenos días creía que era el único en desarrollar en anacrónico VB6 que alegría me has dado, yo también genero el xml y firmo con chilkat ... pero el envío a Guipuzkoa lo tengo muy verde, estoy probando con Advanced Rest Client de SoftEmule el ejemplo que ha puesto un compañero pero siempre me da error 500, podrías poner algun ejemplo de envio a Guipuzkoa ??? te estaría muy agradecido y si necesitas algo mi
aquí estoy ....

Saludos y gracias de antemano

Las librerías Chilkat también tienen su propia clase REST. Aquí tiene un ejemplo en C++ que no debería costarte demasiado "trasplantarlo" a VB6:

NOTAS:
El JSON y el XML ya están creados y cargados en la variable string "jsn" y "xml" respectivamente.
El certificado en un objeto del tipo CkCert llamado "Certificado.
Para más claridad he quitado el control de errores.

Cita:

CkRest rest;
rest.AddHeader("Accept-Encoding","gzip");
rest.AddHeader("Content-Encoding","gzip");
rest.AddHeader("Content-Type","application/octet-stream");
rest.AddHeader("eus-bizkaia-n3-version","1.0");
rest.AddHeader("eus-bizkaia-n3-content-type","application/xml");
rest.AddHeader("eus-bizkaia-n3-data",cCodificacion::Codificar::JsonEscape(jsn));

CkSocket socket;

socket.SetSslClientCert(Certificado);
socket.Connect("pruesarrerak.bizkaia.eus",443,SI,5000);

rest.UseConnection(socket,true);
rest.SendReqStringBody("POST","/N3B4000M/aurkezpena",xml);

rest.ReadResponseHeader(); // Si necesitas las cabeceras para algo. Normalmente no son
std::string cr=rest.responseHeader() // necesarias, pero en caso de error de envío pueden ser útiles.

CkByteData rb;
rest.ReadRespBodyBinary(rb);

// Ya solo queda extraer el gzip que está en la variable rb y descomprimirlo.

skatologiko · #11 14-07-2021

Muchas gracias, pues sí que lo agradecería. Acabo de adquirir la licencia de Chilkat (que justo además la necesitaba también para otra cosa, jejeje )

Cita:

Empezado por batuzail

Te recomiendo los componentes de Chilkat para generar los xml y para realizar el envío, lo estoy haciedo sobre VB6, y ya consigo enviar a Gipuzkoa, en Bizkaia me da error 400 y 415, creo que es algo de cabeceras que tendré que descubrir.
Yo uso CR8.5 y para generar el QR encontre un dll que lo genera y permite guardarlo como imagen, ya que la versión de CR no permite crear QR.

Si necesitas ayuda te puedo pasar ejemplos para el envío.

Saludos

NVS · #12 19-07-2021

Cita:

Empezado por batuzail

Te recomiendo los componentes de Chilkat para generar los xml y para realizar el envío, lo estoy haciedo sobre VB6, y ya consigo enviar a Gipuzkoa, en Bizkaia me da error 400 y 415, creo que es algo de cabeceras que tendré que descubrir.
Yo uso CR8.5 y para generar el QR encontre un dll que lo genera y permite guardarlo como imagen, ya que la versión de CR no permite crear QR.

Si necesitas ayuda te puedo pasar ejemplos para el envío.

Saludos

Hola,

Yo también uso CR8.5 para los formatos de facturas, ¿¿¿me podrias decir cómo haces para meter el QR???

Muchas gracias!

keys · #13 19-07-2021

Mi profecia se hace realidad.

https://web.bizkaia.eus/es/web/area-...%2Fes%2Finicio

Con permiso del moderador me cago en toooo

batuzail · #14 20-07-2021

Cita:

Empezado por NVS

Hola,

Yo también uso CR8.5 para los formatos de facturas, ¿¿¿me podrias decir cómo haces para meter el QR???

Muchas gracias!

Hola,
Yo lo que hago es usar una dll quricol32.dll y con este sencillo ejemplo genero el QR

Código Delphi [-]Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Sub Form_Load()
    
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow
    
End Sub

La puedes descargar de aqui: http://users.telenet.be/ws36637/download/quricol.zip

Como en CR no puedo usar imagenes dinámicas, lo que hago es generar el QR y guardarlo en la tabla de cabecera de factura y luego la pinto en el Report.

Saludos

keys · #15 14-07-2021

Cita:

Empezado por skatologiko

Buenas tardes a todos. Soy nuevo en el foro, el cual he descubierto hoy volviéndome loco para preparar mis programas para ticket BAI. Tras leer las 50 páginas, sigo más perdido que un pulpo en un garaje. A ver si me podéis arrojar algo de luz. Yo programo con VB6 y las facturas las genero con Crystal Reports. Si no he entendido mal los pasos son los siguientes
Paso 1: Genero el XML de la factura. ¿de dónde sale el número de serie del dispositivo?
Paso 2: Obtengo un XML firmado con Autofirma a partir del fichero obtenido en el paso 1 y con un certificado digital, por ejemplo de la FNMT.
Paso 3: Aquí no entiendo si lo que tengo que extraer son 13 dígitos del archivo del paso 2 o qué exactamente. ¿Con esos dígitos se forma el código QR? ¿En formato jpg? ¿Habría que incrustar esa imagen jpg en la factura?
Paso 4: Entiendo que aquí hay que enviar el archivo obtenido en el paso 2 ¿no?. Y que es diferente para Guipuzcoa o Vizcaya

Otra duda que tengo es cuál es la manera más económica (o gratuita) de obtener el certificado para firmar el .EXE con signtool (porque para eso no sirve mi certificado de la FNMT ¿no?.

1 . El numero de serie del dispositivo es un número que te dan a la hora de pedir el certificado de dispostivo. Si no utilizas el certificado de dispositivo para firmar las facturas no es necesario.
2. Correcto. Lo puedes firmar con autofirma o con otro sistema.
3 Tienes que formar el TBAI sacando lo que dice la norma del fichero que acabas de generar y formar el codigo QR. Dentro de la factura en papel lo debes poner, ya sea en jpg o como tu quieras. Pero tiene que estar en la imagen de la factura, pdf, etc....
4 Ese fichero hay que enviarlo a hacienda.

Que yo sepa no hay ninguna forma gratuita de firmar los exe. El de la fnmt no sirve. Yo el mas economico que he encontrado es este https://www.ksoftware.net/code-signing-certificates/

Sistel · #16 14-07-2021

Cita:

Empezado por skatologiko

Buenas tardes a todos. Soy nuevo en el foro, el cual he descubierto hoy volviéndome loco para preparar mis programas para ticket BAI. Tras leer las 50 páginas, sigo más perdido que un pulpo en un garaje. A ver si me podéis arrojar algo de luz. Yo programo con VB6 y las facturas las genero con Crystal Reports. Si no he entendido mal los pasos son los siguientes
Paso 1: Genero el XML de la factura. ¿de dónde sale el número de serie del dispositivo?
Paso 2: Obtengo un XML firmado con Autofirma a partir del fichero obtenido en el paso 1 y con un certificado digital, por ejemplo de la FNMT.
Paso 3: Aquí no entiendo si lo que tengo que extraer son 13 dígitos del archivo del paso 2 o qué exactamente. ¿Con esos dígitos se forma el código QR? ¿En formato jpg? ¿Habría que incrustar esa imagen jpg en la factura?
Paso 4: Entiendo que aquí hay que enviar el archivo obtenido en el paso 2 ¿no?. Y que es diferente para Guipuzcoa o Vizcaya

Otra duda que tengo es cuál es la manera más económica (o gratuita) de obtener el certificado para firmar el .EXE con signtool (porque para eso no sirve mi certificado de la FNMT ¿no?.

Hola skatologiko.

Bienvenido a este fascinante mundo del TicketBAI

Efectivamente, los pasos (en el caso de arquitectura de escritorio) son:

1.- Crear el XML de la factura a emitir, incluyendo (además de los datos habituales de la factura):
- Datos de la última factura emitida: serie, número, fecha y 100 primeros caracteres de su firma
- Datos del software garante (licencia TBAI, NIF de la entidad desarrolladora, nombre del software y versión).
- Nº de serie del dispositivo, que puede ser uno de éstos:
- Nº de serie del equipo
- Nº de serie de la placa base
- Dirección MAC de red
- IMEI del dispositivo móvil (en el caso de un dispositivo móvil)

2.- Firmar el XML con un certificado válido. Por ejemplo con un certificado de dispositivo.
(Los certificados de dispositivo de IZENPE para TicketBAI son gratuitos y tienen una validez de 10 años)

3.- Obtener los códigos TBAI y QR
El código TBAI lleva algunos datos de la factura + los 13 primeros dígitos de la firma + un código CRC-8
El código QR lleva datos del código TBAI + otro código CRC-8

4.- Imprimir o guardar la factura con los códigos TBAI y QR insertados con el tamaño y posición que se detalla en la normativa TicketBAI

5.- Enviar el XML firmado de la factura a la Hacienda Foral correspondiente.
En el caso de Álava o Gipuzkoa, de forma inmediata.
En el caso de Bizkaia, dentro del plazo de declaraciones de IVA (o de SII si se está obligado) en formato capítulo 1.1 del LROE (modelo 140 para autónomos o modelo 240 para empresas)

Aunque no tengo ni idea de Windows, (mis aplicaciones TicketBAI no son de arquitectura de escritorio sino de servidor y en Linux), sí que entendí que en el caso de que se instale la aplicación de facturación en un PC con Windows, el fichero .EXE debe ir firmado con un certificado de aplicación (que no son ni los de IZENPE ni los de FNMT).

Saludos

NVS · #17 14-07-2021

[quote=b4aronDeLaBirr4;541755]Has añadido el certificado en POSTMAN?

Se añaden aquí como en esta *****

Yo puse el sello_entidad_act.p12 de desarrollode Izempe (recuerda poner el pin también, que es: IZDesa2021) y pones el Endpoint como puede ser el de alta: ****

Sí, si lo añado, de hecho utilizo postman para TBAI Gipuzkoa y me responde bien (ahora tengo que pegarme con los XML y demás, pero me funciona).
Pero para Bizkaia no hay forma, error 400 continuamente.

Mis cabeceras ahora son estas:

Accept-Encoding: gzip
Content-Encoding: gzip
Content-Length: 12.631
Content-Type: application/octet-stream
eus-bizkaia-n3-version: 1.0
eus-bizkaia-n3-content-type: {"con": "LROE", "apa": "1.1", "inte": {"nif": "B00000034","nrs": "HOTEL ADIBIDEZ"},"drs": {"mode": "240","ejer": "2021"}}

Y en Body, opcioón Binary con el archivo gz de los ejemplos: Ejemplo_1_LROE_PJ_240_FacturasEmitidasConSG_B00000034.gz

Alguna idea que es lo que nos puede estar fallando???

Muchas gracias

b4aronDeLaBirr4 · #18 14-07-2021

Oh vale, yo es que Bizkaia no he probado todavía ya que estoy con lo de la firma pero ánimo, a ver si nos enteramos jeje

b4aronDeLaBirr4 · #19 14-07-2021

Buenas, gente!

Estoy ahora intentando firmar el XML con Chilkat, y me entran dudas en alguna cosa. Yo utilizo la herramienta para que me genere el código C# a partir de un XML firmado (que he cogido de un ejemplo de ellos). Hablando del XML de Gipuzkoa, me genera, en parte, lo siguiente:

Código PHP:


			
gen.SigLocation = "T:TicketBai";

gen.SigLocationMod = 0;

gen.SigId = "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature";

gen.SigNamespacePrefix = "ds";

gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#";

gen.SigValueId = "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignatureValue";

gen.SignedInfoCanonAlg = "C14N";

gen.SignedInfoDigestMethod = "sha256";



//  Set the KeyInfoId before adding references..

gen.KeyInfoId = "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo";



//  Create an Object to be added to the Signature.

Chilkat.Xml object1 = new Chilkat.Xml();

object1.Tag = "xades:QualifyingProperties";

object1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#");

object1.AddAttribute("Id","Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-QualifyingProperties");

object1.AddAttribute("Target","#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature");

object1.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#");

object1.UpdateAttrAt("xades:SignedProperties",true,"Id","Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT");

object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",true,"Algorithm","http://www.w3.org/2001/04/xmlenc#sha512");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier","https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","");

object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",true,"Algorithm","http://www.w3.org/2001/04/xmlenc#sha256");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","Quzn98x3PMbSHwbUzaj5f5KOpiH0u8bvmwbbbNkO9Es=");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI","https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf");

object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",true,"ObjectReference","#Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description","");

object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier",true,"Qualifier","OIDAsURN");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier","urn:oid:1.2.840.10003.5.109.10");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Description","");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml");

object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding","");



gen.AddObject("",object1.GetXml(),"","");



//  -------- Reference 1 --------

gen.AddSameDocRef("","sha512","C14N","","http://www.w3.org/2000/09/xmldsig#Object");

gen.SetRefIdAttr("","Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e");



//  -------- Reference 2 --------

gen.AddObjectRef("Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties","sha512","","","http://uri.etsi.org/01903#SignedProperties");



//  -------- Reference 3 --------

gen.AddSameDocRef("Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo","sha512","","","");

De aquí, qué es fijo y qué tengo que modificar?? Porque por supuesto veo esos "TO BE GENERATED BY CHILKAT" pero solo se cambian esos apartados? más?

Neftali [Germán.Estévez] · #20 14-07-2021

Cita:

Empezado por NVS

Alguna idea que es lo que nos puede estar fallando???

Yo mismo recomendé en su momento Postman para hacer las pruebas y ahora he probado envíos a Vizcaya con Postman y también me están dando problemas.
La verdad es que en su momento fue algo simple, y no se si ha cambiado algo, pero no consigo respuesta.

He realizado una prueba sencilla con insomnia (que es similar a Postman) y me ha funcionado sin problemas (como en su dia lo hizo Postman), así que os dejo los pasos.

1) descargar insomnia (Insomnia.Core-2021.4.1.exe):
https://insomnia.rest/download

2) Ejecutar el fichero directamente. Se abre en programa con un entorno de pruebas.
3) Al entrar la primera vez, aceptar los dialogos iniciales y acceder al Dashboard (o crear uno nuevo)
4) Configurar el certificado cliente desde Dashboard/Insomnia/Collection settings:

Una vez creado debe aparecer así:

5) Montar una nueva petición (POST) con la URL de Vizcaya.
En el Body, seleccionar "binary file" y seleccionar nuestro fichero de LROE codificado como gzip

Sólo añadir el fichero, detecta el tipo y nos pregunta si cambia esto; Le decimos que si:

6) En Header, añadimos los parámetros que nos piden:

Y realizamos en SEND.

7) Obtenemos respuesta:

Y en el Header de la Response, ya podemos ver respuesta de Batuz.
En mi caso, la factura era incorrecta y eso es lo que me están diciendo.

Esto tan sencillo (o muy similar) funcionaba en Postman y ahora no se porqué está dando problemas.
Si lo queréis probar con insomnia a ver si os funciona, ya diréis cual es el resultado y si os da problemas.

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice	newtron	Internet	3716	19-01-2026 20:01:34
Como utilizar la ayuda del nuevo Sistema Operativo	gluglu	Humor	3	24-09-2007 09:39:05
Aplicacion Agencia De Viajes	ArdiIIa	Varios	9	20-01-2007 16:49:53
El Vasco Aguirre	Al González	La Taberna	5	26-05-2006 09:22:28
Microsoft ha lanzado su nuevo sistema operativo	DarkByte	Humor	0	25-01-2004 09:21:14