Dynamics Community Forum Thread Details

Use queries as variables within procedures

Hello,

Making use of 'Query.Open' method (explained more in detail here > query as a data source for a page), I was trying to set up a page, where users can use action triggers to jump between various queries. Although, I succeeded to reach that goal, the code is quite repetitive, as I cannot really make use of one local procedure to bundle such calls for an easier maintenance.

To explain, what I mean, I did the following:

Setting up temporary table
- name: "InvoiceQueryStatus"
- fields: "No.", "Job No.", "Amount"
Setting up the queries
- name1: "Purchase Invoice Overdue"
- name2: "Sales Invoice Overdue"
- remark: both with identical column names
Setting up the page as in the following

page 50001 InvoiceStatus
{
    ApplicationArea = All;
    PageType = List;
    SourceTable = InvoiceQueryStatus;
    UsageCategory = ReportsAndAnalysis;

    layout
    {
        area(Content)
        {
            repeater(General)
            {
                field(No; Rec."Job No.")
                {}
                field(Amount; Rec.Amount)
                {}
            }
        }
    }
    actions
    {
        area(Processing)
        {
            action("Purchase Overdue")
            {
                trigger OnAction()
                var
                    InvoiceQuery: Query "Purchase Invoice Overdue";
                begin
                    if Rec.Next() > 0 then begin
                        Rec.DeleteAll();
                    end;
                    if InvoiceQuery.Open() then begin
                        while InvoiceQuery.Read() do begin
                            Rec.Init();
                            Rec."No." := Rec."No." + 1;
                            Rec."Job No." := InvoiceQuery.JobNo;
                            Rec.Amount := InvoiceQuery.Amount;
                            Rec.Insert();
                        end;
                        InvoiceQuery.Close();
                    end;
                end;
            }
            action("Sales Overdue")
            {
                trigger OnAction()
                begin
                    SalesOverdue();
                end;
            }
        }
    }

    trigger OnOpenPage()
    begin
        SalesOverdue();
    end;

    local procedure SalesOverdue()
    var
        InvoiceQuery: Query "Sales Invoice Overdue";
    begin
        if Rec.IsEmpty() <> true then begin
            Rec.DeleteAll();
        end;
        if InvoiceQuery.Open() then begin
            while InvoiceQuery.Read() do begin
                Rec.Init();
                Rec."No." := Rec."No." + 1;
                Rec."Job No." := InvoiceQuery.JobNo;
                Rec.Amount := InvoiceQuery.Amount;
                Rec.Insert();
            end;
            InvoiceQuery.Close();
        end;
    end;
}

As seen above the code of the local procedure is identical with the code within the action block ... with the one exception that its variable 'InvoiceQuery' differs in its type. Therefore, my question if it is somehow possible to use a condition to make of either the one or the other query?

Categories:

Dynamics 365 Business Central

Quick Links