Microsoft Dynamics NAV 2009 não utiliza a posição com a posição mais alta classificação quando algumas posições correspondem aos critérios Modelo Arrumar

Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:

1. Altere o código na função FindBin na Codeunit Criar Arrumar (7313) do seguinte modo:
   Código existente

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

   Código de substituição

   ...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. Altere o código na função SetCrossDockValues na Codeunit Criar Arrumar (7313) do seguinte modo:
   Código existente

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

   Código de substituição

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