Skip to main content

Notifications

Small and medium business | Business Central, N...
Answered

Can I turn a dictionary into two separate columns for a report in AL?

(0) ShareShare
ReportReport
Posted on by 479

Say I have a dictionary: { 'a':0, 'b':2, 'c':3 }. Can this be turned into two columns where one column are the keys, and the values for the other?
column(chars; chars){}
column(ints; ints){}

  • Verified answer
    YUN ZHU Profile Picture
    YUN ZHU 74,036 Super User 2024 Season 2 on at
    RE: Can I turn a dictionary into two separate columns for a report in AL?

    Hi, 'm not sure what your specific needs are, but here's a simple example that hopefully will give you some hints.

    pastedimage1654821405706v1.png

    page 50100 TestPageForDictionary
    {
        Caption = 'Test Page For Dictionary';
        PageType = List;
        UsageCategory = Lists;
        ApplicationArea = All;
        Editable = false;
        SourceTable = TestTableForDictionary;
    
        layout
        {
            area(Content)
            {
                repeater(Group)
                {
                    field(DictionaryKey; Rec.DictionaryKey)
                    {
                        ApplicationArea = All;
                    }
                    field(DictionaryValue; Rec.DictionaryValue)
                    {
                        ApplicationArea = All;
                    }
                }
            }
        }
    
        trigger OnOpenPage()
        begin
            InsertColumns();
        end;
    
        local procedure InsertColumns()
        var
            Dict: Dictionary of [Text, Integer];
            KeyText: Text;
            IntValue: Integer;
        begin
            Dict.Add('a', 0);
            Dict.Add('b', 2);
            Dict.Add('c', 3);
            foreach KeyText in Dict.Keys do begin
                Rec.Init();
                Rec.DictionaryKey := KeyText;
                Rec.DictionaryValue := Format(Dict.Get(KeyText));
                Rec.Insert();
            end;
        end;
    }
    
    
    table 50100 TestTableForDictionary
    {
        DataClassification = CustomerContent;
    
        fields
        {
            field(1; DictionaryKey; Text[50])
            {
                DataClassification = CustomerContent;
    
            }
            field(2; DictionaryValue; Text[50])
            {
                DataClassification = CustomerContent;
    
            }
        }
    
        keys
        {
            key(Key1; DictionaryKey)
            {
                Clustered = true;
            }
        }
    }

    Thanks.

    ZHU

  • jdrco Profile Picture
    jdrco 479 on at
    RE: Can I turn a dictionary into two separate columns for a report in AL?

    HI yzhums , I am now in the process of trying to insert the keys and values into two columns. Not sure how to go about that.

  • Suggested answer
    YUN ZHU Profile Picture
    YUN ZHU 74,036 Super User 2024 Season 2 on at
    RE: Can I turn a dictionary into two separate columns for a report in AL?

    Hi, you can try to use Foreach method.

    Using this method you can get the key and value separately. Then insert them into the columns you want to use.

    For example:

    pastedimage1654737815516v1.png

    pageextension 50100 MyExtension extends "Customer List"
    {
        trigger OnOpenPage()
        begin
            Test();
        end;
    
        local procedure Test()
        var
            Dict: Dictionary of [Text, Integer];
            KeyText: Text;
            IntValue: Integer;
        begin
            Dict.Add('a', 0);
            Dict.Add('b', 2);
            Dict.Add('c', 3);
            foreach KeyText in Dict.Keys do begin
                Message(Format(KeyText));
                Message(Format(Dict.Get(KeyText)));
            end;
        end;
    }

    Hope this helps.

    Thanks.

    ZHU

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

News and Announcements

Announcing Category Subscriptions!

Quick Links

December Spotlight Star - Muhammad Affan

Congratulations to a top community star!

Top 10 leaders for November!

Congratulations to our November super stars!

Tips for Writing Effective Verified Answers

Best practices for providing successful forum answers ✍️

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 291,359 Super User 2024 Season 2

#2
Martin Dráb Profile Picture

Martin Dráb 230,370 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans