Microsoft Dynamics NAV 2009 does not use the bin with the highest bin ranking when some bins match the put-away template criteria

Installation information

Code changes

1. Change the code in the FindBin function in the Create Put-away Codeunit (7313) as follows:
   Existing code

   ...
   SETRANGE("Cross-Dock Bin",FALSE);
             IF PutAwayTemplLine."Find Empty Bin" THEN
               SETRANGE(Empty,TRUE);
             IF FIND('+') THEN BEGIN
   
   // Delete the following lines.
              IF NOT PutAwayTemplLine."Find Empty Bin" THEN
                EXIT(TRUE);
              REPEAT
                WhseActivLine.SETCURRENTKEY("Bin Code","Location Code","Action Type");
                WhseActivLine.SETRANGE("Bin Code",Code);
                WhseActivLine.SETRANGE("Location Code",LocationCode);
                WhseActivLine.SETRANGE("Action Type",WhseActivLine."Action Type"::Place);
                IF NOT WhseActivLine.FIND('-') THEN
                  EXIT(TRUE);
   // End of the deleted lines.
   
               UNTIL NEXT(-1) = 0;
             END;
           END;
           EXIT(FALSE)
   ...

   Replacement code

   ...
   SETRANGE("Cross-Dock Bin",FALSE);
             IF PutAwayTemplLine."Find Empty Bin" THEN
               SETRANGE(Empty,TRUE);
             IF FIND('+') THEN BEGIN
   
   // Add the following lines.
              IF NOT (PutAwayTemplLine."Find Empty Bin" OR PutAwayTemplLine."Find Floating Bin") THEN
                EXIT(TRUE);
              REPEAT
                IF PutAwayTemplLine."Find Empty Bin" THEN BEGIN
                  WhseActivLine.SETCURRENTKEY("Bin Code","Location Code","Action Type");
                  WhseActivLine.SETRANGE("Bin Code",Code);
                  WhseActivLine.SETRANGE("Location Code",LocationCode);
                  WhseActivLine.SETRANGE("Action Type",WhseActivLine."Action Type"::Place);
                  IF WhseActivLine.ISEMPTY THEN
                    IF NOT PutAwayTemplLine."Find Floating Bin" OR IsFloatingBin THEN
                      EXIT(TRUE);
                END ELSE // Find Floating Bin
                  IF IsFloatingBin THEN
                    EXIT(TRUE);
   // End of the added lines.
   
               UNTIL NEXT(-1) = 0;
             END;
           END;
           EXIT(FALSE)
   ...

2. Change the code in the SetCrossDockValues function in the Create Put-away Codeunit (7313) as follows:
   Existing code

   ...
   BEGIN
           CrossDock := NewCrossDock;
         END;
     
         BEGIN
         END.
       }
     }
   ...

   Replacement code

   ...
   BEGIN
           CrossDock := NewCrossDock;
         END;
   
   // Add the following lines.
     
        LOCAL PROCEDURE IsFloatingBin@23() : Boolean;
        BEGIN
          WITH BinContent DO BEGIN
            RESET;
            SETRANGE("Location Code",Bin."Location Code");
            SETRANGE("Zone Code",Bin."Zone Code");
            SETRANGE("Bin Code",Bin.Code);
            IF FINDSET THEN
              REPEAT
                IF Fixed OR Default THEN
                  EXIT(FALSE);
              UNTIL NEXT = 0;
            EXIT(TRUE);
          END;
        END;
   // End of the added lines.
    
         BEGIN
         END.
       }
     }
   ...

Prerequisites

• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• Microsoft Dynamics NAV 2009 R2

Removal information