Berlaku Untuk
Dynamics NAV 2009

Gejala

Ketika Anda membuat faktur pembayaran di Microsoft Dynamics NAV 2009, Anda menerima pesan galat berikut:

"Nomor prabayar Seri harus nilai Header penjualan pembelian."

Hal ini hanya terjadi jika Anda memiliki tidak ada nomor seri setup untuk pembayaran faktur. Ikuti langkah-langkah di bagian perubahan kode untuk memecahkan masalah ini. Masalah ini terjadi di dalam produk berikut ini:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

Pemecahan masalah

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 menetapkan 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 9015objek.

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 menerapkan perbaikan untuk komputer produksi.Untuk mengatasi masalah ini, ikuti langkah-langkah berikut:

  1. Ubah kode di bidang penjualan Header tabel (36) sebagai berikut:Kode yang ada 1

    ... IF "Prepayment No. Series" <> '' THEN BEGIN                                                                  SalesSetup.GET;                                                                  SalesSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Delete the following line.                                                             NoSeriesMgt.TestSeries(SalesSetup."Posted Prepmt. Inv. Nos.","Prepayment No. Series");// End of the deleted line.                                                                END;                                                                TESTFIELD("Prepayment No.",'');                                                              END;...

    Penggantian kode 1

    ...IF "Prepayment No. Series" <> '' THEN BEGIN                                                                  SalesSetup.GET;                                                                  SalesSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Add the following line.                                                              NoSeriesMgt.TestSeries(GetPostingPrepaymentNoSeriesCo,"Prepayment No. Series");// End of the added line.                                                                END;                                                                TESTFIELD("Prepayment No.",'');                                                              END;...

    Kode yang ada 2

    ...SalesHeader := Rec;                                                                SalesSetup.GET;                                                                SalesSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Delete the following line.IF NoSeriesMgt.LookupSeries(SalesSetup."Posted Prepmt. Inv. Nos.","Prepayment No. Series") THEN// End of the deleted line.                                                                  VALIDATE("Prepayment No. Series");                                                                Rec := SalesHeader;                                                              END;...

    Penggantian kode 2

    ...SalesHeader := Rec;                                                                SalesSetup.GET;                                                                SalesSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Add the following line.IF NoSeriesMgt.LookupSeries(GetPostingPrepaymentNoSeriesCo,"Prepayment No. Series") THEN// End of the added line.                                                                  VALIDATE("Prepayment No. Series");                                                                Rec := SalesHeader;                                                              END;...

    Kode yang ada 3

    ... IF "Prepmt. Cr. Memo No." <> '' THEN BEGIN                                                                  SalesSetup.GET;                                                                  SalesSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Delete the following line.NoSeriesMgt.TestSeries(SalesSetup."Posted Prepmt. Cr. Memo Nos.","Prepmt. Cr. Memo No.");// End of the deleted line.                                                                END;                                                                TESTFIELD("Prepmt. Cr. Memo No.",'');                                                              END;...

    Penggantian kode 3

    ... IF "Prepmt. Cr. Memo No." <> '' THEN BEGIN                                                                  SalesSetup.GET;                                                                  SalesSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Add the following line.NoSeriesMgt.TestSeries(GetPostingPrepaymentNoSeriesCo,"Prepmt. Cr. Memo No. Series");// End of the added line.                                                                END;                                                                TESTFIELD("Prepmt. Cr. Memo No.",'');                                                              END;...

    Ada kode 4

    ...SalesHeader := Rec;                                                                SalesSetup.GET;                                                                SalesSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Delete the following lines.IF NoSeriesMgt.LookupSeries(GetPostingNoSeriesCode,"Prepmt. Cr. Memo No.") THENVALIDATE("Prepmt. Cr. Memo No.");// End of the deleted lines.                                                                Rec := SalesHeader;                                                              END;                                                            END;...

    Penggantian kode 4

    ...SalesHeader := Rec;                                                                SalesSetup.GET;                                                                SalesSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Add the following lines.IF NoSeriesMgt.LookupSeries(GetPostingPrepaymentNoSeriesCo,"Prepmt. Cr. Memo No. Series") THENVALIDATE("Prepmt. Cr. Memo No. Series");// End of the added lines.                                                                Rec := SalesHeader;                                                              END;                                                            END;...
  2. Ubah kode di GetPostingPrepaymentNoSeriesCo fungsi penjualan Header tabel (36) sebagai berikut:Kode yang ada

    ...EXIT(SalesSetup."Posted Invoice Nos.");    END;    LOCAL PROCEDURE TestNoSeriesDate@40(No@1000 : Code[20];NoSeriesCode@1001 : Code[10];NoCapt@1002 : Text[1024];NoSeriesCapt@1004 : Text[1024]);    VAR      NoSeries@1005 : Record 308;...

    Penggantian kode

    ... EXIT(SalesSetup."Posted Invoice Nos.");    END;// Add the following lines.LOCAL PROCEDURE GetPostingPrepaymentNoSeriesCo@59() : Code[10];BEGINIF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THENEXIT(SalesSetup."Posted Prepmt. Cr. Memo Nos.");EXIT(SalesSetup."Posted Prepmt. Inv. Nos.");END;// End of the added lines.    LOCAL PROCEDURE TestNoSeriesDate@40(No@1000 : Code[20];NoSeriesCode@1001 : Code[10];NoCapt@1002 : Text[1024];NoSeriesCapt@1004 : Text[1024]);    VAR      NoSeries@1005 : Record 308;...
  3. Ubah kode di bidang pembelian Header tabel (38) sebagai berikut:Kode yang ada 1

    ...IF "Prepayment No. Series" <> '' THEN BEGIN                                                                  PurchSetup.GET;                                                                  PurchSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Delete the following line.NoSeriesMgt.TestSeries(PurchSetup."Posted Prepmt. Inv. Nos.","Prepayment No. Series");// End of the deleted line.                                                                END;                                                                TESTFIELD("Prepayment No.",'');                                                              END;...

    Penggantian kode 1

    ...IF "Prepayment No. Series" <> '' THEN BEGIN                                                                  PurchSetup.GET;                                                                  PurchSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Add the following line.NoSeriesMgt.TestSeries(GetPostingPrepaymentNoSeriesCo,"Prepayment No. Series");// End of the added line.                                                                END;                                                                TESTFIELD("Prepayment No.",'');                                                              END;...

    Kode yang ada 2

    ...PurchHeader := Rec;                                                                PurchSetup.GET;                                                                PurchSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Delete the following line.IF NoSeriesMgt.LookupSeries(PurchSetup."Posted Prepmt. Inv. Nos.","Prepayment No. Series") THEN// End of the deleted line.                                                                  VALIDATE("Prepayment No. Series");                                                                Rec := PurchHeader;                                                              END;...

    Penggantian kode 2

    ...PurchHeader := Rec;                                                                PurchSetup.GET;                                                                PurchSetup.TESTFIELD("Posted Prepmt. Inv. Nos.");// Add the following line.IF NoSeriesMgt.LookupSeries(GetPostingPrepaymentNoSeriesCo,"Prepayment No. Series") THEN// End of the added line.                                                                  VALIDATE("Prepayment No. Series");                                                                Rec := PurchHeader;                                                              END;...

    Kode yang ada 3

    ...IF "Prepmt. Cr. Memo No. Series" <> '' THEN BEGIN                                                                  PurchSetup.GET;                                                                  PurchSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Delete the following line.NoSeriesMgt.TestSeries(PurchSetup."Posted Prepmt. Cr. Memo Nos.","Prepmt. Cr. Memo No. Series");// End of the deleted line.                                                                END;// Delete the following line.TESTFIELD("Prepmt. Cr. Memo No. Series",'');// End of the deleted line.                                                              END;                                                   OnLookup=BEGIN...

    Penggantian kode 3

    ...IF "Prepmt. Cr. Memo No. Series" <> '' THEN BEGIN                                                                  PurchSetup.GET;                                                                  PurchSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Add the following line.NoSeriesMgt.TestSeries(GetPostingPrepaymentNoSeriesCo,"Prepmt. Cr. Memo No. Series");// End of the added line.                                                                END;// Add the following line.TESTFIELD("Prepmt. Cr. Memo No.",'');// End of the added line.                                                              END;                                                   OnLookup=BEGIN...

    Ada kode 4

    ...PurchHeader := Rec;                                                                PurchSetup.GET;                                                                PurchSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Delete the following line.IF NoSeriesMgt.LookupSeries(PurchSetup."Posted Prepmt. Cr. Memo Nos.","Prepmt. Cr. Memo No. Series") THEN// End of the deleted line.VALIDATE("Prepmt. Cr. Memo No. Series");                                                                Rec := PurchHeader;                                                              END;...

    Penggantian kode 4

    ...PurchHeader := Rec;                                                                PurchSetup.GET;                                                                PurchSetup.TESTFIELD("Posted Prepmt. Cr. Memo Nos.");// Add the following line.IF NoSeriesMgt.LookupSeries(GetPostingPrepaymentNoSeriesCo,"Prepmt. Cr. Memo No. Series") THEN// End of the added line.                                                                  VALIDATE("Prepmt. Cr. Memo No. Series");                                                                Rec := PurchHeader;                                                              END;...
  4. Ubah kode di GetPostingPrepaymentNoSeriesCo fungsi pembelian Header tabel (38) sebagai berikut:Kode yang ada

    ...EXIT(PurchSetup."Posted Invoice Nos.");    END;    LOCAL PROCEDURE TestNoSeriesDate@40(No@1000 : Code[20];NoSeriesCode@1001 : Code[10];NoCapt@1002 : Text[1024];NoSeriesCapt@1004 : Text[1024]);    VAR      NoSeries@1005 : Record 308;...

    Penggantian kode

    ...EXIT(PurchSetup."Posted Invoice Nos.");    END;// Add the following lines.LOCAL PROCEDURE GetPostingPrepaymentNoSeriesCo@37() : Code[10];BEGINIF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THENEXIT(PurchSetup."Posted Prepmt. Cr. Memo Nos.");EXIT(PurchSetup."Posted Prepmt. Inv. Nos.");END;// End of the added lines.    LOCAL PROCEDURE TestNoSeriesDate@40(No@1000 : Code[20];NoSeriesCode@1001 : Code[10];NoCapt@1002 : Text[1024];NoSeriesCapt@1004 : Text[1024]);    VAR      NoSeries@1005 : Record 308;...

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.

Status

Microsoft telah memastikan bahwa ini merupakan masalah di dalam produk Microsoft sebagaimana tercantum di bagian "Berlaku untuk".

Catatan Ini adalah artikel "Penerbitan cepat" dibuat langsung dari dalam organisasi dukungan Microsoft. Informasi yang terkandung di dalamnya disediakan sebagai tanggapan masalah yang muncul. Sebagai akibat dari kecepatan untuk menjadikannya tersedia, materi dapat mengandung kesalahan ketik dan dapat direvisi setiap saat tanpa pemberitahuan. Lihat Ketentuanuntuk pertimbangan lainnya.

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.