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

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

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

    КонецЦикла;    

    

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

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

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

    

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

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

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

        

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

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

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

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

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

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

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

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

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

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

                КонецЕслИ;

            КонецЕслИ;

        КонецЦикла;

        

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

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

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

    КонецЦикла;

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

 |ВЫБРАТЬ * ИЗ Справочник.Номенклатура ПОМЕСТИТЬ В ВТТовары   

 Запрос=Новый Запрос("ВЫБРАТЬ * ИЗ Справочник.Номенклатура ПОМЕСТИТЬ В ВТТовары");

Запрос.Выполнить(); //Создалась таблица ВТТовары

ЗапросТМП=Новый Запрос("ВЫБРАТЬ * ИЗ ВТТовары");

ЗапросТМП.МенеджерВременныхТаблиц=Запрос.МенеджерВременныхТаблиц; //Копируем ссылку на временные таблицы

ТЗ=ЗапросТМП.Выполнить().Выгрузить(); //Получаем временную таблицу в таблице значений

Готовую таблицу значений из памяти можно выгружать в менеджер временных таблиц запроса. Единственное условие - колонки таблицы значений должны быть типизированными, т.е. иметь тип. Вот пример, демонстрирующий это:



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

//Колонки должны быть типизированы

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

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



//Заполняем таблицу данными

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

Стр.А="А";

Стр.Б="Б";

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

Стр.А="А1";

Стр.Б="Б1";



//Загружаем таблицу значений в менеджер временных таблиц запроса

Запрос=Новый Запрос("Выбрать Т.А, Т.Б ПОМЕСТИТЬ ВТТаб Из &Таб Как Т");

//Вариант: Запрос=Новый Запрос("Выбрать * ПОМЕСТИТЬ ВТТаб Из &Таб Как Т");

Запрос.МенеджерВременныхТаблиц=Новый МенеджерВременныхТаблиц;

Запрос.УстановитьПараметр("Таб",ТЗ);

Запрос.Выполнить();



//Получаем таблицу из менеджера временных таблиц запроса

ЗапросТМП=Новый Запрос("ВЫБРАТЬ * ИЗ ВТТаб");

ЗапросТМП.МенеджерВременныхТаблиц=Запрос.МенеджерВременныхТаблиц;

ТЗ1=ЗапросТМП.Выполнить().Выгрузить();

ТЗ1.ВыбратьСтроку(); //Показываем полученную таблицу   

 Процедура ТипизацияТЗ(ТЗ) Экспорт

РезультатТЗ = новый ТаблицаЗначений;

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

Имя = Колонка.Имя;

МассивТипов = новый Массив(1);

МассивТипов[0] = ТипЗнч(ТЗ[0][Имя]);

Описатель = новый ОписаниеТипов(МассивТипов);

РезультатТЗ.Колонки.Добавить(Имя, Описатель);

КонецЦикла;



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

СтрокаРез = РезультатТЗ.Добавить();

ЗаполнитьЗначенияСвойств(СтрокаРез, Строка);

КонецЦикла;



ТЗ = РезультатТЗ.Скопировать();

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

 ВЫБРАТЬ

                ВзаиморасчетыСРаботникамиОрганизаций.Период,

                ВзаиморасчетыСРаботникамиОрганизаций.Физлицо,

                ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов,

                ВзаиморасчетыСРаботникамиОрганизаций.Организация,

                ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов,

                ВзаиморасчетыСРаботникамиОрганизаций.Регистратор

ПОМЕСТИТЬ РегВзаимРасч

ИЗ

                РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций

ГДЕ

                ВзаиморасчетыСРаботникамиОрганизаций.Период МЕЖДУ &ДатаН И &ДатаК

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

                ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо,

                ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,

                ЗарплатаКВыплатеОрганизацийЗарплата.ВыплаченностьЗарплаты,

                ЗарплатаКВыплатеОрганизацийЗарплата.КомпенсацияЗаЗадержкуЗарплаты,

                ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка

ПОМЕСТИТЬ ДокумЗарплКВыпл

ИЗ

                Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата

ГДЕ

                ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

                РегВзаимРасч.Период,

                РегВзаимРасч.Физлицо,

                РегВзаимРасч.СуммаВзаиморасчетов,

                ДокумЗарплКВыпл.Сумма,

                ДокумЗарплКВыпл.ВыплаченностьЗарплаты,

                ДокумЗарплКВыпл.КомпенсацияЗаЗадержкуЗарплаты

ИЗ

                РегВзаимРасч КАК РегВзаимРасч

                               ВНУТРЕННЕЕ СОЕДИНЕНИЕ ДокумЗарплКВыпл КАК ДокумЗарплКВыпл

                               ПО РегВзаимРасч.Регистратор = ДокумЗарплКВыпл.Ссылка

                                               И РегВзаимРасч.Физлицо = ДокумЗарплКВыпл.Физлицо

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ РегВзаимРасч

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ ДокумЗарплКВыпл

   

 //Выбор вида удержания пользователем

ВидУдерж=Неопределено;

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

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Сообщить(ВидУдерж); // СООБЩИТЬ выбранный Вид удержания

КонецЕсли;   

 // Проверка орфоргафии переданного текста с помощью средств MS Word

// Параметры

//  <Текст> – <Строка> – проверяемый текст

//  <ДеревоЗначений> – <ДеревоЗначений> – возвращает дерево замен

// Возвращаемое значение:

//   <Булево> – Истина, если текст не содержит ошибок

Функция ПроверитьОрфографию(Текст, ДеревоЗначений = Null) Экспорт

    Попытка

		Ворд = Новый COMОбъект("Word.Application"); //Создаем объект MS Word

	Исключение

		Предупреждение("Microsoft Word не установлен!",,"Ошибка!");

		Возврат Ложь;

	КонецПопытки;



	ТекстБезОшибок = Ворд.CheckSpelling(Текст); //проверяем нашу строку на ошибки



	Если ТекстБезОшибок Тогда // Нет ошибок

		Возврат Истина;



	Иначе // Обнаружены ошибки, будем проверять по словам

        Если ДеревоЗначений <> Null Тогда

			Ворд_Активен = Ворд.Visible; //Запомним, был ли Word активен

			

			ВремДок = Ворд.Documents.Add(); //Добавляем к открытым документам

			МояОбласть = ВремДок.Range(0, 0); //Получаем пустую область в начале документа

			МояОбласть.I_nsertBefore(Текст); //Добавляем в эту область нашу строку

			ЧислоСлов = МояОбласть.Words.Count; //Подсчитываем число слов в области



			ДеревоЗначений = Новый ДеревоЗначений; //сюда будем записывать слова и варианты их замен

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

			МассивТипов.Добавить(Тип("Строка"));

			ОписаниеТипов = Новый ОписаниеТипов(МассивТипов);

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

			

			wdSpellword=0; //константа Word, указывающая на то, что при при вызове проверки орфографии возвращается множество замен

			wdDoNotSaveChanges=0; //константа Word, указывающая на то, что при закрытии не надо сохранять изменения в закрываемом документе

			

			Для НомерСлова = 1 По ЧислоСлов Цикл

	            ОбработкаПрерыванияПользователя();

				ПровОбласть = МояОбласть.Words(НомерСлова); //выбираем очередное слово

				ПровСлово = СокрЛП(ПровОбласть.Text);

				СловоБезОшибок = Ворд.CheckSpelling(ПровСлово); //проверяем наше слово на ошибки

				Если НЕ СловоБезОшибок Тогда //получаем варианты замен (их может и не быть!)

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

						НоваяСтрока = ДеревоЗначений.Строки.Добавить();

						НоваяСтрока.Слово = ПровСлово;

						

						Замены = ПровОбласть.GetSpellingSuggestions( ,1, ,wdSpellword); //проверяем орфографию, укзав, что возвращать надо множество замен

						ЧислоЗамен = Замены.Count; //получаем число возможных замен

						Если ЧислоЗамен > 0 Тогда //заносим варианты замен в таблицу значений

							Для НомерЗамены = 1 По ЧислоЗамен Цикл

								СловоЗамены = СокрЛП(Замены.Item(НомерЗамены).Name);

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

								НоваяПодСтрока.Слово = СловоЗамены;

							КонецЦикла;

						КонецЕсли;	

					КонецЕсли; 

				КонецЕсли;	

			КонецЦикла;



			ВремДок.Close(wdDoNotSaveChanges,,);

			Если Не Ворд_Активен Тогда

				Ворд.Quit();

			КонецЕсли;

		КонецЕсли; 



		Возврат Ложь;

	КонецЕсли; 

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

 

  Перем ДеревоЗначений;

    Состояние("Идет проверка орфографии. Пожалуйста ждите...");

	Текст = ЭлементыФормы.ПолеТекстовогоДокумента.ПолучитьТекст(); // Получаем текст

    Если ПроверитьОрфографию(Текст, ДеревоЗначений) Тогда  // Проверяем орфографию

		Предупреждение("Текст ошибок не содержит!!!", 5, "OK");

	Иначе

		Если ДеревоЗначений.Строки.Количество() > 0 Тогда

			// Создаем и открываем форму автозамен...

			ФормаВыбора = ЭтотОбъект.ПолучитьФорму("ФормаВыбора");



			Для каждого СтрокаДЗ Из ДеревоЗначений.Строки Цикл

				Строка = ФормаВыбора.ДеревоЗначений.Строки.Добавить();

				Строка.Слово = СтрокаДЗ.Слово;



				Для каждого ПодСтрокаДЗ Из СтрокаДЗ.Строки Цикл

					ПодСтрока = Строка.Строки.Добавить();

					ПодСтрока.Слово = ПодСтрокаДЗ.Слово;

				КонецЦикла; 

			КонецЦикла; 



			Если ФормаВыбора.ОткрытьМодально() = "OK" Тогда

		        // Производим автозамены в тексте

				Для каждого СтрокаДЗ Из ФормаВыбора.ДеревоЗначений.Строки Цикл

					Для каждого ПодСтрокаДЗ Из СтрокаДЗ.Строки Цикл

						Если ПодСтрокаДЗ.Пометка Тогда

							Текст = СтрЗаменить(Текст, ПодСтрокаДЗ.Родитель.Слово, ПодСтрокаДЗ.Слово);

						КонецЕсли; 

					КонецЦикла; 

				КонецЦикла; 

             	ЭлементыФормы.ПолеТекстовогоДокумента.УстановитьТекст(Текст); //Вставим в поле исправленный текст

			КонецЕсли; 

		Иначе

			Предупреждение("В тексте найдены ошибки, но вариантов автозамены не нашлось!!!", 5, "Ошибка");

		КонецЕсли; 

	КонецЕсли;    

 //Выбор файла

