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

    Если Письмо.Основание.Пустая() Тогда

        Возврат

    КонецЕсли;



    // Открыть OpenOffice

    Попытка

        ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");

    Исключение

        Возврат // опен офис не установлен :-(

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



    // получим печатную форму и запишем её во временный XLS файл

    Заказ = Письмо.Основание.ПолучитьОбъект();



    //Получим печатную форму

    Расшифровка=Новый Структура;

    Расшифровка.Вставить("СсылкаНаВнешнююОбработку",Константы.ПФСчетаДляКлиента.Получить());

    Расшифровка.Вставить("ВидПечатнойФормы",Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма);

    Расшифровка.Вставить("НомерСтроки",1);

    тд = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Заказ, Расшифровка);



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

    ВременныйФайлXLS =ВременныйФайл + ".xls";

    ВременныйФайлPDF =ВременныйФайл + ".pdf";

    тд.Записать(ВременныйФайлXLS, ТипФайлаТабличногоДокумента.XLS97);



    // Преобразовываем временный xls файл В PDF

    Desktop        = ServiceManager.createInstance("com.sun.star.frame.Desktop");



    НастройкиОткрытия = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "Hidden";

    PropertyValue.Value = Истина;

    НастройкиОткрытия.SetValue(0, PropertyValue);

    ВременныйФайлXLS_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлXLS, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный



    // Откроем файл в опене офисе

    ОпенОфис = Desktop.LoadComponentFromURL(ВременныйФайлXLS_какУРЛ, "_blank", 0, НастройкиОткрытия);



    //ПараметрыСтраницы = ОпенОфис.createInstance("com.sun.star.style.PageStyle");

    //ПараметрыСтраницы.ScaleToPagesX = 1;

    //

    // Установим масштаб, чтобы счёт помещался на одной странице вширь

    // страниц почему-то много, поэтому устанавливаем масштаб для всех

    Стили = ОпенОфис.StyleFamilies.getByName("PageStyles");

    Для поз = 0 по Стили.count - 1 Цикл

        МойСтиль = Стили.getByIndex(поз);

        МойСтиль.ScaleToPagesX = 1; // уместить на одной странице вширь

        //МойСтиль.PageScale = 50; // масштаб 50%

    КонецЦикла;



    НастройкиСохранения = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "FilterName";

    PropertyValue.Value = "calc_pdf_Export";

    НастройкиСохранения.SetValue(0, PropertyValue);



    ВременныйФайлPDF_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлPDF, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный

    ОпенОфис.storeToURL(ВременныйФайлPDF_какУРЛ, НастройкиСохранения); // сохранили PDF файл

    ОпенОфис.close(-1);

    ОпенОфис = Неопределено;



    // С опеном офисом разобрались. Прикрепляем вложение к письму и удаляем временные файлы.

    //Файл = Новый Файл(ВременныйФайлPDF);

    объектПисьмо = Письмо.ПолучитьОбъект();

    стрВложение = объектПисьмо.Вложения.Добавить();

    стрВложение.ИмяФайла = "Счёт " + Строка(Заказ.Номер) + ".pdf";

    стрВложение.Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ВременныйФайлPDF));

    объектПисьмо.Записать();

    Попытка

        УдалитьФайлы(ВременныйФайлXLS);

        УдалитьФайлы(ВременныйФайлPDF);

    Исключение

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



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

 // Функция превращает табличный документ в PDF документ

// Возвращаемое значение: тип "Строка" - имя созданного PDF файла, 0 - в случае ошибки

// Параметры: ДанныеВыгрузки - Табличный или текстовый документ, который нужно выгрузить в PDF

//            ПутьВыгрузки - тип "Строка", путь для сохраниения PDF файла (без имени и расширения файла)

//            ИмяФайлаБезРасширения - тип "Строка", имя для вновь сформированного PDF файла

// Тестировалось на OpenOffice 3.x

