Faiz tutarını uyarı mektubu raporunu Microsoft Dynamics NAV 2009 Yerli müşteriler için yanlış

Düzeltme bilgileri

Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.

Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.

Bu düzeltme genel karşıdan yükleme (Bu makalede bu düzeltme için genel bir URL sağlanmayan anlamına gelir) için nakledilmemişse, dağıtım için teknik lider, yükseltme ekibi üyesi veya yönetici onayı gerekir ve aşağıdaki bilgiler geçerlidir:

• Düzeltmeyi almak için müşterilerin "Belirtiler" bölümünde sözü edilen hata ile karşılaşmaları gerekir.

• Bunu gönderdiğiniz ve bir sonraki hizmet paketini (bir hizmet paketi yayımlanırsa) kullanılabilir duruma geldiğinde bunları tedarik müşterileri izlemeniz gerekir.

Bu düzeltmenin bir Microsoft Dynamics NAV hizmet paketine eklenmesi planlanmamıştır.

Yükleme bilgileri

Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.

Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Dynamics NAV istemci kullanıcıların sistem kaydedildiğini doğrulayın. Bu, Microsoft Dynamics NAV uygulama sunucusu (NAS) hizmetleri içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.

Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.

Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:

• Nesnenin, değiştirme değişiklik yapma izni.

• Sistem nesne kimliği 9015 ve Sistem nesnesi kimliği 5210 nesne için Execute izni
  
  nesne.

Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.

Kod değişiklikleri

Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.

Bu sorunu gidermek için şu adımları izleyin:

