Het foutbericht 'De transactie kan niet worden voltooid omdat deze inconsistenties veroorzaakt in de tabel groot-l-invoer' wanneer u een vooruitbetalingsfactuur boekt in Microsoft Dynamics NAV 2009

Van toepassing op
Dynamics NAV 2009

Dit artikel is van toepassing op Microsoft Dynamics NAV voor alle landen en taalinstellingen.

Symptomen

Stel dat u de waarde 0,001 instelt in het veld Precisie van het afronden van de hoeveelheid voor een vreemde valuta in een bedrijf. Wanneer u een vooruitbetalingsfactuur boekt die gebruikmaakt van de vreemde valuta, ontvangt u het volgende foutbericht:

Opmerking

De transactie kan niet worden voltooid omdat deze inconsistenties veroorzaakt in de tabel G/L-vermelding. Controleer waar en hoe de functie CONSISTENT wordt gebruikt in de transactie om de reden voor de fout te vinden. Neem contact op met de systeembeheerder.
Tabellen kunnen als inconsistent worden gemarkeerd tijdens uitgebreide taken, zoals posten. Dit voorkomt dat gegevens onjuist worden bijgewerkt.

De consistentiefout treedt op omdat de debet en het tegoed voor de aanvullende rapportagevaluta (ARC) niet overeenkomen. Daarom komen de debet en het tegoed voor de lokale valuta (LCY) overeen zoals verwacht.
Dit probleem treedt op als het bedrijf bestaande vermeldingen heeft.

Dit probleem treedt op in de volgende producten:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Oplossing

Hotfix-informatie

Er is nu een ondersteunde hotfix beschikbaar bij Microsoft. Het is echter alleen bedoeld om het probleem op te lossen dat in dit artikel wordt beschreven. Pas deze alleen toe op systemen die dit specifieke probleem ondervinden. Deze hotfix kan aanvullende tests ontvangen. Als u niet ernstig last hebt van dit probleem, raden we u aan te wachten op het volgende Microsoft Dynamics NAV 2009-servicepack of de volgende Microsoft Dynamics NAV-versie die deze hotfix bevat.

Opmerking In speciale gevallen kunnen kosten die gewoonlijk worden gemaakt voor ondersteuningsoproepen worden geannuleerd als een technische ondersteuningsmedewerker voor Microsoft Dynamics en gerelateerde producten vaststelt dat een specifieke update uw probleem oplost. De gebruikelijke ondersteuningskosten zijn van toepassing op aanvullende ondersteuningsvragen en problemen die niet in aanmerking komen voor de specifieke update in kwestie.

            
          

Installatie-informatie

Microsoft biedt programmeervoorbeelden uitsluitend ter illustratie, zonder uitdrukkelijke of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningstechnici kunnen helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten.

Opmerking Voordat u deze hotfix installeert, controleert u of alle Microsoft Navision-clientgebruikers zijn afgemeld bij het systeem. Dit geldt ook voor gebruikers van Microsoft Navision Application Services (NAS). U moet de enige clientgebruiker zijn die is aangemeld wanneer u deze hotfix implementeert.

Als u deze hotfix wilt implementeren, moet u een ontwikkelaarslicentie hebben.

We raden u aan om aan het gebruikersaccount in het venster Windows-aanmeldingen of in het venster Databaseaanmeldingen de rol-id 'SUPER' toe te wijzen. Als de rol-id 'SUPER' niet kan worden toegewezen aan het gebruikersaccount, moet u controleren of het gebruikersaccount de volgende machtigingen heeft:

  • De machtiging Wijzigen voor het object dat u gaat wijzigen.
  • De machtiging Uitvoeren voor het object Systeemobject-id 5210 en voor het object Systeemobject-id 9015.

                
Opmerking U hoeft geen rechten te hebben voor de gegevensarchieven, tenzij u gegevensherstel moet uitvoeren.

Codewijzigingen

Opmerking Test altijd codecorrecties in een beheerde omgeving voordat u de correcties toepast op uw productiecomputers.
Voer de volgende stappen uit om dit probleem op te lossen:

  1. Wijzig de code in de OnRun-trigger in de Sales-Post code-eenheid (80) als volgt:
    Bestaande code

    ...
