Процедура ЗаполнитьДерево()



    ДеревоЗначений.Строки.Очистить();

    КолРазмеров = 0;



    СхемаКомпоновкиДанных = ПолучитьМакет("Схема");

    Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;



    Для Каждого ЭлементОтбора Из ПостроительОтчета.Отбор Цикл



        Если Не ЭлементОтбора.Использование Тогда

            Продолжить;

        КонецЕсли;



        ВидСравненияВОтборе = мСоответствиеВидовСравнения.Получить(ЭлементОтбора.ВидСравнения);

        Если ВидСравненияВОтборе = Неопределено Тогда

            Продолжить;

        КонецЕсли;



        Если Лев(ЭлементОтбора.ПутьКДанным, 8) = "Свойство" Тогда

            ИмяПоля = "Номенклатура.["+мСоответствиеНазначений[ЭлементОтбора.Представление]+" (свойство)]";

        ИначеЕсли Лев(ЭлементОтбора.ПутьКДанным, 9) = "Категория" Тогда

            ИмяПоля = "Номенклатура.["+мСоответствиеНазначений[ЭлементОтбора.Представление]+" (категория)]";

        Иначе

            ИмяПоля = ЭлементОтбора.ПутьКДанным;

        КонецЕсли;



        ПолеОтбора = Новый ПолеКомпоновкиДанных(ИмяПоля);



        Отбор = Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

        Отбор.ЛевоеЗначение  = ПолеОтбора;

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

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

        Отбор.ПравоеЗначение = ЭлементОтбора.Значение;



    КонецЦикла;



    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

    ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;



    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки,, Тип("ГенераторМакетаКомпоновкиДанных"));



    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,, ДанныеРасшифровки);



    ТабличныйДокумент = Новый ТабличныйДокумент;



    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);



    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);



    //ТабличныйДокумент.Показать();



    КолДанных = 5;  //кол. данных в колонке таблицы СКД



    СоздатьДерево(ТабличныйДокумент, КолДанных);



    СтКол = Новый Структура;

    СтКол.Вставить("Ном",   1);

    СтКол.Вставить("Дат1",  2);

    СтКол.Вставить("Дат2",  3);



    СтКол.Вставить("Прих",  4);

    СтКол.Вставить("Реал",  5);

    СтКол.Вставить("Возв",  6);

    СтКол.Вставить("Остат", 7);

    СтКол.Вставить("ВПути", 8);



    СтрНом = Неопределено;

    СтрДерева = Неопределено;



    Для i=3 По ТабличныйДокумент.ВысотаТаблицы Цикл



        ПерваяКолонка = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Ном);



        Если ТипЗнч(ПерваяКолонка) = Тип("СправочникСсылка.Номенклатура") Тогда



            Если СтрНом  Неопределено Тогда

                СтрНом.Строки.Сортировать("Продажи УБЫВ");

                СтрНом.ОстатокМагазин = СтрНом.Строки.Итог("ОстатокМагазин");

                СтрНом.ОстатокСклад = СтрНом.Строки.Итог("ОстатокСклад");

            КонецЕсли;



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

            СтрДерева = СтрНом;



        ИначеЕсли ТипЗнч(ПерваяКолонка) = Тип("СправочникСсылка.Склады") Тогда



            СтрДерева = СтрНом.Строки.Добавить();



            Дат1 = Формат(ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Дат1), "ДФ=dd.MM.yy");

            Дат2 = Формат(ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Дат2), "ДФ=dd.MM.yy");

            СтрДерева.Период = "" + Дат1 + " - " + Дат2;



        Иначе



            Продолжить;



        КонецЕсли;



        СтрДерева.Номенклатура = ПерваяКолонка;

        СтрДерева.Остаток = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Остат, Истина);

        СтрДерева.Приход = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Прих, Истина);

        СтрДерева.Продажи = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Реал, Истина);

        СтрДерева.Возврат = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, СтКол.Возв, Истина);



        Если ЗначениеЗаполнено(СтрДерева.Родитель) Тогда

            Если ПерваяКолонка.ТипСклада = Перечисления.ТипыСкладов.ТорговыйЗал Тогда СтрДерева.ОстатокМагазин = СтрДерева.Остаток;

            Иначе                                                                     СтрДерева.ОстатокСклад = СтрДерева.Остаток;

            КонецЕсли;



            Попытка     СтрДерева.ПроцентПродаж = СтрДерева.Продажи * 100 / СтрДерева.Родитель.Продажи;

            Исключение  СтрДерева.ПроцентПродаж = "-";

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

        Иначе

            СтрДерева.ПроцентПродаж = "100%";

        КонецЕсли;



        Для j=1 По КолРазмеров Цикл



            СтрДерева["Ост" + j] = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, 3 + КолДанных * j + 4, Истина);

            СтрДерева["Пут" + j] = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, i, 3 + КолДанных * j + 5, Истина);



        КонецЦикла;



    КонецЦикла;



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



