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

[ermendalenda]

Empezado por iMia

No, entre pruebas no he tocado nada de la dirección...

Solo se me ocurre eso o que ya no exista el fichero a enviar por que lo muevas o algo así.

[juramisa]

Buenas tardes,

A ver si alguien puede ayudarme. Estoy intentando enviar un fichero XML, creado igual que para Bizkaia, pero con las diferencias de Gipuzcoa lo guardado en 'el_fichero_a_enviar', sin comprimir.

  <?xml version="1.0" encoding="UTF-8" ?> 
- <T:TicketBai xmlns:T="urn:ticketbai:emision">
- <Cabecera>
  <IDVersionTBAI>1.2</IDVersionTBAI> 
....
</T:TicketBai>

A la hora de enviar, yo utilizo HTTPClient de SecureBlackBox, programación en Delphi

Código Delphi [-]
      sbxHTTPClient1.RequestParameters.ContentType := 'application/xml;charset=UTF-8';
      otros_parametros := 'Accept-Encoding: '             + '' + #13#10
                        + 'Content-Encoding: '            + '';
      sbxHTTPClient1.RequestParameters.CustomHeaders := otros_parametros;

      sbxHTTPClient1.PostFile('https://tbai-prep.egoitza.gipuzkoa.eus/WAS/HACI/HTBRecepcionFacturasWEB/rest/recepcionFacturas/alta', el_fichero_a_enviar);

El componente me dice que la cabecera va con la siguiente información

POST /WAS/HACI/HTBRecepcionFacturasWEB/rest/recepcionFacturas/alta HTTP/1.1: 
Content-Type: application/xml;charset=UTF-8
Host: tbai-prep.egoitza.gipuzkoa.eus
User-Agent: SecureBlackbox
Accept-Encoding: 
Connection: keep-alive
Content-Encoding: 
Content-Length: 9411

Pues bien, al enviar da un error 'Connection lost due to error 10058' aparentemente me rechaza y no consigo, por más pruebas y combinaciones que haga al conectar. Podéis indicarme como lo hacéis vosotros, para ver donde me equivoco?

Gracias

[HerensugeBeltz]

Empezado por juramisa

Buenas tardes,

A ver si alguien puede ayudarme. Estoy intentando enviar un fichero XML, creado igual que para Bizkaia, pero con las diferencias de Gipuzcoa lo guardado en 'el_fichero_a_enviar', sin comprimir.

A la hora de enviar, yo utilizo HTTPClient de SecureBlackBox, programación en Delphi

Pues bien, al enviar da un error 'Connection lost due to error 10058' aparentemente me rechaza y no consigo, por más pruebas y combinaciones que haga al conectar. Podéis indicarme como lo hacéis vosotros, para ver donde me equivoco?

Gracias

Hola Juramisa,
Te adjunto el código que uso yo. Los envíos de prueba van bien (es en C++Builder). En mi caso tuve problemas con el método SendFile y tuve que usar PostBytes. XMLOrigen es el fichero XML firmado y grabado en disco.

  // Cargo el fichero como un array de bytes. Con otros métodos se desvirtuaba el
  // contenido y el envío fallaba.
  DynamicArray<byte> cnt;
  std::unique_ptr<TFileStream> fs(new TFileStream(XMLOrigen,	fmOpenRead));
  cnt.Length= fs->Size;
  fs->Read(cnt, 0, cnt.Length);

  bool resul(true);
  try
  {
    sbxHTTPClient1->TLSAutoValidateCertificates= true; 
    sbxHTTPClient1->TLSVersions= TsbxConstants::csbTLS12;
    sbxHTTPClient1->ReqParamsContentType= L"application/xml;charset=UTF-8";
    sbxHTTPClient1->ReqParamsAcceptCharset= L"UTF-8";
    sbxHTTPClient1->ReqParamsAccept= L"*/*";
    sbxHTTPClient1->ReqParamsHTTPVersion= TsbxHTTPClientReqParamsHTTPVersions::chvHTTP11;
    sbxHTTPClient1->TLSRenegotiationAttackPreventionMode= TsbxHTTPClientTLSRenegotiationAttackPreventionModes::crapmAuto;
    sbxHTTPClient1->Config(L"UseSystemCertificates=true");
    // Cambio el timeout por defecto
  // SocketDNSTotalTimeout (0): The timeout (in milliseconds) for the whole resolution process
  // SocketTimeout (60000): The maximum period of waiting, in milliseconds, after which the socket operation is considered unsuccessful.
    sbxHTTPClient1->SocketDNSTotalTimeout= 2000;
    sbxHTTPClient1->SocketTimeout= 2500;

    sbxHTTPClient1->PostBytes(endPoint, cnt);
  }
  catch (Exception &e)
  {
    err= L"Error en el envío de la factura XML.\r\n"+ e.Message + L"\r\n" +
      sbxHTTPClient1->ReasonPhrase;
    resul= false;
  }

