"已经有一个名为 pk_dimXXXX_id 在数据库对象"错误消息当您在 Microsoft Dynamics 导航 2013年的多家公司运行升级尺寸工具

修补程序信息

受支持的修补程序现已从 Microsoft 推出。然而，它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此，如果这个问题没有对您造成严重的影响，我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。

注意： 在特殊情况下，可免收的支持电话，可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。

代码更改

注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。
若要解决此问题，请执行以下步骤：

1. 更改"升级维度条目-SQL"codeunit (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. 更改"升级维度条目-SQL"codeunit (104049) 中的 CreateTablesQry 函数中的代码，如下所示︰
   现有代码 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
   ...