Kada knjižite uplatu radi primjene fakture, na kojoj je upotrijebljen "Puni PDV" koristi se netočan račun glavne knjige ako je postavka "Prilagodi popust za plaćanje" omogućena na obrascu "Postavljanje glavne knjige" u sustavu Microsoft Dynamics NAV 2009

Primjenjuje se na
Dynamics NAV 2009 Dynamics NAV 2009 Service Pack 1

Brzo objavljeni članci pružaju informacije izravno iz Microsoftove službe za podršku. Informacije koje su sadržane u ovom dokumentu stvorene su kao odgovor na nove ili jedinstvene teme ili su namijenjene kao dopuna drugim informacijama iz baze znanja.

Ovaj se članak odnosi na NAV sustava Microsoft Dynamics za sve države i regionalne sheme na svim jezicima.

Simptomi

Pretpostavimo da je potvrđen okvir Prilagodi popustu za plaćanje na kartici Općenito u obrascu Postavljanje glavne knjige u sustavu Microsoft Dynamics NAV 2009. Ako proknjižite uplatu radi primjene fakture za koju je upotrijebljen "Puni PDV" i odbijete popust za plaćanje gdje morate prilagoditi PDV za popust na plaćanje, koristi se pogrešan račun za glavnu knjigu. Unos za prilagodbu "Punog PDV-a" registrira se za debitni račun s popustom za plaćanje umjesto kreditnog računa s popustom za plaćanje u glavnim unosima.

Rješenje

Informacije o hitnom popravku

Microsoft sada nudi podržani hitni popravak. No njegova je namjena samo ispravljanje problema opisanog u ovom članku. Primijenite ga samo na sustave koji imaju taj specifični problem. Ovaj hitni popravak može proći dodatna testiranja. Stoga, ako se ovaj problem ne odnosi ozbiljno, preporučujemo da pričekate sljedeći servisni paket za Microsoft Dynamics NAV ili sljedeću verziju koja sadrži ovaj hitni popravak.

Napomena: U posebnim slučajevima, ako stručnjak tehničke podrške za Microsoft Dynamics i povezane proizvode utvrdi da određeno ažuriranje može riješiti problem, poziv službi podrške može biti besplatan. Uobičajene cijene poziva službi za podršku primjenjuju se na dodatna pitanja i probleme koje nemaju veze s pripadnom nadopunom.

            
          

Informacije o instalaciji

Microsoft daje primjere programiranja samo za ilustraciju, bez jamstva, bilo izričitog ili prešutnog. To uključuje, bez ograničenja, implicitna jamstva utrživosti ili prikladnosti za određenu svrhu. U članku se podrazumijeva da ste upoznati s programskim jezikom koji se pokazuje te s alatima koji se koriste za stvaranje i ispravljanje pogrešaka procedura. Microsoftovi inženjeri za podršku mogu vam pomoći objasniti funkcionalnost određene procedure, no neće mijenjati te primjere radi pružanja dodatne funkcionalnosti ili konstruirati procedure koji zadovoljavaju vaše specifične zahtjeve.

Napomena Prije nego što instalirate ovaj hitni popravak, provjerite jesu li svi korisnici Microsoft Navision klijenta odjavljeni sa sustava. To obuhvaća korisnike klijentskih usluga Microsoft Navision Application Services (NAS). Trebali biste biti jedini klijentski korisnik prijavljen na vrijeme implementacije ovog hitnog popravka.

Da biste implementirali ovaj hitni popravak, morate imati licencu za razvojne inženjere.

Preporučujemo da se korisničkom računu u prozoru Prijave u sustav Windows ili u prozoru Prijave u bazu podataka dodijeli ID uloge "SUPER". Ako korisničkom računu nije moguće dodijeliti ID uloge "SUPER", morate provjeriti ima li korisnički račun sljedeće dozvole:

  • Dozvola za izmjenu objekta koji ćete mijenjati.
  • Dozvola za izvršavanje za objekt System Object ID 5210 i za objekt System Object ID 9015

                
Napomena: nemate pravo na spremišta podataka, osim ako morate popraviti podatke.

Promjene koda

Napomena: uvijek testirajte popravke koda u kontroliranom okruženju prije primjene popravaka na proizvodnim računalima.

Da biste instalirali taj hitni popravak, promijenite kod u naredbi Gen. Jnl.-Post Line kodna jedinica (12).

Slijedite korake u nastavku.

  1. Kod u funkciji PostDtldCustLedgEntries promijenite na sljedeći način:
    Postojeći kod 1

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Zamjenski kod 1

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                             (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                          THEN BEGIN
                            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Postojeći kod 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Postojeći kod 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Postojeći kod 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Postojeći kod 5

    …
                          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
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 5

    …
                          END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    
  2. Promijenite kod u funkciji AutoEntrForDtldCustLedgEntries na sljedeći način:
    Postojeći kod 1

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                    GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    

    Zamjenski kod 1

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                     (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                  THEN BEGIN
                    GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    
    

    Postojeći kod 2

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Zamjenski kod 2

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Postojeći kod 3

     …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Zamjenski kod 3

    …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    

    Postojeći kod 4

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Zamjenski kod 4

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    

    Postojeći kod 5

    …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    

    Zamjenski kod 5

    …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    
    
    
  3. Kod u funkciji PostDtldVendLedgEntries promijenite na sljedeći način:
    Postojeći kod 1

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                            GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Zamjenski kod 1

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                             (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                          THEN BEGIN
                            GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Postojeći kod 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Postojeći kod 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Postojeći kod 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Postojeći kod 5

    …
                          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
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Zamjenski kod 5

    …
                          END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    
  4. Kod u funkciji AutoEntrForDtldVendLedgEntries promijenite na sljedeći način:
    Postojeći kod 1

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                    GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    

    Zamjenski kod 1

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                     (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                  THEN BEGIN
                    GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    

    Postojeći kod 2

    …
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Zamjenski kod 2

    …
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Postojeći kod 3

    …
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Zamjenski kod 3

    …
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

    Postojeći kod 4

    …
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

    Zamjenski kod 4

    …
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

    Postojeći kod 5

    …
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Zamjenski kod 5

    …
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

Preduvjeti

Da biste primijenili ovaj hitni popravak, morate imati instaliran servisni paket Microsoft Dynamics NAV 2009 Service Pack 1.

Podaci o uklanjanju

Ovaj hitni popravak ne možete ukloniti.

Status

Microsoft je potvrdio da je to problem u Microsoftovim proizvodima koji su navedeni u odjeljku „Odnosi se na“.

MICROSOFT I/ILI NJEGOVI DOBAVLJAČI NE DAJU NIKAKVE IZJAVE NITI JAMSTVA U POGLEDU PRIKLADNOSTI, POUZDANOSTI ILI TOČNOSTI INFORMACIJA SADRŽANIH U DOKUMENTIMA I POVEZANOJ GRAFICI OBJAVLJENOJ NA OVOM WEB-MJESTU ("MATERIJALI") U BILO KOJU SVRHU.

MATERIJALI MOGU SADRŽAVATI TEHNIČKE NETOČNOSTI ILI TIPOGRAFSKE POGREŠKE I MOGU SE REVIDIRATI U BILO KOJEM TRENUTKU BEZ PRETHODNE OBAVIJESTI. U NAJVEĆOJ MJERI DOPUŠTENOJ MJERODAVNIM ZAKONOM, MICROSOFT I/ILI NJEGOVI DOBAVLJAČI ODRIČU SE I ISKLJUČUJU SVE IZJAVE, JAMSTVA I UVJETE, BILO IZRIČITE, IMPLICIRANE ILI ZAKONSKE, UKLJUČUJUĆI, ALI NE OGRANIČAVAJUĆI SE NA IZJAVE, JAMSTVA ILI UVJETE VLASNIŠTVA, NEPOVREDIVOSTI, ZADOVOLJAVAJUĆEG STANJA ILI KVALITETE, UTRŽIVOSTI I PRIKLADNOSTI ZA POSEBNU SVRHU U VEZI S MATERIJALIMA.