Процедура ПреобразоватьТЗвТЗсОписаниемТипов(ТЗ)

	ТипизированнаяТЗ = Новый ТаблицаЗначений;

    Для й=1 По Тз.Количество() Цикл ТипизированнаяТЗ.Добавить(); //Создаем строки

    КонецЦикла;    

    

    ДЗТипов = Новый ДеревоЗначений;

    ДЗТипов.Колонки.Добавить("ИмяКолонки");

    ДЗТипов.Колонки.Добавить("ТипЗначений");

    

    Для Каждого Колонка из Тз.Колонки Цикл

        СтрокаКолонки = ДЗТипов.Строки.Добавить();

        СтрокаКолонки.ИмяКолонки = Колонка.Имя;

        

        ТекСТрокаТипа = СтрокаКолонки.Строки.Добавить();

        ТекСТрокаТипа.ИмяКолонки = Колонка.Имя; //Заполняется для красоты

        ТекСТрокаТипа.ТипЗначений = ТипЗнч(тз[0][Колонка.Имя]);

        Для Каждого СтокаТЗ из Тз Цикл

            ТекТип = ТипЗнч(СтокаТЗ[Колонка.Имя]);

            Если НЕ ТекТип = ТекСТрокаТипа.ТипЗначений Тогда

                Если СтрокаКолонки.Строки.Найти(ТекТип, "ТипЗначений")=Неопределено Тогда

                    ТекСТрокаТипа = СтрокаКолонки.Строки.Добавить();

                    ТекСТрокаТипа.ИмяКолонки = Колонка.Имя;//Заполняется для красоты

                    ТекСТрокаТипа.ТипЗначений = ТекТип;

                КонецЕслИ;

            КонецЕслИ;

        КонецЦикла;

        

        МассивТипов = СтрокаКолонки.Строки.ВыгрузитьКолонку("ТипЗначений");

        ТипизированнаяТЗ.Колонки.Добавить(Колонка.Имя, Новый ОписаниеТипов(МассивТипов),Колонка.Заголовок);

        ТипизированнаяТЗ.ЗагрузитьКолонку(Тз.ВыгрузитьКолонку(Колонка),Колонка.Имя);

    КонецЦикла;

КонецПроцедуры   

 // OldthiefXXX

// Функция возвращает перевернутую ТЗ

// Кидаем ТЗ

Функция ПеревернутьТЗ(ТЗ)

	ТЗ2 = Новый ТаблицаЗначений;

	Массив=Тз.ВыгрузитьКолонку(Тз.Колонки[0]);

	Для Каждого Значения  ИЗ  Массив ЦИКЛ

		ЗН=ВРег(СокрЛП(Значения));

		ТЗ2.Колонки.Добавить(Значения);

	Конеццикла;

	Для каждого стр из Тз.Колонки Цикл

		ТЗ2.Добавить();

	КонецЦикла;

	СчетчикСтрок=-1;

	Для каждого стр из Тз Цикл

		СчетчикСтрок=СчетчикСтрок+1;

		Мас= Новый Массив;

		счетчик=-1;

		Для каждого КН из Тз.Колонки Цикл

			счетчик=счетчик+1;

			ЗначениеИндекса=стр[КН.Имя];

			Мас.Вставить(счетчик,ЗначениеИндекса);

		КонецЦикла;

		ТЗ2.ЗагрузитьКолонку(Мас,ТЗ2.колонки[СчетчикСтрок]);

	КонецЦикла;

	Возврат ТЗ2;	

КонецФункции

    

 Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) Экспорт



Если ЛистЭксель = Неопределено Тогда

    ЛистЭксель = ПолучитьCOMОбъект(,"Excel.Application");

КонецЕсли;

Если ВсегоСтрок = 0 Тогда

    ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;

КонецЕсли;

Если ВсегоКолонок = 0 Тогда

    ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;

КонецЕсли;

Если ТЗ = Неопределено Тогда

    ТЗ =  Новый ТаблицаЗначений;

    Для Счетчик = 1 По ВсегоКолонок Цикл

        ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));

    КонецЦикла;

КонецЕсли;

Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл

    НоваяСтрока = ТЗ.Добавить();

КонецЦикла;



Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));

Данные = Область.Value.Выгрузить();



Для Счетчик = 0 По ВсегоКолонок-1 Цикл

    ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);

КонецЦикла;

ЛистЭксель = Неопределено;

Возврат ТЗ;

КонецФункции   

 // Скопируем значение колони Период в колонку ДатаОказанияУслуги:

// создаем новую колонку с типом "Дата":

ТаблицаПоОказаннымУслугам.Колонки.Добавить("ДатаОказанияУслуги",Новый ОписаниеТипов("Дата"));

// копируем:

ТаблицаПоОказаннымУслугам.ЗагрузитьКолонку(ТаблицаПоОказаннымУслугам.ВыгрузитьКолонку("Период"),"ДатаОказанияУслуги");