1. Uyarı mektubu raporunu (117) veri madde numarası 1 kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...IF ("Interest Amount" <> 0) AND ("VAT Amount" <> 0) THEN BEGIN
                                  GLAcc.GET(CustPostingGroup."Interest Account");
                                  VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
                                  VATInterest := VATPostingSetup."VAT %";
                                  Interest:=
   
   // Delete the following lines.
   (ReminderInterestAmount +
   "VAT Amount" +"Issued Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1);
   // End of the deleted lines.
   
                                END ELSE BEGIN
                                  Interest:= "Interest Amount";
                                  VATInterest := 0;
                                END;
   ...
   

   Kod değiştirme

   ...IF ("Interest Amount" <> 0) AND ("VAT Amount" <> 0) THEN BEGIN
                                  GLAcc.GET(CustPostingGroup."Interest Account");
                                  VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
                                  VATInterest := VATPostingSetup."VAT %";
                                  Interest:=
   
   // Add the following lines.
   Interest Amount" +
   "VAT Amount" + "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1);
   // End of the added lines.
   
                                END ELSE BEGIN
                                  Interest:= "Interest Amount";
                                  VATInterest := 0;
                                END;
   ...
   

2. Uyarı mektubu raporunu (117) veri madde numarası 4 kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...IF ISSERVICETIER THEN BEGIN
                                  NNC_InterestAmountTotal += ReminderInterestAmount;
                                  NNC_RemainingAmountTotal += "Remaining Amount";
                                  NNC_VATAmountTotal += "VAT Amount";
   
   // Delete the following lines.
   NNC_InterestAmount := (NNC_InterestAmountTotal + NNC_VATAmountTotal + "Issued Reminder Header"."Additional Fee" -
   AddFeeInclVAT) / (VATInterest / 100 + 1);
   // End of the deleted lines.
   
                                  NNC_Total := NNC_RemainingAmountTotal + NNC_InterestAmountTotal + NNC_VATAmountTotal - (NNC_InterestAmountTotal +
                                  NNC_VATAmountTotal + "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1) * VATInterest / 100 +
                                    "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT;
                                  NNC_VATAmount := (NNC_InterestAmountTotal + NNC_VATAmountTotal + "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT)/
                                    (VATInterest / 100 + 1) * (VATInterest / 100) + AddFeeInclVAT - "Issued Reminder Header"."Additional Fee";
   ...
   

   Kod değiştirme

   ...IF ISSERVICETIER THEN BEGIN
                                  NNC_InterestAmountTotal += ReminderInterestAmount;
                                  NNC_RemainingAmountTotal += "Remaining Amount";
                                  NNC_VATAmountTotal += "VAT Amount";
   
   // Add the following line.
   NNC_InterestAmount := Interest;
   // End of the added line.
   
                                  NNC_Total := NNC_RemainingAmountTotal + NNC_InterestAmountTotal + NNC_VATAmountTotal - (NNC_InterestAmountTotal +
                                  NNC_VATAmountTotal + "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1) * VATInterest / 100 +
                                    "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT;
                                  NNC_VATAmount := (NNC_InterestAmountTotal + NNC_VATAmountTotal + "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT)/
                                    (VATInterest / 100 + 1) * (VATInterest / 100) + AddFeeInclVAT - "Issued Reminder Header"."Additional Fee";
   ...
   

3. Uyarı mektubu raporunu (122) veri madde numarası 1 kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ... IF ("Interest Amount" <> 0) AND ("VAT Amount" <> 0) THEN BEGIN
                                  GLAcc.GET(CustPostingGroup."Interest Account");
                                  VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
                                  VATInterest := VATPostingSetup."VAT %";
                                  Interest :=
   
   // Delete the following line.
   (ReminderInterestAmount +
   // End of the deleted line.
   
                                      "VAT Amount" + "Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1);
                                END ELSE BEGIN
                                  Interest := "Interest Amount";
                                  VATInterest := 0;
                                END;
   ...
   

   Kod değiştirme

   ...IF ("Interest Amount" <> 0) AND ("VAT Amount" <> 0) THEN BEGIN
                                  GLAcc.GET(CustPostingGroup."Interest Account");
                                  VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
                                  VATInterest := VATPostingSetup."VAT %";
                                  Interest :=
   
   // Add the following line.
   ("Interest Amount" +
   // End of the added line.
   
                                      "VAT Amount" + "Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1);
                                END ELSE BEGIN
                                  Interest := "Interest Amount";
                                  VATInterest := 0;
                                END;
   ...
   

4. Uyarı mektubu raporunu (122) veri madde numarası 5 kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...NNC_RemAmtTotal += "Remaining Amount";
                                  NNC_VatAmtTotal += "VAT Amount";
                                  NNC_ReminderInterestAmt += ReminderInterestAmount;
   
   // Delete the following lines.
   NNC_Interest :=
   (NNC_ReminderInterestAmt + NNC_VatAmtTotal + "Reminder Header"."Additional Fee" - AddFeeInclVAT) /
   (VATInterest / 100 + 1);
   // End of the deleted lines.
   
                                  NNC_TotalLCY :=
                                    NNC_RemAmtTotal + NNC_ReminderInterestAmt + NNC_VatAmtTotal -
                                    (NNC_ReminderInterestAmt + NNC_VatAmtTotal + "Reminder Header"."Additional Fee" - AddFeeInclVAT) /
                                    (VATInterest / 100 + 1) * VATInterest / 100 + "Reminder Header"."Additional Fee" - AddFeeInclVAT;
   ...
   

   Kod değiştirme

   ...NNC_RemAmtTotal += "Remaining Amount";
                                  NNC_VatAmtTotal += "VAT Amount";
                                  NNC_ReminderInterestAmt += ReminderInterestAmount;
   
   // Add the following line.
   NNC_Interest := Interest;
   // End of the added line.
   
                                  NNC_TotalLCY :=
                                    NNC_RemAmtTotal + NNC_ReminderInterestAmt + NNC_VatAmtTotal -
                                    (NNC_ReminderInterestAmt + NNC_VatAmtTotal + "Reminder Header"."Additional Fee" - AddFeeInclVAT) /
                                    (VATInterest / 100 + 1) * VATInterest / 100 + "Reminder Header"."Additional Fee" - AddFeeInclVAT;
   ...
   
   

Önkoşullar

Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 SP1

Ayrıca, KB3009492 yüklü olması gerekir.

Kaldırma bilgileri

Bu düzeltmeyi kaldıramazsınız.