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

//Опишем тип создаваемой колонки

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

КЧ = Новый КвалификаторыЧисла(10, 2);

Массив.Добавить(Тип("Число"));

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

Таблица.Колонки.Добавить("КодУслуги",ОписаниеТиповЧ);



//... выборки из справочника и заполнение ТЗ

Пока ВыборкаСпр.Следующий() Цикл

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

       НоваяСтрока.КодУслуги = ВыборкаСпр.Код;   

КонецЦикла;

  

Запрос = Новый Запрос;

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

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

// Текст запроса для построения временной таблицы

Запрос.Текст = "ВЫБРАТЬ

                  |    Таб.КодУслуги КАК Код

                  |ПОМЕСТИТЬ ВТДанные

                  |ИЗ

                  |    &Данные КАК Таб";

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

Результат = Запрос.Выполнить();   

 

   ТЗН1 = Новый ТаблицаЗначений;//Колонки Кол1,кол2,кол3,ИД

   ТЗН2 = Новый ТаблицаЗначений;//Колонки Кол4,кол5,кол6,ИД

 

    Запрос.УстановитьПараметр("ТЗН1",Отправления);

    Запрос.УстановитьПараметр("ТЗН2",ЛотыКСписанию);

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

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

    //Запрос 1 Помещаем ТЗН1 в МенеджерВременныхТаблиц в таблицу ТЗН1

 

    Запрос.Текст = 

    "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН1

    |ИЗ

    |    &ТЗН1 КАК ТЗН1";

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

    //Запрос 2 Помещаем ТЗН2 в МенеджерВременныхТаблиц в таблицу ТЗН2

 

    Запрос.Текст =

    "ВЫБРАТЬ

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |    ТЗН2.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН2

    |ИЗ

    |    &ТЗН2 КАК ТЗН2";

    //Получаем результирующую таблицу

 

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

    Запрос.Текст = 

        "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД,

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |ИЗ

    |    ТЗН1 КАК ТЗН1

    |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТЗН2 КАК ТЗН2

    |   ПО ТЗН1.ИД = ТЗН2.ИД";

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

 ПостроительЗапроса = Новый ПостроительЗапроса;

    ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);

    

    СтрокаОтбора = ПостроительЗапроса.Отбор.Добавить("Реквизит");

    СтрокаОтбора.Значение = Истина;

    СтрокаОтбора.ВидСравнения = ВидСравнения.Равно;

    СтрокаОтбора.Использование = Истина;

        

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

    ВыбрСтроки = ПостроительЗапроса.Результат.Выгрузить();   

 // Выгрузить в файл xml.

ЗаписьXML = Новый ЗаписьXML();



ЗаписьXML.ОткрытьФайл("c:\doc.xml");

ЗаписьXML.ЗаписатьНачалоЭлемента("Root");



// Получить объект по ссылке.

ВыгружаемыйОбъект = Документ.ПолучитьОбъект();



// С помощью средств сериализации записать объект в файл.

ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект);

	

ЗаписьXML.ЗаписатьКонецЭлемента();



ЗаписьXML.Закрыть();    

 ЧтениеXML = Новый ЧтениеXML();



ЧтениеXML.ОткрытьФайл("c:\doc.xml");

// Текущим становится элемент Root.

ЧтениеXML.Прочитать();



// Текущим становится элемент с документом.

ЧтениеXML.Прочитать();



// Проверить, сможет ли с данным значением "справиться" система сериализации в данной базе.

Если ВозможностьЧтенияXML(ЧтениеXML) Тогда

	// Получить ДокументОбъект.РеализацияТоваровУслуг.

	ЗагружаемыйОбъект = ПрочитатьXML(ЧтениеXML);

	ЗагружаемыйОбъект.Записать();

КонецЕсли;	



ЧтениеXML.Закрыть();    

 // Выгрузить в файл xml.

ЗаписьXML = Новый ЗаписьXML();



ЗаписьXML.ОткрытьФайл("c:\doc.xml");

ЗаписьXML.ЗаписатьНачалоЭлемента("Root");



// Получить объект по ссылке.

ВыгружаемыйОбъект = Документ.ПолучитьОбъект();



// С помощью средств сериализации записать объект в файл.

ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект);

	

ЗаписьXML.ЗаписатьКонецЭлемента();



ЗаписьXML.Закрыть();    

 ЧтениеXML = Новый ЧтениеXML();



ЧтениеXML.ОткрытьФайл("c:\doc.xml");

// Текущим становится элемент Root.

ЧтениеXML.Прочитать();



// Текущим становится элемент с документом.

ЧтениеXML.Прочитать();



// Проверить, сможет ли с данным значением "справиться" система сериализации в данной базе.

Если ВозможностьЧтенияXML(ЧтениеXML) Тогда

	// Получить ДокументОбъект.РеализацияТоваровУслуг.

	ЗагружаемыйОбъект = ПрочитатьXML(ЧтениеXML);

	ЗагружаемыйОбъект.Записать();

КонецЕсли;	



ЧтениеXML.Закрыть();    

 

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

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

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

	ТаблицаПериодов.Колонки.Добавить("ВидЕжегодногоОтпуска",	Новый ОписаниеТипов("СправочникСсылка.ВидыЕжегодныхОтпусков"));

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

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

   

 

Выборка = БизнесПроцессы.Продажа.Выбрать(ДатаНач, ДатаКон);

Пока Выборка.Следующий() Цикл

	//код

КонецЦикла;

   

 

Выборка = Задачи.Дела.Выбрать();

Пока Выборка.Следующий() Цикл

	//код

КонецЦикла;

   

 Запрос = Новый Запрос;

	Запрос.Текст =

	"ВЫБРАТЬ

	|	CRM_Задача.Ссылка,

	|	CRM_Задача.ТочкаМаршрута КАК Задачи_CRM,

	|	CRM_Задача.БизнесПроцесс.ДокументДоставки.Номер КАК Доставка_Номер,

	|	CRM_Задача.ДатаВыполнения КАК Выполнить_до

	|ИЗ

	|	Задача.CRM_Задача КАК CRM_Задача

	|ГДЕ

	|	CRM_Задача.ТочкаМаршрута В(&ТочкаМаршрута)

	|	И CRM_Задача.Выполнена = ЛОЖЬ

	|	И CRM_Задача.БизнесПроцесс.ДокументДоставки <> ЗНАЧЕНИЕ(Документ.Доставка.ПустаяСсылка)

	|	И (CRM_Задача.Пользователь = &Пользователь

	|			ИЛИ CRM_Задача.Подразделение = &Подразделение)

	|

	|УПОРЯДОЧИТЬ ПО

	|	Выполнить_до

	|АВТОУПОРЯДОЧИВАНИЕ";

	Запрос.УстановитьПараметр("ТочкаМаршрута", СписокТ);

	Запрос.УстановитьПараметр("Пользователь", ПараметрыСеанса.ТекущийПользователь);

	Запрос.УстановитьПараметр("Подразделение", ПараметрыСеанса.ТекущийПользователь.Подразделение);



	Задачи_CRM = Запрос.Выполнить().Выгрузить();

	ЭлементыФормы.Задачи_CRM.СоздатьКолонки();

	ЭлементыФормы.Задачи_CRM.Колонки.Ссылка.Видимость=Ложь;

   

 

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

Пока Выборка.Следующий() Цикл

	//код обработки выбора	

КонецЦикла;