Avrundningen är felaktig och det slutliga beloppet är felaktigt när du använder betalningsmetoden med parametern Fakturarundningsprecision angivet i den ungerska versionen av Microsoft Dynamics NAV 2009 R2

Gäller för
Microsoft Dynamics NAV 2009 R2

Den här artikeln gäller Microsoft Dynamics NAV för språkspråket ungerska (hu).

Symptom

Anta att du använder betalningsmetoden med parametern Fakturarundningsprecision angivet i den ungerska versionen av Microsoft Dynamics NAV 2009 R2. Avrundningstypen är dessutom inställd på Närmaste. I det här fallet är avrundningen felaktig och det slutliga beloppet är felaktigt.

Lösning

Snabbkorrigeringsinformation

En snabbkorrigering som stöds är nu tillgänglig från Microsoft. Det är dock bara avsett att åtgärda problemet som beskrivs i den här artikeln. Använd den bara på system som har det här specifika problemet. Den här snabbkorrigeringen kan få ytterligare tester. Om du inte drabbas hårt av det här problemet rekommenderar vi därför att du väntar på nästa Microsoft Dynamics NAV 2009 Service Pack eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.

Obs! I särskilda fall kan avgifter som vanligtvis uppkommer för supportsamtal avbrytas om en teknisk supporttekniker för Microsoft Dynamics och relaterade produkter fastställer att en specifik uppdatering löser problemet. De vanliga supportkostnaderna gäller för ytterligare supportfrågor och problem som inte är berättigade till den aktuella uppdateringen.

          

Installationsinformation

Microsoft tillhandahåller endast programmeringsexempel i visningssyfte, utan att någon form av garanti uttrycks eller är underförstådd. Detta omfattar men är inte begränsat till underförstådda garantier för säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med programmeringsspråket som demonstreras och med de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionerna i en viss procedur. De kommer dock inte att ändra dessa exempel för att tillhandahålla ytterligare funktioner eller konstruktionsprocedurer för att uppfylla dina specifika krav.

Obs! Innan du installerar den här snabbkorrigeringen kontrollerar du att alla Microsoft Navision-klientanvändare loggas ut från systemet. Detta omfattar användare av Microsoft Navision Application Services (NAS). Du bör vara den enda klientanvändare som är inloggad när du implementerar snabbkorrigeringen.

Om du vill implementera den här snabbkorrigeringen måste du ha en utvecklarlicens.

Vi rekommenderar att användarkontot i fönstret Windows-inloggningar eller i fönstret Databasinloggningar tilldelas roll-ID:t "SUPER". Om användarkontot inte kan tilldelas superroll-ID måste du kontrollera att användarkontot har följande behörigheter:

  • Behörigheten Ändra för det objekt som du kommer att ändra.
  • Körbehörigheten för systemobjekt-ID 5210-objektet och för 9015-objektet Systemobjekt-ID.

                
Obs! Du behöver inte ha rättigheter till datakällorna om du inte behöver utföra datareparation.

Kodändringar

Obs! Testa alltid korrigeringar av kod i en kontrollerad miljö innan du tillämpar korrigeringarna på produktionsdatorerna.
Lös problemet genom att följa de här stegen:

  1. Lägg till en ny PrepmtAmtToDeduct( PricesIncludingVAT: Boolean; PrepaymentPct: Decimal) : Funktionen Decimal i tabellen Försäljningsrad (37). Gör följande:

    1. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: VATFactor
      • DataType: Decimal

    2. Lägg till koden på följande sätt:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  2. Ändra funktionen CalcPrepaymentToDeduct i tabellen Försäljningsrad (37). Gör följande:

    1. Ta bort följande lokala variabler:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. Lägg till följande lokala variabler:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. Ersätt koden på följande sätt:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  3. Lägg till en ny PrepmtAmtToDeduct( PricesIncludingVAT: Boolean; PrepaymentPct: Decimal) : Funktionen Decimal i tabellen Inköpsrad (39). Gör följande:

    1. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: VATFactor
      • DataType: Decimal

    2. Lägg till koden på följande sätt:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  4. Ändra funktionen CalcPrepaymentToDeduct i tabellen Försäljningsrad (37). Gör följande:

    1. Ta bort följande lokala variabler:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. Lägg till följande lokala variabler:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. Ersätt koden på följande sätt:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  5. Ändra koden i funktionen InitInvoiceRoundingLine i koduniten Sales-Post prepayments (442) enligt följande:
    Befintlig kod

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    Ersättningskod

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  6. Ändra koden i funktionen InsertLineRelation i koduniten Sales-Post prepayments (442) enligt följande:
    Befintlig kod

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    Ersättningskod

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  7. Ändra koden i funktionen InsertInvoiceRounding i koduniten Sales-Post prepayments (442) enligt följande:
    Befintlig kod

    ...
"G/L Account No." := SalesLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

    Ersättningskod

    ...
"G/L Account No." := SalesLine."No.";

// Add the following line
Description := SalesLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

  8. Ändra koden i funktionen InsertInvoiceRounding i koduniten Purchase-Post prepayments (444) enligt följande:
    Befintlig kod

    ...
"G/L Account No." := PurchLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

    Ersättningskod

    ...
"G/L Account No." := PurchLine."No.";

// Add the following line.
Description := PurchLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

  9. Ändra koden i funktionen InitInvoiceRoundingLine i koduniten Purchase-Post prepayments (444) enligt följande:
    Befintlig kod

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    Ersättningskod

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  10. Ändra koden i funktionen InsertLineRelation i koduniten Purchase-Post prepayments (444) enligt följande:
    Befintlig kod

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    Ersättningskod

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  11. Lägga till en ny LineRelationExists( LetterLine: Record 26586) : Boolean function in the Sales-Post Advances codeunit (26585). Gör följande:

    1. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: LineRelation
      • DataType: Post 26592

    2. Lägg till koden på följande sätt:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Sale);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  12. Add a new UpdateAmountToApply( LetterLine: Record 26592; Funktionen Vat LinkedAdvanceEntry: Record 21) i koduniten för Sales-Post Advances (26585). Gör följande:

    1. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: Länk
      • DataType: Post 26590

    2. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: CustLedgEntry
      • DataType: Post 21

    3. Lägg till koden på följande sätt:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF CustLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
CustLedgEntry.CALCFIELDS("Remaining Amount");
IF CustLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(CustLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := CustLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  13. Lägga till en ny AddRoundingLine( LetterLine: Record 26586; SalesInvHeader: Record 112; VARIANS LinkedAdvanceEntry: Record 21; LastLetterNo: Code [20]) : DeductedAmount: Decimal
     i koduniten för Sales-Post Framsteg (26585) enligt följande:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  14. Ändra koden i funktionen PostInvoiceCorrection i koduniten för Sales-Post Förflyttningar (26585) enligt följande:
    Befintlig kod

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(SalesHeader."No.");
// End of thelines.
...

    Ersättningskod

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
...

  15. Ändra koden i funktionen DeductRndLetterLines i koduniten för Sales-Post Advances (26585) enligt följande:
    Befintlig kod

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;

    Ersättningskod

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" = SalesLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,SalesInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

  16. Lägga till en ny LineRelationExists( LetterLine: Record 26588) (Post 26588) i koduniten Purchase-Post Advances (26586). Gör följande:

    1. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: LineRelation
      • DataType: Post 26592

    2. Lägg till koden på följande sätt:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Purchase);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  17. Add a new UpdateAmountToApply( LetterLine: Record 26588; Funktionen VARIANS LinkedAdvanceEntry: Record 25) i Purchase-Post Advances codeunit (26586). Gör följande:

    1. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: LetterLine
      • DataType: Post 26588

    2. Lägg till en lokal variabel och ange sedan variabeln enligt följande:

      • Namn: VendorLedgEntry
      • DataType: Post 25

    3. Lägg till koden på följande sätt:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF VendorLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
VendorLedgEntry.CALCFIELDS("Remaining Amount");
IF VendorLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(VendorLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := VendorLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  18. Lägg till en ny AddRoundingLine( LetterLine: Record 26588; PurchInvHeader: Spela in 122; VARIANS LinkedAdvanceEntry: Record 25; LastLetterNo: Code [20]) : DeductedAmount : Decimal function in the Purchase-Post Advances codeunit (26586) as follows:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  19. Ändra koden i funktionen PostInvoiceCorrection i koduniten för Purchase-Post Framsteg (26586) enligt följande:
    Befintlig kod

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(PurchHeader."No.");
// End of the lines.

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

    Ersättningskod

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

  20. Ta bort funktionen DeductRndLetterLines i koduniten Förflyttningar Purchase-Post (26586).

  21. Ändra koden i funktionen PostInvLineCorrection i koduniten för Purchase-Post Förflyttningar (26586) enligt följande:
    Befintlig kod

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;
...

    Ersättningskod

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" = PurchLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,PurchInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

Krav

Du måste ha den ungerska versionen av Microsoft Dynamics NAV 2009 R2 installerad för att kunna använda den här snabbkorrigeringen.

Information om borttagning

Du kan inte ta bort den här snabbkorrigeringen.

Status

Microsoft har bekräftat att detta är ett problem i de Microsoft-produkter som anges i avsnittet "Gäller".

Obs! Det här är en "FAST PUBLISH"-artikel som skapats direkt från Microsofts supportorganisation. Den information som finns häri tillhandahålls i befintligt format som svar på framväxande problem. Till följd av hur snabbt materialet blir tillgängligt kan materialet innehålla typografiska fel och kan komma att revideras när som helst utan föregående meddelande. Se användningsvillkor för andra överväganden.