dir » Поиск » HelpF.pro

Результаты по ключевому слову: dir

Выгрузка табличного документа в Google таблицу

Надумал когда-то задачу себе: выгрузить содержимое табличного документа в Google Document. Одним из вариантов использования данного функционала может быть выгрузка состояния заказов пользователей из базы в 1с в google spreadsheet. Если клиент знает адрес данного документа, то они могут ознакомиться с состоянием дел не звоня менеджеру. Может кто еще придумает варианты использования – пишите в комментарии, буду рад.
Последовательность выгрузки документа такова: сначала получаем список таблиц, которые есть у пользователя в системе Google Document. Затем после определения таблицы выгрузки пользователю предлагаем выбрать лист, в который будет выгружаться содержимое. Во время выбора всех этих параметров так же предоставляется возможность создания новых элементов (таблиц, листов). Уже после определения листа выгрузки обходим все ячейки документа и их содержимое переносим в таблицу на соответствующее место. Вопрос сохранения форматирования табличного документа в данной задаче не рассматривался.

Для написания функционала использовалась информация про google document API. Для того чтобы получить доступ к данным необходимо чтобы 1с сначала прошла аутентификацию. Про аутентификацию приложений можно почитать в соответствующем документе. Для того чтобы пройти аутентификацию мы должны сначала получить маркер, затем этот маркер прописывать каждый раз при обращении к серверу.

Функция получения маркера следующая:

Код 1C v 8.х

 Функция ПолучитьМаркер(ВидСервиса,Пользователь = Неопределено) Экспорт

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



    Если ПараметрыПользователя = Неопределено Тогда

        Возврат Неопределено;

    КонецЕсли;



    АдресКлиентЛогин = "https://www.google.com/accounts/ClientLogin";

    Если ВидСервиса = "Таблица" Тогда

        Сервис = "wise";

    ИначеЕсли ВидСервиса = "Документ" Тогда

        Сервис = "writely";

    КонецЕсли;



    Попытка

        ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");

        ХМЛХТТП.Open("POST", АдресКлиентЛогин, Ложь);

        ХМЛХТТП.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded");

        ХМЛХТТП.Send("Email=" + ПараметрыПользователя.Логин + "&Passwd=" + ПараметрыПользователя.Пароль + "&service=" + Сервис + "&source=Gulp-CalGulp-1.05");

    Исключение

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

        Возврат Неопределено;

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



    Если ХМЛХТТП.Status = 200 Тогда

        Маркер = ХМЛХТТП.ResponseText;

        Маркер = Прав(Маркер, СтрДлина(Маркер) - СтрДлина("Auth=") - Найти(Маркер, "Auth=") + 1);

        Возврат Маркер;

    Иначе

        Сообщить("Ошибка:" +  ХМЛХТТП.Status + "-" + ХМЛХТТП.ResponseText);

        Возврат Неопределено;

    КонецЕсли;

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

Функция получения маркера в качестве входного параметра получает вид службы, для которой будет проходить аутентификация. Это очень важный момент. Например, полученный маркер для Календаря не даст возможности работать с документами.

Для получения списка таблиц отправляется GET запрос по адресу «https://spreadsheets.google.com/feeds/spreadsheets/private/full». В запросе параметр «Authorization» определяется значением полученного маркера аутентификации. В результате выполнения запроса в ResponseText мы получаем xml, который для удобство дальнейшего разбора перегоняется в ДеревоЗначений.Функция получения списка таблиц имеет следующий вид:

Код 1C v 8.х

 &НаСервере