Функция ВыгрузитьТабличныйДокументВPDF(ДанныеВыгрузки, ПутьВыгрузки, ИмяФайлаБезРасширения)       

    Если НЕ ЗначениеЗаполнено(ПутьВыгрузки) Тогда

        ПутьВыгрузки = КаталогВременныхФайлов();

    КонецЕсли;   

    ПутьВыгрузки         = ?(Прав(ПутьВыгрузки, 1) = "\", ПутьВыгрузки, ПутьВыгрузки + "\");

   

    РасширениеXSL         = ".xls";

    РасширениеPDF         = ".pdf";

    ПолноеИмяФайлаXLS     = ПутьВыгрузки + ИмяФайлаБезРасширения + РасширениеXSL;

    //Выгрузка данных печати в файл XLS   

#Если Клиент Тогда

    Состояние("Создание временного файла...");

#КонецЕсли

    Попытка

        Если         ТипЗнч(ДанныеВыгрузки) = Тип("ТабличныйДокумент") Тогда        

            ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS");

        ИначеЕсли     ТипЗнч(ДанныеВыгрузки) = Тип("ТекстовыйДокумент") Тогда

            ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS");

        Иначе

#Если Клиент Тогда

            Сообщить("Данные для выгрузки переданы в неподдерживаемом формате. Дальнейшее выполнение невозможно." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

            Возврат 0;

        КонецЕсли;

    Исключение

#Если Клиент Тогда

        Сообщить("Произошла ошибка при выгрузке временного файла. Возможно ошибка доступа к папке, в которую происходит запись." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

        Возврат 0;

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

   

    Попытка

#Если Клиент Тогда

        Состояние("Открытие компоненты OpenOffice...");

#КонецЕсли

        ServiceManager    = Новый COMОбъект("com.sun.star.ServiceManager");       

       

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

        Скрипт.language    = "javascript";

        Скрипт.AddObject("OpenOffice", ServiceManager);

       

        //Открытие временного файла без отображения его окна

#Если Клиент Тогда           

        Состояние("Открытие временного файла...");

#КонецЕсли

        Скрипт.eval("Массив=new Array()");       

        Массив             = Скрипт.eval("Массив");   

        Скрипт.eval("Массив[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");

        Скрипт.eval("Массив[0].Name     = 'Hidden'");

        Скрипт.eval("Массив[0].Value = true");

       

        Скрипт.AddCode("function SetItem(ind,val){Массив[ind]=val}");       

        Скрипт.AddObject("ServiceManager",ServiceManager);

        Desktop         = ServiceManager.createInstance("com.sun.star.frame.Desktop");       

        Document         = Desktop.LoadComponentFromURL("file:///" + ПолноеИмяФайлаXLS, "_blank", 0, Массив);

       

        //Сохранение в PDF встроенными средствами OpenOffice

#Если Клиент Тогда           

        Состояние("Запись в PDF...");

#КонецЕсли

        Скрипт.eval("Массив2=new Array()");       

        Массив2     = Скрипт.eval("Массив2");       

        Скрипт.eval("Массив2[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");       

        Скрипт.eval("Массив2[0].Name  = 'FilterName'");

        Скрипт.eval("Массив2[0].Value = 'writer_pdf_Export'");

       

        ПолноеИмяФайлаPDF         = "file:///" + СтрЗаменить(ПолноеИмяФайлаXLS, РасширениеXSL, РасширениеPDF);

        ПолноеИмяФайлаPDF         = СтрЗаменить(ПолноеИмяФайлаPDF, ВРег(РасширениеXSL), РасширениеPDF);

        ПолноеИмяФайлаPDF        = СтрЗаменить(ПолноеИмяФайлаPDF, "\", "/");       

               

        Document.storeToURL(ПолноеИмяФайлаPDF, Массив2);

        Document.close(-1);        //Закрыть документ

       

        //Контрольная очистка переменных

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

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

       

        //Удаление временного файла

#Если Клиент Тогда           

        Состояние("Удаление временного файла...");

#КонецЕсли       

        Попытка

            УдалитьФайлы(ПолноеИмяФайлаXLS);

        Исключение

#Если Клиент Тогда           

            Сообщить("Произошла ошибка при удалении временного файла. Возможно, потребуется удалить его вручную." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

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

       

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "file:///", "");

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "/", "\");

#Если Клиент Тогда

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

        Предупреждение("Выгрузка выполнена." + Символы.ПС + ПолноеИмяФайлаPDF);       

#КонецЕсли

        Возврат ПолноеИмяФайлаPDF;

    Исключение

        Document.close(-1);

#Если Клиент Тогда

        Предупреждение(ОписаниеОшибки());

#КонецЕсли

        Возврат 0;

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

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

 &НаСервере

Функция ОтправитьСервер()

    УспешнаяОтправка = Ложь;

    ПараметрJSON = "{'username': '" + Константы.ПользовательСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'password': '" + Константы.ПарольСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'request_type': 'send_message'";

    ПараметрJSON = ПараметрJSON +  ",'destination_address': '" + Объект.Контрагент.НомерТелефона+ "'";

    ПараметрJSON = ПараметрJSON +  ",'message': '" + Объект.ТекстСМС+ "'";

    ПараметрJSON = ПараметрJSON +  ",'source_address': '" + Константы.ПодписьСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",flash:'0'}";



    Попытка

        WinHttp=Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

        WinHttp.Option(2,"Windows-1251");

        WinHttp.Open("POST","http://api.avisosms.ru/sms/json/",0);

        WinHttp.SetRequestHeader("Accept-Language", "ru");

        WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");

        WinHttp.setRequestHeader("Content-Language", "ru");

        WinHttp.setRequestHeader("Content-Charset", "Windows-1251");

        WinHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");

        WinHttp.Send(ПараметрJSON);

        ТекстОтвет = WinHttp.ResponseText();

        Если Найти(ТекстОтвет, "OK_Operation_Completed") Тогда

            УспешнаяОтправка = Истина;

        КонецЕсли;

    Исключение

        Сообщить("Ошибка соединения:");

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

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



    //Запись отправленной смс в историю

    Если УспешнаяОтправка Тогда

        ПозицияКодаНачало = Найти(ТекстОтвет, "messageId") + СтрДлина("messageId")+3;

        ПозицияКодаКонец = Найти(ТекстОтвет, "}");

        КодСМС = Сред(ТекстОтвет, ПозицияКодаНачало, ПозицияКодаКонец-ПозицияКодаНачало-1);



        СМСРассылка.ЗаписатьСМСВИсторию(Объект.Контрагент, Объект.ТекстСМС, КодСМС);

    Иначе

        Сообщить("Отправка смс не состоялась. Текст ошибки: " + ТекстОтвет);

    КонецЕсли;

    Возврат УспешнаяОтправка;

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

 #НаСервере

Процедура ОтправитьЗапросНаПоискКоординат()

   Город = Параметры.ОбъектПодбора.Город.Наименование;

   Страна = Параметры.ОбъектПодбора.Город.Владелец.Владелец.Наименование;

   Адрес = Параметры.ОбъектПодбора.Адрес;

   ПараметрПоиска = Страна + " " + Город + " " + Адрес;

 

   АдресOutput = ПолучитьИмяВременногоФайла();

   Ключ = Константы.КлючКарта.Получить();

   ТекстСсылки = "maps/geo?q=" + EncodeURL(ПараметрПоиска)+"&output=csv&oe=utf8&sensor=false&key=" + Ключ;

   ПроксиСервер = Неопределено;

   HTTPСервис = Новый HTTPСоединение("maps.google.com",,,,ПроксиСервер,Ложь);

   ПравильностьВыполнения = Истина;

 

   Попытка

      HTTPСервис.Получить(ТекстСсылки, АдресOutput);

   Исключение

      Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);

      ПравильностьВыполнения = Ложь;

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

 

   Если ПравильностьВыполнения Тогда

      // Распарсить результат ответа поиска

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

      Текст.Прочитать(АдресOutput);

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

 

      КодРезультата = Лев(РезультатПоиска,3);

      РезультатПоиска = Сред(РезультатПоиска, 7, СтрДлина(РезультатПоиска));

 

      Если КодРезультата <> "200" Тогда

         Возврат;

      КонецЕсли;

 

      Широта = Число(Сред(РезультатПоиска,0,10));

      Долгота = Число(Сред(РезультатПоиска,12,10));

   КонецЕсли;

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

   

 if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

      else drawMap();   

 #НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

   СсылкаНаБазу = ПолучитьНавигационнуюСсылкуИнформационнойБазы();

   APIГугла = Константы.КлючКарта.Получить();

 

   ТаблицаОбъектовДляВывода = Новый ТаблицаЗначений;

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

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

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

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Широта",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Долгота",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   Если Параметры.ОтображатьСОтветственными Тогда

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

   КонецЕсли;

 

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

      КоординатыОбъекта = ОбщийМодульКартаСервер.ПолучитьКоординатыОбъекта(ТекЭлемент.Значение.ОбъектПосещения);

      Если КоординатыОбъекта = Неопределено Тогда

         Продолжить;

      Иначе

         НоваяСтрока = ТаблицаОбъектовДляВывода.Добавить();

         НоваяСтрока.Наименование = ТекЭлемент.Значение.ОбъектПосещения.Наименование;

         НоваяСтрока.Город = ТекЭлемент.Значение.ОбъектПосещения.Город.Наименование;

         НоваяСтрока.Адрес = ТекЭлемент.Значение.ОбъектПосещения.Адрес;

         НоваяСтрока.Широта = КоординатыОбъекта[0];

         НоваяСтрока.Долгота = КоординатыОбъекта[1];

         Если Параметры.ОтображатьСОтветственными Тогда

            НоваяСтрока.Ответственный = ТекЭлемент.Значение.Ответственный.Наименование;

         КонецЕсли;

      КонецЕсли;

   КонецЦикла;

 

   ТекстСкрипта = "data.addRows(" + Строка(ТаблицаОбъектовДляВывода.Количество()) + ");";

   Сч = 0;

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

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 0, " +СтрЗаменить(Строка(ТекСтрока.Широта),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 1, " +СтрЗаменить(Строка(ТекСтрока.Долгота),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 2, '" +Строка(ТекСтрока.Наименование) + " "

      + Строка(ТекСтрока.Город) + " " + Строка(ТекСтрока.Адрес) + " " + ?(Параметры.ОтображатьСОтветственными, ".Ответственный: " + Строка(ТекСтрока.Ответственный), "") + " " + "');";

      Сч = Сч + 1;

   КонецЦикла;

СтраницаХТМЛ = "<html>

|  <head>

|    <script src=""http://maps.google.com/maps?file=api&v=2&key=" + APIГугла + """ type=""text/javascript""></script>

|    <script type=""text/javascript"" src=""http://www.google.com/jsapi""></script>

|  </head>

|

|  <body>

|    <div id=""map_div"" style=""width: 800px; height: 550px""></div>

|    <script type=""text/javascript"">

|

|      google.load(""visualization"", ""1"", {packages:[""map"">);

|      google.setOnLoadCallback(drawMap);

|      function checkIfGoogleLoad() {

|        if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

|		else drawMap();

|      }

|      function drawMap() {

|        var data = new google.visualization.DataTable();

|        data.addColumn('number', 'Lat');

|        data.addColumn('number', 'Lon');

|        data.addColumn('string', 'Name');" + ТекстСкрипта + "

|        var map = new google.visualization.Map(document.getElementById('map_div'));

|        map.draw(data, {showTip: true, mapType: 'normal'});

|      }

|      checkIfGoogleLoad();

|    </script>

|  </body>

|</html>"; 

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

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

    If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    'Иногда папка остается в каталоге installer после удаления - исправим это

    UdalitFolder ProductCod

    End If

    

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

    If Ustanovlena(ProductCod) Then 

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

    If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If    



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

Set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function   

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

СтрокаПодключения =   "DRIVER={MySQL ODBC 5.1 Driver};OPTION=3;DATABASE=" + константы.lk_БД.Получить() + ";PWD=" + константы.lk_Пароль.Получить() + ";PORT=3306;SERVER=" + константы.lk_Сервер.Получить() + ";UID=" + константы.lk_Пользователь.Получить() + ";";

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

     Результат = Новый COMОбъект("ADODB.Command");

    Результат.ActiveConnection = Connection; // работаем через это соединение

    Результат.CommandTimeOut = Connection.CommandTimeOut; // таков тайм-аут

    Результат.CommandType = "adCmdText";

   

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

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

    |   Таблицы.Наименование КАК Таблица

    |   ИЗ

    |    Справочник.Таблицы КАК Таблицы";

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

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

        Результат.CommandText =        " D_rop TABLE IF EXISTS " + ВыборкаТаблиц.Таблица + " ;";

        Результат.Execute();

    КонецЦикла;   

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

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

    |    Таблицы.Наименование КАК Таблица,

    |    Колонки.Наименование КАК Колонка,

    |    Колонки.ТипДанных,

    |    Колонки.Длина,

    |    Колонки.МожетБытьНоль,

    |    Колонки.Связь.Наименование КАК Связь

    |ИЗ

    |    Справочник.Колонки КАК Колонки

    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Таблицы КАК Таблицы

    |        ПО Колонки.Владелец = Таблицы.Ссылка

    |

    |ИТОГИ ПО

    |    Таблица";

   

    ВыборкаТаблиц = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

 

        Скрипт =         " CREATE TABLE " + ВыборкаТаблиц.Таблица + " ( " + символ(13) +

        " " + ПолучитьКолонкуID(ВыборкаТаблиц.Таблица) + " int(11) NOT NULL " + ?(Справочники.Lk_Таблицы.НайтиПоНаименованию(ВыборкаТаблиц.Таблица).АвтоКод,"auto_increment","") + "," + символ(13);

       

        Выборка = ВыборкаТаблиц.Выбрать();

        Строчека = "" ;

        Ключики = "";

       

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

         Строчека = Строчека + "`" + Выборка.Колонка + "` " + ПолучитьПродолжениеСкрипта(Выборка.ТипДанных,Выборка.длина,Выборка.МожетБытьНоль) + "," + символ(13);

           

            ЕСли ЗначениеЗаполнено(Выборка.Связь) Тогда

                Ключики = Ключики + ", KEY `FK_" + ВыборкаТаблиц.Таблица + "-" + Выборка.Колонка + "` (`" + Выборка.Колонка + "`),

                | CONSTRAINT `FK_" + ВыборкаТаблиц.Таблица + "-" + Выборка.Колонка + "` FOREIGN KEY (`" + Выборка.Колонка + "`) REFERENCES `" + Выборка.Связь + "` (`" + ПолучитьКолонкуID(Выборка.Связь) + "`)" + Символ(13)    ;   

            КонецЕсли;               

        КонецЦикла;

       

        Скрипт = Скрипт + Строчека;

        Скрипт = Скрипт + "  PRIMARY KEY  (" + ПолучитьКолонкуID(ВыборкаТаблиц.Таблица) + ") " + символ(13) +  Ключики +

        " ) ENGINE=InnoDB DEFAULT CHARSET=utf8;";

        Сообщить("Таблица создана: " + ВыборкаТаблиц.Таблица);

        Результат.CommandText =        скрипт;

        Результат.Execute();

     КонецЦикла;

    Connection.Close();   

 Функция ПолучитьКолонкуID(зн) экспорт

    ПрефиксКончился = Ложь;

    Колонка = "";

    Для сч = 1 по СтрДлина(зн) Цикл

              Символик = Mid(зн,Сч, 1);

             

          Если ПрефиксКончился Тогда

        Колонка = Колонка + Символик;     

          КонецЕсли;

 

             

              Если Символик = "_" Тогда

                  ПрефиксКончился = Истина;

              КонецЕсли;

             

          КонецЦикла;

          Если Колонка = "" Тогда

              Колонка = зн;

          КонецЕсли;

          Колонка = Колонка + "ID";

          Возврат Колонка;

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

 Функция ПолучитьПродолжениеСкрипта(ТипД,ДлинаД,Ноль) экспорт

   

    Если ТипД = 1 тогда  //строка

     Зн = " varchar(" + Строка(ДлинаД) + ") " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 2 Тогда     //число

     Зн = " int(11) " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 3 Тогда          //смаллчисло

     Зн = " smallint(6) " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли типД = 4 тогда    //текст

     Зн = " text";

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

     Зн = " date " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 6 Тогда          //смаллчисло

     Зн = " bit(1) " + ?(Ноль, "null","NOT NULL");

 ИначеЕсли ТипД = 7 Тогда // Дата и время

          Зн = " dateTime " + ?(Ноль, "null","NOT NULL");

 КонецЕсли;   

         

    Возврат Зн;

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

 

    Попытка

        ПДФ_принтер = Новый COMОбъект("bioPDF.PDFPrinterSettings");

    Исключение

        #Если Клиент Тогда

            Предупреждение("Не удалось подключиться к PDF-принтеру!", 60);

        #КонецЕсли

        Возврат;

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

    ПДФ_принтер_имя = ПДФ_принтер.GetPrinterName();

    ИмяФайла = Константы.КаталогФайловПДФ.Получить() +"" + Заголовок + ".pdf";



    ПДФ_принтер.SetValue("output",    ИмяФайла);

    ПДФ_принтер.SetValue("ConfirmOverwrite", "yes");

    ПДФ_принтер.SetValue("ShowSaveAS",   "never");

    ПДФ_принтер.SetValue("ShowSettings",  "never");

    ПДФ_принтер.SetValue("ShowPDF",    "no");

    ПДФ_принтер.SetValue("Target",    "printer");



    ПДФ_принтер.SetValue("Subject",  "Report generated at " + ТекущаяДата());

    ПДФ_принтер.SetValue("UseThumbs", "yes");

    ПДФ_принтер.SetValue("Zoom",  "100");



    ПДФ_принтер.SetValue("WatermarkFontSize", "10");

    ПДФ_принтер.SetValue("WatermarkTransparency", "50");

    ПДФ_принтер.SetValue("WatermarkVerticalPosition", "bottom");

    ПДФ_принтер.SetValue("WatermarkHorizontalPosition", "right");

    ПДФ_принтер.SetValue("WatermarkVerticalAdjustment", "3");

    ПДФ_принтер.SetValue("WatermarkHorizontalAdjustment", "1");

    ПДФ_принтер.SetValue("WatermarkRotation", "90");

    ПДФ_принтер.SetValue("WatermarkColor", "#ff0000");

    ПДФ_принтер.SetValue("WatermarkOutlineWidth", "1");

    ПДФ_принтер.WriteSettings(True);



    ПечатныйДокумент.ИмяПринтера = ПДФ_принтер_имя;

    ПечатныйДокумент.АвтоМасштаб = Истина;

    ПечатныйДокумент.Напечатать();   

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

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

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

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



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

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

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

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

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

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

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

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;   

 

Set WshShell = CreateObject("WScript.Shell")

dim d,m,y

                    

d = day(date())

if d < 10 then

   d = "0" & d

end if

                     

m = month(date())

if m < 10 then

   m = "0" & m

end if

                     

y = year(date())

                     

h = Hour(Time())

if h < 10 then

   h = "0" & h

end if



Min = Minute(Time())

if Min < 10 then

   Min = "0" & Min

end if

                     

S = Second(Time())

if S < 10 then

   S = "0" & S

end if



'Формируется полное имя файлов выгрузки и лога

s = d & "_" & m & "_" & y & "_" & h & "_" & Min & "_" & S



'Путь к файлу выгрузки

BackupPath = "/DumpIB \\Server1CBackup\SQL_Backup\1c_backup\ZUP\BACKUP\ZUP_" & s & ".dt"



'Путь к логу

LogPath = "/Out \\Server1CBackup\SQL_Backup\1c_backup\ZUP\log\ZUP_Log_" & s & ".log -NoT_runcate"



'Путь к фалу запуска программы 1С

one1CPath = """%systemdrive%\Program Files\1cv81\bin\1cv8.exe"""



'Параметры запуска базы (SQL)                имя кластера\имя базы      пользователь    пароль

Paramters =                       "DESIGNER /S Server1C\ZUP /N UserAdmin1C /P PassWordUserAdmin1C /DisableStartupMessages"



Set fs = CreateObject("Scripting.FileSystemObject")





'Запуск

WshShell.Run one1CPath & " " & Paramters& " " & LogPath & " " & BackupPath, 0, True    

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

ремоте= Новый COMОбъект("rcbdyctl.setting"); 

Сообщить(ремоте.GetIpAddress);   

  ремоте= Новый COMОбъект("rcbdyctl.setting");

Сообщить(ремоте.GetIpAddress);   

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

Сообщить(ремоте.GetIpAddress);

 ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);

Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;

Окно.ClipboardData.SetData("Text", ТекстПисьма);

ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));   

 ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);

Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;

СодержимоеБуфера = Окно.ClipboardData.GetData("Text");

ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));

