To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
VAR
TempBlob@1002 : Record 99008535;
FileManagement@1001 : Codeunit 419;
// Delete the following lines.
OutStr@1000 : OutStream;
BEGIN
TempBlob.INIT;
TempBlob.Blob.CREATEOUTSTREAM(OutStr);
XMLPORT.EXPORT(XMLPortID,OutStr,DirectDebitCollectionEntry);
PostProcessXMLDocument(TempBlob);
EXIT(FileManagement.BLOBExport(TempBlob,STRSUBSTNO('%1.XML',FileName),TRUE) <> '');
// End of the deleted lines.
END;
LOCAL PROCEDURE PostProcessXMLDocument@2(VAR TempBlob@1000 : Record 99008535);
...
...
VAR
TempBlob@1002 : Record 99008535;
FileManagement@1001 : Codeunit 419;
// Add the following lines.
CommonDialogMgt@1170000000 : Codeunit 412;
OutStr@1000 : OutStream;
FileFilter@1170000001 : Text[250];
BEGIN
TempBlob.INIT;
TempBlob.Blob.CREATEOUTSTREAM(OutStr);
XMLPORT.EXPORT(XMLPortID,OutStr,DirectDebitCollectionEntry);
PostProcessXMLDocument(TempBlob);
IF NOT ISSERVICETIER THEN BEGIN
FileFilter := '*.xml|*.xml';
FileName := CommonDialogMgt.OpenFile('',FileName,4,FileFilter,1);
EXIT(FileManagement.BLOBExport(TempBlob,FileName,FALSE) <> '');
// End of the added lines.
END ELSE
EXIT(FileManagement.BLOBExport(TempBlob,STRSUBSTNO('%1.XML',FileName),TRUE) <> '');
END;
LOCAL PROCEDURE PostProcessXMLDocument@2(VAR TempBlob@1000 : Record 99008535);
...