Hệ thống tạo mục các sổ kế toán chung khi bạn chạy chức năng ngược lại giao dịch trong Microsoft Dynamics NAV 2009

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. Do đó, nếu bạn không bị ảnh hưởng bởi vấn đề 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.

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. Địa chỉ toàn cầu biến sau trong đảo ngược mục bảng (179):

   Text013@1039 : TextConst 'ENU="You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry. "';

2. Thay đổi mã trong hàm CheckDtldCustLedgEntry đảo ngược mục bảng (179) như sau:
   Mã hiện tại

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

   Thay thế mã

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldCustLedgEntry.SETRANGE(Unapplied);
     DtldCustLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldCustLedgEntry."Entry Type"::"Realized Gain",DtldCustLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldCustLedgEntry.ISEMPTY THEN
     ERROR(Text013,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

3. Thay đổi mã trong hàm CheckDtldVendLedgEntry đảo ngược mục bảng (179) như sau:
   Mã hiện tại

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...
   
   

   Thay thế mã

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldVendLedgEntry.SETRANGE(Unapplied);
     DtldVendLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldVendLedgEntry."Entry Type"::"Realized Gain",DtldVendLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldVendLedgEntry.ISEMPTY THEN
     ERROR(Text013,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...