Microsoft Dynamics NAV 2009 не използва СК с най-СК при някои еднакви критерии за шаблона

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, който ще съдържа тази корекция.

Забележка: При специални случаи таксите, които се начисляват за свързани с поддръжката обаждания могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързани с тях продукти определя, че конкретна актуализация може да разреши проблема. Обичайните такси за поддръжката ще важат за допълнителни въпроси и проблеми, които не спадат към съответната актуализация.

Промени код

Забележка: Винаги тест код решава в управлявана среда преди да приложите корекциите производство компютри.
За да разрешите този проблем, изпълнете следните стъпки:

1. Променете кода в FindBin функция в създаване на складиране кодова единица (7313) както следва:
   Съществуващ код

   ...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)
   ...
   

   Замени код

   ...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. Променете кода в SetCrossDockValues функция в създаване на складиране кодова единица (7313) както следва:
   Съществуващ код

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

   Замени код

   ...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.
       }
     }
   ...