Uygulanan tutar yanlış Uygula müşteri olarak hesaplanır veya uygulanan satıcı girişleri sayfalarında Microsoft Dynamics NAV 2009

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.

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 test kodu düzeltmeleri denetimli bir ortamda üretim bilgisayarlarınıza onarımları uyguladıktan önce. Değişiklikleri uygulamadan önce lütfen tüm SEPA güncelleştirmeleri alın.

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

1. Müşteri Girişlerini Uygula formunda (232) Özellikleri'nde kod aşağıdaki gibi değiştirin:
   Varolan kodu

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
                        EXIT(FALSE);
                      END;
   ...
   

   Kod değiştirme

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
                        IF "Applies-to ID" <> xRec."Applies-to ID" THEN
                          CalcApplnAmount;
                        EXIT(FALSE);
                      END;
   ...
   

2. Müşteri Girişlerini Uygula formunda (232) HandlChosenEntries işlev kodu aşağıdaki gibi değiştirin:
   Varolan kodu 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
             AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
             IF Type = Type::Direct THEN
               CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
             ELSE
               CalculateCurrency := TRUE;
   
   
             IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
               AppliedCustLedgEntryTemp."Remaining Amount" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedCustLedgEntryTemp."Remaining Amount",
                   AppliedCustLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
                   AppliedCustLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedCustLedgEntryTemp."Amount to Apply" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedCustLedgEntryTemp."Amount to Apply",
                   AppliedCustLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
             END;
   
             CASE Type OF
               Type::Direct:
   ...
   

   Değiştirme kodu 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
   
             CASE Type OF
               Type::Direct:
   ...
   

   Varolan kodu 2

   ...END ELSE BEGIN
             AppliedCustLedgEntryTemp.SETRANGE(Positive);
             AppliedCustLedgEntryTemp.FINDFIRST;
           END;
   
           IF (OldPmtDisc <> PmtDiscAmount) THEN
   ...
   

   Değiştirme kodu 2

   ...END ELSE BEGIN
             AppliedCustLedgEntryTemp.SETRANGE(Positive);
             AppliedCustLedgEntryTemp.FINDFIRST;
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
           END;
   
           IF (OldPmtDisc <> PmtDiscAmount) THEN
   ...
   

3. Müşteri Girişlerini Uygula formunda (232) ExchangeAmountsOnLedgerEntry işlev kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...CheckRounding;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Kod değiştirme

   ...CheckRounding;
       END;
   
       LOCAL PROCEDURE ExchangeAmountsOnLedgerEntry@20(Type@1003 : 'Direct,GenJnlLine,SalesHeader';CurrencyCode@1000 : Code[10];VAR AppliedCustLedgEntryTemp@1001 : Record 21);
       VAR
         CalculateCurrency@1002 : Boolean;
       BEGIN
         AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
         IF Type = Type::Direct THEN
           CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
         ELSE
           CalculateCurrency := TRUE;
   
         IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
           AppliedCustLedgEntryTemp."Remaining Amount" :=
             GenJnlPostLine.ExchAmount(
               AppliedCustLedgEntryTemp."Remaining Amount",
               AppliedCustLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
             GenJnlPostLine.ExchAmount(
               AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
               AppliedCustLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedCustLedgEntryTemp."Amount to Apply" :=
             GenJnlPostLine.ExchAmount(
               AppliedCustLedgEntryTemp."Amount to Apply",
               AppliedCustLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
         END;
       END;
   
       BEGIN
       END.
     }
   ...
   

4. Kod özelliklerinde Satıcı Girişlerini Uygula (233) aşağıdaki gibi değiştirin:
   Varolan kodu

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
                        EXIT(FALSE);
                      END;
   ...
   

   Kod değiştirme

   ...OnModifyRecord=BEGIN
                        CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
                        IF "Applies-to ID" <> xRec."Applies-to ID" THEN
                          CalcApplnAmount;
                        EXIT(FALSE);
                      END;
   ...
   

5. Satıcı Girişlerini Uygula formunda (233) HandlChosenEntries işlev kodu aşağıdaki gibi değiştirin:
   Varolan kodu 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
             AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
             IF Type = Type::Direct THEN
               CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
             ELSE
               CalculateCurrency := TRUE;
   
   
             IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
               AppliedVendLedgEntryTemp."Remaining Amount" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedVendLedgEntryTemp."Remaining Amount",
                   AppliedVendLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
                   AppliedVendLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
               AppliedVendLedgEntryTemp."Amount to Apply" :=
                 GenJnlPostLine.ExchAmount(
                   AppliedVendLedgEntryTemp."Amount to Apply",
                   AppliedVendLedgEntryTemp."Currency Code",
                   CurrencyCode,"Posting Date");
             END;
   
             CASE Type OF
               Type::Direct:
   ...
   

   Değiştirme kodu 1

   ...IF NOT FromZeroGenJnl THEN
             AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
           IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
   
             CASE Type OF
               Type::Direct:
   ...
   

   Varolan kodu 2

   ...END ELSE BEGIN
             AppliedVendLedgEntryTemp.SETRANGE(Positive);
             AppliedVendLedgEntryTemp.FINDFIRST;
           END;
   
           IF (OldPmtdisc <> PmtDiscAmount) THEN
   ...
   

   Değiştirme kodu 2

   ...END ELSE BEGIN
             AppliedVendLedgEntryTemp.SETRANGE(Positive);
             AppliedVendLedgEntryTemp.FINDFIRST;
             ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
           END;
   
           IF (OldPmtdisc <> PmtDiscAmount) THEN
   ...
   

6. Satıcı Girişlerini Uygula formunda (233) ExchangeAmountsOnLedgerEntry işlev kodu aşağıdaki gibi değiştirin:
   Varolan kodu

   ...AppliesToID := AppliesToID2;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Kod değiştirme

   ...AppliesToID := AppliesToID2;
       END;
   
       PROCEDURE ExchangeAmountsOnLedgerEntry@14(Type@1000 : 'Direct,GenJnlLine,PurchHeader';CurrencyCode@1001 : Code[10];VAR AppliedVendLedgEntryTemp@1002 : Record 25);
       VAR
         CalculateCurrency@1003 : Boolean;
       BEGIN
         AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");
   
         IF Type = Type::Direct THEN
           CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
         ELSE
           CalculateCurrency := TRUE;
   
         IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
           AppliedVendLedgEntryTemp."Remaining Amount" :=
             GenJnlPostLine.ExchAmount(
               AppliedVendLedgEntryTemp."Remaining Amount",
               AppliedVendLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
             GenJnlPostLine.ExchAmount(
               AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
               AppliedVendLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
           AppliedVendLedgEntryTemp."Amount to Apply" :=
             GenJnlPostLine.ExchAmount(
               AppliedVendLedgEntryTemp."Amount to Apply",
               AppliedVendLedgEntryTemp."Currency Code",
               CurrencyCode,"Posting Date");
         END;
       END;
   
       BEGIN
       END.
     }
   ...
   

Ö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

Kaldırma bilgileri

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