[W1][Codeunit][8618][Config. Excel Exchange] Add var FileName to OnBeforeExportExcel

[pasitenhunen]

Why do you need this change?

I would like to change the filename of an Excel file exported from the configuration package to include configuration package code.

The user initiates the export of a configuration package to Excel from a list page, card page, or subpage of the card page. Those leads to prosedure ExportExcelFromTables, where FileName is a local text variable. It is empty and it is passed to prosedure ExportExcel. In procedure ExportExcel there is a following code, which ultimately leads in codeunit 419 File Management to the fact that the filename is always in the form DefaultDD_MM_YYYY_HH_MM_SS.xlsx.

if FileName = '' then
    FileName :=
        StrSubstNo(ExcelFileNameTok, Format(CurrentDateTime, 0, '<Day,2>_<Month,2>_<Year4>_<Hours24>_<Minutes,2>_<Seconds,2>'));

Describe the request

Add var FileName: Text to the existing integration event in the procedure ExportExcel in codeunit 8618 Config. Excel Exchange.

begin
    StartTime := CurrentDateTime();
    Session.LogMessage('00009QA', ExcelExportStartMsg, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', RapidStartTxt);

    OnBeforeExportExcel(ConfigPackageTable, FileName);  // <-- New parameter FileName at the end

    Clear(ExportFromWksht); // Obsolete parameter

[IntegrationEvent(false, false)]
local procedure OnBeforeExportExcel(var ConfigPackageTable: Record "Config. Package Table", var FileName: Text)  // <-- New parameter FileName at the end
begin
end;

Internal work item: AB#640704

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add var FileName: Text to the existing OnBeforeExportExcel integration event in ExportExcel() so extensions can override the exported Excel filename before the default name is generated.

Location in ExportExcel() procedure:

begin
    StartTime := CurrentDateTime();
    Session.LogMessage('00009QA', ExcelExportStartMsg, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', RapidStartTxt);

    OnBeforeExportExcel(ConfigPackageTable, FileName); // NEW

    Clear(ExportFromWksht); // Obsolete parameter
    TempSchemaFileName := CreateSchemaFile(ConfigPackageTable, RootElementName);
    TempSetupDataFileName := BuildDataSetForPackageTable(ConfigPackageTable);

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnBeforeExportExcel(var ConfigPackageTable: Record "Config. Package Table"; var FileName: Text)
begin
end;

---

File: ConfigExcelExchange.Codeunit.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.