SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

[Galahad]

Empezado por newtron

Aunque esto está engordando demasiado y se hace complicado, revisa el hilo (de principio en adelante) y verás que esa pregunta ya está contestada aunque ahora mismo no recuerdo exactamente cómo era.

Saludos

Hola, tienes que utilizar el/los eventos del componente httprio beforeexecute o afterexecute, te mando un ejemplo de código..

procedure TFModelo_SII.HTTPRIO1BeforeExecute(const MethodName: string;
SOAPRequest: TStream);
var
ss:TFileStream;
cfichero: string;
begin
cfichero := montar_fichero_sii( date,time,'nombredefichero.xml');
if FileExists( cfichero ) then
DeleteFile( cfichero);

ss:=TFileStream.Create( cfichero, fmCreate);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest, SOAPRequest.size);
ss.Free;
SOAPRequest.Position := 0;
end;

[brincola]

Empezado por Galahad

Hola, tienes que utilizar el/los eventos del componente httprio beforeexecute o afterexecute, te mando un ejemplo de código..

Si cfichero existe, no es preciso borrarlo, ya que el parámetro fmCreate en ss:=TFileStream.Create( cfichero, fmCreate);'machaca' (rewrite) el fichero si existe.

¿Dónde está la implementación de montar_fichero_sii( date,time,'nombredefichero.xml')? Gracias.