Jumlah diterapkan salah dihitung di Terapkan pelanggan atau menerapkan vendor entri halaman di Microsoft Dynamics NAV 2009

Informasi Hotfix

Sekarang tersedia hotfix yang didukung dari Microsoft. Namun, hanya ditujukan untuk memperbaiki masalah yang dijelaskan di artikel ini. Terapkan hanya ke sistem yang mengalami masalah khusus ini. Perbaikan terbaru ini dapat menerima pengujian tambahan. Oleh karena itu, jika Anda tidak terlalu dipengaruhi oleh masalah ini, kami sarankan Anda menunggu paket layanan Microsoft Dynamics NAV 2009 atau versi Microsoft Dynamics NAV berikutnya yang berisi perbaikan terbaru ini.

Catatan Dalam kasus tertentu, biaya yang biasanya diadakan untuk panggilan mungkin dibatalkan apabila profesional dukungan teknis untuk Microsoft Dynamics dan produk-produk terkait dukungan menentukan bahwa pembaruan khusus akan memecahkan masalah Anda. Biaya dukungan biasa akan berlaku untuk pertanyaan dan masalah yang tidak termasuk pada pembaruan tertentu yang dimaksud dukungan tambahan.

Informasi penginstalan

Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Catatan Sebelum Anda menginstal perbaikan terbaru ini, verifikasi bahwa semua pengguna klien Microsoft Dynamics NAV log off sistem. Ini termasuk layanan Microsoft Dynamics NAV aplikasi Server (NAS). Anda harus klien hanya pengguna yang masuk saat Anda menerapkan perbaikan terbaru ini.

Untuk menerapkan hotfix ini, Anda harus memiliki lisensi pengembang.

Kami menyarankan bahwa akun pengguna di jendela login Windows atau jendela login Database ditetapkan id peran "SUPER" Jika account pengguna tidak dapat ditetapkan ID peran "SUPER", Anda harus memverifikasi bahwa account pengguna yang memiliki izin berikut ini:

• Ubah izin untuk objek yang Anda akan berubah.

• Izin eksekusi untuk objek sistem objek ID 5210 dan sistem objek ID 9015
  
  objek.

Catatan Anda tidak harus memiliki hak untuk penyimpanan data kecuali jika Anda harus melakukan perbaikan data.

Perubahan kode

Catatan selalu menguji kode perbaikan di lingkungan yang dikontrol sebelum Anda menerapkan perbaikan komputer produksi. Sebelum menerapkan perubahan, silakan mengimpor semua SEPA pembaruan.

Untuk mengatasi masalah ini, ikuti langkah-langkah berikut:

1. Ubah kode di properti dalam bentuk menerapkan pelanggan entri (232) sebagai berikut:
   Kode yang ada

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

   Penggantian kode

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

2. Ubah kode di fungsi HandlChosenEntries dalam bentuk menerapkan pelanggan entri (232) sebagai berikut:
   Kode yang ada 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:
   ...
   

   Penggantian kode 1

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

   Kode yang ada 2

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

   Penggantian kode 2

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

3. Ubah kode di fungsi ExchangeAmountsOnLedgerEntry dalam bentuk menerapkan pelanggan entri (232) sebagai berikut:
   Kode yang ada

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

   Penggantian kode

   ...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. Ubah kode di properti dalam bentuk menerapkan Vendor entri (233) sebagai berikut:
   Kode yang ada

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

   Penggantian kode

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

5. Ubah kode di fungsi HandlChosenEntries dalam bentuk menerapkan Vendor entri (233) sebagai berikut:
   Kode yang ada 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:
   ...
   

   Penggantian kode 1

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

   Kode yang ada 2

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

   Penggantian kode 2

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

6. Ubah kode di fungsi ExchangeAmountsOnLedgerEntry dalam bentuk menerapkan Vendor entri (233) sebagai berikut:
   Kode yang ada

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

   Penggantian kode

   ...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.
     }
   ...
   

Prasyarat

Anda harus memiliki salah satu produk berikut ini diinstal untuk menerapkan perbaikan terbaru ini:

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 SP1

Informasi penghapusan

Anda tidak dapat menghapus hotfix ini.