Quando você lança um pagamento de desconto de venda ou compra documentos na versão belga do Microsoft Dynamics NAV 2009, o "disco de PGTO. Original. Valor possível"está incorreto. Esse problema ocorre se a opção "Ajustar para pagamento de desconto" estiver ativada. Esse problema ocorre nos seguintes produtos:
-
A versão do Microsoft Dynamics NAV 2009 R2 belga
-
A versão do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) belga
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:
-
Altere o código na função DivideAmount a 80 Codeunit da seguinte maneira:
1 de código existente...END;
LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
BEGIN
IF RoundingLineInserted AND (RoundingLineNo = SalesLine."Line No.") THEN
EXIT;
...1 código de substituição
...END;
LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
VAR
PmtDiscountBase@1010000 : Decimal;
BEGIN
IF RoundingLineInserted AND (RoundingLineNo = SalesLine."Line No.") THEN
EXIT;
...2 de código existente
...END;
END;
IF TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount" <> 0 THEN BEGIN
TempVATAmountLineRemainder."Pmt. Discount Amount" :=
TempVATAmountLineRemainder."Pmt. Discount Amount" +
TempVATAmountLine."VAT Base" * SalesHeader."Payment Discount %" / 100 *
("Line Amount" - "Inv. Discount Amount") /
(TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount");
"Pmt. Discount Amount" :=
...Código de substituição 2
...END;
END;
IF TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount" <> 0 THEN BEGIN
IF GLSetup."Adjust for Payment Disc." THEN
PmtDiscountBase := TempVATAmountLine."Amount Including VAT"
ELSE
PmtDiscountBase := TempVATAmountLine."VAT Base";
TempVATAmountLineRemainder."Pmt. Discount Amount" :=
TempVATAmountLineRemainder."Pmt. Discount Amount" +
PmtDiscountBase * SalesHeader."Payment Discount %" / 100 *
("Line Amount" - "Inv. Discount Amount") /
(TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount");
"Pmt. Discount Amount" :=
... -
Altere o código na função InvoiceRounding a 80 Codeunit da seguinte maneira:
Código existente...(1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));
VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
"Line No." := NextLineNo;
IF NOT UseTempData THEN BEGIN
DocDim2.SETRANGE("Table ID",DATABASE::"Sales Line");
...Código de substituição
...(1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));
VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
VALIDATE("Pmt. Discount Amount",
ROUND(InvoiceRoundingAmount * SalesHeader."Payment Discount %" / 100,Currency."Amount Rounding Precision"));
"Line No." := NextLineNo;
IF NOT UseTempData THEN BEGIN
DocDim2.SETRANGE("Table ID",DATABASE::"Sales Line");
... -
Altere o código na função DivideAmount a 90 Codeunit da seguinte maneira:
1 de código existente...END;
LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
BEGIN
IF RoundingLineInserted AND (RoundingLineNo = PurchLine."Line No.") THEN
EXIT;
...1 código de substituição
...END;
LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
VAR
PmtDiscountBase@1010000 : Decimal;
BEGIN
IF RoundingLineInserted AND (RoundingLineNo = PurchLine."Line No.") THEN
EXIT;
...2 de código existente
...END;
END;
IF TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount" <> 0 THEN BEGIN
TempVATAmountLineRemainder."Pmt. Discount Amount" :=
TempVATAmountLineRemainder."Pmt. Discount Amount" +
TempVATAmountLine."VAT Base" * PurchHeader."Payment Discount %" / 100 *
("Line Amount" - "Inv. Discount Amount") /
(TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount");
"Pmt. Discount Amount" :=
...Código de substituição 2
...END;
END;
IF TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount" <> 0 THEN BEGIN
IF GLSetup."Adjust for Payment Disc." THEN
PmtDiscountBase := TempVATAmountLine."Amount Including VAT"
ELSE
PmtDiscountBase := TempVATAmountLine."VAT Base";
TempVATAmountLineRemainder."Pmt. Discount Amount" :=
TempVATAmountLineRemainder."Pmt. Discount Amount" +
PmtDiscountBase * PurchHeader."Payment Discount %" / 100 *
("Line Amount" - "Inv. Discount Amount") /
(TempVATAmountLine."Line Amount" - TempVATAmountLine."Invoice Discount Amount");
"Pmt. Discount Amount" :=
... -
Altere o código na função InvoiceRounding a 90 Codeunit da seguinte maneira:
Código existente...(1 + (1 - PurchHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));
VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
"Line No." := NextLineNo;
IF NOT UseTempData THEN BEGIN
DocDim2.SETRANGE("Table ID",DATABASE::"Purchase Line");
...Código de substituição
...(1 + (1 - PurchHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));
VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
VALIDATE("Pmt. Discount Amount",
ROUND(InvoiceRoundingAmount * PurchHeader."Payment Discount %" / 100,Currency."Amount Rounding Precision"));
"Line No." := NextLineNo;
IF NOT UseTempData THEN BEGIN
DocDim2.SETRANGE("Table ID",DATABASE::"Purchase Line");
...
Pré-requisitos:
Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:
-
A versão do Microsoft Dynamics NAV 2009 R2 belga
-
A versão do Microsoft Dynamics NAV 2009 SP1 belga
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.
