อาการ
หลังจากที่คุณติดตั้งรุ่นล่าสุดของรายงานรายการบิลของบัญชีผู้จัดจำหน่าย ถ้าคุณใช้อินวอยซ์กับธุรกรรมการชำระเงินที่เกี่ยวข้อง และลงรายการบัญชีใน Microsoft Dynamics NAV 2009 รุ่นภาษาอิตาลี รายงานรายการบิลของบัญชีผู้จัดจำหน่ายไม่แสดงการชำระเงิน แสดงเฉพาะใบแจ้งหนี้ปิด ทำตามขั้นตอนต่าง ๆ ในส่วนของการเปลี่ยนแปลงรหัสเพื่อแก้ไขปัญหานี้ ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:
-
Microsoft Dynamics NAV 2009 R2 รุ่นภาษาอิตาลี
-
SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาอิตาลี
การแก้ปัญหา
ข้อมูลโปรแกรมแก้ไขด่วน
โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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 ของวัตถุ
วัตถุ
หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล
การเปลี่ยนแปลงรหัส
หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
-
เปลี่ยนรหัสในรายงานรายการบิลของบัญชีผู้จัดจำหน่าย (12116) เป็นดังนี้:
รหัสที่อยู่ 1...DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Delete the following line.
VendLedgEntry1.COPYFILTER("Posting Date", "Detailed Vendor Ledg. Entry"."Posting Date");
// End of the deleted line.
END;
OnAfterGetRecord=BEGIN
...รหัสแทนที่ 1
...DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Add the following line.
FindAppliedDtldVendLedgEntry(VendLedgEntry1."Entry No.");
// End of the added line.
END;
OnAfterGetRecord=BEGIN
...รหัสที่มีอยู่ 2
... END;
OnAfterGetRecord=BEGIN
// Delete the following lines.
VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
ClosedByAmountLCY := "Amount (LCY)";
TotalForVendor += "Amount (LCY)";
TotalClosedByAmntLCY += "Amount (LCY)";
END;
DataItemLink=Vendor Ledger Entry No.=FIELD(Entry No.);
// End of the deleted lines.
}
SECTIONS
{
...รหัสแทนที่ 2
... END;
OnAfterGetRecord=BEGIN
// Add the following lines.
IF NOT TempDetailedVendorLedgEntryApplied.GET("Entry No.") THEN
CurrReport.SKIP;
VendLedgEntry3.GET("Vendor Ledger Entry No.");
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
AppliedDocumentTypeText := FORMAT(VendLedgEntry3."Document Type");
ClosedByAmountLCY := "Amount (LCY)";
TotalForVendor -= "Amount (LCY)";
TotalClosedByAmntLCY -= "Amount (LCY)";
END;
// End of the added lines.
}
SECTIONS
{
...รหัสที่มีอยู่ 3
...SectionWidth=27750;
SectionHeight=846;
OnPreSection=BEGIN
IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment)
OR (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") THEN
CurrReport.SHOWOUTPUT(FALSE)
ELSE
CurrReport.SHOWOUTPUT(TRUE);
IF ("Unapplied by Entry No." <> 0) THEN
CurrReport.SHOWOUTPUT(FALSE);
END;
...รหัสแทนที่ 3
...SectionWidth=27750;
SectionHeight=846;
OnPreSection=BEGIN
// Delete the following lines.
IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment)
OR (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") THEN
CurrReport.SHOWOUTPUT(FALSE)
ELSE
CurrReport.SHOWOUTPUT(TRUE);
// End of the deleted lines.
IF ("Unapplied by Entry No." <> 0) THEN
CurrReport.SHOWOUTPUT(FALSE);
END;
...รหัสที่มีอยู่ 4
... { 1130070;TextBox ;19200;0 ;1800 ;423 ;SourceExpr=ClosedByAmountLCY;
DataSetFieldName=ClosedByAmountLCY_Control1130070 }
{ 1130071;TextBox ;5550 ;0 ;1500 ;423 ;HorzAlign=Right;
// Delete the following lines.
SourceExpr="Document No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_No__ }
{ 1130072;TextBox ;1950 ;0 ;1350 ;423 ;SourceExpr="Document Type";
// End of the deleted lines.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
...รหัสแทนที่ 4
...{ 1130070;TextBox ;19200;0 ;1800 ;423 ;SourceExpr=ClosedByAmountLCY;
DataSetFieldName=ClosedByAmountLCY_Control1130070 }
{ 1130071;TextBox ;5550 ;0 ;1500 ;423 ;HorzAlign=Right;
// Add the following lines.
SourceExpr=VendLedgEntry3."Document No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_No__ }
{ 1130072;TextBox ;1950 ;0 ;1350 ;423 ;SourceExpr=AppliedDocumentTypeText;
// End of the added lines.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
...รหัสที่มีอยู่ 5
... DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
// Delete the following line.
SourceExpr=FORMAT("Posting Date");
// End of the deleted line.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Posting_Date_ }
{ 1130074;TextBox ;7200 ;0 ;1650 ;423 ;SourceExpr=VendLedgEntry3."Document Occurrence";
DataSetFieldName=VendLedgEntry3__Document_Occurrence_ }
...รหัสแทนที่ 5
...DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
// Add the following line.
SourceExpr=FORMAT(VendLedgEntry3."Posting Date");
// End of the added line.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Posting_Date_ }
{ 1130074;TextBox ;7200 ;0 ;1650 ;423 ;SourceExpr=VendLedgEntry3."Document Occurrence";
DataSetFieldName=VendLedgEntry3__Document_Occurrence_ }
...รหัสที่มีอยู่ 6
...ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
}
}
{ PROPERTIES
...รหัสแทน 6
... ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
// Add the following lines.
{ 1130178;TextBox ;21150;0 ;1800 ;423 ;Visible=No;
SourceExpr="Vendor Ledger Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_ }
// End of the added lines.
}
}
{ PROPERTIES
... -
เปลี่ยนแปลงรหัสนี้ในตัวแปรส่วนกลางในรายงานรายการบิลของบัญชีผู้จัดจำหน่าย (12116) เป็นดังนี้:
รหัสที่อยู่ 1...VAR
Text000@1130000 : TextConst 'ENU=Please specify the Ending Date;ITA=Specificare Data fine';
VendorBillLine@1130001 : Record 12182;
EndingDate@1130002 : Date;
OnlyOpened@1130003 : Boolean;
RemainingAmountLCY@1130004 : Decimal;
...รหัสแทนที่ 1
...VAR
Text000@1130000 : TextConst 'ENU=Please specify the Ending Date;ITA=Specificare Data fine';
VendorBillLine@1130001 : Record 12182;
// Add the following line.
TempDetailedVendorLedgEntryApplied@1130013 : TEMPORARY Record 380;
// End of the added line.
EndingDate@1130002 : Date;
OnlyOpened@1130003 : Boolean;
RemainingAmountLCY@1130004 : Decimal;
...รหัสที่มีอยู่ 2
...TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
BEGIN
END.
...รหัสแทนที่ 2
...TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
// Add the following lines.
AppliedDocumentTypeText@1170000000 : Text[30];
LOCAL PROCEDURE FindAppliedDtldVendLedgEntry@1130007(VendorLedgerEntryNo@1130000 : Integer);
VAR
DetailedVendorLedgEntry@1130001 : Record 380;
DetailedVendorLedgEntryApplied@1130003 : Record 380;
BEGIN
TempDetailedVendorLedgEntryApplied.RESET;
TempDetailedVendorLedgEntryApplied.DELETEALL;
DetailedVendorLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendorLedgerEntryNo);
DetailedVendorLedgEntry.SETRANGE("Entry Type",DetailedVendorLedgEntry."Entry Type"::Application);
DetailedVendorLedgEntry.SETRANGE(Unapplied,FALSE);
DetailedVendorLedgEntryApplied.SETRANGE(
"Entry Type",DetailedVendorLedgEntryApplied."Entry Type"::Application);
IF DetailedVendorLedgEntry.FINDSET THEN
REPEAT
DetailedVendorLedgEntryApplied.SETRANGE(
"Applied Vend. Ledger Entry No.",DetailedVendorLedgEntry."Applied Vend. Ledger Entry No.");
DetailedVendorLedgEntryApplied.SETFILTER(
"Vendor Ledger Entry No.",'<>%1',VendorLedgerEntryNo);
DetailedVendorLedgEntryApplied.SETRANGE(
"Vendor No.",DetailedVendorLedgEntry."Vendor No.");
DetailedVendorLedgEntryApplied.SETRANGE(
"Transaction No.",DetailedVendorLedgEntry."Transaction No.");
IF DetailedVendorLedgEntryApplied.FINDSET THEN
REPEAT
TempDetailedVendorLedgEntryApplied := DetailedVendorLedgEntryApplied;
IF TempDetailedVendorLedgEntryApplied.INSERT THEN;
UNTIL DetailedVendorLedgEntryApplied.NEXT = 0;
UNTIL DetailedVendorLedgEntry.NEXT = 0;
END;
// End of the added lines.
BEGIN
END.
... -
เปลี่ยนรหัสในรายงานรายการบิลของบัญชีผู้จัดจำหน่าย (12116) เป็นดังนี้:
รหัสที่มีอยู่...</TableCell>
</TableCells>
<Visibility>
// Delete the following line.
<Hidden>=IIF((Count(Fields!Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_.Value)=Rownumber("table1_Group3")),
// End of the deleted line.
FALSE,TRUE)</Hidden>
</Visibility>
</TableRow>
...รหัสแทน
... </TableCell>
</TableCells>
<Visibility>
// Add the following line.
<Hidden>=IIF((Count(Fields!Detailed_Vendor_Ledg__Entry_Entry_No_.Value)=Rownumber("table1_Group3")),
// End of the added line.
FALSE,TRUE)</Hidden>
</Visibility>
</TableRow>
...
ข้อกำหนดเบื้องต้น
คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:
-
Microsoft Dynamics NAV 2009 R2 รุ่นภาษาอิตาลี
-
SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาอิตาลี
ข้อมูลการเอาออก
คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้
สถานะ
Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"
หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ
