Messaggio di errore "È già presente un oggetto denominato 'pk_dimXXXX_id' nel database" quando si esegue lo strumento di aggiornamento di dimensioni per più società in Microsoft Dynamics NAV 2013

Informazioni sull'hotfix

Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.

Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.

Modifiche al codice

Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.
Per risolvere questo problema, attenersi alla seguente procedura:

1. Modificare il codice nella sezione variabili globali nella codeunit "Aggiornamento dimensione voce – SQL" (104049) come segue:
   Codice esistente

   ...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;
   ...
   

   Codice di sostituzione

   ...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. Modificare il codice nella funzione CreateTablesQry nella codeunit "Aggiornamento dimensione voce – SQL" (104049) come segue:
   Codice esistente 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;
   ...
   

   Codice sostitutivo 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;
   ...
   

   Codice esistente 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
   ...
   

   Codice di sostituzione 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
   ...