Функция ВытащитьДату(Стр)

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

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



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

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

	ТЗ.НоваяКолонка("ИД","Число");

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

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

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

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

	//	ТЗ.НоваяСтрока();

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

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

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

 

Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1)

    Перем Имя,Каталог;

    scr=СоздатьОбъект("MSScriptControl.ScriptControl");

    scr.language="javascript";

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

    scr.AddObject("Shell",shell);

    ИмяСлужбы="ImapiService";

    Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда

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

        Возврат;

    КонецЕсли;

    scr.Eval("Shell.ServiceStart('"+ИмяСлужбы+"',true)");

    РасположениеФайла(Каталог,Имя);

    Если ФС.ВыбратьФайл(0,Имя,Каталог,"Выбирите файл для записи","Все файлы|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    fso=СоздатьОбъект("Scripting.FileSystemObject");

    wshshell=СоздатьОбъект("WScript.Shell");

    КаталогДляЗаписи=wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CD Burning");

    fso.CopyFile(Каталог+Имя,КаталогДляЗаписи+"\"+Имя,-1);

    ДискДляЗаписиNS=shell.NameSpace(ДискДляЗаписи);

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Eject",АвтоИзвлечениеСД,"REG_DWORD");

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Close",АвтоЗакрытиеМастера,"REG_DWORD");

    scr.AddObject("Verbs",ДискДляЗаписиNS.items().item().verbs());

    e=scr.Eval("new Enumerator(Verbs)");

    Пока e.atEnd(0)=0 Цикл

        Если Найти(Нрег(e.item(0).name),"записать файлы на компакт-диск")>0 Тогда

            e.item(0).doit();

            Пока wshshell.appactivate("Мастер записи компакт-дисков")=0 Цикл

            КонецЦикла;

            wshshell.sendkeys("{ENTER}")

        КонецЕсли;

        e.moveNext(0);

    КонецЦикла;

    Пока wshshell.appactivate("Мастер записи компакт-дисков")=-1 Цикл

        ВвестиСтроку("","Пауза",1,0,1);

    КонецЦикла;

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

 

"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log

   

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

    

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

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

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

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

 // Проверка орфоргафии переданного текста с помощью средств 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, "Ошибка");

		КонецЕсли; 

	КонецЕсли;    

 

Перем ОбъектыКонфы;

Перем СтруктКонфы;



Процедура ВыгрузитьВWord()

	Попытка

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

	Исключение 

		Сообщить("Не удалось открыть Word");

		Возврат;

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

	

	Word.Documents.Add();

	Документ = Word.ActiveDocument();



    // Перебор типов метаданных

	Для Каждого ТипОбъекта Из ОбъектыКонфы Цикл

		Состояние(ТипОбъекта.Значение);

		

		Если Метаданные[ТипОбъекта.Ключ].Количество() > 0 Тогда

			// Добавляем новый параграф

			Документ.Paragraphs.Add();

			Номер = Документ.Paragraphs.Count();

			Документ.Paragraphs(Номер-1).Range().I_nsertAfter(ТипОбъекта.Значение);

			Документ.Paragraphs(Номер).Range().Style="Заголовок 1";



			//Перебираем конктретные объекты

			Для каждого Объект Из Метаданные[ТипОбъекта.Ключ] Цикл

				// Добавляем новый параграф

				Документ.Paragraphs.Add();

				Номер = Документ.Paragraphs.Count();

				Документ.Paragraphs(Номер-1).Range().I_nsertAfter(Объект.Синоним);

				Документ.Paragraphs(Номер).Range().Style="Заголовок 2";

				

				// Перебираем параметры метаданных

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

					Попытка

						Количество = Объект[Параметр.Ключ].Количество();

					Исключение

						Продолжить;

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

						

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

						// Добавляем новый параграф

						Документ.Paragraphs.Add();

						Номер = Документ.Paragraphs.Count();

						Документ.Paragraphs(Номер-1).Range().I_nsertAfter(Параметр.Значение + " (" + Количество + ")");

						Документ.Paragraphs(Номер).Range().Style="Заголовок 3";

						

						// Добавляем новый параграф

						Документ.Paragraphs.Add();

						Номер=Документ.Paragraphs.Count();

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

						Документ.Tables.Add(Документ.Paragraphs(Номер).Range(),Количество+1,4);

						

						Счетчик = 1;

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

						Таблица = Документ.Tables(Документ.Tables.Count());

						Таблица.Cell(Счетчик,1).Range().I_nsertAfter("Имя");

						Таблица.Cell(Счетчик,2).Range().I_nsertAfter("Синоним");

						Таблица.Cell(Счетчик,3).Range().I_nsertAfter("Тип");

						Таблица.Cell(Счетчик,4).Range().I_nsertAfter("Комментарий");

						// Устанавливаем жирный шрифт для шапки таблицы

						Документ.Range(Таблица.Cell(Счетчик,1).Range.Start,Таблица.Cell(Счетчик,4).Range.End).Font.Bold = Истина;

						

						Для каждого Значение Из Объект[Параметр.Ключ] Цикл

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

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

							Попытка

								Таблица.Cell(Счетчик,1).Range().I_nsertAfter(Значение.Имя);

							Исключение

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

							Попытка

								Таблица.Cell(Счетчик,2).Range().I_nsertAfter(Значение.Синоним);

							Исключение

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

							Попытка

								СтрокаТипов = "";

								// Выводим все типы

								Для каждого Тип Из Значение.Тип.Типы() Цикл

									СтрокаТипов = СтрокаТипов + " " + Строка(Тип);

								КонецЦикла; 

								Таблица.Cell(Счетчик,3).Range().I_nsertAfter(СтрокаТипов);

							Исключение

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

							Попытка

								Таблица.Cell(Счетчик,4).Range().I_nsertAfter(Значение.Комментарий);

							Исключение

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

						КонецЦикла; 

					КонецЕсли; 

				КонецЦикла; 

			КонецЦикла;

		КонецЕсли;

	КонецЦикла;

	

	// Показываем документ

	Word.Visible = Истина;

	// Устанавливаем активность документа

	Word.Activate();

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

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



Процедура ВыгрузитьВExcel()

	Попытка

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

	Исключение 

		Сообщить("Не удалось открыть Excel");

		Возврат;

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



	// Добавляем новый лист

	Excel.Application.Workbooks.Add(1);

	Лист = Excel.ActiveSheet;

	// Задаем имя закладки

	Лист.Name = "Данные";

	

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

	

	// Перебор типов метаданных

	Для Каждого ТипОбъекта Из ОбъектыКонфы Цикл

		Состояние(ТипОбъекта.Значение);

		

		Если Метаданные[ТипОбъекта.Ключ].Количество() > 0 Тогда

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

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

			// Устанавливаем текст в ячейку

			Лист.Cells(НомерСтроки, 1).Value = ТипОбъекта.Значение;

			// Устанавливаем размер шрифта

			Лист.Cells(НомерСтроки, 1).Font.Size = 16;

			// Устанавливаем цвет

			Лист.Cells(НомерСтроки, 1).Font.ColorIndex = 3;



			//Перебираем конктретные объекты

			Для каждого Объект Из Метаданные[ТипОбъекта.Ключ] Цикл

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

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

				// Устанавливаем текст в ячейку

				Лист.Cells(НомерСтроки, 1).Value = Объект.Синоним;

				// Устанавливаем отступ в 2 символа

				Лист.Cells(НомерСтроки, 1).I_nsertIndent(2);

				// Устанавливаем размер шрифта

				Лист.Cells(НомерСтроки, 1).Font.Size = 12;

				// Устанавливаем цвет

				Лист.Cells(НомерСтроки, 1).Font.ColorIndex = 5;

				

				// Перебираем параметры метаданных

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

					Попытка

						Количество = Объект[Параметр.Ключ].Количество();

					Исключение

						Продолжить;

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

						

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

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

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

						Лист.Cells(НомерСтроки, 1).Value = Параметр.Значение + " (" + Количество + ")";

						Лист.Cells(НомерСтроки, 1).I_nsertIndent(4);

						// Устанавливаем жирный шрифт

						Лист.Cells(НомерСтроки, 1).Font.Bold = Истина;

						// Устанавливаем цвет

						Лист.Cells(НомерСтроки, 1).Font.ColorIndex = 16;

						

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

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

						Лист.Cells(НомерСтроки, 1).Value = "Имя";

						Лист.Cells(НомерСтроки, 2).Value = "Синоним";

						Лист.Cells(НомерСтроки, 3).Value = "Тип";

						Лист.Cells(НомерСтроки, 4).Value = "Комментарий";

						

						Для Ном = 1 По 4 Цикл

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

							Лист.Cells(НомерСтроки, Ном).ColumnWidth = 20;

							Лист.Cells(НомерСтроки, Ном).Font.Bold = Истина;

							// Очищаем все границы

							Лист.Cells(НомерСтроки, Ном).Borders(5).LineStyle = -4142;

							// Устанавливаем левую границу

							Лист.Cells(НомерСтроки, Ном).Borders(7).LineStyle = 1;

							// Устанавливаем верхнюю границу

							Лист.Cells(НомерСтроки, Ном).Borders(8).LineStyle = 1;

							// Устанавливаем нижнюю границу

							Лист.Cells(НомерСтроки, Ном).Borders(9).LineStyle = 1;

							// Устанавливаем правую границу

							Лист.Cells(НомерСтроки, Ном).Borders(10).LineStyle = 1;

							// Устанавливаем цвет фона

							Лист.Cells(НомерСтроки, Ном).Interior.ColorIndex = 34;

						КонецЦикла; 



						Для каждого Значение Из Объект[Параметр.Ключ] Цикл

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

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

							Попытка

								Лист.Cells(НомерСтроки, 1).Value = Значение.Имя;

							Исключение

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

							Попытка

								Лист.Cells(НомерСтроки, 2).Value = Значение.Синоним;

							Исключение

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

							Попытка

								СтрокаТипов = "";

								// Выводим все типы

								Для каждого Тип Из Значение.Тип.Типы() Цикл

									СтрокаТипов = СтрокаТипов + " " + Строка(Тип);

								КонецЦикла; 

								Лист.Cells(НомерСтроки, 3).Value = СтрокаТипов;

							Исключение

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

							Попытка

								Лист.Cells(НомерСтроки, 4).Value = Значение.Комментарий;

							Исключение

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

							

							Для Ном = 1 По 4 Цикл

								// Установка границ

								Лист.Cells(НомерСтроки, Ном).Borders(5).LineStyle = -4142;

								Лист.Cells(НомерСтроки, Ном).Borders(7).LineStyle = 1;

								Лист.Cells(НомерСтроки, Ном).Borders(8).LineStyle = 1;

								Лист.Cells(НомерСтроки, Ном).Borders(9).LineStyle = 1;

								Лист.Cells(НомерСтроки, Ном).Borders(10).LineStyle = 1;

								

								// Устанавливаем выравнивание по левому краю

								Лист.Cells(НомерСтроки, Ном).VerticalAlignment = -4160;

								// Устанавливаем перенос слов

								Лист.Cells(НомерСтроки, Ном).WrapText = Истина;

							КонецЦикла; 

						КонецЦикла; 

					КонецЕсли; 

				КонецЦикла; 

			КонецЦикла;

		КонецЕсли;

	КонецЦикла;

	

	// Показываем документ

	Excel.Visible = Истина;

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

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



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

	// Определяем все возможные объекты метаданных

	ОбъектыКонфы = Новый Структура();

	ОбъектыКонфы.Вставить("ОбщиеМодули",				"Общие модули");

	ОбъектыКонфы.Вставить("ОбщиеФормы",				"Общие формы");

	ОбъектыКонфы.Вставить("ОбщиеМакеты",				"Общие макеты");

	ОбъектыКонфы.Вставить("ОбщиеКартинки",			"Общие картинки");

	ОбъектыКонфы.Вставить("Роли",					"Роли");

	ОбъектыКонфы.Вставить("Интерфейсы",				"Интерфейсы");

	ОбъектыКонфы.Вставить("Стили",					"Стили");

	ОбъектыКонфы.Вставить("Языки",					"Языки");

	ОбъектыКонфы.Вставить("ПланыОбмена",				"Планы обмена");

	ОбъектыКонфы.Вставить("Константы",				"Константы");

	ОбъектыКонфы.Вставить("КритерииОтбора",			"Критерии отбора");

	ОбъектыКонфы.Вставить("Справочники",				"Справочники");

	ОбъектыКонфы.Вставить("Документы",				"Документы");

	ОбъектыКонфы.Вставить("ЖурналыДокументов",		"Журналы документов");

	ОбъектыКонфы.Вставить("Перечисления",			"Перечисления");

	ОбъектыКонфы.Вставить("Отчеты",					"Отчеты");

	ОбъектыКонфы.Вставить("Обработки",				"Обработки");

	ОбъектыКонфы.Вставить("ПланыВидовХарактеристик",	"Планы видов характеристик");

	ОбъектыКонфы.Вставить("ПланыСчетов",				"Планы счетов");

	ОбъектыКонфы.Вставить("ПланыВидовРасчета",		"Планы видов расчета");

	ОбъектыКонфы.Вставить("РегистрыСведений",		"Регистры сведений");

	ОбъектыКонфы.Вставить("РегистрыБухгалтерии",		"Регистры бухгалтерии");

	ОбъектыКонфы.Вставить("РегистрыРасчета",			"Регистры расчета");

	

	// Определяем все возможные параметры

	СтруктКонфы = Новый Структура();

	СтруктКонфы.Вставить("Измерения",			"Измерения");

	СтруктКонфы.Вставить("Ресурсы",			"Ресурсы");

	СтруктКонфы.Вставить("Реквизиты",			"Реквизиты");

	СтруктКонфы.Вставить("Формы",				"Формы");

	СтруктКонфы.Вставить("Макеты",				"Макеты");

	СтруктКонфы.Вставить("Графы",				"Графы");

	СтруктКонфы.Вставить("ТабличныеЧасти",		"Табличные части");

	СтруктКонфы.Вставить("Значения",			"Значения");

	

	ВыгрузитьВWord();  // из 1С в Microsoft Word

	ВыгрузитьВExcel(); // из 1C в Microsoft Excel

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

 

Процедура Справочник()

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

	Ворд.DisplayAlerts=0;

	

	Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Код");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Тип=?(Метаданные.Справочник(СокрЛП(Имя)).ТипКода="Текстовый","Строка","Число");

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип+" ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаКода)+")");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("");

	

	Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Наименование");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Строка ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаНаименования)+")");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("");

	

	Для Сч=1 По Метаданные.Справочник(СокрЛП(Имя)).Реквизит() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Реквизит=Метаданные.Справочник(СокрЛП(Имя)).Реквизит(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

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



Процедура Документ()

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

	Ворд.DisplayAlerts=0;

	

	Для Сч=1 По Метаданные.Документ(СокрЛП(Имя)).РеквизитШапки() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Шапка");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Документ(СокрЛП(Имя)).РеквизитШапки(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Для Сч=1 По Метаданные.Документ(СокрЛП(Имя)).РеквизитТабличнойЧасти() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Таб. часть");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Документ(СокрЛП(Имя)).РеквизитТабличнойЧасти(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

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



Процедура Общие()

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

	Ворд.DisplayAlerts=0;

	

	Для Сч=1 По Метаданные.ОбщийРеквизитДокумента() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Шапка");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.ОбщийРеквизитДокумента(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

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



Процедура СтруктураРегистра()

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

	Ворд.DisplayAlerts=0;

	

	Для Сч=1 По Метаданные.Регистр(СокрЛП(Имя)).Измерение() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Измерение");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Регистр(СокрЛП(Имя)).Измерение(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Для Сч=1 По Метаданные.Регистр(СокрЛП(Имя)).Ресурс() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Ресурс");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Регистр(СокрЛП(Имя)).Ресурс(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Для Сч=1 По Метаданные.Регистр(СокрЛП(Имя)).Реквизит() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Реквизит");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Регистр(СокрЛП(Имя)).Реквизит(Сч);

		Синоним=Реквизит.Синоним;

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

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

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

 //Пример показывает как из 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="";

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

 ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");

ScriptCtrl.Language = "vbscript";

ScriptCtrl.AddCode("

Function PlayS()

|    Set Wrap = CreateObject(""DynamicWrapper"")

|    Wrap.Register ""winmm.dll"", ""sndPlaySound"", ""i=sl"", ""f=s"", "r=l""

|    PlayS = Wrap.sndPlaySound(""C:\Sounds\newemail.wav"", SDN_ASYNC)

|    End Function");

ScriptCtrl.Run("PlayS");   

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение

ИмяФайла = ПолучитьИмяВременногоФайла(".txt");

//строка-образец

//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1

//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1

СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";

СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");



Попытка //соединяемся

Соединение.Получить(СтрокаСоединения,ИмяФайла);

Исключение

Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);

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



КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса

КурсыТекст.Прочитать(ИмяФайла);   

  // еще пример

 Функция ПолучитьКакСтроку(Адресс) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", Адресс, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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



Функция ПреобразоватьДату(дат)

	// Медот преобразования даты времен 1Сv7

	//Т=Строка(Дат);

	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);

	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");

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