GenJnlLine."External Document No." := GenJnlLineExtDocNo;
GenJnlLine."Currency Code" := "Currency Code";
GenJnlLine.Amount := -TotalSalesLine."Amount Including VAT";
GenJnlLine."Source Currency Code" := "Currency Code";
GenJnlLine."Source Currency Amount" := -TotalSalesLine."Amount Including VAT";

// Delete the following line.
GenJnlLine."Amount (LCY)" := -TotalSalesLineLCY."Amount Including VAT";

IF SalesHeader."Currency Code" = '' THEN
GenJnlLine."Currency Factor" := 1
ELSE
GenJnlLine."Currency Factor" := SalesHeader."Currency Factor";
GenJnlLine.Correction := Correction;
...
IF SalesLine."Qty. to Invoice" <> 0 THEN BEGIN
SalesLine."Prepmt Amt Deducted" :=
SalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct";
SalesLine."Prepmt VAT Diff. Deducted" :=
SalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct";

// Delete the following lines.
IF "Currency Code" <> '' THEN BEGIN
TempPrePayDeductLCYSalesLine := SalesLine;
IF TempPrePayDeductLCYSalesLine.FIND THEN
SalesLine."Prepmt. Amount Inv. (LCY)" := SalesLine."Prepmt. Amount Inv. (LCY)" -
TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)";
END ELSE
SalesLine."Prepmt. Amount Inv. (LCY)" :=
ROUND(
ROUND(
ROUND(SalesLine."Unit Price" * (SalesLine.Quantity - SalesLine."Quantity Shipped"),
Currency."Amount Rounding Precision") *
(1 - SalesLine."Line Discount %" / 100),Currency."Amount Rounding Precision") *
SalesLine."Prepayment %" / 100,Currency."Amount Rounding Precision");
// End of the lines.

SalesLine."Prepmt Amt to Deduct" :=
SalesLine."Prepmt. Amt. Inv." - SalesLine."Prepmt Amt Deducted";
SalesLine."Prepmt VAT Diff. to Deduct" := 0;
END;
END;
...
IF ABS(TempSalesLine."Quantity Invoiced") > ABS(TempSalesLine."Quantity Shipped") THEN
ERROR(
Text014,
TempSalesLine."Document No.");
TempSalesLine.InitQtyToInvoice;

// Delete the following lines.
TempSalesLine."Prepmt Amt Deducted" := TempSalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct";
TempSalesLine."Prepmt VAT Diff. Deducted" :=
TempSalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct";
IF "Currency Code" <> '' THEN BEGIN
TempPrePayDeductLCYSalesLine := SalesLine;
IF TempPrePayDeductLCYSalesLine.FIND THEN
TempSalesLine."Prepmt. Amount Inv. (LCY)" := TempSalesLine."Prepmt. Amount Inv. (LCY)" -
TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)";
END ELSE
TempSalesLine."Prepmt. Amount Inv. (LCY)" := TempSalesLine."Prepmt. Amount Inv. (LCY)" -
SalesLine."Prepmt Amt to Deduct";
IF (TempSalesLine."Quantity Invoiced" = TempSalesLine.Quantity) AND
(TempSalesLine."Prepayment %" <> 0) THEN
PrepayRealizeGainLoss(TempSalesLine);
TempSalesLine."Prepmt Amt to Deduct" := TempSalesLine."Prepmt. Amt. Inv." - TempSalesLine."Prepmt Amt Deducted";
TempSalesLine."Prepmt VAT Diff. to Deduct" := 0;
// End of the lines.

TempSalesLine.InitOutstanding;
IF (TempSalesLine."Purch. Order Line No." <> 0) AND
(TempSalesLine.Quantity = TempSalesLine."Quantity Invoiced")
THEN
UpdateAssocLines(TempSalesLine);
...
InsertTrackingSpecification;
IF SalesLine.FINDSET THEN
REPEAT
IF SalesLine."Purch. Order Line No." <> 0 THEN
UpdateAssocLines(SalesLine);

