Os valores nos campos Valor do Custo (Esperado)(ACY) e Valor do Custo (Real)(ACY) estão incorretos depois de um envio anular ser publicado no Microsoft Dynamics NAV

Aplica-se A
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Este artigo aplica-se ao Microsoft Dynamics NAV para todas as regiões de idioma.

Sintomas

Suponha que definiu uma Moeda de Relatório Adicional na Configuração Geral do Ledger na Gestão Financeira no Microsoft Dynamics NAV. Depois de publicar um envio anulado, irá reparar que os valores nos campos Valor do Custo (Esperado)(ACY) e Valor do Custo (Real)(ACY) estão incorretos nas Entradas de Valor de Inventário/Entradas do Item Ledger.
Este problema ocorre nos seguintes produtos:

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

Resolução

Informações de correção

Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV 2009 ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.

Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico para o Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolver o problema. Os custos de suporte habituais serão aplicados a questões e problemas de suporte adicionais que não se qualificam para a atualização específica em questão.

            
          

Informações de instalação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita às garantias implícitas de comercialização ou adequação a um fim específico. Este artigo parte do princípio de que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou criar procedimentos para satisfazer os seus requisitos específicos.

Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.

Para implementar esta correção, tem de ter uma licença de programador.

Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:

  • A permissão Modificar para o objeto que irá alterar.
  • A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.

                
Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.

Alterações de código

Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver este problema, siga estes passos:
Nota Uma vez que o código é diferente para a versão mundial e para a versão norte-americana, ambos os registos de alterações estão listados no cabeçalho específico da versão mundial ou da versão norte-americana.

  1. Altere o código na função InsertValueEntry na codeunit Item Jnl.-Post Line (22) da seguinte forma:
    Para a versão mundial do Microsoft Dynamics NAV 5.0 SP1, Microsoft Dynamics NAV 2009, Microsoft Dynamics NAV 2009 SP1 e Microsoft Dynamics NAV 2009 R2
    Código existente

    ...
         ELSE
        InvoicedQty := ValueEntry."Valued Quantity";
    END ELSE
      InvoicedQty := ValueEntry."Invoiced Quantity";
    CalcExpectedCost(
      ItemLedgEntry."Entry No.",
      InvoicedQty,
      ItemLedgEntry.Quantity,
      ValueEntry."Cost Amount (Expected)",
      ValueEntry."Cost Amount (Expected) (ACY)",
      ValueEntry."Sales Amount (Expected)",
      ValueEntry."Purchase Amount (Expected)",
      ItemLedgEntry.Quantity = ItemLedgEntry."Invoiced Quantity");
// Delete the following lines.
    IF (InvdValueEntry."Cost Amount (Expected)" <>0) AND (ValueEntry."Cost Amount (Expected)" <> 0) THEN
      ValueEntry."Cost Amount (Expected)" :=
       ValueEntry."Cost Amount (Expected)" - InvdValueEntry."Cost Amount (Expected)";
    IF (InvdValueEntry."Cost Amount (Expected) (ACY)" <> 0) AND (ValueEntry."Cost Amount (Expected) (ACY)"<>0) THEN
      ValueEntry."Cost Amount (Expected) (ACY)" :=
        ValueEntry."Cost Amount (Expected) (ACY)" - InvdValueEntry."Cost Amount (Expected) (ACY)";
// End of the deleted lines.
  END;

  IF ValueEntry.Inventoriable THEN
    PostInventoryToGL(ValueEntry);
  IF  ItemLedgEntry."Job No." <> '' THEN BEGIN
...

    Código de substituição

    ...
       ELSE
        InvoicedQty := ValueEntry."Valued Quantity";
    END ELSE
      InvoicedQty := ValueEntry."Invoiced Quantity";
    CalcExpectedCost(

// Add the following line.
      ValueEntry,
// End of the added line.

      ItemLedgEntry."Entry No.",
      InvoicedQty,
      ItemLedgEntry.Quantity,
      ValueEntry."Cost Amount (Expected)",
      ValueEntry."Cost Amount (Expected) (ACY)",
      ValueEntry."Sales Amount (Expected)",
      ValueEntry."Purchase Amount (Expected)",
      ItemLedgEntry.Quantity = ItemLedgEntry."Invoiced Quantity");
  END;

  IF ValueEntry.Inventoriable THEN
    PostInventoryToGL(ValueEntry);
  IF  ItemLedgEntry."Job No." <> '' THEN BEGIN
