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

[elguille]

Hola, siguiendo vuestros ejemplos, estoy intentando enviar un 240 a Vizcaya y recibo

response status code: 200
RESP.BODY:

RESP.HEADER:
Date: Mon, 24 Jan 2022 16:51:58 GMT
Server: JBoss-EAP/7
eus-bizkaia-n3-identificativo: 5506744
X-Powered-By: Undertow/1
eus-bizkaia-n3-mensaje-respuesta: El interesado no está identificado.
eus-bizkaia-n3-codigo-respuesta: N3_0000002
eus-bizkaia-n3-numero-registro:
eus-bizkaia-n3-tipo-respuesta: Incorrecto
Content-Type: text/html; charset=UTF-8
Content-Length: 0

Y no hay manera de avanzar, entiendo que es algun problema de firma pero lo he intentado con dos firmas diferentes de la FNMT (de representante) y que segun he leido no tienen ningun problema para entrar en los expedientes de https://www.ebizkaia.eus/es/mis-expedientes

El codigo delphi , lo he hecho con las chilkat, pero recibo el mismo error con NetHTTPClient

Código Delphi [-]
procedure TForm1.enviovizcaya(Sender: TObject);
var
  glob: HCkGlobal;
  success: Boolean;
  xmlToSign: HCkXml;
  gen: HCkXmlDSigGen;
  object1: HCkXml;
  Cert: HCkCert;
  sbXml: HCkStringBuilder;
  verifier: HCkXmlDSig;
  numSigs: integer;
  verifyIdx: integer;
  verified: Boolean;
  Http: HCkHttp;
  json: HCkJsonObject;
  url: PWideChar;
  bGzip: Boolean;
  resp: HCkHttpResponse;
  status, ik1: integer;
  nombre_archivo: string;
  mid, mser, mnum, mim, mcrc: string;
  RequestBody: TFileStream;
  AResponse: IHTTPResponse;
  sb1: HCkStringBuilder;
  sb2: HCkStringBuilder;
  Xml: HCkXml;
  tspen: TStringlist;
  mcon: integer;
  Comprimido: TFileStream;
  s: TStringlist;
  m: tmemorystream;
