Процедура ВыполнитьОбработку() Экспорт



    Попытка



        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");

        // Покажем документ.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        ThisDocument = Word.Documents(1);

        ThisDocument.Activate();



        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        ThisDocument.GrammarChecked=0;

        ThisDocument.ShowGrammaticalErrors=0;



        // Готовим переменную в которой будет содержимое документа (текст).

        S_election = Word.S_election;



        // Очистим документ

        // Ctrl-A

        S_election.WholeStory();

        // Del

        S_election.Delete(1, 1);



        // Уменьшим междустрочный интервал.

        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию

        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию



        // Разметим документ. Это можно сделать и предварительно в макете

        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());

        S_election.TypeParagraph();

        S_election.TypeText("34r3 ");

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());

        S_election.EndKey();



        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.

        ThisDocument.Bookmarks("Закладка3").Range.S_elect();

        S_election = Word.S_election;



        Bookmark = ThisDocument.Bookmarks("Закладка3");

        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);

        Table.Rows(1).Cells(1).Range.Text = 1;

        Table.Rows(1).Cells(2).Range.Text = 2;

        Table.Rows(1).Cells(3).Range.Text = 3;

        Table.Rows(1).Cells(4).Range.Text = 4;

        Table.Rows(1).Cells(5).Range.Text = 5;



        // После вывода таблицы, появится "лишняя строка", удалим ее

        // в результате курсор встанет в область закладки 4

        S_election.MoveDown(, 1);

        S_election.Delete(1, 1);



        // Этот текст будет выведен не с последней позиции курсора, а в активной области.

        // в данном случае - в области закладки 2

        ThisDocument.Bookmarks("Закладка2").Range.S_elect();

        S_election = Word.S_election;

        Text = S_election.Range.Text;

        S_election.TypeText(Text + " sdcsdcs");

        // При выводе текста закладка "сбросилась". Восстановим.

        // "Победить" эту проблему я так и не смог((

        // Хотя на практике, закладка больше и не понадобится.

        // Дважды выводить текст в одну и ту же область - не имеет смысла.

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();



        // В области закладки 4 сформируем нумерованный список

        ThisDocument.Bookmarks("Закладка4").Range.S_elect();

        S_election = Word.S_election; // активная (выделенная) область будет начинаться

        // от закладки 4)



        // Добавим текст "для опытов"

        // 1

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 2

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 3

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 4

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // Выделяем введенный текст

        S_election.MoveUp(,4,1);



        // Настроим шаблон объекта галереи списков

        // Галереи списков бывают несккольких типов, 2 - нумерованные списки

        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);

        // Формат нумератора списка - точка после символа нумерации

        ListTemplate.NumberFormat = "%1.";

        // стиль нумератора - арабские цифры

        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic

        // 4 - маленькие латинские буквы.

        // 2 - маленькие римские цифры.

        // 58- меленькие русские буквы.

        // Font = Template.Font; // можно указать форматирование текста списка



        // Применим шаблон к выделенному тексту

 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));



        // Перейдем в конец текста

        S_election.EndKey(6);



        // Добавим картинку

        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом

        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);

        // Зададим размер

        Picture.Height = 100;

        Picture.Width  = 150;



        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру

        Shape = Picture.ConvertToShape();

        Shape.WrapFormat.Type = 0; // по контуру...



        ThisDocument.Save();

        //Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        ThisDocument.Save();

        Сообщить(ОписаниеОшибки());

        //Объект.Application.Quit();

        Объект = Неопределено;

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



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

 Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

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

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

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

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

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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



    Попытка // эта конструкция выдает исключительную ситуацию, но при этом

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

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



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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



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

 // Загружает данные из текстовых данных

// Параметры

// Стр_КаталогДанных - <Строка>

// Автор: Gmix 04.05.2006 12:22:09

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

//   <Булево>

