ธุรกรรมสำหรับใบแจ้งหนี้การขายที่สร้างขึ้นสำหรับสินทรัพย์ถาวรสร้าง incorreclty ธุรกรรมกำไรหรือขาดทุนที่สองถ้า VAT ยอดเงินสำหรับการซื้อของสินทรัพย์ถาวรเป็นบางส่วนหักใน Microsoft Dynamics NAV รุ่นภาษาอิตาลี


บทความนี้นำไปใช้กับ Microsoft Dynamics NAV สำหรับระบบภาษาอิตาลี (it)

อาการ


สมมติว่า คุณมีสินทรัพย์ถาวรในการแปลของ Microsoft รุ่นภาษาอิตาลี ยอดเงินภาษีมูลค่าเพิ่ม (VAT) สำหรับการซื้อของสินทรัพย์ถาวรจะถูกหักออกบางส่วน ในสถานการณ์นี้ ถ้าคุณขายสินทรัพย์ถาวร ธุรกรรมสำหรับใบแจ้งหนี้การขายที่สอดคล้องกันสร้างสองกำไรหรือขาดทุนธุรกรรมแทนที่เป็นธุรกรรมเดียวกัน
ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:
  • Microsoft Dynamics NAV 2009 R2 รุ่นภาษาอิตาลี
  • รุ่นภาษาอิตาลีของ Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • รุ่นภาษาอิตาลีของ Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

การแก้ปัญหา


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

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

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


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

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

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

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

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


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

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

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
  1. เปลี่ยนรหัสใน 3 หมายเลขสินค้าข้อมูลในแผ่นงานสมุดบัญชี - พิมพ์รายงาน (12109) เป็นดังนี้:
    รหัสที่มีอยู่
    ...CurrReport.CREATETOTALS(Amount,IcreasesAmnt,DecreasesAmnt,"Additional-Currency Amount");
    END;

    // Delete the following lines.
    OnAfterGetRecord=BEGIN
    CALCFIELDS(Amount,"Debit Amount","Credit Amount","Additional-Currency Amount");

    IF NOT UseAmtsInAddCurr THEN BEGIN
    Amnt := Amnt + Amount;
    IF Amount > 0 THEN
    IcreasesAmnt := Amount
    ELSE
    DecreasesAmnt := ABS(Amount);
    END ELSE BEGIN
    Amnt := Amnt + "Additional-Currency Amount";
    IF "Additional-Currency Amount" > 0 THEN
    IcreasesAmnt := "Additional-Currency Amount"
    ELSE
    DecreasesAmnt := ABS("Additional-Currency Amount");
    END;
    // End of the lines.

    END;

    DataItemLinkReference=G/L Account;
    ...
    รหัสแทน
    ...CurrReport.CREATETOTALS(Amount,IcreasesAmnt,DecreasesAmnt,"Additional-Currency Amount");
    END;

    // Add the following lines.
    OnAfterGetRecord=VAR
    GroupAmount@1130001 : Decimal;
    BEGIN
    CALCFIELDS(Amount,"Debit Amount","Credit Amount","Additional-Currency Amount");
    IF TempGLBookEntry.GET("Entry No.") THEN
    CurrReport.SKIP
    ELSE BEGIN
    GroupAmount := GroupBookEntry("GL Book Entry",UseAmtsInAddCurr);
    Amnt += GroupAmount;
    IF GroupAmount > 0 THEN BEGIN
    IcreasesAmnt := ABS(GroupAmount);
    DecreasesAmnt := 0;
    END ELSE BEGIN
    IcreasesAmnt := 0;
    DecreasesAmnt := ABS(GroupAmount);
    END;
    END;
    // End of the lines.

    END;

    DataItemLinkReference=G/L Account;
    ...
  2. เปลี่ยนรหัสในส่วน 3 หมายเลขรายการของข้อมูลในแผ่นงานสมุดบัญชี - พิมพ์รายงาน (12109) เป็นดังนี้:
    รหัสที่มีอยู่
    ...{ 1130104;TextBox ;18000;423 ;1800 ;423 ;SourceExpr=Amnt;
    AutoFormatType=1;
    DataSetFieldName=Amnt_Control1130104 }

    // Delete the following line.
    { 1130105;TextBox ;18000;846 ;1800 ;423 ;SourceExpr=StartOnHand + Amount;

    AutoFormatType=1;
    DataSetFieldName=StartOnHand___Amount_Control1130105 }
    ...
    รหัสแทน
    ...{ 1130104;TextBox ;18000;423 ;1800 ;423 ;SourceExpr=Amnt;
    AutoFormatType=1;
    DataSetFieldName=Amnt_Control1130104 }

    // Add the following line.
    { 1130105;TextBox ;18000;846 ;1800 ;423 ;SourceExpr=StartOnHand + IcreasesAmnt - DecreasesAmnt;

    AutoFormatType=1;
    DataSetFieldName=StartOnHand___Amount_Control1130105 }
    { 1130111;TextBox ;0 ;846 ;150 ;423 ;Name=TotalAmount;
    ...
  3. เพิ่มตัวแปรส่วนกลางใหม่ในแผ่นงานสมุดบัญชี - พิมพ์รายงาน (12109), และระบุตัวแปรดังนี้:
    • ชื่อ: TempGLBookEntry
    • ชนิดข้อมูล:ระเบียนชั่วคราว
    • ชนิดย่อย:รายการบัญชีแยกประเภททั่วไป(12144)
  4. เพิ่มฟังก์ชันภายในแผ่นงานสมุดบัญชี - พิมพ์รายงาน (12109) เป็นดังนี้:
    LOCAL PROCEDURE GroupBookEntry@1130001(GLBookEntry@1130001 : Record 12144;UseAmtsInAddCurr@1130002 : Boolean) GroupAmount@1130003 : Decimal;VAR
    GLBookEntry1@1130004 : Record 12144;
    BEGIN
    GLBookEntry1.SETRANGE("G/L Account No.",GLBookEntry."G/L Account No.");
    GLBookEntry1.SETRANGE("Transaction No.",GLBookEntry."Transaction No.");
    IF GLBookEntry1.FINDSET THEN
    REPEAT
    TempGLBookEntry."Entry No." := GLBookEntry1."Entry No.";
    TempGLBookEntry.INSERT;
    GLBookEntry1.CALCFIELDS(Amount,"Additional-Currency Amount");
    IF UseAmtsInAddCurr THEN
    GroupAmount := GroupAmount + GLBookEntry1."Additional-Currency Amount"
    ELSE
    GroupAmount := GroupAmount + GLBookEntry1.Amount;
    UNTIL GLBookEntry1.NEXT = 0;
    EXIT(GroupAmount);
    END;
  5. เปลี่ยนรหัสใน 2 หมายเลขสินค้าข้อมูลในสมุดบัญชี G/L - พิมพ์รายงาน (12121) เป็นดังนี้:
    รหัสที่อยู่ 1
    ...END;
    END;

    // Delete the following lines.
    OnAfterGetRecord=BEGIN
    IF ReportType = ReportType::Reprint THEN
    LastNo := "Progressive No."
    ELSE
    LastNo := LastNo + 1;
    // End of the lines.

    TotalDebit := TotalDebit + "Debit Amount";
    TotalCredit := TotalCredit + "Credit Amount";
    ...
    รหัสแทนที่ 1
    ...END;
    END;

    // Add the following lines.
    OnAfterGetRecord=VAR
    GroupAmount@1130001 : Decimal;
    BEGIN
    // End of the lines.

    TotalDebit := TotalDebit + "Debit Amount";
    TotalCredit := TotalCredit + "Credit Amount";
    ...
    รหัสที่มีอยู่ 2
    ...END;
    "Source Type" :: "Fixed Asset":
    BEGIN
    FA.GET("Source No.");
    Descr := FA.Description;
    END;
    ...
    รหัสแทนที่ 2
    ...END;
    "Source Type" :: "Fixed Asset":
    BEGIN

    // Add the following lines.
    IF TempGLBookEntry.GET("Entry No.") THEN
    CurrReport.SKIP
    ELSE BEGIN
    GroupAmount := GroupBookEntry("GL Book Entry");
    IF GroupAmount > 0 THEN BEGIN
    "Debit Amount" := GroupAmount;
    "Credit Amount" := 0;
    END ELSE BEGIN
    "Debit Amount" := 0;
    "Credit Amount" := GroupAmount;
    END;
    END;
    // End of the lines.

    FA.GET("Source No.");
    Descr := FA.Description;
    END;
    ...
    รหัสที่มีอยู่ 3
    ...ELSE
    Descr := '';
    END;


    IF (NOT CurrReport.PREVIEW) AND
    (ReportType = ReportType::"Final Print")
    THEN BEGIN
    ...
    รหัสแทนที่ 3
    ...ELSE
    Descr := '';
    END;

    // Add the following lines.
    IF ReportType = ReportType::Reprint THEN
    LastNo := "Progressive No."
    ELSE
    LastNo := LastNo + 1;
    // End of the lines.

    IF (NOT CurrReport.PREVIEW) AND
    (ReportType = ReportType::"Final Print")
    THEN BEGIN
    ...
  6. เพิ่มตัวแปรส่วนกลางใหม่ในการสมุดบัญชี G/L - พิมพ์รายงาน (12121), และระบุตัวแปรดังนี้:
    • ชื่อ: TempGLBookEntry
    • ชนิดข้อมูล:ระเบียนชั่วคราว
    • ชนิดย่อย:รายการบัญชีแยกประเภททั่วไป(12144)
  7. เปลี่ยนแปลงรหัสนี้ในเอกสารประกอบในสมุดบัญชี G/L - พิมพ์รายงาน (12121) เป็นดังนี้:
    รหัสที่มีอยู่
    ...EndDate := Date."Period Start" - 1;
    END;
    ...
    รหัสแทน
    ...EndDate := Date."Period Start" - 1;
    END;

    // Add the following lines.
    LOCAL PROCEDURE GroupBookEntry@1130002(GLBookEntry@1130001 : Record 12144) GroupAmount@1130002 : Decimal;
    VAR
    GLBookEntry1@1130003 : Record 12144;
    BEGIN
    GLBookEntry1.SETRANGE("G/L Account No.",GLBookEntry."G/L Account No.");
    GLBookEntry1.SETRANGE("Transaction No.",GLBookEntry."Transaction No.");
    IF GLBookEntry1.FINDSET THEN
    REPEAT
    TempGLBookEntry."Entry No." := GLBookEntry1."Entry No.";
    TempGLBookEntry.INSERT;
    GLBookEntry1.CALCFIELDS(Amount);
    GroupAmount := GroupAmount + GLBookEntry1.Amount;
    UNTIL GLBookEntry1.NEXT = 0;
    EXIT(GroupAmount);
    END;
    // End of the lines.
    ...

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

คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:
  • Microsoft Dynamics NAV 2009 R2 รุ่นภาษาอิตาลี
  • รุ่นภาษาอิตาลีของ Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • รุ่นภาษาอิตาลีของ Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

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

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

สถานะ


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