แนะนำการชำระเงินของผู้จัดจำหน่ายรายงานแนะนำมิติไม่ถูกต้องใน Microsoft Dynamics NAV 2009

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

ข้อมูลการติดตั้ง

Microsoft ให้ตัวอย่างการเขียนโปรแกรมไว้สำหรับประกอบการอธิบายเท่านั้นโดยไม่มีการรับประกันไม่ว่าจะโดยชัดแจ้งหรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายเกี่ยวกับหน้าที่การใช้งานของกระบวนการเฉพาะ อย่างไรก็ตาม จะไม่แก้ไขตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชัน หรือสร้างขั้นตอนเพื่อตอบสนองความต้องการเฉพาะของคุณ

หมายเหตุ ก่อนที่คุณติดตั้งโปรแกรมแก้ไขด่วนนี้ โปรดตรวจสอบว่า ผู้ใช้ไคลเอนต์ของ Microsoft Dynamics NAV ทั้งหมดเข้าสู่ระบบออกจากระบบ ข้อมูลนี้รวมถึงบริการ Microsoft Dynamics NAV แอพพลิเคชันเซิร์ฟเวอร์ (NAS) คุณควรไคลเอ็นต์เฉพาะผู้ใช้ที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้ คุณต้องมีสิทธิ์การใช้งานสำหรับนักพัฒนา

เราขอแนะนำว่า บัญชีผู้ใช้ ในหน้าต่างล็อกอินของ Windows หรือ ในหน้าต่างล็อกอินฐานข้อมูลสามารถกำหนดรหัสการเข้าถึงข้อมูล "ขั้นสูง" ถ้าบัญชีผู้ใช้ไม่สามารถกำหนดรหัสการบทบาท "SUPER" คุณต้องตรวจสอบว่า บัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:

• สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน

• สิทธิ์ในการดำเนินการ สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและระบบ 9015 ID ของวัตถุ
  
  วัตถุ

หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล

การเปลี่ยนแปลงรหัส

หมายเหตุทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมเสมอก่อนที่คุณแก้ไขการนำไปใช้กับคอมพิวเตอร์ของคุณผลิต ก่อนที่จะใช้การเปลี่ยนแปลง โปรดนำเข้าปรับปรุง SEPA ทั้งหมด

เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันMakeGenJnlLinesในรายงานการแนะนำการชำระเงินของผู้จัดจำหน่าย (393) เป็นดังนี้:
   รหัสที่มีอยู่

   ...JnlLineDim.SETRANGE("Journal Line No.","Line No.");
               JnlLineDim.DELETEALL;
   
               CreateDim(
                 DimMgt.TypeToTableID1("Account Type"),"Account No.",
                 DimMgt.TypeToTableID1("Bal. Account Type"),"Bal. Account No.",
                 DATABASE::Job,"Job No.",
                 DATABASE::"Salesperson/Purchaser","Salespers./Purch. Code",
                 DATABASE::Campaign,"Campaign No.");
   
               IF SummarizePerVend THEN BEGIN
                 TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
   ...
   

   รหัสแทน

   ...JnlLineDim.SETRANGE("Journal Line No.","Line No.");
               JnlLineDim.DELETEALL;
   
               IF SummarizePerVend THEN BEGIN
                 TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันMakeGenJnlLinesในรายงานการแนะนำการชำระเงินของผู้จัดจำหน่าย (393) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
                 DimBufMgt.GetDimensions(TempPaymentBuffer."Dimension Entry No.",TempDimBuf);
                 IF TempDimBuf.FINDSET THEN
                   REPEAT
                     DimMgt.SaveJnlLineDim(
                       DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
   ...
   

   รหัสแทนที่ 1

   ...TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
                 DimBufMgt.GetDimensions(TempPaymentBuffer."Dimension Entry No.",TempDimBuf);
                 IF TempDimBuf.FINDSET THEN BEGIN
                   CreateDim(
                     DimMgt.TypeToTableID1("Account Type"),"Account No.",
                     DimMgt.TypeToTableID1("Bal. Account Type"),"Bal. Account No.",
                     DATABASE::Job,"Job No.",
                     DATABASE::"Salesperson/Purchaser","Salespers./Purch. Code",
                     DATABASE::Campaign,"Campaign No.");
                   REPEAT
                     DimMgt.SaveJnlLineDim(
                       DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
   ...
   

   รหัสที่มีอยู่ 2

   ...DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
                       DimMgt.GlobalDimNo(TempDimBuf."Dimension Code"),TempDimBuf."Dimension Value Code");
                   UNTIL TempDimBuf.NEXT = 0;
               END ELSE BEGIN
                 LedgEntryDim.SETRANGE("Table ID",DATABASE::"Vendor Ledger Entry");
                 LedgEntryDim.SETRANGE("Entry No.",TempPaymentBuffer."Vendor Ledg. Entry No.");
   ...
   

   รหัสแทนที่ 2

   ...DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
                       DimMgt.GlobalDimNo(TempDimBuf."Dimension Code"),TempDimBuf."Dimension Value Code");
                   UNTIL TempDimBuf.NEXT = 0;
   
                   TempDimBuf.FINDFIRST;
                   DeleteDimNotInTempDimBuf(
                     DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,TempDimBuf);
                 END;
               END ELSE BEGIN
                 LedgEntryDim.SETRANGE("Table ID",DATABASE::"Vendor Ledger Entry");
                 LedgEntryDim.SETRANGE("Entry No.",TempPaymentBuffer."Vendor Ledg. Entry No.");
   ...
   

   รหัสที่มีอยู่ 3

   ...REPEAT
                     JnlLineDim.SETRANGE("Allocation Line No.",0);
                     JnlLineDim.SETRANGE("Dimension Code",LedgEntryDim."Dimension Code");
                     IF NOT JnlLineDim.ISEMPTY THEN
                       JnlLineDim.DELETEALL;
                   UNTIL LedgEntryDim.NEXT = 0;
   
                 DimMgt.MoveLedgEntryDimToJnlLineDim(
   ...
   

   รหัสแทนที่ 3

   ...REPEAT
                     JnlLineDim.SETRANGE("Allocation Line No.",0);
                     JnlLineDim.SETRANGE("Dimension Code",LedgEntryDim."Dimension Code");
                     IF JnlLineDim.FINDFIRST THEN
                       JnlLineDim.DELETE(TRUE);
                   UNTIL LedgEntryDim.NEXT = 0;
   
                 DimMgt.MoveLedgEntryDimToJnlLineDim(
   ...
   

3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันDeleteDimNotInTempDimBufในรายงานการแนะนำการชำระเงินของผู้จัดจำหน่าย (393) เป็นดังนี้:
   รหัสที่มีอยู่

   ...EXIT(NOT DimBuf.ISEMPTY);
       END;
   
       BEGIN
       END.
     }
   ...
   

   รหัสแทน

   ...EXIT(NOT DimBuf.ISEMPTY);
       END;
   
       LOCAL PROCEDURE DeleteDimNotInTempDimBuf@17(TableID@1000 : Integer;JnlTemplateName@1001 : Code[10];JnlBatchName@1002 : Code[10];JnlLineNo@1003 : Integer;AllocationLineNo@1004 : Integer;DimBuf@1006 : Record 360);
       VAR
         DimFound@1007 : Boolean;
       BEGIN
         JnlLineDim.RESET;
         JnlLineDim.SETRANGE("Table ID",DATABASE::"Gen. Journal Line");
         JnlLineDim.SETRANGE("Journal Template Name",JnlTemplateName);
         JnlLineDim.SETRANGE("Journal Batch Name",JnlBatchName);
         JnlLineDim.SETRANGE("Journal Line No.",JnlLineNo);
         JnlLineDim.SETRANGE("Allocation Line No.",0);
         IF JnlLineDim.FINDSET THEN
           REPEAT
             DimFound := FALSE;
             REPEAT
               IF JnlLineDim."Dimension Code" = DimBuf."Dimension Code" THEN
                 DimFound := TRUE;
             UNTIL DimBuf.NEXT = 0;
             IF NOT DimFound THEN
               JnlLineDim.DELETE(TRUE);
           UNTIL JnlLineDim.NEXT = 0
       END;
   
       BEGIN
       END.
     }
   ...
   

ข้อกำหนดเบื้องต้น

คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 SP1

นอกจากนี้ คุณต้องติดตั้งKB2664507

ข้อมูลการเอาออก

คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้