Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Colaboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1021  
Antiguo 14-07-2021
Avatar de b4aronDeLaBirr4
b4aronDeLaBirr4 b4aronDeLaBirr4 is offline
Miembro
 
Registrado: jul 2021
Posts: 67
Poder: 4
b4aronDeLaBirr4 Va por buen camino
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
Responder Con Cita
  #1022  
Antiguo 14-07-2021
Avatar de b4aronDeLaBirr4
b4aronDeLaBirr4 b4aronDeLaBirr4 is offline
Miembro
 
Registrado: jul 2021
Posts: 67
Poder: 4
b4aronDeLaBirr4 Va por buen camino
Firma XML Chilkat

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?
Responder Con Cita
  #1023  
Antiguo 14-07-2021
batuzail batuzail is offline
Miembro
 
Registrado: feb 2017
Posts: 57
Poder: 8
batuzail Va por buen camino
Cita:
Empezado por skatologiko Ver Mensaje
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
Responder Con Cita
  #1024  
Antiguo 14-07-2021
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.085
Poder: 23
keys Va por buen camino
Cita:
Empezado por skatologiko Ver Mensaje
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/
Responder Con Cita
  #1025  
Antiguo 14-07-2021
NVS NVS is offline
Miembro
 
Registrado: jun 2021
Posts: 10
Poder: 0
NVS Va por buen camino
Cita:
Empezado por batuzail Ver Mensaje
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?
Responder Con Cita
  #1026  
Antiguo 14-07-2021
batuzail batuzail is offline
Miembro
 
Registrado: feb 2017
Posts: 57
Poder: 8
batuzail Va por buen camino
Cita:
Empezado por NVS Ver Mensaje
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.
Responder Con Cita
  #1027  
Antiguo 14-07-2021
NVS NVS is offline
Miembro
 
Registrado: jun 2021
Posts: 10
Poder: 0
NVS Va por buen camino
Cita:
Empezado por batuzail Ver Mensaje
No, pero no son muy caras, para un empresa, unos 289$ licencia de por vida. Te van ha facilitar muchisimo la vida.
OK, muchas gracias
Responder Con Cita
  #1028  
Antiguo 14-07-2021
Avatar de thinkows
thinkows thinkows is offline
Miembro
 
Registrado: mar 2020
Ubicación: Sabadell
Posts: 88
Poder: 5
thinkows Va por buen camino
Loados los hados del VB6

Cita:
Empezado por batuzail Ver Mensaje
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
Responder Con Cita
  #1029  
Antiguo 14-07-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por NVS Ver Mensaje
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 14-07-2021 a las 11:41:01.
Responder Con Cita
  #1030  
Antiguo 14-07-2021
Sistel Sistel is offline
Miembro
 
Registrado: nov 2019
Ubicación: Bilbao
Posts: 416
Poder: 5
Sistel Va por buen camino
Cita:
Empezado por skatologiko Ver Mensaje
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

Última edición por Sistel fecha: 14-07-2021 a las 11:42:14.
Responder Con Cita
  #1031  
Antiguo 14-07-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Se puede guardar la respuesta desde:


Os da por defecto un XML, debéis guardarlo como GZIP; Esto está relacionado con el "bug" o "caracteristica" (para la gente de Batuz) de que la respuesta llega comprimida 2 veces.
Si lo guardáis en formato Gzip, tenéis el fichero de respuesta con el XML y la estructura de la documentación.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #1032  
Antiguo 14-07-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por tejano Ver Mensaje
Hola Neftali, no tendrás algún ejemplo de factura eliminada recibida, he mandado una y me ha dado error en la línea 2.

Lo siento, todavía no.
Pero no parece muy complicado, ¿no?

__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #1033  
Antiguo 14-07-2021
batuzail batuzail is offline
Miembro
 
Registrado: feb 2017
Posts: 57
Poder: 8
batuzail Va por buen camino
Cita:
Empezado por thinkows Ver Mensaje
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
Responder Con Cita
  #1034  
Antiguo 14-07-2021
skatologiko skatologiko is offline
Miembro
 
Registrado: jul 2021
Posts: 31
Poder: 0
skatologiko Va por buen camino
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 Ver Mensaje
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
Responder Con Cita
  #1035  
