Microsoft Dynamics NAV (Archived)

SetFilter function is not working correctly in below code

(0) Share

Report

Posted on by Community Member

Dear All,
Below code is written for checking whether any excess consumption is existing or not.

Code which is shown as bold is not working successfully.Any mistake in that code.If yes, plz help me to correct it.

Hopefully waiting for support.

Thanks & Regards,

Team.

RecWOLines.SETRANGE(RecWOLines.Status,RecProdOrder.Status);
RecWOLines.SETRANGE(RecWOLines."Prod. Order No.",RecProdOrder."No.");
IF RecWOLines.FIND('-') THEN
    RemQty := RecWOLines."Remaining Qty. (Base)";

RecWoComponents.RESET;
RecWoComponents.SETCURRENTKEY(RecWoComponents.Status,RecWoComponents."Prod. Order No.",
RecWoComponents."Prod. Order Line No.", RecWoComponents."Line No.");
RecWoComponents.SETRANGE(RecWoComponents.Status,RecProdOrder.Status);
RecWoComponents.SETRANGE(RecWoComponents."Prod. Order No.",RecProdOrder."No.");
RecWoComponents.SETFILTER(RecWoComponents."Quantity per",'<>%1',0);
IF RecWoComponents.FINDSET THEN
RecWoComponents.SETFILTER(RecWoComponents."Remaining Qty. (Base)",'>%1',
                                                                                (RecWoComponents."Quantity per"*RemQty));

//the above code is not working .

test1 := RecWoComponents.COUNT;
IF (RecWoComponents.COUNT > 0) THEN 
IF RecWoComponents.FINDFIRST THEN
BEGIN
IF CONFIRM(Text018) THEN
frmRel_prodOrd.show_retn_comp(RecProdOrder."No.");//codeunit calling for displaying  excess material
END;

*This post is locked for comments

I have the same question (0)

All responses (7)

Answers (0)

Suggested answer

Mohana Yadav 61,005 Super User 2025 Season 2 on at

Like (0)

Report

I didnt understand why did you add SETFILTER code below FINDSET and there is no FINDSET after the SETFILTER.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

I added findset because after doing Setfilter if we are checking the count it is not coming as nil though no lines existing.

That is why i added 'RecWoComponents.COUNT' .

Plz help .

Was this reply helpful? Yes No
Suggested answer

Mohana Yadav 61,005 Super User 2025 Season 2 on at

Like (0)

Report

It means there is no record with those filters before findset.

1.can you comment the bold code and check whether it is working?

2. Add a variable and calculate RecWoComponents."Quantity per"*RemQty before and check whether you have right value.

Was this reply helpful? Yes No
Suggested answer

Suresh Kulla 50,245 Super User 2025 Season 2 on at

Like (0)

Report

You don't need FINDSET to get the count and in the SETFILTER you cannot usse RecWoComponents. Quantity Per

Try below code

RecWOLines.SETRANGE(RecWOLines.Status,RecProdOrder.Status);

RecWOLines.SETRANGE(RecWOLines."Prod. Order No.",RecProdOrder."No.");

IF RecWOLines.FIND('-') THEN

RemQty := RecWOLines."Remaining Qty. (Base)";

RecWoComponents.RESET;

RecWoComponents.SETCURRENTKEY(RecWoComponents.Status,RecWoComponents."Prod. Order No.",

RecWoComponents."Prod. Order Line No.", RecWoComponents."Line No.");

RecWoComponents.SETRANGE(RecWoComponents.Status,RecProdOrder.Status);

RecWoComponents.SETRANGE(RecWoComponents."Prod. Order No.",RecProdOrder."No.");

RecWoComponents.SETFILTER(RecWoComponents."Quantity per",'<>%1',0);

RecWoComponents.SETFILTER(RecWoComponents."Remaining Qty. (Base)",'>%1',

(1*RemQty));

//the above code is not working .

test1 := RecWoComponents.COUNT;

IF (RecWoComponents.COUNT > 0) THEN

IF RecWoComponents.FINDFIRST THEN

BEGIN

IF CONFIRM(Text018) THEN

frmRel_prodOrd.show_retn_comp(RecProdOrder."No.");//codeunit calling for displaying excess material

END;

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

I applied the above code and now also not working.

Plz help.

Was this reply helpful? Yes No
Suggested answer

Rajasekhar@MS 5,569 on at

Like (0)

Report

Hi

Instead of applying Set filter, check the condition using if, after you find the RecWoComponents like below.

RecWoComponents.RESET;

RecWoComponents.SETCURRENTKEY(RecWoComponents.Status,RecWoComponents."Prod. Order No.",

RecWoComponents."Prod. Order Line No.", RecWoComponents."Line No.");

RecWoComponents.SETRANGE(RecWoComponents.Status,RecProdOrder.Status);

RecWoComponents.SETRANGE(RecWoComponents."Prod. Order No.",RecProdOrder."No.");

RecWoComponents.SETFILTER(RecWoComponents."Quantity per",'<>%1',0);

IF RecWoComponents.FINDSET THEN Repeat

IF RecWoComponents."Remaining Qty. (Base)" > (RecWoComponents."Quantityper"*RemQty) THEN

// call cu;

until RecWoComponents.next = 0;

Was this reply helpful? Yes No
Suggested answer

Yogesh Kulkarni_ 1,762 on at

Like (0)

Report

Try Below Code:

RecWOLines.SETRANGE(RecWOLines.Status,RecProdOrder.Status);

RecWOLines.SETRANGE(RecWOLines."Prod. Order No.",RecProdOrder."No.");

IF RecWOLines.FIND('-') THEN

RemQty := RecWOLines."Remaining Qty. (Base)";

IF (RemQty > 0) THEN BEGIN

RecWoComponents.RESET;

RecWoComponents.SETCURRENTKEY(RecWoComponents.Status,RecWoComponents."Prod. Order No.",

RecWoComponents."Prod. Order Line No.", RecWoComponents."Line No.");

RecWoComponents.SETRANGE(RecWoComponents.Status,RecProdOrder.Status);

RecWoComponents.SETRANGE(RecWoComponents."Prod. Order No.",RecProdOrder."No.");

RecWoComponents.SETFILTER(RecWoComponents."Quantity per",'<>%1',0);

RecWoComponents.SETFILTER(RecWoComponents."Remaining Qty. (Base)",'>%1',

(RecWoComponents."Quantity per"*RemQty));

IF (RecWoComponents.COUNT > 0) THEN

IF RecWoComponents.FINDFIRST THEN

BEGIN

IF CONFIRM(Text018) THEN

//Call your codeunit

END;

END;

Regards,

Yogesh Kulkarni

Please verify the answer, if it helps to resolve your issue.

Was this reply helpful? Yes No