ข้อความแสดงข้อผิดพลาด "มีอยู่แล้ววัตถุที่ชื่อ 'pk_dimXXXX_id' ในฐานข้อมูล" เมื่อคุณเรียกใช้เครื่องมือการอัพเกรดมิติสำหรับหลายบริษัทใน 2013 NAV Dynamics ของ Microsoft

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

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

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

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

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนรหัสในส่วนตัวแปรส่วนกลางในโค้ดยูนิต "ปรับขนาดรายการ– SQL" (104049) เป็นดังนี้:
   รหัสที่มีอยู่

   ...Window@1008 : Dialog;
   NoOfDim@1007 : Integer;
   DimTableKeyFields@1006 : ARRAY [16,2] OF Text[80];
   ParentTableKeyFields@1005 : ARRAY [16,2] OF Text[80];
   
   // Delete the following lines.
   TableNameUpgradeDimTable@1004 : Text[80];
   TableNameUpgradeDimSetID@1001 : Text[80];
   TableNameUpgradeTableID@1000 : Text[80];
   // End of the lines.
   
   PROCEDURE UpgradeTable@10(DimTableID@1000 : Integer;ParentTableID@1001 : Integer);
   VAR
   RecRef@1002 : RecordRef;
   ...
   

   รหัสแทน

   ...Window@1008 : Dialog;
   NoOfDim@1007 : Integer;
   DimTableKeyFields@1006 : ARRAY [16,2] OF Text[80];
   ParentTableKeyFields@1005 : ARRAY [16,2] OF Text[80];
   
   // Add the following lines.
   TableNameUpgradeDimTable@1004 : Text;
   TableNameUpgradeDimSetID@1001 : Text;
   TableNameUpgradeTableID@1000 : Text;
   // End of the lines.
   
   PROCEDURE UpgradeTable@10(DimTableID@1000 : Integer;ParentTableID@1001 : Integer);
   VAR
   RecRef@1002 : RecordRef;
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชัน CreateTablesQry ในโค้ดยูนิต "ปรับขนาดรายการ– SQL" (104049) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...i@1001 : Integer;
   DimNo@1000 : Integer;
   BEGIN
   TableNameUpgradeDimTable := STRSUBSTNO('%1$upgrade%2_Dim',SQLMgt.StringConvert(COMPANYNAME),DimTableID);
   
   // Delete the following line,
   TableNameUpgradeDimSetID := STRSUBSTNO('%1$upgrade%2_DimSetID',SQLMgt.StringConvert(COMPANYNAME),DimTableID);
   
   TableNameUpgradeTableID := STRSUBSTNO('%1$upgrade%2_TableID',SQLMgt.StringConvert(COMPANYNAME),DimTableID);
   DimEntryQry := 'select DISTINCT';
   i := 1;
   ...
   

   รหัสแทนที่ 1

   ...i@1001 : Integer;
   DimNo@1000 : Integer;
   BEGIN
   TableNameUpgradeDimTable := STRSUBSTNO('%1$upgrade%2_Dim',SQLMgt.StringConvert(COMPANYNAME),DimTableID);
   
   // Add the following line.
   TableNameUpgradeDimSetID := STRSUBSTNO('%1$upgrade%2_DimSetID_%3',SQLMgt.StringConvert(COMPANYNAME),DimTableID,CREATEGUID);
   
   TableNameUpgradeTableID := STRSUBSTNO('%1$upgrade%2_TableID',SQLMgt.StringConvert(COMPANYNAME),DimTableID);
   DimEntryQry := 'select DISTINCT';
   i := 1;
   ...
   

   รหัสที่มีอยู่ 2

   ...DimSetQry :=
   DimSetQry +
   STRSUBSTNO(
   ' alter table [%1] add ID int identity ' +
   
   // Delete the following lines.
   ' alter table [%1] add constraint pk_dim%2_id primary key (ID) ',
   TableNameUpgradeDimSetID,DimTableID);
   // End of the lines.
   
   i := 1;
   WHILE (i < 5) AND (DimTableKeyFields[i + 1,1] <> '') DO BEGIN
   IF i > 1 THEN
   ...
   

   รหัสแทนที่ 2

   ...DimSetQry :=
   DimSetQry +
   STRSUBSTNO(
   ' alter table [%1] add ID int identity ' +
   
   // Add the following lines.
   ' alter table [%1] add constraint [pk_dim%2_id_%3] primary key (ID) ',
   TableNameUpgradeDimSetID,DimTableID,CREATEGUID);
   // End of the lines.
   
   i := 1;
   WHILE (i < 5) AND (DimTableKeyFields[i + 1,1] <> '') DO BEGIN
   IF i > 1 THEN
   ...