Page Comparison

Use this event Use this event to

...

An alternative to DataTables is listValues that has advantages and disadvantages as compared to DataTables:

Consider using Steps.Create_ListStepFromListValues() or HeaderField.Create_ListFieldFromListValues() if your lists are short, only requires one field per entry - or needs to be dynamic.

Template

        [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddDataTables', '', true, true)]
    local procedure OnGetReferenceData_OnAddDataTables(var _DataTable: Record "MOB DataTable Element"; _MobileUserID: Code[50])
    begin
        with _DataTable do begin
            InitDataTable_DataTable.InitDataTable('MyCustomDataTableId');   // Replace with your own dataTable identifier to be used with Set_dataTable(...) from Steps and HeaderConfigurations

                    // Create your DataTable entries here
                    // ...
            ;
        end;
    end;

Example (1)

    // [Example] 01 - Create new custom DataTable based on BC table using a Create_XXX template
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddDataTables', '', true, true)]
    local procedure My01OnGetReferenceData_OnAddDataTables(var _DataTable: Record "MOB DataTable Element"; _MobileUserID: Code[50])
    var
        CountryRegion: Record "Country/Region";
    begin
        with _DataTable do begin
            InitDataTable_DataTable.InitDataTable('MyCountries');

            if CountryRegion.FindFirstFindSet() then
                            repeat
                    Create                _DataTable.Create_CodeAndName(CountryRegion.Code, CountryRegion.Name);
                            until CountryRegion.Next() = 0;
        end;
    end;

Example (2)

    // [Example] 02 - Create new custom DataTable based on with no use of templates
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddDataTables', '', true, true)]
    local procedure My02OnGetReferenceData_OnAddDataTables(var _DataTable: Record "MOB DataTable Element"; _MobileUserID: Code[50])
    var
        CountryRegion: Record "Country/Region";
    begin
        with _DataTable do begin
            InitDataTable_DataTable.InitDataTable('MyCountryDetails');

            if CountryRegion.FindFirstFindSet() then
                            repeat
                    Create                _DataTable.Create();
                    SetValue('Code', CountryRegion.Code);
                    SetValue('ISOCode                _DataTable.SetValue('Code', CountryRegion."ISO Code"Code);
                    SetValue                _DataTable.SetValue('EUCode', CountryRegion."EU Country/Region Code");
                            until CountryRegion.Next() = 0;
        end;
    end;

Example (3)

    // [Example] 03 - Create new custom DataTable based on optionfield
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddDataTables', '', true, true)]
    local procedure My03OnGetReferenceData_OnAddDataTables(var _DataTable: Record "MOB DataTable Element"; _MobileUserID: Code[50])
    var
        SalesHeader: Record "Sales Header";
        OptionIdx        MobCommonMgt: Codeunit "MOB Common Mgt.";
        MobToolbox: Codeunit "MOB Toolbox";
        OptionIndex: Integer;
    begin
        with _DataTable do begin
            InitDataTable        _DataTable.InitDataTable('MyDocumentTypes');

            for OptionIdx OptionIndex := MobToolbox.AsInteger(SalesHeader."Document Type"::Quote to SalesHeaderQuote) to MobToolbox.AsInteger(SalesHeader."Document Type"::"Return Order") do begin
                SalesHeader            SalesHeader."Document Type" := OptionIdx;
                MobCommonMgt.AsSalesDocumentTypeFromInteger(OptionIndex);

            _DataTable.Create();
                SetValue            _DataTable.SetValue('DocumentType', Format(SalesHeader."Document Type"));
            end;
        end;
    end;

Version History