ข้อมูลทั้งหมดในแฟ้ม CAMT นำเข้าจะถูกโอนย้ายไปยังตาราง CBG งบบรรทัดเพิ่มใน Microsoft Dynamics NAV 2009 รุ่นภาษาดัตช์ ทำตามขั้นตอนต่าง ๆ ในส่วนของการเปลี่ยนแปลงรหัสเพื่อแก้ไขปัญหานี้ ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:
-
Microsoft Dynamics NAV 2009 R2 รุ่นภาษาดัตช์
-
Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) รุ่นภาษาดัตช์
การแก้ปัญหา
ข้อมูลโปรแกรมแก้ไขด่วน
โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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 ของวัตถุ
วัตถุ
หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล
การเปลี่ยนแปลงรหัส
หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
-
เปลี่ยนแปลงรหัสนี้ในตัวแปรส่วนกลางในโค้ดยูนิตการกระทบยอดใบแจ้งยอด CBG (11000006) เป็นดังนี้:
รหัสที่มีอยู่...PaymenthistorylineRec@1000017 : Record 11000002;
TransactionModeRec@1000018 : Record 11000004;
TempBankAccount@1000025 : TEMPORARY Record 270;
Name@1000021 : Code[80];
Address@1000022 : Code[40];
City@1000023 : Code[40];
Identification@1000024 : Code[40];
NumberOfDocumentNumbers@1000028 : Integer;
NumberOfLinesProcessed@1000029 : Integer;
NumberOfLinesChanged@1000030 : Integer;
...รหัสแทน
...PaymenthistorylineRec@1000017 : Record 11000002;
TransactionModeRec@1000018 : Record 11000004;
TempBankAccount@1000025 : TEMPORARY Record 270;
NumberOfDocumentNumbers@1000028 : Integer;
NumberOfLinesProcessed@1000029 : Integer;
NumberOfLinesChanged@1000030 : Integer;
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันMatchCBGStatementLineในโค้ดยูนิตการกระทบยอดใบแจ้งยอด CBG (11000006) เป็นดังนี้:
รหัสที่อยู่ 1...PaymentHistoryFound@1000004 : Boolean;
i@1000005 : Integer;
strFilter@1000006 : Text[250];
BEGIN
MakeTempfile;
NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
...รหัสแทนที่ 1
...PaymentHistoryFound@1000004 : Boolean;
i@1000005 : Integer;
strFilter@1000006 : Text[250];
Name@1000007 : Code[80];
Address@1000008 : Code[80];
City@1000009 : Code[80];
Identification@1000010 : Code[20];
BEGIN
MakeTempfile;
NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
...รหัสที่มีอยู่ 2
...PostDesRec."Information Type"::"City Acct. Holder":
City := PostDesRec.Description;
PostDesRec."Information Type"::"Payment Identification":
Identification := PostDesRec.Description;
END;
UNTIL PostDesRec.NEXT = 0;
...รหัสแทนที่ 2
...PostDesRec."Information Type"::"City Acct. Holder":
City := PostDesRec.Description;
PostDesRec."Information Type"::"Payment Identification":
Identification := COPYSTR(PostDesRec.Description,1,MAXSTRLEN(Identification));
END;
UNTIL PostDesRec.NEXT = 0;
...รหัสที่มีอยู่ 3
...IF NOT RecChanged THEN BEGIN
IF Name <> '' THEN BEGIN
IF CBGStatementlineRec.Credit > 0 THEN BEGIN
IF FindNAC(Name, Address, City, TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
...รหัสแทนที่ 3
...IF NOT RecChanged THEN BEGIN
IF Name <> '' THEN BEGIN
IF CBGStatementlineRec.Credit > 0 THEN BEGIN
IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
...รหัสที่มีอยู่ 4
...RecChanged := TRUE;
END;
END ELSE BEGIN
IF FindNAC(Name, Address, City, TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
...รหัสแทนที่ 4
...RecChanged := TRUE;
END;
END ELSE BEGIN
IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันFindNACในโค้ดยูนิตการกระทบยอดใบแจ้งยอด CBG (11000006) เป็นดังนี้:
รหัสที่มีอยู่...END;
END;
PROCEDURE FindNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];"Source Type"@1000004 : Integer;VAR SourcenumberFound@1000005 : Code[20]) found@1000000 : Boolean;
VAR
NameResultTemp@1000006 : TEMPORARY Record 11000008;
AddressResultTemp@1000007 : TEMPORARY Record 11000008;
CityResultTemp@1000008 : TEMPORARY Record 11000008;
BEGIN
found := FALSE;
IF (Name = '') OR (Address = '') OR (City = '') THEN
EXIT(FALSE);
NameResultTemp.SETCURRENTKEY("Source Type", "Source No.");
AddressResultTemp.SETCURRENTKEY("Source Type", "Source No.");
CityResultTemp.SETCURRENTKEY("Source Type", "Source No.");
TempRec.SETRANGE("Source Type","Source Type");
TempRec.SETRANGE("Data Type",TempRec."Data Type"::Name);
TempRec.SETRANGE(Word,COPYSTR(Name,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FIND('-') THEN
REPEAT
NameResultTemp := TempRec;
NameResultTemp.INSERT;
UNTIL TempRec.NEXT = 0;
TempRec.RESET;
TempRec.SETRANGE("Source Type","Source Type");
TempRec.SETRANGE("Data Type",TempRec."Data Type"::Street);
TempRec.SETRANGE(Word,COPYSTR(Address,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FIND('-') THEN
REPEAT
NameResultTemp.SETRANGE("Source Type",TempRec."Source Type");
NameResultTemp.SETRANGE("Source No.",TempRec."Source No.");
IF NameResultTemp.FIND('-') THEN BEGIN
AddressResultTemp := NameResultTemp;
AddressResultTemp.INSERT;
END;
UNTIL TempRec.NEXT = 0;
TempRec.RESET;
TempRec.SETRANGE("Source Type","Source Type");
TempRec.SETRANGE("Data Type",TempRec."Data Type"::City);
TempRec.SETRANGE(Word,COPYSTR(City,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FIND('-') THEN
REPEAT
AddressResultTemp.SETRANGE("Source Type",TempRec."Source Type");
AddressResultTemp.SETRANGE("Source No.",TempRec."Source No.");
IF AddressResultTemp.FIND('-') THEN BEGIN
CityResultTemp := AddressResultTemp;
CityResultTemp.INSERT;
END;
UNTIL TempRec.NEXT = 0;
IF CityResultTemp.FIND('-') THEN BEGIN
SourcenumberFound := CityResultTemp."Source No.";
found := CityResultTemp.NEXT = 0;
END;
END;
...รหัสแทน
...END;
END;
PROCEDURE FindSourceNoByNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];SourceType@1000004 : Option;VAR FoundSourceNo@1000005 : Code[20]) Found@1000000 : Boolean;
VAR
TempFoundRecBuf@1000006 : TEMPORARY Record 11000008;
BEGIN
IF (Name = '') AND (Address = '') AND (City = '') THEN
EXIT(FALSE);
IF FindSourceNoByDataType(TempRec."Data Type"::Name,Name,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
EXIT(TRUE);
IF FindSourceNoByDataType(TempRec."Data Type"::Street,Address,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
EXIT(TRUE);
IF FindSourceNoByDataType(TempRec."Data Type"::City,City,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
EXIT(TRUE);
EXIT(FALSE);
END;
LOCAL PROCEDURE FindSourceNoByDataType@1000016(DataType@1000001 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000003 : TEMPORARY Record 11000008;SourceType@1000005 : Option;VAR FoundSourceNo@1000000 : Code[20]) FoundOne : Boolean;
BEGIN
IF Value = '' THEN
EXIT(FALSE);
TempRec.RESET;
TempFoundRecBuf.RESET;
IF TempFoundRecBuf.ISEMPTY THEN
FoundOne := CollectMatches(SourceType,DataType,Value,TempFoundRecBuf) = 1
ELSE
FoundOne := CollectDependentMatches(DataType,Value,TempFoundRecBuf) = 1;
IF FoundOne THEN BEGIN
TempFoundRecBuf.FINDFIRST;
FoundSourceNo := TempFoundRecBuf."Source No.";
END;
END;
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCollectMatchesในโค้ดยูนิตการกระทบยอดใบแจ้งยอด CBG (11000006) เป็นดังนี้:
รหัสที่มีอยู่...END;
END;
LOCAL PROCEDURE MakeTempfile@1000006();
VAR
NumberRec@1000000 : Integer;
...รหัสแทน
...END;
END;
LOCAL PROCEDURE CollectMatches@1000017(SourceType@1000000 : Option;DataType@1000003 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000001 : TEMPORARY Record 11000008) : Integer;
BEGIN
TempRec.RESET;
TempRec.SETRANGE("Source Type",SourceType);
TempRec.SETRANGE("Data Type",DataType);
TempRec.SETRANGE(Word,COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FINDSET THEN
REPEAT
TempFoundRecBuf := TempRec;
TempFoundRecBuf.INSERT;
UNTIL TempRec.NEXT = 0;
TempFoundRecBuf.RESET;
TempFoundRecBuf.SETRANGE("Data Type",DataType);
EXIT(TempFoundRecBuf.COUNT);
END;
PROCEDURE CollectDependentMatches@1000019(DataType@1000002 : Option;Value@1000001 : Code[80];VAR TempFoundRecBuf@1000000 : TEMPORARY Record 11000008) : Integer;
VAR
CurrFoundRecBuf@1000004 : Record 11000008;
BEGIN
TempFoundRecBuf.FINDSET;
REPEAT
CurrFoundRecBuf.COPY(TempFoundRecBuf);
IF TempRec.GET(
COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)),TempFoundRecBuf."Source Type",TempFoundRecBuf."Source No.",DataType)
THEN BEGIN
TempFoundRecBuf := TempRec;
IF TempFoundRecBuf.INSERT THEN;
END;
TempFoundRecBuf.COPY(CurrFoundRecBuf);
UNTIL TempFoundRecBuf.NEXT = 0;
TempFoundRecBuf.RESET;
TempFoundRecBuf.SETRANGE("Data Type",DataType);
EXIT(TempFoundRecBuf.COUNT);
END;
LOCAL PROCEDURE MakeTempfile@1000006();
VAR
NumberRec@1000000 : Integer;
...
ข้อกำหนดเบื้องต้น
คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:
-
Microsoft Dynamics NAV 2009 R2 รุ่นภาษาดัตช์
-
SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาดัตช์
ข้อมูลการเอาออก
คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้
สถานะ
Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"
หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ
