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';
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); finally
ResponseStreamString.Free;
end;
Memo1.Text:= aResponse.ContentAsString(TEncoding.UTF8);