Este artigo se aplica ao Microsoft Dynamics NAV para a localidade do idioma húngaro (hu).
Sintomas
Suponha que você aplicar o hotfix 2664466 a versão em húngaro do Microsoft Dynamics NAV 2009 R2. Quando você calcula as estatísticas de notas fiscais para uma nota fiscal lançada, o valor do imposto sobre valor agregado (IVA) é arredondado incorretamente.
Para obter mais informações sobre o hotfix 2664466, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:
2664466 valor o IVA está incorreto quando você lançar uma nota fiscal em moeda estrangeira na versão em húngaro do Microsoft Dynamics NAV 5.0 Service Pack 1
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 nos campos da tabela a linha de vendas (37) da seguinte forma:
1 de código existente...
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...1 código de substituição
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...2 de código existente
...
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição 2
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função UpdateVATAmounts da tabela da linha de vendas (37) da seguinte forma:
Código existente...
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função UpdateVATOnLines da tabela da linha de vendas (37) da seguinte forma:
Código existente..."VAT Base Amount" := NewVATBaseAmount;
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição
..."VAT Base Amount" := NewVATBaseAmount;
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função CalcVATAmountLines da tabela da linha de vendas (37) da seguinte forma:
Código existente...
// Delete the following line.CalcVATToReport(SalesHeader,"VAT Base","VAT Amount" - "VAT Difference",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Alterar o código de CalcVATToReportfuncionar na tabela linha de vendas (37) da seguinte forma:
1 de código existente...
// Delete the following line.
PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
// End of the deleted line.
BEGIN
...1 código de substituição
...
// Add the following lines.
PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360005 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
VAR
AmountLCY@1360006 : Decimal;
AmtInclVATLCY@1360007 : Decimal;
// End of the added lines.
BEGIN
...2 de código existente
...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
// Delete the following lines.
VATAmountToReport :=
ROUND(VATAmount / SalesHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := VATAmount;
// End of the deleted lines.
END;
...Código de substituição 2
...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
// Add the following lines.
AmountLCY :=
ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
AmtInclVATLCY :=
ROUND(AmtInclVAT / SalesHeader."VAT Currency Factor");
VATAmountToReport :=
AmtInclVATLCY - AmountLCY;
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := AmtInclVAT - VATBaseAmount;
// End of the added lines.
END;
... -
Altere o código nos campos na tabela linha de compra (39) da seguinte forma:
1 de código existente...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...1 código de substituição
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...2 de código existente
...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Código de substituição 2
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Altere o código na função UpdateVATAmounts a tabela linha de compra (39) da seguinte forma:
Código existente...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Código de substituição
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Altere o código na função UpdateVATOnLines a tabela linha de compra (39) da seguinte forma:
Código existente...END;
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Código de substituição
...END;
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Altere o código no CalcVATAmountLines na tabela linha de compra (39) da seguinte forma:
Código existente...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base","VAT Amount" - "VAT Difference",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Código de substituição
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Altere o código na função CalcVATToReport a tabela linha de compra (39) da seguinte forma:
1 de código existente...
// Delete the following lines.
PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
VAR
NonDeductableVATAmount@1360006 : Decimal;
BEGIN
NonDeductableVATAmount := VATAmount * NonDeductableVATPct / 100;
// End of the deleted lines.
IF PurchHeader."Currency Code" <> '' THEN BEGIN
...1 código de substituição
...
// Add the following lines.
PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
VAR
NonDeductableVATAmount@1360006 : Decimal;
AmountLCY@1360008 : Decimal;
AmtInclVATLCY@1360009 : Decimal;
BEGIN
NonDeductableVATAmount := (AmtInclVAT - VATBaseAmount) * NonDeductableVATPct / 100;
// End of the added lines.
IF PurchHeader."Currency Code" <> '' THEN BEGIN
...2 de código existente
...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
// Delete the following lines.
VATAmountToReport :=
ROUND((VATAmount - NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
VATAmountToReport := VATAmount - ROUND(NonDeductableVATAmount);
// End of the deleted lines.
END
...Código de substituição 2
...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
// Add the following lines.
AmountLCY :=
ROUND(VATBaseAmount / PurchHeader."VAT Currency Factor");
AmtInclVATLCY :=
ROUND(AmtInclVAT / PurchHeader."VAT Currency Factor");
VATAmountToReport :=
AmtInclVATLCY - AmountLCY - ROUND(NonDeductableVATAmount / PurchHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
VATAmountToReport := AmtInclVAT - VATBaseAmount - ROUND(NonDeductableVATAmount);
// End of the added lines.
END
... -
Altere o código nos campos na tabela de linha de serviço (5902) da seguinte forma:
1 de código existente...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...1 código de substituição
...
// Add the following line.CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...2 de código existente
...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição 2
...
// Add the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função UpdateVATAmounts da tabela de linha de serviço (5902) da seguinte forma:
Código existente...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição
...
// Add the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função CalcVATAmountLines da tabela de linha de serviço (5902) da seguinte forma:
Código existente...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base","VAT Amount" - "VAT Difference",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição
...
// Add the following line.CalcVATToReport(ServHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função UpdateVATOnLines da tabela de linha de serviço (5902) da seguinte forma:
Código existente..."VAT Base Amount" := NewVATBaseAmount;
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Código de substituição
..."VAT Base Amount" := NewVATBaseAmount;
// Add the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
Altere o código na função CalcVATToReport da tabela de linha de serviço (5902) da seguinte forma:
1 de código existente...
// Delete the following line.
PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
// End of the deleted line.
BEGIN
...1 código de substituição
...
// Add the following lines.
PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
VAR
AmountLCY@1360005 : Decimal;
AmtInclVATLCY@1360006 : Decimal;
// End of the added lines.
BEGIN
...2 de código existente
...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
// Delete the following lines.
VATAmountToReport :=
ROUND(VATAmount / ServHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := VATAmount;
// End of the deleted lines.
END;
...Código de substituição 2
...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
// Add the following lines.
AmountLCY :=
ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
AmtInclVATLCY :=
ROUND(AmtInclVAT / ServHeader."VAT Currency Factor");
VATAmountToReport :=
AmtInclVATLCY - AmountLCY;
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := AmtInclVAT - VATBaseAmount;
// End of the added lines.
END;
... -
Altere o código na função DivideAmount o código de Post de vendas (80) da seguinte forma:
1 de código existente...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
// Delete the following lines.
VAR
TotalVATBaseAmtLCY@1360001 : Decimal;
TotalVATAmountLCY@1360000 : Decimal;
// End of the deleted lines.
BEGIN
...1 código de substituição
...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
BEGIN
...2 de código existente
...END;
// Delete the following lines.
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
CalcVATToReport(SalesHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
// End of the deleted lines.
...Código de substituição 2
...END;
// Add the following line.
CalcRoundedVATToReport(SalesLine,SalesHeader);
// End of the added line.
... -
Crie uma função na Codeunit Post de vendas (80) da seguinte forma:
LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR SalesLine@1360002 : Record 37;SalesHeader@1360003 : Record 36);VAR
TotalVATBaseAmtLCY@1360005 : Decimal;
TotalVATAmountLCY@1360004 : Decimal;
BEGIN
WITH SalesLine DO BEGIN
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
"VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
"Amount Including VAT";
CalcVATToReport(SalesHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
END;
END; -
Alterar o código da função DivideAmount na compra.-código de Post (90) da seguinte maneira:
1 de código existente...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
// Delete the following lines.
VAR
TotalVATBaseAmtLCY@1360001 : Decimal;
TotalVATAmountLCY@1360000 : Decimal;
// End of the deleted lines.
BEGIN
...1 código de substituição
...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
BEGIN
...2 de código existente
...END;
// Delete the following lines.
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
PurchLine.CalcVATToReport(PurchHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
// End of the deleted lines.
...Código de substituição 2
...END;
// Add the following line.
CalcRoundedVATToReport(PurchLine,PurchHeader);
// End of the added line.
... -
Criar uma função no na compra.-código de Post (90) da seguinte maneira:
LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR PurchLine@1360002 : Record 39;PurchHeader@1360003 : Record 38);VAR
TotalVATBaseAmtLCY@1360005 : Decimal;
TotalVATAmountLCY@1360004 : Decimal;
BEGIN
WITH PurchLine DO BEGIN
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
"VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
"Amount Including VAT";
CalcVATToReport(PurchHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
END;
END; -
Altere o código na função DivideAmount na Codeunit gerenciamento Serv valores (5986) da seguinte forma:
1 de código existente...ChargeableQty@1006 : Decimal;
// Delete the following lines.
TotalVATBaseAmtLCY@1360001 : Decimal;
TotalVATAmountLCY@1360000 : Decimal;
// End of the deleted lines.
BEGIN
...1 código de substituição
...ChargeableQty@1006 : Decimal;
BEGIN
...2 de código existente
...END;
// Delete the following lines.
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
CalcVATToReport(ServiceHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
// End of the deleted lines.
...Código de substituição 2
...END;
// Add the following line.
CalcRoundedVATToReport(ServiceLine,TempVATAmountLineRemainder,ServHeader);
// End of the added line.
... -
Criar uma função no na Codeunit de gerenciamento Serv valores (5986) da seguinte maneira:
LOCAL PROCEDURE CalcRoundedVATToReport@1360001(VAR ServiceLine@1360002 : Record 5902;VAR TempVATAmountLineRemainder@1360004 : Record 290;ServHeader@1360003 : Record 5900);VAR
TotalVATBaseAmtLCY@1360006 : Decimal;
TotalVATAmountLCY@1360005 : Decimal;
BEGIN
WITH ServiceLine DO BEGIN
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
"VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
"Amount Including VAT";
CalcVATToReport(ServHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
END;
END;
Pré-requisitos:
Você deve ter versão em húngaro do Microsoft Dynamics NAV 2009 R2 instalado para aplicar esse hotfix.
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.
