Entrar com a conta da Microsoft
Entrar ou criar uma conta.
Olá,
Selecionar uma conta diferente.
Você tem várias contas
Escolha a conta com a qual você deseja entrar.

Este artigo se aplica ao Microsoft Dynamics NAV para todos os países e todas as localidades de idiomas.

Sintomas

Quando você usa um método de pagamento e uma conta de saldo para lançar uma fatura no Microsoft Dynamics NAV 2009, pagamento de desconto é calculado embora data de desconto de pagamento está atrasada.

Esse problema ocorre nos seguintes produtos:

  • Microsoft Dynamics NAV 2009 Service Pack 1

  • Microsoft Dynamics NAV 2009 R2


Resolução

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

  • A permissão Modificar para o objeto que será alterado.

  • A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto

    objeto.

Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.

Para resolver esse problema, execute as seguintes etapas:

  1. Alterar o código de função PostCust em geral Jnl.-lançar linha Codeunit (12) da seguinte maneira:
    1 de código existente

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
              CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
              CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

              IF "Amount (LCY)" <> 0 THEN BEGIN
                IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
                ELSE
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
                CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ...

    1 código de substituição

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
              CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
              CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

              IF "Amount (LCY)" <> 0 THEN BEGIN

    // Add the following lines.
              IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
                 (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
    // End of the added lines.

                IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
                ELSE
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
                CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ...

    2 de código existente

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
                CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                  ROUND(
                    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                    Currency."Amount Rounding Precision"); 
                CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
              END;

              IF "Currency Code" <> '' THEN BEGIN
                TESTFIELD("Currency Factor");
    ...

    Código de substituição 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
                CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                  ROUND(
                    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                    Currency."Amount Rounding Precision");

    // Add the following line.
               END;
    // End of the added line.

                CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
              END;

              IF "Currency Code" <> '' THEN BEGIN
                TESTFIELD("Currency Factor");
    ...

  2. Alterar o código de função PostVend em geral Jnl.-lançar linha Codeunit (12) da seguinte maneira:
    1 de código existente

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
              CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
              CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

              IF "Amount (LCY)" <> 0 THEN BEGIN
                IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
                ELSE
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    ...

    1 código de substituição

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
              CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
              CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

              IF "Amount (LCY)" <> 0 THEN BEGIN

    // Add the following lines.
              IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
                 (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
    // End of the added lines.

                IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
                ELSE
                  CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    ...

    2 de código existente

    ...
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                  ROUND(
                    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                    Currency."Amount Rounding Precision");
                CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
              END;

              IF "Currency Code" <> '' THEN BEGIN
                TESTFIELD("Currency Factor");
    ...

    Código de substituição 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                  ROUND(
                    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                    Currency."Amount Rounding Precision");

    // Add the following line.
               END;
    // End of the added line.

                CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
              END;

              IF "Currency Code" <> '' THEN BEGIN
                TESTFIELD("Currency Factor");
    ...


Pré-requisitos:

Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:

  • Microsoft Dynamics NAV 2009 Service Pack 1

  • Microsoft Dynamics NAV 2009 R2

Informações sobre remoção

Você não pode remover esse hotfix.

Status

A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".

Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de usopara outras considerações.

Facebook LinkedIn Email
ASSINAR RSS FEEDS

Precisa de mais ajuda?

Quer mais opções

Descobrir Comunidade

Explore os benefícios da assinatura, procure cursos de treinamento, saiba como proteger seu dispositivo e muito mais.

Benefícios da assinatura do Microsoft 365

Treinamento do Microsoft 365

Segurança da Microsoft

Centro de acessibilidade

As comunidades ajudam você a fazer e responder perguntas, fazer comentários e ouvir especialistas com conhecimento avançado.

Perguntar à comunidade da Microsoft

Microsoft Tech Community

Windows Insiders

Insiders do Microsoft 365

Essas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade do idioma?
O que afetou sua experiência?
Ao pressionar enviar, seus comentários serão usados para aprimorar os produtos e serviços da Microsoft. Seu administrador de TI poderá coletar esses dados. Política de Privacidade.

Agradecemos seus comentários!

×