Este artigo se aplica à Microsoft para os seguintes países e idiomas.
-
Inglês (Canadá) (en-ca)
-
Inglês (Estados Unidos) (en-us)
-
Espanhol (México) (es-mx)
-
Francês (Canadá) (fr-ca)
Sintomas
Suponha que você defina CAD como o valor de moeda de relatório adicional na configuração do razão geral caixa de diálogo na versão norte-americana do Microsoft Dynamics NAV 2009. Quando você lança uma nota fiscal de compra que contém o imposto, você recebe a seguinte mensagem de erro:
A transação não pode ser concluída porque irá causar inconsistências na tabela mov. Verifique onde e como a função CONSISTENTE é usada na transação para localizar o motivo do erro.
Esse problema ocorre nos seguintes produtos:
-
A versão norte-americana do Microsoft Dynamics NAV 2009 R2
-
A versão norte-americana do Microsoft Dynamics NAV 2009 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. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas 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 de cliente do Microsoft Navision estiver desconectados do sistema. Isso inclui usuários de cliente do Microsoft Navision 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 de sistema 5210 de identificação de objeto e do objeto de sistema 9015 de identificação de 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 na tabela de linha do valor de imposto sobre vendas (10011) da seguinte forma:
Código existente...ESM=Es Informe jurisdicci¢n;
FRC=Est une juridiction fiscale;
ENC=Is Report-to Jurisdiction];
Editable=No }
}
KEYS
{
{ ;Tax Area Code for Key,Tax Jurisdiction Code,Tax %,Tax Group Code,Expense/Capitalize,Tax Type,Use Tax;
...Código de substituição
...
ESM=Es Informe jurisdicci¢n;
FRC=Est une juridiction fiscale;
ENC=Is Report-to Jurisdiction];
Editable=No }
// Add the following line.
{ 10044; ;Tax Base Amount FCY ;Decimal }
// End of the added line.
}
KEYS
{
{ ;Tax Area Code for Key,Tax Jurisdiction Code,Tax %,Tax Group Code,Expense/Capitalize,Tax Type,Use Tax;
... -
Altere o código na função PostSalesTaxToGL o código de Post de vendas (80) da seguinte forma:
Código existente...END;
GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +
// Delete the following lines.
CurrExchRate.ExchangeAmtLCYToFCY(
UseDate,SalesHeader."Currency Code",TempSalesTaxAmtLine."Tax Amount",SalesHeader."Currency Factor");
// End of the deleted lines.
GenJnlLine."Source Curr. VAT Amount" :=
SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
...Código de substituição
...END;
GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +
// Add the following lines.
TempSalesTaxAmtLine."Tax Base Amount FCY" * TempSalesTaxAmtLine."Tax %" / 100;
// End of the added lines.
GenJnlLine."Source Curr. VAT Amount" :=
SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
... -
Alterar o código da função PostSalesTaxToGL na compra.-código de Post (90) da seguinte maneira:
Código existente...END;
GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +
// Delete the following lines.
CurrExchRate.ExchangeAmtLCYToFCY(
Usedate,PurchHeader."Currency Code",TempSalesTaxAmtLine."Tax Amount",PurchHeader."Currency Factor");
// End of the deleted lines.
GenJnlLine."Source Curr. VAT Amount" :=
SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
...Código de substituição
...END;
GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code";
IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt +
// Add the following line.
TempSalesTaxAmtLine."Tax Base Amount FCY" * TempSalesTaxAmtLine."Tax %" / 100;
// End of the added line.
GenJnlLine."Source Curr. VAT Amount" :=
SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision");
RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount";
RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount";
... -
Alterar o código da função PostProvincialSalesTaxToGL na compra.-código de Post (90) da seguinte maneira:
Código existente...TaxJurisdiction.TESTFIELD("Tax Account (Purchases)");
GenJnlLine."Account No." := TaxJurisdiction."Tax Account (Purchases)";
END;
GenJnlLine.Amount := GenJnlLine."VAT Amount";
// Delete the following lines.
GenJnlLine."Source Curr. VAT Base Amount" := 0;
GenJnlLine."VAT Base Amount (LCY)" := 0;
GenJnlLine."VAT Base Amount" := 0;
GenJnlLine."Source Curr. VAT Amount" := 0;
// End of the deleted lines.
GenJnlLine."VAT Amount (LCY)" := 0;
GenJnlLine."VAT Amount" := 0;
GenJnlLine.Quantity := 0;
GenJnlLine."VAT Difference" := 0;
...Código de substituição
...TaxJurisdiction.TESTFIELD("Tax Account (Purchases)");
GenJnlLine."Account No." := TaxJurisdiction."Tax Account (Purchases)";
END;
GenJnlLine.Amount := GenJnlLine."VAT Amount";
// Add the following lines.
GenJnlLine."Source Currency Amount" := GenJnlLine."Source Curr. VAT Amount";
GenJnlLine."Source Curr. VAT Base Amount" := 0;
GenJnlLine."VAT Base Amount (LCY)" := 0;
GenJnlLine."VAT Base Amount" := 0;
// End of the added lines.
GenJnlLine."VAT Amount (LCY)" := 0;
GenJnlLine."VAT Amount" := 0;
GenJnlLine.Quantity := 0;
GenJnlLine."VAT Difference" := 0;
... -
Altere o código na função AddSalesLine da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Round Tax" := TaxArea."Round Tax";
TaxJurisdiction.GET("Tax Jurisdiction Code");
"Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
// Delete the following line.
"Tax Base Amount" := (SalesLine."Line Amount" - SalesLine."Inv. Discount Amount") / ExchangeFactor;
// End of the deleted line.
"Line Amount" := SalesLine."Line Amount" / ExchangeFactor;
"Tax Liable" := SalesLine."Tax Liable";
Quantity := SalesLine."Quantity (Base)";
"Invoice Discount Amount" := SalesLine."Inv. Discount Amount";
...1 código de substituição
..."Round Tax" := TaxArea."Round Tax";
TaxJurisdiction.GET("Tax Jurisdiction Code");
"Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,SalesLine."Line Amount" - SalesLine."Inv. Discount Amount",ExchangeFactor,FALSE);
// End of the added line.
"Line Amount" := SalesLine."Line Amount" / ExchangeFactor;
"Tax Liable" := SalesLine."Tax Liable";
Quantity := SalesLine."Quantity (Base)";
"Invoice Discount Amount" := SalesLine."Inv. Discount Amount";
...2 de código existente
...END ELSE BEGIN
"Line Amount" := "Line Amount" + (SalesLine."Line Amount" / ExchangeFactor);
IF SalesLine."Tax Liable" THEN
"Tax Liable" := SalesLine."Tax Liable";
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + ((SalesLine."Line Amount" - SalesLine."Inv. Discount Amount") / ExchangeFactor);
// End of the deleted line.
"Tax Amount" := 0;
Quantity := Quantity + SalesLine."Quantity (Base)";
"Invoice Discount Amount" := "Invoice Discount Amount" + SalesLine."Inv. Discount Amount";
MODIFY;
...Código de substituição 2
...END ELSE BEGIN
"Line Amount" := "Line Amount" + (SalesLine."Line Amount" / ExchangeFactor);
IF SalesLine."Tax Liable" THEN
"Tax Liable" := SalesLine."Tax Liable";
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,SalesLine."Line Amount" - SalesLine."Inv. Discount Amount",ExchangeFactor,TRUE);
// End of the added line.
"Tax Amount" := 0;
Quantity := Quantity + SalesLine."Quantity (Base)";
"Invoice Discount Amount" := "Invoice Discount Amount" + SalesLine."Inv. Discount Amount";
MODIFY;
... -
Altere o código na função AddSalesInvoiceLines da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := SalesInvoiceLine."Line Amount" / ExchangeFactor;
// Delete the following line.
"Tax Base Amount" := SalesInvoiceLine."VAT Base Amount" / ExchangeFactor;
// End of the deleted line.
Quantity := SalesInvoiceLine.Quantity;
"Tax Liable" := SalesInvoiceLine."Tax Liable";
"Calculation Order" := TaxAreaLine."Calculation Order";
InsertRec := TRUE;
...1 código de substituição
..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := SalesInvoiceLine."Line Amount" / ExchangeFactor;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,SalesInvoiceLine."VAT Base Amount",ExchangeFactor,FALSE);
// End of the added line.
Quantity := SalesInvoiceLine.Quantity;
"Tax Liable" := SalesInvoiceLine."Tax Liable";
"Calculation Order" := TaxAreaLine."Calculation Order";
InsertRec := TRUE;
...2 de código existente
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (SalesInvoiceLine."Line Amount" / ExchangeFactor);
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + (SalesInvoiceLine."VAT Base Amount" / ExchangeFactor);
// End of the deleted line.
Quantity := Quantity + SalesInvoiceLine.Quantity;
IF SalesInvoiceLine."Tax Liable" THEN
"Tax Liable" := SalesInvoiceLine."Tax Liable";
InsertRec := FALSE;
...Código de substituição 2
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (SalesInvoiceLine."Line Amount" / ExchangeFactor);
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,SalesInvoiceLine."VAT Base Amount",ExchangeFactor,TRUE);
// End of the added line.
Quantity := Quantity + SalesInvoiceLine.Quantity;
IF SalesInvoiceLine."Tax Liable" THEN
"Tax Liable" := SalesInvoiceLine."Tax Liable";
InsertRec := FALSE;
... -
Altere o código na função AddSalesCrMemoLines da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := SalesCrMemoLine."Line Amount" / ExchangeFactor;
// Delete the following line.
"Tax Base Amount" := SalesCrMemoLine."VAT Base Amount" / ExchangeFactor;
// End of the deleted line.
Quantity := SalesCrMemoLine.Quantity;
"Tax Liable" := SalesCrMemoLine."Tax Liable";
"Calculation Order" := TaxAreaLine."Calculation Order";
InsertRec := TRUE;
...1 código de substituição
..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := SalesCrMemoLine."Line Amount" / ExchangeFactor;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,SalesCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE);
// End of the added line.
Quantity := SalesCrMemoLine.Quantity;
"Tax Liable" := SalesCrMemoLine."Tax Liable";
"Calculation Order" := TaxAreaLine."Calculation Order";
InsertRec := TRUE;
...2 de código existente
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (SalesCrMemoLine."Line Amount" / ExchangeFactor);
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + (SalesCrMemoLine."VAT Base Amount" / ExchangeFactor);
// End of the deleted line.
Quantity := Quantity + SalesCrMemoLine.Quantity;
IF SalesCrMemoLine."Tax Liable" THEN
"Tax Liable" := SalesCrMemoLine."Tax Liable";
InsertRec := FALSE;
...Código de substituição 2
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (SalesCrMemoLine."Line Amount" / ExchangeFactor);
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,SalesCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE);
// End of the added line.
Quantity := Quantity + SalesCrMemoLine.Quantity;
IF SalesCrMemoLine."Tax Liable" THEN
"Tax Liable" := SalesCrMemoLine."Tax Liable";
InsertRec := FALSE;
... -
Altere o código na função AddPurchLine da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Round Tax" := TaxArea."Round Tax";
TaxJurisdiction.GET("Tax Jurisdiction Code");
"Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
// Delete the following line.
"Tax Base Amount" := (PurchLine."Line Amount" - PurchLine."Inv. Discount Amount") / ExchangeFactor;
// End of the deleted line.
"Line Amount" := PurchLine."Line Amount" / ExchangeFactor;
"Tax Liable" := PurchLine."Tax Liable";
"Use Tax" := PurchLine."Use Tax";
...1 código de substituição
..."Round Tax" := TaxArea."Round Tax";
TaxJurisdiction.GET("Tax Jurisdiction Code");
"Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,PurchLine."Line Amount" - PurchLine."Inv. Discount Amount",ExchangeFactor,FALSE);
// End of the added line.
"Line Amount" := PurchLine."Line Amount" / ExchangeFactor;
"Tax Liable" := PurchLine."Tax Liable";
"Use Tax" := PurchLine."Use Tax";
...2 de código existente
...END ELSE BEGIN
"Line Amount" := "Line Amount" + (PurchLine."Line Amount" / ExchangeFactor);
IF PurchLine."Tax Liable" THEN
"Tax Liable" := PurchLine."Tax Liable";
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + ((PurchLine."Line Amount" - PurchLine."Inv. Discount Amount") / ExchangeFactor);
// End of the deleted line.
"Tax Amount" := 0;
Quantity := Quantity + PurchLine."Quantity (Base)";
"Invoice Discount Amount" := "Invoice Discount Amount" + PurchLine."Inv. Discount Amount";
MODIFY;
...Código de substituição 2
...END ELSE BEGIN
"Line Amount" := "Line Amount" + (PurchLine."Line Amount" / ExchangeFactor);
IF PurchLine."Tax Liable" THEN
"Tax Liable" := PurchLine."Tax Liable";
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,PurchLine."Line Amount" - PurchLine."Inv. Discount Amount",ExchangeFactor,TRUE);
// End of the added line.
"Tax Amount" := 0;
Quantity := Quantity + PurchLine."Quantity (Base)";
"Invoice Discount Amount" := "Invoice Discount Amount" + PurchLine."Inv. Discount Amount";
MODIFY;
... -
Altere o código na função AddPurchInvoiceLines da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := PurchInvLine."Line Amount" / ExchangeFactor;
// Delete the following line.
"Tax Base Amount" := PurchInvLine."VAT Base Amount" / ExchangeFactor;
// End of the deleted line.
Quantity := PurchInvLine.Quantity;
"Tax Liable" := PurchInvLine."Tax Liable";
"Use Tax" := PurchInvLine."Use Tax";
...1 código de substituição
..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := PurchInvLine."Line Amount" / ExchangeFactor;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,PurchInvLine."VAT Base Amount",ExchangeFactor,FALSE);
// End of the added line.
Quantity := PurchInvLine.Quantity;
"Tax Liable" := PurchInvLine."Tax Liable";
"Use Tax" := PurchInvLine."Use Tax";
...2 de código existente
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (PurchInvLine."Line Amount" / ExchangeFactor);
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + (PurchInvLine."VAT Base Amount" / ExchangeFactor);
// End of the deleted line.
Quantity := Quantity + PurchInvLine.Quantity;
IF PurchInvLine."Tax Liable" THEN
"Tax Liable" := PurchInvLine."Tax Liable";
InsertRec := FALSE;
...Código de substituição 2
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (PurchInvLine."Line Amount" / ExchangeFactor);
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,PurchInvLine."VAT Base Amount",ExchangeFactor,TRUE);
// End of the added line.
Quantity := Quantity + PurchInvLine.Quantity;
IF PurchInvLine."Tax Liable" THEN
"Tax Liable" := PurchInvLine."Tax Liable";
InsertRec := FALSE;
... -
Altere o código na função AddPurchCrMemoLines da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := PurchCrMemoLine."Line Amount" / ExchangeFactor;
// Delete the following line.
"Tax Base Amount" := PurchCrMemoLine."VAT Base Amount" / ExchangeFactor;
// End of the deleted line.
Quantity := PurchCrMemoLine.Quantity;
"Tax Liable" := PurchCrMemoLine."Tax Liable";
"Use Tax" := PurchCrMemoLine."Use Tax";
...1 código de substituição
..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := PurchCrMemoLine."Line Amount" / ExchangeFactor;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,PurchCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE);
// End of the added line.
Quantity := PurchCrMemoLine.Quantity;
"Tax Liable" := PurchCrMemoLine."Tax Liable";
"Use Tax" := PurchCrMemoLine."Use Tax";
...2 de código existente
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (PurchCrMemoLine."Line Amount" / ExchangeFactor);
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + (PurchCrMemoLine."VAT Base Amount" / ExchangeFactor);
// End of the deleted line.
Quantity := Quantity + PurchCrMemoLine.Quantity;
IF PurchCrMemoLine."Tax Liable" THEN
"Tax Liable" := PurchCrMemoLine."Tax Liable";
InsertRec := FALSE;
...Código de substituição 2
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (PurchCrMemoLine."Line Amount" / ExchangeFactor);
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,PurchCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE);
// End of the added line.
Quantity := Quantity + PurchCrMemoLine.Quantity;
IF PurchCrMemoLine."Tax Liable" THEN
"Tax Liable" := PurchCrMemoLine."Tax Liable";
InsertRec := FALSE;
... -
Altere o código na função AddServiceLine da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Round Tax" := TaxArea."Round Tax";
TaxJurisdiction.GET("Tax Jurisdiction Code");
"Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
// Delete the following line.
"Tax Base Amount" := (ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount") / ExchangeFactor;
// End of the deleted line.
"Line Amount" := ServiceLine."Line Amount" / ExchangeFactor;
"Tax Liable" := ServiceLine."Tax Liable";
Quantity := ServiceLine."Quantity (Base)";
"Invoice Discount Amount" := ServiceLine."Inv. Discount Amount";
...1 código de substituição
..."Round Tax" := TaxArea."Round Tax";
TaxJurisdiction.GET("Tax Jurisdiction Code");
"Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount",ExchangeFactor,FALSE);
// End of the added line.
"Line Amount" := ServiceLine."Line Amount" / ExchangeFactor;
"Tax Liable" := ServiceLine."Tax Liable";
Quantity := ServiceLine."Quantity (Base)";
"Invoice Discount Amount" := ServiceLine."Inv. Discount Amount";
...2 de código existente
...END ELSE BEGIN
"Line Amount" := "Line Amount" + (ServiceLine."Line Amount" / ExchangeFactor);
IF ServiceLine."Tax Liable" THEN
"Tax Liable" := ServiceLine."Tax Liable";
// Delete the following line.
"Tax Base Amount" :=
"Tax Base Amount" + ((ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount") / ExchangeFactor);
// End of the deleted line.
"Tax Amount" := 0;
Quantity := Quantity + ServiceLine."Quantity (Base)";
"Invoice Discount Amount" := "Invoice Discount Amount" + ServiceLine."Inv. Discount Amount";
MODIFY;
...Código de substituição 2
...END ELSE BEGIN
"Line Amount" := "Line Amount" + (ServiceLine."Line Amount" / ExchangeFactor);
IF ServiceLine."Tax Liable" THEN
"Tax Liable" := ServiceLine."Tax Liable";
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount",ExchangeFactor,TRUE);
// End of the added line.
"Tax Amount" := 0;
Quantity := Quantity + ServiceLine."Quantity (Base)";
"Invoice Discount Amount" := "Invoice Discount Amount" + ServiceLine."Inv. Discount Amount";
MODIFY;
... -
Altere o código na função AddServInvoiceLines da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := ServInvLine."Line Amount" / ExchangeFactor;
// Delete the following lines.
"Tax Base Amount" := ServInvLine."VAT Base Amount" / ExchangeFactor;
Quantity := ServInvLine.Quantity;
"Tax Liable" := ServInvLine."Tax Liable";
// End of the deleted line.
"Calculation Order" := TaxAreaLine."Calculation Order";
InsertRec := TRUE;
INSERT;
...1 código de substituição
..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := ServInvLine."Line Amount" / ExchangeFactor;
// Add the following lines.
SetTaxBaseAmount(TempSalesTaxLine,ServInvLine."VAT Base Amount",ExchangeFactor,FALSE);
Quantity := ServInvLine.Quantity;
"Tax Liable" := ServInvLine."Tax Liable";
// End of the added lines.
"Calculation Order" := TaxAreaLine."Calculation Order";
InsertRec := TRUE;
INSERT;
...2 de código existente
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (ServInvLine."Line Amount" / ExchangeFactor);
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + (ServInvLine."VAT Base Amount" / ExchangeFactor);
// End of the deleted line.
Quantity := Quantity + ServInvLine.Quantity;
IF ServInvLine."Tax Liable" THEN
"Tax Liable" := ServInvLine."Tax Liable";
InsertRec := FALSE;
...Código de substituição 2
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (ServInvLine."Line Amount" / ExchangeFactor);
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,ServInvLine."VAT Base Amount",ExchangeFactor,TRUE);
// End of the added line.
Quantity := Quantity + ServInvLine.Quantity;
IF ServInvLine."Tax Liable" THEN
"Tax Liable" := ServInvLine."Tax Liable";
InsertRec := FALSE;
... -
Altere o código na função AddServCrMemoLines da Codeunit de calcular impostos sobre vendas (398) da seguinte forma:
1 de código existente..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := ServCrMemoLine."Line Amount" / ExchangeFactor;
// Delete the following line.
"Tax Base Amount" := ServCrMemoLine."VAT Base Amount" / ExchangeFactor;
// End of the deleted line.
Quantity := ServCrMemoLine.Quantity;
"Tax Liable" := ServCrMemoLine."Tax Liable";
"Calculation Order" := TaxAreaLine."Calculation Order";
...1 código de substituição
..."Is Report-to Jurisdiction" :=
("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction");
END;
"Line Amount" := ServCrMemoLine."Line Amount" / ExchangeFactor;
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,ServCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE);
// End of the added line.
Quantity := ServCrMemoLine.Quantity;
"Tax Liable" := ServCrMemoLine."Tax Liable";
"Calculation Order" := TaxAreaLine."Calculation Order";
...2 de código existente
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (ServCrMemoLine."Line Amount" / ExchangeFactor);
// Delete the following line.
"Tax Base Amount" := "Tax Base Amount" + (ServCrMemoLine."VAT Base Amount" / ExchangeFactor);
// End of the deleted line.
Quantity := Quantity + ServCrMemoLine.Quantity;
IF ServCrMemoLine."Tax Liable" THEN
"Tax Liable" := ServCrMemoLine."Tax Liable";
InsertRec := FALSE;
...Código de substituição 2
...InsertRec := TRUE;
INSERT;
END ELSE BEGIN
"Line Amount" := "Line Amount" + (ServCrMemoLine."Line Amount" / ExchangeFactor);
// Add the following line.
SetTaxBaseAmount(TempSalesTaxLine,ServCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE);
// End of the added line.
Quantity := Quantity + ServCrMemoLine.Quantity;
IF ServCrMemoLine."Tax Liable" THEN
"Tax Liable" := ServCrMemoLine."Tax Liable";
InsertRec := FALSE;
... -
Adicione uma função SetTaxBaseAmount de Codeunit do calcular o imposto sobre vendas (398) da seguinte forma:
LOCAL PROCEDURE SetTaxBaseAmount@1020031(VAR SalesTaxAmountLine@1020001 : Record 10011;Value@1020000 : Decimal;ExchangeFactor@1020002 : Decimal;Increment@1020003 : Boolean); BEGIN
WITH SalesTaxAmountLine DO BEGIN
IF Increment THEN
"Tax Base Amount FCY" += Value
ELSE
"Tax Base Amount FCY" := Value;
"Tax Base Amount" := "Tax Base Amount FCY" / ExchangeFactor;
END;
END;
Pré-requisitos:
Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:
-
A versão norte-americana do Microsoft Dynamics NAV 2009 R2
-
A versão norte-americana do Microsoft Dynamics NAV 2009 Service Pack 1
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 uso para outras considerações.
