Microsoft Dynamics NAV 2013 で複数の会社の分析コードのアップグレード ツールを実行するとエラー メッセージ「が既にインストールされて、データベース内には、' pk_dimXXXX_id' という名前のオブジェクト」

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 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
   ...