TABLE [dbo].[Tbl_A](
	[IDTbl_A] [int] IDENTITY(1,1) NOT NULL,
	[KodProdukt] [int] NOT NULL,
	[KodIB] [int] NOT NULL,
	[KodSort] [int] NOT NULL CONSTRAINT [DF_Tbl_A_KodSort]  DEFAULT ((999))
) ON [PRIMARY]

DECLARE @KodProdukt int, @KodIB int, @KodSort int, @tKodSort int

SET @KodProdukt = 230
SET @KodIB = 254
SET @KOdSort = 41

SET @tKodSort = @KodSort

-----------------

IF EXISTS (SELECT [KodProdukt], [KodIB] FROM [dbo].[Tbl_A] WHERE [KodProdukt] = @KodProdukt AND [KodIB] = @KodIB) BEGIN
  UPDATE [dbo].[Tbl_A] SET [KodSort] = @KodSort
    WHERE KOdProdukt = @KodProdukt and KodIB = @KodIB
END
ELSE
BEGIN
  INSERT INTO [dbo].[Tbl_A] 
  	([KodProdukt], [KodIB], [KodSort])
  VALUES
  	(@KodProdukt, @KodIB, @KodSort)
END



-----------------

DECLARE @CurIDTbl_A int, @CurKodSort int, @CntRec int

if OBJECT_ID('tempdb..##Tmp_IDTbl_A')>0 exec('drop table ##Tmp_IDTbl_A')
CREATE TABLE ##Tmp_IDTbl_A (IDTbl_A int)

DECLARE #Tmp_Tbl_A
CURSOR FOR 
	SELECT IDTbl_A
	FROM Tbl_A
	WHERE (KodProdukt = @KodProdukt) AND (KodSort >= @KodSort) AND (KodSort < 10000)
	ORDER BY KodSort

OPEN #Tmp_Tbl_A

FETCH NEXT FROM #Tmp_Tbl_A INTO @CurIDTbl_A

WHILE (@@FETCH_STATUS=0) AND (@tKodSort > 0) BEGIN
	SELECT @CntRec = COUNT(*) 
		FROM Tbl_A
		WHERE (KodProdukt = @KodProdukt) and (KodSort = @tKodSort)

	IF @CntRec >= 1 BEGIN
		INSERT INTO ##Tmp_IDTbl_A (IDTbl_A) Values(@CurIDTbl_A)
		SET @tKodSort = @tKodSort + 1
	END
	ELSE SET @tKodSort = 0

	FETCH NEXT FROM #Tmp_Tbl_A INTO @CurIDTbl_A
END

DEALLOCATE #Tmp_Tbl_A

UPDATE Tbl_A SET KodSort = KodSort + 1 where IDTbl_A in (Select IDTbl_A FROM ##Tmp_IDTbl_A)

if OBJECT_ID('tempdb..##Tmp_IDTbl_A')>0 exec('drop table ##Tmp_IDTbl_A')

UPDATE [a]
    SET [KodSort] = [a].[KodSort] + 1
    FROM [dbo].[Tbl_A] [a]
    WHERE [a].[KodProdukt] = @KodProdukt
      AND [a].[KodSort] >= @KOdSort
;

UPDATE [a]
    SET [KodSort] = [a].[KodSort] + 1
    FROM [dbo].[Tbl_A] [a]
    WHERE [a].[KodProdukt] = @KodProdukt
      AND [a].[KodSort] >= @KOdSort
      and exists(select 1 from [dbo].[Tbl_A] where [KodProdukt] = [a].[KodProdukt] and [KodSort] = [a].[KodSort] + 1)
;

DECLARE @KodProdukt int, @KodIB int, @KodSort int, @MinKodSort int, @MaxKodSort int

SET @KodProdukt = 18
SET @KodIB = 254
SET @KOdSort = 10000

SET @MinKodSort = 10000
SET @MaxKodSort = 0

DELETE FROM [Tbl_A] WHERE KodProdukt = @KodProdukt AND KodIB=@KodIB

Select @MinKodSort=Min(KodSort)
From Tbl_A
Where (KodSort>=@KodSort) And (KodProdukt=@KodProdukt)

IF (@MinKodSort = @KodSort) and (@KodSort < 10000)
BEGIN

	SELECT @MaxKodSort = Min(s1.KodSort+1) 
	FROM [Tbl_A] as s1
	WHERE 
		(s1.KodSort+1 NOT IN
			(SELECT s2.KodSort
			FROM [Tbl_A] AS [s2] 
			Where s2.KodProdukt = @KodProdukt))
		AND s1.KodProdukt=@KodProdukt
		AND s1.KodSort < 10000
		AND s1.KodSort>=@MinKodSort

	UPDATE [Tbl_A]
    SET [KodSort] = [KodSort] + 1
    WHERE [KodProdukt] = @KodProdukt
      AND [KodSort] BETWEEN @MinKodSort AND @MaxKodSort

END

IF EXISTS (SELECT [KodProdukt], [KodIB] FROM [dbo].[Tbl_A] WHERE [KodProdukt] = @KodProdukt AND [KodIB] = @KodIB) BEGIN
  UPDATE [dbo].[Tbl_A] SET [KodSort] = @KodSort
    WHERE KodProdukt = @KodProdukt and KodIB = @KodIB
END
ELSE
BEGIN
  INSERT INTO [dbo].[Tbl_A] 
  	([KodProdukt], [KodIB], [KodSort])
  VALUES
  	(@KodProdukt, @KodIB, @KodSort)
END