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

[juramisa]

Buenos días

Quisiera pediros un poco de ayuda con los envíos del 140 y 240. Quisiera usar NetHTTPRequest y NetHTTPClient para los envíos, vosotros me diréis que opináis del tema. De momento he realizado pruebas con otros sitios https para comprender el funcionamiento. Estaba montado una prueba, con los ejemplos del Batuz, y pienso que quedaría así.

Código Delphi [-]
var
  Url: string;
  ss: TStringStream;
begin
  Url := 'https://sarrerak.bizkaia.eus/aurkezpena';

  NetHTTPRequest1.CustomHeaders['Accept-Encoding'] := 'gzip';
  NetHTTPRequest1.CustomHeaders['Content-Encoding'] := 'gzip';
  NetHTTPRequest1.CustomHeaders['Content-Type'] := 'application/octet-stream';
  NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
  NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';
  NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-data'] := '{"con": "LROE", "apa": "1.1", "inte": {"nif": "79732487C","nrs": "ANE","ap1": "ARRIOLA","ap2": "LEJARDI"},"drs": {"mode": "140","ejer": "2022"}}'; //Edit1.text;

  ss := TStringStream.Create('', TEncoding.UTF8);
  ss.Position := 0;
  ss.LoadFromFile('Ejemplo_1_LROE_PF_140_IngresosConFacturaConSG_79732487C.gz');

  NetHTTPRequest1.MethodString := 'POST';
  Memo1.Text := NetHTTPClient1.Post(url, ss).ContentAsString(tencoding.UTF8);
end;

Como es un tema totalmente novedoso para mí, quisiera preguntaros si voy por el buen camino, o si me recomendáis otro distinto.

Gracias por vuestra comprensión.