Процедура КнопкаЗагрузитьКурсы(Элемент)

	//Список - список валют	

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

		Если Список[а-1].Пометка тогда

			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));

			Код = Строка(Список[а-1].Значение.Код);

			Дат = ПериодС;

			Пока Дат <= ПериодПо цикл

				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");

				Поз = Найти(Стр,Символы.Таб);

				Если Поз = 0 Тогда

					Дат = Дат + 86400;

					Продолжить;

				КонецЕсли;					

				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));

				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));

				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));

				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

				Запись.Период = Дат;

				Запись.Валюта = Список[а-1].Значение.Ссылка;

				Запись.Курс = Курс;

				Запись.Кратность = Кратность;

				Запись.Записать(Истина);

				Дат = Дат + 86400;                   

			КонецЦикла;				

		КонецЕсли;			

	КонецЦикла;		

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

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



//*******************************************

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

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

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

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

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



//*******************************************

// кнПолучить()

//

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

//  Нет

//

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

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

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

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

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

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

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

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

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

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

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

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

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

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

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

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

        // для более шустрого заполения из-за отстуствия вызова

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

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

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

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

            тзТемп.НоваяСтрока();

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

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

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

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

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

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

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

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

                // получаем очередную строку для разбора

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



//*******************************************

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

 // оперделим два массива для формирования S-Блока

