Jumlah negatif dalam file .txt berada dalam format yang salah ketika Anda membuat file .txt PPN Telematik dalam versi Bahasa Spanyol Microsoft Dynamics NAV 5.0 Service Pack 1

Artikel ini berlaku untuk Microsoft Dynamics NAV untuk bahasa lokal Spanyol (es).

Saat Anda menjalankan laporan Deklarasi PPN Telematik (10715) untuk menghasilkan file .txt PPN Telematik dari kotak dialog Pernyataan PPN dalam versi Bahasa Spanyol Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1), jumlah negatif dalam file .txt yang dihasilkan berada dalam format yang salah. Misalnya, jumlah "-1890.109,00" ditampilkan sebagai "0N000000189010900" dalam file .txt.

Gejala

Informasi hotfix

Hotfix yang didukung kini tersedia dari Microsoft. Namun, hanya dimaksudkan untuk memperbaiki masalah yang dijelaskan dalam artikel ini. Terapkan hanya ke sistem yang mengalami masalah khusus ini. Hotfix ini mungkin menerima pengujian tambahan. Oleh karena itu, jika Anda tidak terpengaruh oleh masalah ini, kami menyarankan agar Anda menunggu paket layanan Microsoft Dynamics NAV 5.0 berikutnya atau versi Microsoft Dynamics NAV berikutnya yang berisi hotfix ini.

Catatan Dalam kasus khusus, biaya yang biasanya ditimbulkan untuk panggilan dukungan mungkin dibatalkan jika Profesional Dukungan Teknis untuk Microsoft Dynamics dan produk terkait menentukan bahwa pembaruan tertentu akan mengatasi masalah Anda. Biaya dukungan biasa akan berlaku untuk pertanyaan dan masalah dukungan tambahan yang tidak memenuhi syarat untuk pembaruan tertentu yang dimaksud.

Resolusi

Informasi penginstalan

Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik tersurat maupun tersirat. Ini termasuk, tetapi tidak terbatas pada, jaminan tersirat dari kelayakan jual atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan men-debug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruksi untuk memenuhi persyaratan tertentu Anda.

Catatan Sebelum Anda menginstal hotfix ini, verifikasi bahwa semua pengguna klien Microsoft Navision telah keluar dari sistem. Ini termasuk pengguna klien Microsoft Navision Application Services (NAS). Anda harus menjadi satu-satunya pengguna klien yang masuk ketika Anda menerapkan hotfix ini.

Untuk menerapkan hotfix ini, Anda harus memiliki lisensi pengembang.

Kami menyarankan agar akun pengguna di jendela Windows Logins atau di jendela Login Database diberi ID peran "SUPER". Jika akun pengguna tidak dapat ditetapkan sebagai ID peran "SUPER", Anda harus memverifikasi bahwa akun pengguna memiliki izin berikut:

  • Izin Ubah untuk objek yang akan Anda ubah.
  • Izin Jalankan untuk objek System Object ID 5210 dan untuk objek System Object ID 9015.

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

Perubahan kode

Catatan Selalu uji perbaikan kode di lingkungan terkontrol sebelum Anda menerapkan perbaikan pada komputer produksi Anda.
Untuk mengatasi masalah ini, ikuti langkah-langkah ini:

  1. Ubah kode dalam fungsi CalcTotLine dalam laporan Deklarasi PPN Telematik (10715) sebagai berikut:
    Kode yang sudah ada 1

    ...
"VAT StatementLine2"."Amount Type"::"Unrealized Base":
BEGIN
VATEntry.CALCSUMS("Unrealized Base","Add.-Currency Unrealized Base");
Amount := ConditionalAdd(0,VATEntry."Unrealized Base",VATEntry."Add.-Currency Unrealized Base");
END;

// Delete the following lines.
"VAT StatementLine2"."Amount Type"::"Amount+Base":
BEGIN 
VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");
Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); 
END; 
// End of the lines.

END;
CalcTotAmount("VAT StatementLine2",TotalAmount);
END;
...

    Kode pengganti 1

    ...
"VAT StatementLine2"."Amount Type"::"Unrealized Base":
BEGIN
VATEntry.CALCSUMS("Unrealized Base","Add.-Currency Unrealized Base");
Amount := ConditionalAdd(0,VATEntry."Unrealized Base",VATEntry."Add.-Currency Unrealized Base");
END;

// Add the following lines.
"VAT StatementLine2"."Amount Type"::"Amount+Base": 
BEGIN 
VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN 
IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN 
VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."VAT %"; 
VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %") * 
VATEntry."VAT %"; 
END; 
Amount := ConditionalAdd(0,VATAmount,VATAmountAC); 
END; 
Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
Amount := Amount + Base; 
END;
// End of the lines.

END;
CalcTotAmount("VAT StatementLine2",TotalAmount);
END;
...

    Kode yang sudah ada 2

    ...
"VAT StatementLine2"."Amount Type"::"Unrealized Base":
BEGIN
VATEntry.CALCSUMS("Unrealized Base","Add.-Currency Unrealized Base");
Amount := ConditionalAdd(0,VATEntry."Unrealized Base",VATEntry."Add.-Currency Unrealized Base");
END;

// Delete the following lines.
"VAT StatementLine2"."Amount Type"::"Amount+Base":
BEGIN
VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount");
Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
END;
// End of the lines.

END;
CalcTotAmount("VAT StatementLine2",TotalAmount);
END;

END;

EXIT(TRUE);
...

    Kode pengganti 2

    ...
"VAT StatementLine2"."Amount Type"::"Unrealized Base":
BEGIN
VATEntry.CALCSUMS("Unrealized Base","Add.-Currency Unrealized Base");
Amount := ConditionalAdd(0,VATEntry."Unrealized Base",VATEntry."Add.-Currency Unrealized Base");
END;

// Add the following lines.
"VAT StatementLine2"."Amount Type"::"Amount+Base":
BEGIN
VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base");
IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN
IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN
VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."EC %";
VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %") *
VATEntry."EC %";
END;
Amount := ConditionalAdd(0,VATAmount,VATAmountAC);
END;
Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base");
Amount := Amount + Base; 
END;
// End of the lines.

END;
CalcTotAmount("VAT StatementLine2",TotalAmount);
END;

END;

EXIT(TRUE);
...

  2. Ubah kode dalam fungsi LoadValue dalam laporan Deklarasi PPN Telematik (10715) sebagai berikut:
    Kode yang sudah ada

    ...
CASE TransFormat.Subtype OF

// Delete the following lines.
TransFormat.Subtype::"Integer and Decimal Part" :
BEGIN 
TransFormat.Value := Negative + FORMAT(Amt,TransFormat.Length - STRLEN(Negative),
Text1100010+'2'+Text1100011);
TransFormat.Value := CONVERTSTR(DELCHR(TransFormat.Value,'=',',.'),' ','0');
TransFormat.Value := PADSTR('',TransFormat.Length - STRLEN(TransFormat.Value),'0') + TransFormat.Value;
END; 
TransFormat.Subtype::"Integer Part" :
BEGIN
TransFormat.Value := Negative + FORMAT(Amt,TransFormat.Length - STRLEN(Negative),
Text1100012);
TransFormat.Value := CONVERTSTR(CONVERTSTR(TransFormat.Value,',','.'),' ','0');
END;
TransFormat.Subtype::"Decimal Part" :
BEGIN
TransFormat.Value := FORMAT(Amt,TransFormat.Length+1,Text1100010+
FORMAT(TransFormat.Length,1) +Text1100013);
TransFormat.Value := CONVERTSTR(DELCHR(TransFormat.Value,'=','.,'),' ','0');
TransFormat.Value := PADSTR('',TransFormat.Length - STRLEN(TransFormat.Value),'0') + TransFormat.Value;
END;
// End of the lines.

END;
TransFormat.MODIFY;
...

    Kode pengganti

    ...
CASE TransFormat.Subtype OF

// Add the following lines.
TransFormat.Subtype::"Integer and Decimal Part":
BEGIN
TransFormat.Value := FORMAT(Amt,TransFormat.Length,Text1100010 + '2' + Text1100011);
TransFormat.Value := CONVERTSTR(DELCHR(TransFormat.Value,'=',',.'),' ','0');
TransFormat.Value := Negative + PADSTR('',TransFormat.Length - STRLEN(Negative) - 
STRLEN(TransFormat.Value),'0') + TransFormat.Value;
END;
TransFormat.Subtype::"Integer Part":
BEGIN 
TransFormat.Value := Negative + FORMAT(Amt,TransFormat.Length - STRLEN(Negative), 
Text1100012); 
TransFormat.Value := CONVERTSTR(CONVERTSTR(TransFormat.Value,',','.'),' ','0'); 
END; 
TransFormat.Subtype::"Decimal Part":
BEGIN 
TransFormat.Value := FORMAT(Amt,TransFormat.Length,Text1100010 + '2' + Text1100013);
TransFormat.Value := CONVERTSTR(DELCHR(TransFormat.Value,'=','.,'),' ','0'); 
TransFormat.Value := Negative + PADSTR('',TransFormat.Length - STRLEN(Negative) - 
STRLEN(TransFormat.Value),'0') + TransFormat.Value; 
END; 
// End of the lines.

END;
TransFormat.MODIFY;
...

Prasyarat

Anda harus menginstal Microsoft Dynamics NAV 5.0 Service Pack 1 versi Spanyol untuk menerapkan hotfix ini.

Informasi penghapusan

Anda tidak dapat menghapus hotfix ini.

Microsoft telah mengonfirmasi bahwa ini adalah masalah dalam produk Microsoft sebagaimana tercantum di bagian "Berlaku untuk".

Status

Catatan Ini adalah artikel "FAST PUBLISH" yang dibuat langsung dari dalam organisasi dukungan Microsoft. Informasi yang dimuat di sini disediakan sebagaimana adanya sebagai respons terhadap masalah yang muncul. Sebagai akibat dari kecepatan dalam membuatnya tersedia, materi mungkin menyertakan kesalahan pengetikan dan dapat direvisi kapan saja tanpa pemberitahuan. Lihat Ketentuan Penggunaan untuk pertimbangan lain.