Uma conta de livro razão geral incorreta é utilizada para tolerâncias de pagamento quando a caixa de verificação Aviso de Tolerância de Pagamento está selecionada na caixa de diálogo Configuração Geral do Livro Razão no Microsoft Dynamics NAV

Aplica-se A

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1 Microsoft Dynamics NAV 5.0

Este artigo aplica-se ao Microsoft Dynamics NAV para todos os países e regiões de idioma.

Sintomas

Suponha que clica para selecionar a caixa de verificação Aviso de Tolerância de Pagamento na caixa de diálogo Configuração Geral do Livro Razão no Microsoft Dynamics NAV. Quando publica um diário de pagamento do cliente ou um diário de pagamento do fornecedor que tem uma tolerância de desconto de pagamento e uma tolerância de pagamento, a conta de débito ou a conta de crédito para a tolerância de pagamento e os descontos de pagamento são utilizados incorretamente nas entradas gerais do livro razão. Em determinados cenários, o valor da tolerância de pagamento é registado para a conta de débito, embora a conta de crédito deva ser utilizada nas entradas gerais do livro razão.
Este problema ocorre nos seguintes produtos:

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

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 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:

Altere o código na função PostDtldVendLedgEntries no gen. Jnl.-Post Line codeunit (12) da seguinte forma:
Código existente 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Código de substituição 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Código existente 2

… 
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Código de substituição 2

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Altere o código na função AutoEntrForDtldVendLedgEntries na função Gen. Jnl.-Post Line codeunit (12) da seguinte forma:
Código existente 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
          END;
        END;
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
            AccNo := VendPostingGr."Payment Disc. Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
            AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Código de substituição 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
        GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
          BEGIN
            IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
              VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
              AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
            END ELSE BEGIN
              VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
              AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
            END;
          END;
        GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
          BEGIN
            IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
              VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
              AccNo := VendPostingGr."Payment Disc. Debit Acc.";
            END ELSE BEGIN
              VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
              AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Código existente 2

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    CASE GLSetup."Payment Tolerance Posting" OF
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
          END;
        END;
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
            AccNo := VendPostingGr."Payment Disc. Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
            AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Código de substituição 2

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    CASE GLSetup."Payment Tolerance Posting" OF
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
        BEGIN
          IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
          END;
        END;
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
        BEGIN
          IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
            AccNo := VendPostingGr."Payment Disc. Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
            AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

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
Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Microsoft Dynamics NAV 5.0

Informações de remoção

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

Para obter mais informações, clique no seguinte número de artigo para ver o artigo na Base de Dados de Conhecimento Microsoft:

981697 É utilizada uma conta G/L incorreta quando publica um pagamento para aplicar uma fatura em que foi utilizada "IVA Total" se a definição "Ajustar para Desconto de Pagamento" estiver ativada no formulário "Configuração Geral do Livro Razão" no Microsoft Dynamics NAV 2009

Estado

A Microsoft confirmou que se trata de um problema nos produtos 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 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.