[keys]

Hola a todos.

Creo que se aproximan cambios en los formatos de los ficheros xml. Si os fijais en la actualización de las validaciones que acaba se sacar Gipuzkoa, en la página 15 habla de una clave 17.

VALIDACIONES PARA OPERACIONES DE LA CLAVE DE RÉGIMEN 17 · OSS/IOSS

Si la ClaveRegimenIVAOpTranscendencia igual a ·17·, para el bloque Sujeta NoExenta solo se permite el tipo de no exenta ·S1·

Todo para el tema de las operaciones OSS, que se ha añadido recientemente al SII. Por supuesto la clave 17 no existe en la descripción del XML de TicketBAI.

Un Saludo.

[chuski1212]

Hola buenas a todos,

Estoy trabajando en el sistema de pruebas de Guipuzkoa y para cada envio obtengo el error 010 Posible error de encadenamiento.

Se supone que si una factura tiene los datos requeridos de la anterior, esta bien encadenada no? Aunque la anterior no estuviese encadenada correctamente.

Al empezar las pruebas hace semanas no estaba enviando el encadenamiento, puede ser este el problema? De ser asi, ahora no se cual es la primera desde la que tengo que seguir la cadena.

Alguien tiene alguna idea al respecto?

Muchisimas gracias!!

[elguille]

Empezado por chuski1212

Hola buenas a todos,

Estoy trabajando en el sistema de pruebas de Guipuzkoa y para cada envio obtengo el error 010 Posible error de encadenamiento.

Se supone que si una factura tiene los datos requeridos de la anterior, esta bien encadenada no? Aunque la anterior no estuviese encadenada correctamente.

Al empezar las pruebas hace semanas no estaba enviando el encadenamiento, puede ser este el problema? De ser asi, ahora no se cual es la primera desde la que tengo que seguir la cadena.

Alguien tiene alguna idea al respecto?

Muchisimas gracias!!

Mientras estuve haciendo pruebas recibia este error pero a la primera que rellene los datos de la factura anterior correctamente deje de recibirlos, fijate que envias solo los primeros 100 caracteres de SignatureValue.

Código PHP:

        <EncadenamientoFacturaAnterior>
            <SerieFacturaAnterior>A2022</SerieFacturaAnterior>
            <NumFacturaAnterior>0416</NumFacturaAnterior>
            <FechaExpedicionFacturaAnterior>13-09-2021</FechaExpedicionFacturaAnterior>
            <SignatureValueFirmaFacturaAnterior>bC6lFn1GmPEVsqriytT+2gN6/WMq48nYRceoCRlptLqTQZjAmIO7AHqSofqKvnLWmAM1KHrrc2bVtHvYHHrosTTrEciXIl2ZI6P9</SignatureValueFirmaFacturaAnterior>
        </EncadenamientoFacturaAnterior> 


[ermendalenda]

Empezado por chuski1212

Hola buenas a todos,