Процедура СоздатьДерево(ТабличныйДокумент, КолДанных)



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

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

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

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



    Ном = 3 + КолДанных + 1;   //колонки в таблич. документе (Ном/Склад, перв. дата, посл. дата)



    КолРазмеров = (ТабличныйДокумент.ШиринаТаблицы - Ном-1) / КолДанных + 1;

    Для i=1 По КолРазмеров Цикл



        Размер = ПолучитьЗначениеРасшифровки(ТабличныйДокумент, 1, Ном, Истина, Ложь);

        Ном = Ном + КолДанных;



        Попытка

            ДеревоЗначений.Колонки.Добавить("Ост" + i, ОписаниеТиповЧ, Размер, 5);

            ДеревоЗначений.Колонки.Добавить("Пут" + i, ОписаниеТиповЧ, "Путь", 5);

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

        Исключение

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



    КонецЦикла;

    ЭтаФорма.ЭлементыФормы.ДеревоЗначений.Значение = ДеревоЗначений;

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





    i=1; НомерРазмера=1;

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



        Кол.ТолькоПросмотр = Истина;

        Если      i = (НомерРазмера + 8 + 1) Тогда

            Кол.Положение = ПоложениеКолонки.НоваяКолонка;

        ИначеЕсли i = (НомерРазмера + 8 + 2) Тогда

            Кол.Положение = ПоложениеКолонки.НаСледующейСтроке;

        ИначеЕсли i = (НомерРазмера + 8 + 3) Тогда

            Кол.Положение = ПоложениеКолонки.ВТойЖеКолонке;

            Кол.ТолькоПросмотр = Ложь;

            НомерРазмера = НомерРазмера + 3;

        КонецЕсли;



        Если i=1 Тогда

            Кол.Ширина = 20;

        Иначе

            Если i=2 Тогда          Кол.Ширина = 11;

            ИначеЕсли i9 Тогда    Кол.Ширина = 7;

            Иначе                   Кол.Ширина = 5;

            КонецЕсли;

            Кол.ИзменениеРазмера = ИзменениеРазмераКолонки.НеИзменять;

        КонецЕсли;



        i=i+1;



    КонецЦикла;



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

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

// ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С ДЕРЕВОМ ЗНАЧЕНИЙ



// Функция формирует значение нового ключа строки табличной части.

//

// Параметры:

// Дерево - дерево значений

//

Функция ПолучитьНовыйКлючСтрокиДерева(Дерево, СписокКлючей = Неопределено) Экспорт



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

        СписокКлючей = Новый СписокЗначений;

        СписокКлючей.Добавить(0);

    КонецЕсли;

    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        СписокКлючей.Добавить(СтрокаДерева.КлючСтроки);

        ПолучитьНовыйКлючСтрокиДерева(СтрокаДерева, СписокКлючей);

        СписокКлючей.СортироватьПоЗначению(НаправлениеСортировки.Убыв);

        МаксКлюч = СписокКлючей[0].Значение + 1;

    КонецЦикла;

    Возврат МаксКлюч;



КонецФункции // ПолучитьНовыйКлючСтрокиДерева()



// Процедура обновляет ключи связи в дереве значений

//

Процедура ОбновитьКлючиСвязиВДеревеЗначений(Дерево) Экспорт



    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        Попытка

            СтрокаДерева.КлючСвязи = СтрокаДерева.Родитель.КлючСтроки;

        Исключение

            СтрокаДерева.КлючСвязи = 0;

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

        ОбновитьКлючиСвязиВДеревеЗначений(СтрокаДерева);

    КонецЦикла;



КонецПроцедуры // ОбновитьКлючиСвязиВДеревеЗначений()



// Процедура обновляет ключи связи в дереве значений

//

Процедура ОбновитьКлючиСтрокВДеревеЗначений(Дерево, КлючСтроки = 1) Экспорт



    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        СтрокаДерева.КлючСтроки = КлючСтроки;

        КлючСтроки = КлючСтроки + 1;

        ОбновитьКлючиСтрокВДеревеЗначений(СтрокаДерева, КлючСтроки);

    КонецЦикла;



