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

[Gherardo]

Buenos días a todos:

Tengo problemas al enviar el fichero xml a Guipúzcoa pues me cambia los acentos y caracteres como la ñ, y me devuelve el error '008 El mensaje ha sido modificado en transito'.
Utilizo Delphi 11 y componentes RESTClient, RESTRequest y RESTResponse. el fichero firmado tiene codificación utf-8.
pero al enviarlo parece que no se respeta.
El código que utilizo es este:

Código Delphi [-]
procedure TForm1.Button15Click(Sender: TObject);
var
  Texto:String;
  S,ArchivoString: TStrings;
  f1:TextFile;
 FicheroAEnviar,ArchivoRespuesta : String;
begin

 RESTRequest1.Method :=TRESTRequestMethod.rmPOST;
 RESTRequest1.Accept:='utf-8';
 RESTRequest1.AcceptCharset:='utf-8;q=0.8';

 RESTClient1.SecureProtocols :=[THTTPSecureProtocol.TLS11,THTTPSecureProtocol.TLS12];
 RESTClient1.ContentType:= 'application/xml;charset=UTF-8';
 RESTClient1.AcceptEncoding:='utf-8;q=0.8';
 RESTClient1.OnNeedClientCertificate:=RESTClient1NeedClientCertificate;

 Opendialog1.Execute();
 FicheroAEnviar:=OpenDialog1.FileName;
 ArchivoRespuesta:=Copy(FicheroAEnviar,1,Length(FicheroAEnviar)-4)+'resp';

 ArchivoString := TStringList.Create();
 try
  ArchivoString.LoadFromFile(FicheroAEnviar,Tencoding.UTF8);
  RESTRequest1.addbody(ArchivoString.Text,ctAPPLICATION_XML);
 finally
  ArchivoString.Free;
 end;

 RESTRequest1.Execute;

 var CodigoRespuesta := RESTRespuesta.StatusCode;
 var Respuesta           := RESTRespuesta.Content;
 var Cabeceras           := RESTRespuesta.Headers;

 s := TStringList.Create();
 S.Add(RESTRespuesta.Content);
 S.SaveToFile(ArchivoRespuesta, TEncoding.UTF8);

end;

Si alguien puede ayudar estaré agradecido, pues ando desesperado, llevo casi dos semanas atascado con este problema, y ya estoy pensando en dejar al cliente.

Muchas gracias.

[keys]

Hola.

¿Sólo te pasa con los envíos que tienen Ñ y acentos? Yo creo que el loadfromfile o el ArchivoString.Text te está cambiando algo en el fichero por la codificación. Yo los envíos los hago con TNetHTTPClient y no tengo ningún problema.

Un Saludo

[Gherardo]

Gracias Keys,
¿tendrías algún ejemplo de como se hace con estos componentes?

[keys]

Empezado por Gherardo

Gracias Keys,
¿tendrías algún ejemplo de como se hace con estos componentes?

Hola en el primer y segundo mensaje de este tema tienes ejemplos de como hacerlo. Lo digo por no repetir más mensajes, si tienes algún problema me dices.

[PAPAGUSO]

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]]

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]

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

Empezado por PAPAGUSO

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]

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]

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]

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]

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.

<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

[edari]

Empezado por keys

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.

<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

Muchas gracias por tu rapidez, keys


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

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

Yo te diría que cambies el código para no coger el body de un fichero. La mayoría de los problemas de cambio de codificación son al pasar por diferentes pasos.
Intenta generarlo en memoria (Stream) y asignarlo al componente directamente sin pasar por fichero.

[Gherardo]

Muchas gracias Neftalí.

Antes lo hacia con un filestream y me hacia lo mismo, ya no se que hacer, probaré con los componentes que me comenta keys.

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

Empezado por Gherardo

Antes lo hacia con un filestream y me hacia lo mismo, ya no se que hacer, probaré con los componentes que me comenta keys.

A nosotros nos pasó (en uno de los casos) y al final lo que hicimos fue, grabar a disco en hexadecimal después cada uno de los pasos, desde la generación hasta el envío.
Al final detectamos una asignación que nos cambiaba la codificación.

[sEngine]

Solo queria dar las gracias a Bilbur por el firmador.php que puso por aquí

Estaba usando el autofirma y es mas lento que.... por lo que obviamente los clientes se quejaban.
Con el firmador.php lo hace super rapido. Lo he subido a un subdominio de una web nuestra para que se pueda usar desde fuera, y ya que lo tenia hecho, he puesto que si por lo que sea no puede conectar a la web, use el autofirma

[espinete]

Buenas...

Desde ayer nuestros clientes no pueden hacer envíos de TicketBAI (Gipuzkoa). Obtienen el siguiente error al hacer el envío:

Server Certificate invalid or nor present

¿Se trata de un error general de Gipuzkoa o es que ha cambiado algo casualmente ayer? ¿Le pasa a alguien más?

[keys]

Empezado por espinete

Buenas...

Desde ayer nuestros clientes no pueden hacer envíos de TicketBAI (Gipuzkoa). Obtienen el siguiente error al hacer el envío:

Server Certificate invalid or nor present

¿Se trata de un error general de Gipuzkoa o es que ha cambiado algo casualmente ayer? ¿Le pasa a alguien más?

Yo creo que es un problema de hacienda. A nuestros clientes también les estas pasando. En el entorno de pruebas también me ha dado el mismo error pero parece que ya funciona.

[rkinformatika]

Empezado por keys

Yo creo que es un problema de hacienda. A nuestros clientes también les estas pasando. En el entorno de pruebas también me ha dado el mismo error pero parece que ya funciona.

El certificado del servidor de la Hacienda de Gipuzkoa se habia caducado:

Common Name (CN)
*.egoitza.gipuzkoa.eus
Organization (O)
INFORMATIKA ZERBITZUEN FORU ELKARTEA - SOCIEDAD FORAL DE SERVICI
Organizational Unit (OU)
<Not Part Of Certificate>
Issued By
Common Name (CN)
EAEko Herri Administrazioen CA - CA AAPP Vascas (2)
Organization (O)
IZENPE S.A.
Organizational Unit (OU)
AZZ Ziurtagiri publikoa - Certificado publico SCA
Validity Period
Issued On
Thursday, November 10, 2022 at 2:10:24 PM
Expires On
Sunday, December 10, 2023 at 2:10:24 PM

Me confirmaron por email los técnicos de gipuzkoa.

[keys]

Empezado por rkinformatika

El certificado del servidor de la Hacienda de Gipuzkoa se habia caducado:

Common Name (CN)
*.egoitza.gipuzkoa.eus
Organization (O)
INFORMATIKA ZERBITZUEN FORU ELKARTEA - SOCIEDAD FORAL DE SERVICI
Organizational Unit (OU)
<Not Part Of Certificate>
Issued By
Common Name (CN)
EAEko Herri Administrazioen CA - CA AAPP Vascas (2)
Organization (O)
IZENPE S.A.
Organizational Unit (OU)
AZZ Ziurtagiri publikoa - Certificado publico SCA
Validity Period
Issued On
Thursday, November 10, 2022 at 2:10:24 PM
Expires On
Sunday, December 10, 2023 at 2:10:24 PM

Me confirmaron por email los técnicos de gipuzkoa.

Menos mal que están preparados