Estoy trabajando en el sistema de pruebas de Guipuzkoa y para cada envio obtengo el error 010 Posible error de encadenamiento.

Se supone que si una factura tiene los datos requeridos de la anterior, esta bien encadenada no? Aunque la anterior no estuviese encadenada correctamente.

Al empezar las pruebas hace semanas no estaba enviando el encadenamiento, puede ser este el problema? De ser asi, ahora no se cual es la primera desde la que tengo que seguir la cadena.

Alguien tiene alguna idea al respecto?

Muchisimas gracias!!

A mi me pasó, en mi caso era que aunque el encadenamiento (de la firma) estaba bien tenia la serie escrita un pelín diferente un guión en vez de un punto respecto a la enviada anterior.
Comprueba también Serie anterior y número anterior y si no está exacto da el mismo error que si mandas mal la firma anterior..

[juramisa]

Empezado por HerensugeBeltz

Hola Juramisa,
Te adjunto el código que uso yo. Los envíos de prueba van bien (es en C++Builder). En mi caso tuve problemas con el método SendFile y tuve que usar PostBytes. XMLOrigen es el fichero XML firmado y grabado en disco.

..  {
    sbxHTTPClient1->TLSAutoValidateCertificates= true; 
    sbxHTTPClient1->TLSVersions= TsbxConstants::csbTLS12;
    sbxHTTPClient1->ReqParamsContentType= L"application/xml;charset=UTF-8";
    sbxHTTPClient1->ReqParamsAcceptCharset= L"UTF-8";
    sbxHTTPClient1->ReqParamsAccept= L"*/*";
    sbxHTTPClient1->ReqParamsHTTPVersion= TsbxHTTPClientReqParamsHTTPVersions::chvHTTP11;
    sbxHTTPClient1->TLSRenegotiationAttackPreventionMode= TsbxHTTPClientTLSRenegotiationAttackPreventionModes::crapmAuto;
    sbxHTTPClient1->Config(L"UseSystemCertificates=true");
    // Cambio el timeout por defecto
  // SocketDNSTotalTimeout (0): The timeout (in milliseconds) for the whole resolution process
  // SocketTimeout (60000): The maximum period of waiting, in milliseconds, after which the socket operation is considered unsuccessful.
    sbxHTTPClient1->SocketDNSTotalTimeout= 2000;
    sbxHTTPClient1->SocketTimeout= 2500;
..
  }

Muchisimas gracias, ha funcionado a la primera.

Me has salvado.

Os dejo como quedan los envío con SecureBlackBox desde Delphi

Código Delphi [-]
  procedure GuardarRespuesta(const Fichero: string; Respuesta: TBytes);
  var
    stream: TBytesStream;
  begin
    stream := TBytesStream.Create(Respuesta);
    try
      stream.SaveToFile(Fichero);
    finally
      stream.Free;
    end;
  end;
  function bintostr(const bin: array of byte): string;
  const
    HexSymbols = '0123456789ABCDEF';
  var
    i: integer;
  begin
    SetLength(Result, 2 * Length(bin));
    for i := 0 to Length(bin) - 1 do
    begin
      Result[1 + 2 * i + 0] := HexSymbols[1 + bin[i] shr 4];
      Result[1 + 2 * i + 1] := HexSymbols[1 + bin[i] and $0F];
    end;
  end;

procedure p_envio_TicketBai
var 
  la_respuesta : IXMLTicketBaiResponse;

begin
  try
  el_fichero_a_enviar := 'ruta y nombre fichero ticketbai';


if FileExists(el_fichero_a_enviar) then
  WebBrowser1.Navigate(el_fichero_a_enviar);