КонецПроцедуры // ОбновитьКлючиСвязиВДеревеЗначений()



// Процедура выгружает данные из дерева значений в таблицу значений

// данные выгружаются только в таблицу со сходным набором реквизитов

//

Функция ВыгрузитьДеревоЗначенийВТаблицуЗначений(Дерево, Таблица = Неопределено) Экспорт



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

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

        Для Каждого Колонка Из Дерево.Колонки Цикл

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

        КонецЦикла;

    КонецЕсли;

    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        ЗаполнитьЗначенияСвойств(Таблица.Добавить(), СтрокаДерева);

        ВыгрузитьДеревоЗначенийВТаблицуЗначений(СтрокаДерева, Таблица);

    КонецЦикла;

    Возврат Таблица;



КонецФункции //ВыгрузитьДеревоЗначенийВТаблицуЗначений()



// Процедура выгружает данные из таблицы значений в дерево значений

// данные выгружаются только в таблицу со сходным набором реквизитов

//

// Параметры:

//

// КлючСтроки - имя колонки ТаблицыЗначений - уникальный идентификатор

// КлючСвязи - имя колонки ТаблицыЗначений - указатель привязки к строке Дерева,

// своего рода указатель на "Родителя"

//

Функция ВыгрузитьТаблицуЗначенийВДеревоЗначений(Таблица, КлючСтроки = "КлючСтроки", КлючСвязи = "КлючСвязи") Экспорт



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

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

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

    КонецЦикла;

    Для Каждого СтрокаТаблицы Из Таблица Цикл

        СтрокаГруппировки = Дерево.Строки.Найти(СтрокаТаблицы[КлючСвязи], КлючСтроки,Истина);

        Если СтрокаГруппировки = Неопределено Тогда

            ЗаполнитьЗначенияСвойств(Дерево.Строки.Добавить(), СтрокаТаблицы);

        Иначе

            ЗаполнитьЗначенияСвойств(СтрокаГруппировки.Строки.Добавить(), СтрокаТаблицы);

        КонецЕсли;

    КонецЦикла;

    Возврат Дерево;



КонецФункции //ВыгрузитьТаблицуЗначенийВДеревоЗначений()



// Процедура устанавливает значение во всем дереве значений

//

Процедура УстановитьЗначениеКолонкиДерева(Дерево, Колонка, Значение) Экспорт



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

        СтрокаДерева[Колонка] = Значение;

        УстановитьЗначениеКолонкиДерева(СтрокаДерева, Колонка, Значение);

    КонецЦикла;



КонецПроцедуры //УстановитьЗначениеКолонкиДерева()



// Процедура копирует подчиненные строки дерева значений

//

Процедура СкопироватьПодчиненныеСтроки(СтрокаПриемник, СтрокаИсточник)



    Для каждого Строка Из СтрокаИсточник.Строки Цикл

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

        НоваяСтрока.КлючСвязи = СтрокаПриемник.КлючСтроки;

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

        СкопироватьПодчиненныеСтроки(НоваяСтрока, Строка);

    КонецЦикла;



КонецПроцедуры // СкопироватьПодчиненныеСтроки()



// Процедура переносит выделенные строки дерева значений в указанную ветку

//

Процедура ПеренестиСтрокиДереваЗначений(СтрокаПриемник, ВыделенныеСтроки) Экспорт



    Если НЕ СтрокаПриемник = Неопределено Тогда

        МассивСтрок = Новый Массив;

        Для Каждого СтрокаПереноса Из ВыделенныеСтроки Цикл

            МассивСтрок.Добавить(СтрокаПереноса);

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

            СкопироватьПодчиненныеСтроки(НоваяСтрока, СтрокаПереноса);

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

            НоваяСтрока.КлючСвязи = СтрокаПриемник.КлючСтроки;

        КонецЦикла;

        Для Каждого СтрокаДерева Из МассивСтрок Цикл

            Если СтрокаДерева.Родитель = Неопределено Тогда

                СтрокаДерева.Строки.Удалить(СтрокаДерева);

            Иначе

                СтрокаДерева.Родитель.Строки.Удалить(СтрокаДерева);

            КонецЕсли;

        КонецЦикла;

    КонецЕсли;



