บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับภาษาโปแลนด์ (pl)
อาการ
สมมติว่า คุณลงรายการบัญชีบันทึกสินเชื่อการขายที่ประกอบด้วยภาษีมูลค่าเพิ่ม (VAT) เลื่อนในรุ่นโปแลนด์ของ Microsoft Dynamics NAV 2009 R2 เมื่อคุณพยายามรับรู้ VAT ในกล่องโต้ตอบ แผ่นงานแอพพลิเคชัน VAT คุณได้รับข้อความแสดงข้อผิดพลาดต่อไปนี้:
หมายเหตุ
คุณไม่สามารถจัดการ VAT ที่เลื่อนออกไปสําหรับบันทึกสินเชื่อการขายที่นี่
การแก้ปัญหา
ข้อมูลโปรแกรมแก้ไขด่วน
โปรแกรมแก้ไขด่วนที่ได้รับการสนับสนุนจาก Microsoft พร้อมใช้งานแล้ว อย่างไรก็ตาม มีไว้เพื่อแก้ไขปัญหาที่อธิบายไว้ในบทความนี้เท่านั้น นําไปใช้กับระบบที่พบปัญหานี้โดยเฉพาะเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณไม่ได้รับผลกระทบอย่างร้ายแรงจากปัญหานี้ เราขอแนะนําให้คุณรอ Service Pack 2009 สําหรับ Microsoft Dynamics NAV 2009 ถัดไป หรือ 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
หมายเหตุ คุณไม่มีสิทธิ์ในที่เก็บข้อมูล เว้นแต่คุณจะต้องดําเนินการซ่อมแซมข้อมูล
การเปลี่ยนแปลงโค้ด
หมายเหตุ ทดสอบการแก้ไขรหัสเสมอในสภาพแวดล้อมที่ควบคุมก่อนที่คุณจะนําการแก้ไขไปใช้กับคอมพิวเตอร์การผลิตของคุณ
เมื่อต้องการแก้ไขปัญหานี้ ให้ทําตามขั้นตอนต่อไปนี้:
ลบพารามิเตอร์ต่อไปนี้ในฟังก์ชัน RealizePostponedVAT ใน Gen Jnl.-Post Line codeunit (12):
- หมายเลขธุรกรรม
- VATEntryNo
- VAR TempJnlLineDim2
เพิ่มพารามิเตอร์ใหม่ในฟังก์ชัน RealizePostponedVAT ใน Gen Jnl.-Post Line codeunit (12) แล้วระบุพารามิเตอร์ดังนี้:
- ชื่อ: VATEntry
- ชนิดข้อมูล: ระเบียน
- ประเภทย่อย: รายการ VAT (254)
เปลี่ยนรหัสในฟังก์ชัน RealizePostponedVAT ใน Gen Jnl.-Post Line codeunit (12) ดังนี้:
รหัสที่มีอยู่ 1... GenJnlLine.COPY(GenJnlLine2); // Delete the following lines. TempJnlLineDim.RESET; TempJnlLineDim.DELETEALL; DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim); // End of the lines. GLSetup.GET; SourceCodeSetup.GET; ...รหัสทดแทน 1
... GenJnlLine.COPY(GenJnlLine2); // Add the following line. PreparePostponedVATDim(VATEntry,TempJnlLineDim); GLSetup.GET; SourceCodeSetup.GET; ...รหัสที่มีอยู่ 2
... InitCodeUnit; // Delete the following lines. VATEntryNoToRealize := VATEntryNo; IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN CustLedgEntry."Transaction No." := TransactionNo; // End of the lines. CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN ...รหัสทดแทน 2
... InitCodeUnit; // Add the following lines. VATEntryNoToRealize := VATEntry."Entry No."; IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN CustLedgEntry."Transaction No." := VATEntry."Transaction No."; //End of the lines. CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN ...รหัสที่มีอยู่ 3
... CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN // Delete the following line. VendLedgEntry."Transaction No." := TransactionNo; VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount); END; VATEntryNoToRealize := 0; ...รหัสทดแทน 3
... CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount) END ELSE BEGIN // Add the following line. VendLedgEntry."Transaction No." := VATEntry."Transaction No."; VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount); END; VATEntryNoToRealize := 0; ...ลบพารามิเตอร์ต่อไปนี้ในฟังก์ชัน ReversePostponedVAT ใน Gen Jnl.-Post Line codeunit (12):
- หมายเลขธุรกรรม
- VATEntryNo
- VAR TempJnlLineDim2
เพิ่มพารามิเตอร์ใหม่ในฟังก์ชัน ReversePostponedVAT ใน Gen Jnl.-Post Line codeunit (12) แล้วระบุพารามิเตอร์ดังนี้:
- ชื่อ: เลื่อน VATEntry
- ชนิดข้อมูล: ระเบียน
- ประเภทย่อย: รายการ VAT (254)
เปลี่ยนรหัสในฟังก์ชัน ReversePostponedVAT ใน Gen Jnl.-Post Line codeunit (12) ดังนี้:
รหัสที่มีอยู่ 1... GenJnlLine.COPY(GenJnlLine2); // Delete the following lines. TempJnlLineDim.RESET; TempJnlLineDim.DELETEALL; DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim); // End of the lines. SourceCodeSetup.GET; GenJnlLine."Source Code" := SourceCodeSetup.Reversal; ...รหัสทดแทน 1
... GenJnlLine.COPY(GenJnlLine2); // Add the following lines. PreparePostponedVATDim(PostponedVATEntry,TempJnlLineDim); //End of the lines. SourceCodeSetup.GET; GenJnlLine."Source Code" := SourceCodeSetup.Reversal; ...รหัสที่มีอยู่ 2
... VATEntry.LOCKTABLE; UnrealVATEntry.SETCURRENTKEY("Transaction No."); // Delete the following lines. IF VATEntryNo <> 0 THEN UnrealVATEntry.SETRANGE("Entry No.",VATEntryNo) ELSE UnrealVATEntry.SETRANGE("Transaction No.",TransactionNo); // End of the lines. IF UnrealVATEntry.FINDSET(TRUE) THEN REPEAT VATEntry.SETCURRENTKEY("Unrealized VAT Entry No."); ...รหัสทดแทน 2
... VATEntry.LOCKTABLE; UnrealVATEntry.SETCURRENTKEY("Transaction No."); // Add the following lines. IF PostponedVATEntry."Entry No." <> 0 THEN UnrealVATEntry.SETRANGE("Entry No.",PostponedVATEntry."Entry No.") ELSE UnrealVATEntry.SETRANGE("Transaction No.",PostponedVATEntry."Transaction No."); //End of the lines. IF UnrealVATEntry.FINDSET(TRUE) THEN REPEAT VATEntry.SETCURRENTKEY("Unrealized VAT Entry No."); ...สร้างฟังก์ชัน PreparePostponedVATDim ใหม่ใน Gen Jnl.-Post Line codeunit (12) ดังนี้:
LOCAL PROCEDURE PreparePostponedVATDim@1170010(VATEntry@1170003 : Record 254;VAR TempJnlLineDim@1170000 : Record 356); VAR GLEntryVATEntryLink@1170002 : Record 253; LedgEntryDim@1170001 : Record 355; BEGIN TempJnlLineDim.RESET; TempJnlLineDim.DELETEALL; IF VATEntry.GetCVLedgEntryNo(TempJnlLineDim) = 0 THEN BEGIN GLEntryVATEntryLink.SETRANGE("VAT Entry No.",VATEntry."Entry No."); IF GLEntryVATEntryLink.FINDFIRST THEN BEGIN LedgEntryDim.SETRANGE("Table ID",DATABASE::"G/L Entry"); LedgEntryDim.SETRANGE("Entry No.",GLEntryVATEntryLink."G/L Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); END; END; END;เปลี่ยนรหัสในฟังก์ชัน PostponeVATEntry ในโค้ด unit ของ VATManagement (12376) ดังนี้:
รหัสที่มีอยู่... VATEntry.TESTFIELD("Postponed VAT",FALSE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Delete the following lines. (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo") // End of the lines. THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...รหัสทดแทน
... VATEntry.TESTFIELD("Postponed VAT",FALSE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Add the following line. IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.") THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...เปลี่ยนรหัสในฟังก์ชัน RealizeVATEntry ในโค้ด unit ของ VATManagement (12376) ดังนี้:
รหัสที่มีอยู่... VATEntry.TESTFIELD("Postponed VAT",TRUE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Delete the following lines. (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo") // End of the lines. THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...รหัสทดแทน
... VATEntry.TESTFIELD("Postponed VAT",TRUE); VATEntry.TESTFIELD("Unrealized VAT Entry No.",0); IF NOT AllowSalesCrMemo AND // Add the following line. IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.") THEN ERROR(Text010); UNTIL VATEntry.NEXT = 0 ...ลบตัวแปรท้องถิ่นต่อไปนี้ในฟังก์ชัน PostUnrealVAT ในรหัส VATManagement (12376):
- TempJnlLineDim
- EntryNo
เปลี่ยนรหัสในฟังก์ชัน PostUnrealVAT ในโค้ดยูนของ VATManagement (12376) ดังนี้:
รหัสที่มีอยู่... ERROR(Text011, VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date", VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No."); // Delete the following lines. EntryNo := VATEntry.GetCVLedgEntryNo(TempJnlLineDim); IF EntryNo <> 0 THEN BEGIN GenJnlLine."Document Type" := VATEntry."Document Type"; GenJnlLine."Document No." := VATEntry."Document No."; GenJnlLine."Postponed VAT" := TRUE; GenJnlLine."VAT Date" := VATDate; GenJnlLine."Posting Date" := VATDate; IF VATEntry."Postponed VAT" THEN GenJnlLine.Description := Text008 ELSE GenJnlLine.Description := Text009; GenJnlLine.Description := COPYSTR( STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."), 1,MAXSTRLEN(GenJnlLine.Description)); GenJnlLine."System-Created Entry" := TRUE; CASE VATEntry.Type OF VATEntry.Type::Sale: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer; VATEntry.Type::Purchase: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor; END; IF Type = Type::Realize THEN PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim) ELSE // Reverse PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim); END; // End of the lines. ...รหัสทดแทน
... ERROR(Text011, VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date", VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No."); // Add the following lines. GenJnlLine."Document Type" := VATEntry."Document Type"; GenJnlLine."Document No." := VATEntry."Document No."; GenJnlLine."Postponed VAT" := TRUE; GenJnlLine."VAT Date" := VATDate; GenJnlLine."Posting Date" := VATDate; IF VATEntry."Postponed VAT" THEN GenJnlLine.Description := Text008 ELSE GenJnlLine.Description := Text009; GenJnlLine.Description := COPYSTR( STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."), 1,MAXSTRLEN(GenJnlLine.Description)); GenJnlLine."System-Created Entry" := TRUE; CASE VATEntry.Type OF VATEntry.Type::Sale: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer; VATEntry.Type::Purchase: GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor; END; IF Type = Type::Realize THEN PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry) ELSE // Reverse PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry); //End of the lines. ...สร้างฟังก์ชัน HasPostedCrMemo ใหม่ในโค้ดยูน VATManagement (12376) ดังนี้:
LOCAL PROCEDURE HasPostedCrMemo@1170007(DocumentNo@1170000 : Code[20]) : Boolean; VAR SalesCrMemoHeader@1170001 : Record 114; BEGIN EXIT(SalesCrMemoHeader.GET(DocumentNo)); END;สร้างฟังก์ชัน IsPostponedSalesCrMemoVAT ใหม่ในโค้ดยูน VATManagement (12376) ดังนี้:
LOCAL PROCEDURE IsPostponedSalesCrMemoVAT@1170008(VATEntry@1170000 : Record 254) : Boolean; BEGIN EXIT( (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")); END;
ข้อกำหนดเบื้องต้น
คุณต้องติดตั้ง Microsoft Dynamics NAV 2009 R2 รุ่นโปแลนด์เพื่อใช้โปรแกรมแก้ไขด่วนนี้
ลบข้อมูลออก
คุณไม่สามารถลบโปรแกรมแก้ไขด่วนนี้ได้
สถานะ
Microsoft ได้ยืนยันว่านี่เป็นปัญหาที่เกิดขึ้นกับผลิตภัณฑ์ของ Microsoft ที่แสดงไว้ในส่วน "นำไปใช้กับ"
หมายเหตุ นี่คือบทความ "เผยแพร่อย่างรวดเร็ว" ที่สร้างขึ้นโดยตรงจากภายในองค์กรสนับสนุนของ Microsoft ข้อมูลที่อยู่ในที่นี้มีให้เพื่อตอบสนองต่อปัญหาที่เกิดขึ้นใหม่ เนื่องจากความเร็วในการทําให้พร้อมใช้งานวัสดุอาจรวมถึงข้อผิดพลาดในการพิมพ์และอาจได้รับการแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดู ข้อตกลงการใช้งาน สําหรับข้อควรพิจารณาอื่นๆ