Удаление колонок из таблицы значений

Question

Есть ТЗ в которой первые 3 колонки всегда будут оставаться как есть, а остальные будут удаляться. (остальных может быть много) + может на вход передаваться номер колонки (индекс) эту колонку тоже нужно оставлять.

Accepted Answer

[CODE]&НаСервере
Процедура ОчиститьТЗ(Знач ТЗ, Знач Индекс = Неопределено)
	
	Если Индекс = Неопределено Тогда
		Если ТЗ.Колонки.Количество() > 3 Тогда
			Для _и = 3 По ТЗ.Колонки.Количество() - 1 Цикл
				ТЗ.Колонки.Удалить(3);
			КонецЦикла;
		Иначе
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = "Количество колонок меньше трех!";
			Сообщение.Сообщить();
			Возврат;
		КонецЕсли;
					
	ИначеЕсли Индекс > ТЗ.Колонки.Количество() - 1 Тогда
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Значение индекса превышает количество колонок!";
		Сообщение.Сообщить();
		Возврат;
		
	ИначеЕсли Индекс < 2 Тогда
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Нельзя удалять первые три колонки!";
		Сообщение.Сообщить();
		Возврат;
		
	Иначе
		_ж = 3; // Счетчик смещения удаления 
		Для _и = _ж По ТЗ.Колонки.Количество() - 1 Цикл
			Если _и  = Индекс Тогда
				_ж = _ж + 1;
			Иначе
				ТЗ.Колонки.Удалить(_ж);
			КонецЕсли;
		КонецЦикла;	
		
	КонецЕсли;
				
		
КонецПроцедуры[/CODE]