Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[keno_71]

Lo tengo así,

en el beforeExecute:

sTmp := TStringList.Create;
try
SOAPRequest.Position := 0;
sTmp.LoadFromStream(SOAPRequest);
nFile := ExtractFilePath(Application.ExeName) + 'VeriFactu_PeticionEnviada.xml';
sTmp.SaveToFile(nFile);
Memo1.Lines.LoadFromFile(nFile);
finally
FreeAndNil(sTmp);
end;

en el fichero de SistemaFActuracion:

function GetsfSOAP(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): sfSOAP;
const
defWSDL = 'https://prewww2.aeat.es/static_files/common/internet/dep/aplicaciones/es/aeat/tikeV1.0/cont/ws/SistemaFacturacion.wsdl';
defURL = 'https://www.me_la_he_inventado_.com';
defSvc = 'sfService';
defPrt = 'SistemaFacturacion';

saludos