How to select multiple records to filter a report

johnnyp

Hello everyone.

I'm creating a simple report (Dynamics NAV 2017), that reads data from two similar tables, joins all into one temporary and prints it into excel. All nice and simple. I've set the RequestedFilterField for both tables to "Document No.". Now as filters go, I can select single record, put a pipe (|) and select the next record ... works fine, but is extremely time consuming. My idea is, that when you drill down (or lookup, idk) into "Document No.", you could select multiple records (either with Shift or Ctrl) and when pressing OK it would fill my "Document No." filter with selected document numbers. I'm not sure if this can be achieved by standard funcionalities.

Any help is greatly appreciated.

Best regards, John

TallyHo

Create field in your request page, add the following:

<Control1100494004> - OnLookup(VAR Text : Text[1024];) : Boolean
ThePage.SETTABLEVIEW(TheTable);
ThePage.EDITABLE(FALSE);
ThePage.LOOKUPMODE(TRUE);
IF ThePage.RUNMODAL=ACTION::LookupOK THEN BEGIN
ThePage.GetRecords(TheTable);
TheTable.MARKEDONLY(TRUE);
IF TheTable.FINDSET THEN BEGIN
CLEAR(FilterString);
REPEAT
IF FilterString = '' THEN
FilterString := TheTable."Transaction No."
ELSE
FilterString := (FilterString + '|' + TheTable."Transaction No.");
UNTIL TheTable.NEXT <= 0;
END;
END;

In ThePage create function:

GetRecords(VAR TheTableV : Record "The Table")
TheTableV.COPY(Rec);
TheTableV.MARKEDONLY(TRUE);
IF TheTableV.COUNT = 0 THEN BEGIN
TheTableV.COPY(Rec);
TheTableV.MARK(TRUE);
END;
TheTableV.MARKEDONLY(FALSE);

TallyHo

I'm sorry, this was written for classic client where you could mark the records using CTRL+F1.
Try adding SETSELECTIONFILTER, this marks the records too. But in a different way.

GetRecords(VAR TheTableV : Record "The Table")

CurrPage.SETSELECTIONFILTER(Rec);

TheTableV.COPY(Rec);
TheTableV.MARKEDONLY(TRUE);
IF TheTableV.COUNT = 0 THEN BEGIN
TheTableV.COPY(Rec);
TheTableV.MARK(TRUE);
END;
TheTableV.MARKEDONLY(FALSE);


Check this out too:
https://docs.microsoft.com/en-us/dynamics-nav/setselectionfilter-function

kriki

[Topic moved from 'NAV Tips & Tricks' forum to 'NAV Three Tier' forum]

TallyHo

Not standard.

johnnyp

Any suggestion how to achieve my goal if, as you say, this cannot be done by standard functionalities?

TallyHo

Create field in your request page, add the following:

<Control1100494004> - OnLookup(VAR Text : Text[1024];) : Boolean
ThePage.SETTABLEVIEW(TheTable);
ThePage.EDITABLE(FALSE);
ThePage.LOOKUPMODE(TRUE);
IF ThePage.RUNMODAL=ACTION::LookupOK THEN BEGIN
ThePage.GetRecords(TheTable);
TheTable.MARKEDONLY(TRUE);
IF TheTable.FINDSET THEN BEGIN
CLEAR(FilterString);
REPEAT
IF FilterString = '' THEN
FilterString := TheTable."Transaction No."
ELSE
FilterString := (FilterString + '|' + TheTable."Transaction No.");
UNTIL TheTable.NEXT <= 0;
END;
END;

In ThePage create function:

GetRecords(VAR TheTableV : Record "The Table")
TheTableV.COPY(Rec);
TheTableV.MARKEDONLY(TRUE);
IF TheTableV.COUNT = 0 THEN BEGIN
TheTableV.COPY(Rec);
TheTableV.MARK(TRUE);
END;
TheTableV.MARKEDONLY(FALSE);

johnnyp

TallyHo, thank you for your suggestion. I implemented it, and it works, to a degree. Lookup works great, I can select my records, however the function that should return a set of records, only returns 1 record. Any ideas why?

TallyHo

I'm sorry, this was written for classic client where you could mark the records using CTRL+F1.
Try adding SETSELECTIONFILTER, this marks the records too. But in a different way.

GetRecords(VAR TheTableV : Record "The Table")

CurrPage.SETSELECTIONFILTER(Rec);

TheTableV.COPY(Rec);
TheTableV.MARKEDONLY(TRUE);
IF TheTableV.COUNT = 0 THEN BEGIN
TheTableV.COPY(Rec);
TheTableV.MARK(TRUE);
END;
TheTableV.MARKEDONLY(FALSE);


Check this out too:
https://docs.microsoft.com/en-us/dynamics-nav/setselectionfilter-function

johnnyp

TallyHo, you're a lifesaver!! It worked like a charm. Thank you for your help.

TallyHo

You're welcome!