In questo articolo si applica a Microsoft per i seguenti paesi e lingue.
-
Inglese (Canada) (en-ca)
-
Inglese (Stati Uniti) (en-us)
-
Spagnolo (Messico) (es-mx)
-
Francese (Canada) (fr-ca)
Sintomi
Si supponga di impostata CAD come valore di valuta addizionale nel Setup contabilità generale la finestra di dialogo nella versione di Microsoft Dynamics NAV 2009 del Nord America. Quando si registra una fattura di acquisto contenente l'IVA, viene visualizzato il seguente messaggio di errore:
Impossibile completare la transazione perché sarebbe causa di incongruenze nella tabella movimenti C/G. Verifica dove e come la funzione CONSISTENT nella transazione per individuare il motivo dell'errore.
Questo problema si verifica nei seguenti prodotti:
-
La versione nordamericana di Microsoft Dynamics NAV 2009 R2
-
La versione nordamericana del Service Pack 1 di Microsoft Dynamics NAV 2009
Risoluzione
Informazioni sull'hotfix
Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.
Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.
Informazioni sull'installazione
Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. I tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun caso possono modificare questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.
Nota: Prima di installare questo hotfix, verificare che tutti gli utenti di client Microsoft Navision siano disconnessi dal sistema. Include gli utenti client Microsoft Navision Application Services (NAS). Dovrebbe essere il solo l'utente client connesso quando si implementa questo hotfix.
Per implementare questo hotfix, è necessario disporre di una licenza di sviluppatore.
È consigliabile che l'account utente nella finestra Login Windows o Login Database assegnare l'ID di ruolo "SUPER". Se l'account utente non può essere assegnato l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:
-
Autorizzazione alla modifica dell'oggetto che si desidera modificare.
-
L'autorizzazione di esecuzione per l'oggetto System Object ID 5210 e object ID 9015 oggetto di sistema .
Nota: Non è necessario disporre dei diritti per gli archivi dati a meno che non è necessario eseguire il ripristino di dati.
Modifiche al codice
Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.
Per risolvere questo problema, attenersi alla seguente procedura:
-
Modificare il codice nei campi nella tabella Righe importo IVA (10011) come segue:
Codice esistente...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;
...Codice di sostituzione
...
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;
... -
Modificare il codice nella funzione PostSalesTaxToGL della codeunit Vendite-Registra (80) come segue:
Codice esistente...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";
...Codice di sostituzione
...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";
... -
Modificare il codice nella funzione PostSalesTaxToGL Purch.-Codeunit Post (90) come segue:
Codice esistente...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";
...Codice di sostituzione
...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";
... -
Modificare il codice nella funzione PostProvincialSalesTaxToGL Purch.-Codeunit Post (90) come segue:
Codice esistente...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;
...Codice di sostituzione
...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;
... -
Modificare il codice nella funzione AddSalesLine nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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";
...Codice sostitutivo 1
..."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";
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddSalesInvoiceLines nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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;
...Codice sostitutivo 1
..."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;
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddSalesCrMemoLines nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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;
...Codice sostitutivo 1
..."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;
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddPurchLine nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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";
...Codice sostitutivo 1
..."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";
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddPurchInvoiceLines nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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";
...Codice sostitutivo 1
..."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";
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddPurchCrMemoLines nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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";
...Codice sostitutivo 1
..."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";
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddServiceLine nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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";
...Codice sostitutivo 1
..."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";
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddServInvoiceLines nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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;
...Codice sostitutivo 1
..."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;
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Modificare il codice nella funzione AddServCrMemoLines nella Codeunit di calcolare IVA (398) come segue:
Codice esistente 1..."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";
...Codice sostitutivo 1
..."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";
...Codice esistente 2
...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;
...Codice di sostituzione 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;
... -
Aggiungere una funzione SetTaxBaseAmount nella Codeunit di calcolare IVA (398) come segue:
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;
Prerequisiti
Deve avere uno dei seguenti prodotti per applicare questo hotfix:
-
La versione nordamericana di Microsoft Dynamics NAV 2009 R2
-
La versione nordamericana del Service Pack 1 di Microsoft Dynamics NAV 2009
Informazioni sulla rimozione
Non è possibile rimuovere questo hotfix.
Stato
Microsoft ha confermato che questo è un problema dei prodotti Microsoft elencati nella sezione "Si applica a".
Nota: Si tratta di un articolo a "Pubblicazione Veloce" creato direttamente all'interno dell'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento sono fornite così come sono in risposta a problemi urgenti. Per la velocità in rendendo disponibili, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni di utilizzo .