...

    Para a versão norte-americana do Microsoft Dynamics NAV 5.0 SP1, Microsoft Dynamics NAV 2009, Microsoft Dynamics NAV 2009 SP1 e Microsoft Dynamics NAV 2009 R2
    Código existente

    ...
      ELSE
        InvoicedQty := ValueEntry."Valued Quantity";
    END ELSE
      InvoicedQty := ValueEntry."Invoiced Quantity";
    IF NOT Kitting THEN BEGIN
      CalcExpectedCost(
        ItemLedgEntry."Entry No.",
        InvoicedQty,
        ItemLedgEntry.Quantity,
        ValueEntry."Cost Amount (Expected)",
        ValueEntry."Cost Amount (Expected) (ACY)",
        ValueEntry."Sales Amount (Expected)",
        ValueEntry."Purchase Amount (Expected)",
        ItemLedgEntry.Quantity = ItemLedgEntry."Invoiced Quantity");

// Delete the following lines.
      IF (InvdValueEntry."Cost Amount (Expected)" <>0) AND (ValueEntry."Cost Amount (Expected)" <>0) THEN
        ValueEntry."Cost Amount (Expected)" :=
         ValueEntry."Cost Amount (Expected)" - InvdValueEntry."Cost Amount (Expected)";
      IF (InvdValueEntry."Cost Amount (Expected) (ACY)" <> 0) AND (ValueEntry."Cost Amount (Expected) (ACY)" <> 0) THEN
        ValueEntry."Cost Amount (Expected) (ACY)" :=
          ValueEntry."Cost Amount (Expected) (ACY)" - InvdValueEntry."Cost Amount (Expected) (ACY)";
// End of the deleted lines.

    END;
  END;

  IF ValueEntry.Inventoriable THEN
    PostInventoryToGL(ValueEntry);
  IF  ItemLedgEntry."Job No." <>'' THEN BEGIN  
...

    Código de substituição

    ...
      ELSE
        InvoicedQty := ValueEntry."Valued Quantity";
    END ELSE
      InvoicedQty := ValueEntry."Invoiced Quantity";
    IF NOT Kitting THEN BEGIN
      CalcExpectedCost(
// Add the following line.
        ValueEntry,
// End of the added line.

        ItemLedgEntry."Entry No.",
        InvoicedQty,
        ItemLedgEntry.Quantity,
        ValueEntry."Cost Amount (Expected)",
        ValueEntry."Cost Amount (Expected) (ACY)",
        ValueEntry."Sales Amount (Expected)",
        ValueEntry."Purchase Amount (Expected)",
        ItemLedgEntry.Quantity = ItemLedgEntry."Invoiced Quantity");
    END;
  END;

  IF ValueEntry.Inventoriable THEN
    PostInventoryToGL(ValueEntry);
  IF  ItemLedgEntry."Job No."<>'' THEN BEGIN
...

  2. Altere o código na função CalcExpectedCost na codeunit Item Jnl.-Post Line (22) da seguinte forma:
    Para a versão mundial e a versão norte-americana do Microsoft Dynamics NAV 5.0 SP1, Microsoft Dynamics NAV 2009, Microsoft Dynamics NAV 2009 SP1 e Microsoft Dynamics NAV 2009 R2
    Código existente 1

    ...
       LOCAL PROCEDURE CalcExpectedCost@60(ItemLedgEntryNo@1003 : Integer;InvoicedQty@1006 : Decimal;Quantity@1005 : Decimal;VAR ExpectedCost@1001 : Decimal;VAR ExpectedCostACY@1002 : Decimal;VAR ExpectedSalesAmt@1007 : Decimal;VAR ExpectedPurchAmt@1008 : Decimal;CalcReminder@1004 : Boolean);  
...

    Código de substituição 1

    ...
      LOCAL PROCEDURE CalcExpectedCost@60(VAR InvdValueEntry@1009 : Record 5802;ItemLedgEntryNo@1003 : Integer;InvoicedQty@1006 : Decimal;Quantity@1005 : Decimal;VAR ExpectedCost@1001 : Decimal;VAR ExpectedCostACY@1002 : Decimal;VAR ExpectedSalesAmt@1007 : Decimal;VAR ExpectedPurchAmt@1008 : Decimal;CalcReminder@1004 : Boolean);
...

    Código existente 2 para Microsoft Dynamics NAV 5.0 SP1 e Microsoft Dynamics NAV 2009

    ...
          "Sales Amount (Expected)","Purchase Amount (Expected)");
      ExpectedCost :=  -"Cost Amount (Expected)";
      ExpectedCostACY := -"Cost Amount (Expected) (ACY)";
      ExpectedSalesAmt := -"Sales Amount (Expected)";
      ExpectedPurchAmt := -"Purchase Amount (Expected)";
    END ELSE BEGIN
      REPEAT
        IF "Expected Cost" THEN BEGIN
          ExpectedCost := ExpectedCost + "Cost Amount (Expected)";
          ExpectedCostACY := ExpectedCostACY + "Cost Amount (Expected) (ACY)"         
