[benjy.sr]

O al menos eso creo, en la respuesta obtengo un escueto OK, pero en el memo no aparece nada, sale vacío. ¿Hay alguna forma de consultar en el entorno de pruebas las facturas enviadas para asegurarme que se ha enviado correctamente?


Este es el código una vez generado el fichero comprimido

Código Delphi [-]

  RequestBody:= TFileStream.Create(ficheroComprimido, 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';

  //Formamos los parametros json de entrada
  json:='{"con": "LROE", "apa": "1.1", "inte": {"nif": "XXXXXXXXX","nrs": "PRUEBA","ap1": "APELLIDO1","ap2": "APELLIDO2"},"drs": {"mode": "140","ejer": "2021"}}';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-data']:= json;

  Url:='ttps://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena';  

  ResponseStreamString:= TStringStream.Create;
  try
    AResponse:= NetHTTPClient1.Post(url,RequestBody); //,ResponseStreamString,nil);
  finally
    ResponseStreamString.Free;
  end;
  Memo1.Text:= aResponse.ContentAsString(TEncoding.UTF8);