Masuk dengan Microsoft
Masuk atau buat akun.
Halo,
Pilih akun lain.
Anda memiliki beberapa akun
Pilih akun yang ingin Anda gunakan untuk masuk.

Bahkan jika Anda tidak memiliki izin untuk bekerja dengan Cartera dalam versi bahasa Spanyol Microsoft Dynamics NAV 2009, Anda dapat menerapkan pembayaran dan tagihan dari vendor atau pelanggan buku entri. Masalahnya adalah bahwa ketika Anda "tanpa izin Cartera" menerapkan dokumen tersebut (pembayaran dan tagihan) tagihan tetap "Buka" di dokumen piutang atau hutang Cartera. Hal ini menyebabkan inkonsistensi dalam database. Masalah ini terjadi di produk berikut ini:

  • Versi bahasa Spanyol Microsoft Dynamics NAV 2009 R2

  • Versi bahasa Spanyol 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 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 Global Variablesin kejadian Jnl.-posting baris Codeunit (12) sebagai berikut:
    Kode yang ada

    ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
            Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr  en cuenta el IVA, ¨desea continuar?';
            Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
            AppliedAmountLCY2@1100053 : Decimal;
            AppliesToDocType@1100023 : Integer;

          PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
          BEGIN
            NewGLReg := GLReg;
          END;
    ...

    Penggantian kode

    ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
            Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr  en cuenta el IVA, ¨desea continuar?';
            Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
            AppliedAmountLCY2@1100053 : Decimal;
            AppliesToDocType@1100023 : Integer;

    // Add the following line.
    Text1100013@1100026 : TextConst 'ENU=You do not have permissions to apply or unapply documents in the Cartera Module.';
    // End of the added line.


          PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
          BEGIN
            NewGLReg := GLReg;
          END;
    ...

  2. Ubah kode di ApplyCustLedgEntryfungsi dalam Kejadian Jnl.-posting baris Codeunit (12) sebagai berikut:
    Kode yang ada 1

    ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
              OldCustLedgEntry.SETRANGE(Open,TRUE);

              OldCustLedgEntry.FINDFIRST;
              OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedReceivableDoc(
                  OldCustLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Penggantian kode 1

    ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
              OldCustLedgEntry.SETRANGE(Open,TRUE);

              OldCustLedgEntry.FINDFIRST;

    // Add the following line.
    CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
    // End of the added line.

              OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedReceivableDoc(
                  OldCustLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Kode yang ada 2

    ...// Check Cust Ledger Entry and add to Temp.
              IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
                OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN

    // Delete the following lines.
    REPEAT
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Customer,
    FALSE)
    THEN BEGIN
    IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    TempOldCustLedgEntry := OldCustLedgEntry;
    TempOldCustLedgEntry.INSERT;
    END;
    UNTIL OldCustLedgEntry.NEXT=0;
    // End of the deleted lines.


              TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);

              IF TempOldCustLedgEntry.FIND('-') THEN BEGIN
    ...

    Penggantian kode 2

    ...// Check Cust Ledger Entry and add to Temp.
              IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
                OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN

    // Add the following lines.
    REPEAT
    CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Customer,
    FALSE)
    THEN BEGIN
    IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    TempOldCustLedgEntry := OldCustLedgEntry;
    TempOldCustLedgEntry.INSERT;
    END;
    UNTIL OldCustLedgEntry.NEXT=0;
    // End of the added lines.


              TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);

              IF TempOldCustLedgEntry.FIND('-') THEN BEGIN...

  3. Ubah kode di UnapplyCustLedgEntry fungsi dalam Kejadian Jnl.-posting baris Codeunit (12) sebagai berikut:
    Kode yang ada

    ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
            DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
            UnapplyVATEntries := FALSE;
            DtldCustLedgEntry2.FINDSET;
            REPEAT
              DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
              IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
              THEN
    ...

    Penggantian kode

    ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
            DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
            UnapplyVATEntries := FALSE;
            DtldCustLedgEntry2.FINDSET;
            REPEAT

    // Add the following line.
    CheckCarteraAccessPermissions(DtldCustLedgEntry2."Document Situation");
    // End of the added line.

              DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
              IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
              THEN
    ...

  4. Ubah kode di ApplyVendLedgEntry fungsi dalam Kejadian Jnl.-posting baris Codeunit (12) sebagai berikut:
    Kode yang ada 1

    ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
              OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
              OldVendLedgEntry.SETRANGE(Open,TRUE);
              OldVendLedgEntry.FINDFIRST;
              OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedPayableDoc(
                OldVendLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Penggantian kode 1

    ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
              OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
              OldVendLedgEntry.SETRANGE(Open,TRUE);
              OldVendLedgEntry.FINDFIRST;

    // Add the following line.
    CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
    // End of the added line.

              OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedPayableDoc(
                OldVendLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Kode yang ada 2

    ...//Check and Move Ledger Entries to Temp
              IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
                OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
                REPEAT
                  IF GenJnlApply.CheckAgainstApplnCurrency(
                       NewCVLedgEntryBuf."Currency Code",
                       OldVendLedgEntry."Currency Code",
                       GenJnlLine."Account Type"::Vendor,
                       FALSE)
    ...

    Penggantian kode 2

    ...//Check and Move Ledger Entries to Temp
              IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
                OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
                REPEAT

    // Add the following line.
    CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
    // End of the added line.

                  IF GenJnlApply.CheckAgainstApplnCurrency(
                       NewCVLedgEntryBuf."Currency Code",
                       OldVendLedgEntry."Currency Code",
                       GenJnlLine."Account Type"::Vendor,
                       FALSE)
    ...

  5. Ubah kode di UnapplyVendLedgEntry fungsi dalam Kejadian Jnl.-posting baris Codeunit (12) sebagai berikut:
    Kode yang ada

    ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
            DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
            DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
            DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
            DtldVendLedgEntry2.FINDSET;
            UnapplyVATEntries := FALSE;
            REPEAT
              IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    ...

    Penggantian kode

    ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
            DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
            DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
            DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
            DtldVendLedgEntry2.FINDSET;

    // Add the following line.
    CheckCarteraAccessPermissions(DtldVendLedgEntry2."Document Situation");
    // End of the added line.

            UnapplyVATEntries := FALSE;
            REPEAT
              IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    ...

  6. Ubah kode di CheckCarteraAccessPermissions fungsi dalam Kejadian Jnl.-posting baris Codeunit (12) sebagai berikut:
    Kode yang ada

    ...CLEAR(GenJnlLine2);

            EXIT(IsOK);
          END;

          BEGIN
          END.
        }
      }
    ...

    Penggantian kode

    ...CLEAR(GenJnlLine2);

            EXIT(IsOK);
          END;

    // Add the following lines.
    LOCAL PROCEDURE CheckCarteraAccessPermissions@1100024(DocumentSituation@1170001 : ' ,Posted BG/PO,Closed BG/PO,BG/PO,Cartera,Closed Documents');
    BEGIN
    IF (DocumentSituation <> DocumentSituation::" ") AND (NOT AppManagement.AccessToCartera) THEN
    ERROR(Text1100013);
    END;

    // End of the added lines.

         BEGIN
          END.
        }
      }
    ...

Prasyarat

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

  • Versi bahasa Spanyol Microsoft Dynamics NAV 2009 R2

  • Versi bahasa Spanyol 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.

Facebook LinkedIn Email
BERLANGGANAN FEED RSS

Perlu bantuan lainnya?

Ingin opsi lainnya?

Menemukan Komunitas

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

Keuntungan langganan Microsoft 365

Pelatihan Microsoft 365

Keamanan Microsoft

Pusat aksesibilitas

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.

Tanyakan kepada Microsoft Community

Komunitas Teknologi Microsoft

Windows Insider

Microsoft 365 Insider

Apakah informasi ini berguna?

Seberapa puaskah Anda dengan kualitas bahasanya?
Apa yang memengaruhi pengalaman Anda?
Dengan menekan kirim, umpan balik Anda akan digunakan untuk meningkatkan produk dan layanan Microsoft. Admin TI Anda akan dapat mengumpulkan data ini. Pernyataan Privasi.

Terima kasih atas umpan balik Anda!

×