พอร์ตข้อมูล "การชําระเงินผ่านธนาคาร - การนําเข้า (BBS)" (15000060) จะสร้างรายการยอดดุลสําหรับแต่ละธุรกรรมการชําระเงินใน Microsoft Dynamics NAV เวอร์ชันนอร์เวย์เสมอ

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

บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับภาษานอร์เวย์ (ไม่มี) ภาษา

อาการ

เมื่อคุณรันพอร์ตข้อมูล "การชําระเงินผ่านธนาคาร - การนําเข้า (BBS)" (15000060) เพื่อนําเข้าข้อมูลใน Microsoft Dynamics NAV เวอร์ชันนอร์เวย์ รายการยอดดุลจะถูกสร้างขึ้นสําหรับธุรกรรมการชําระเงินแต่ละรายการเสมอ พอร์ตข้อมูล "การชําระเงินผ่านธนาคาร - การนําเข้า (BBS)" (15000060) จะไม่พิจารณาการตั้งค่าในกล่องโต้ตอบ บัตรข้อตกลงการชําระเงินผ่านธนาคาร หรือในกล่องโต้ตอบ บัตรบัญชีการชําระเงินผ่านธนาคาร
ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

  • 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 เวอร์ชันถัดไปที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมสําหรับการโทรติดต่อฝ่ายสนับสนุนตามปกติอาจถูกยกเลิกถ้าผู้เชี่ยวชาญฝ่ายสนับสนุนทางเทคนิคสําหรับ 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. เปลี่ยนรหัสในฟังก์ชัน ProcessBETFOR23and04 ในการชําระเงินผ่านธนาคาร - พอร์ตข้อมูลการนําเข้า (ธนาคาร) (15000050) ดังนี้:
    รหัสที่มีอยู่

    ...
// Update Waiting journal
WaitingJournal.VALIDATE(WaitingJournal."Payment Order ID - Settled",PaymOrder.ID);
WaitingJournal.VALIDATE("Journal, Settlement Template",GenJournalLine."Journal Template Name");
WaitingJournal.VALIDATE("Journal - Settlement",GenJournalLine."Journal Batch Name");
WaitingJournal.MODIFY(TRUE);

// Update round off
END ELSE // This error should not occur.
ERROR(Text026,ReturnCode);
...

    รหัสทดแทน

    ...
// Update Waiting journal
WaitingJournal.VALIDATE(WaitingJournal."Payment Order ID - Settled",PaymOrder.ID);
WaitingJournal.VALIDATE("Journal, Settlement Template",GenJournalLine."Journal Template Name");
WaitingJournal.VALIDATE("Journal - Settlement",GenJournalLine."Journal Batch Name");

// Add the following line.
WaitingJournal."Remittance Status" := WaitingJournal."Remittance Status"::Sent;

WaitingJournal.MODIFY(TRUE);

// Update round off
END ELSE // This error should not occur.
ERROR(Text026,ReturnCode);
...

  2. เปลี่ยนรหัสในฟังก์ชัน CreateBalanceEntry ในการชําระเงินผ่านธนาคาร - พอร์ตข้อมูลการนําเข้า (ธนาคาร) (15000050) ดังนี้:
    รหัสที่มีอยู่

    ...
BalanceEntryAmount := BalanceEntryAmountLCY
ELSE
BalanceEntryAmount := ROUND(BalanceEntryAmountLCY * GenJournalLine."Currency Factor");
GenJournalLine.VALIDATE(Amount,-BalanceEntryAmount);
GenJournalLine.VALIDATE("Document No.",TransDocumentNo);
CASE LatestRemAgreement."New Document Per." OF
LatestRemAgreement."New Document Per."::Date:
GenJournalLine.VALIDATE(
Description,STRSUBSTNO(Text031,LatestDate));
LatestRemAgreement."New Document Per."::Vendor:
...

    รหัสทดแทน

    ...
BalanceEntryAmount := BalanceEntryAmountLCY
ELSE
BalanceEntryAmount := ROUND(BalanceEntryAmountLCY * GenJournalLine."Currency Factor");
GenJournalLine.VALIDATE(Amount,-BalanceEntryAmount);
GenJournalLine.VALIDATE("Document No.",TransDocumentNo);

// Add the following lines.
GenJournalLine.VALIDATE("Remittance Account Code",WaitingJournal."Remittance Account Code");
GenJournalLine.VALIDATE("Remittance Agreement Code",WaitingJournal."Remittance Agreement Code");
// End of the lines.

CASE LatestRemAgreement."New Document Per." OF
LatestRemAgreement."New Document Per."::Date:
GenJournalLine.VALIDATE(
Description,STRSUBSTNO(Text031,LatestDate));
LatestRemAgreement."New Document Per."::Vendor:
...

  3. เปลี่ยนรหัสในข้อมูลหมายเลขสินค้า 1 ในการชําระเงินผ่านธนาคาร - การนําเข้า (BBS) พอร์ตข้อมูล (15000060) ดังนี้:
    รหัสที่มีอยู่

    ...
ERROR(Text005,FileImp,Recordtype);
END;
END;

OnPostDataItem=BEGIN
// Recordtype89 must be read by the end of import:
IF NOT Recordtype89IsRead THEN
ERROR(
Text006 +
Text007,FileImp);
...

    รหัสทดแทน

    ...
ERROR(Text005,FileImp,Recordtype);
END;
END;

OnPostDataItem=BEGIN

// Add the following line.
CreateBalanceEntry(TransBBSDate,'',WaitingJournal."Account No.",RemAccount,RemAgreement);

// Recordtype89 must be read by the end of import:
IF NOT Recordtype89IsRead THEN
ERROR(
Text006 +
Text007,FileImp);
...

  4. เปลี่ยนรหัสในฟังก์ชัน ProcessTransaction ในพอร์ตข้อมูลการชําระเงินผ่านธนาคาร - การนําเข้า (BBS) (15000060) ดังนี้:
    รหัสที่มีอยู่

    ...
WaitingJournal.VALIDATE("BBS Shipment No.",ShipmentNo);
WaitingJournal.VALIDATE("BBS Payment Order No.",PaymOrderNo);
WaitingJournal.VALIDATE("BBS Transaction No.",TransNo);
WaitingJournal.VALIDATE("Journal, Settlement Template",GenJnlLine."Journal Template Name");
WaitingJournal.VALIDATE("Journal - Settlement",GenJnlLine."Journal Batch Name");

// Delete the following lines.
WaitingJournal.MODIFY(TRUE);
UNTIL WaitingJournal.NEXT = 0;

CreateBalanceEntry(TransBBSDate,'',WaitingJournal."Account No.",RemAccount,RemAgreement);
// End of the lines.

END;

LOCAL PROCEDURE CreatePaymOrder@6();
VAR
NextPaymOrderID@1000000000 : Integer;
...

    รหัสทดแทน

    ...
WaitingJournal.VALIDATE("BBS Shipment No.",ShipmentNo);
WaitingJournal.VALIDATE("BBS Payment Order No.",PaymOrderNo);
WaitingJournal.VALIDATE("BBS Transaction No.",TransNo);
WaitingJournal.VALIDATE("Journal, Settlement Template",GenJnlLine."Journal Template Name");
WaitingJournal.VALIDATE("Journal - Settlement",GenJnlLine."Journal Batch Name");

// Add the following lines.
WaitingJournal."Remittance Status" := WaitingJournal."Remittance Status"::Sent;

WaitingJournal.MODIFY(TRUE);
UNTIL WaitingJournal.NEXT = 0;
// End of the lines.

END;

LOCAL PROCEDURE CreatePaymOrder@6();
VAR
NextPaymOrderID@1000000000 : Integer;
...

  5. เปลี่ยนรหัสในฟังก์ชัน CreateBalanceEntry ในไฟล์ข้อมูลการชําระเงินผ่านธนาคาร - การนําเข้า (BBS) (15000060) ดังนี้:
    รหัสที่มีอยู่

    ...
GenJnlLine.VALIDATE("Posting Date",LatestDate);
GenJnlLine.VALIDATE("Account Type",LatestRemAccount."Account Type");
GenJnlLine.VALIDATE("Account No.",LatestRemAccount."Account No.");
GenJnlLine.VALIDATE(Amount,-BalanceEntryAmountLCY);
GenJnlLine.VALIDATE("Document No.",TransDocumentNo);
CASE LatestRemAgreement."New Document Per." OF
LatestRemAgreement."New Document Per."::Date:
GenJnlLine.VALIDATE(
Description,STRSUBSTNO(Text012,LatestDate));
LatestRemAgreement."New Document Per."::Vendor:
...

    รหัสทดแทน

    ...
