Este artigo aplica-se para o Microsoft Dynamics NAV para indiano (idioma no).
Sintomas
A versão indiana do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1), o valor apresentado "imposto %" está incorrecto numa linha de encomenda de venda e na linha de factura de venda registada. Esperar que o valor de "% de IVA" para ser consistente com o valor de imposto abaixo mínimo na configuração de detalhes de imposto. O mesmo problema também ocorre para os documentos de compras.
Resolução
Informações sobre correção
Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.
Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.
Informações de instalação
A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.
Para implementar esta correcção, tem de ter uma licença de desenvolvedor.
Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
-
A permissão Modificar para o objecto que estará a alterar.
-
A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .
Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.
Alterações de código
Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:
-
Altere o código do accionador OnValidate no Valor IVA incluído da tabela ' Linha venda ' (37) do seguinte modo:
Código existente... ELSE
"Amount To Customer" :=
ROUND("Line Amount" - "Inv. Discount Amount" + "Excise Amount" + "Charges To Customer" -
"Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" +"Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision");
END;
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",Currency."Amount Rounding Precision")
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
InitOutstandingAmount;
END;
...Código de substituição
... ELSE
"Amount To Customer" :=
ROUND("Line Amount" - "Inv. Discount Amount" + "Excise Amount" + "Charges To Customer" -
"Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" +"Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision");
END;
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
InitOutstandingAmount;
END;
... -
Altere o código de função UpdateTaxAmounts na tabela Linha venda (37) do seguinte modo:
Código existente 1... "Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Delete the following lines.
//LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code","Tax Liable",SalesHeader."Posting Date",
// "Tax Base Amount",Quantity,SalesHeader."Currency Factor","Form Code");
// End of the deleted lines.
TotalTaxAmount := 0;
TotalStdDeductionAmt := 0;
...Código de substituição 1
... "Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Add the following lines.
LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code","Tax Liable",SalesHeader."Posting Date",
"Tax Base Amount",Quantity,SalesHeader."Currency Factor","Form Code","Tax %");
// End of the added lines.
TotalTaxAmount := 0;
TotalStdDeductionAmt := 0;
...Código existente 2
... END ELSE
IndianSalesTaxCalculate.GetStandardDeductionAmt(Rec,StandardDeductionAmount,LineTaxAmount);
END
END;
"Amount Including Tax" := ROUND("Tax Base Amount" + LineTaxAmount,Currency."Amount Rounding Precision");
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" :=
// ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",Currency."Amount Rounding Precision")
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
IF "Standard Deduction %" <>0 THEN
"Standard Deduction Amount" := ("Tax Base Amount" * "Standard Deduction %" / 100)
...Código de substituição 2
... END ELSE
IndianSalesTaxCalculate.GetStandardDeductionAmt(Rec,StandardDeductionAmount,LineTaxAmount);
END
END;
"Amount Including Tax" := ROUND("Tax Base Amount" + LineTaxAmount,Currency."Amount Rounding Precision");
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
IF "Standard Deduction %" <>0 THEN
"Standard Deduction Amount" := ("Tax Base Amount" * "Standard Deduction %" / 100)
... -
Altere o código do accionador OnValidate no Valor IVA incluído da tabela Linha compra (39) do seguinte modo:
Código existente... "Amount To Vendor" := ROUND("Line Amount" -"Inv. Discount Amount" + "Excise Amount" + "Tax Amount" -
"Bal. TDS Including SHE CESS" + "Charges To Vendor" + "Service Tax Amount" +
"Service Tax eCess Amount" + "Service Tax SHE Cess Amount");
END;
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",
// Currency."Amount Rounding Precision")
//ELSE // Delete
// "Tax %" := 0;
// End of the deleted lines.
InitOutstandingAmount;
...Código de substituição
... "Amount To Vendor" := ROUND("Line Amount" -"Inv. Discount Amount" + "Excise Amount" + "Tax Amount" -
"Bal. TDS Including SHE CESS" + "Charges To Vendor" + "Service Tax Amount" +
"Service Tax eCess Amount" + "Service Tax SHE Cess Amount");
END;
// Add the following lines.
IF "Tax Base Amount" = 0 THEN // Add
// End of the added lines.
InitOutstandingAmount;
... -
Altere o código de função UpdateTaxAmounts na tabela Linha compra (39) do seguinte modo:
Código existente 1... "Bal. TDS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Delete the following lines.
//LineTaxAmount := ROUND(IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code","Tax Liable",PurchHeader."Posting Date",
// "Tax Base Amount",Quantity,PurchHeader."Currency Factor","Form Code"),Currency."Amount Rounding Precision");
// End of the deleted lines.
AmountonInventory := 0;
InputTaxCreditAmount := 0;
...Código de substituição 1
... "Bal. TDS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Add the following lines.
LineTaxAmount := ROUND(IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code","Tax Liable",PurchHeader."Posting Date",
"Tax Base Amount",Quantity,PurchHeader."Currency Factor","Form Code","Tax %"),Currency."Amount Rounding Precision");
// End of the added lines.
AmountonInventory := 0;
InputTaxCreditAmount := 0;
...Código existente 2
... "Tax Amount" := ROUND(TaxAmount,Currency."Amount Rounding Precision");
"Amount Including Tax" := ("Tax Base Amount" + "Tax Amount");
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",
// Currency."Amount Rounding Precision")
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
ServiceTaxSetup.RESET;
...Código de substituição 2
... "Tax Amount" := ROUND(TaxAmount,Currency."Amount Rounding Precision");
"Amount Including Tax" := ("Tax Base Amount" + "Tax Amount");
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
ServiceTaxSetup.RESET;
... -
Altere o código de função na tabela de Diário de abertura de IVA de UpdateTaxAmount (16569) do seguinte modo:
Código existente... IF "Transaction Type" = "Transaction Type"::Purchase THEN BEGIN
// Delete the following lines.
//LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code",TRUE,"Posting Date",
// "Tax Base Amount",Quantity,0,'');
// End of the deleted lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningInputTaxCredit(Rec,"Amount Loaded on Item",
"Input Credit/Output Tax Amount",TRUE,TaxAmount);
"Tax Amount" := TaxAmount;
IF GLSetup."VAT Rounding Precision" <> 0 THEN
"Tax Amount" := ROUND("Tax Amount",GLSetup."VAT Rounding Precision",Direction);
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := 100 * (("Tax Base Amount" + "Tax Amount") - "Tax Base Amount") / "Tax Base Amount"
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
END ELSE IF "Transaction Type" = "Transaction Type"::Sale THEN BEGIN
IF ("Export or Deemed Export") THEN
EXIT;
// Delete the following lines.
//LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code",TRUE,"Posting Date",
// "Tax Base Amount",Quantity,0,'');
// End of the deleted lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningSTD(Rec,StandardDeductionAmount,TaxAmount);
"Tax Amount" := TaxAmount - StandardDeductionAmount;
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := 100 * (("Tax Base Amount" + "Tax Amount") - "Tax Base Amount") / "Tax Base Amount"
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
"Input Credit/Output Tax Amount" := "Tax Amount";
"Amount Loaded on Item" := 0;
END;
...Código de substituição
... IF "Transaction Type" = "Transaction Type"::Purchase THEN BEGIN
// Add the following lines.
LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code",TRUE,"Posting Date",
"Tax Base Amount",Quantity,0,'',"Tax %");
// End of the added lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningInputTaxCredit(Rec,"Amount Loaded on Item",
"Input Credit/Output Tax Amount",TRUE,TaxAmount);
"Tax Amount" := TaxAmount;
IF GLSetup."VAT Rounding Precision" <> 0 THEN
"Tax Amount" := ROUND("Tax Amount",GLSetup."VAT Rounding Precision",Direction);
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
END ELSE IF "Transaction Type" = "Transaction Type"::Sale THEN BEGIN
IF ("Export or Deemed Export") THEN
EXIT;
// Add the following lines.
LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code",TRUE,"Posting Date",
"Tax Base Amount",Quantity,0,'',"Tax %");
// End of the added lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningSTD(Rec,StandardDeductionAmount,TaxAmount);
"Tax Amount" := TaxAmount - StandardDeductionAmount;
// Add the following lines.
IF "Tax Base Amount" = 0 THEN // Add
"Tax %" := 0; // Add
// End of the added lines.
"Input Credit/Output Tax Amount" := "Tax Amount";
"Amount Loaded on Item" := 0;
END;
... -
Altere o código na codeunit Calcular imposto sobre vendas de indiana (13704) do seguinte modo:
Código existente... Taxamount := TaxBaseAmount * TaxDetail."Tax Below Maximum" / 100;
IF (TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::VAT) OR
(TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::CST)
...Código de substituição
... Taxamount := TaxBaseAmount * TaxDetail."Tax Below Maximum" / 100;
// Add the following line.
TaxPercent := TaxDetail."Tax Below Maximum";
// End of the added line.
IF (TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::VAT) OR
(TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::CST)
...
7. Codeunit 13704 Indian Sales Tax Calculate
Function CalculateTax
Add the below Parameter
VAR TaxPercent Type Decimal
Pré-requisitos
Tem de ter a versão indiana do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) instalada para aplicar esta correcção.
Informações de remoção
Não é possível remover esta correcção.
Estado
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".
Referências
VSTF DynamicsNAV SE: 252133
Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .
