Ett felaktigt redovisningskonto används för betalningstoleranser när kryssrutan Betalningstoleransvarning är markerad i dialogrutan Konfigurera redovisning i Microsoft Dynamics NAV

Gäller för

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1 Microsoft Dynamics NAV 5.0

Den här artikeln gäller Microsoft Dynamics NAV för alla länder och alla språkspråk.

Symptom

Anta att du klickar för att markera kryssrutan Betalningstoleransvarning i dialogrutan Konfiguration av redovisning i Microsoft Dynamics NAV. När du publicerar en kundbetalningsdagbok eller en leverantörsbetalningsdagbok som har en tolerans för betalningsrabatt och betalningstolerans används debiteringskontot eller kreditkontot för betalningstoleransen och betalningsrabatterna felaktigt i redovisningstransaktionerna. I vissa fall registreras betalningstoleransbeloppet för debetkontot även om kreditkontot ska användas i huvudbokstransaktionerna.
Det här problemet uppstår i följande produkter:

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Microsoft Dynamics NAV 5.0

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 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 funktionaliteten i en viss procedur, men de ändrar inte de här exemplen för att tillhandahålla ytterligare funktioner eller konstruera procedurer 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:

Ändra koden i funktionen PostDtldVendLedgEntries i genen. Jnl.-Post Line codeunit (12) enligt följande:
Befintlig kod 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Ersättningskod 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Befintlig kod 2

… 
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Ersättningskod 2

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc.";
      END;
    END ELSE IF GLSetup."Payment Tolerance Posting" =
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
    THEN BEGIN
      IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc.";
      END ELSE BEGIN
        VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
        PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc.";
…

Ändra koden i funktionen AutoEntrForDtldVendLedgEntries i genen. Jnl.-Post Line codeunit (12) enligt följande:
Befintlig kod 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
          END;
        END;
      GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
            AccNo := VendPostingGr."Payment Disc. Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
            AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Ersättningskod 1

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance":
  BEGIN
    CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
        GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
          BEGIN
            IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
              VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
              AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
            END ELSE BEGIN
              VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
              AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
            END;
          END;
        GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
          BEGIN
            IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
              VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
              AccNo := VendPostingGr."Payment Disc. Debit Acc.";
            END ELSE BEGIN
              VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
              AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Befintlig kod 2

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    CASE GLSetup."Payment Tolerance Posting" OF
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
          END;
        END;
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
        BEGIN
          IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
            AccNo := VendPostingGr."Payment Disc. Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
            AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Ersättningskod 2

…
DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance":
  BEGIN
    CASE GLSetup."Payment Tolerance Posting" OF
      GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
        BEGIN
          IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc.");
            AccNo := VendPostingGr."Payment Tolerance Credit Acc.";
          END;
        END;
      GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
        BEGIN
          IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Debit Acc.");
            AccNo := VendPostingGr."Payment Disc. Debit Acc.";
          END ELSE BEGIN
            VendPostingGr.TESTFIELD("Payment Disc. Credit Acc.");
            AccNo := VendPostingGr."Payment Disc. Credit Acc.";
…

Krav

Du måste ha någon av följande produkter installerade för att kunna använda den här snabbkorrigeringen:

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Microsoft Dynamics NAV 5.0

Information om borttagning

Du kan inte ta bort den här snabbkorrigeringen.

Om du vill ha mer information klickar du på följande artikelnummer för att visa artikeln i Microsoft Knowledge Base:

981697 Ett felaktigt G/L-konto används när du bokför en betalning för att tillämpa en faktura där "Fullständig moms" användes om inställningen "Justera för betalningsrabatt" är aktiverad i formuläret "Konfiguration av redovisning" i Microsoft Dynamics NAV 2009

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.