КонецПроцедуры //ПеренестиСтрокиДереваЗначений()   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

    

    Если ПроверкаДат() Тогда 

         Состояние("Запущена выгрузка данных");

         ПолучитьДанныеВТаблице();

         Если чОтчетов<>0 Тогда

                СортироватьТаблицу();

              ВыгрузитьТаблицуВФайл();

              ЗакрытьСистему();

              Состояние("Выгрузка завершена");

         Иначе

              //ЗакрытьСистемуАварийно();

 

         КонецЕсли;

    КонецЕсли;    

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

 Процедура ВыгрузитьТаблицуВФайл()

    

        //1. Open Excel-file 

 

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

            Попытка

                FileOfReports = Новый COMОбъект("Excel.Application");

                MyBook=FileOfReports.WorkBooks.Add(истина); //вместо истина можно вставить имя шаблона

 

                

                FirstSheet=MyBook.Worksheets(1);

                FirstSheet.Name = ОпределитьДату(НачПериода)+"-"+ОпределитьДату(КонПериода);

                FirstSheet.Activate();



                MyBook.SaveAs(КаталогDBF+"ОтчетыПроизводства.xls");

                

            Исключение

                Сообщить("ОШИБКА ЗАПИСИ В EXCEL-ФАЙЛ:"+ОписаниеОшибки());

                Сообщить("Совет: Возможно файл, в который должна быть произведена запись, Вами открыт для просмотра");

                Сообщить("Если это так, то закройте файл и запустите данную обработку повторно!");

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

            

            FileOfReports.Visible = 0;

        Иначе

            FileOfReports.Visible = 0;

            //FileOfReports.Visible = 1;

 

        КонецЕсли;

    

        //2.=========================================================================

        //Состояние("Анализ структуры файла...");

         

        чОтчетов = ТаблицаОтчетов.Количество();

        

        ЭлементыФормы.ИндикаторЗагрузки.МинимальноеЗначение = 0;

        ЭлементыФормы.ИндикаторЗагрузки.МаксимальноеЗначение = чОтчетов;

            

        ЭлементыФормы.Logo.Заголовок = "Выгружаю документы";

        лСчетчикИндикатора = 0;

        

        ВыгрузитьЗаголовокТаблицы(26);

        

        //ВЫГРУЖАЮ ТАБЛИЦУ В ФАЙЛ ПО СТРОКАМ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        фСтарт=истина; //флаг первого прохода

 

        чОт=2;         //номер первой строки с данными

         

        Пока чОтчетов >= 1 Цикл //Цикл по строкам Таблицы отчетов

 

              чОтчетов = чОтчетов -1;

              СтрокаОтчетов = ТаблицаОтчетов.Получить(чОтчетов);

             Если (СтрокаОтчетов.ДатаВыпуска=ДатаВыпускаПред) 

                И (СтрокаОтчетов.Принадлежность=ПринадлежностьПред)

                И (СтрокаОтчетов.Типоразмер=ТипоразмерПред)

                И (СтрокаОтчетов.ТипОсновы=ТипОсновыПред)

             Тогда

             Иначе

                ДатаВыпускаПред=СтрокаОтчетов.ДатаВыпуска; 

                ПринадлежностьПред=СтрокаОтчетов.Принадлежность;

                ТипоразмерПред=СтрокаОтчетов.Типоразмер;

                ТипОсновыПред=СтрокаОтчетов.ТипОсновы;

                Если фСтарт Тогда

                     фСтарт = ложь; //Уже не первый проход

 

                Иначе     

                     чДо=глСчетчикСтрок;

                     ВыгрузитьСтрокуИтог(чОт,чДо,26);

                КонецЕсли;

                чОт=глСчетчикСтрок;

             КонецЕсли;

             

             ВыгрузитьСтрокуОтчетовВФайл(СтрокаОтчетов,26);

             

             лСчетчикИндикатора = лСчетчикИндикатора + 1;

             ЭлементыФормы.ИндикаторЗагрузки.Значение = лСчетчикИндикатора;

             

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

        

        КонецЦикла;

        чДо=глСчетчикСтрок;

        ВыгрузитьСтрокуИтог(чОт,чДо,26);

 

        //КОНЕЦ ВЫГРУЗКИ СТРОК В ФАЙЛ 

 

        Состояние("Данные файла выгружены");               

        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        libСообщитьНК1("ИНФО: ШАГ 1 ВЫПОЛНЕН. Данные файла Отчеты.DBF успешно считаны",1);    

        

        //Состояние("Создание сводных таблиц");

 

        ЭлементыФормы.Logo.Заголовок = "Создание сводных таблиц";

        

        //РазделитьОбласти();

 

            //Range("A2").S_elect

 

            //ActiveWindow.FreezePanes = True

 

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"наим","Дата","Наим","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр","Дата","Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Основа","Дата","Основа","","кг основы");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Напыление","","Напылен","","кг напылен");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Клей","","Дата","","кг клея");

            

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