Antiguo 14-07-2021
NVS NVS is offline
Miembro
 
Registrado: jun 2021
Posts: 10
Poder: 0
NVS Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
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):
...
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.
(NOTA: He modificado el mensaje para eliminar las imágenes duplicadas)

MUCHAS GRACIAS Neftali, intentaré probar con insomnia!!!

Última edición por Neftali [Germán.Estévez] fecha: 14-07-2021 a las 13:48:12. Razón: Modificado para eliminar las imágenes duplicadas
Responder Con Cita
  #1036  
Antiguo 14-07-2021
Avatar de b4aronDeLaBirr4
b4aronDeLaBirr4 b4aronDeLaBirr4 is offline
Miembro
 
Registrado: jul 2021
Posts: 67
Poder: 4
b4aronDeLaBirr4 Va por buen camino
Disculpa, a ti no te sale este error al enviar? Me da el fichero como recibido pero me dice lo siguiente:

Código PHP:
<Codigo>008</Codigo>
            <
Descripcion>El mensaje ha sido modificado en tránsito o la firma no está bien realizada -- SignedInfo failed to verifyReference URI="" failed to verifyReference URI="#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties" failed to verifyReference URI="#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo" failed to verify. [src/xml2signatureobj.cpp(315)] - (10606)</ 
Responder Con Cita
  #1037  
Antiguo 14-07-2021
NVS NVS is offline
Miembro
 
Registrado: jun 2021
Posts: 10
Poder: 0
NVS Va por buen camino
Postman

Me funciona con Insomnia, bueno me dice Error 500 Internal server error:

eus-bizkaia-n3-mensaje-respuesta: El interesado no est� identificado.
eus-bizkaia-n3-codigo-respuesta: N3_0000002

Utilizo un certificado de dispositivo, y es su xml de pruebas... entiendo que será por eso...
¿sabeis si en pruebas se puede usar certificado de dispositivo?

Pero ya no tengo error 400!!

Un saludo,
Responder Con Cita
  #1038  
Antiguo 14-07-2021
Avatar de thinkows
thinkows thinkows is offline
Miembro
 
Registrado: mar 2020
Ubicación: Sabadell
Posts: 88
Poder: 5
thinkows Va por buen camino
De lujo compañero !!!!! muy agradecido voy ha probar
Responder Con Cita
  #1039  
Antiguo 14-07-2021
tejano tejano is offline
Miembro
 
Registrado: dic 2020
Posts: 130
Poder: 4
tejano Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Lo siento, todavía no.
Pero no parece muy complicado, ¿no?

Buenas Neftali, finalmente era un error mío, estaba poniendo la cabecera de la anulación de emitidas.

Si alguien necesita la estructura de la anulación, emisión o consulta de las emitidas que me diga y le paso ejemplos puesto que en la página de Batuz no existen ejemplos.
Responder Con Cita
  #1040  
Antiguo 14-07-2021
tejano tejano is offline
Miembro
 
Registrado: dic 2020
Posts: 130
Poder: 4
tejano Va por buen camino
Cita:
Empezado por NVS Ver Mensaje
Me funciona con Insomnia, bueno me dice Error 500 Internal server error:

eus-bizkaia-n3-mensaje-respuesta: El interesado no est� identificado.
eus-bizkaia-n3-codigo-respuesta: N3_0000002

Utilizo un certificado de dispositivo, y es su xml de pruebas... entiendo que será por eso...
¿sabeis si en pruebas se puede usar certificado de dispositivo?

Pero ya no tengo error 400!!

Un saludo,
Estoy utilizando el certificado de dispositivo para firmar el XML y el de la FNMT de empresa para su envío en el LROE y funciona bien.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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 3594 Hace 3 Semanas 20:44:37
Como utilizar la ayuda del nuevo Sistema Operativo gluglu Humor 3 24-09-2007 10:39:05
Aplicacion Agencia De Viajes ArdiIIa Varios 9 20-01-2007 17:49:53
El Vasco Aguirre Al González La Taberna 5 26-05-2006 10:22:28
Microsoft ha lanzado su nuevo sistema operativo DarkByte Humor 0 25-01-2004 10:21:14


La franja horaria es GMT +2. Ahora son las 00:55:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi