Movimentos de armazém não são actualizados com todas as linhas de rastreio de um diário de projecto quando regista um item no diário de projecto a uma posição no Microsoft Dynamics NAV 2009

Aplica-se a: Dynamics NAV 2009

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

Sintomas


Suponha que tem um diário de projecto que tenha mais do que um produto a linhas de rastreio de um item no Microsoft Dynamics NAV 2009. Quando registar o produto no diário de projecto a uma posição, os movimentos de armazém só são actualizados com o último linha que é introduzida de rastreio de produto. Por conseguinte, existe um desequilíbrio para o produto entre o armazém e a contabilidade de produto.
Este problema ocorre nos seguintes produtos:
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

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 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: criar as seguintes variáveis locais:
  1. Adicionar uma nova variável global na tabela Linha de diário de projecto (210) e, em seguida, especifique a variável da seguinte forma:
    • Nome: WMSManagement
    • Tipo de dados: Codeunit
    • Subtipo: Gestão WMS (7302)
  2. Eliminar o seguinte código na propriedade TableRelation do Código de posição de campo (5403) na tabela Linha de diário de projecto (210):
    Bin.Code WHERE (Location Code=FIELD(Location Code));
  3. Alterar o código no activador OnValidate para código de posição de campo (5403) na tabela Linha de diário de projecto (210) os seguintes:
    Código existente
    ...// Delete the following lines.
    TESTFIELD("Location Code");
    CheckItemAvailable;
    // End of the lines.
    ...
    Código de substituição
    ...// Add the following lines.
    TESTFIELD("Location Code");
    IF "Bin Code" <> '' THEN BEGIN
    GetLocation("Location Code");
    Location.TESTFIELD("Bin Mandatory");
    END;
    TESTFIELD(Type,Type::Item);
    CheckItemAvailable;
    WMSManagement.FindBinContent("Location Code","Bin Code","No.","Variant Code",'')
    // End of the lines.
    ...
  4. Adicionar uma nova variável de local em que o Código de posição - OnLookup triggerin da tabela Linha de diário de projecto (210) e, em seguida, especifique a variável da seguinte forma:
    • Nome: BinCode
    • Tipo de dados: código
    • Comprimento: 20
  5. Adicione o seguinte código do accionador de OnLookup do Código de posição - na tabela Linha de diário de projecto (210):
    TESTFIELD("Location Code");TESTFIELD(Type,Type::Item);
    BinCode := WMSManagement.BinContentLookUp("Location Code","No.","Variant Code",'',"Bin Code");
    IF BinCode <> '' THEN
    VALIDATE("Bin Code",BinCode);
  6. Altere o valor da propriedade OptionString do campo Documento de origem (25) na tabela Linha de diário de armazém (7311) para o seguinte:
    OptionString=, S. encomenda, S. factura, nota de crédito de S., devolução de S., P. encomenda, factura, nota de crédito de P., devolução, Reclass. Transferência, Outb. Transferência, Ordem Prod. O consumo, Item Conf., INV. físico Conf., Transf. Conf., consumo diário., Conf., Conf., L.M., Serv ordem de saída, diário de projecto.
  7. Altere o valor da propriedade OptionString do campo Documento de referência (60) na tabela Linha de diário de armazém (7311) para o seguinte:
    OptionString= , registado Rcpt., registado Fact P., registada env.., P. n, envio registado, registada a factura de S., Env., envio S. crédito, recepção, Envio Reg. T., Item Diário Prod., Doc. Arrumar, recolha, movimento, diário L.M., diário de projecto
  8. Altere o valor da propriedade OptionString do campo documento de origem (25) da tabela de movimentos de armazém (7312) para o seguinte:
    OptionString=, S. encomenda, S. factura, nota de crédito de S., devolução de S., P. encomenda, factura, nota de crédito de P., devolução, Reclass. Transferência, Outb. Transferência, Ordem Prod. O consumo, Item Conf., INV. físico Conf., Transf. Conf., consumo diário., saída Conf., Conf., L.M., Ordem Serv., diário de projecto.
  9. Altere o valor da propriedade OptionString do campo documento de referência (60) da tabela de movimentos de armazém (7312) para o seguinte:
    OptionString= , registado Rcpt., registado Fact P., registada env.., P. n, envio registado, registada a factura de S., Env., envio S. crédito, recepção, Envio Reg. T., Item Diário Prod., Doc. Arrumar, recolha, movimento, diário L.M., diário de projecto
  10. Altere a propriedade Visible do controlo de código de localização (60) sob a forma de diário de projecto (201) do seguinte modo:
    Código existente
    Visible = Yes
    Código de substituição
    Visible = No
  11. Adicione o campo de Código de posição entre o campo de Código de localização e o campo de Código de tipo de trabalho sob a forma de diário de projecto (201) e, em seguida, especifique o campo como a seguir:
    ...{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
    InColumnHeading=Yes }

    // Add the following lines.
    { 102 ;TextBox ;35507;1650 ;1700 ;440 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Bin Code" }
    { 103 ;Label ;0 ;0 ;0 ;0 ;ParentControl=102;
    InColumnHeading=Yes }
    // End of the lines.

    { 48 ;TextBox ;11430;2530 ;1650 ;440 ;ParentControl=1;
    ...
  12. Adicionar uma nova variável global do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
    • Nome: localização
    • Tipo de dados: registo
    • Subtipo: localização (14)
  13. Criar uma nova função de GetLocation do diário de projecto.-linha colocar codeunit (1012) da seguinte forma:
    LOCAL PROCEDURE GetLocation@25(LocationCode@1000 : Code[10]);
  14. Adicione o seguinte código na função GetLocation do diário de projecto.-linha colocar codeunit (1012):
    IF LocationCode = '' THENCLEAR(Location)
    ELSE
    IF Location.Code <> LocationCode THEN
    Location.GET(LocationCode);
  15. Criar uma nova função de PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) da seguinte forma:
    LOCAL PROCEDURE PostWhseJnlLine@24(ItemJnlLine@1000 : Record 83;OriginalQuantity@1001 : Decimal;OriginalQuantityBase@1002 : Decimal;VAR TempTrackingSpecification@1003 : TEMPORARY Record 336);
  16. Criar as seguintes variáveis locais na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012):
    1. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
      • Nome: WarehouseJournalLine
      • Tipo de dados: registo
      • Subtipo: linha de diário de armazém (7311)
    2. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
      • Nome: TempWarehouseJournalLine
      • Tipo de dados: registo temporário
      • Subtipo: linha de diário de armazém (7311)
    3. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
      • Nome: ItemTrackingManagement
      • Tipo de dados: Codeunit
      • Subtipo: Gestão de rastreio de produto (6500)
    4. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
      • Nome: WMSManagement
      • Tipo de dados: Codeunit
      • Subtipo: Gestão WMS (7302)
    5. Adicionar uma variável local na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
      • Nome: WhseJnlRegisterLine
      • Tipo de dados: Codeunit
      • Subtipo: Arm. Diário-registar a linha (7301)
  17. Adicione o seguinte código na função PostWhseJnlLine do diário de projecto.-linha colocar codeunit (1012) da seguinte forma:
    WITH ItemJnlLine DO BEGINIF "Entry Type" IN ["Entry Type"::Consumption,"Entry Type"::Output] THEN
    EXIT;
    Quantity := OriginalQuantity;
    "Quantity (Base)" := OriginalQuantityBase;
    GetLocation("Location Code");
    IF Location."Bin Mandatory" THEN
    IF WMSManagement.CreateWhseJnlLine(ItemJnlLine,0,WarehouseJournalLine,FALSE,FALSE) THEN BEGIN
    TempTrackingSpecification.MODIFYALL("Source Type",DATABASE::"Job Journal Line");
    ItemTrackingManagement.SplitWhseJnlLine(WarehouseJournalLine,TempWarehouseJournalLine,TempTrackingSpecification,FALSE);
    IF TempWarehouseJournalLine.FIND('-') THEN
    REPEAT
    WMSManagement.CheckWhseJnlLine(TempWarehouseJournalLine,1,0,FALSE);
    WhseJnlRegisterLine.RUN(TempWarehouseJournalLine);
    UNTIL TempWarehouseJournalLine.NEXT = 0;
    END;
    END;
  18. Adicionar uma nova variável local na função de código do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
    • Nome: TempTrackingSpecification
    • Tipo de dados: registo temporário
    • Subtipo: Especificação Rastreio (336)
  19. Adicionar uma nova variável local na função de código do diário de projecto.-linha colocar codeunit (1012) e, em seguida, especifique a variável da seguinte forma:
    • Nome: ItemJnlLine2
    • Tipo de dados: registo
    • Subtipo: linha de diário de produto (83)
  20. Alterar o código na função de código do diário de projecto.-linha colocar codeunit (1012) os seguintes:
    Código existente 1
    ...ItemJnlLine.INIT;
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...

    Código de substituição 1
    ...ItemJnlLine.INIT;

    // Add the following line.
    ItemJnlLine."Line No." := "Line No.";

    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    Código existente 2
    ...ItemLedgEntry.LOCKTABLE;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    END;
    ...
    Código de substituição 2
    ...ItemLedgEntry.LOCKTABLE;

    // Add the following line.
    ItemJnlLine2 := ItemJnlLine;

    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);

    // Add the following lines.
    ItemJnlPostLine.CollectTrackingSpecification(TempTrackingSpecification);
    PostWhseJnlLine(ItemJnlLine2,ItemJnlLine2.Quantity,ItemJnlLine2."Quantity (Base)",TempTrackingSpecification);
    // End of the lines.
    ...
  21. Altere o valor na propriedade OptionString do parâmetro de documento de referência na função GetSourceDocument no armazém. Codeunit Management (5775) à seguinte:
    OptionString=, S. encomenda, S. factura, nota de crédito de S., devolução de S., P. encomenda, factura, nota de crédito de P., devolução, Reclass. Transferência, Outb. Transferência, Ordem Prod. O consumo, Item Conf., INV. físico Conf., Transf. Conf., consumo diário., saída Conf., Conf., L.M., Ordem Serv., diário de projecto.
  22. Altere o código na função GetSourceDocument no armazém. Codeunit Management (5775) os seguintes:
    Código existente
    ...EXIT;
    END;
    END;
    ERROR(Text000);
    ...
    Código de substituição
    ...EXIT;
    END;

    // Add the following lines.
    DATABASE::"Job Journal Line":
    BEGIN
    SourceDocument := SourceDocument::"Job Jnl.";
    EXIT;
    END;
    // End of the lines.

    END;
    ERROR(Text000);
    ...
  23. Altere o código na função CreateWhseJnlLine na codeunit gestão WMS (7302), tal como a seguir:
    Código existente
    ...WhseJnlLine."Source Line No." := "Line No.";
    END;
    WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";

    // Delete the following line.
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal";

    WhseJnlLine."Reference No." := "Document No.";
    ...
    Código de substituição
    ...WhseJnlLine."Source Line No." := "Line No.";

    // Add the following lines.
    END ELSE
    IF "Job No." <> '' THEN BEGIN
    WhseJnlLine."Source Type" := DATABASE::"Job Journal Line";
    WhseJnlLine."Source Subtype" := ItemJnlTemplateType;
    WhseMgt.GetSourceDocument(WhseJnlLine."Source Document",WhseJnlLine."Source Type",WhseJnlLine."Source Subtype");
    WhseJnlLine."Source No." := "Document No.";
    WhseJnlLine."Source Line No." := "Line No.";
    // End of the lines.
    END;WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";

    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.

    WhseJnlLine."Reference No." := "Document No.";
    ...ine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";

    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.

    WhseJnlLine."Reference No." := "Document No.";
    ...

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 (SP1)

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 .