begin
begin
  Memo1.clear;
  glob := CkGlobal_Create();
  success := CkGlobal_UnlockBundle(glob, 'xxxxxxxxxxxxxxxxxx');
  if (success <> True) then
  begin
    Memo1.Lines.Add(CkGlobal__lastErrorText(glob));
    Exit;
  end;
  status := CkGlobal_getUnlockStatus(glob);
  if (status = 2) then
  begin
    Memo1.Lines.Add('Unlocked using purchased unlock code.');
  end
  else
  begin
    Memo1.Lines.Add('Unlocked in trial mode.');
  end;

  Memo1.Lines.Add('');
  success := True;

  Xml := CkXml_Create();

  if mmodelo = '140' then
  begin
    CkXml_putTag(Xml, 'lrpficfcsgap:LROEPF140IngresosConFacturaConSGAltaPeticion');
    CkXml_AddAttribute(Xml, 'xmlns:lrpficfcsgap',
      'https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PF_140_1_1_Ingresos_ConfacturaConSG_AltaPeticion_V1_0_2.xsd');
  end
  else
  begin
    CkXml_putTag(Xml, 'lrpficfcsgap:LROEPJ240FacturasEmitidasConSGAltaPeticion');
    CkXml_AddAttribute(Xml, 'xmlns:lrpficfcsgap',
      'https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PJ_240_1_1_FacturasEmitidas_ConSG_AltaPeticion_V1_0_2.xsd');
  end;
  CkXml_UpdateChildContent(Xml, 'Cabecera|Modelo', pchar(mmodelo));
  CkXml_UpdateChildContent(Xml, 'Cabecera|Capitulo', '1');
  CkXml_UpdateChildContent(Xml, 'Cabecera|Subcapitulo', '1.1');
  CkXml_UpdateChildContent(Xml, 'Cabecera|Operacion', 'A00');
  CkXml_UpdateChildContent(Xml, 'Cabecera|Version', '1.0');
  CkXml_UpdateChildContent(Xml, 'Cabecera|Ejercicio', pchar(mperi));
  CkXml_UpdateChildContent(Xml, 'Cabecera|ObligadoTributario|NIF', pchar(TRIM(ts[1])));
  CkXml_UpdateChildContent(Xml, 'Cabecera|ObligadoTributario|ApellidosNombreRazonSocial', pchar(TRIM(ts[2])));
  if mmodelo = '140' then
  begin
    CkXml_UpdateChildContent(Xml, 'Ingresos|Ingreso|TicketBai', CkStringBuilder__getEncoded(sb1, 'base64', 'utf-8'));
    CkXml_UpdateChildContent(Xml, 'Ingresos|Ingreso|Renta|DetalleRenta|Epigrafe', '197330');
    CkXml_UpdateChildContent(Xml, 'Ingresos|Ingreso[1]|TicketBai', CkStringBuilder__getEncoded(sb2, 'base64', 'utf-8'));
    CkXml_UpdateChildContent(Xml, 'Ingresos|Ingreso[1]|Renta|DetalleRenta|Epigrafe', '197330');
    CkXml_UpdateChildContent(Xml, 'Ingresos|Ingreso[1]|Renta|DetalleRenta|IngresoAComputarIRPFDiferenteBaseImpoIVA', 'S');
    CkXml_UpdateChildContent(Xml, 'Ingresos|Ingreso[1]|Renta|DetalleRenta|ImporteIngresoIRPF', '400.00');
  end
  else
  begin
    // CkXml_UpdateChildContent(Xml, 'FacturasEmitidas|FacturaEmitida|TicketBai', CkStringBuilder__getEncoded(sb1, 'base64', 'utf-8'));
    // CkXml_UpdateChildContent(Xml, 'FacturasEmitidas|FacturaEmitida|Renta|DetalleRenta|Epigrafe', '197330');
    sb1 := CkStringBuilder_Create();
    tspen := TStringlist.Create;
    tspen.loadfromfile(ExtractFilepath(paramstr(0)) + 'pendiente.TXT');
    for mcon := 1 TO tspen.Count DO
    BEGIN
      success := CkStringBuilder_LoadFile(sb1, pchar(tspen[mcon - 1]), 'utf-8');
      CkXml_UpdateChildContent(Xml, pchar('FacturasEmitidas|FacturaEmitida[' + IntToStr(mcon) + ']|TicketBai'),
        CkStringBuilder__getEncoded(sb1, 'base64', 'utf-8'));
      // CkXml_UpdateChildContent(Xml, 'FacturasEmitidas|FacturaEmitida['+inttostr(mcon)+']|Renta|DetalleRenta|Epigrafe', '197330');
      // CkXml_UpdateChildContent(Xml, 'FacturasEmitidas|FacturaEmitida['+inttostr(mcon)+']|Renta|DetalleRenta|IngresoAComputarIRPFDiferenteBaseImpoIVA', 'S');
      // CkXml_UpdateChildContent(Xml, 'FacturasEmitidas|FacturaEmitida['+inttostr(mcon)+']|Renta|DetalleRenta|ImporteIngresoIRPF', '400.00');
    END;
  end;

  // Memo1.Lines.Add(CkXml__getXml(xml));

  success := CkXml_SaveXml(Xml, pchar(ExtractFilepath(paramstr(0)) + 'ticketBAI_invoice.xml'));

  CkStringBuilder_Dispose(sb1);
  CkStringBuilder_Dispose(sb2);
  CkXml_Dispose(Xml);

  Http := CkHttp_Create();

  success := CkHttp_SetSslClientCertPfx(Http, pchar(ExtractFilepath(paramstr(0)) + tsconf[0]), pchar(tsconf[1]));
  if (success = FALSE) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(Http));
    Memo1.Lines.SaveToFile(ExtractFilepath(paramstr(0)) + 'LOG.TXT');
    Exit;
  end;

  sbXml := CkStringBuilder_Create();
  success := CkStringBuilder_LoadFile(sbXml, pchar(ExtractFilepath(paramstr(0)) + 'ticketBAI_invoice.xml'), 'utf-8');

  if (success = FALSE) then
  begin
    Memo1.Lines.Add('Failed to load XML that is to be the HTTP request body');
    Memo1.Lines.SaveToFile(ExtractFilepath(paramstr(0)) + 'LOG.TXT');
    Exit;
  end;

  json := CkJsonObject_Create();

  // Add required headers...
  CkJsonObject_UpdateString(json, 'con', 'LROE');
  CkJsonObject_UpdateString(json, 'apa', '1.1');
  CkJsonObject_UpdateString(json, 'inte.nif', pchar(TRIM(ts[1])));
  CkJsonObject_UpdateString(json, 'inte.nrs', pchar(TRIM(ts[2])));
  CkJsonObject_UpdateString(json, 'drs.mode', pchar(mmodelo));
  CkJsonObject_UpdateString(json, 'drs.ejer', pchar(mperi));

  CkHttp_SetRequestHeader(Http, 'eus-bizkaia-n3-version', '1.0');
  CkHttp_SetRequestHeader(Http, 'eus-bizkaia-n3-content-type', 'application/xml');
  CkHttp_SetRequestHeader(Http, 'eus-bizkaia-n3-data', CkJsonObject__emit(json));
  // url := 'https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena';
  bGzip := True;
  resp := CkHttp_PTextSb(Http, 'POST', pchar(mURLAlta), sbXml, 'utf-8', 'application/octet-stream', FALSE, bGzip);
  if (CkHttp_getLastMethodSuccess(Http) = FALSE) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(Http));
    Memo1.Lines.SaveToFile(ExtractFilepath(paramstr(0)) + 'LOG.TXT');
    Exit;
  end;
  CkHttp_ClearHeaders(Http);

  Memo1.Lines.Add('response status code: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

  // Examine the response (it is already decompressed)
  Memo1.Lines.Add('RESP.BODY:' + CHR(13) + CHR(10) + CkHttpResponse__bodyStr(resp));
  Memo1.Lines.Add('RESP.HEADER:' + CHR(13) + CHR(10) + CkHttpResponse__header(resp));

  Memo1.Lines.SaveToFile(ExtractFilepath(paramstr(0)) + 'LOG.TXT');
//lo siguente funciona pero obtenemos el mismo error
{  comprimir(ExtractFilepath(paramstr(0)) + 'ticketBAI_invoice.xml', 'archivo.gz');
  // RequestBody := TFileStream.Create('archivo.gz', fmOpenRead);
  NetHTTPClient1.SecureProtocols := [THTTPSecureProtocol.TLS12];
  NetHTTPClient1.CustomHeaders['Accept-Encoding'] := 'gzip';
  NetHTTPClient1.CustomHeaders['Content-Encoding'] := 'gzip';
  NetHTTPClient1.CustomHeaders['Content-Type'] := 'application/octet-stream';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';
  s := TStringlist.Create;
  m := tmemorystream.Create;
  // Formamos los parametros json de entrada
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-data'] := CkJsonObject__emit(json);
  // AResponse := NetHTTPClient1.post( mURLAlta, RequestBody);
  AResponse := NetHTTPClient1.post(mURLAlta, 'archivo.gz', m);
  m.Position := 0;
  s.LoadFromStream(m);
  Memo1.Lines.AddStrings(s);
  Comprimido := TFileStream.Create('respuesta.gz', fmCreate);
  Comprimido.CopyFrom(AResponse.ContentStream, AResponse.ContentStream.Size);
  Comprimido.Destroy;
  descomprimir('respuesta.gz', 'respuesta2.gz');
  descomprimir('respuesta2.gz', 'respuesta.xml');}
  CkHttpResponse_Dispose(resp);
  CkHttp_Dispose(Http);
  CkStringBuilder_Dispose(sbXml);
  CkJsonObject_Dispose(json);

end;

[sEngine]

Estas en modo pruebas o real? Si es el modo pruebas, estas usando el certificado que nos proporcionan y te has registrado?

[skatologiko]

Yo estoy probando transmitir a Vizcaya con el siguiente comando curl y me da el mismo error, tanto en el entorno real como en el de pruebas, tanto con mi certificado en .pfx (que sí que funciona en Álava y Guipúzcoa) ,como con los que colgaron de prueba en la web de Batuz (que están en p12)

Este es el comando:
curl -H "Accept-Encoding: gzip" -H "Content-Encoding: gzip" -H "Content-Type: application/octet-stream" -H "eus-bizkaia-n3-version: 1.0" -H "eus-bizkaia-n3-content-type: application/xml" -H "eus-bizkaia-n3-data: {\"con\": \"LROE\",\"apa\": \"1.1\",\"inte\": {\"nif\": \"MINIF\",\"nrs\": \"MIEMPRESA\"},\"drs\": {\"mode\": \"240\",\"ejer\": \"2021\"}}" --data-binary @z:\MP220001resumen.xml.gz --cert Z:\ticketbai\certificados\EntitateOrdezkaria_RepresentanteDeEntidad.p12 --key IZDesa2021 -v https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena --output z:\RESP_240.gz -D cabecera.txt

Y este el error:
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0*
Trying 80.245.2.232...
* TCP_NODELAY set
* Connected to pruesarrerak.bizkaia.eus (80.245.2.232) port 443 (#0)
* could not load PEM client certificate, OpenSSL error error:0906D06C:PEM routin
es:PEM_read_bio:no start line, (no key found, wrong pass phrase, or wrong file f
ormat?)
* Curl_http_done: called premature == 0
0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0
* Closing connection 0
curl: (58) could not load PEM client certificate, OpenSSL error error:0906D06C:P
EM routines:PEM_read_bio:no start line, (no key found, wrong pass phrase, or wro
ng file format?)

¿Qué estoy haciendo mal?

[tejano]

Empezado por skatologiko

Yo estoy probando transmitir a Vizcaya con el siguiente comando curl y me da el mismo error, tanto en el entorno real como en el de pruebas, tanto con mi certificado en .pfx (que sí que funciona en Álava y Guipúzcoa) ,como con los que colgaron de prueba en la web de Batuz (que están en p12)

Este es el comando:
curl -H "Accept-Encoding: gzip" -H "Content-Encoding: gzip" -H "Content-Type: application/octet-stream" -H "eus-bizkaia-n3-version: 1.0" -H "eus-bizkaia-n3-content-type: application/xml" -H "eus-bizkaia-n3-data: {\"con\": \"LROE\",\"apa\": \"1.1\",\"inte\": {\"nif\": \"MINIF\",\"nrs\": \"MIEMPRESA\"},\"drs\": {\"mode\": \"240\",\"ejer\": \"2021\"}}" --data-binary @z:\MP220001resumen.xml.gz --cert Z:\ticketbai\certificados\EntitateOrdezkaria_RepresentanteDeEntidad.p12 --key IZDesa2021 -v https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena --output z:\RESP_240.gz -D cabecera.txt

Y este el error:
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0*
Trying 80.245.2.232...
* TCP_NODELAY set
* Connected to pruesarrerak.bizkaia.eus (80.245.2.232) port 443 (#0)
* could not load PEM client certificate, OpenSSL error error:0906D06C:PEM routin
es:PEM_read_bio:no start line, (no key found, wrong pass phrase, or wrong file f
ormat?)
* Curl_http_done: called premature == 0
0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0
* Closing connection 0
curl: (58) could not load PEM client certificate, OpenSSL error error:0906D06C:P
EM routines:PEM_read_bio:no start line, (no key found, wrong pass phrase, or wro
ng file format?)

¿Qué estoy haciendo mal?

Yo lo genero de esta forma y va bien
c:\curl\bin\curl --insecure --cert-type P12 --cert c:\temp\CERTIFICADO.p12:Passwd_certificado -H "Accept-Encoding:gzip" -H "Content-Encoding:gzip" -H "Content-Type:application/octet-stream" -H "eus-bizkaia-n3-version:1.0" -H "eus-bizkaia-n3-content-type:application/xml" -H "eus-bizkaia-n3-data:{\"con\":\"LROE\",\"apa\":\"1.1\",\"inte\":{\"nif\":\"CIF_EMPRESA\",\"nrs\":\"NOMBRE_EMPRESA\"} ,\"drs\":{\"mode\":\"240\",\"ejer\":\"2022\"}}" -v "https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena" --data-binary "@RUTA_FICHERO_GZ.GZ" --output c:\temp\respuesta.gz -D c:\tmp\cabecera.txt

[skatologiko]

Empezado por tejano

Yo lo genero de esta forma y va bien
c:\curl\bin\curl --insecure --cert-type P12 --cert c:\temp\CERTIFICADO.p12:Passwd_certificado -H "Accept-Encoding:gzip" -H "Content-Encoding:gzip" -H "Content-Type:application/octet-stream" -H "eus-bizkaia-n3-version:1.0" -H "eus-bizkaia-n3-content-type:application/xml" -H "eus-bizkaia-n3-data:{\"con\":\"LROE\",\"apa\":\"1.1\",\"inte\":{\"nif\":\"CIF_EMPRESA\",\"nrs\":\"NOMBRE_EMPRESA\"} ,\"drs\":{\"mode\":\"240\",\"ejer\":\"2022\"}}" -v "https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena" --data-binary "@RUTA_FICHERO_GZ.GZ" --output c:\temp\respuesta.gz -D c:\tmp\cabecera.txt

Gracias, al menos ya contesta el servidor

[elguille]

Empezado por sEngine

Estas en modo pruebas o real? Si es el modo pruebas, estas usando el certificado que nos proporcionan y te has registrado?

En modo pruebas, empleando el certificado de empresa nuestro real que si funciona en Guipuzcoa y Alava y uno de un cliente final, en los dos obtengo el error

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

Mi empresa esta registrada como software garante pero no nos han proporcionado ningun certificado de pruebas ¿donde se solicita o puedo verificar que pueda emplear el certificado? ¿en el servicio de pruebas no se pueden emplear certificados reales?

Gracias.

[scsjcm]

Hola a todos estoy en proceso de iniciar el tema del ticketbai a mi ERP, y me gustaria contactar con alguien que lo tenga avanzado y que podamos llegar a un acuerdo económico para que me pueda "acelerar" la integración del ticketbai en mi ERP.

Muchas gracias
Saludos a todos

[batuzail]

Hola,
Revisa la doumentación del entorno de pruebas, tendrás que usar un certificado de prueba de izenpe y darte de alta, te daran un juego de datos.

Empezado por elguille

En modo pruebas, empleando el certificado de empresa nuestro real que si funciona en Guipuzcoa y Alava y uno de un cliente final, en los dos obtengo el error

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

Mi empresa esta registrada como software garante pero no nos han proporcionado ningun certificado de pruebas ¿donde se solicita o puedo verificar que pueda emplear el certificado? ¿en el servicio de pruebas no se pueden emplear certificados reales?

Gracias.

[sEngine]

Email recibido ahora mismo de alava

• Por motivos técnicos, mañana Miércoles 26 de Enero desde las 07:30 de la mañana el entorno de pruebas de TicketBai Álava no estará disponible. En el momento en que vuelva a estar disponible le informaremos por este mismo medio.

[elguille]

Empezado por batuzail

Hola,
Revisa la doumentación del entorno de pruebas, tendrás que usar un certificado de prueba de izenpe y darte de alta, te daran un juego de datos.

He usado el certificado de representante "EntitateOrdezkaria_RepresentanteDeEntidad.p12" y el certificado de empresa "EnpresaZigilua_SelloDeEmpresa.p12" contenidos en https://www.batuz.eus/fitxategiak/ba...ados_V1_0_0.7z y en ambos obtenido el mismo error en entorno pruebas, desesperado y leyendo que en 2021 el LROE no tiene trascendencia tributaria https://www.batuz.eus/es/novedades, se me ha ocurrido enviar una factura de 2021 a produccion con el certificado del cliente final, sin cambiar el codigo solo la url del servicio, y MILAGRO no he tenido ningun problema (factura enviada correctamente), pero claro necesito poder hacer pruebas para comprobar que todo funciona correctamente.

Asimismo en la documentacion del entorno de pruebas https://www.batuz.eus/fitxategiak/ba...ea4c600c4b0bca pone

3.3 Uso de certificados
Los certificados a utilizar en el entorno de pruebas serán los de Producción.
Se admitirán los siguientes certificados:
▪ Certificado de persona física.
▪ Certificado de representante de entidad.
▪ Sello de empresa/entidad.
▪ Sello de autónomo.
▪ Certificado de dispositivo.

por lo que entiendo que no deberia de tener ningun problema en emplear el entorno de pruebas si el certificado en produccion va correctamente. ¿se le ocurre a alguien en donde me equivoco? o como intentar mas pruebas...

Muchas gracias
Saludos a todos

[keys]

Empezado por elguille

He usado el certificado de representante "EntitateOrdezkaria_RepresentanteDeEntidad.p12" y el certificado de empresa "EnpresaZigilua_SelloDeEmpresa.p12" contenidos en https://www.batuz.eus/fitxategiak/ba...ados_V1_0_0.7z y en ambos obtenido el mismo error en entorno pruebas, desesperado y leyendo que en 2021 el LROE no tiene trascendencia tributaria https://www.batuz.eus/es/novedades, se me ha ocurrido enviar una factura de 2021 a produccion con el certificado del cliente final, sin cambiar el codigo solo la url del servicio, y MILAGRO no he tenido ningun problema (factura enviada correctamente), pero claro necesito poder hacer pruebas para comprobar que todo funciona correctamente.

Asimismo en la documentacion del entorno de pruebas https://www.batuz.eus/fitxategiak/ba...ea4c600c4b0bca pone

3.3 Uso de certificados
Los certificados a utilizar en el entorno de pruebas serán los de Producción.
Se admitirán los siguientes certificados:
▪ Certificado de persona física.
▪ Certificado de representante de entidad.
▪ Sello de empresa/entidad.
▪ Sello de autónomo.
▪ Certificado de dispositivo.

por lo que entiendo que no deberia de tener ningun problema en emplear el entorno de pruebas si el certificado en produccion va correctamente. ¿se le ocurre a alguien en donde me equivoco? o como intentar mas pruebas...

Muchas gracias
Saludos a todos

A la empresa de pruebas tienes que ponerle el cif y el nombre que ellos te dicen al darte de alta en el entorno de pruebas

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

Aviso para mañana:

Nos dirigimos a usted como participante del período de pruebas del sistema TicketBai en Álava para informarle de lo siguiente:

• Por motivos técnicos, mañana Miércoles 26 de Enero desde las 07:30 de la mañana el entorno de pruebas de TicketBai Álava no estará disponible. En el momento en que vuelva a estar disponible le informaremos por este mismo medio.

[elguille]

Empezado por keys

A la empresa de pruebas tienes que ponerle el cif y el nombre que ellos te dicen al darte de alta en el entorno de pruebas

Gracias keys y a todos, ya lo he solicitado, habia obviado este paso pensando que con los certificados finales no importaba. Menudo patinazo.