Режим = РежимДиалогаВыбораФайла.Открытие; 

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 

Фильтр = "Текст(*.txt)|*.txt"; 

ДиалогОткрытияФайла.Фильтр = Фильтр; 

ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 

ДиалогОткрытияФайла.Заголовок = "Выберите файл для загрузки"; 

Если ДиалогОткрытияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 

КонецЕсли;	

//Выбор вида удержания пользователем

ВидУдерж=Неопределено;

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

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Если Удержания.Количество()>0 тогда

		Предупреждение("Внимание! В таблице уже есть данные, новые данные Добавлены к существующим данным!");

	КонецЕсли;

	текдок=Новый ТекстовыйДокумент;

	текдок.Прочитать(ПутьКФайлу);

	Для Ном=1 по текдок.КоличествоСтрок() цикл

		Стр = текдок.ПолучитьСтроку(Ном);

		//Разложим строку в массив данных

		СтрМ=РазложитьСтрокуВМассивПодстрок(стр,"~");

		//Добавляем новую строку

		НовСтр=Удержания.Добавить();

		//Ищем Физика

		Физик = Справочники.ФизическиеЛица.НайтиПоКоду(СтрМ[0]);

		Если СокрЛП(Физик.Наименование) = СокрЛП(СтрМ[1]) тогда                                       

			НовСтр.Физлицо = Физик;

		Иначе 

			Сообщить("В справочнике Физ. Лиц не найден "+СтрМ[1],СтатусСообщения.ОченьВажное);

		КонецЕсли;

		НовСтр.ВидРасчета=ВидУдерж;

		НовСтр.ДатаНачала=РабочаяДата;

		НовСтр.ДатаОкончания=РабочаяДата;

		НовСтр.Показатель1=СтрМ[2];

		НовСтр.Результат=СтрМ[2];

	КонецЦикла;	

КонецЕсли;   

 ВидУдерж=Неопределено;

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

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Сообщить(ВидУдерж);

    //Код обработки

КонецЕсли;   

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

МассивТипов.Добавить(Тип("СправочникСсылка.ФизЛица")); 



// Добавить другие типы.



ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 



ПолученноеЗначение = Неопределено; 

ВвестиЗначение(ПолученноеЗначение, "Выберите значение:", ОписаниеВозможныхТипов);