перем масТемп[254], масSБлок[254];

// переменая для управления объектом Script Control

перем олеШелл;



//*******************************************

// стрКодировать(стрИсточник, стрКлюч)

//

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

//  стрИсточник - Строка. Набор симвлов для преобразования.

//  стрКлюч - Строка. Набор симвлов для формирования S-Блока.

//

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

//  Строка. Набор симвлов после преоброзования.

//

// Описание:

//  Функция шифрует или дешифрует набор символов с помощью

//  S-Блока сформированного на основе ключа.

//

функция стрКодировать(стрИсточник, стрКлюч)

    // Инициализация данных для формирования S-Блока

    чисДлинаКлюча = стрдлина(стрКлюч);

    у = 0;

    для х = 1 по 254 цикл

        у = у + 1;

        у = ?(у > чисДлинаКлюча, 1, у);

        масТемп[х] = кодсимв(сред(стрКлюч, у, 1));

        масSБлок[х] = х - 1;

    конеццикла;

    // Формирование S-Блока

    у = 0;

    для х = 1 по 254 цикл

        у = (у + масТемп[х] + масSБлок[х]) % 254 + 1;

        чисТемп = масSБлок[х];

        масSБлок[х] = масSБлок[у];

        масSБлок[у] = чисТемп;

    конеццикла;

    // Ну и сообственно преобразование

    чисДлинаТекста = стрдлина(стрИсточник);

    у = 0;

    ч = 0;

    для х = 1 по чисДлинаТекста цикл

        чисБайт = кодсимв(сред(стрИсточник, х, 1));

        у = (у + 1) % 254 + 1;

        ч = (ч + масSБлок[у]) % 254 + 1;

        чисТемп = масSБлок[у];

        масSБлок[у] = масSБлок[ч];

        масSБлок[ч] = чисТемп;

        чисТемп = масSБлок[(масSБлок[у] + масSБлок[ч]) % 254 + 1];

        чисБайт = число(олеШелл.Run("intXOR", чисБайт, чисТемп));

        Ответ = Ответ + симв(чисБайт);

    конеццикла;

    // Возвращаем полученную строку

    возврат Ответ;

