Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco (https://www.clubdelphi.com/foros/showthread.php?t=94264)

PAPAGUSO 09-06-2026 12:17:10

ejecutable para calcular el crc
 
Hola soy nuevo por aquí y todavía no se cómo hacer una consulta nueva.

El caso es que tengo hecha una función para el cálculo de CRC en php y lo tengo colgado en un servidor web y funciona correctamente.

Pero quiero si me podéis ayudar con un programa exe sacarlo del servidor.

Trabajo en Visual Objects y no encuentro cómo hacer la operación de generación del código ya que el chapgpt me indica que use la función bindata que mi versión no la tiene.

Tengo compradas las librerías chilkat.

Un saludo y perdón por el royo.

Neftali [Germán.Estévez] 09-06-2026 12:23:30

Si no recuerdo mal, ya se hizo una DLL que hacía ese cálculo y el EXE que hacía la llamada.
Revisa los mensajes anteriores.

Revisa el mensaje #2, ahí hay un índice de códigos del foro.
Ahí está la referencia a la DLL que te digo.

A partir del mensaje #600 de este hilo concretamente.

josevalle 09-06-2026 17:20:01

Hola:

En chilkat hay una función mucho mas rápida.

Pero, si no recuerdo mal, visual objects usaba sintaxis de xbase++ en ese caso te puede valer este código:

FUNC CRC8(pCad)
***************
LOCAL I_TEMP:=""
LOCAL cAux:=""
LOCAL nAux:=0
LOCAL nCrc:=0
LOCAL cCad:=0

LOCAL aCrc:={;
0x00, 0x07, 0x0E, 0x09, 0x1C, 0x1B, 0x12, 0x15,; //1-8
0x38, 0x3F, 0x36, 0x31, 0x24, 0x23, 0x2A, 0x2D,; //9,16
0x70, 0x77, 0x7E, 0x79, 0x6C, 0x6B, 0x62, 0x65,; //17,24
0x48, 0x4F, 0x46, 0x41, 0x54, 0x53, 0x5A, 0x5D,; //25,32
0xE0, 0xE7, 0xEE, 0xE9, 0xFC, 0xFB, 0xF2, 0xF5,; //33,40
0xD8, 0xDF, 0xD6, 0xD1, 0xC4, 0xC3, 0xCA, 0xCD,; //41,48
0x90, 0x97, 0x9E, 0x99, 0x8C, 0x8B, 0x82, 0x85,; //49,56
0xA8, 0xAF, 0xA6, 0xA1, 0xB4, 0xB3, 0xBA, 0xBD,;
0xC7, 0xC0, 0xC9, 0xCE, 0xDB, 0xDC, 0xD5, 0xD2,;
0xFF, 0xF8, 0xF1, 0xF6, 0xE3, 0xE4, 0xED, 0xEA,;
0xB7, 0xB0, 0xB9, 0xBE, 0xAB, 0xAC, 0xA5, 0xA2,;
0x8F, 0x88, 0x81, 0x86, 0x93, 0x94, 0x9D, 0x9A,;
0x27, 0x20, 0x29, 0x2E, 0x3B, 0x3C, 0x35, 0x32,;
0x1F, 0x18, 0x11, 0x16, 0x03, 0x04, 0x0D, 0x0A,;
0x57, 0x50, 0x59, 0x5E, 0x4B, 0x4C, 0x45, 0x42,;
0x6F, 0x68, 0x61, 0x66, 0x73, 0x74, 0x7D, 0x7A,;
0x89, 0x8E, 0x87, 0x80, 0x95, 0x92, 0x9B, 0x9C,;
0xB1, 0xB6, 0xBF, 0xB8, 0xAD, 0xAA, 0xA3, 0xA4,;
0xF9, 0xFE, 0xF7, 0xF0, 0xE5, 0xE2, 0xEB, 0xEC,;
0xC1, 0xC6, 0xCF, 0xC8, 0xDD, 0xDA, 0xD3, 0xD4,;
0x69, 0x6E, 0x67, 0x60, 0x75, 0x72, 0x7B, 0x7C,;
0x51, 0x56, 0x5F, 0x58, 0x4D, 0x4A, 0x43, 0x44,;
0x19, 0x1E, 0x17, 0x10, 0x05, 0x02, 0x0B, 0x0C,;
0x21, 0x26, 0x2F, 0x28, 0x3D, 0x3A, 0x33, 0x34,;
0x4E, 0x49, 0x40, 0x47, 0x52, 0x55, 0x5C, 0x5B,;
0x76, 0x71, 0x78, 0x7F, 0x6A, 0x6D, 0x64, 0x63,;
0x3E, 0x39, 0x30, 0x37, 0x22, 0x25, 0x2C, 0x2B,;
0x06, 0x01, 0x08, 0x0F, 0x1A, 0x1D, 0x14, 0x13,;
0xAE, 0xA9, 0xA0, 0xA7, 0xB2, 0xB5, 0xBC, 0xBB,;
0x96, 0x91, 0x98, 0x9F, 0x8A, 0x8D, 0x84, 0x83,;
0xDE, 0xD9, 0xD0, 0xD7, 0xC2, 0xC5, 0xCC, 0xCB,;
0xE6, 0xE1, 0xE8, 0xEF, 0xFA, 0xFD, 0xF4, 0xF3 ;
}


cCad := trim(pcad)
nCrc:=0

FOR I_TEMP=1 TO LEN(cCad)

cAux := SUBS(cCad,I_TEMP,1)
nAux := ASC(cAux)

nCrc := aCrc[ band(numxor(nCrc,nAux),255)+1 ]

NEXT

RETURN nCrc


Cita:

Empezado por PAPAGUSO (Mensaje 572399)
Hola soy nuevo por aquí y todavía no se cómo hacer una consulta nueva.

El caso es que tengo hecha una función para el cálculo de CRC en php y lo tengo colgado en un servidor web y funciona correctamente.

Pero quiero si me podéis ayudar con un programa exe sacarlo del servidor.

Trabajo en Visual Objects y no encuentro cómo hacer la operación de generación del código ya que el chapgpt me indica que use la función bindata que mi versión no la tiene.

Tengo compradas las librerías chilkat.

Un saludo y perdón por el royo.


PAPAGUSO 10-06-2026 11:32:31

Muchas gracias por la contestación.

El ejecutable es para sacar el número de serie del ordenador y en el código de visual objects aparecen funciones que no las tiene el lebguaje.

Me comentas que con chilkat se puede hacer. ¿Tú sabes hacerlo?.

Personalmente con chilkat hago todo de TicketBai menos el cálculo y l generación del QR.

josevalle 10-06-2026 16:17:40

Serie ordenador
 
Hola:

Lo de sacar el numero de serie del ordenador sólo se usa para validar un equipo en Izempe y así poder usar el certificado de equipo.

Al final no utilicé las Chilkat tools, lo hice todo en xbase++ llamando a utilidades CLI: Autofirma (lento), curl, SimpleCodeGenerator.exe

edari 22-06-2026 14:33:19

Factura Intracomunitaria En Compras Inscritos En Roi
 
Hola de nuevo por aquí


Necesito saber como sería el xml de una factura de proveedor intracomunitario, con ambas empresas inscritas en el ROI en Vizcaya


Ando muy perdido con esto y haciendo la consulta de la IA me viene a dar un código similar a esto


https://www.google.com/search?q=EJEM...8edptQP1bHvmQs




No sé si voy bien por aquí


Gracias de antemano

keys 23-06-2026 08:53:49

Hola.

Faq 219 de hacienda https://www.batuz.eus/es/preguntas-f...tracomunitaria

Te pongo un ejemplo de una factura de 125 Euros. Date cuenta que la factura que le llega es de 125 y tienes que simular el iva que le corresponde aquí(21%, 10% ....), si se deduce y se soporta.

Código:

<lrpjframp:LROEPJ240FacturasRecibidasAltaModifPeticion>
<Cabecera>
<Modelo>240</Modelo>
<Capitulo>2</Capitulo>
<Operacion>A00</Operacion>
<Version>1.0</Version>
<Ejercicio>2026</Ejercicio>
<ObligadoTributario>
<NIF>NIF</NIF>
<ApellidosNombreRazonSocial>EMPRESA QUE HACE EL BATUZ</ApellidosNombreRazonSocial>
</ObligadoTributario>
</Cabecera>
<FacturasRecibidas>
<FacturaRecibida>
<EmisorFacturaRecibida>
<IDOtro>
<CodigoPais>FR</CodigoPais>
<IDType>02</IDType>
<ID>FR12345678901</ID>
</IDOtro>
<ApellidosNombreRazonSocial>FRANCES DE FRANCIA</ApellidosNombreRazonSocial>
</EmisorFacturaRecibida>
<CabeceraFactura>
<NumFactura>12589</NumFactura>
<FechaExpedicionFactura>22-06-2026</FechaExpedicionFactura>
<FechaRecepcion>22-06-2026</FechaRecepcion>
<TipoFactura>F1</TipoFactura>
</CabeceraFactura>
<DatosFactura>
<DescripcionOperacion>COMPRA INTRACOMUNTITAR</DescripcionOperacion>
<Claves>
<IDClave>
<ClaveRegimenIvaOpTrascendencia>09</ClaveRegimenIvaOpTrascendencia>
</IDClave>
</Claves>
<ImporteTotalFactura>151.25</ImporteTotalFactura>
</DatosFactura>
<IVA>
<DetalleIVA>
<CompraBienesCorrientesGastosBienesInversion>C</CompraBienesCorrientesGastosBienesInversion>
<InversionSujetoPasivo>N</InversionSujetoPasivo>
<BaseImponible>125.00</BaseImponible>
<TipoImpositivo>21.00</TipoImpositivo>
<CuotaIVASoportada>26.25</CuotaIVASoportada>
<CuotaIVADeducible>26.25</CuotaIVADeducible>
</DetalleIVA>
</IVA>
<OtraInformacionTrascendenciaTributaria>
<FechaRegistroContable>22-06-2026</FechaRegistroContable>
</OtraInformacionTrascendenciaTributaria>
</FacturaRecibida>
</FacturasRecibidas>
</lrpjframp:LROEPJ240FacturasRecibidasAltaModifPeticion>

La IA se esta inventando la mitad de las cosas :cool:

edari 23-06-2026 09:34:23

Cita:

Empezado por keys (Mensaje 572419)
Hola.

Faq 219 de hacienda https://www.batuz.eus/es/preguntas-f...tracomunitaria

Te pongo un ejemplo de una factura de 125 Euros. Date cuenta que la factura que le llega es de 125 y tienes que simular el iva que le corresponde aquí(21%, 10% ....), si se deduce y se soporta.

Código:

<lrpjframp:LROEPJ240FacturasRecibidasAltaModifPeticion>
<Cabecera>
<Modelo>240</Modelo>
<Capitulo>2</Capitulo>
<Operacion>A00</Operacion>
<Version>1.0</Version>
<Ejercicio>2026</Ejercicio>
<ObligadoTributario>
<NIF>NIF</NIF>
<ApellidosNombreRazonSocial>EMPRESA QUE HACE EL BATUZ</ApellidosNombreRazonSocial>
</ObligadoTributario>
</Cabecera>
<FacturasRecibidas>
<FacturaRecibida>
<EmisorFacturaRecibida>
<IDOtro>
<CodigoPais>FR</CodigoPais>
<IDType>02</IDType>
<ID>FR12345678901</ID>
</IDOtro>
<ApellidosNombreRazonSocial>FRANCES DE FRANCIA</ApellidosNombreRazonSocial>
</EmisorFacturaRecibida>
<CabeceraFactura>
<NumFactura>12589</NumFactura>
<FechaExpedicionFactura>22-06-2026</FechaExpedicionFactura>
<FechaRecepcion>22-06-2026</FechaRecepcion>
<TipoFactura>F1</TipoFactura>
</CabeceraFactura>
<DatosFactura>
<DescripcionOperacion>COMPRA INTRACOMUNTITAR</DescripcionOperacion>
<Claves>
<IDClave>
<ClaveRegimenIvaOpTrascendencia>09</ClaveRegimenIvaOpTrascendencia>
</IDClave>
</Claves>
<ImporteTotalFactura>151.25</ImporteTotalFactura>
</DatosFactura>
<IVA>
<DetalleIVA>
<CompraBienesCorrientesGastosBienesInversion>C</CompraBienesCorrientesGastosBienesInversion>
<InversionSujetoPasivo>N</InversionSujetoPasivo>
<BaseImponible>125.00</BaseImponible>
<TipoImpositivo>21.00</TipoImpositivo>
<CuotaIVASoportada>26.25</CuotaIVASoportada>
<CuotaIVADeducible>26.25</CuotaIVADeducible>
</DetalleIVA>
</IVA>
<OtraInformacionTrascendenciaTributaria>
<FechaRegistroContable>22-06-2026</FechaRegistroContable>
</OtraInformacionTrascendenciaTributaria>
</FacturaRecibida>
</FacturasRecibidas>
</lrpjframp:LROEPJ240FacturasRecibidasAltaModifPeticion>

La IA se esta inventando la mitad de las cosas :cool:


Muchas gracias por tu rapidez, keys :cool:


Al final entonces es por lo que veo es igual que una factura de compra de un proveedor nacional pero con el régimen de iva a "09"


Me pongo con ello.


Ya veía yo que estas IA son para otras cosas :D

keys 23-06-2026 09:36:50

Si. Solo que la factura que te llega no tiene iva, tienes que saber tu que iva le corresponde en españa, y si se soporta y se deduce el iva. Ya que hay veces que solo se soporta y no se deduce.

JM_1 02-07-2026 13:59:13

Hola , buenas tardes. ¿A alguien más le está fallando las emisiones de TicketBAI Araba?

Un saludo

keys 02-07-2026 14:09:59

Cita:

Empezado por JM_1 (Mensaje 572450)
Hola , buenas tardes. ¿A alguien más le está fallando las emisiones de TicketBAI Araba?

Un saludo

Nosotros no hemos recibido de momento ninguna incidencia.

sEngine 01-10-2026 12:27:00

Ha llegado este email de ticketbai, sabeis si hay que hacer algo? yo creo que no nos afecta


Código:

Estimados/as desarrolladores/as,

Por medio de la presente les informamos de una próxima actualización de la infraestructura de certificación utilizada en los servicios TicketBAI.
Como consecuencia de este cambio, se modificará la cadena de certificación SSL/TLS presentada por los servidores de los entornos TicketBAI.
La información técnica detallada se adjunta en el documento Ohar_teknikoa_TicketBAI_Nota_tecnica.pdf


Les recomendamos revisar con atención la documentación adjunta y verificar que sus aplicaciones e integraciones disponen de los certificados
de confianza necesarios para validar correctamente la nueva cadena de certificación.


En particular, les recordamos las siguientes fechas previstas:

    Entornos de pruebas externas o preproducción: 1 de octubre de 2026. A partir de esa fecha podrán realizar las pruebas necesarias para verificar la correcta conexión de sus aplicaciones.

    Entornos de producción: calendario previsto de despliegue por territorio.

o    Bizkaia, 24 de noviembre de 2026
o    Araba, 18 de enero de 2027
o    Gipuzkoa, 11 de enero de 2027

Aunque esta comunicación se centra en los servicios TicketBAI, las recomendaciones incluidas en la nota técnica también pueden ser de aplicación a otras integraciones
máquina a máquina con servicios electrónicos forales. Por ello, se recomienda revisar igualmente las integraciones con servicios como el SII, la factura electrónica con
las administraciones públicas, los servicios notariales y otros servicios equivalentes.

Les agradeceríamos que planificaran con la debida antelación la actualización de sus entornos y la realización de las pruebas correspondientes para garantizar una
transición sin incidencias.

En los próximos días, les remitiremos un cuestionario relacionado con esta cuestión. Su colaboración atendiendo al mismo, facilitará la transición.

Para cualquier duda o problema detectado durante las pruebas, rogamos contacten con la Diputación Foral correspondiente, utilizando los canales indicados en la documentación adjunta.

Muchas gracias por su colaboración.

Atentamente,

y un pdf https://www.batuz.eus/fitxategiak/ba...bf0b420d2d6926

Maska10 01-10-2026 12:33:22

Cita:

Empezado por sEngine (Mensaje 572737)
Ha llegado este email de ticketbai, sabeis si hay que hacer algo? yo creo que no nos afecta


Código:

Estimados/as desarrolladores/as,

Por medio de la presente les informamos de una próxima actualización de la infraestructura de certificación utilizada en los servicios TicketBAI.
Como consecuencia de este cambio, se modificará la cadena de certificación SSL/TLS presentada por los servidores de los entornos TicketBAI.
La información técnica detallada se adjunta en el documento Ohar_teknikoa_TicketBAI_Nota_tecnica.pdf


Les recomendamos revisar con atención la documentación adjunta y verificar que sus aplicaciones e integraciones disponen de los certificados
de confianza necesarios para validar correctamente la nueva cadena de certificación.


En particular, les recordamos las siguientes fechas previstas:

    Entornos de pruebas externas o preproducción: 1 de octubre de 2026. A partir de esa fecha podrán realizar las pruebas necesarias para verificar la correcta conexión de sus aplicaciones.

    Entornos de producción: calendario previsto de despliegue por territorio.

o    Bizkaia, 24 de noviembre de 2026
o    Araba, 18 de enero de 2027
o    Gipuzkoa, 11 de enero de 2027

Aunque esta comunicación se centra en los servicios TicketBAI, las recomendaciones incluidas en la nota técnica también pueden ser de aplicación a otras integraciones
máquina a máquina con servicios electrónicos forales. Por ello, se recomienda revisar igualmente las integraciones con servicios como el SII, la factura electrónica con
las administraciones públicas, los servicios notariales y otros servicios equivalentes.

Les agradeceríamos que planificaran con la debida antelación la actualización de sus entornos y la realización de las pruebas correspondientes para garantizar una
transición sin incidencias.

En los próximos días, les remitiremos un cuestionario relacionado con esta cuestión. Su colaboración atendiendo al mismo, facilitará la transición.

Para cualquier duda o problema detectado durante las pruebas, rogamos contacten con la Diputación Foral correspondiente, utilizando los canales indicados en la documentación adjunta.

Muchas gracias por su colaboración.

Atentamente,

y un pdf https://www.batuz.eus/fitxategiak/ba...bf0b420d2d6926

solo cambian la cadena SSL/TLS de los servidores TicketBAI. No afecta al XML, firma, certificado del usuario, QR, encadenamiento ni respuestas ... por tanto, según como hagas los envios pues puede afectarte o no, en nuestro caso el almacén de CURL que usamos ya contempla esos certificados por lo que hemos tenido suerte.

Lo suyo es que justo hoy te conectes a los servidores de pruebas y compruebes si las conexiones siguen funcionando.

adolphsys 01-10-2026 13:25:16

Cita:

Empezado por Maska10 (Mensaje 572738)
solo cambian la cadena SSL/TLS de los servidores TicketBAI. No afecta al XML, firma, certificado del usuario, QR, encadenamiento ni respuestas ... por tanto, según como hagas los envios pues puede afectarte o no, en nuestro caso el almacén de CURL que usamos ya contempla esos certificados por lo que hemos tenido suerte.

Lo suyo es que justo hoy te conectes a los servidores de pruebas y compruebes si las conexiones siguen funcionando.

Probado en las tres haciendas, en server de pruebas y todo OK!

sEngine 01-10-2026 13:29:44

Vale acabo de probar desde las 3 y también me ha funcionado correctamente. Así que no hay que hacer ningún cambio por mi parte
Genial :)


La franja horaria es GMT +2. Ahora son las 00:39:33.

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