Процедура СоздатьТаблицуЛист(стрДанные,стрСводнаяТаблица,стрПоле1,стрПоле2,стрПоле3,стрПоле4);

    

    //Создает сводную таблицу стрСводнаяТаблица с полями (стрПоле4 - поле реквизита) 

     //и размещает ее на одноименном листе

     //Заполняет сводную таблицу данными, взятыми с листа стрДанные

     

    //Поле стрПоле2 может быть полем списка через запятую

   

    //0. Вспомогательный разбор списка значений в стрПоле2 и определение числа значений

 

         лПоля.Очистить(); //сбросим все значения, если таковые весели в памяти

 

         стрПоля=стрПоле2;

         i=1;//число значений в списке

 

         Пока Найти(стрПоля,",")<>0 Цикл

             

              n=Найти(стрПоля,",");

              лПоля.Добавить(Сред(стрПоля,1,n-1));

              стрПоля=Сред(стрПоля,n+1);

              i=i+1;

              

         КонецЦикла;      

         лПоля.Добавить(стрПоля);

         

    //1. Установить диапазон выборки данных

     FirstSheet.Activate();

    дДиапазонДанных=FirstSheet.UsedRange.Address;

    ДиапазонДанных=FirstSheet.Name+"!"+Строка(дДиапазонДанных);    

    

    //2. Создать кэш под сводную таблицу

    //   аргументы не переменные, а текст с именем переменных (crazy)

     

         SourceType = xlDatabase;

         SourceData = ДиапазонДанных;

    

         Cache = MyBook.PivotCaches().Add(SourceType, SourceData);

 

    //для отладки: FileOfReports.Visible = 1;   

           

    //3. Породить из кэша сводную таблицу с именем стрСводнаяТаблица

         TableDestination="";

         TableName=стрСводнаяТаблица;

    

         Cache.CreatePivotTable(TableDestination,TableName);

    

    //4. Определить представление данных в сводной таблице

     //стрПоле1

 

    Если СокрЛП(стрПоле1)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицы

 

    КонецЕсли;

    

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

               MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; 

         КонецЕсли;



         чНомер = чНомер + 1;  

    КонецЦикла;      



    //стрПоле3

 

    Если СокрЛП(стрПоле3)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицы

 

    КонецЕсли;

    

    //стрПоле4

 

    Если СокрЛП(стрПоле4)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 data

 

    КонецЕсли;

    

    //5. Скрыть пустые строки в стрПоле2, предварительно проверив, что таковые СУЩЕСТВУЮТ!!!!

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

              Если IfPivotItemExists(TableName,лПоля[чНомер].Значение,"(пусто)")Тогда

                    MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;

              КонецЕсли;

         КонецЕсли;

         чНомер = чНомер + 1;  

    КонецЦикла;      

             

    //6. Закрыть вспомогательные панели                                                  

 

        MyBook.ShowPivotTableFieldList = False;

        FileOfReports.CommandBars("PivotTable").Visible = False;

    

    //7. Присвоить активному листу имя, заданное в параметрах процедуры

 

        MyBook.ActiveSheet.Name = стрСводнаяТаблица;

    

    //8. Сохранить файл

 

        MyBook.Save();

    

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



Функция IfPivotItemExists(strTableName,strFieldName,strItemName)

//Проверяет существование позиции поля сводной таблицы со значением strItemName    

 

        nItems = MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems().Count;

        i = 1;

        Пока i <= nItems Цикл

            Если strItemName=MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems(i).Name Тогда

                 //Искомая позиция strItemName существует:

 

                 //Сообщить("Позиция "+strItemName+" найдена");

 

                 Возврат True;

            КонецЕсли;

            i=i+1; 

        КонецЦикла;

        

        //Сообщить("Позиция "+strItemName+" не найдена");

 

        Возврат False;

        

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

  РабочаяКнига = СоздатьОбъект("Excel.Application");

РабочаяКнига.SheetsInNewWorkbook = 1;

РабочаяКнига.Caption = "Отчет по договорам отгрузки";

NewBook = РабочаяКнига.Workbooks;

List = NewBook.Add;



