Параметры = ВнешниеИсточникиДанных.DAX.ПолучитьОбщиеПараметрыСоединения();

 Параметры.АутентификацияСтандартная = Истина;

 Параметры.ИмяПользователя = "sa";

 Параметры.Пароль = "pas";

 Параметры.СтрокаСоединения = "DRIVER={SQL Server};SERVER=servet;UID=sa;PWD=;DATABASE=database";

 Параметры.СУБД = "MSSQLServer";

 

 ВнешниеИсточникиДанных.DAX.УстановитьОбщиеПараметрыСоединения(Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияПользователя(ИмяПользователя(), Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияСеанса(Параметры);



 ВнешниеИсточникиДанных.DAX.УстановитьСоединение();   

 Функция ИнициализироватьИсточникДанных()



ДатаНач = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение;

 ДатаКон = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение;

 Если ДатаКон > '20100101' Тогда

  ДатаКон = '20100101'; 

 КонецЕсли;

 

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

 КС = Новый КвалификаторыСтроки(255);

 

 МассивЧисло = Новый Массив();

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

 

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

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

 

 МассивДата = Новый Массив();

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



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

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

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

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

 

 //таблица для загрузки данных из SQL

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

 ТЗ.Колонки.Добавить("НоменклатураКод", ТипСтрока);

 ТЗ.Колонки.Добавить("Qnty", ТипЧисло);

 ТЗ.Колонки.Добавить("Период", ТипДата);

 

 ТЗ.Индексы.Добавить("Период");

 

 //Подключаемся к SQL

 СтрокаПодключения = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Pwd=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Reports";

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

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

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

 Дата = "";

 Попытка

  Connection.Open(СокрЛП(СтрокаПодключения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = "S_elect * from PH where period >= '" + Строка(Формат(ДатаНач, "ДФ=ггггММдд")) + "' and period <= '" + Строка(Формат(ДатаКон, "ДФ=ггггММдд")) + "'";

  RecordSet = Command.Execute();

  RecordSet.MoveFirst();  

 Исключение

  Возврат ТЗ; 

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



 Пока RecordSet.EOF = Ложь Цикл

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

  Строка.НоменклатураКод = RecordSet.Fields(RecordSet.Fields.Item(1).Name).Value;

  Строка.Qnty = RecordSet.Fields(RecordSet.Fields.Item(12).Name).Value;

  Строка.Период = RecordSet.Fields(RecordSet.Fields.Item(13).Name).Value;

  RecordSet.MoveNext();

 КонецЦикла;

 

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

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

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

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

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

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

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

                | врТаблицаДанных.НоменклатураКод,

                | врТаблицаДанных.Qnty,

                | врТаблицаДанных.Период

                |ПОМЕСТИТЬ ТаблицаДанных

                |ИЗ

                | &врТаблицаДанных КАК врТаблицаДанных

                |ГДЕ

                | врТаблицаДанных.Период >= &ДатаНач

                | И врТаблицаДанных.Период <= &ДатаКон";

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

 ТЗ = Неопределено;

 

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

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

 Запрос.Текст = "Здесь запрос с участием верменной таблицы";



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

 Возврат Результат;



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





  Внешнийнабор = ИнициализироватьИсточникДанных();

  НаборДанных = Новый Структура();

  НаборДанных.Вставить("ТаблицаSQL", Внешнийнабор);

  ТиповыеОтчеты.СформироватьТиповойОтчет(ЭтотОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета, НаборДанных);   

 //инициализация часть 1

СсылкаМакет = ПолучитьМакет(Акт);

MSWord = СсылкаМакет.Получить();

Попытка

СсылкаМакет = MSWord.Application.Documents(1);

СсылкаМакет.Activate(); 

//выгружаем табличную часть с нарушениями в строку часть 2

str = Новый COMОбъект(ADODB.Stream);

str.Open();

СтрочкаТаблицы = ЭлементыФормы.Нарушения.ТекущиеДанные;

Для Каждого СтрочкаТаблицы Из Нарушения Цикл

str.WriteText( + СтрочкаТаблицы.Описание +  Нарушены требования СНИПФЗГОСТ:  + СтрочкаТаблицы.СНИПФЗГОСТ  +  Статья:  + СтрочкаТаблицы.ЧастьСтатья  + Символ(13),0);

КонецЦикла;

str.Position = 0;

НарушенияТекст = str.readText();



//вставляем в закладку текст с нарушениями часть 3

MSWord.Bookmarks(НарушенияТекст).S_elect();

MSWord.Application.S_election.TypeText(НарушенияТекст);



//открыть Word часть 4

СсылкаМакет.Application.Visible = Истина;



СсылкаМакет.Activate();

Исключение

//если ошибка 

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

MSWord.Application.Quit();

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

 Word = MSWord.Application;

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

//Переместиться вниз на 22 строк

Word.S_election.MoveDown(,22);

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

//подготовка таблицы:

Rng = Word.S_election.Range;

//Формируем заголовок:

Rng.I_nsertAfter(№ п/п*Установленные нарушения и меры по их устранению*Основания); 

Rng.I_nsertParagraphAfter();

//сама таблица

СтрочкаТаблицы = ЭлементыФормы.НарушенияПредписание.ТекущиеДанные;

Для Каждого СтрочкаТаблицы из НарушенияПредписание Цикл 

Rng.I_nsertAfter(Строка(СтрочкаТаблицы.НомерСтроки)+*+СтрочкаТаблицы.Описание + ;  + СтрочкаТаблицы.Предписание +* + СтрочкаТаблицы.СНИПФЗГОСТ +   + СтрочкаТаблицы.ЧастьСтатья);

Rng.I_nsertParagraphAfter(); 

КонецЦикла; 

Rng.ConvertToTable(*);

Документ.Tables(1).AutoFormat(17); //номер таблицы в шаблоне

Word.Visible = Истина;   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   

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

   КомОбъект.Variables.Item("ДатаПриказа").Value="24.01.2007";

   КомОбъект.Fields.UpDate();



   КомОбъект.PrintOut(); //распечатать документ



   //Ожидание окончания отправки на печать...

   Пока objWord.Application.BackgroundPrintingStatus<>0 Цикл

     Предупреждение("Ожидание",1);

   КонецЦикла;  



   КомОбъект.Application.Quit(); //закрыть Word

   КомОбъект = 0;

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

   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

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

   КомОбъект.Bookmarks(СокрЛП("ИмяЗакл")).S_elect();

   КомОбъект.Application.S_election.TypeText(СокрЛП("тест проверка"));

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

 // Параметры договора обозначены в тексте переменными вида "[%НомерДоговора%]"

Функция ПечатьДокумента() Экспорт

     

    Договор = ПолучитьМакет("ActiveDocument_ДоговорПоставки"); // получим макет-ActiveDocument 

    MSWord = Договор.Получить();  

    Попытка

	Doc = MSWord.Application.Documents(1);

        Doc.Activate();         

        Replace = Doc.Content.Find;    

        

        FindText = "{НомерДоговора}";     // что искать - имя_шаблона

        MatchCase = Ложь;                 // использовать регулярные выражения        

        MatchWholeWord = Истина;          // искать слово целиком

        MatchWildcards = Ложь;            // испоьзовать регулярные выражения 

        MatchSoundsLike = Неопределено;   // искать созвучные 

        MatchAllWordForms = Неопределено; // искать все формы слова

        Forward = Истина;                 // искать вперед

        Wrap = Неопределено;              // что должен вернуть Find-объект 

        Format_ = Ложь;                   // использовать форматирование

        ReplaceWith = "N777";             // текст, на который надо заменить имя_шаблона

        

        // кратко:        

        //Replace.Execute(FindText,Ложь,Истина,Ложь,,,Истина,,Ложь,НомерДоговора);        

        

        Replace.Execute(

            FindText, 

            MatchCase, 

            MatchWholeWord, 

            MatchWildcards, 

            MatchSoundsLike, 

            MatchAllWordForms, 

            Forward,

            Wrap,

            Format_,

            НомерДоговора);

            

        MSWord.Application.Visible = Истина;

        MSWord.Activate();

    Исключение

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

        MSWord.Application.Quit();    

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

 

    возврат 0;



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

 //подключение

Conn= Новый COMОбъект("ADODB.Connection");

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Параметры.ИмяФайла+";

|Extended Properties=""Excel 8.0;"+?(Параметры.ЗаголовкиКолонокИменаСтолбцовExcel,"HDR=NO;","")+"IMEX=1;""";

//Conn.ConnectionTimeout=0;

//Conn.CursorLocation=3;

Conn.Open();



//************Текст запроса

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

                |   *

                |FROM [Лист1$]

//              |INNER  JOIN

//              |       ON

//             |WHERE

//              |GROUP BY

//              |       ORDER BY

                |";

Результат=Conn.Execute(ТекстЗапроса);   

 Ключ = "Выполнить="; 

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

 Если Лев(ПараметрЗапуска, ДлКлюча) = Ключ Тогда

  Попытка ДлПараметра = СтрДлина(ПараметрЗапуска);

   СтрокаКода = Прав(ПараметрЗапуска, ДлПараметра-ДлКлюча);

   Выполнить(СтрокаКода); 

 Исключение СтрСообщения="Не удалось выполнить код:"+Символы.ПС+СтрокаКода;

   Предупреждение(СтрСообщения,3); 

   ЗаписьЖурналаРегистрации("Запуск кода из командной строки.", УровеньЖурналаРегистрации.Ошибка, , , СтрСообщения);

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

КонецЕсли;   

 1cv8.exe enterprise /f"C:\Базы\InfoBase" /nПользователь /pПароль /cВыполнить=Сообщить("Тест!");   

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

 // тут распологается исполняемы код 

Сообщить("!");

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

Закрыть(); 

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

 1cv8.exe enterprise /f"C:\Базы\InfoBase" /nПользователь /pПароль /executec:\Обработки\ВнешняяОбработка.epf   

 Set v81 = CreateObject("V81.Application") v81.Connect ("File=""C:\Базы\InfoBase"";Usr=""пользователь"";Pwd=пароль") v81.WriteLogEvent("Был выполнен запуск из VBA")   

 

// "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.

// "Ссылка" - ДокументСсылка (в моем случае - счет).

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



    Попытка

        Объект = Получить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();

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

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

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

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



    Попытка



        //Объект = Получить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();

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

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



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

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

Procedure FileNameStartChoice(Element, StdProcessing)

	

	StdProcessing = False;

	DialogFile = New FileDialog(FileDialogMode.Open);

	DialogFile.Filter = "Файлы Microsoft Excel (*.xls)|*.xls";

	DialogFile.DefaultExt = "xls";

	If DialogFile.Choose() Then

		FileName = DialogFile.FullFileName;

	EndIf;

	

EndProcedure // FileNameStartChoice()

// Получить список листов текущей книги

Function GetSheets(ExcelApplication)

		

	ListS_electSheet = New ValueList;

	

	ListS_electSheet.Add(0, "Все листы");

	

	NumberSheet = 0;

	For FirstSheet = 1 To ExcelApplication.Worksheets.Count Do 

		

		NumberSheet = NumberSheet + 1;

		ListS_electSheet.Add(

							 NumberSheet, ExcelApplication.WorkSheets(NumberSheet).Name

							);

		

	EndDo;	

	

	Return ListS_electSheet; 

	

EndFunction // GetSheets()



// Преобразование XLS в MXL

Procedure ButtonExecuteClick()

	

	If IsBlankString(FileName) Then

		DoMessageBox("Не указано имя файла");

		Return;

	EndIf;	

	

		Try

		ExcelApplication = GetCOMObject(FileName); // Excel.Application

	Except

		DoMessageBox("Ошибка чтения файла: " + FileName + " возможно защищен паролем.");

		Return;

	EndTry;	

	

	S_electSheet = 0;

	S_electSheet = GetSheets(ExcelApplication).ChooseItem("Выберите лист", S_electSheet); 

	

	If S_electSheet = Undefined Then

		Return;

	EndIf;

	

	S_electNumberSheet1 = S_electSheet.Value; 

	S_electNumberSheet2 = S_electNumberSheet1;

	If S_electNumberSheet1 = 0 Then

		S_electNumberSheet1 = 1;

		S_electNumberSheet2 = ExcelApplication.Worksheets.Count	

	EndIf;

	

	frmProgressBar = GetForm("FormProgressBar");

	frmProgressBar.Caption = "Обрабатывается файл: " + FileName;

	frmProgressBar.Controls.ProgressBarAll.MaxValue = S_electNumberSheet2;

	frmProgressBar.Controls.ProgressBarAll.Value = 0; 

	

	For NumberSheet = S_electNumberSheet1 To S_electNumberSheet2 Do

		

		frmProgressBar.Open();

		

		SprDoc = New SpreadsheetDocument;

	

		Try

			WorkSheet = ExcelApplication.Sheets(NumberSheet).UsedRange;

		Except

			DoMessageBox(ErrorDescription());

			Return;

		EndTry;

		

		AllStrings 	= WorkSheet.Rows.Count; 	// Всего строк

		AllColumns 	= WorkSheet.Columns.Count; 	// Всего колонок

		AllCells	= AllStrings * AllColumns; 	// Все ячейки

		

		frmProgressBar.Controls.InfoProgressBarAll.Value = "Обрабатывается лист № " +

		                                                    NumberSheet + " из " +

															S_electNumberSheet2;

															   

		frmProgressBar.Controls.ProgressBarAll.Value = frmProgressBar.Controls.ProgressBarAll.Value + 1; 

		

		If AllCells < 2 Then

			Continue; // Пустой лист

		EndIf;

		

		frmProgressBar.Controls.ProgressBarCur.MaxValue = AllStrings;

		frmProgressBar.Controls.ProgressBarCur.Value = 0; 

		

		For CurrentString = 1 To AllStrings Do

			

			For CurrentColumn = 1  To AllColumns Do

				

				frmProgressBar.Controls.InfoProgressBarCur.Value = "Обрабатывается строка №: " +

				                                                   TrimAll(CurrentString) +

																   " из " + AllStrings +

																   ", колонка №: " +

																   TrimAll(CurrentColumn) +

																   " из " + AllColumns;

				

				Try

					CurrentCell = WorkSheet.Cells(

					                               CurrentString,

												   CurrentColumn

												  );

					SlcCell 	= SprDoc.Area(

					                           CurrentString,

					                           CurrentColumn,

											   CurrentString,

											   CurrentColumn

											  );

					

					SlcCell.RowHeight 	= CurrentCell.RowHeight; 

					SlcCell.ColumnWidth = CurrentCell.ColumnWidth; 

					

					// Горизонтальное положение

					SlcCell.HorizontalAlign = mListHorizontalAlign.Get(

					                                                    Format(CurrentCell.HorizontalAlignment, "NG=0")

																	   );

																	   

					// Вертикальное положение																	   

					SlcCell.VerticalAlign 	= mListVerticalAlign.Get(

					                                                  Format(CurrentCell.VerticalAlignment, "NG=0")

																	 );

																	 

					// Размещение текста																	 

					SlcCell.TextPlacement = ?(

					                           CurrentCell.WrapText = 0,

											   SpreadsheetDocumentTextPlacementType.Auto,

											   SpreadsheetDocumentTextPlacementType.Wrap

											  );

					

					FontCell = CurrentCell.Font;

					

					// Цвет фона

					SlcCell.BackColor 	= mColorRGB(

													 CurrentCell.Interior.Color

													);

					

					// Цвет текста

					SlcCell.TextColor 	= mColorRGB(

													 FontCell.Color

													);

					

					

					SlcCell.Font = New Font(

					                         FontCell.Name, 

					                         Number(FontCell.Size),

					                         ?(Number(FontCell.Bold) = 0,

											 False, True),

											 ?(Number(FontCell.Italic) = 0,

											 False, True),

											 ?(Format(Number(FontCell.Underline),"NG=0") = "-4142",

											 False, True),

											 ?(FontCell.Strikethrough, // Зачеркнутый шрифт

											 True, False)

											);

					

					SlcCell.Text = CurrentCell.Value;

					

					// Рамка

					Try

						SlcCell.LeftBorder 		= mStyleBorder(CurrentCell, 7);

						SlcCell.TopBorder 		= mStyleBorder(CurrentCell, 8);

						SlcCell.RightBorder 	= mStyleBorder(CurrentCell, 10);

						SlcCell.BottomBorder 	= mStyleBorder(CurrentCell, 9);

					Except

					EndTry;

					

					SlcCell.Details = CurrentCell.Formula;

					

					// Объединение ячеек

					If (CurrentCell.MergeCells <> 0) and

					   (Find(CurrentCell.MergeArea.Rows.Address(,, 2),

					    CurrentCell.Address(,, 2)) = 1) Then

						

						SlcCell = SprDoc.Area(

						                       CurrentString,

						                       CurrentColumn,

											   (CurrentString + CurrentCell.MergeArea.Rows.Count - 1),

											   (CurrentColumn + CurrentCell.MergeArea.Columns.Count - 1)

											  );

						SlcCell.Merge();

						

					EndIf;

						

				Except

					

					Message(ErrorDescription());

					

				EndTry;	

								

			EndDo;

			

			frmProgressBar.Controls.ProgressBarCur.Value = frmProgressBar.Controls.ProgressBarCur.Value + 1; 

			UserInterruptProcessing(); // Прерывание пользователя Ctrl+Break



		EndDo;

		

		SprDoc.Show("" + TrimAll(FileName) + ", лист " + NumberSheet,"");

		

	EndDo;	

	

	frmProgressBar.Close();

		

	ExcelApplication = "";

	

EndProcedure // ButtonExecuteClick()

   

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

//Покажем открываемый документ

Wk.Visible = Истина; Wk.Documents.Open("D:\file.doc"); 

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

// перебирая строки выводим текст 

Для н = 1 по Документ.Sentences.Count Цикл

	Текст=Документ.Sentences(н).Text;

	Сообщить(Текст);  	

КонецЦикла;	

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

Wk.Quit();	

   

 Процедура СнятиеФлагаПустыхГрупп(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=хххххххх;";



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

Connection.Open(СтрПодключения);



RS = Новый COMОбъект("ADODB.Recordset");

RSIDProduct= Новый COMОбъект("ADODB.Recordset");

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

Command.ActiveConnection = Connection;





Сообщить (Строка (ТекущаяДата()) + " обновляем флаг пустых групп");



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

ЗАпрос.Текст ="ВЫБРАТЬ РАЗЛИЧНЫЕ

| Номенклатура.ЭтоГруппа,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Код КАК Код,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И (Номенклатура.ПустойОстаток = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьWeb = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьНикогда = ИСТИНА)";

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

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

Если Выборка.ПустойОстаток ИЛИ Выборка.НеОтображатьНикогда ИЛИ Выборка.НеОтображатьWEB Тогда

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='N' WHERE category_description='"+Выборка.Код+"'" ;

Иначе

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='Y' WHERE category_description='"+Выборка.Код+"'" ;

КонецЕсли;

Command.CommandText = АпдейтГрупп;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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







КонецЦикла;



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



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

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

Connection.Open(СтрПодключения);



RS = Новый COMОбъект("ADODB.Recordset");

RSIDProduct= Новый COMОбъект("ADODB.Recordset");

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

Command.ActiveConnection = Connection;

// выберем запросом все группы товаров

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

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

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И Номенклатура.Родитель = &Родитель";

// Запрос.УстановитьПараметр("Родитель",Справочники.Номенклатура.ПустаяСсылка());



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

Выборка= Результат.Выбрать();

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

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0;



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



н=н+1;

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT category_id

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RSIDProduct.CursorType = 3;

RSIDProduct.Open(query, Connection);



Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда

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

//пишем группы верхнего уровня

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

Если Выборка.НеОтображатьWeb или Выборка.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьWeb или Выборка.ПустойОстаток

Тогда

query = "ins ert into jos_vm_category (vendor_id , category_name ,category_description, category_publish , category_browsepage , products_per_row , category_flypage, list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'N', 'managed' , '1' , 'flypage.tpl', '1')";

// иначе публикуем

Иначе

query = "ins ert into jos_vm_category (

|vendor_id ,

|category_name ,

|category_description,

|category_publish ,

|category_browsepage ,

|products_per_row ,

|category_flypage,

|list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'Y', 'managed' , '1' , 'flypage.tpl', '1')";



КонецЕсли;



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

Сообщить (Выборка.Код);

Сообщить (Формат (н,"ЧГ=0"));



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



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "ins ert into jos_vm_category_xref ( `category_parent_id` , `category_child_id` )

|values ( '"+0+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

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

// Состояние("Обновляем группу товаров " + Выборка.Наименование);



КонецЕсли;



Индикатор1=н;

RSIDProduct.Close();





КонецЦикла;

Сообщить ("обновлено " + н+ " групп");

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







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

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

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель.Код КАК КодРодителя,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА

| И (НЕ Номенклатура.Родитель = &Родитель)";





Запрос.УстановитьПараметр("Родитель",Справочники.Номенклатура.ПустаяСсылка());



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

Выборка= Результат.Выбрать();

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

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

Сообщить ("Строим структуру...");



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

н=н+1;

// Если не Выборка.Ссылка.Уровень=0 тогда



//1 найдем айди родителя и категории в виртуамарте

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.КодРодителя+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИДРодителя = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);

Попытка

RS.MoveFirst();

Исключение

Сообщить (Выборка.Код);

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

Пока RS.EOF() = 0 Цикл

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

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

query = "delete fr om jos_vm_category_xref where category_child_id='"+Формат(ИДгруппы,"ЧГ=0")+"'";





Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

// добавим запись в категорию



query = "ins ert into jos_vm_category_xref ( category_parent_id , category_child_id)

|values ( '"+Формат(ИДРодителя,"ЧГ=0")+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

Индикатор1=н;

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



КонецЦикла;



Сообщить ("обновлена структура " + н+ " групп");









// RS.Close();

Connection.Close();

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



Процедура ОсновныеДействияФормыОчистьТАблицыSQL(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

Connection.Open(СтрПодключения);



RS = Новый COMОбъект("ADODB.Recordset");

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

Command.ActiveConnection = Connection;

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

Command.ActiveConnection = Connection;



query ="

|DELETE FR OM jos_vm_category";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_product";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

query ="

|DELETE FR OM jos_vm_product_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();





query ="

|DELETE FR OM jos_vm_product_price";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

// RS.Close();

Connection.Close();



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



Процедура ОсновныеДействияФормыОбновитьТовары(Кнопка)

Сообщить (Строка (ТекущаяДата()) + " обновляем группы товаров...");

КнопкаВыполнитьНажатие(1);



СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

Connection.Open(СтрПодключения);



RS = Новый COMОбъект("ADODB.Recordset");

RSIDProduct = Новый COMОбъект("ADODB.Recordset");

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

Command.ActiveConnection = Connection;

Склад = Константы.СкладРозница.Получить();

Сообщить (Строка (ТекущаяДата()) + " распубликовываем отсутсвующие товары");

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

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

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) > 0

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";



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



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

Запрос.УстановитьПараметр("КонецДня",КонецДня (ТекущаяДата()));

// Запрос.УстановитьПараметр("Артикул",Артикул);



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

// ТЗостатоков.ВыбратьСтроку();

query = "

|SEL ECT product_sku, product_id

|FR OM jos_vm_product";

RS.Open(query, Connection);



Если (НЕ RS.EOF()) И (НЕ RS.BOF()) Тогда

RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

Артикул = RS.Fields("product_sku").Value;

ПродуктИД = RS.Fields("product_id").Value;

// Если Выборка.Количество()= 0 Тогда

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

АпдейтВиртмарта = "UPD ATE jos_vm_product SET product_in_stock= '0',product_publish='N' WHERE product_sku='"+Артикул+"'" ;



Command.CommandText = АпдейтВиртмарта;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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

КонецЕсли;

RS.MoveNext();

КонецЦикла;

КонецЕсли;

RS.Close();



//** модуль обновление цен

Сообщить (Строка (ТекущаяДата()) + " начинаем обновление цен на сайте...");



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

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

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура КАК Номенклатура,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Код КАК Код,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Наименование КАК Наименование,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Код КАК РодительКОД,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Артикул КАК РодительАртикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр КАК WEbЦЕнаУПР,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 КАК WEbЦЕнаУПР2,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.НеВыводитьНаСайт КАК НеВыводитьНаСайт,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьWeb КАК НеОтображатьWeb,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьНикогда КАК НеОтображатьНикогда,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток > 0

| И ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";

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

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

Запрос.УстановитьПараметр("КонецДня",КонецДня(ТекущаяДата()));

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

Выборка = Результат.Выбрать();

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

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

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

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

| КурсыВалютСрезПоследних.Курс

|ИЗ

| РегистрСведений.КурсыВалют.СрезПоследних(&ТекущаяДата, ) КАК КурсыВалютСрезПоследних

|ГДЕ

| КурсыВалютСрезПоследних.Валюта = &Валюта";

ЗапросКурса.УстановитьПараметр("Валюта", Константы.ВалютаУправленческогоУчетаКомпании.Получить());

ЗапросКурса.УстановитьПараметр("ТекущаяДата",КонецДня(ТекущаяДата()));

ВыборкаКурса = ЗапросКурса.Выполнить().Выбрать();



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

Курс = ВыборкаКурса.Курс;



КонецЦикла;



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

н=н+1;



// Если Выборка.ДоступноеКоличество < 0 Тогда ДОступноеКоличество=0; Иначе ДОступноеКоличество=Выборка.ДоступноеКоличество; КонецЕсли;



ДОступноеКоличество=Выборка.ДоступноеКоличество;

// Сообщить (Выборка.Номенклатура.Наименование + " " + ДОступноеКоличество);

флагсуществования=Ложь;

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

Наименование = СтрЗаменить(Выборка.Наименование,"'"," "); //уберем символ '

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";



RSIDProduct.Open(query, Connection);





Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



// флаги отображения на сайте

//Если Выборка.НеВыводитьНаСайт или Выборка.НеОтображатьНикогда или Выборка.НеОтображатьWeb Тогда

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales,product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'N', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

Иначе

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales, product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'Y', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

КонецЕсли;

// запишем номенклатуру

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

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

флагсуществования =Ложь;

Иначе



флагсуществования=Истина;



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

//RSIDProduct.MoveFirst();

//Пока RSIDProduct.EOF() = 0 Цикл

// ИД = RSIDProduct.Fields("product_id").Value;

// RSIDProduct.MoveNext();

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



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='N' WHERE product_sku='"+Выборка.Артикул+"'" ;

Иначе

query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='Y' WHERE product_sku='"+Выборка.Артикул+"'" ;

КонецЕсли;

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

КонецЕсли;

// Попытка записать Данные о товаре

Попытка

// запрос ID родителя товара

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.РодительКод+"' limit 1";

RS.Open(query, Connection);

RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИДгрупы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//Обновление группы

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

// Сообщить (Выборка.Номенклатура.Артикул);

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИД = RS.Fields("product_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

Если НЕ флагсуществования Тогда



query = "ins ert into jos_vm_product_category_xref (category_id , product_id ) values ( '"+Формат(ИДгрупы,"ЧГ=0")+"' , '"+Формат(ИД,"ЧГ=0")+"' )";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

Иначе

query = "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"'";





// "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"', product_id='"+Формат(ИД,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

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

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

КонецЕсли;





// прибьем ценник товара

query = "delete fr om jos_vm_product_price WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();







// все поля важны !



query = "I_nsert into jos_vm_product_price (

|product_id,

|product_price,

|product_currency,

|product_price_vdate,

|product_price_edate,

|cdate,

|mdate,

|shopper_group_id,

|price_quantity_start,

|price_quantity_end )

|values ( '"+Формат(ИД,"ЧГ=0")+"' , '"+Формат (Цена*Курс,"ЧГ=0")+"','RUB',0,0,1222792314,1222792314,'5',0,0 )";

// Сообщить(Формат(ИД,"ЧГ=0"));

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

Исключение

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

Сообщить (Выборка.Наименование);

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









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

// Состояние("Обновляем товары " + Выборка.Номенклатура.Наименование);

Индикатор1 = н;

КонецЦикла;

Сообщить ("Выгружено " + н + " объектов");

Сообщить(Строка (ТекущаяДата()) + " обновление завершено");

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



Процедура Автомат ()

ОсновныеДействияФормыОбновитьТовары(1);

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



Процедура ПустыеГруппы()

СнятиеФлагаПустыхГрупп(1);

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



Процедура ОсновныеДействияФормыАвтомат(Кнопка)

ЭтаФорма.ПодключитьОбработчикОжидания("автомат", 3600);

ЭтаФорма.ПодключитьОбработчикОжидания("ПустыеГруппы", 5400);



ЭтаФорма.ЭлементыФормы.ОсновныеДействияФормы.Кнопки.Автомат.Доступность = Ложь;

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

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

        

RegExp.IgnoreCase = Ложь; //Игнорировать регистр

RegExp.Global = Истина; //Поиск всех вхождений шаблона

RegExp.MultiLine = Истина; //Многострочный режим

          

RegExp.Pattern = "Windows[\w\s\d]*([A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5})"; //Ищем ключ Windows



Matches=RegExp.Execute("строка поиска");

ЧислоВхождений=Matches.Count();

Если ЧислоВхождений>0 Тогда

  Для к = 0 По ЧислоВхождений-1 Цикл

       Match = Matches.Item(к);

       SubMatches = Match.SubMatches;

               Ключ=SubMatches.Item(0);

  КонецЦикла;

КонецЕсли;   

  // Пример Defender aka LINN

ВремяНачала = ТекущаяДата(); 

Сообщить("Обработка начата: " + ВремяНачала); 



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

Текст = ПолучитьМакет("Макет").ПолучитьТекст(); 



RE = New COMObject("VBScript.RegExp"); 

RE.Global        = Истина; 

RE.IgnoreCase    = Истина; 

RE.Multiline    = Истина; 



RE.Pattern = "^.*$"; 



Строки = RE.Execute(Текст); 



RE.Pattern = "([^\|]+?|\|)(?=\|)"; 



ДобавитьКолонки = Истина; 



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

   СтрокаДляРазбора = СтрокаТекста.Value; 

    

   Результат = RE.Execute(СтрокаДляРазбора); 

    

   Если ДобавитьКолонки Тогда 

       НомерКолонки = 0; 

       Для Каждого Совпадение Из Результат Цикл 

           НомерКолонки = НомерКолонки + 1; 

           ТЗ.Колонки.Добавить("Колонка" + НомерКолонки); 

       КонецЦикла; 

       ДобавитьКолонки = Ложь; 

   КонецЕсли; 

    

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

    

   НомерКолонки = 0; 

   Для Каждого Совпадение Из Результат Цикл 

        

       Значение = Совпадение.Value; 

        

       НоваяСтрока[НомерКолонки] = ?(Значение = "|", "", Значение); 

       НомерКолонки = НомерКолонки + 1; 

   КонецЦикла; 

КонецЦикла; 



ВремяОкончания = ТекущаяДата(); 



Сообщить("Обработка завершена: " + ВремяОкончания + ", время обработки: " + Формат('00010101' + (ВремяОкончания-ВремяНачала), "ДФ=мм:сс")); 

Сообщить("Количество строк: " + ТЗ.Количество());   

 // Пример  aleks-id

Функция InitRegExp(Разделитель = "|")

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

    

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

    RegExp.MultiLine = Истина;  // истина — текст многострочный, ложь — одна строка 

    RegExp.Global = Истина;   // истина — поиск по всей строке, ложь — до первого совпадения 

    RegExp.IgnoreCase = Ложь; // истина — игнорировать регистр строки при поиске 

    

    RegExp.Pattern = "[^\" + Разделитель + "]+";

    Возврат RegExp;

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



Функция РазложитьСтрокуВМассив(RegExp, Строка)

    

    Matches = RegExp.Execute (Строка);

    

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

    

    Для Сч = 0 По Matches.Count - 1 Цикл

        Массив.Добавить(Matches.Item(Сч).Value);

    КонецЦикла;

    

    

    Возврат Массив;

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



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

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

    RegExp = InitRegExp();

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

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

        масс = РазложитьСтрокуВМассив(RegExp, Стр);

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

    КонецЦикла;

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

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

   

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

    Результат = Новый Массив();

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр  

    RegExp.Global = Истина; //Поиск всех вхождений шаблона  

    RegExp.MultiLine = Ложь; //Многострочный режим  

    

    RegExp.Pattern = "(?:^|;)(\""(?:[^\""]+|\""\"")*\""|[^;]*)"; //вот наш супер шаблон  

    //RegExp.Pattern = ";|;|;|;|;;|;|;|;|;|;|;|;|;;|;|;"; //вот наш супер шаблон  

    Matches=RegExp.Execute(Стр);

    ЧислоВхождений=Matches.Count();

    //Сообщить(Стр,СтатусСообщения.Важное); 

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    //Продолжить; 

                КонецЕсли;    

                Результат.Добавить(SubMatch);

                //Сообщить("Подстрока: "+SubMatch); 

            КонецЦикла;    

        КонецЦикла;

    Иначе

        //Сообщить("Вхождений шаблона не найдено"); 

    КонецЕсли;

    Возврат Результат;

   

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

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

//Поиск вхождений подстроки

Процедура RegExp_Exec()

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML

    Matches=RegExp.Execute("Это <hr> строка <br> с тегами HTML");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            Сообщить("Найден тег:"+ Match.Value);

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

    //Выдаст в окно сообщений:    

    //Найден тег:<hr>

    //Найден тег:<br>    

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

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

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

Процедура RegExp_Exec1()

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "([^<]*)(<[^>]*>)([^<]*)"; //Ищем теги HTML, а также текст до и после тега

    Matches=RegExp.Execute("  <tr><td id=aaa>Дятел <td> долбит <td> сосну </tr>");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    Продолжить;

                КонецЕсли;    

                

                Сообщить("Подстрока: "+SubMatch);

            КонецЦикла;    

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

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



//Выводит в окно сообщений:

//Подстрока:   

//Подстрока: <tr>

//Подстрока: <td id=aaa>

//Подстрока: Дятел 

//Подстрока: <td>

//Подстрока:  долбит 

//Подстрока: <td>

//Подстрока:  сосну 

//Подстрока: </tr>

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

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

Процедура RegExp_Test()

    RegExp = CreateObject("VBScript.RegExp");

    RegExp.Pattern =  "^\d+$"; //Шаблон, который соответствует целому числу

    стр="12345";//Строка, которую тестируем

    Если RegExp.Test(стр)=0 Тогда

        Сообщить("Это не целое число");

    Иначе

        Сообщить("Это целое число");

    КонецЕсли;

    //Выдаст в окно сообщений:    

    //"Это целое число"

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

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

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

Процедура RegExp_Replace()

    

    //Строка, где мы будем производить замены

    стр="Дятел долбил сосну";

    

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Истина; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Истина; //Многострочный режим

    

    

    RegExp.Pattern = "(долбил)"; 

    

    стр=RegExp.Replace(стр, "про$1"); 

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

    //Выдаст в окно сообщений:    

    //"Дятел продолбил сосну"

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

 Функция ПолучитьСписокДоменов () Экспорт  

	Результат = Новый Массив(); 

	objNameSpace = "";                   

	Попытка  objNameSpace = ПолучитьCOMОбъект("WinNT:");   

		м = Новый Массив();  м.Добавить("domain"); // Computer User Group GlobalGroup domain  

		м2 = Новый COMSafeArray(м, "VT_VARIANT");  

		objNameSpace.Filter = м2;  

		Для каждого item Из objNameSpace Цикл   

			Результат.Добавить(item.Name);  

		КонецЦикла; 

	Исключение  

		Результат.Очистить(); 

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

	Возврат Результат;

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





Функция ПолучитьСписокГруппВДомене (ИмяДомена, ТипГрупп = "GlobalGroup") Экспорт  

	Результат = Новый Массив(); 

	objNameSpace = "";  

	Попытка  objNameSpace = ПолучитьCOMОбъект("WinNT://"+СокрЛП(ИмяДомена));   

		м = Новый Массив();  

		м.Добавить(ТипГрупп); // Computer User Group GlobalGroup domain  

		м2 = Новый COMSafeArray(м, "VT_VARIANT");  

		objNameSpace.Filter = м2;  

		Для каждого item Из objNameSpace Цикл   

			Результат.Добавить(item.Name);  

		КонецЦикла; 

	Исключение  

		Результат.Очистить(); 

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

	

	Возврат Результат;

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

	

Функция ПолучитьСписокПользователейВГруппеДомена (ИмяДомена, ИмяГруппы) Экспорт  

	Результат = Новый Массив(); 

	objNameSpace = "";  

	Попытка  

		objNameSpace = ПолучитьCOMОбъект("WinNT://" + СокрЛП(ИмяДомена) + "/" + СокрЛП(ИмяГруппы) + ", Group");   

		Для каждого item Из objNameSpace.Members() Цикл   

			Результат.Добавить(item.Name);  

		КонецЦикла; 

	Исключение  

		Результат.Очистить(); 

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

	

	Возврат Результат;	

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



Функция ПользовательВГруппеДомена (ИмяДомена, ИмяГруппы, ИмяПользователя) Экспорт  

	Результат = Ложь;  

	Массив = ПолучитьСписокПользователейВГруппеДомена (СокрЛП(ИмяДомена), ИмяГруппы);

	Для каждого элМассив из Массив Цикл  

		Если ВРег(элМассив) = ВРег(СокрЛП(ИмяПользователя)) Тогда   // пользователь уже в группе   

			Результат = Истина;    

			Прервать;  

		КонецЕсли; 

	КонецЦикла;  

	

	Возврат Результат;

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



Функция ДобавитьПользователяВГруппуДомена (ИмяДомена, ИмяГруппы, ИмяПользователя) Экспорт  

	Результат = Ложь; 

	element_user = ""; 

	element_group = "";  

	Попытка  

		element_user = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяПользователя + ", user");  

		element_group = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяГруппы + ", group");  

		element_group.Add(element_user.ADsPath);  element_group.SetInfo();  

		Результат = Истина; 

	Исключение  

		Результат = Ложь; 

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

	

	Возврат Результат;

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



Функция УдалитьПользователяИзГруппыДомена (ИмяДомена, ИмяГруппы, ИмяПользователя) Экспорт  

	Результат = Ложь; 

	element_user = ""; 

	element_group = "";  

	Попытка  element_user = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяПользователя + ", user");  

		element_group = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяГруппы + ", group");  

		element_group.Remove(element_user.ADsPath);  

		element_group.SetInfo();  

		Результат = Истина; 

	Исключение  

		Результат = Ложь; 

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

	

	Возврат Результат;	

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



Процедура ЗаполнитьПочтовыеАдресаИзAD() 

	Попытка      

		conn = ПолучитьCOMОбъект("","ADODB.Connection");  

		conn.Provider = "ADSDSOObject";  

		conn.Open("Active Directory Provider"); 

	Исключение  Предупреждение("Ошибка подключения к Active Directory!");  

		Возврат; 

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

	

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

		Если НЕ ПустаяСтрока(Стр.Логин) Тогда   

			Попытка        

				query = "SEL ECT ADsPath FR OM 'LDAP://DC="+СокрЛП(Домен.Код)+"' WHERE SAMAccountName='"+Стр.Логин+"'";    

				rs = conn.Execute(query);    

				Пока НЕ rs.EOF() Цикл     

					obj = ПолучитьCOMОбъект(rs.Fields(0).Value);     

					Если obj.Class="user" Тогда      

						Стр.НоваяПочта=СокрЛП(obj.EmailAddress);      

						Если Стр.НоваяПочта<>Стр.СтараяПочта Тогда       

							Стр.Установить=Истина;      

						КонецЕсли;     

					КонецЕсли;     

					rs.MoveNext();    

				КонецЦикла;   

			Исключение

				Сообщить("Ошибка получения почты для логина :"+Стр.Логин);				                                                      

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

		КонецЕсли;

	КонецЦикла;

	conn.Close();	

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



Функция УдалитьПроцесс (ИмяКомпьютера, НазваниеПроцесса, Логин, Пароль) Экспорт  

	Попытка  COM = Новый COMОбъект ("WbemScripting.SWbemLocator");  

		Серв = COM.ConnectServer(СокрЛп(ИмяКомпьютера), "\root\cimv2", СокрЛП(Логин), СокрЛП(Пароль));  

		СписокПроцессов = Серв.execQuery("Sel ect * fr om Win32_Process Where Name = '"+СокрЛП(НазваниеПроцесса)+"'");  

		Для каждого item Из СписокПроцессов Цикл   

			item.Terminate();  

		КонецЦикла; 

	Исключение  

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

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

	

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

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

 // coder1cv8 - Мой вариант получения почты 1С-ного пользователя:

Функция ПолучитьMailПоПользователю(СсылкаПользователь)

Адрес="";

ПользовательИБ=ПользователиИнформационнойБазы.НайтиПоИмени(СокрЛП(СсылкаПользователь.Код));

Если ПользовательИБ<>Неопределено Тогда

   Если ПользовательИБ.АутентификацияОС Тогда

     ПользовательОС=СтрЗаменить(ПользовательИБ.ПользовательОС,"\","/");

       Попытка

         ЮзерАД=ПолучитьCOMОбъект("WinNT:"+ПользовательОС+",user");

         LDAP=ПолучитьCOMОбъект("LDAP://CN="+ЮзерАД.FullName+",OU=Common Users,OU=Regular Users,DC="+Домен+",DC=local");

         Адрес=LDAP.Mail;

       Исключение

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

  КонецЕсли;

КонецЕсли;

Возврат Адрес;

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

 	Функция Подключение(Сервер,БД)

		cnn = Новый COMОбъект("ADODB.Connection");

		cnn.ConnectionTimeOut	= 0;

		cnn.CommandTimeOut	= 0; 

		cnn.connectionString    = "SERVER="+Сервер+"; Database="+БД+"; DRIVER=SQL Server; UID=sa; PWD=*****;";  

		cnn.Open();   

		if cnn.State()=0 then

			Сообщить("Не удалось соединиться с сервером");

			cnn = 0;

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

		endif;	

		cnn.Execute("SET NOCOUNT ON");

		Возврат cnn;

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

   

 

Попытка

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

Исключение

	Сообщить("Не уникальный код "+стр.Код+" у элемента "+стр.Наименование);

	Спр.УстановитьНовыйКод();

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

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

   

 	подключение=Подключение(Сервер,База);

	ТекстЗапроса="UPDATE Номенклатура

	|SET Номенклатура._Code="+Формат(КодНужный,"ЧГ=0")+"

	|FROM _Reference57 AS Номенклатура 

	|WHERE	(CAST(Номенклатура._Folder AS int)=1)

	|AND (Номенклатура._Code="+Формат(Спр.Код,"ЧГ=0")+")

	|"; 

	подключение.Execute(ТекстЗапроса);

	Сообщить("Код "+КодБыл+" подменен на "+КодНужный);

   

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

СтрокаПодключения = "Provider=SQLOLEDB.1;Password=" + Здесь пароль доступа + ";Persist Security Info=True;User ID=" + Здесь имя пользователя + ";Initial Catalog=" + Здесь имя БД + "; Data Source=" + Здесь имя сервера + ";";



//Ну и выполним какой-нибудь запрос с обходом:

Результат = Новый COMОбъект("ADODB.Command");

Результат.ActiveConnection = Connection; // работаем через это соединение

Результат.CommandTimeOut = Connection.CommandTimeOut; // таков тайм-аут

Результат.CommandType = "adCmdText"; // исполняем в точности процедуру

Результат.CommandText =    " S_elect name as Наименование

| FROM

|    dbo.sysobjects'";



Выборка = Результат.Execute(); // выполняем процедуру

Пока Выборка.Eof() = 0 Цикл

    Сообщить(Выборка.Fields("Наименование").Value);

   Выборка.MoveNext();

КонецЦикла;