Inventory Pick trick

Shenpen
Member Posts: 386
Inventory Pick and Put-Away was really a big idea in 3.7: before that, the only way to have Bins was to implement full WMS which is really a complicated stuff. Inventory Picks are really simple and easy to use, suitable to many companies.
But there is problem: you cannot have a pickink route by bin rankings.
The trick is, that if you comment out some code in codeunit Create Inventory Pick then at least you can have a picking route by Bin Code sequences (alphanumerical or numerical), so you can set up Bin Codes to picking route order. Here it is:
Commented out lines from InsertPickLine:
SETCURRENTKEY(Default,"Location Code","Item No.","Variant Code","Bin Code");
//SETRANGE(Default,DefaultBin);
SETRANGE("Location Code",NewWhseActivLine."Location Code");
SETRANGE("Item No.",NewWhseActivLine."Item No.");
SETRANGE("Variant Code",NewWhseActivLine."Variant Code");
//IF BinCode <> '' THEN
//SETRANGE("Bin Code",BinCode);
Of course programing Bin Rankings here is a much nicer solution, but it is an easy one to do.
But there is problem: you cannot have a pickink route by bin rankings.
The trick is, that if you comment out some code in codeunit Create Inventory Pick then at least you can have a picking route by Bin Code sequences (alphanumerical or numerical), so you can set up Bin Codes to picking route order. Here it is:
Commented out lines from InsertPickLine:
SETCURRENTKEY(Default,"Location Code","Item No.","Variant Code","Bin Code");
//SETRANGE(Default,DefaultBin);
SETRANGE("Location Code",NewWhseActivLine."Location Code");
SETRANGE("Item No.",NewWhseActivLine."Item No.");
SETRANGE("Variant Code",NewWhseActivLine."Variant Code");
//IF BinCode <> '' THEN
//SETRANGE("Bin Code",BinCode);
Of course programing Bin Rankings here is a much nicer solution, but it is an easy one to do.
Do It Yourself is they key. Standard code might work - your code surely works.
0
Comments
-
SETCURRENTKEY(Default,"Location Code","Item No.","Variant Code","Bin Code"); //SETRANGE(Default,DefaultBin); SETRANGE("Location Code",NewWhseActivLine."Location Code"); SETRANGE("Item No.",NewWhseActivLine."Item No."); SETRANGE("Variant Code",NewWhseActivLine."Variant Code"); //IF BinCode <> '' THEN //SETRANGE("Bin Code",BinCode);
One small problem with this: it scans the whole table! This because the first field in the key (="Default") has no SETRANGE on it.
You should use or create another index to avoid that Navisions scans the whole table.
Something Like
[code]SETCURRENTKEY("Location Code","Item No.","Variant Code","Bin Code");Regards,Alain Krikilion
No PM,please use the forum. || May the <SOLVED>-attribute be in your title!0 -
Thank you... I am completely embarrassed...
Maybe I had a hangover or something
Do It Yourself is they key. Standard code might work - your code surely works.0
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions