-- Курсор получен и наполнен отсортированными записями списка абонентов
   -- начало цикла перебора записей
   SET @nr = 0
   OPEN @TB
   FETCH NEXT FROM @TB INTO @TB_ID, @TB_Number, @ABONS_FIO, @ABONS_ADR, @ABONS_NOFIX, @REG_Name, @TO_Name, @POS_NAME
   WHILE (@@FETCH_STATUS = 0) 
      BEGIN 
        SET @nr = @nr + 1 -- счетчик записей общий
        FETCH NEXT FROM @TB INTO @TB_ID, @TB_Number, @ABONS_FIO, @ABONS_ADR, @ABONS_NOFIX, @REG_Name, @TO_Name, @POS_NAME
		IF @SearchColumn = 'TB_Number'
		   BEGIN
		     IF @SearchFlag = 1
			    IF @TB_Number = @SearchSample 
				  BEGIN
				    SET @Nrow = @nr
					SET @TbID = @TB_ID
					BREAK
                  END
             ELSE
             IF CHARINDEX(@SearchSample, @TB_Number) > 0
--             IF @TB_Number Like '%'+@SearchSample+'%' 
				  BEGIN
				    SET @Nrow = @nr
					SET @TbID = @TB_ID
					BREAK
                  END
		   END

-- =======================================================================================================
--  Процедура выбирает из списка абонентов записи по указанному вх.параметру RegionName или праметру TOName 
--  или все записи, если не указан ни тот, ни другой. 
--  Записи сортируются по колонке, указанной параметром colname,
--  Из отсортированного набота записей выбираются те, которые относятся к листу,
--  указанному параметром NList. Максимальное кол-во строк на листе определяется параметром QRows
-- =======================================================================================================
ALTER PROCEDURE [dbo].[UsSP_FetchTelBookByRegOrTO_List]
	@RegionName nvarchar(max),
	@TOName nvarchar(max),
    @colname sysname,   -- Наименование колонки для сортировки
	@Nlist int,         -- № листа
	@Qrows int          -- Количество строк на листе максимальное 

AS
BEGIN
	SET NOCOUNT ON;
    IF @RegionName > '' -- Указан регион
	   BEGIN
	    -- Извлечь записи по региону, отсортировать по колонке 
     	SELECT * FROM UsV_FullTelBook
		   WHERE REG_Name = @RegionName
           ORDER BY CASE
              WHEN @colname = 'TB_Number' THEN TB_Number
              WHEN @colname = 'ABONS_FIO' THEN ABONS_FIO
              WHEN @colname = 'ABONS_ADR' THEN ABONS_ADR
              WHEN @colname = 'ABONS_NOFIX' THEN ABONS_NOFIX
              WHEN @colname = 'REG_Name' THEN REG_Name
              WHEN @colname = 'TO_Name' THEN TO_Name
              WHEN @colname = 'POS_Name' THEN POS_NAME
              ELSE ABONS_FIO
          END
 		  -- вырезать указанный лист
          offset (@Nlist-1)*@Qrows rows fetch next @Qrows rows only
       END
    ELSE
       IF @TOName > '' -- Указано управление
	      BEGIN
     	   SELECT * FROM UsV_FullTelBook
    		   WHERE TO_Name = @TOName
               ORDER BY CASE
                  WHEN @colname = 'TB_Number' THEN TB_Number
                  WHEN @colname = 'ABONS_FIO' THEN ABONS_FIO
                  WHEN @colname = 'ABONS_ADR' THEN ABONS_ADR
                  WHEN @colname = 'ABONS_NOFIX' THEN ABONS_NOFIX
                  WHEN @colname = 'REG_Name' THEN REG_Name
                  WHEN @colname = 'TO_Name' THEN TO_Name
                  WHEN @colname = 'POS_Name' THEN POS_NAME
                  ELSE ABONS_FIO
               END
 		  -- вырезать указанный лист
          offset (@Nlist-1)*@Qrows rows fetch next @Qrows rows only
		  END
	   ELSE      -- Не указан ни регион, ни управление
	      BEGIN
     	   SELECT * FROM UsV_FullTelBook
               ORDER BY CASE
                  WHEN @colname = 'TB_Number' THEN TB_Number
                  WHEN @colname = 'ABONS_FIO' THEN ABONS_FIO
                  WHEN @colname = 'ABONS_ADR' THEN ABONS_ADR
                  WHEN @colname = 'ABONS_NOFIX' THEN ABONS_NOFIX
                  WHEN @colname = 'REG_Name' THEN REG_Name
                  WHEN @colname = 'TO_Name' THEN TO_Name
                  WHEN @colname = 'POS_Name' THEN POS_NAME
                  ELSE ABONS_FIO
               END
 		  -- вырезать указанный лист
          offset (@Nlist-1)*@Qrows rows fetch next @Qrows rows only
          END
END