// Delete the following lines.
IF (SalesLine."Prepayment %" <> 0) THEN BEGIN
IF "Currency Code" <> '' THEN BEGIN
TempPrePayDeductLCYSalesLine := SalesLine;
IF TempPrePayDeductLCYSalesLine.FIND THEN
SalesLine."Prepmt. Amount Inv. (LCY)" := SalesLine."Prepmt. Amount Inv. (LCY)" -
TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)";
END ELSE
SalesLine."Prepmt. Amount Inv. (LCY)" := SalesLine."Prepmt. Amount Inv. (LCY)" - SalesLine."Prepmt Amt to Deduct";
PrepayRealizeGainLoss(SalesLine);
END;
// End of the lines.

UNTIL SalesLine.NEXT = 0;
END;
END;

SalesLine.SETFILTER("Blanket Order Line No.",'<>0');
...

    Vervangende code

    ...
GenJnlLine."External Document No." := GenJnlLineExtDocNo;
GenJnlLine."Currency Code" := "Currency Code";
GenJnlLine.Amount := -TotalSalesLine."Amount Including VAT";
GenJnlLine."Source Currency Code" := "Currency Code";
GenJnlLine."Source Currency Amount" := -TotalSalesLine."Amount Including VAT";

// Add the following line.
GenJnlLine."Amount (LCY)" := ROUND(-TotalSalesLineLCY."Amount Including VAT",GLSetup."Amount Rounding Precision");

IF SalesHeader."Currency Code" = '' THEN
GenJnlLine."Currency Factor" := 1
ELSE
GenJnlLine."Currency Factor" := SalesHeader."Currency Factor";
GenJnlLine.Correction := Correction;
...
IF SalesLine."Qty. to Invoice" <> 0 THEN BEGIN
SalesLine."Prepmt Amt Deducted" :=
SalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct";
SalesLine."Prepmt VAT Diff. Deducted" :=
SalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct";

// Add the following line.
DecrementPrepmtAmtInvLCY(SalesLine,SalesLine."Prepmt. Amount Inv. (LCY)");

SalesLine."Prepmt Amt to Deduct" :=
SalesLine."Prepmt. Amt. Inv." - SalesLine."Prepmt Amt Deducted";
SalesLine."Prepmt VAT Diff. to Deduct" := 0;
END;
END;
...
IF ABS(TempSalesLine."Quantity Invoiced") > ABS(TempSalesLine."Quantity Shipped") THEN
ERROR(
Text014,
TempSalesLine."Document No.");
TempSalesLine.InitQtyToInvoice;

// Add the following lines.
IF TempSalesLine."Prepayment %" <> 0 THEN BEGIN
TempSalesLine."Prepmt Amt Deducted" := TempSalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct";
TempSalesLine."Prepmt VAT Diff. Deducted" :=
TempSalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct";
DecrementPrepmtAmtInvLCY(SalesLine,TempSalesLine."Prepmt. Amount Inv. (LCY)");
TempSalesLine."Prepmt Amt to Deduct" := TempSalesLine."Prepmt. Amt. Inv." - TempSalesLine."Prepmt Amt Deducted";
TempSalesLine."Prepmt VAT Diff. to Deduct" := 0;
END;
// End of the lines.

TempSalesLine.InitOutstanding;
IF (TempSalesLine."Purch. Order Line No." <> 0) AND
(TempSalesLine.Quantity = TempSalesLine."Quantity Invoiced")
THEN
UpdateAssocLines(TempSalesLine);
...
InsertTrackingSpecification;
IF SalesLine.FINDSET THEN
REPEAT
IF SalesLine."Purch. Order Line No." <> 0 THEN
UpdateAssocLines(SalesLine);

// Add the following lines.
IF (SalesLine."Prepayment %" <> 0) THEN
DecrementPrepmtAmtInvLCY(SalesLine,SalesLine."Prepmt. Amount Inv. (LCY)");
// End of the lines.

UNTIL SalesLine.NEXT = 0;
END;
END;

SalesLine.SETFILTER("Blanket Order Line No.",'<>0');
...

  2. Wijzig de code in de functie FillInvPostingBuffer in de Sales-Post codeunit (80) als volgt:
    Bestaande code

    ...
TempDocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
TempDocDim.SETRANGE("Line No.",SalesLine."Line No.");
TotalVAT := SalesLine."Amount Including VAT" - SalesLine.Amount;
TotalVATACY := SalesLineACY."Amount Including VAT" - SalesLineACY.Amount;

// Delete the following line.
TotalAmount := SalesLine.Amount;

TotalAmountACY := SalesLineACY.Amount;

IF SalesSetup."Discount Posting" IN
[SalesSetup."Discount Posting"::"Invoice Discounts",SalesSetup."Discount Posting"::"All Discounts"] THEN BEGIN
IF SalesLine."VAT Calculation Type" = SalesLine."VAT Calculation Type"::"Reverse Charge VAT" THEN
...

    Vervangende code

    ...
TempDocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
TempDocDim.SETRANGE("Line No.",SalesLine."Line No.");
TotalVAT := SalesLine."Amount Including VAT" - SalesLine.Amount;
TotalVATACY := SalesLineACY."Amount Including VAT" - SalesLineACY.Amount;

// Add the following line.
TotalAmount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision");

TotalAmountACY := SalesLineACY.Amount;

IF SalesSetup."Discount Posting" IN
[SalesSetup."Discount Posting"::"Invoice Discounts",SalesSetup."Discount Posting"::"All Discounts"] THEN BEGIN
IF SalesLine."VAT Calculation Type" = SalesLine."VAT Calculation Type"::"Reverse Charge VAT" THEN
...

  3. Voeg als volgt een nieuwe functie DecrementPrepmtAmtInvLCY toe aan de code-eenheid Sales-Post (80):

    LOCAL PROCEDURE DecrementPrepmtAmtInvLCY@86(SalesLine@1000 : Record 37;VAR PrepmtAmountInvLCY@1001 : Decimal);

TempPrePayDeductLCYSalesLine := SalesLine;
IF TempPrePayDeductLCYSalesLine.FIND THEN
PrepmtAmountInvLCY := PrepmtAmountInvLCY - TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)";

  4. Wijzig de code in de OnRun-trigger in de Purch.-Post codeunit (90) als volgt:
    Bestaande code

    ...
GenJnlLine."External Document No." := GenJnlLineExtDocNo;
GenJnlLine."Currency Code" := "Currency Code";
GenJnlLine.Amount := -TotalPurchLine."Amount Including VAT";
GenJnlLine."Source Currency Code" := "Currency Code";
GenJnlLine."Source Currency Amount" := -TotalPurchLine."Amount Including VAT";

// Delete the following line.
GenJnlLine."Amount (LCY)" := -TotalPurchLineLCY."Amount Including VAT";

IF PurchHeader."Currency Code" = '' THEN
GenJnlLine."Currency Factor" := 1
ELSE
GenJnlLine."Currency Factor" := PurchHeader."Currency Factor";
GenJnlLine."Sales/Purch. (LCY)" := -TotalPurchLineLCY.Amount;
...
IF PurchLine."Qty. to Invoice" <> 0 THEN BEGIN
PurchLine."Prepmt Amt Deducted" :=
PurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct";
PurchLine."Prepmt VAT Diff. Deducted" :=
PurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct";

// Delete the following line.
IF "Currency Code" <> '' THEN BEGIN
TempPrePayDeductLCYPurchLine := PurchLine;
IF TempPrePayDeductLCYPurchLine.FIND THEN
PurchLine."Prepmt. Amount Inv. (LCY)" := PurchLine."Prepmt. Amount Inv. (LCY)" -
TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)";
END ELSE
PurchLine."Prepmt. Amount Inv. (LCY)" :=
ROUND(
ROUND(
ROUND(PurchLine."Direct Unit Cost" * (PurchLine.Quantity - PurchLine."Quantity Received"),
Currency."Amount Rounding Precision") *
(1 - PurchLine."Line Discount %" / 100),Currency."Amount Rounding Precision") *
PurchLine."Prepayment %" / 100,Currency."Amount Rounding Precision");
PurchLine."Prepmt Amt to Deduct" :=
PurchLine."Prepmt. Amt. Inv." - PurchLine."Prepmt Amt Deducted";
// End of the lines.

PurchLine."Prepmt VAT Diff. to Deduct" := 0;
END;
END;

UpdateBlanketOrderLine(PurchLine,Receive,Ship,Invoice);
...
Text018 +
Text99000000,
TempPurchLine."Sales Order No.");
END;
TempPurchLine.InitQtyToInvoice;

// Delete the following lines.
TempPurchLine."Prepmt Amt Deducted" := TempPurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct";
TempPurchLine."Prepmt VAT Diff. Deducted" :=
TempPurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct";
IF "Currency Code" <> '' THEN BEGIN
TempPrePayDeductLCYPurchLine := PurchLine;
IF TempPrePayDeductLCYPurchLine.FIND THEN
TempPurchLine."Prepmt. Amount Inv. (LCY)" := TempPurchLine."Prepmt. Amount Inv. (LCY)" -
TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)";
END ELSE
TempPurchLine."Prepmt. Amount Inv. (LCY)" := TempPurchLine."Prepmt. Amount Inv. (LCY)" -
PurchLine."Prepmt Amt to Deduct";
IF (TempPurchLine."Quantity Invoiced" = TempPurchLine.Quantity) AND
(TempPurchLine."Prepayment %" <> 0) THEN
PrepayRealizeGainLoss(TempPurchLine);
TempPurchLine."Prepmt Amt to Deduct" := TempPurchLine."Prepmt. Amt. Inv." - TempPurchLine."Prepmt Amt Deducted";
TempPurchLine."Prepmt VAT Diff. to Deduct" := 0;
// End of the lines.

TempPurchLine.InitOutstanding;
TempPurchLine.MODIFY;
END;
UNTIL PurchLine.NEXT = 0;
InsertTrackingSpecification;
...
PurchLine.SETRANGE("Return Shipment No.");
END;
ELSE
IF PurchLine.FINDSET THEN
REPEAT

// Delete the following lines.
IF (PurchLine."Prepayment %" <> 0) THEN BEGIN
IF "Currency Code" <> '' THEN BEGIN
TempPrePayDeductLCYPurchLine := PurchLine;
IF TempPrePayDeductLCYPurchLine.FIND THEN
PurchLine."Prepmt. Amount Inv. (LCY)" := PurchLine."Prepmt. Amount Inv. (LCY)" -
TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)";
END ELSE
PurchLine."Prepmt. Amount Inv. (LCY)" := PurchLine."Prepmt. Amount Inv. (LCY)" - PurchLine."Prepmt Amt to Deduct";
PrepayRealizeGainLoss(PurchLine);
END;
// End of the lines.

UNTIL PurchLine.NEXT = 0;
END;

PurchLine.SETFILTER("Blanket Order Line No.",'<>0');
IF PurchLine.FINDSET THEN
...

    Vervangende code

    ...
GenJnlLine."External Document No." := GenJnlLineExtDocNo;
GenJnlLine."Currency Code" := "Currency Code";
GenJnlLine.Amount := -TotalPurchLine."Amount Including VAT";
GenJnlLine."Source Currency Code" := "Currency Code";
GenJnlLine."Source Currency Amount" := -TotalPurchLine."Amount Including VAT";

// Add the following line.
GenJnlLine."Amount (LCY)" := ROUND(-TotalPurchLineLCY."Amount Including VAT",GLSetup."Amount Rounding Precision");

IF PurchHeader."Currency Code" = '' THEN
GenJnlLine."Currency Factor" := 1
ELSE
GenJnlLine."Currency Factor" := PurchHeader."Currency Factor";
GenJnlLine."Sales/Purch. (LCY)" := -TotalPurchLineLCY.Amount;
...
IF PurchLine."Qty. to Invoice" <> 0 THEN BEGIN
PurchLine."Prepmt Amt Deducted" :=
PurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct";
PurchLine."Prepmt VAT Diff. Deducted" :=
PurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct";

// Add the following lines.
DecrementPrepmtAmtInvLCY(PurchLine,PurchLine."Prepmt. Amount Inv. (LCY)");
PurchLine."Prepmt Amt to Deduct" :=
PurchLine."Prepmt. Amt. Inv." - PurchLine."Prepmt Amt Deducted";
// End of the lines.

PurchLine."Prepmt VAT Diff. to Deduct" := 0;
END;
END;

UpdateBlanketOrderLine(PurchLine,Receive,Ship,Invoice);
...
Text018 +
Text99000000,
TempPurchLine."Sales Order No.");
END;
TempPurchLine.InitQtyToInvoice;

// Add the following lines.
IF TempPurchLine."Prepayment %" <> 0 THEN BEGIN
TempPurchLine."Prepmt Amt Deducted" := TempPurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct";
TempPurchLine."Prepmt VAT Diff. Deducted" :=
TempPurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct";
DecrementPrepmtAmtInvLCY(PurchLine,TempPurchLine."Prepmt. Amount Inv. (LCY)");
TempPurchLine."Prepmt Amt to Deduct" := TempPurchLine."Prepmt. Amt. Inv." - TempPurchLine."Prepmt Amt Deducted";
TempPurchLine."Prepmt VAT Diff. to Deduct" := 0;
END;
// End of the lines.

TempPurchLine.InitOutstanding;
TempPurchLine.MODIFY;
END;
UNTIL PurchLine.NEXT = 0;
InsertTrackingSpecification;
...
// Add the following lines.
IF (PurchLine."Prepayment %" <> 0) THEN
DecrementPrepmtAmtInvLCY(PurchLine,PurchLine."Prepmt. Amount Inv. (LCY)");
// End of the lines.
...

  5. Wijzig de code in de functie FillInvPostingBuffer in de Purch.-Post codeunit (90) als volgt:
    Bestaande code

    ...
TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
TempDocDim.SETRANGE("Line No.",PurchLine."Line No.");
TotalVAT := PurchLine."Amount Including VAT" - PurchLine.Amount;
TotalVATACY := PurchLineACY."Amount Including VAT" - PurchLineACY.Amount;

// Delete the following line.
TotalAmount := PurchLine.Amount;

TotalAmountACY := PurchLineACY.Amount;

IF PurchSetup."Discount Posting" IN
[PurchSetup."Discount Posting"::"Invoice Discounts",PurchSetup."Discount Posting"::"All Discounts"] THEN BEGIN
CASE PurchLine."VAT Calculation Type" OF
...

    Vervangende code

    ...
TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
TempDocDim.SETRANGE("Line No.",PurchLine."Line No.");
TotalVAT := PurchLine."Amount Including VAT" - PurchLine.Amount;
TotalVATACY := PurchLineACY."Amount Including VAT" - PurchLineACY.Amount;

// Add the following line.
TotalAmount := ROUND(PurchLine.Amount,GLSetup."Amount Rounding Precision");

TotalAmountACY := PurchLineACY.Amount;
TotalAmountACY := PurchLineACY.Amount;

IF PurchSetup."Discount Posting" IN
[PurchSetup."Discount Posting"::"Invoice Discounts",PurchSetup."Discount Posting"::"All Discounts"] THEN BEGIN
CASE PurchLine."VAT Calculation Type" OF
...

  6. Voeg als volgt een nieuwe functie DecrementPrepmtAmtInvLCY toe in de Purch.-Post codeunit (90):

    LOCAL PROCEDURE DecrementPrepmtAmtInvLCY@86(PurchLine@1000 : Record 39;VAR PrepmtAmountInvLCY@1001 : Decimal);

TempPrePayDeductLCYPurchLine := PurchLine;
IF TempPrePayDeductLCYPurchLine.FIND THEN
PrepmtAmountInvLCY := PrepmtAmountInvLCY - TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)";

  7. Wijzig de code in de functie RoundAmounts in de code-eenheid Sales-Post Vooruitbetalingen (442) als volgt:
    Bestaande code

    ...
IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,SalesHeader,DummySalesLine,FALSE,0);

IF SalesHeader."Currency Code" <> '' THEN BEGIN
VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT";

// Delete the following lines.
PrepmtInvLineBuf."Amount Incl. VAT" :=
AmountToLCY(
SalesHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT");
// End of the lines.

IF VAT THEN
PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100))
ELSE
PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT";
PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount;
IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN
PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount;
END;

IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,SalesHeader,DummySalesLine,FALSE,0);
...

    Vervangende code

    ...
IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,SalesHeader,DummySalesLine,FALSE,0);

IF SalesHeader."Currency Code" <> '' THEN BEGIN
VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT";

// Add the following lines.
PrepmtInvLineBuf."Amount Incl. VAT" :=
ROUND(
AmountToLCY(
SalesHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT"),
GLSetup."Amount Rounding Precision");
// End of the lines.

IF VAT THEN
PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100))
ELSE
PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT";
PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount;
IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN
PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount;
END;

IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,SalesHeader,DummySalesLine,FALSE,0);
...

  8. Wijzig de code in de functie InitInvoiceRoundingLine in de codeeenheid Sales-Post Vooruitbetalingen (442) als volgt:
    Bestaande code

    ...
"Unit Price",
ROUND(
InvoiceRoundingAmount /
(1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));
VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
END;
EXIT(TRUE);

    Vervangende code

    ...
"Unit Price",
ROUND(
InvoiceRoundingAmount /
(1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));

// Add the following line.
VALIDATE("Prepayment Amount",InvoiceRoundingAmount);

VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
END;
EXIT(TRUE);

  9. Wijzig de code in de functie RoundAmounts in de code-eenheid Purchase-Post Vooruitbetalingen (444) als volgt:
    Bestaande code

    ...
IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,PurchHeader,DummyPurchLine,FALSE,0);

IF PurchHeader."Currency Code" <> '' THEN BEGIN
VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT";

PrepmtInvLineBuf."Amount Incl. VAT" :=

// Delete the following lines.
AmountToLCY(
PurchHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT");
IF VAT THEN
PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100))
ELSE
PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT";
// End of the lines.

PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount;
IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN
PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount;
END;

IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,PurchHeader,DummyPurchLine,FALSE,0);
...

    Vervangende code

    ...
IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,PurchHeader,DummyPurchLine,FALSE,0);

IF PurchHeader."Currency Code" <> '' THEN BEGIN
VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT";

PrepmtInvLineBuf."Amount Incl. VAT" :=

// Add the following lines.
ROUND(
AmountToLCY(
PurchHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT"),
GLSetup."Amount Rounding Precision");
IF VAT THEN
PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100))
ELSE
PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT";
// End of the lines.

PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount;
IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN
PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount;
END;

IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,PurchHeader,DummyPurchLine,FALSE,0);
...

  10. Wijzig de code in de functie InitInvoiceRoundingLine in de code-eenheid Purchase-Post Vooruitbetalingen (444) als volgt:
    Bestaande code

    ...
"Direct Unit Cost",
ROUND(
InvoiceRoundingAmount /
(1 + (1 - PurchHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));
VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
END;
EXIT(TRUE);

    Vervangende code

    ...
"Direct Unit Cost",
ROUND(
InvoiceRoundingAmount /
(1 + (1 - PurchHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
Currency."Amount Rounding Precision"));

// Add the following line.
VALIDATE("Prepayment Amount",InvoiceRoundingAmount);

VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
END;
EXIT(TRUE);

Vereisten

U moet een van de volgende producten hebben geïnstalleerd om deze hotfix toe te passen:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1

Verwijderingsgegevens

U kunt deze hotfix niet verwijderen.

Status

Microsoft heeft bevestigd dat dit een probleem is bij de Microsoft-producten die worden vermeld in het gedeelte 'Van toepassing op'.

Opmerking Dit is een artikel 'FAST PUBLISH' dat rechtstreeks vanuit de microsoft-ondersteuningsorganisatie is gemaakt. De hierin opgenomen informatie wordt als zodanig verstrekt als reactie op nieuwe problemen. Als gevolg van de snelheid waarmee het beschikbaar wordt gesteld, kunnen de materialen typografische fouten bevatten en te allen tijde zonder voorafgaande kennisgeving worden herzien. Zie Gebruiksvoorwaarden voor andere overwegingen.