СписокСтолбцов = СоздатьОбъект("СписокЗначений");

СписокСтолбцов.ДобавитьЗначение("Модель");

СписокСтолбцов.ДобавитьЗначение("Разнорядка");

СписокСтолбцов.ДобавитьЗначение("По договору");

СписокСтолбцов.ДобавитьЗначение("Отгрузили");

СписокСтолбцов.ДобавитьЗначение("Осталось");



//Заполним наименование столбцов: Модель, Разнорядка, Количество

Для Столбец = 1 По СписокСтолбцов.РазмерСписка() Цикл

	Ячейка = РабочаяКнига.Cells(1,Столбец);

	Ячейка.Value = СписокСтолбцов.ПолучитьЗначение(Столбец);

КонецЦикла; 



//Формируем запрос по регистру

//	//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ДатаНач по ДатаКон;

|Разнорядка = Регистр.УчетДоговоров.Разнорядка;

|Модель = Регистр.УчетДоговоров.Модель.Группа;

|Колво = Регистр.УчетДоговоров.Количество;

|Функция КолвоПриход = Приход(Колво);

|Функция КолвоРасход = Расход(Колво);

|Функция КолвоОст = КонОст(Колво);

|Группировка Разнорядка;

|Группировка Модель;

|"//}}ЗАПРОС

;



// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

	Возврат;

КонецЕсли;



НомерСтроки = 1;

Пока Запрос.Группировка("Разнорядка") = 1 Цикл

	Пока Запрос.Группировка("Модель") = 1 Цикл 

		Модель = Запрос.Модель;

		Разнорядка = Запрос.Разнорядка;

		КолПоДоговору = Запрос.КолвоПриход;

		КолОтгрузили = Запрос.КолвоРасход;

		КолОсталось = Запрос.КолвоОст;

		НомерСтроки = НомерСтроки + 1;

		//Организум заполнение ячеек Excel

		Для Ст = 1 По СписокСтолбцов.РазмерСписка() Цикл

			Ячейка = РабочаяКнига.Cells(НомерСтроки,Ст);

			Если Ст = 1 Тогда

				Ячейка.Value = Модель;

			ИначеЕсли Ст = 2 Тогда

				Ячейка.Value = Строка(Разнорядка);

			ИначеЕсли Ст = 3 Тогда

				Ячейка.Value = КолПоДоговору;

			ИначеЕсли Ст = 4 Тогда

				Ячейка.Value = КолОтгрузили;

			ИначеЕсли Ст = 5 Тогда

				Ячейка.Value = КолОсталось;

			КонецЕсли;

		КонецЦикла;	

	КонецЦикла;

КонецЦикла; 

СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;

//Метод СводнаяТаблица.Name возвращает имя сводной таблицы

//Можно задать имя таблицы СводнаяТаблица.Name = "МояТаблица"

СводнаяТаблица.SmallGrid = 0;

//Разворачивает макет сводной таблицы 



//Обращение к ячейкам сводной таблицы возможно по номеру

//Например, СводнаяТаблица.PivotFields(1).Value 

//возвращает значение "Модель"



//Попробуем с другого конца

//1 - Row

//2 - Column

//3 - Page

//4 - Data

СводнаяТаблица.PivotFields(1).Orientation = 1;    //Модель 

СводнаяТаблица.PivotFields(2).Orientation = 3;    //Разнорядка

СводнаяТаблица.PivotFields(3).Orientation = 4;    //По договору

СводнаяТаблица.PivotFields(4).Orientation = 4;    //Отгрузили

СводнаяТаблица.PivotFields(5).Orientation = 4;    //Осталось



//Пройдемся по форме отчета

СводнаяТаблица.Format(1);



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

РабочаяКнига.CommandBars("PivotTable").Visible = 0;

РабочаяКнига.Visible = 1; 

 Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); 

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

ДиалогСохраненияФайла.Фильтр = Фильтр; 

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

ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 

Если ДиалогСохраненияФайла.Выбрать() Тогда 

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

	// выбрали файл, сохраняем в него Проводки

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

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

		Состояние("Выгружаю строку: "+Строка(Стр.НомерСтроки));

		ТекДок.ДобавитьСтроку(Строка(стр.СчетДт)+"~"+Строка(стр.СчетКт)+"~"+Строка(стр.Физлицо.Код)+"~"+Формат(стр.СуммаВыгр,"ЧГ=0"));

	КонецЦикла;	

КонецЕсли;	

ТекДок.Записать(ПутьКФайлу);