ข้อมูลที่ไม่สอดคล้องกันระหว่างรายการบัญชีแยกประเภทการบริการกับบัญชีแยกประเภททั่วไปเมื่อคุณทำการเปลี่ยนแปลงใบแจ้งหนี้สัญญาการบริการก่อนการลงรายการบัญชีใน Microsoft Dynamics NAV 2009

บทความนี้นำไปใช้กับ Microsoft Dynamics NAV สำหรับประเทศทั้งหมดและตำแหน่งที่ตั้งภาษาทั้งหมด

อาการ

เมื่อคุณสร้างสัญญาการบริการ (ไม่ได้จ่ายล่วงหน้า) เปลี่ยนอินวอยซ์ก่อนการลงรายการบัญชีใน Microsoft Dynamics NAV 2009 ไม่มีข้อมูลที่ไม่สอดคล้องกันระหว่างรายการบัญชีแยกประเภทการบริการกับบัญชีแยกประเภททั่วไป ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack ที่ 1

การแก้ปัญหา

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

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

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

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

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

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

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

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

สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน
สิทธิ์ Execute สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและ สำหรับออบเจ็กต์ระบบ 9015 ID ของวัตถุ

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

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

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

เปลี่ยนแปลงรหัสนี้ในตารางมิติของเอกสาร (357) เป็นดังนี้:
รหัสที่อยู่ 1

...      Text005@1009 : TextConst 'ENU=Canceled.';
      Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';

    PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
...

รหัสแทนที่ 1

...      Text005@1009 : TextConst 'ENU=Canceled.';
      Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';
      Text007@1011 : TextConst 'ENU=You cannot change the dimension because the document is based on a service contract.';

    PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
...

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

...    PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
    VAR
      SalesLine@1001 : Record 37;
      PurchaseLine@1002 : Record 39;
    BEGIN
      CASE "Table ID" OF
        DATABASE::"Sales Line":
          BEGIN
            IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
              IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
                IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
                  ERROR(Text005)
          END;
        DATABASE::"Purchase Line":
          BEGIN
            IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
              IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN

                IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
                  ERROR(Text005)
          END;
      END;
    END;
...

รหัสแทนที่ 2

...    PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
    VAR
      SalesLine@1001 : Record 37;
      PurchaseLine@1002 : Record 39;
      ServiceHeader@1003 : Record 5900;
      ServiceLine@1004 : Record 5902;
    BEGIN
      CASE "Table ID" OF
        DATABASE::"Sales Line":
          BEGIN
            IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
              IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
                IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
                  ERROR(Text005)
          END;
        DATABASE::"Purchase Line":
          BEGIN
            IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
              IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN

                IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
                  ERROR(Text005)
          END;
        DATABASE::"Service Header":
          IF ServiceHeader.GET(DocDim."Document Type",DocDim."Document No.") AND (ServiceHeader."Contract No." <> '') THEN
            ERROR(Text007);
        DATABASE::"Service Line":
          IF ServiceLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
            IF (ServiceLine."Contract No." <> '') THEN
              ERROR(Text007);
      END;
    END;
...

เปลี่ยนแปลงรหัสนี้ได้ในตารางบรรทัดการบริการ (5902) เป็นดังนี้:
รหัสที่อยู่ 1

...               IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
                  (("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
                   ("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
                   ("Spare Part Action" = "Spare Part Action"::" "))
               THEN
                 ReserveServLine.VerifyChange(Rec,xRec);
             END;

    OnDelete=VAR
...

รหัสแทนที่ 1

...               IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
                  (("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
                   ("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
                   ("Spare Part Action" = "Spare Part Action"::" "))
               THEN
                 ReserveServLine.VerifyChange(Rec,xRec);
               IF "Document Type" = ServiceLine."Document Type"::Invoice THEN
                 IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
                   ERROR(Text046);
             END;

    OnDelete=VAR
...

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

...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN



                                                                GetServHeader;

                                                                TESTFIELD("Qty. Shipped Not Invoiced",0);
...

รหัสแทนที่ 2

...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN
                                                                IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
                                                                  ERROR(Text046);

                                                                GetServHeader;
...

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

...    { 6   ;   ;No.                 ;Code20        ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
                                                                 ELSE IF (Type=CONST(G/L Account)) "G/L Account"
                                                                 ELSE IF (Type=CONST(Item)) Item
                                                                 ELSE IF (Type=CONST(Resource)) Resource
                                                                 ELSE IF (Type=CONST(Cost)) "Service Cost";
                                                   OnValidate=VAR
                                                                ShowLocMessage@1000 : Boolean;
                                                              BEGIN
                                                                TESTFIELD("Qty. Shipped Not Invoiced",0);
...

รหัสแทนที่ 3

...    { 6   ;   ;No.                 ;Code20        ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
                                                                 ELSE IF (Type=CONST(G/L Account)) "G/L Account"
                                                                 ELSE IF (Type=CONST(Item)) Item
                                                                 ELSE IF (Type=CONST(Resource)) Resource
                                                                 ELSE IF (Type=CONST(Cost)) "Service Cost";
                                                   OnValidate=VAR
                                                                ShowLocMessage@1000 : Boolean;
                                                              BEGIN
                                                                IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
                                                                  ERROR(Text046);

                                                                TESTFIELD("Qty. Shipped Not Invoiced",0);
...

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

...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
                                                                GetServHeader;


                                                                IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
...

รหัสแทนที่ 4

...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
                                                                GetServHeader;
                                                                IF ("Appl.-to Service Entry" > 0) AND (CurrFieldNo <> 0) THEN
                                                                  ERROR(Text046,FIELDCAPTION("Unit Price"));
                                                                IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
...

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

...      Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
      Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
      Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
...

รหัสแทนที่ 5

...      Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
      Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
      Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
     Text046@1100 : TextConst 'ENU=You cannot modify the document because it is based on a service contract.';
...

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

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack ที่ 1

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

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

สถานะ

Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"

หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ

อาการ

การแก้ปัญหา

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

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

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

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

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

สถานะ

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!