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.


La franja horaria es GMT +2. Ahora son las 00:54:04.

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