บรรทัดสมุดรายวันอินทราสแทตไม่ถูกต้อง

นำไปใช้กับ
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

บทความที่เผยแพร่อย่างรวดเร็วให้ข้อมูลโดยตรงจากภายในองค์กรสนับสนุนของ Microsoft ข้อมูลที่อยู่ในที่นี้จะถูกสร้างขึ้นเพื่อตอบสนองต่อหัวข้อที่เกิดขึ้นใหม่หรือเฉพาะ หรือมีวัตถุประสงค์เพื่อเพิ่มเติมข้อมูลฐานความรู้อื่นๆ
 Microsoft Business Solutions-Navision 4.0 และ Microsoft Navision 4.0 เป็นส่วนหนึ่งของ Microsoft Dynamics NAV 4.0 ในตอนนี้ การอ้างอิงทั้งหมดไปยัง Microsoft Business Solutions-Navision หรือการอ้างอิงไปยัง Microsoft Navision 4.0 เกี่ยวข้องกับ Microsoft Dynamics NAV เมื่อสร้างความสัมพันธ์ระหว่าง Microsoft Dynamics NAV และการอ้างอิงนี้

บทความนี้ใช้กับ Microsoft Dynamics NAV 5.0 สําหรับภาษาสเปน (es) ภาษาท้องถิ่น

อาการ

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

ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

  • Microsoft Dynamics NAV 2009 เวอร์ชันภาษาสเปน

  • Microsoft Dynamics NAV 5.0 เวอร์ชันภาษาสเปน

  • Microsoft Dynamics NAV 4.0 เวอร์ชันภาษาสเปน

สาเหตุ

ปัญหานี้เกิดขึ้นเนื่องจาก Microsoft Dynamics NAV ไม่พิจารณาส่วนลดในค่าธรรมเนียมสินค้าที่จะใช้กับบรรทัดสินค้า

การแก้ปัญหา

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

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

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

            
          

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

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

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

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้

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

  • สิทธิ์ในการปรับเปลี่ยนสําหรับวัตถุที่คุณจะเปลี่ยนแปลง
  • สิทธิ์ Execute สําหรับวัตถุ System Object ID 5210 และสําหรับวัตถุ System Object ID 9015

                
หมายเหตุ คุณไม่มีสิทธิ์ในที่เก็บข้อมูล เว้นแต่คุณจะต้องดําเนินการซ่อมแซมข้อมูล

