You’re offline. This is a read only version of the page.
Hello,
I have been asked to create a matrix report with 'Description' & 'Quantity' fields. Those fields are existed & fetch data from two different tables named 'Item Journal Line' & 'Item Ledger Entry'.
For that I have declared two record variables(RecIJL, RecILE) & 'Description' & 'Quantity' variable . I have declared only one DataItem i.e. Production Entry Header. Then I took all required fields along with 'Description' & 'Quantity' variable.
Now I want when a user selects a 'Document No.' the report will shows all Description values as column header caption along with quantity as their body. But my code doesn't retrieve all the values except only the last one. I have written the following code:
Production Entry Header - OnAfterGetRecord()
RecIJL.RESET;
RecIJL.SETRANGE(RecIJL."Document No.","Production Entry Header"."Document No.");
RecIJL.SETFILTER(RecIJL."Item Type", '%1' ,RecIJL."Item Type"::Scrap);
CLEAR(Description);
Quantity:=0;
IF RecIJL.FINDFIRST THEN BEGIN REPEAT
Description:=RecIJL.Description;
Quantity:=RecIJL.Quantity;
UNTIL RecIJL.NEXT=0;
END Else
RecILE.RESET;
RecILE.SETRANGE(RecILE."Document No.","Production Entry Header"."Document No.");
RecILE.SETRANGE(RecILE."Item Type", RecILe."Item Type"::Scrap);
IF RecILE.FINDFIRST THEN BEGIN REPEAT
Description:=RecILE.Description;
Quantity:=RecILE.Quantity;
UNTIL RecIJL.NEXT=0;
END;
Can anyone help me?? Thanking You,
*This post is locked for comments
Hi Rajat,
Can you move these lines on top before RecIJL.RESET; and check?
CLEAR(Description);
Quantity:=0;
Thank You fr the reply Sir..but still it doesn't work..I can only get the last record..!
Hi,
In your ELSE code, after UNTIL you have coded as RecIJL.NEXT=0;, but it seems to be, you have to use RecILE.NEXT = 0;.
Please recheck the code.
Rectified code:
RecIJL.RESET;
RecIJL.SETRANGE(RecIJL."Document No.","Production Entry Header"."Document No.");
RecIJL.SETFILTER(RecIJL."Item Type", '%1' ,RecIJL."Item Type"::Scrap);
CLEAR(Description);
Quantity:=0;
IF RecIJL.FINDFIRST THEN
BEGIN
REPEAT
Description:=RecIJL.Description;
Quantity:=RecIJL.Quantity;
UNTIL RecIJL.NEXT=0;
END ELSE
RecILE.RESET;
RecILE.SETRANGE(RecILE."Document No.","Production Entry Header"."Document No.");
RecILE.SETRANGE(RecILE."Item Type", RecILe."Item Type"::Scrap);
IF RecILE.FINDFIRST THEN
BEGIN
REPEAT
Description:=RecILE.Description;
Quantity:=RecILE.Quantity;
UNTIL RecILE.NEXT=0;
END;
Hope it helps.
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,240
Super User 2024 Season 2
#2
Martin Dráb
230,149
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (