Tuyên bố Instrastat phù hợp các nguyên tắc CBS trong phiên bản tiếng Hà Lan năm 2009 của Microsoft Dynamics NAV

Thông tin về cập nhật nóng

Microsoft hiện đã cung cấp bản cập nhật nóng được hỗ trợ. Tuy nhiên, nó chỉ được dùng để khắc phục sự cố được mô tả trong bài viết này. Áp dụng cho các hệ thống đang gặp sự cố cụ thể này. Hotfix này có thể được kiểm tra thêm. Vì vậy, nếu bạn không bị ảnh hưởng bởi sự cố này, chúng tôi khuyến nghị bạn đợi cho gói dịch vụ tiếp theo của Microsoft Dynamics NAV 2009 hoặc phiên bản Microsoft Dynamics NAV tiếp theo có chứa hotfix này.

Lưu ý Trong trường hợp đặc biệt, chi phí thường phát sinh để hỗ trợ cuộc gọi có thể bị hủy bỏ nếu chuyên viên hỗ trợ kỹ thuật cho Microsoft Dynamics và sản phẩm liên quan xác định rằng một Cập Nhật cụ thể sẽ giải quyết vấn đề của bạn. Chi phí hỗ trợ thông thường sẽ áp dụng cho các vấn đề không phù hợp với bản Cập Nhật cụ thể trong câu hỏi và câu hỏi hỗ trợ bổ sung.

Thông tin cài đặt

Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể. Tuy nhiên, họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn.

Lưu ý Trước khi cài đặt hotfix này, xác minh rằng tất cả người dùng máy khách Microsoft Dynamics NAV đã đăng xuất hệ thống. Điều này bao gồm dịch vụ Microsoft Dynamics NAV ứng dụng máy chủ (NAS). Bạn nên khách hàng chỉ người được đăng nhập khi bạn áp dụng hotfix này.

Để áp dụng hotfix này, bạn phải có giấy phép nhà phát triển.

Chúng tôi khuyên bạn nên tài khoản người dùng trong cửa sổ thông tin đăng nhập Windows hoặc trong cửa sổ thông tin đăng nhập cơ sở dữ liệu được gán vai trò "Siêu" của bạn. Nếu tài khoản người dùng không thể gán vai trò "SUPER" ID, bạn phải xác minh rằng tài khoản người dùng có các quyền sau đây:

• Thay đổi quyền cho các đối tượng mà bạn sẽ thay đổi.

• Quyền thực thi các đối tượng hệ thống đối tượng ID 5210 và hệ thống đối tượng ID 9015
  
  đối tượng.

Lưu ý Bạn không cần phải có quyền để lưu trữ dữ liệu nếu bạn phải tiến hành sửa chữa dữ liệu.

Thay đổi mã

Lưu ý Luôn kiểm tra mã khắc phục trong một môi trường được kiểm soát trước khi bạn áp dụng bản vá để sản xuất máy tính của bạn.

Để khắc phục sự cố này, hãy làm theo các bước sau:

1. Thay đổi mã trong tạo Intrastat Decl. đĩa báo cáo (11413) như sau:
   Hiện có mã 1

   ...SpecialUnit@1000002 : Decimal;
                              RoundedWeight@1000001 : Integer;
                              ItemDirection@1000004 : Integer;
                            BEGIN
                              TESTFIELD("Item No.");
                              TESTFIELD("Tariff No.");
   ...
   

   Thay thế mã 1

   ...SpecialUnit@1000002 : Decimal;
                              RoundedWeight@1000001 : Integer;
                              ItemDirection@1000004 : Integer;
   
   // Add the following line
   IsCorrection@1000005 : Boolean;
   // End of the added line.
   
                            BEGIN
                              TESTFIELD("Item No.");
                              TESTFIELD("Tariff No.");
   ...
   

   Hiện có mã 2

   ...ZeroShipment := FALSE;
                                  END;
                              END;
   
                              Write(FORMAT(Date, 0, '<Year4><Month,2>'));
                              Write(FORMAT(ItemDirection));
   ...
   

   Thay thế mã 2

   ...
   ZeroShipment := FALSE;
                                  END;
                              END;
   
   // Add the following line.
   IsCorrection := CheckCorrection("Source Entry No.",ItemDirection);
   // End of the added line.
   
                              Write(FORMAT(Date, 0, '<Year4><Month,2>'));
                              Write(FORMAT(ItemDirection));
   ...
   

   Mã hiện 3

   ...Write(PADSTR2("Transaction Type", 1, '', '>'));
                              Write(PADSTR2(DELCHR("Tariff No."), 8, '0', '<'));
                              Write('00');
                              Write(Sign(RoundedWeight)); // DELETED
                              Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
   ...
   

   Thay thế mã 3

   ...Write(PADSTR2("Transaction Type", 1, '', '>'));
                              Write(PADSTR2(DELCHR("Tariff No."), 8, '0', '<'));
                              Write('00');
   
   // Add the following line.
    Write(Sign(RoundedWeight,IsCorrection)); 
   // End of the added line.
   
                              Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
   ...
   

   Mã hiện 4

   ...Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
   
   // Delete the following line.
   Write(Sign(SpecialUnit));
   // End of the deleted line.
   
                              Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
   ...
   

   Thay thế mã 4

   ...Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
   
   // Add the following line.
   Write(Sign(SpecialUnit,IsCorrection));
   // End of the added line.
   
                              Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
   ...
   

   Hiện có mã 5

   ...
   Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
   
   // Delete the following line.
   Write(Sign(Amount));
   // End of the deleted line.
   
                              Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
   ...
   

   Thay thế mã 5

   ...
   Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
   
   // Add the following line.
   Write(Sign(Amount,IsCorrection));
   // End of the added line.
   
                              Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
   ...
   

   Mã hiện 6

   ...Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
   
   // Delete the following line.
   Write('+');
   // End of the deleted line.
   
                              Write(PADSTR2('0', 10, ' ', '<'));
                              Write(PADSTR2("Document No.", 10, ' ', '<'));
   ...
   

   Thay thế mã 6

   ...Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
   
   // Add the following lines.
   IF IsCorrection THEN 
   Write('-') 
   ELSE // ADDED
   Write('+'); 
   // End of the added lines.
   
                              Write(PADSTR2('0', 10, ' ', '<'));
                              Write(PADSTR2("Document No.", 10, ' ', '<'));
   ...
   

   Mã hiện 7

   ...Write(PADSTR2('0', 10, ' ', '<'));
                              Write(PADSTR2("Document No.", 10, ' ', '<'));
   
   // Delete the following line.
   Write(PADSTR2('', 4, ' ', '>'));
   // End of the deleted line.
   
                              Write('000');
                              Write(PADSTR2("Intrastat Jnl. Batch"."Currency Identifier", 1, ' ', '>'));
                              Write(PADSTR2('', 6, ' ', '>'));
   ...
   

   Thay thế mã 7

   ...Write(PADSTR2('0', 10, ' ', '<'));
                              Write(PADSTR2("Document No.", 10, ' ', '<'));
   
   // Add the following lines.
   Write(PADSTR2('', 3, ' ', '>')); 
   IF IsCorrection THEN 
   Write('C') 
   ELSE 
   Write(' '); 
   // End of the added lines.
   
                              Write('000');
                              Write(PADSTR2("Intrastat Jnl. Batch"."Currency Identifier", 1, ' ', '>'));
                              Write(PADSTR2('', 6, ' ', '>'));
   ...
   

2. Thay đổi mã trong hàm đăng tạo Intrastat Decl. đĩa báo cáo (11413) như sau:
   Hiện có mã 1

   ...ExportFile.SEEK(ExportFile.POS - 1);
       END;
   
   // Delete the following line.
   LOCAL PROCEDURE Sign@1000006(Number@1000000 : Decimal) : Text[1];
   // End of the deleted line.
   
       BEGIN
         CASE Number < 0 OF
           TRUE:
   ...
   

   Thay thế mã 1

   ... ExportFile.SEEK(ExportFile.POS - 1);
       END;
   
   // Add the following line.
   LOCAL PROCEDURE Sign@1000006(Number@1000000 : Decimal;IsCorrection@1000001 : Boolean) : Text[1];
   // End of the added line.
   
       BEGIN
         CASE Number < 0 OF
           TRUE:
   ...
   

   Hiện có mã 2

   ...BEGIN
         CASE Number < 0 OF
           TRUE:
   
   // Delete the following line.
   EXIT('-');
   // End of the deleted line.
   
           FALSE:
   ...
   

   Thay thế mã 2

   ...BEGIN
         CASE Number < 0 OF
           TRUE:
   
   // Add the following lines.
   IF NOT IsCorrection THEN 
   EXIT('-') 
   ELSE 
   EXIT('+'); 
   // End of the added lines.
   
           FALSE:
   ...
   

   Mã hiện 3

   ...FALSE:
   
   // Delete the following line.
   EXIT('+');
   // End of the deleted line.
   
         END;
       END;
   ...
   

   Thay thế mã 3

   ...FALSE:
   
   // Add the following lines.
   IF NOT IsCorrection THEN
   EXIT('+')
   ELSE
   EXIT('-'); 
   // End of the added lines.
   
         END;
       END;
   ...
   

3. Thay đổi mã trong hàm CheckCorrection tạo Intrastat Decl. đĩa báo cáo (11413) như sau:
   Mã hiện tại

   ...CrLf[2] := 10;
       END;
   
       BEGIN
   ...
   

   Thay thế mã

   ...CrLf[2] := 10;
       END;
   
   // Add the following lines.
   PROCEDURE CheckCorrection@1000018(SourceEntryNo@1000000 : Integer;VAR ItemDirection@1000001 : Integer) : Boolean; 
   VAR 
   ItemLedgerEntry@1000002 : Record 32;
   // End of the added lines.
   
       BEGIN
   ...
   

4. Thay đổi mã trong hàm CrLf tạo Intrastat Decl. đĩa báo cáo (11413) như sau:
   Mã hiện tại

   ...BEGIN
   
   // Delete the following lines.
   { 
   // Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
   } 
   END. 
   } 
   RDLDATA 
   { 
   } 
   } 
   // End of the deleted lines.
   ...
   

   Thay thế mã

   ...BEGIN
   
   // Add the following lines.
   WITH ItemLedgerEntry DO BEGIN 
   GET(SourceEntryNo); 
   CASE "Document Type" OF 
   "Document Type"::"Purchase Return Shipment": 
   BEGIN 
   ItemDirection := 6; 
   EXIT(TRUE); 
   END; 
   "Document Type"::"Sales Return Receipt": 
   BEGIN 
   ItemDirection := 7; 
   EXIT(TRUE); 
   END; 
   END; 
   END; 
   END; 
   // End of the added lines.
   ...
   

5. Thay đổi mã trong hàm CheckCorrection tạo Intrastat Decl. đĩa báo cáo (11413) như sau:
   Thay thế mã

   ...// Add the following lines.
   BEGIN 
   { 
   // Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1 
   } 
   END. 
   } 
   RDLDATA 
   { 
   } 
   } 
   
   // End of the added lines.
   ...
   
   

Điều kiện tiên quyết

Bạn phải có một trong các sản phẩm được cài đặt để áp dụng hotfix này:

• Phiên bản Microsoft Dynamics NAV 2009 R2 bằng tiếng Hà Lan

• Phiên bản tiếng Hà Lan của Microsoft Dynamics NAV 2009 SP1

Thông tin về việc loại bỏ

Bạn không thể xoá hotfix này.