ТекстПисьма = ТекстПисьма + СодержимоеБуфера;    

 

Функция ПолучитьТекстБуфераОбмена() Экспорт

#Если Клиент Тогда

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

    Возврат Объект.ParentWindow.ClipboardData.Getdata("Text");

#КонецЕсли

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

 

Функция УстановитьТекстВБуферОбмена(Текст) Экспорт

#Если Клиент Тогда 

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

    Объект.ParentWindow.ClipboardData.Setdata("Text", Текст);

    Возврат Текст;

#КонецЕсли 

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

 Set objHTM = CreateObject("htmlfile");

Текст = "Помощь в 1С";

objHTM.ParentWindow.ClipboardData.Setdata("Text", Текст);

Текст = objHTM.ParentWindow.ClipboardData.GetData("text");

  // через SendKeys передаем Ctrl-C и Ctrl-V    

wsh=Новый COMОбъект("WScript.Shell");    

// Скопировать текст     

wsh.SendKeys("^c");      

// Вставить текст  

wsh.SendKeys("^v");   

  // через SendKeys передаем Ctrl-C и Ctrl-V    

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

// Скопировать текст     

wsh.SendKeys("^c");  // или так:  wsh.SendKeys("^(C)");          

// Вставить текст  

wsh.SendKeys("^v");  // или так:  wsh.SendKeys("^(V)");  