Функция ЗагрузитьДанныеИзtxt(Стр_КаталогДанных)

            // проверки заполнения

           

            ОБ_ФайлДанных=Новый Файл(Стр_КаталогДанных);

            Если НЕ ОБ_ФайлДанных.ЭтоКаталог() Тогда

                        Сообщить("Необходимо указать каталог данных!",СтатусСообщения.ОченьВажное);

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

            КонецЕсли;

           

            Если НЕ ОБ_ФайлДанных.Существует() Тогда

                Сообщить("Каталог """+Стр_КаталогДанных+""" не существует!",СтатусСообщения.ОченьВажное);

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

            КонецЕсли;

           

            ОБ_АДОКонект = Новый COMОбъект("ADODB.Connection");

            ОБ_АДОРекордсетШапка = Новый COMОбъект("ADODB.Recordset");

            ОБ_АДОРекордсетСтроки = Новый COMОбъект("ADODB.Recordset");

           

            //Определяем пару файлов

            Стр_ОкончаниеФайла="";

            ФайлыШапок = НайтиФайлы(Стр_КаталогДанных, "Head_*.txt");

            Для каждого ФайлШапки Из ФайлыШапок Цикл

                        Стр_ОкончаниеФайла=Сред(ФайлШапки.ИмяБезРасширения,6);

                        Стр_таблицаШапки=ФайлШапки.Имя;

                       

                        Стр_ТаблицаСтрок="Rows_"+Стр_ОкончаниеФайла+".txt";

                        Стр_ИмяФайлСтрок=ДобавлениеСлеша(Стр_КаталогДанных)+Стр_ТаблицаСтрок;

                        ФайлСтрок=Новый Файл(Стр_ИмяФайлСтрок);

                        Если НЕ ФайлСтрок.Существует() Тогда

                            Сообщить("Не найден файл строк для файла шапки """+Стр_таблицаШапки+"""! Пара файлов не обработана",СтатусСообщения.Важное);

                                   Продолжить;

                        КонецЕсли;

                       

                        //Создаем схему данных

                        ФайлСхемыДанных=Новый Файл(ДобавлениеСлеша(Стр_КаталогДанных)+"schema.ini");

                        Если ФайлСхемыДанных.Существует() Тогда

                                   Попытка

                                       УдалитьФайлы(ФайлСхемыДанных.Путь,ФайлСхемыДанных.Имя);

                                   Исключение

                                       Сообщить("Не возможно удалить файл """+ФайлСхемыДанных.ПолноеИмя+""" для создания новой схемы данных! Проверте атрибуты файла",СтатусСообщения.Важное);

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

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

                        КонецЕсли;

                       

                        Стр_СхемаДанныхТхт="["+Стр_таблицаШапки+"]

                                                                                  |ColNameHeader=False

                                                                                  |Format=FixedLength

                                                                                  |Col1=NumberNote Text Width 20

                                                                                  |Col2=StoreNum Text Width 5

                                                                                  |Col3=DataNote DateTime Width 10

                                                                                  |Col4=DataDev DateTime Width 10

                                                                                  |Col5=DataDes DateTime Width 10

                                                                                  |Col6=CountLine Long Width 4

                                                                                  |["+Стр_ТаблицаСтрок+"]

                                                                                  |ColNameHeader=False

                                                                                  |Format=FixedLength

                                                                                  |Col1=NumberNote Text Width 20

                                                                                  |Col2=Articul Text Width 7

                                                                                  |Col3=Counts Double Width 9";

                       

                        ТекстСхемы=Новый ЗаписьТекста(ФайлСхемыДанных.ПолноеИмя, КодировкаТекста.ANSI);

                        ТекстСхемы.Записать(Стр_СхемаДанныхТхт);

                        ТекстСхемы.Закрыть();

                       

                        // Создаем коннект

                        Попытка

                                   ОБ_АДОКонект.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Стр_КаталогДанных+";Extended Properties='text;FMT=Delimited;HDR=NO'");

                        Исключение

                                   Сообщить("Невозможно открыть соединение!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

 

                        Стр_SQL = "S_elect * FROM "+Стр_таблицаШапки;

                       

                        Попытка

                                    ОБ_АДОРекордсетШапка=ОБ_АДОКонект.Execute(Стр_SQL);                

                        Исключение

                            Сообщить("Ошибка выполнения запроса """+Стр_SQL+"""!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

 

                        Пока НЕ ОБ_АДОРекордсетШапка.EOF Цикл

                                  

                                   // Заказ

                                  

                                   Стр_НомерЗаказа     = ОБ_АДОРекордсетШапка.Fields("NumberNote").Value;

                                   Стр_КодКА= ОБ_АДОРекордсетШапка.Fields("StoreNum").Value;

                                  

                                   Д_ДатаЗаказа= ОБ_АДОРекордсетШапка.Fields("DataNote").Value;

                                   Д_ДатаДоставки= ОБ_АДОРекордсетШапка.Fields("DataDev").Value;

                                   Д_ДатаСбора= ОБ_АДОРекордсетШапка.Fields("DataDes").Value;

                                   Ч_КоличествоСтрок            = ОБ_АДОРекордсетШапка.Fields("CountLine").Value;

                               

                                   Сообщить("Заказ № "+Стр_НомерЗаказа+" от " +Д_ДатаЗаказа+ " Код контрагента: "+Стр_КодКА+" Дата доставки: "+Д_ДатаДоставки);



                                   // Обработка строк заказа

                                  Стр_SQL = "S_elect * FROM "+Стр_ТаблицаСтрок+" WHERE NumberNote='"+Стр_НомерЗаказа+"'";

                                   Попытка

                                               ОБ_АДОРекордсетСтроки=ОБ_АДОКонект.Execute(Стр_SQL);               

                                   Исключение

                                               Сообщить("Ошибка выполнения запроса """+Стр_SQL+"""!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

                                  

                                   Сч=0;

                                   Сообщить(" №           Артикул                     Количество");

                                   Пока НЕ ОБ_АДОРекордсетСтроки.EOF Цикл

                                               //Заполняем таб часть документа

                                               Сч=Сч+1;

                                              Стр_Артикул=СокрЛП(ОБ_АДОРекордсетСтроки.Fields("Articul").Value);

                                               Ч_Количество=ОБ_АДОРекордсетСтроки.Fields("Counts").Value;

                                               Сообщить(""+Сч+"    " +Стр_Артикул+ "               "+Ч_Количество);

                                               ОБ_АДОРекордсетСтроки.MoveNext();

                                   КонецЦикла;

                                   ОБ_АДОРекордсетШапка.MoveNext();

                        КонецЦикла;

            КонецЦикла;

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

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

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

Сервис.РаскладкаКлавиатуры("Russian");

   Если (ЗагрузитьВнешнююКомпоненту("NetaTable.dll")=1) Тогда

    РовнаяТаблица=СоздатьОбъект("AddIn.NTable");

  Иначе

    Предупреждение("Внешняя компонента AddIn.NetaTable НЕ подключена!!!"+РазделительСтрок+"Работа программы невозможна!!!");

    СтатусВозврата(0);

    Возврат

  КонецЕсли;

Процедура ПриНачалеВыбораЗначения(ИдентЭлемента,ФлагОтбора)

  Если ИдентЭлемента = "Диагноз" Тогда

    РовнаяТаблица.УстановитьРаскладку(67699721);

  ИначеЕсли ИдентЭлемента = "ИсточникФинансирования" Тогда

    РовнаяТаблица.УстановитьРаскладку(68748313);

  КонецЕсли;

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

  //примеры Sserj

Процедура СменитьРаскладку(Реж)

    //Можно и просто через wrapper.dll

    //Wrapper = CreateObject("DynamicWrapper"); 

    //Wrapper.Register("USER32.DLL", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l"); 

    //Wrapper.Register("USER32.DLL", "LoadKeyboardLayout", "i=sl", "f=s", "r=l"); 

    //rus = Wrapper.LoadKeyboardLayout("00000419", 0); 

    //eng = Wrapper.LoadKeyboardLayout("00000409", 0); 

    //Если Реж = "RUS" Тогда 

    //    Wrapper.ActivateKeyboardLayout(rus, 0); 

    //ИначеЕсли Реж = "EN" Тогда 

    //    Wrapper.ActivateKeyboardLayout(eng , 0); 

    //КонецЕсли; 

    Если Не (Константа.ВключатьНамЛоокВТелефонах = Истина) Тогда

        Возврат;

    КонецЕсли;

    wshShell=createObject("wScript.shell");

    Если Реж = "RUS" Тогда

        wshShell.SendKeys("^(8)",0);

    ИначеЕсли Реж = "EN" Тогда

        wshShell.SendKeys("^(9)",0);

    КонецЕсли;

КонецПроцедуры // СменитьРаскладку(Реж)



//ЕЩЕ



  //Обновляем хоткеи смены языков, для подмены в полях где нужна английская раскладка 

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

        текст.ДобавитьСтроку("Windows Registry Editor Version 5.00");

        текст.ДобавитьСтроку("");

        текст.ДобавитьСтроку("[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000100]");

        текст.ДобавитьСтроку("""Virtual Key""=hex:39,00,00,00");

        текст.ДобавитьСтроку("""Key Modifiers""=hex:02,c0,00,00");

        текст.ДобавитьСтроку("""Target IME""=hex:09,04,09,04");

        текст.ДобавитьСтроку("");

        текст.ДобавитьСтроку("[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000101]");

        текст.ДобавитьСтроку("""Virtual Key""=hex:38,00,00,00");

        текст.ДобавитьСтроку("""Key Modifiers""=hex:02,c0,00,00");

        текст.ДобавитьСтроку("""Target IME""=hex:19,04,19,04");

        ИмяФайла = КаталогИБ() + "LangHotKey.reg";

        Попытка

            текст.Записать(ИмяФайла);

            wshShell=createObject("wScript.shell");

            StrComand = "regedit /S " + СокрЛП(ИмяФайла);

            wshShell.Run(StrComand,1);

            //Задерживаемся, иначе скрипт не успевает прочитать файл 

            Для Сч=1 По 50000 Цикл

            КонецЦикла;

            ФС.УдалитьФайл(ИмяФайла);

        Исключение

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

 

Функция Перекодировка(Стр="",Кодировка="windows-1251")

    Стрим = СоздатьОбъект("Adodb.Stream");

    Стрим.Type = 2;

    Стрим.Mode= 3;

    Стрим.charset="iso-8859-5";

    Стрим.Open();

    Стрим.WriteText(Стр);

    Стрим.Position=0;

    Стрим.charset=Кодировка;

    Рез=Стрим.ReadText(-1);

    Стрим.Close();

    Возврат    Рез;

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



//Если предыдущая функция не срабатывает, то попробуйте:

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Стрим.Position=0; // здесь уже можно дергать нормальный текст

 

Стрим2 = СоздатьОбъект("Adodb.Stream");

Стрим2.charset="windows-1251";

Стрим2.Open();

Стрим2.WriteText(Стрим.ReadText);

Стрим2.Position=0;

Рез=Стрим2.ReadText(-1);

Стрим.Close();

Стрим2.Close();

//Выведем в Сообщить результаты

Message("2 = "+Рез);

Message("StrLen(Рез) = "+StrLen(Рез));



// Кратко

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Рез=Стрим.ReadText();

  //Код где, ни единого объекта. smaharbA

Процедура Сформировать()

    Стр="Нажрися вотки и закуси ка селедкой! ";

    База=""+_GetPerformanceCounter()+".txt";

    УТФ=КаталогВременныхФайлов()+"УТФ"+База;

    ИСО=КаталогВременныхФайлов()+"ИСО"+База;

    ДОС=КаталогВременныхФайлов()+"ДОС"+База;

    ОбратноДОС=КаталогВременныхФайлов()+"ОбратноДОС"+База;

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

    Текст.КодоваяСтраница(1);

    Для Сч=1 По 10 Цикл

        Текст.ДобавитьСтроку(Стр);

    КонецЦикла;

    Текст.Записать(ДОС);

    Текст.Очистить();

    КомандаСистемы("chcp 28595 > nul & echo off 2> """+ИСО+""" & for /f ""delims="" %i in ("+ДОС+") do (chcp 28595|>> """+ИСО+""" echo %i)");

//    КомандаСистемы("cmd /c ""chcp 28595|> """+ИСО+""" echo "+Стр+""""); 

    Текст.КодоваяСтраница(0);

    Текст.ДобавитьСтроку(Симв(255)+Симв(254));

    Текст.Записать(УТФ);

    КомандаСистемы("chcp 28595|> nul echo & cmd /u /c type """+ИСО+""" >> """+УТФ+"""");

    КомандаСистемы("type """+УТФ+""" > """+ОбратноДОС+"""");

    Текст.КодоваяСтраница(1);

    Текст.Открыть(ОбратноДОС);

    Для Сч=1 По Текст.КоличествоСтрок() Цикл

        Сообщить(Текст.ПолучитьСтроку(Сч));

    КонецЦикла;

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

 Перем ИмяПути,ИмяФайла;     

Перем xmlParser;



//пример чтения xml файла.

Функция УстановитьКомпоненту()

 Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда

  Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда

   Сообщить("Не удалось обнаружить компоненту V7Plus.dll!"); 

   Возврат 0;

  КонецЕсли;

 КонецЕсли;

 Попытка

  xmlParser = СоздатьОбъект("Addin.XmlParser") ;

 Исключение 

  Сообщить("Не удалось создать объект Addin.XmlParser!");

  Возврат 0;

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

 Возврат 1;

КонецФункции  // УстановитьКомпоненту



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

  стрИмяФайла=ИмяПути+ИмяФайла;  

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

  таб.НоваяКолонка("Ф","Строка",50,0);

  таб.НоваяКолонка("И","Строка",50,0);

  таб.НоваяКолонка("О","Строка",50,0);

  таб.НоваяКолонка("ДатаР","Дата");

  таб.НоваяКолонка("_01","Число",16,2);

  таб.НоваяКолонка("_02","Число",16,2);

  таб.НоваяКолонка("_03","Число",16,2);

  таб.НоваяКолонка("_04","Число",16,2);

  таб.НоваяКолонка("_05","Число",16,2);

  таб.НоваяКолонка("_06","Число",16,2);

  таб.НоваяКолонка("_07","Число",16,2);

  таб.НоваяКолонка("_08","Число",16,2);

  таб.НоваяКолонка("_09","Число",16,2);

  таб.НоваяКолонка("_10","Число",16,2);

  таб.НоваяКолонка("_11","Число",16,2);

  таб.НоваяКолонка("_12","Число",16,2);

  таб.НоваяКолонка("СумГод","Число",18,2);

  таб.НоваяКолонка("ОблГод","Число",18,2);

  таб.НоваяКолонка("УдерГод","Число",18,2);

  таб.НоваяКолонка("Индекс","Строка",6,0);

  таб.НоваяКолонка("Регион","Строка",2,0);

  таб.НоваяКолонка("Город","Строка",20,0);

  таб.НоваяКолонка("Улица","Строка",20,0);

  таб.НоваяКолонка("Дом","Строка",5,0);

  таб.НоваяКолонка("Корпус","Строка",5,0);

  таб.НоваяКолонка("Квартира","Строка",5,0);

  Документ=xmlParser.СоздатьДокумент();  

  Документ.Загрузить(стрИмяФайла);   

   Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);

   Для Сч=1 По Данные.КоличествоПодчиненных() Цикл 

    таб.НоваяСтрока();

    Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч); 

    УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");  

    Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML); 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных()); 

     ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);

     таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;

     таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;

     таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;

     таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;

     адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);

     Для Сч4=1 По адр.КоличествоПодчиненных() Цикл     

      Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда

	таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда

       таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда

       таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда

       таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда

       таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

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

       таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда

       таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      Иначе

      	/////// 

      КонецЕсли;

     КонецЦикла;

    КонецЦикла;  

    УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");  

    Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл     

     //ел=УзелСвДохСтав.ПолучитьУзел(Сч3);

	УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");

     Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл     

         МесДоход=УзелДохВыч.ПолучитьУзел(Сч4); 

         ИмяМес="";

      СумМес=0;

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда

           ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;

      КонецЕсли;  

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда

           СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;

      КонецЕсли;  

      Если ПустоеЗначение(ИмяМес)=0 Тогда

       Если ИмяМес="01" Тогда

        таб._01=СумМес;  

       ИначеЕсли ИмяМес="02" Тогда

        таб._02=СумМес;    

       ИначеЕсли ИмяМес="03" Тогда

        таб._03=СумМес;    

       ИначеЕсли ИмяМес="04" Тогда

        таб._04=СумМес;    

       ИначеЕсли ИмяМес="05" Тогда

        таб._05=СумМес;    

       ИначеЕсли ИмяМес="06" Тогда

        таб._06=СумМес;    

       ИначеЕсли ИмяМес="07" Тогда

        таб._07=СумМес;    

       ИначеЕсли ИмяМес="08" Тогда

        таб._08=СумМес;    

       ИначеЕсли ИмяМес="09" Тогда

        таб._09=СумМес;    

       ИначеЕсли ИмяМес="10" Тогда

        таб._10=СумМес;    

       ИначеЕсли ИмяМес="11" Тогда

        таб._11=СумМес;    

       ИначеЕсли ИмяМес="12" Тогда

        таб._12=СумМес;    

       КонецЕсли;

      КонецЕсли;

     КонецЦикла;   

     

УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");

НалПер=УзелНалПер.ПолучитьУзел(0);

Если НалПер.Наименование="СГДНалПер" Тогда

      таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;

      таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;

      таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;

 КонецЕсли;  

    //тут еще берем данные

 КонецЦикла;  

 Состояние(Сч);

КонецЦикла;          

   Т=СоздатьОбъект("Таблица");

   Т.ИсходнаяТаблица("Таблица");

   таб.выбратьСтроки();          

   Т.ВывестиСекцию("Шапка");    

   нпп=1;

   Пока таб.ПолучитьСтроку()=1 Цикл

    Т.ВывестиСекцию("Текст");    

    нпп=нпп+1;

   КонецЦикла;     

   Т.ТолькоПросмотр(1);

      Т.Опции(0, 0, 1, 0);

  // Т.ОбластьПечати(2);

   Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);

   Т.Показать("Прочитали из XML");   

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



Процедура Выбрать()

 ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );

 Если ПустоеЗначение(ИмяФайла)=0 Тогда

   PathSbitn=ИмяПути+ИмяФайла;

 КонецЕсли;

КонецПроцедуры //Выбрать       



Процедура ПриОткрытии()

 ИмяФайла ="";

 ИмяПути = "P:";     

 res=УстановитьКомпоненту();  

// Сообщить(res);

КонецПроцедуры //ПриОткрытии

 //Emigachev Проверим дату на компе

	Если ТекущаяДата()<Дата(2009,1,1) Тогда 

		Предупреждение("Установите правильную дату!");

		//Открыть диалог установки Даты и Времени

		ЗапуститьПриложение("rundll32 shell32,Control_RunDLL timedate.cpl");

	КонецЕсли;   

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

// перебор элементов справочника

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

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

  // выводим в файл код и наименование, разделенные 

  // каким-либо разделителем, например, ‘;’

  Текст.ДобавитьСтроку(""+Выборка.Код+";"+Выборка.Наименование);

КонецЦикла;

// запись в текстовый файл

Текст.Записать("C://1.txt");   

 // файл в формате Unicode

Текст = Новый ЗаписьТекста("C://1.txt", КодировкаТекста.UTF8);

// перебор элементов справочника

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

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

  // выводим в файл код и наименование, разделенные 

  // каким-либо разделителем, например, ‘;’

  Текст.ЗаписатьСтроку(""+Выборка.Код+";"+Выборка.Наименование);

КонецЦикла;

// запись в текстовый файл

Текст.Закрыть();   

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

// открытие файла

Текст.Прочитать("C://1.txt");

// перебор строк текстового документа

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

 // получить строку файла с указанным номером

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

 // «распарсивание» строки

 // ищем позицию символа-разделителя

 Позиция = Найти (Стр, ‘;’);

 // создаем новый элемент справочника

 Спр=Справочники.Клиенты.СоздатьЭлемент();

 // в код записывается подстрока от первого символа до позиции

 // символа-разделителя

 Спр.Код = Сред(Стр,1,Позиция-1); 

 // за символом-резделителем – наименование клиента

 Спр.Наименование = Сред (Стр, Позиция+1);

 Спр.Записать();

КонецЦикла;   

 // файл в формате Unicode

Текст = Новый ЧтениеТекста("C://1.txt", КодировкаТекста.UTF8);

// перебор элементов справочника

Стр="";

// пока строки в файле остались

Пока Стр<>Неопределено Цикл

 // получить очередную строку файла 

 Стр = Текст.ПрочитатьСтроку();

 // «распарсивание» строки

 // ищем позицию символа-разделителя

 Позиция = Найти (Стр, ‘;’);

 // создаем новый элемент справочника

 Спр=Справочники.Клиенты.СоздатьЭлемент();

 // в код записывается подстрока от первого символа до позиции

 // символа-разделителя

 Спр.Код = Число(Сред(Стр,1,Позиция-1)); 

 // за символом-резделителем – наименование клиента

 Спр.Наименование = Сред (Стр, Позиция+1);

 Спр.Записать();

КонецЦикла;   

  // Выгрузка данных в текстовый файл

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

Выборка = Справочники.Номенклатура.Выбрать();

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

	Стр = СтрЗаменить(Выборка.Наименование, Символ(34), "%квч%");

	Код = Строка(Выборка.Код) + Символ(34);

	Текст.ДобавитьСтроку(Код + Стр);

КонецЦикла;

Текст.Записать("c:\temp\text.txt");



//Загрузка данных из текстового файла. При загрузке ориентируемся на используемый разделитель значений (это кавычка).

//После получения значения делаем обратное преобразование для разделителя (при выгрузке 

//данных кавычку, встречающуюся в выгружаемых строках, заменяли комбинацией символов %квч%)

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

Текст.Прочитать("c:\temp\text.txt");

Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл

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

	Позиция = Найти(Стр, Символ(34));

	Код = Сред(Стр, 1, Позиция-1);

	прНаименование = Сред(Стр, Позиция + 1);

	Наименование = СтрЗаменить(прНаименование, "%квч%", Символ(34));

	Сообщить(Код + "–" + Наименование);	

КонецЦикла;	





"В предыдущем примере файл ЗАГРУЖАЛСЯ ПОЛНОСТЬЮ, а в следующем примере ЗАГРУЖАЕТСЯ ПОСТРОЧНО."

"Это позволяет при работе с файлами больших размеров значительно уменьшить время выполнения задачи."

//Запись данных в файл построчно

Путь = "c:\temp\text.txt";

Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8);

Выборка = Справочники.Номенклатура.Выбрать();

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

	Текст.ЗаписатьСтроку(Выборка.Наименование);

КонецЦикла;	

Текст.Закрыть();



//Чтение данных из файла построчно

Путь = "c:\temp\text.txt";

Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8);

Стр = Текст.ПрочитатьСтроку();

Пока Стр <> Неопределено Цикл

	Стр = Текст.ПрочитатьСтроку();

	Сообщить(Стр);

КонецЦикла;   

  //Выгрузка данных в TXT файл

Данные = СоздатьОбъект("Текст");

Данные.КодоваяСтраница(0); // принудительная установка   

НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку()=1 Цикл 

 Стр = ""+ТЗ.ЭтоГруппа+";"+ТЗ.Уровень+";"+ ТЗ.КодРодителя+";"+ТЗ.Код+";"+ТЗ.Наименование; // Символ - разделитель полей - ";"

 Данные.ДобавитьСтроку(Стр);

КонецЦикла; 

Данные.Записать("c:\export.txt");

КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

// Рассчитываем продолжительность выполнения алгоритма в секундах

Длительность = Окр((КонВремя-НачВремя)/1000,3);

Сообщить("Время выгрузки в TXT файл: "+Длительность+" с");



//Загрузка, чтение данных из TXT файла:

НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

Данные = СоздатьОбъект("Текст");

Данные.КодоваяСтраница(0); // принудительная установка  

Данные.Открыть("c:\export.txt");

КолСтр  = Данные.КоличествоСтрок();

 Для н=1 по КолСтр Цикл 

 ТекСтр = Данные.ПолучитьСтроку(н);   

 Состояние("В файле прочитано строк "+н+" из "+КолСтр);

КонецЦикла; 

КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

// Рассчитываем продолжительность выполнения алгоритма в секундах

Длительность = Окр((КонВремя-НачВремя)/1000,3);

Сообщить("Время чтения TXT файла: "+Длительность+" с"); 

  // ПРИМЕР 1

// Запись данных справочника в DBF-файл:

БД = Новый XBase;

// проектируется структура таблицы, т.е. имена и типы полей

БД.Поля.Добавить("Code","N",6,0);	// числовое поле Код

БД.Поля.Добавить("Name","S",30);	// строковое поле Наименование

// создание файла с указанной структурой

БД.СоздатьФайл("C://1.dbf");

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

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

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

	БД.Добавить();

	// заполняем поля новой строки

	БД.Code = Выборка.Код;

	БД.Name = Выборка.Наименование;

КонецЦикла;

// зафиксировать изменения в файле

БД.ЗакрытьФайл();



// Чтение данных из DBF-файла в справочник:

БД = Новый XBase;

БД.ОткрытьФайл("C://1.dbf");

// считываем файл построчно

Пока БД.Следующая() Цикл

	// создаем новый элемент справочника

 Спр=Справочники.Клиенты.СоздатьЭлемент();

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

 	Спр.Код = БД.Сode; 

 	Спр.Наименование = БД.Name;

Спр.Записать();

КонецЦикла;

БД.ЗакрытьФайл();   

  // ПРИМЕР 2

// Выгрузка данных в DBF

БД = Новый XBase;

БД.Поля.Добавить("CODE", "S", 5);

БД.Поля.Добавить("NAME", "S", 40);

БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx");

БД.Индексы.Добавить("IDXCODE", "CODE");

ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx");

БД.АвтоСохранение = Истина;

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

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

	БД.Добавить();

	БД.CODE = Выборка.Код;

	БД.NAME = Выборка.Наименование;

КонецЦикла;

БД.ЗакрытьФайл();



// Загрузка данных из DBF

БД = Новый XBase;

БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); 

БД.ТекущийИндекс = БД.Индексы.IDXCODE;

Пока БД.Следующая() Цикл

	Сообщить(БД.CODE);

	Сообщить(БД.NAME);

КонецЦикла;	

БД.ЗакрытьФайл();    

  // Выгрузка ТЗ, Таблицы значений в DBF файл  

 НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

 ДБФ = СоздатьОбъект("XBASE"); 

 ДБФ.ДобавитьПоле("IsGroup","N",1,0);  

 ДБФ.ДобавитьПоле("Level","N",1,0);

 ДБФ.ДобавитьПоле("ParentCode","S",8,0);

 ДБФ.ДобавитьПоле("Code","S",8,0);

 ДБФ.ДобавитьПоле("Descr","S",60,0); 

 ДБФ.КодоваяСтраница(0); // Windows

 ДБФ.СоздатьФайл("c:\export.dbf"); 



 ТЗ.ВыбратьСтроки();

 Пока ТЗ.ПолучитьСтроку()=1 Цикл

  ДБФ.Добавить();  

  ДБФ.IsGroup= ТЗ.ЭтоГруппа;

  ДБФ.Level= ТЗ.Уровень; 

  ДБФ.ParentCode = ТЗ.КодРодителя;

  ДБФ.Code= ТЗ.Код; 

  ДБФ.Descr= СокрЛП(ТЗ.Наименование); 

  ДБФ.Записать(); 

 КонецЦикла;  

 ДБФ.ЗакрытьФайл(); 



 КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

 // Рассчитываем продолжительность выполнения алгоритма в секундах

 Длительность = Окр((КонВремя-НачВремя)/1000,3);

 Сообщить("Время выгрузки в DBF файл: "+Длительность+" с");



 // Загрузка ТЗ, Таблицы значений из DBF файла

  НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма 

  ДБФ = СоздатьОбъект("XBASE"); 

  ДБФ.КодоваяСтраница(0); // Windows

  ДБФ.ОткрытьФайл("c:\export.dbf");  

  Если ДБФ.Открыта()=0 Тогда

   Сообщить("Файл DBF не открыт !","!");

   Возврат;

  КонецЕсли;

  КолСтр  = ДБФ.КоличествоЗаписей();

  н= 0; 

  ДБФ.Первая(); 

  ПризнакГруппы  = ДБФ.IsGroup;

  ТекУровень  = ДБФ.Level; 

  ТекКодРодителя = ДБФ.ParentCode;

  ТекКод  = ДБФ.Code; 

  ТекНаименоване = ДБФ.Descr;  

  н = н+1;

  Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  Пока ДБФ.Следующая()=1 Цикл

   ПризнакГруппы  = ДБФ.IsGroup;

   ТекУровень  = ДБФ.Level; 

   ТекКодРодителя = ДБФ.ParentCode;

   ТекКод  = ДБФ.Code; 

   ТекНаименоване = ДБФ.Descr;

   н = н+1;

   Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  КонецЦикла;  

  ДБФ.ЗакрытьФайл(); 

  

  КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

  // Рассчитываем продолжительность выполнения алгоритма в секундах

  Длительность = Окр((КонВремя-НачВремя)/1000,3);

  Сообщить("Время чтения DBF файла: "+Длительность+" с"); 

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

    

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

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

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

         Если чОтчетов<>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; 

 //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!

//Макрос пишет на листе Добрый день!, https://helpf.pro и сохраняет файл в D:/primer.doc 



ПримерМакроса = "Sub VBAprimer()

|S_election.TypeText Text:=""Добрый день!""

|Application.Keyboard (1033)

|S_election.TypeText Text:="": https://helpf.pro""

|S_election.TypeParagraph

|S_election.MoveUp Unit:=wdLine, Count:=2

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 1"")

|S_election.MoveDown Unit:=wdLine, Count:=1

|S_election.HomeKey Unit:=wdLine

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 2"")

|ActiveDocument.SaveAs FileName:=""D:/primer.doc"", FileFormat:= _

|    wdFormatDocument, LockComments:=False, Password:="""", AddToRecentFiles:= _

|    True, WritePassword:="""", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

|    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

|    SaveAsAOCELetter:=False

|End Sub";



// Создание объекта

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

Word.Documents.Add();

//VBComponents = Word.VBE.ActiveVBProject.VBComponents;

VBComponents = Word.ActiveDocument.VBProject.VBComponents;

Count = VBComponents.Count();

VBComponents.Add(1);

VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ПримерМакроса);

Word.Application.Run(VBAprimer");

Word.Quit();

Word = Неопределено;    

  // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...

Процедура Сформировать()

     Попытка     

          W=СоздатьОбъект("Word.Application"); 

     Исключение

          Возврат;

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

     W.Documents.Add();

     i = W.VBE.ActiveVBProject.VBComponents.Count();

     W.VBE.ActiveVBProject.VBComponents.Add (1);

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub");

     W.Application.Run ("Golif");

     W="";

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

 Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "

 Процедура Сформировать()

Перем Кат,Шаб;



Ехсел=СоздатьОбъект("Excel.Application");

Книга=Ехсел.Workbooks;

Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда

     Книга.Open(Шаб+Кат);  

     Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";  

     Книга.Close();

     Ехсел="";  

КонецЕсли;

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

 Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";

 Ехсел.Cells(1, 3).FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";