Функция ПолучитьСписокТаблиц(Пользователь = Неопределено) Экспорт



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

    Если ПараметрыПользователя = Неопределено Тогда

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

    КонецЕсли;



    Маркер = ПолучитьМаркер("Таблица");

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

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

    КонецЕсли;



    Адрес = "https://spreadsheets.google.com/feeds/spreadsheets/private/full";

    ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");

    ХМЛХТТП.Open("GET", Адрес, Ложь);

    ХМЛХТТП.SetRequestHeader("Content-Type", "application/atom+xml");

    ХМЛХТТП.SetRequestHeader("Authorization", "GoogleLogin auth=" +Маркер);

    ХМЛХТТП.Send(Null);



    Если ХМЛХТТП.Status = 200 Тогда

        ОтветСервера = ХМЛХТТП.ResponseText;

        ДеревоXML = ПрочитатьResponseTextXML(ОтветСервера);

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

        ТаблицаСсылка = "";

        НазваниеТаблицы = "";



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

            Если Строка.ИмяXMLЭлементаДанных = "entry" Тогда

                Для Каждого ТекАтрибут Из Строка.Строки Цикл

                    Если ТекАтрибут.ИмяXMLЭлементаДанных = "link" Тогда

                        ТекРел = ТекАтрибут.СписокАтрибутов.НайтиПоЗначению("rel");

                        Если ТекРел.представление = "http://schemas.google.com/spreadsheets/2006#worksheetsfeed" Тогда

                            ТекСсылка = ТекАтрибут.СписокАтрибутов.НайтиПоЗначению("href");

                            ТаблицаСсылка = ТекСсылка.Представление;

                            ТаблицаСсылка = СтрЗаменить(ТаблицаСсылка,"https://","http://");

                        КонецЕсли;

                    КонецЕсли;



                    Если ТекАтрибут.ИмяXMLЭлементаДанных = "title" Тогда

                        НазваниеТаблицы = ТекАтрибут.ЗначениеXMLЭлементаДанных;

                    КонецЕсли;

                КонецЦикла;

                Если ЗначениеЗаполнено(ТаблицаСсылка) И ЗначениеЗаполнено(НазваниеТаблицы) Тогда

                    СписокТаблиц.Добавить(ТаблицаСсылка,НазваниеТаблицы);

                КонецЕсли;

            КонецЕсли;

        КонецЦикла;



        Возврат СписокТаблиц;

    Иначе

        Сообщить("Ошибка:" + ХМЛХТТП.Status + "-" + ХМЛХТТП.ResponseText);

        Возврат Неопределено;

    КонецЕсли;

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

Теперь остановимся на самой выгрузке значения в ячейку google таблицы. Для определения значения в ячейке выполняется POST запрос по адресу листа таблицы, который пользователь определил до этого. Успешность выполнения обновления контролируется по значению Status, в случае удачного обновления он должен быть равен 201. Функция обновления значения ячейки на листе Google таблицы имеет следующий вид:

Код 1C v 8.х

 &НаСервере

Функция ОбновитьЯчейкуЛистаГугл(Маркер,ИДЛиста,Строка,Колонка,Значение)

    ТекстСоздания = "

    | " + ИДЛиста + "/R" + Строка(Строка) + "C" + Строка(Колонка)+"

    | + ИДЛиста + "/R"+ Строка(Строка) + "C" + Строка(Колонка)+"""/>

    |   + Строка(Строка) + """ col=""" + Строка(Колонка)+ """ inputValue=""" + Значение+"""/>

    | ";

    ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");

    ХМЛХТТП.Open("POST", ИДЛиста, Ложь);

    ХМЛХТТП.SetRequestHeader("Content-Type", "application/atom+xml;type=feed");

    ХМЛХТТП.SetRequestHeader("X-If-No-Redirect", "true");

    ХМЛХТТП.SetRequestHeader("Authorization", "GoogleLogin auth=" + Маркер);

    ХМЛХТТП.Send(ТекстСоздания);

    Если ХМЛХТТП.Status = 201 Тогда

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

    Иначе

        Сообщить("Ошибка:" + ХМЛХТТП.Status + "-" + ХМЛХТТП.ResponseText);

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

    КонецЕсли;

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

Источник

Категория: Табличный документ

Полезные процедуры работы с Active Directory (AD)

Надоели просить меня запостить рабочие модули работы с AD, вот запостил, в качестве бонуса убийца любого процесса в памяти любого компа.
p.s. для работы нужны определенные права.
Автор: vde69

Код 1C v 8.х

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

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

	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();  

		КонецЦикла; 

	Исключение  

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

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

	

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

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

Код 1C v 8.х

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

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

Адрес="";

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

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

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

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

       Попытка

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

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

         Адрес=LDAP.Mail;

       Исключение

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

  КонецЕсли;

КонецЕсли;

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

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

Категория: COM-объекты, WMI, WSH

Загрузка данных из MS Excel через объект ADODB

Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через COM соединение.

Все что потребуется это создание 2 объектов
* ADODB.Connection
* ADODB. Recordset

Здесь универсальная обработка по загрузке Номенклатуры из Excel:

Код 1C v 8.х

 // Функция для Платформы 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();     // Закрываем конект

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

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



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

            Иначе

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

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

            КонецЕсли;

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

Категория: Конвертация данных, Обмен, Перенос

Загрузка данных из MS Excel через объект ADODB

Код 1C v 8.х

 // Выполняет загрузку из файла 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();     // Закрываем конект

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

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

                    

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

            Иначе

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

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

            КонецЕсли;

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

Категория: Работа с Microsoft Office и OpenOffice

Создание ярлыка файла программно Категория: COM-объекты, WMI, WSH

Пример обращения к программе 1С:Предприятие из модуля MS Excel Категория: Работа с Microsoft Office и OpenOffice

Некоторые полезные настройки при работе с УРИБ. Категория: Администрирование