...

    Código de substituição 2 para Microsoft Dynamics NAV 5.0 SP1 e Microsoft Dynamics NAV 2009

    ...
            "Sales Amount (Expected)","Purchase Amount (Expected)");
      ExpectedCost :=  -"Cost Amount (Expected)";
      ExpectedCostACY := -"Cost Amount (Expected) (ACY)";
      ExpectedSalesAmt := -"Sales Amount (Expected)";
      ExpectedPurchAmt := -"Purchase Amount (Expected)";

// Add the following lines.
    END ELSE
      IF InvdValueEntry.Adjustment AND
         (InvdValueEntry."Entry Type" = InvdValueEntry."Entry Type"::"Direct Cost")
      THEN BEGIN
        ExpectedCost := -InvdValueEntry."Cost Amount (Actual)";
        ExpectedCostACY := -InvdValueEntry."Cost Amount (Actual) (ACY)";
        IF NOT CalledFromAdjustment THEN BEGIN
          ExpectedSalesAmt := -InvdValueEntry."Sales Amount (Actual)";
          ExpectedPurchAmt := -InvdValueEntry."Purchase Amount (Actual)";
        END
// End of the added lines.

    END ELSE BEGIN
      REPEAT
        IF "Expected Cost" THEN BEGIN
          ExpectedCost := ExpectedCost + "Cost Amount (Expected)";
          ExpectedCostACY := ExpectedCostACY + "Cost Amount (Expected) (ACY)";
...

    Código existente 3 para Microsoft Dynamics NAV 2009 SP1 e Microsoft Dynamics NAV 2009 R2

    …
IF FINDSET AND "Expected Cost" THEN
  IF CalcReminder THEN BEGIN
    CALCSUMS(
         "Cost Amount (Expected)","Cost Amount (Expected) (ACY)",
         "Sales Amount (Expected)","Purchase Amount (Expected)");
    ExpectedCost :=  -"Cost Amount (Expected)";
    ExpectedCostACY := -"Cost Amount (Expected) (ACY)";
    IF NOT CalledFromAdjustment THEN BEGIN
       ExpectedSalesAmt := -"Sales Amount (Expected)";
       ExpectedPurchAmt := -"Purchase Amount (Expected)";
    END
  END ELSE BEGIN
        REPEAT
           IF "Expected Cost" THEN BEGIN
             ExpectedCost := ExpectedCost + "Cost Amount (Expected)";
             ExpectedCostACY := ExpectedCostACY + "Cost Amount (Expected) (ACY)";
…

    Código de substituição 3 para Microsoft Dynamics NAV 2009 SP1 e Microsoft Dynamics NAV 2009 R2

    …
IF FINDSET AND "Expected Cost" THEN
  IF CalcReminder THEN BEGIN
    CALCSUMS(
         "Cost Amount (Expected)","Cost Amount (Expected) (ACY)",
         "Sales Amount (Expected)","Purchase Amount (Expected)");
    ExpectedCost :=  -"Cost Amount (Expected)";
    ExpectedCostACY := -"Cost Amount (Expected) (ACY)";
    IF NOT CalledFromAdjustment THEN BEGIN
       ExpectedSalesAmt := -"Sales Amount (Expected)";
       ExpectedPurchAmt := -"Purchase Amount (Expected)";
    END

// Add the following lines.   
     END ELSE
       IF InvdValueEntry.Adjustment AND
          (InvdValueEntry."Entry Type" = InvdValueEntry."Entry Type"::"Direct Cost")
       THEN BEGIN
         ExpectedCost := -InvdValueEntry."Cost Amount (Actual)";
         ExpectedCostACY := -InvdValueEntry."Cost Amount (Actual) (ACY)";
         IF NOT CalledFromAdjustment THEN BEGIN
           ExpectedSalesAmt := -InvdValueEntry."Sales Amount (Actual)";
           ExpectedPurchAmt := -InvdValueEntry."Purchase Amount (Actual)";
         END
// End of the added lines.

  END ELSE BEGIN
       REPEAT
            IF "Expected Cost" THEN BEGIN
              ExpectedCost := ExpectedCost + "Cost Amount (Expected)";
              ExpectedCostACY := ExpectedCostACY + "Cost Amount (Expected) (ACY)";
…

Pré-requisitos

Tem de ter um dos seguintes produtos instalados para aplicar esta correção:

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

                
              

Informações de remoção

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

Estado

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

Referências

VSTF DynamicsNAV SE: 266892

Nota Este é um artigo "PUBLICAÇÃO RÁPIDA" criado diretamente a partir da organização de suporte da Microsoft. As informações aqui contidas são fornecidas tal como estão em resposta a problemas emergentes. Como resultado da velocidade de disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Veja Termos de Utilização para outras considerações.