Jumlah dalam PPN pernyataan berkas yang diekspor tidak benar di versi Microsoft Dynamics NAV 2009 R2 Ceko

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.

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 ExportToXML dalam bentuk ekspor PPN pernyataan (11764) sebagai berikut:
   Kode yang ada 1

   ...
   VATStatementLine.SETFILTER("Attribute Code",'<>%1','');
   IF VATStatementLine.FINDSET THEN
   REPEAT
   VATStatement.InitializeRequest(
   VATStatementName,VATStatementLine,Selection,
   PeriodSelection,PrintInIntegers,UseAmtsInAddCurr);
   ...

   Penggantian kode 1

   ...
   VATStatementLine.SETFILTER("Attribute Code",'<>%1','');
   IF VATStatementLine.FINDSET THEN
   REPEAT
   
   // Add the following line.
   VATStatement.SetRoundingDirection(RoundingDirection);
   
   VATStatement.InitializeRequest(
   VATStatementName,VATStatementLine,Selection,
   PeriodSelection,PrintInIntegers,UseAmtsInAddCurr);
   ...

   Kode yang ada 2

   ...
   AttributeCode.GET(VATStatementLine."Attribute Code");
   
   // Delete the following lines. 
   IF (AttributeCode."XML Code" <> 'KOEF_P20_NOV') AND
   (AttributeCode."XML Code" <> 'KOEF_P20_VYPOR')
   THEN
   ColumnValue := ROUND(ColumnValue,1);
   // End of the lines.
   ...

   Penggantian kode 2

   ...
   AttributeCode.GET(VATStatementLine."Attribute Code");
   
   // Add the following lines. 
   IF PrintInIntegers AND (AttributeCode."XML Code" <> 'KOEF_P20_NOV') AND
   (AttributeCode."XML Code" <> 'KOEF_P20_VYPOR')
   THEN
   ColumnValue := VATStatement.RoundAmount(ColumnValue);
   // End of the lines. 
   ...

2. Membuat sebuah variabel lokal yang baru dalam fungsi CalcLineTotal dalam laporan pernyataan PPN (12), dan kemudian Tentukan variabel sebagai berikut:

   • Nama: SavedStmtLine

   • DataType: catatan

   • Subtipe: PPN pernyataan baris

3. Membuat sebuah variabel lokal yang baru dalam fungsi CalcLineTotal dalam laporan pernyataan PPN (12), dan kemudian Tentukan variabel sebagai berikut:

   • Nama: SavedTotalAmount

   • DataType: desimal

4. Ubah kode di CalcLineTotal fungsi dalam laporan pernyataan PPN (12) sebagai berikut:
   Kode yang ada 1

   ...
   IF VATStmtLine2."Row Totaling" = '' THEN
   EXIT(TRUE);
   VATStmtLine2.SETRANGE("Statement Template Name",VATStmtLine2."Statement Template Name");
   VATStmtLine2.SETRANGE("Statement Name",VATStmtLine2."Statement Name");
   VATStmtLine2.SETFILTER("Row No.",VATStmtLine2."Row Totaling");
   ...

   Penggantian kode 1

   ...
   IF VATStmtLine2."Row Totaling" = '' THEN
   EXIT(TRUE);
   
   // Add the following lines.
   SavedStmtLine := VATStmtLine2;
   SavedTotalAmount := TotalAmount;
   TotalAmount := 0;
   // End of the lines. 
   
   VATStmtLine2.SETRANGE("Statement Template Name",VATStmtLine2."Statement Template Name");
   VATStmtLine2.SETRANGE("Statement Name",VATStmtLine2."Statement Name");
   VATStmtLine2.SETFILTER("Row No.",VATStmtLine2."Row Totaling");
   ...

   Kode yang ada 2

   ...
   VATStmtLine2.FIELDERROR("Row No.",ErrorText);
   END;
   UNTIL VATStmtLine2.NEXT = 0;
   END;
   VATStmtLine2.Type::Description:
   ;
   ...

   Penggantian kode 2

   ...
   VATStmtLine2.FIELDERROR("Row No.",ErrorText);
   END;
   UNTIL VATStmtLine2.NEXT = 0;
   
   // Add the following lines.
   Amount := TotalAmount;
   TotalAmount := SavedTotalAmount;
   CalcTotalAmount(SavedStmtLine,TotalAmount);
   // End of the lines. 
   
    END;
   VATStmtLine2.Type::Description:
   ;
   ...

   Kode yang ada 3

   ...
   VATStmtLine2.Type::Formula:
   
   // Delete the following line. 
   TotalAmount := EvaluateExpression(TRUE,VATStmtLine2."Row Totaling",VATStmtLine2,TRUE);
   
   END;
   ...

   Penggantian kode 3

   ...
   VATStmtLine2.Type::Formula:
   
   // Add the following lines. 
   BEGIN
   Amount := EvaluateExpression(TRUE,VATStmtLine2."Row Totaling",VATStmtLine2,TRUE);
   TotalAmount := 0;
   CalcTotalAmount(VATStmtLine2,TotalAmount);
   END;
   // End of the lines. 
   
   END;
   ...