конецфункции



//*******************************************

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрКодировать

//*******************************************

// Создаем объект для управления скриптами

олеШелл = создатьобъект("MSScriptControl.ScriptControl");

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

олеШелл.Language = "VBScript";

// Сам срипт для проведения логически-исключающего сложение двух операндов

стрКод =

"function intXOR(x, y)

|  intXOR = x xor y

|end function";

// Добавим наш скрипт в котрол скриптов

олеШелл.AddCode(стрКод);



Ответ = стрКодировать("Это пример реализации алгоритма шифрования RC4 на языке 1С", "Казахстанский Клуб профессионалов 1С");

сообщить(Ответ);

Ответ = стрКодировать(Ответ, "Казахстанский Клуб профессионалов 1С");

сообщить(Ответ);

 // Глобальная переменная в которой будем хранить

// известные нам типы статусов сетевой карты

перем сзТипСтатуса;

// Глобальная переменая

перем обШелл;



//*******************************************

// стрСтатусАдаптера(стрИмя = "")

//

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

//  стрИмя - Строка. Имя сетевой статус которой надо определить.

//           В том виде как показа в сетвых подключениях.

//

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

//  Строка. Статус заданой сетевой.

//

// Описание:

//  Функция определяет статус сетевой.

//

функция стрСтатусАдаптера(стрИмя = "")

    Ответ = "";

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

    попытка

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

        // Выполняем скрипт. Из полученного значения пытаемся

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

        сзСтевые = значениеизстроки(обШелл.Run("strGetAdapterInfo"));

    исключение

        // По каким-то причинам выполнить скрипт не удалось

        Ответ = "Статус установить не удалось";

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

    // Если в возращаемом значение пустая строка, то скрипт

    // выполнился. Можно смотреть дальше.

    если Ответ = "" тогда

        // Получаем индекс статуса сетевой.

        стрСтатус = строка(сзСтевые.Получить(стрИмя));

        // Проверяем на пустое значение индекса.

        если пустоезначение(стрСтатус) = 1 тогда

            // Если индекс пуст, то сетевая суказанным именем отсуствует

            Ответ = "Сетевая с таким именем отсуствует";

        иначе

            // Ищем индекс статуса в известных нам типов статуса.

            чисПозиция = сзТипСтатуса.НайтиЗначение(стрСтатус);

            если чисПозиция = 0 тогда

                // Не нашли. Смотрим MSDN

                Ответ = "Не известный тип статуса сетевой";

            иначе

                // Получаем строковое представление статуса.

                сзТипСтатуса.ПолучитьЗначение(чисПозиция, Ответ);

            конецесли;

        конецесли;

    конецесли;

    // Возвращаем полученный статус

    возврат Ответ;

