File txt yang diekspor dari PPN pernyataan salah dalam bahasa Portugis versi Microsoft Dynamics NAV 2009

Templat: CPR - Navision kode Fiacx Template

BUG #: 207226 (pemeliharaan konten)

Terjadi masalah berikut ini:

  • Nilai-nilai dasar dan jumlah bulat.

  • Baris total salah dan menghasilkan galat berikut saat mencoba untuk mengirimkan berkas halaman pada:

    60201201 777777777

Ikuti langkah-langkah di bagian perubahan kode untuk memecahkan masalah ini. Masalah ini terjadi di dalam produk berikut ini:

  • Portugis versi Microsoft Dynamics NAV 2009 R2

  • Portugis versi Microsoft Dynamics NAV 2009 Paket Layanan 1 (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.

Apabila hotfix ini tidak dikirimkan untuk unduhan publik (berarti URL publik untuk hotfix ini tidak disediakan dalam artikel ini), distribusi memerlukan arahan teknis, eskalasi anggota tim, atau persetujuan manajer dan informasi berikut ini berlaku:

  • Untuk menerima hotfix, pelanggan harus mengalami bug yang disebutkan di bagian "Gejala".

  • Anda harus melacak sendiri Pelanggan yang Anda kirimi dan memberikan paket layanan berikutnya kepada mereka setelah hotfix tersedia (setelah paket layanan diedarkan).

Hotfix ini tidak dijadwalkan untuk disertakan dengan Microsoft Dynamics NAV paket layanan.

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 menerapkan perbaikan untuk komputer produksi.

Untuk mengatasi masalah ini, ikuti langkah-langkah berikut:

  1. Ubah kode di fungsi InsertECDeclarationTrailer dalam tabel PPN laporan berkas Buffer (13380) sebagai berikut:
    Ada co de

    ...BEGIN
    NewLine;
    //NAVPTL005.001,o InsertIntegerValue (89, 2);

    // Delete the following line.
    InsertIntegerValue (98, 2); //NAVPTL005.001,n

    InsertIntegerValue (LineNumber, 9);
    PadLinetill134Characters(Blank);
    END;
    ...

    Penggantian kode

    ...BEGIN
    NewLine;
    //NAVPTL005.001,o InsertIntegerValue (89, 2);

    // Add the following lines.
    //PT355807,o InsertIntegerValue (98, 2); //NAVPTL005.001,n
    InsertIntegerValue (89, 2); //PT355807,n
    // End of the added lines.

    InsertIntegerValue (LineNumber, 9);
    PadLinetill134Characters(Blank);
    END;
    ...
  2. Ubah kode di fungsi InsertAnnex4041CustomerLine dalam tabel PPN laporan berkas Buffer (13380) sebagai berikut:
    Kode yang ada

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue (pVATRegNo, 9,Blank);

    // Delete the following lines.
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    // End of the deleted lines.

    InsertTextValue (Blank,92,Blank);
    END;
    ...

    Penggantian kode

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue (pVATRegNo, 9,Blank);

    // Add the following lines.
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12); //PT355807,n
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12); //PT355807,n
    // End of the added lines.

    InsertTextValue (Blank,92,Blank);
    END;
    ...
  3. Ubah kode di fungsi InsertAnnex4041DocumentLine dalam tabel PPN laporan berkas Buffer (13380) sebagai berikut:
    Kode yang ada

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue(pDocNo,13,Blank);

    // Delete the following line.
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);

    InsertTextValue (Blank,100,Blank);
    END;
    ...

    Penggantian kode

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue(pDocNo,13,Blank);

    // Add the following lines.
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12); //PT355807,n
    // End of the added lines.

    InsertTextValue (Blank,100,Blank);
    END;
    ...
  4. Ubah kode di fungsi InsertAnnex4041ReasonLine dalam tabel PPN laporan berkas Buffer (13380) sebagai berikut:
    Kode yang ada 1

    ...InsertTextValue (Blank,100,Blank);
    END;

    // Delete the following lines.
    PROCEDURE InsertAnnex4041ReasonLine@1000000003(pVATAnnexSetup@1000000000 : Record 13386;pVATEntry@1000000003 : Record 254);
    BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"2" THEN BEGIN
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    InsertTextValue (Blank,50,Blank);
    // End of the deleted lines.

    END;

    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    ...

    Penggantian kode 1

    ...InsertTextValue (Blank,100,Blank);
    END;

    // Add the following lines.
    PROCEDURE InsertAnnex4041ReasonLine@1000000003(pVATAnnexSetup@1000000000 : Record 13386;pVATEntry@1000000003 : Record 254;LineNo@1000000001 : Integer);
    BEGIN
    //PT355807,o NewLine;
    //PT355807,o InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"2" THEN BEGIN
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    //PT355807,o InsertTextValue (Blank,50,Blank);
    //PT355807,sn
    IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = '') THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    END;
    IF (pVATAnnexSetup.SubSection = 'b') AND (LineNo=1) THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,24);
    END;
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
    //PT355807,en
    // End of the added lines.

    END;

    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    ...

    Kode yang ada 2

    ...IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = 'A') THEN BEGIN

    // Delete the following lines.
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    END;
    IF (pVATAnnexSetup.SubSection = 'b') OR (pVATAnnexSetup.SubSection = 'B') THEN BEGIN
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    // End of the deleted lines.

    END;
    END;
    ...

    Penggantian kode 2

    ...IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = 'A') THEN BEGIN

    // Add the following lines.
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    //PT355807,sn
    IF (LineNo=1) THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,24);
    END;
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
    //PT355807,en
    END;
    IF (pVATAnnexSetup.SubSection = 'b') OR (pVATAnnexSetup.SubSection = 'B') THEN BEGIN
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    //PT355807,sn
    IF (LineNo=1) THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,48);
    END;
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
    //PT355807,en
    // End of the added lines.

    END;
    END;
    ...

    Kode yang ada 3

    ...END;
    END;

    // Delete the following lines.
    InsertTextValue (Blank,48,Blank);;
    END;

    PROCEDURE LastVATAnnex40Line@1000000006(pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
    BEGIN
    // End of the deleted lines.

    NewLine;
    InsertTextValue ('96',2,Blank);
    InsertIntegerValue (1, 5);
    ...

    Penggantian kode 3

    ...END;
    END;

    // Add the following lines.
    //PT355807,o InsertTextValue (Blank,48,Blank);
    END;

    PROCEDURE LastVATAnnex40Line@1000000006(pTotalAmount@1000000002 : Decimal;pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
    BEGIN
    //PT355807,o NewLine;
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,48,Blank);
    InsertVAT40LastLine(24);
    // End of the added lines.

    NewLine;
    InsertTextValue ('96',2,Blank);
    InsertIntegerValue (1, 5);
    ...
  5. Ubah kode di fungsi LastVATAnnex40Line dalam tabel PPN laporan berkas Buffer (13380) sebagai berikut:
    Kode yang ada 1

    ...InsertTextValue (Blank,118,Blank);
    NewLine;
    InsertTextValue ('69',2,Blank);

    // Delete the following line.
    InsertIntegerValue (pResumes[1], 5);

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Penggantian kode 1

    ...InsertTextValue (Blank,118,Blank);
    NewLine;
    InsertTextValue ('69',2,Blank);

    // Add the following line.
    //PT355807,o InsertIntegerValue (pResumes[1], 5);

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Kode yang ada 2

    ...InsertIntegerValue (pResumes[7], 5);
    InsertIntegerValue (pResumes[8], 5);
    InsertIntegerValue (1, 5);
    END;

    PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    ...

    Penggantian kode 2

    ...InsertIntegerValue (pResumes[7], 5);
    InsertIntegerValue (pResumes[8], 5);
    InsertIntegerValue (1, 5);

    // Add the following line.
    InsertTextValue (Blank,94,Blank); //PT355807,n

    END;

    PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    ...
  6. Ubah kode di fungsi LastVATAnnex41Line dalam tabel PPN laporan berkas Buffer (13380) sebagai berikut:
    Kode yang ada 1

    ...PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN

    // Delete the following lines.
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(ABS(ROUND(pTotalAmount,1,'<')*100),12);
    NewLine;
    InsertTextValue ('89',2,Blank);
    InsertIntegerValue (pResumes[1], 5);
    // End of the deleted lines.

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Penggantian kode 1

    ...PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN

    // Add the following lines.
    //PT355807,o NewLine;
    //PT355807,o InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,72,Blank);
    InsertVAT41LastLine(24);
    NewLine;
    InsertTextValue ('89',2,Blank);
    //PT355807,o InsertIntegerValue (pResumes[1], 5);
    // End of the added lines.

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Kode yang ada 2

    ...InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);
    END;

    BEGIN
    ...

    Penggantian kode 2

    ...InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);

    // Add the following lines.
    InsertIntegerValue (pResumes[7], 5); //PT355807,n
    InsertTextValue (Blank,104,Blank); //PT355807,n
    END;

    PROCEDURE InsertVAT40LastLine@1000000005(Size@1000000000 : Integer);
    BEGIN
    //PT355807,sn
    FIND('+');
    IF STRLEN("Line Value") <> 134 THEN BEGIN
    "Line Value" := COPYSTR("Line Value",1,50) + CONVERTSTR (FORMAT (0, Size, 0), Blank, HeadingZero) + COPYSTR("Line Value",51);
    MODIFY;
    END;
    //PT355807,en
    END;

    PROCEDURE InsertVAT41LastLine@1000000007(Size@1000000000 : Integer);
    BEGIN
    //PT355807,sn
    FIND('+');
    IF STRLEN("Line Value") <> 134 THEN BEGIN
    "Line Value" := COPYSTR("Line Value",1,26) + CONVERTSTR (FORMAT (0, Size, 0), Blank, HeadingZero) + COPYSTR("Line Value",27);
    MODIFY;
    END;
    //PT355807,en
    END;

    PROCEDURE LastVATAnnex40Line2@1000000009(pVATAnnexSetup@1000000003 : Record 13386;pTotalAmount@1000000002 : Decimal;pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
    BEGIN
    //PT355807,sn
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,72);
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,48,Blank);
    NewLine;
    InsertTextValue ('96',2,Blank);
    InsertIntegerValue (1, 5);
    InsertTextValue(pVATregNo,9,Blank);
    InsertTextValue (Blank,118,Blank);
    NewLine;
    InsertTextValue ('69',2,Blank);
    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);
    InsertIntegerValue (pResumes[7], 5);
    InsertIntegerValue (pResumes[8], 5);
    InsertIntegerValue (1, 5);
    InsertTextValue (Blank,92,Blank);
    //PT355807,en
    END;

    PROCEDURE LastVATAnnex41Line2@1000000008(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN
    //PT355807,sn
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,48);
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,72,Blank);
    NewLine;
    InsertTextValue ('89',2,Blank);
    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);
    InsertIntegerValue (pResumes[7], 5);
    InsertTextValue (Blank,102,Blank);
    //NAVPTL005.002,en
    // End of the added lines.

    END;

    BEGIN
    ...
  7. Ubah kode VAT pernyataan (PT) laporan (13398) sebagai berikut:
    Kode yang ada 1

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    //Delete the following lines.
    IndiceArray += 1;
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the deleted lines.

    END;

    VATRepBuffer.InsertAnnex4041CustomerLine(recVATAnnexSetup,LineNo,"VAT Registration No.","VAT Entry Customer");
    ...

    Penggantian kode 1

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Add the following lines.
    //PT355807,o IndiceArray += 1;
    //PT355807,sn
    EVALUATE(recType,recVATAnnexSetup."Record Type");
    IF AnnexFilter = 40 THEN
    IndiceArray := recType - 60
    ELSE
    IndiceArray := recType - 80;
    //PT355807,en
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the added lines.

    END;

    VATRepBuffer.InsertAnnex4041CustomerLine(recVATAnnexSetup,LineNo,"VAT Registration No.","VAT Entry Customer");
    ...

    Kode yang ada 2

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Delete the following lines.
    IndiceArray += 1;
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the deleted lines.

    END;

    VATRepBuffer.InsertAnnex4041DocumentLine(recVATAnnexSetup,LineNo,"External Document No.","VAT Entry Document No.");
    ...

    Penggantian kode 2

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Add the following lines.
    //PT355807,o IndiceArray += 1;
    //PT355807,sn
    EVALUATE(recType,recVATAnnexSetup."Record Type");
    IF AnnexFilter = 40 THEN
    IndiceArray := recType - 60
    ELSE
    IndiceArray := recType - 80;
    //PT355807,en
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the added lines.

    END;

    VATRepBuffer.InsertAnnex4041DocumentLine(recVATAnnexSetup,LineNo,"External Document No.","VAT Entry Document No.");
    ...

    Kode yang ada 3

    ...OnPostDataItem=BEGIN
    CLEAR(recVATAnnexSetup);

    // Delete the following lines.
    recVATAnnexSetup.SETRANGE("Reason Code", "Reason Code");
    IF recVATAnnexSetup.FINDFIRST THEN

    IF AnnexFilter = 41 THEN
    VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
    // End of the deleted lines.

    END;

    TotalFields=Base,Amount;
    ...

    Penggantian kode 3

    ...OnPostDataItem=BEGIN
    CLEAR(recVATAnnexSetup);

    // Add the following lines.
    booTotal := FALSE; //PT355807,n
    recVATAnnexSetup.SETRANGE("Reason Code", "Reason Code");
    //PT355807,o IF recVATAnnexSetup.FINDFIRST THEN
    //PT355807,o IF AnnexFilter = 41 THEN
    //PT355807,o VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
    //PT355807,sn
    IF recVATAnnexSetup.FINDFIRST THEN BEGIN
    IF AnnexFilter = 41 THEN BEGIN
    booTotal := TRUE;
    VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
    END;

    IF AnnexFilter = 40 THEN BEGIN
    booTotal := TRUE;
    VATRepBuffer.LastVATAnnex40Line(TotalVATAnnexAmount,FORMAT(FiscalNo),ResumeLines);
    END;
    END;
    //PT355807,en
    // End of the added lines.

    END;

    TotalFields=Base,Amount;
    ...

    Ada kode 4

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Delete the following lines.
    IndiceArray += 1;
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the deleted lines.

    END;

    TotalVATAnnexBase += Base;
    ...

    Penggantian kode 4

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Add the following lines.
    //PT355807,o IndiceArray += 1;
    //PT355807,sn
    EVALUATE(recType,recVATAnnexSetup."Record Type");
    IF AnnexFilter = 40 THEN
    IndiceArray := recType - 60
    ELSE
    IndiceArray := recType - 80;
    //PT355807,en
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the added lines.

    END;

    TotalVATAnnexBase += Base;
    ...

    Ada kode 5

    ...RegistersNumber += 1;

    // Delete the following line.
    VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code");

    END;

    }
    ...

    Penggantian kode 5

    ...RegistersNumber += 1;


    + //PT355807,o VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code");
    + VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code",LineNo); //PT355807,n
    END;

    }

    Kode yang ada 6

    ...WHERE(Number=CONST(1));
    DataItemVarName=TotalInteger;
    OnAfterGetRecord=BEGIN

    // Delete the following lines.
    IF AnnexFilter = 40 THEN
    VATRepBuffer.LastVATAnnex40Line(FORMAT(FiscalNo),ResumeLines);
    // End of the deleted lines.

    END;

    }
    ...

    Penggantian kode 6

    ...WHERE(Number=CONST(1));
    DataItemVarName=TotalInteger;
    OnAfterGetRecord=BEGIN

    // Add the following lines.
    //PT355807,o IF AnnexFilter = 40 THEN
    //PT355807,o VATRepBuffer.LastVATAnnex40Line(FORMAT(FiscalNo),ResumeLines);
    //PT355807,sn
    IF NOT booTotal THEN BEGIN
    recVATAnnexSetup2.RESET;
    recVATAnnexSetup2.SETFILTER(Annex, FORMAT(AnnexFilter));
    IF recVATAnnexSetup2.FINDLAST THEN BEGIN
    IF AnnexFilter = 40 THEN
    VATRepBuffer.LastVATAnnex40Line2(recVATAnnexSetup2,TotalVATAnnexAmount,FORMAT(FiscalNo),ResumeLines);

    IF AnnexFilter = 41 THEN
    VATRepBuffer.LastVATAnnex41Line2(recVATAnnexSetup2,TotalVATAnnexAmount,ResumeLines);
    END;
    END;
    //PT355807,en
    // End of the added lines.

    END;

    }
    ...

    Kode yang ada 7

    ...LastRecordType@1000000009 : Text[2];
    TotalVATAnnexBase@1000000005 : Decimal;
    TotalVATAnnexAmount@1000000006 : Decimal;

    PROCEDURE CalcLineTotal2C@1110001(VATStmtLine2@1110000 : Record 256;Level@1110001 : Integer) : Boolean;
    BEGIN
    ...

    Penggantian kode 7

    ...LastRecordType@1000000009 : Text[2];
    TotalVATAnnexBase@1000000005 : Decimal;
    TotalVATAnnexAmount@1000000006 : Decimal;

    // Add the following lines.
    booTotal@1000000013 : Boolean;
    recVATAnnexSetup2@1000000014 : Record 13386;
    recType@1000000015 : Integer;
    // End of the added lines.

    PROCEDURE CalcLineTotal2C@1110001(VATStmtLine2@1110000 : Record 256;Level@1110001 : Integer) : Boolean;
    BEGIN
    ...


Prasyarat

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

  • Portugis versi Microsoft Dynamics NAV 2009 R2

  • Portugis versi 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".

Referensi

VSFT DynamicsNAVSE: 355807

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.

Penulis: avannini
Writer: v-six
Pemeriksa teknis: avannini
Editor:

Perlu bantuan lainnya?

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

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×