การเปลี่ยนแปลงโค้ด

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

  1. เปลี่ยนรหัสในทริกเกอร์ UpdateVATOnLines ในตารางบรรทัดการขาย (37) ดังนี้:
    รหัสที่มีอยู่

    ...
            END;
            InitOutstanding;
            MODIFY;
            RecRef.GETTABLE(SalesLine);
    ...
    
    

    รหัสทดแทน

    ...
            END;
            InitOutstanding;
    
    // Add the following lines.
            IF Type = Type::"Charge (Item)" THEN 
              UpdateItemChargeAssgnt; 
    // End of the added lines.
    
            MODIFY;
            RecRef.GETTABLE(SalesLine);
    ...
    
    
  2. เปลี่ยนรหัสในทริกเกอร์ UpdateVATOnLines ในตารางบรรทัดการซื้อ (39) ดังนี้:
    รหัสที่มีอยู่

    ...
              UpdateUnitCost;
            END;
            MODIFY;
            RecRef.GETTABLE(PurchLine);
    ...
    
    

    รหัสทดแทน

    ...
              UpdateUnitCost;
            END;
    
    // Add the following lines.
            IF Type = Type::"Charge (Item)" THEN  
              UpdateItemChargeAssgnt;
    // End of the added lines.
    
            MODIFY;
            RecRef.GETTABLE(PurchLine);
    ...
    
    
  3. เปลี่ยนรหัสในทริกเกอร์ InitValueEntry ในโค้ดโค้ดโค้ดของ Jnl.-Post Line (22) ดังนี้:
    รหัสที่มีอยู่ 1

    ...
          IF GLSetup."Additional Reporting Currency" <> '' THEN
            ValueEntry."Cost per Unit (ACY)" := RetrieveCostPerUnitACY(ValueEntry."Cost per Unit");
    
    // Delete the following lines.
          IF (ValueEntry."Valued Quantity" > 0) AND  
             (ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Purchase) AND
    // End of the deleted lines.
    
             (ValueEntry."Entry Type" = ValueEntry."Entry Type"::"Direct Cost")
          THEN BEGIN
            IF Item."Costing Method" = Item."Costing Method"::Standard THEN
    ...
    
    

    รหัสทดแทน 1

    ...
          IF GLSetup."Additional Reporting Currency" <> '' THEN
            ValueEntry."Cost per Unit (ACY)" := RetrieveCostPerUnitACY(ValueEntry."Cost per Unit");
    // Add the following line.
          IF (ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Purchase) AND
    
             (ValueEntry."Entry Type" = ValueEntry."Entry Type"::"Direct Cost")
          THEN BEGIN
            IF Item."Costing Method" = Item."Costing Method"::Standard THEN
    ...
    
    

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

    ...
              END;
            ValueEntry."Cost Amount (Actual)" := CostAmt;
            ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY;
    
    // Delete the following lines.
            IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") THEN  
              IF (ValueEntry."Discount Amount" <> 0) AND (ItemJnlLine."Item Charge No." <> '') THEN BEGIN 
                ValueEntry."Cost Amount (Actual)" := ValueEntry."Cost Amount (Actual)" - "Discount Amount"; 
                ValueEntry."Purchase Amount (Actual)" := ValueEntry."Purchase Amount (Actual)" - "Discount Amount"; 
              END; 
    // End of the deleted lines.
    
          END;
        (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE):
    ...
    
    

    รหัสทดแทน 2

    ...
              END;
            ValueEntry."Cost Amount (Actual)" := CostAmt;
            ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY;
    
          END;
        (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE):
    ...
    
    

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

    ...
              ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY;
            END;
          END;
      END;
    
    
      RoundAmtValueEntry(ValueEntry);
    ...
    
    

    รหัสทดแทน 3

    ...
              ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY;
            END;
          END;
      END;
    
    // Add the following lines.
      IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") THEN BEGIN
        IF (ValueEntry."Discount Amount" <> 0) AND (ItemJnlLine."Item Charge No." <> '') THEN BEGIN
          CASE "Entry Type" OF
            "Entry Type"::Sale: 
             ValueEntry."Sales Amount (Actual)" := ValueEntry."Sales Amount (Actual)" - ItemJnlLine."Pmt. Discount Amount";
            "Entry Type"::Purchase:
            BEGIN  
              ValueEntry."Cost Amount (Actual)" := CostAmt - ItemJnlLine."Pmt. Discount Amount"; 
              ValueEntry."Purchase Amount (Actual)" := ValueEntry."Purchase Amount (Actual)" - ItemJnlLine."Pmt. Discount Amount";
            END;
          END;
        END; 
      END;
    // End of the added lines.
    
      RoundAmtValueEntry(ValueEntry);
    ...
    
    
  4. เปลี่ยนรหัสในทริกเกอร์ PostItemChargePerOrder ในโค้ด unit Sales-Post (80) ดังนี้:
    รหัสที่มีอยู่

    ...
      IF SalesHeader."Currency Code" <> '' THEN
        ItemJnlLine2."Discount Amount" := ROUND(
          CurrExchRate.ExchangeAmtFCYToLCY(
            UseDate,SalesHeader."Currency Code",
    
    // Delete the following line.
            (ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") * 
    
             ItemJnlLine2."Invoiced Qty. (Base)" /
             ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign"  / QtyToInvoice,
             SalesHeader."Currency Factor"),GLSetup."Amount Rounding Precision")
      ELSE
        ItemJnlLine2."Discount Amount" := ROUND(
    
    // Delete the following line.
          (ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") *
    
           ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
           GLSetup."Amount Rounding Precision");
    // Delete the following lines.
      IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
        ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
    // End of the added lines.
    
      ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargeSalesLine."Shortcut Dimension 1 Code";
    ...
    
    

    รหัสทดแทน

    ...
      IF SalesHeader."Currency Code" <> '' THEN
        ItemJnlLine2."Discount Amount" := ROUND(
          CurrExchRate.ExchangeAmtFCYToLCY(
            UseDate,SalesHeader."Currency Code",
    
    // Add the following lines.
            (ItemChargeSalesLine."Line Discount Amount" +
            ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") * 
    // End of the added lines.
    
             ItemJnlLine2."Invoiced Qty. (Base)" /
             ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign"  / QtyToInvoice,
             SalesHeader."Currency Factor"),GLSetup."Amount Rounding Precision")
      ELSE
        ItemJnlLine2."Discount Amount" := ROUND(
    
    // Add the following lines.
          (ItemChargeSalesLine."Line Discount Amount" +
          ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") *
    // End of the added lines.
    
           ItemJnlLine2."Invoiced Qty. (Base)" /
           ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
           GLSetup."Amount Rounding Precision");
    // Add the following lines.
        ItemJnlLine2."Pmt. Discount Amount" := ItemChargeSalesLine."Pmt. Disc. Given Amount" *  
          ItemJnlLine2."Invoiced Qty. (Base)" / ItemChargeSalesLine."Quantity (Base)" * 
            "Qty. to Assign"  / QtyToInvoice; 
        IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN 
          ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
          ItemJnlLine2."Pmt. Discount Amount" := -ItemJnlLine2."Pmt. Discount Amount";
        END;
    // End of the added lines.
    
      ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargeSalesLine."Shortcut Dimension 1 Code";
    ...
    
    
  5. เปลี่ยนรหัสในทริกเกอร์ PostItemChargePerOrder ใน Purch.-Post codeunit (90) ดังต่อไปนี้:
    รหัสที่มีอยู่

    ...
          ItemChargePurchLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
          GLSetup."Amount Rounding Precision");
    
    
      ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargePurchLine."Shortcut Dimension 1 Code";
      ItemJnlLine2."Shortcut Dimension 2 Code" := ItemChargePurchLine."Shortcut Dimension 2 Code";
    ...
    
    

    รหัสทดแทน

    ...
          ItemChargePurchLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
          GLSetup."Amount Rounding Precision");
    
    // Add the following lines.
       ItemJnlLine2."Pmt. Discount Amount" := ItemChargePurchLine."Pmt. Disc. Rcd. Amount" * 
         ItemJnlLine2."Invoiced Qty. (Base)" / ItemChargePurchLine."Quantity (Base)" *
           "Qty. to Assign" / QtyToInvoice; 
       IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN
         ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
         ItemJnlLine2."Pmt. Discount Amount" := -ItemJnlLine2."Pmt. Discount Amount";
       END;
    // End of the added lines.
    
      ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargePurchLine."Shortcut Dimension 1 Code";
    ...
    
    

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

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

  • Microsoft Dynamics NAV 2009 Service Pack 1 เวอร์ชันภาษาสเปน
  • Microsoft Dynamics NAV 2009 เวอร์ชันภาษาสเปน
  • Microsoft Dynamics NAV 5.0 Service Pack 1 เวอร์ชันภาษาสเปน
  • Microsoft Dynamics NAV 4.0 Service Pack 3 เวอร์ชันภาษาสเปน

              

ลบข้อมูลออก

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

สถานะ

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

MICROSOFT และ/หรือผู้จําหน่ายของ MICROSOFT ไม่ได้รับรองหรือรับประกันเกี่ยวกับความเหมาะสม ความน่าเชื่อถือ หรือความถูกต้องของข้อมูลที่มีอยู่ในเอกสารและกราฟิกที่เกี่ยวข้องที่เผยแพร่บนเว็บไซต์นี้ ("เนื้อหา") เพื่อวัตถุประสงค์ใดๆ

วัสดุอาจรวมถึงความไม่ถูกต้องทางเทคนิคหรือข้อผิดพลาดในการพิมพ์ และอาจมีการแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ภายใต้ขอบเขตสูงสุดที่กฎหมายที่บังคับใช้อนุญาต MICROSOFT และ/หรือผู้จําหน่ายของไมโครซอฟท์จะปฏิเสธความรับผิดชอบและแยกการรับรอง การรับประกัน และเงื่อนไขทั้งหมดไม่ว่าจะโดยชัดแจ้ง โดยนัย หรือโดยกฎหมาย รวมถึงแต่ไม่จํากัดเพียงการแสดง การรับประกัน หรือเงื่อนไขของชื่อเรื่อง การไม่ละเมิด เงื่อนไขหรือคุณภาพที่น่าพอใจ ความสามารถในเชิงพาณิชย์และความเหมาะสมสําหรับวัตถุประสงค์เฉพาะ ที่เกี่ยวข้องกับวัสดุ