Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.5K Microsoft Dynamics NAV
- 18.5K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 262 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 992 SQL General
- 385 SQL Performance
- 33 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 259 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
Options
How retrieving unique value from array in c/al?
mdsr
Member Posts: 163
I want only distinct values from array as repeat until gives multiple duplicate value in array what modification need here as LotNoVar is array of 10 index.
as follows:
RecILE.RESET;
RecILE.SETRANGE(RecILE."Item No.","Delivery Challan Line"."Item No.");
RecILE.SETRANGE(RecILE."Document No.","Delivery Challan Line"."Production Order No.");
IF RecItem.FINDFIRST THEN
BEGIN
REPEAT
LotNoVar:=RecILE."Lot No.";
MESSAGE(LotNoVar);
UNTIL RecILE.NEXT=0;
END;
as follows:
RecILE.RESET;
RecILE.SETRANGE(RecILE."Item No.","Delivery Challan Line"."Item No.");
RecILE.SETRANGE(RecILE."Document No.","Delivery Challan Line"."Production Order No.");
IF RecItem.FINDFIRST THEN
BEGIN
REPEAT
LotNoVar:=RecILE."Lot No.";
MESSAGE(LotNoVar);
UNTIL RecILE.NEXT=0;
END;
0
Best Answer
-
Options
Jan87
Member Posts: 26
You can sort by "Lot No." and then only write an entry when the value changes.
Would look like that:lastLotNo := ''; currIdx := 1; RecILE.RESET; RecILE.SETCURRENTKEY("Lot No."); RecILE.SETRANGE(RecILE."Item No.","Delivery Challan Line"."Item No."); RecILE.SETRANGE(RecILE."Document No.","Delivery Challan Line"."Production Order No."); IF RecItem.FINDSET(FALSE,FALSE) THEN BEGIN REPEAT IF lastLotNo <> RecILE."Lot No." THEN BEGIN LotNoVar[currIdx] := RecILE."Lot No."; lastLotNo := RecILE."Lot No."; currIdx += 1; END; UNTIL RecILE.NEXT=0; END;4
Answers
Would look like that:
lastLotNo := ''; currIdx := 1; RecILE.RESET; RecILE.SETCURRENTKEY("Lot No."); RecILE.SETRANGE(RecILE."Item No.","Delivery Challan Line"."Item No."); RecILE.SETRANGE(RecILE."Document No.","Delivery Challan Line"."Production Order No."); IF RecItem.FINDSET(FALSE,FALSE) THEN BEGIN REPEAT IF lastLotNo <> RecILE."Lot No." THEN BEGIN LotNoVar[currIdx] := RecILE."Lot No."; lastLotNo := RecILE."Lot No."; currIdx += 1; END; UNTIL RecILE.NEXT=0; END;