//Объект Clipboard

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

// Скопировать текст   

WshExtra.Copy("Запись в буфер обмена")

// Вставить текст 

Текст = WshExtra.Paste(); 

 // Функция для Платформы 1С 8.0 или 8.1

// Выполняет загрузку из файла Excel

//

// Параметры

//  ПутьКФайлу  - <Строка>            - путь к файлу xls

//

// Автор: ---%%%Gmix 16.03.2006 12:38:48

//     

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

//   <Булево>   – Истина загрузка произошла

//                                             - Ложь загрузки не было

//

Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт

       

            Файл=Новый Файл(ПутьКФайлу);



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

                        Стр_Файл=Файл.ПолноеИмя;

        

                        // Отрезаем слеш если он есть в конце пути

                        Стр_Путь=Файл.Путь;

                        Если Прав(Стр_Путь,1)="\" Тогда

                                   Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1);

                        КонецЕсли;

                       

                        // Строка корнекта

                        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};

                    |DriverId=790;

                    |Dbq="+Стр_Файл+";

                    |DefaultDir="+Стр_Путь+";"; 

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

                        Попытка

                                    Об_Конект.Open(Стр_Конект);           

                        Исключение

                                   Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!

                                   |Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

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

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

                       

                        // формируем запрос

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

// если она пустая то имена клонок формируются следующим образом F<Номер колонки>

                        Стр_SQL = "S_elect

                |     F1 as Артикул,

                |     F2 as Наименование,

                |     F3 as ПолноеНаименование

                | FROM [A1:AZ100000]

                | WHERE ((F1 Is Not Null) AND (F1 <>''))";

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



                        Попытка

                                   Об_РекордСет=Об_Конект.Execute(Стр_SQL);

                        Исключение

                                   Сообщить("Не удадлось выполнить запрос к файлу Excel

                                   |"+ ОписаниеОшибки(),СтатусСообщения.Важное);

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

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



                     

                        Пока НЕ Об_РекордСет.EOF Цикл

                                  // Получаем данные из Об_РекордСет

                                   // ...

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

                                   Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл

                // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

                                   КонецЦикла;

                                   // ...

                                   Об_РекордСет.MoveNext();

                        КонецЦикла;

                      

                        Об_Конект.Close();     // Закрываем конект

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

                        Об_РекордСет=Неопределено;



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

            Иначе

                        Сообщить("Файл "+ПутьКФайлу+" не найден!");

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

            КонецЕсли;

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

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

    Перем Имя,Путь;

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

        Возврат;

    КонецЕсли;

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

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

    Стрим.Type=2;

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

    Стрим.Open();

    Стрим.LoadFromFile(Файл);

    Стрим.charset="utf-8";

    Стр=Лев(Стрим.ReadText(),255);

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

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



// еще способ

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

    Перем Имя,Путь;

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

        Возврат;

    КонецЕсли;

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

    УТФ16=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-unicode.txt";

    ЦП1251=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-cp1251.txt";

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

    Стр="@echo off

    |chcp 1251 > nul

    |chcp 65001 |>> """+УТФ16+""" cmd /u /c ""type """+Файл+""" & chcp 1251 > nul""

    |chcp 1251 > nul

    |type """+УТФ16+""" > """+ЦП1251+"""

    |chcp 866 > nul";

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

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

    Текст.Записать(БАТ);

    КомандаСистемы(БАТ);

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

    Текст.Открыть(ЦП1251);

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

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

    КонецЦикла;

    ФС.УдалитьФайл(УТФ16);

    ФС.УдалитьФайл(ЦП1251);

    ФС.УдалитьФайл(БАТ);

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