Este artigo aplica-se para o Microsoft Dynamics NAV para todos os países e todos os idiomas.

Sintomas

Pode criar uma arrumação de armazém interna de um item utilizando uma quantidade incorrecta que não está disponível no Microsoft Dynamics NAV. Este problema ocorre nos seguintes produtos:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1


Resolução

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.



Informações de instalação

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:

  • A permissão Modificar para o objecto que estará a alterar.

  • A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .



Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

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. Alterar o código da secção de campos de "ajuste. Tabela de linha de documento de arrumação interna"(7332) da seguinte forma:
    Código existente 1

    ...CALCFIELDS("Put-away Qty.");
    IF Quantity < "Qty. Put Away" + "Put-away Qty." THEN
    FIELDERROR(Quantity,STRSUBSTNO(Text001,"Qty. Put Away" + "Put-away Qty."));

    // Delete the following lines.
    IF CurrFieldNo = FIELDNO(Quantity) THEN
    CheckBinContentQty;
    VALIDATE("Qty. Outstanding",(Quantity - "Qty. Put Away"));
    "Qty. (Base)" := CalcBaseQty(Quantity);
    Status := CalcStatusPutAwayLine;
    // End of the lines.

    IF Status <> xRec.Status THEN BEGIN
    GetInternalPutAwayHeader("No.");
    DocStatus := WhseInternalPutAwayHeader.GetDocumentStatus(0);
    ...

    Código de substituição 1

    ...CALCFIELDS("Put-away Qty.");
    IF Quantity < "Qty. Put Away" + "Put-away Qty." THEN
    FIELDERROR(Quantity,STRSUBSTNO(Text001,"Qty. Put Away" + "Put-away Qty."));

    // Add the following lines.
    "Qty. (Base)" := CalcBaseQty(Quantity);
    IF CurrFieldNo = FIELDNO(Quantity) THEN
    CheckBinContentQty;
    VALIDATE("Qty. Outstanding",(Quantity - "Qty. Put Away"));
    Status := CalcStatusPutAwayLine;
    // End of the lines.

    IF Status <> xRec.Status THEN BEGIN
    GetInternalPutAwayHeader("No.");
    DocStatus := WhseInternalPutAwayHeader.GetDocumentStatus(0);
    ...

    Código existente 2

    ...OnLookup=BEGIN
    SelectLookUp(FIELDNO("Unit of Measure Code"));
    END;

    // Delete the following line.
    }

    { 30 ; ;Qty. per Unit of Measure;Decimal ;InitValue=1;
    DecimalPlaces=0:5;
    Editable=No }
    { 31 ; ;Variant Code ;Code10 ;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Item No.));
    ...

    Código de substituição 2

    ...OnLookup=BEGIN
    SelectLookUp(FIELDNO("Unit of Measure Code"));
    END;

    // Add the following line.
    Editable=No }

    { 30 ; ;Qty. per Unit of Measure;Decimal ;InitValue=1;
    DecimalPlaces=0:5;
    Editable=No }
    { 31 ; ;Variant Code ;Code10 ;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Item No.));
    ...
  2. Alterar o código na função CheckCurrentLineQty de "ajuste. Tabela de linha de documento de arrumação interna"(7332) da seguinte forma:
    Código existente

    ...WhseItemTrackingForm.SetSource(TempWhseWorksheetLine,DATABASE::"Whse. Internal Put-away Line");
    WhseItemTrackingForm.InsertItemTrackingLine(TempWhseWorksheetLine,SerialNo,LotNo,ExpirationDate,QtyToEmpty);
    END;
    BEGIN
    END.
    }
    }
    ...

    Código de substituição

    ...WhseItemTrackingForm.SetSource(TempWhseWorksheetLine,DATABASE::"Whse. Internal Put-away Line");
    WhseItemTrackingForm.InsertItemTrackingLine(TempWhseWorksheetLine,SerialNo,LotNo,ExpirationDate,QtyToEmpty);
    END;

    // Add the following lines.
    PROCEDURE CheckCurrentLineQty@25();
    VAR
    BinContent@1000 : Record 7302;
    AvailQtyBase@1001 : Decimal;
    BEGIN
    GetLocation("Location Code");
    IF Location."Bin Mandatory" AND
    ("Location Code" <> '') AND ("From Bin Code" <> '') AND
    ("Item No." <> '') AND ("Unit of Measure Code" <> '')
    THEN BEGIN
    IF Location."Directed Put-away and Pick" THEN
    CheckBlocking(BinContent);
    AvailQtyBase := BinContent.CalcQtyAvailToPick(0);
    IF AvailQtyBase < "Qty. (Base)" THEN
    FIELDERROR(
    "Qty. (Base)",
    STRSUBSTNO(Text002,AvailQtyBase));
    END;
    END;
    // End of the lines.

    BEGIN
    END.
    }
    }
    ...
  3. Alterar o código do 5 de número de Item de dados na "Arm.-origem - criar documento" report (7305) do seguinte modo:
    Código existente

    ...BinContent."Block Movement"::Outbound,BinContent."Block Movement"::All]
    THEN
    BinContent.FIELDERROR("Block Movement");
    END;
    WhseWkshLine.SETRANGE("Whse. Document Line No.","Line No.");
    IF NOT WhseWkshLine.FIND('-') THEN BEGIN
    TESTFIELD("Qty. per Unit of Measure");
    ...

    Código de substituição

    ...BinContent."Block Movement"::Outbound,BinContent."Block Movement"::All]
    THEN
    BinContent.FIELDERROR("Block Movement");
    END;

    // Add the following line.
    CheckCurrentLineQty;

    WhseWkshLine.SETRANGE("Whse. Document Line No.","Line No.");
    IF NOT WhseWkshLine.FIND('-') THEN BEGIN
    TESTFIELD("Qty. per Unit of Measure");
    ...


Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

Informações de remoção

Não é possível remover esta correcção.

Estado

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".

Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .

Precisa de mais ajuda?

Aumente os seus conhecimentos
Explore as formações
Seja o primeiro a obter novas funcionalidades
Aderir ao Microsoft insiders

As informações foram úteis?

Quão satisfeito está com a qualidade da tradução?
O que afetou a sua experiência?

Obrigado pelos seus comentários!

×