конецфункции;



//*******************************************

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрСтатусАдаптера

//*******************************************

// Создаем объект для управления скриптами

обШелл = создатьобъект("MSScriptControl.ScriptControl");

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

обШелл.Language = "VBScript";

// Сам срипт который соберет статусы всех сетевых устройств

тхтКод = "

|function strGetAdapterInfo()

|  dim objNetworkAdapter

|  Answer = ""{""""СписокЗначений"""",{""

|  set objWMI = getobject(""WinMgmts:\\.\Root\CIMV2"")

|  set objNetworkAdapters = objWMI.ExecQuery(""S_elect * FROM Win32_NetworkAdapter"", , 48)

|  for each objNetworkAdapter in objNetworkAdapters

|    Answer = Answer & ""{{""""Строка"""","""""" & objNetworkAdapter.NetConnectionStatus &_

|             """"""}, """""" & objNetworkAdapter.NetConnectionID & """""",""""0""""}""

|            

|  next

|  Answer = Answer & ""}}""

|  strGetAdapterInfo = Answer

|  end function";

// Добавим наш скрипт в котрол скриптов

обШелл.AddCode(тхтКод);

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

// виды статуса сетевых устройств.

сзТипСтатуса = создатьобъект("списокзначений");

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

сзТипСтатуса.ДобавитьЗначение("0", "Отключенно");

сзТипСтатуса.ДобавитьЗначение("1", "Подключение");

сзТипСтатуса.ДобавитьЗначение("2", "Подключено");

сзТипСтатуса.ДобавитьЗначение("3", "Отключение");

сзТипСтатуса.ДобавитьЗначение("4", "Устройство не представленно");

сзТипСтатуса.ДобавитьЗначение("5", "Устройство отключено");

сзТипСтатуса.ДобавитьЗначение("6", "Устройство не исправно");

сзТипСтатуса.ДобавитьЗначение("7", "Соединение разорвано");

сзТипСтатуса.ДобавитьЗначение("8", "Аутентификация");

сзТипСтатуса.ДобавитьЗначение("9", "Аутентификация прошла успешно");

сзТипСтатуса.ДобавитьЗначение("10", "Аутентификация не прошла");

сзТипСтатуса.ДобавитьЗначение("11", "Неправильный адресс");

сзТипСтатуса.ДобавитьЗначение("12", "Требуется полномочия");

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

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

КонецЦикла;



Исключение



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

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

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

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

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

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

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

 

Отчет = РабочиеКниги.Open(Каталог+Названиефайла);

ОтЛевогоКрая=550;

ОтВерха=80;

Длина=100;

Высота=50;

кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота);

st = "Private Sub CommandButton1_Click()" + Chr(13) + " ThisWorkbook.Sheets(1).range(""I10:I10000"").AutoFilter Field:=1, Criteria1:="">0"", Operator:=xlAnd" + Chr(13) + "End Sub";

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

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st);   

 

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st1);

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (2,st2);   

 

//Группировка строк по уровню 2 

    Worksheet.Range("7:8").Rows.Group();

    Worksheet.Range("10:11").Rows.Group();

    Worksheet.Range("14:15").Rows.Group();

    Worksheet.Range("17:18").Rows.Group();  



    //Группировка строк по уровню 1  

    Worksheet.Range("6:11").Rows.Group();

    Worksheet.Range("13:18").Rows.Group();

    

    //Свёртка группировок до первого уровня

     Worksheet.Outline.ShowLevels(1);



//или



Excel.Range("A3:A6").S_elect();

Excel.S_election.Rows.Group();



// еще пример

BegCell = Лист.Cells(1,1);

EndCell = Лист.Cells(4,1);

Лист.Range(BegCell,EndCell).Rows.Group();

   

 

//Простейший пример вывода из 1С:Предприятия 7.7 в MS Excel. Обеспечение наличия у рабочей книги единственного листа,

 

//установка размера, жирности и цвета шрифта, ширины колонок, рамок и заливки ячеек. Выравнивание текста

 

//ячеек, группировка строк, установка числового формата ячеек, закрепление области.

 

Процедура Вывод()

    Попытка

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

    Исключение

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

        Сообщить("Возможно, MS Excel не установлен на этом компьютере.");

        Возврат;

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

    

    //Создание рабочей книги

 

    WorkBook=Application.WorkBooks.Add();

    //Получение окна

 

    Window=WorkBook.Windows(1);

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

 

    Window.Visible=0;

    //Обеспечение наличия у рабочей книги единственного листа

 

    Если WorkBook.Worksheets.Count=0 Тогда

        WorkBook.Worksheets.Add();

    Иначе

        Application.DisplayAlerts=0;//не выдавать предупреждений

 

        Пока WorkBook.Worksheets.Count>1 Цикл

            WorkBook.Worksheets(1).Delete();

        КонецЦикла;

        Application.DisplayAlerts=-1;//восстановление флага выдачи предупреждений

 

    КонецЕсли;

    //Получение рабочего листа

 

    Worksheet=WorkBook.Worksheets(1);

    //Задание имени рабочего листа

 

    Worksheet.Name="Пример вывода";

    

    //Заголовок документа

 

    Worksheet.Range("A1").Value="Пример вывода из 1С:Предприятия в MS Excel";

    Worksheet.Range("A2").Value="сегодня "+ТекущаяДата();

    Worksheet.Range("A1:A2").Font.Size=14;//размер шрифта

 

    Worksheet.Range("A1:A2").Font.Bold=-1;//жирный шрифт

 

    

    //Задание ширины колонок

 

    Worksheet.Columns(1).ColumnWidth=60;

    Worksheet.Columns(2).ColumnWidth=15;

    Worksheet.Columns(3).ColumnWidth=15;

    

    //Шапка документа

 

    Worksheet.Range("A4").Value="Первая колонка";

    Для ы=7 по 10 Цикл//рамки

 

        Worksheet.Range("A4").Borders(ы).LineStyle=1;

        Worksheet.Range("A4").Borders(ы).Weight=-4138;//xlMedium

 

    КонецЦикла;

    Worksheet.Range("A4").Interior.ColorIndex=15;//заливка серым

 

    Worksheet.Range("A4").HorizontalAlignment=-4108;//выравнивание текста по центру

 

    

    Worksheet.Range("B4").Value="Вторая";

    Для ы=7 по 10 Цикл

        Worksheet.Range("B4").Borders(ы).LineStyle=1;

        Worksheet.Range("B4").Borders(ы).Weight=-4138;

    КонецЦикла;

    Worksheet.Range("B4").Interior.ColorIndex=15;

    Worksheet.Range("B4").HorizontalAlignment=-4108;

    

    Worksheet.Range("C4").Value="Третья";

    Для ы=7 по 10 Цикл

        Worksheet.Range("C4").Borders(ы).LineStyle=1;

        Worksheet.Range("C4").Borders(ы).Weight=-4138;

    КонецЦикла;

    Worksheet.Range("C4").Interior.ColorIndex=15;

    Worksheet.Range("C4").HorizontalAlignment=-4108;

    

    //Для группировки строк:

 

    Worksheet.Outline.SummaryRow=0;//"итоговые" строки отображать сверху (если снизу, то 1)

 

    

    //Вывод строк

 

    Worksheet.Range("A5").Value="Объект аналитики";

    Worksheet.Range("A5").Font.ColorIndex=5;//цвет шрифта - синий

 

    Worksheet.Range("B5").Value=123.45;

    Worksheet.Range("B5").Font.ColorIndex=5;

    Worksheet.Range("C5").Value=678.9;

    Worksheet.Range("C5").Font.ColorIndex=5;

    

    Worksheet.Range("A6").Value="Объект аналитики";

    Worksheet.Range("A6").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B6").Value=123.45;

    Worksheet.Range("B6").Font.ColorIndex=3;

    Worksheet.Range("C6").Value=678.9;

    Worksheet.Range("C6").Font.ColorIndex=3;

    

    Worksheet.Range("A7").Value="Объект аналитики";

    Worksheet.Range("B7").Value=123.45;

    Worksheet.Range("C7").Value=678.9;

    

    Worksheet.Range("A8").Value="Объект аналитики";

    Worksheet.Range("B8").Value=123.45;

    Worksheet.Range("C8").Value=678.9;

    

    Worksheet.Range("A9").Value="Объект аналитики";

    Worksheet.Range("A9").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B9").Value=123.45;

    Worksheet.Range("B9").Font.ColorIndex=3;

    Worksheet.Range("C9").Value=678.9;

    Worksheet.Range("C9").Font.ColorIndex=3;

    

    Worksheet.Range("A10").Value="Объект аналитики";

    Worksheet.Range("B10").Value=123.45;

    Worksheet.Range("C10").Value=678.9;

    

    Worksheet.Range("A11").Value="Объект аналитики";

    Worksheet.Range("B11").Value=123.45;

    Worksheet.Range("C11").Value=678.9;

    

    Worksheet.Range("A12").Value="Объект аналитики";

    Worksheet.Range("A12").Font.ColorIndex=5;//цвет шрифта - синий

 

    Worksheet.Range("B12").Value=123.45;

    Worksheet.Range("B12").Font.ColorIndex=5;

    Worksheet.Range("C12").Value=678.9;

    Worksheet.Range("C12").Font.ColorIndex=5;

    

    Worksheet.Range("A13").Value="Объект аналитики";

    Worksheet.Range("A13").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B13").Value=123.45;

    Worksheet.Range("B13").Font.ColorIndex=3;

    Worksheet.Range("C13").Value=678.9;

    Worksheet.Range("C13").Font.ColorIndex=3;

    

    Worksheet.Range("A14").Value="Объект аналитики";

    Worksheet.Range("B14").Value=123.45;

    Worksheet.Range("C14").Value=678.9;

    

    Worksheet.Range("A15").Value="Объект аналитики";

    Worksheet.Range("B15").Value=123.45;

    Worksheet.Range("C15").Value=678.9;

    

    Worksheet.Range("A16").Value="Объект аналитики";

    Worksheet.Range("A16").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B16").Value=123.45;

    Worksheet.Range("B16").Font.ColorIndex=3;

    Worksheet.Range("C16").Value=678.9;

    Worksheet.Range("C16").Font.ColorIndex=3;

    

    Worksheet.Range("A17").Value="Объект аналитики";

    Worksheet.Range("B17").Value=123.45;

    Worksheet.Range("C17").Value=678.9;

    

    Worksheet.Range("A18").Value="Объект аналитики";

    Worksheet.Range("B18").Value=123.45;

    Worksheet.Range("C18").Value=678.9;

    

    //Установка рамок

 

    Для НомСтр=5 по 18 Цикл

        Для ы=7 по 10 Цикл

            Worksheet.Range("A"+НомСтр).Borders(ы).LineStyle=1;

            Worksheet.Range("B"+НомСтр).Borders(ы).LineStyle=1;

            Worksheet.Range("C"+НомСтр).Borders(ы).LineStyle=1;

        КонецЦикла;

    КонецЦикла;

    

    //Группировка строк

 

    Worksheet.Range("7:8").Rows.Group();

    Worksheet.Range("10:11").Rows.Group();

    Worksheet.Range("14:15").Rows.Group();

    Worksheet.Range("17:18").Rows.Group();

    Worksheet.Range("6:11").Rows.Group();

    Worksheet.Range("13:18").Rows.Group();

    

    //Свёртка группировок до первого уровня

 

    Worksheet.Outline.ShowLevels(1);

    

    //Установка числового формата

 

    Попытка

        Worksheet.Range("B5:C18").NumberFormat="# ##0.00";

 

    Исключение

        Попытка

            Worksheet.Range("B5:C18").NumberFormat="# ##0,00";

 

        Исключение

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

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

    

    //Установка видимости приложения и его окна 

 

    Application.Visible=-1;

    Window.Visible=-1;

    

    //Закрепление области

 

    Worksheet.Range("A5").S_elect();

    Window.FreezePanes = -1;

КонецПроцедуры //Вывод

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

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

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



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

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

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



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

Соединение = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



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

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

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

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

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

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

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

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

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

  Состояние ("Подключение к серверу SQL...");

 Исключение

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

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

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

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



Состояние ("Выполнение запроса SQL...");

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

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

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

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

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

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

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



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