Microsoft Dynamics NAV 2009 から Microsoft Dynamics 2013 にアップグレードするときにドキュメントの分析コードのアーカイブ テーブルにデータがアップグレードされません。

修正プログラムの情報

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

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。

手動でこの問題を解決するには、以下の手順を実行します。

1. アップグレード分析コードのエントリの SQL codeunit (104049) 内のGetTableKeyFieldArray関数内のコードを次のように変更します。
   既存のコード

   ...KeyRef := RecRef.KEYINDEX(1);
           IF KeyRef.FIELDCOUNT >= ARRAYLEN(KeyArr) THEN  // reserve the last index as 'stop code'
             ERROR(Text013,SQLMgt.GetTableNameSQL(TableID));
   
   // Delete the following lines.
          FOR i := 1 TO KeyRef.FIELDCOUNT DO BEGIN
            FieldRef := KeyRef.FIELDINDEX(i);
            KeyArr[i,1] := SQLMgt.StringConvert(FieldRef.NAME);
            KeyArr[i,2] := FORMAT(FieldRef.TYPE);
          END;
   // End of the deleted lines.
   
           RecRef.CLOSE;
         END;
   ...
   

   置換用コード

   ...KeyRef := RecRef.KEYINDEX(1);
           IF KeyRef.FIELDCOUNT >= ARRAYLEN(KeyArr) THEN  // reserve the last index as 'stop code'
             ERROR(Text013,SQLMgt.GetTableNameSQL(TableID));
   
   // Add the following lines.
          IF TableID = DATABASE::"Document Dimension Archive" THEN
            GetDocDimArchiveTableKeyFieldArray(KeyRef,FieldRef,KeyArr)
          ELSE
            FOR i := 1 TO KeyRef.FIELDCOUNT DO BEGIN
              FieldRef := KeyRef.FIELDINDEX(i);
              KeyArr[i,1] := SQLMgt.StringConvert(FieldRef.NAME);
              KeyArr[i,2] := FORMAT(FieldRef.TYPE);
            END;
   // End of the added lines.
   
           RecRef.CLOSE;
         END;
   ...
   

2. アップグレード分析コードのエントリの SQL codeunit (104049) 内のGetDocDimArchiveTableKeyFieldArray関数内のコードを次のように変更します。
   既存のコード

   ...RecRef.CLOSE;
         END;
   
         LOCAL PROCEDURE AreDimKeyAndParentKeyCompatible@1(OffSet@1000 : Integer) : Boolean;
         VAR
           i@1002 : Integer;
   ...
   

   置換用コード

   ...RecRef.CLOSE;
         END;
   
   // Add the following lines.
        LOCAL PROCEDURE GetDocDimArchiveTableKeyFieldArray@19(VAR KeyRef@1001 : KeyRef;VAR FieldRef@1000 : FieldRef;VAR KeyArr@1002 : ARRAY [16,2] OF Text[80]);
        VAR
          i@1004 : Integer;
          j@1003 : Integer;
        BEGIN
          FOR i := 1 TO KeyRef.FIELDCOUNT DO BEGIN
            FieldRef := KeyRef.FIELDINDEX(i);
            CASE TRUE OF
              i = 4: j := 6;
              i = 5: j := 4;
              i = 6: j := 5;
              ELSE
                j := i;
            END;
            KeyArr[j,1] := SQLMgt.StringConvert(FieldRef.NAME);
            KeyArr[j,2] := FORMAT(FieldRef.TYPE);
          END
        END;
   // End of the added lines.
   
         LOCAL PROCEDURE AreDimKeyAndParentKeyCompatible@1(OffSet@1000 : Integer) : Boolean;
         VAR
           i@1002 : Integer;
   ...