Sign in with Microsoft
Sign in or create an account.

Artikel ini berlaku untuk Microsoft Dynamics NAV untuk semua negara dan semua bahasa lokal.

Gejala

Ketika Anda membuat kontrak layanan (tidak prabayar) dan mengubah faktur sebelum posting di Microsoft Dynamics NAV 2009, ada data yang tidak konsisten antara entri buku layanan dan buku besar. Masalah ini terjadi di dalam produk berikut ini:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

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 Navision log off sistem. Ini termasuk Microsoft Navision aplikasi Layanan (NAS) klien pengguna. 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 sistem objek ID 5210 objek dan objek sistem objek ID 9015 .



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 tabel dokumen dimensi (357) sebagai berikut:
    Kode yang ada 1

    ...      Text005@1009 : TextConst 'ENU=Canceled.';
    Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';

    PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
    ...

    Penggantian kode 1

    ...      Text005@1009 : TextConst 'ENU=Canceled.';
    Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';
    Text007@1011 : TextConst 'ENU=You cannot change the dimension because the document is based on a service contract.';

    PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
    ...

    Kode yang ada 2

    ...    PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
    VAR
    SalesLine@1001 : Record 37;
    PurchaseLine@1002 : Record 39;
    BEGIN
    CASE "Table ID" OF
    DATABASE::"Sales Line":
    BEGIN
    IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
    IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    DATABASE::"Purchase Line":
    BEGIN
    IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN

    IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    END;
    END;
    ...

    Penggantian kode 2

    ...    PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
    VAR
    SalesLine@1001 : Record 37;
    PurchaseLine@1002 : Record 39;
    ServiceHeader@1003 : Record 5900;
    ServiceLine@1004 : Record 5902;
    BEGIN
    CASE "Table ID" OF
    DATABASE::"Sales Line":
    BEGIN
    IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
    IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    DATABASE::"Purchase Line":
    BEGIN
    IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN

    IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    DATABASE::"Service Header":
    IF ServiceHeader.GET(DocDim."Document Type",DocDim."Document No.") AND (ServiceHeader."Contract No." <> '') THEN
    ERROR(Text007);
    DATABASE::"Service Line":
    IF ServiceLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (ServiceLine."Contract No." <> '') THEN
    ERROR(Text007);
    END;
    END;
    ...

  2. Ubah kode di tabel Layanan baris (5902) sebagai berikut:
    Kode yang ada 1

    ...               IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
    (("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
    ("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
    ("Spare Part Action" = "Spare Part Action"::" "))
    THEN
    ReserveServLine.VerifyChange(Rec,xRec);
    END;

    OnDelete=VAR
    ...

    Penggantian kode 1

    ...               IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
    (("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
    ("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
    ("Spare Part Action" = "Spare Part Action"::" "))
    THEN
    ReserveServLine.VerifyChange(Rec,xRec);
    IF "Document Type" = ServiceLine."Document Type"::Invoice THEN
    IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
    ERROR(Text046);
    END;

    OnDelete=VAR
    ...

    Kode yang ada 2

    ...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN



    GetServHeader;

    TESTFIELD("Qty. Shipped Not Invoiced",0);
    ...

    Penggantian kode 2

    ...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN
    IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
    ERROR(Text046);

    GetServHeader;
    ...

    Kode yang ada 3

    ...    { 6   ;   ;No.                 ;Code20        ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
    ELSE IF (Type=CONST(G/L Account)) "G/L Account"
    ELSE IF (Type=CONST(Item)) Item
    ELSE IF (Type=CONST(Resource)) Resource
    ELSE IF (Type=CONST(Cost)) "Service Cost";
    OnValidate=VAR
    ShowLocMessage@1000 : Boolean;
    BEGIN
    TESTFIELD("Qty. Shipped Not Invoiced",0);
    ...

    Penggantian kode 3

    ...    { 6   ;   ;No.                 ;Code20        ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
    ELSE IF (Type=CONST(G/L Account)) "G/L Account"
    ELSE IF (Type=CONST(Item)) Item
    ELSE IF (Type=CONST(Resource)) Resource
    ELSE IF (Type=CONST(Cost)) "Service Cost";
    OnValidate=VAR
    ShowLocMessage@1000 : Boolean;
    BEGIN
    IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
    ERROR(Text046);

    TESTFIELD("Qty. Shipped Not Invoiced",0);
    ...

    Ada kode 4

    ...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
    GetServHeader;


    IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
    ...

    Penggantian kode 4

    ...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
    GetServHeader;
    IF ("Appl.-to Service Entry" > 0) AND (CurrFieldNo <> 0) THEN
    ERROR(Text046,FIELDCAPTION("Unit Price"));
    IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
    ...

    Ada kode 5

    ...      Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
    Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
    Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
    ...

    Penggantian kode 5

    ...      Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
    Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
    Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
    Text046@1100 : TextConst 'ENU=You cannot modify the document because it is based on a service contract.';
    ...

Prasyarat

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

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

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 Ketentuan untuk pertimbangan lainnya.

Perlu bantuan lainnya?

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung Microsoft Insider

Apakah informasi ini bermanfaat?

Seberapa puaskah Anda dengan kualitas bahasanya?
Apa yang memengaruhi pengalaman Anda?

Terima kasih atas umpan balik Anda!

×