GenJnlLine.VALIDATE("Posting Date",LatestDate);
GenJnlLine.VALIDATE("Account Type",LatestRemAccount."Account Type");
GenJnlLine.VALIDATE("Account No.",LatestRemAccount."Account No.");
GenJnlLine.VALIDATE(Amount,-BalanceEntryAmountLCY);
GenJnlLine.VALIDATE("Document No.",TransDocumentNo);

// Add the following lines.
GenJnlLine.VALIDATE("Remittance Account Code",WaitingJournal."Remittance Account Code");
GenJnlLine.VALIDATE("Remittance Agreement Code",WaitingJournal."Remittance Agreement Code");
// End of the lines.

CASE LatestRemAgreement."New Document Per." OF
LatestRemAgreement."New Document Per."::Date:
GenJnlLine.VALIDATE(
Description,STRSUBSTNO(Text012,LatestDate));
LatestRemAgreement."New Document Per."::Vendor:
...

  6. เปลี่ยนรหัสในฟังก์ชัน NewTransaction ในพอร์ตข้อมูลการชําระเงินผ่านธนาคาร - การนําเข้า (BBS) (15000060) ดังนี้:
    รหัสที่มีอยู่

    ...
BEGIN
// Initialize transaction import.
// Called before import is started, after a transaction in the file is closed (BETFOR99)
// and before the next transaction from the same file starts.
First := TRUE; //Control of balance entry;

// Delete the following line.
BalanceEntryAmountLCY := 0;

LatestDate := 0D;
LatestVend := '';
CLEAR(LatestRemAccount);
END;
...

    รหัสทดแทน

    ...
BEGIN
// Initialize transaction import.
// Called before import is started, after a transaction in the file is closed (BETFOR99)
// and before the next transaction from the same file starts.
First := TRUE; //Control of balance entry;

LatestDate := 0D;
LatestVend := '';
CLEAR(LatestRemAccount);
END;
...

  7. เปลี่ยนรหัสในฟังก์ชัน FindFiles ใน Rem. คําสั่งการชําระเงิน - นําเข้ารายงาน (15000003) ดังนี้:
    รหัสที่มีอยู่

    ...
FilePath := RemTools.FindPath(ReturnFileSetup."Return File Name");
File.SETFILTER(Path,FilePath); // not case-sensitive
File.SETRANGE("Is a file",TRUE);
// Copy all these files to a temporary table with file name in lower-case letters:
FileCopy.DELETEALL;

// Delete the following lines.
IF File.FIND('-') THEN
REPEAT
FileCopy.Name := LOWERCASE(File.Name);
FileCopy.Size := File.Size;
FileCopy.Date := File.Date;
FileCopy.Time := File.Time;
FileCopy.INSERT;
UNTIL File.NEXT = 0;
// End of the lines.

// From now on use copies of file names :
FileCopy.SETFILTER(Name,LOWERCASE(RemTools.FindFilename(ReturnFileSetup."Return File Name")));
IF FileCopy.FIND('-') THEN
REPEAT
ReturnFiles.INIT;
...

    รหัสทดแทน

    ...
FilePath := RemTools.FindPath(ReturnFileSetup."Return File Name");
File.SETFILTER(Path,FilePath); // not case-sensitive
File.SETRANGE("Is a file",TRUE);
// Copy all these files to a temporary table with file name in lower-case letters:
FileCopy.DELETEALL;

// Add the following lines.
IF EXISTS(FilePath) THEN BEGIN
IF File.FIND('-') THEN
REPEAT
FileCopy.Name := LOWERCASE(File.Name);
FileCopy.Size := File.Size;
FileCopy.Date := File.Date;
FileCopy.Time := File.Time;
FileCopy.INSERT;
UNTIL File.NEXT = 0;
END;
// End of the lines.

// From now on use copies of file names :
FileCopy.SETFILTER(Name,LOWERCASE(RemTools.FindFilename(ReturnFileSetup."Return File Name")));
IF FileCopy.FIND('-') THEN
REPEAT
ReturnFiles.INIT;
...

          

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

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

  • 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 ข้อมูลที่อยู่ในที่นี้มีให้เพื่อตอบสนองต่อปัญหาที่เกิดขึ้นใหม่ เนื่องจากความเร็วในการทําให้พร้อมใช้งานวัสดุอาจรวมถึงข้อผิดพลาดในการพิมพ์และอาจได้รับการแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดู ข้อตกลงการใช้งาน สําหรับข้อควรพิจารณาอื่นๆ