SQL Scripts for Microsoft Dynamics GP: Select All Primary Keys and Generate ALTER Script

This script selects all primary keys for all tables in a database and creates the ALTER script to reapply them. It seems I created this in 2015 to allow primary keys to be exported from one Dynamics GP database and then applied against another.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
-- Get all existing primary keys

DECLARE cPK CURSOR FOR

SELECT

	so.name,

	si.name,

	si.type_desc

FROM sys.indexes si

JOIN sys.objects so

	ON si.object_id = so.object_id

	AND so.type = 'U'

WHERE si.type_desc <> 'HEAP'

AND si.is_Primary_Key = 1

ORDER BY so.Name
DECLARE @PkTable sysname

DECLARE @PkName sysname

DECLARE @KeyType nvarchar(50)
-- Loop through all the primary keys

OPEN cPK

FETCH NEXT FROM cPK INTO @PkTable, @PkName, @KeyType

WHILE (@@FETCH_STATUS = 0)

BEGIN

	DECLARE @PKSQL nvarchar(4000)

	SET @PKSQL = ''

	SET @PKSQL = 'ALTER TABLE ' + @PkTable + ' ADD CONSTRAINT ' + @PkName + ' PRIMARY KEY ' + @KeyType + ' ('
	-- Get all columns for the current primary key

	DECLARE cPKColumn CURSOR FOR

	SELECT

		COLUMN_NAME

	FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE

	WHERE TABLE_NAME = @PkTable

	AND CONSTRAINT_NAME = @PkName

	ORDER BY ORDINAL_POSITION

	OPEN cPKColumn
	DECLARE @PkColumn sysname

	DECLARE @PkFirstColumn bit

	SET @PkFirstColumn = 1

	-- Loop through all columns and append the sql statement

	FETCH NEXT FROM cPKColumn INTO @PkColumn

	WHILE (@@FETCH_STATUS = 0)

	BEGIN

		IF (@PkFirstColumn = 1)

			SET @PkFirstColumn = 0

		ELSE

			SET @PKSQL = @PKSQL + ', '
		SET @PKSQL = @PKSQL + @PkColumn
		FETCH NEXT FROM cPKColumn INTO @PkColumn

	END

	CLOSE cPKColumn

	DEALLOCATE cPKColumn
	SET @PKSQL = @PKSQL + ')'

	-- Print the primary key statement

	PRINT @PKSQL
	FETCH NEXT FROM cPK INTO @PkTable, @PkName, @KeyType

END

CLOSE cPK

DEALLOCATE cPK

Read original post SQL Scripts for Microsoft Dynamics GP: Select All Primary Keys and Generate ALTER Script at azurecurve|Ramblings of an IT Professional