Gejala

Setelah Anda menginstal KB3036701 dalam versi bahasa Spanyol Microsoft Dynamics NAV 2009, operasi kunci untuk baris koreksi selalu diekspor sebagai "E", saat ini akan tergantung pada operasi sebelumnya yang akan memperbaiki. Ikuti langkah-langkah di bagian perubahan kode untuk memecahkan masalah ini. Masalah ini terjadi di dalam 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 menerapkan perbaikan untuk komputer produksi.

Untuk mengatasi masalah ini, ikuti langkah-langkah berikut:

  1. Ubah kode di 5 nomor Item Data dalam laporan membuat 349 Deklarasi (10710) sebagai berikut:
    Kode yang ada 1

    ...  // SETFILTER(Customer."Country/Region Code",'<>%1',CountryCode);
    // es0014.begin
    PreVATRegNo := '';
    // es0013.end
    // es0014.end
    END;

    OnAfterGetRecord=VAR
    VATEntry@1100001 : Record 254;
    Amount@1100000 : ARRAY [3] OF Decimal;
    ...

    Penggantian kode 1

    ...  // SETFILTER(Customer."Country/Region Code",'<>%1',CountryCode);
    // es0014.begin
    PreVATRegNo := '';
    // es0013.end
    // es0014.end

    // Add the following line.
    OperationKey := 'E';
    // End of the added line.

    END;

    OnAfterGetRecord=VAR
    VATEntry@1100001 : Record 254;
    Amount@1100000 : ARRAY [3] OF Decimal;
    ...

    Kode yang ada 2

    ...CustVendCountry.GET(Customer2."Country/Region Code");
    // es0033.begin
    IF CustVendWarning349."EU Service" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Penggantian kode 2

    ...  CustVendCountry.GET(Customer2."Country/Region Code");
    // es0033.begin
    IF CustVendWarning349."EU Service" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

    // Add the following line.
    OperationKey := 'S';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Kode yang ada 3

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'S' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    ...

    Penggantian kode 3

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    ...

    Ada kode 4

    ...OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Penggantian kode 4

    ...                                                OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

    // Add the following line.
    OperationKey := 'T';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Ada kode 5

    ... Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'T' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE BEGIN
    FOR i := 1 TO 3 DO
    ...

    Penggantian kode 5

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE BEGIN
    FOR i := 1 TO 3 DO
    ...

    Kode yang ada 6

    ...END ELSE BEGIN
    FOR i := 1 TO 3 DO
    IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Penggantian kode 6

    ... END ELSE BEGIN
    FOR i := 1 TO 3 DO
    IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);

    // Add the following line.
    OperationKey := OperationCode[i];
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Kode yang ada 7

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    OperationCode[i] + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    //PADSTR('',72,' ');
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END;
    ...

    Penggantian kode 7

    ... Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    //PADSTR('',72,' ');
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END;
    ...

    Kode yang ada 8

    ... IF Amount[i] <> 0 THEN BEGIN
    IF Amount[i] < 0 THEN
    Amount[i] := -Amount[i];
    TextAmount := COPYSTR(FormatTextAmt(Amount[i]),3,13);
    CustVendCountry.GET(Customer2."Country/Region Code");

    // Delete the following lines.
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    OperationCode[i] + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the deleted lines.

    NoOperations := NoOperations + 1;
    TotalAmtShip := TotalAmtShip + Amount[i];
    OutFile.WRITE(Txt);
    END;
    IF AmountOpTri < 0 THEN
    ...

    Penggantian kode 8

    ...IF Amount[i] <> 0 THEN BEGIN
    IF Amount[i] < 0 THEN
    Amount[i] := -Amount[i];
    TextAmount := COPYSTR(FormatTextAmt(Amount[i]),3,13);
    CustVendCountry.GET(Customer2."Country/Region Code");

    // Add the following lines.
    OperationKey := OperationCode[i];
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the added lines.

    NoOperations := NoOperations + 1;
    TotalAmtShip := TotalAmtShip + Amount[i];
    OutFile.WRITE(Txt);
    END;
    IF AmountOpTri < 0 THEN
    ...

    Kode yang ada 9

    ... //   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    // PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // 'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
    // // es0019.end
    CustVendCountry.GET(Customer2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    ...

    Penggantian kode 9

    ... //   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    // PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // 'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
    // // es0019.end
    CustVendCountry.GET(Customer2."Country/Region Code");

    // Add the following line.
    OperationKey := 'T';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    ...

    Kode yang ada 10

    ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

    // Delete the following line.
    'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the deleted line.

    // es0033.end
    // es0020.end
    NoOperations := NoOperations + 1;
    TotalAmtShip := TotalAmtShip + AmountOpTri;
    OutFile.WRITE(Txt);
    ...

    Penggantian kode 10

    ...'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

    // Add the following line.
    OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the added line.

    // es0033.end
    // es0020.end
    NoOperations := NoOperations + 1;
    TotalAmtShip := TotalAmtShip + AmountOpTri;
    OutFile.WRITE(Txt);
    ...

    Kode yang ada 11

    ...IF AmountEUService < 0 THEN
    AmountEUService := -AmountEUService;
    IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
    CustVendCountry.GET(Customer2."Country/Region Code");

    // Delete the following lines.
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    'S' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the deleted lines.

    NoOperations := NoOperations + 1;
    TotalAmtShip := TotalAmtShip + AmountEUService;
    OutFile.WRITE(Txt);
    END;
    IF IsCreditMomoPrinted THEN BEGIN
    ...

    Penggantian kode 11

    ...IF AmountEUService < 0 THEN
    AmountEUService := -AmountEUService;
    IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
    CustVendCountry.GET(Customer2."Country/Region Code");

    // Add the following lines.
    OperationKey := 'S';
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the added lines.

    NoOperations := NoOperations + 1;
    TotalAmtShip := TotalAmtShip + AmountEUService;
    OutFile.WRITE(Txt);
    END;
    IF IsCreditMomoPrinted THEN BEGIN
    ...

    Ada kode 12

    ...CustVendCountry.GET(Customer2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'E' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    NoOperations += 1;
    TotalAmtShip += AmountEUService;
    OutFile.WRITE(Txt);
    ...

    Penggantian kode 12

    ...CustVendCountry.GET(Customer2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the folloiwng line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    NoOperations += 1;
    TotalAmtShip += AmountEUService;
    OutFile.WRITE(Txt);
    ...
  2. Ubah kode di 6 nomor Item Data dalam laporan Make349Declaration (10710) sebagai berikut:
    Kode yang ada 1

    ...  // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
    // es0014.begin
    PreVATRegNo := '';
    // es0014.end
    // es0013.end
    END;

    OnAfterGetRecord=VAR
    AppliedAmt@1100000 : Decimal;
    PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
    ...

    Penggantian kode 1

    ... // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
    // es0014.begin
    PreVATRegNo := '';
    // es0014.end
    // es0013.end

    // Add the following line.
    OperationKey := 'A';
    // End of the added line.

    END;

    OnAfterGetRecord=VAR
    AppliedAmt@1100000 : Decimal;
    PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
    ...

    Kode yang ada 2

    ...// es0033.begin
    IF CustVendWarning349."EU Service" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Penggantian kode 2

    ... // es0033.begin
    IF CustVendWarning349."EU Service" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

    // Add the following line.
    OperationKey := 'I';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Kode yang ada 3

    ... Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'I' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    ...

    Penggantian kode 3

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    ...

    Ada kode 4

    ... OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Penggantian kode 4

    ... OutFile.WRITE(Txt);
    END ELSE
    IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

    // Add the following line.
    OperationKey := 'T';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Ada kode 5

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'T' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
    ...

    Penggantian kode 5

    ...Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
    ...

    Kode yang ada 6

    ... PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);
    // es0033.end
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Penggantian kode 6

    ...PADSTR('',322,' ');
    OutFile.WRITE(Txt);
    END ELSE BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
    TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);

    // Add the following line.
    OperationKey := 'A';
    // End of the added line.

    // es0033.end
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    ...

    Kode yang ada 7

    ... // es0033.end
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'A' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    // es0033.begin
    //PADSTR('',72,' ');
    PADSTR('',322,' ');
    // es0033.end
    ...

    Penggantian kode 7

    ...// es0033.end
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
    // es0033.begin
    //PADSTR('',72,' ');
    PADSTR('',322,' ');
    // es0033.end
    ...

    Kode yang ada 8

    ... //   FORMAT(CustVendVatRegNo,15) +
    // PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // 'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
    // // es0016.end
    CustVendCountry.GET(Vendor2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    ...

    Penggantian kode 8

    ... //   FORMAT(CustVendVatRegNo,15) +
    // PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // 'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
    // // es0016.end
    CustVendCountry.GET(Vendor2."Country/Region Code");

    // Add the following line.
    OperationKey := 'A';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    ...

    Kode yang ada 9

    ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    //'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

    // Delete the following line.
    'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the deleted line.

    // es0033.end
    // es0019.end
    NoOperations := NoOperations + 1;
    TotalAmtReciv := TotalAmtReciv + NormalAmount;
    OutFile.WRITE(Txt);
    ...

    Penggantian kode 9

    ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    //'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

    // Add the following line.
    OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the added line.

    // es0033.end
    // es0019.end
    NoOperations := NoOperations + 1;
    TotalAmtReciv := TotalAmtReciv + NormalAmount;
    OutFile.WRITE(Txt);
    ...

    Kode yang ada 10

    ... //   FORMAT(CustVendVatRegNo,15) +
    // PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // 'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
    // // es0016.end
    CustVendCountry.GET(Vendor2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    ...

    Penggantian kode 10

    ... //   FORMAT(CustVendVatRegNo,15) +
    // PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // 'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
    // // es0016.end
    CustVendCountry.GET(Vendor2."Country/Region Code");

    // Add the following line.
    OperationKey := 'T';
    // End of the added line.

    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    ...

    Kode yang ada 11

    ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

    // Delete the following line.
    'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the deleted line.

    // es0033.end
    // es0019.end
    NoOperations := NoOperations + 1;
    TotalAmtReciv := TotalAmtReciv + AmountOpTri;
    OutFile.WRITE(Txt);
    ...

    Penggantian kode 11

    ... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    // es0033.begin
    //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

    // Add the following line.
    OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the added line.

    // es0033.end
    // es0019.end
    NoOperations := NoOperations + 1;
    TotalAmtReciv := TotalAmtReciv + AmountOpTri;
    OutFile.WRITE(Txt);
    ...

    Ada kode 12

    ...IF AmountEUService < 0 THEN
    AmountEUService := -AmountEUService;
    IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
    CustVendCountry.GET(Vendor2."Country/Region Code");

    // Delete the following lines.
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    'I' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the deleted lines.

    NoOperations := NoOperations + 1;
    TotalAmtReciv := TotalAmtReciv + AmountEUService;
    OutFile.WRITE(Txt);
    END;
    // es0033.end
    ...

    Penggantian kode 12

    ...IF AmountEUService < 0 THEN
    AmountEUService := -AmountEUService;
    IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
    TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
    CustVendCountry.GET(Vendor2."Country/Region Code");

    // Add the following lines.
    OperationKey := 'I';
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +
    OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
    // End of the added lines.

    NoOperations := NoOperations + 1;
    TotalAmtReciv := TotalAmtReciv + AmountEUService;
    OutFile.WRITE(Txt);
    END;
    // es0033.end
    ...

    Kode yang ada 13

    ... CustVendCountry.GET(Customer2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Delete the following line.
    'E' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the deleted line.

    CustVendWarning349."Original Declaration Period" + TextAmount +
    PADSTR('',322,' ');
    NoOperations += 1;
    TotalAmtShip += AmountEUService;
    OutFile.WRITE(Txt);
    ...

    Penggantian kode 13

    ...CustVendCountry.GET(Customer2."Country/Region Code");
    Txt :=
    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
    PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãé륚€()"&ï','AAEEIIOOUUÑUÇ '),40,' ') +

    // Add the following line.
    OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
    // End of the added line.

    CustVendWarning349."Original Declaration Period" + TextAmount +
    PADSTR('',322,' ');
    NoOperations += 1;
    TotalAmtShip += AmountEUService;
    OutFile.WRITE(Txt);
    ...
  3. Ubah kode di variabel Global dalam membuat 349 Deklarasi laporan (10710) sebagai berikut:
    Kode yang ada

    ...EUServiceAlreadyExported@1100077 : Boolean;
    ThirdPartyAlreadyExported@1100078 : Boolean;
    FileNameControlVisible@19024830 : Boolean INDATASET;
    PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
    Idx@1100080 : ',E,M,H';

    PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
    VAR
    TextAmt@1100101 : Text[15];
    BEGIN
    ...

    Penggantian kode

    ...EUServiceAlreadyExported@1100077 : Boolean;
    ThirdPartyAlreadyExported@1100078 : Boolean;
    FileNameControlVisible@19024830 : Boolean INDATASET;
    PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
    Idx@1100080 : ',E,M,H';

    // Add the following line.
    OperationKey@1100026 : Text[1];
    // End of the added line.

    PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
    VAR
    TextAmt@1100101 : Text[15];
    BEGIN
    ...
  4. Ubah kode di GetPostedCountryLocCode fungsi dalam membuat 349 Deklarasi laporan (10710) sebagai berikut:
    Kode yang ada 1

    ...IF Location.GET(SalesInvLines."Location Code") THEN
    EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
    IF EUCountryLinesLocationCode THEN BEGIN
    AmountToIncludeIn349 +=
    GetExportedAmountIn349(SalesInvHeader."Currency Code",

    // Delete the following line.
    SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount");
    // End of the deleted line.

    IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
    LocationDifferentCountryCode := TRUE;
    TempSalesInvLines := SalesInvLines;
    TempSalesInvLines.INSERT;
    END;
    ...

    Penggantian kode 1

    ...IF Location.GET(SalesInvLines."Location Code") THEN
    EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
    IF EUCountryLinesLocationCode THEN BEGIN
    AmountToIncludeIn349 +=
    GetExportedAmountIn349(SalesInvHeader."Currency Code",

    // Add the following lines.
    SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount")
    ;
    // End of the added lines.

    IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
    LocationDifferentCountryCode := TRUE;
    TempSalesInvLines := SalesInvLines;
    TempSalesInvLines.INSERT;
    END;
    ...

    Kode yang ada 2

    ... END ELSE
    IF CompInforShipToCountryCode THEN BEGIN
    EUCountryLinesLocationCode := TRUE;
    AmountToIncludeIn349 +=
    GetExportedAmountIn349(SalesInvHeader."Currency Code",

    // Delete the following line.
    SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount");
    // End of the deleted line.

    TempSalesInvLines := SalesInvLines;
    TempSalesInvLines.INSERT;
    END;
    UNTIL SalesInvLines.NEXT = 0;
    END;
    ...

    Penggantian kode 2

    ...END ELSE
    IF CompInforShipToCountryCode THEN BEGIN
    EUCountryLinesLocationCode := TRUE;
    AmountToIncludeIn349 +=
    GetExportedAmountIn349(SalesInvHeader."Currency Code",

    // Add the following lines.
    SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount")
    ;
    // End of the added lines.

    TempSalesInvLines := SalesInvLines;
    TempSalesInvLines.INSERT;
    END;
    UNTIL SalesInvLines.NEXT = 0;
    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

Selain itu, Anda harus memiliki KB3036701 diinstal.

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?

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!

×