if FileExists(el_fichero_a_enviar) then
begin

  sbxHTTPClient1.TLSSettings.AutoValidateCertificates := True;
  CertificateStorage := TsbxCertificateStorage.Create(nil);
  if CertificateStorage.Opened then
    CertificateStorage.Close(True);
  CertificateStorage.Open('system://currentuser@localhost/?store=MY');
  encontrado := False;
  sbxHTTPClient1.ClientChain.Clear;
  for i := 0 to CertificateStorage.Certificates.Count - 1 do
  begin
    cert := CertificateStorage.Certificates[i];
    if bintostr(cert.SerialNumber) = mi_certificadoID.Caption then
    begin
      sbxHTTPClient1.ClientChain.Add(cert);
      encontrado := True;
    end;
  end;
  if not encontrado then
  begin
    Application.MessageBox('Firma no encontrada', 'Proceso de firma', MB_OK + MB_ICONWARNING + MB_DEFBUTTON2);
    Exit;
  end;

  sbxHTTPClient1.RequestParameters.ContentType := 'application/xml;charset=UTF-8';
  sbxHTTPClient1.RequestParameters.AcceptCharset := 'UTF-8';
  sbxHTTPClient1.RequestParameters.Accept := '*/*';
  sbxHTTPClient1.RequestParameters.HTTPVersion := TsbxHTTPClientReqParamsHTTPVersions.chvHTTP11;
  sbxHTTPClient1.TLSSettings.RenegotiationAttackPreventionMode := TsbxHTTPClientTLSRenegotiationAttackPreventionModes.crapmAuto;
  sbxHTTPClient1.Config('UseSystemCertificates=true');
  sbxHTTPClient1.SocketSettings.DNSTotalTimeout := 2000;
  sbxHTTPClient1.SocketSettings.Timeout := 2500;
  otros_parametros := 'Accept-Encoding: ' + #13#10
                    + 'Content-Encoding: ' ;
  sbxHTTPClient1.RequestParameters.CustomHeaders := otros_parametros;

  case rg_Entorno.ItemIndex of
    0: sbxHTTPClient1.PostFile(la_url_GI_alta_pruebas, el_fichero_a_enviar);
    1: sbxHTTPClient1.PostFile(la_url_GI_alta, el_fichero_a_enviar);
  end;
  if sbxHTTPClient1.OutputBytes = nil then
    Exit;
  FicheroRespuesta := el_fichero_a_recibir;
  GuardarRespuesta(FicheroRespuesta,sbxHTTPClient1.OutputBytes);

  if FileExists(el_fichero_a_recibir) then
    wbRecepcion.Navigate(el_fichero_a_recibir);
  // Cabecera
  {$REGION Cabecera}
  XMLDocument1 := TXMLDocument.Create(nil);

  XMLDocument1.Active := False;
  XMLDocument1.XML.Clear;
  XMLDocument1.LoadFromFile(el_fichero_a_recibir);

  XMLDocument1.Active := True;

  XMLDocument1.XML.Text := StringReplace(XMLDocument1.XML.Text, 'ns2:TicketBai', 'TicketBai', [rfReplaceAll, rfIgnoreCase]);
  XMLDocument1.XML.Text := StringReplace(XMLDocument1.XML.Text, 'xmlns:ns2', 'xmlns', [rfReplaceAll, rfIgnoreCase]);

  la_respuesta := GetTicketBaiResponse(XMLDocument1);
  .......

[HerensugeBeltz]

Hola Juramisa,
Olvida el timeout. Ese timeout tan corto no lo uso en los envíos de facturas, sólo lo hago para probar si el servicio está activo enviando un xml vacío.

   ...
    // Cambio el timeout por defecto
  // SocketDNSTotalTimeout (0): The timeout (in milliseconds) for the whole resolution process
  // SocketTimeout (60000): The maximum period of waiting, in milliseconds, after which the socket operation is considered unsuccessful.
   
   -- Sólo para probar que el servicio esté activo enviando un xml vacío --
    sbxHTTPClient1->SocketDNSTotalTimeout= 2000;
    sbxHTTPClient1->SocketTimeout= 2500;

    sbxHTTPClient1->PostBytes(endPoint, cnt);
   ...