// Оповестим пользователей о неактуальности данных.

// Если мы не хотим подключать обработчик ожидания,

//воспользуемся командой Windows

МинутаХ = Формат(НачалоМинуты(КонецМинуты(ТекущаяДата()+300)+1),"ДФ=HH:mm:ss");

Текст = " Внимание!"+Символ(13)+ "Данные в системе 1с ЗУП Тест будут неактуальны 5 минут!"+Символ(13)+"Не формируйте отчеты и документы до "+МинутаХ;

Соединения = ПолучитьСоединенияИнформационнойБазы();

КОМПЫ = Новый Соответствие ;

Для каждого ЭлементСоединения Из Соединения Цикл

    КОМПЫ.Вставить(ЭлементСоединения.ИмяКомпьютера);

КонецЦикла;  		 

Для  каждого Компьютер из  КОМПЫ Цикл

    СтрокаМесаги = "MSG /time:30 /server:"+ СокрЛП(Компьютер.Ключ)+" * "+Текст;

    //СтрокаМесаги = "NET SEND "+ СокрЛП(Компьютер.Ключ)+Текст;

    ЗапуститьПриложение(СтрокаМесаги);

КонецЦикла;   

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

    Попытка

        КомпонентШК = Новый COMОбъект("V8.Barcod.1");

        Макет                   = ПолучитьОбщийМакет("Этикетка");

        ЭтикеткаОбласть         = Макет.ПолучитьОбласть(1,1,4,2);

        ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = "1111111111116";

    Исключение

        Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!

                 |Возможна печать только штрих-кодов Interleave!", СтатусСообщения.Важное);

        //Отказ = Истина;

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



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

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

// Печать этикеток со штрих-кодом

//

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



//am+ Эта проверка нам не нужна, во первых она выполняется ПередОткрытием в форме обработки.

// Кроме того у нас есть тип штрихкода, который печататется без компоненты.

//Попытка

// КомпонентШК = Новый COMОбъект("V8.Barcod.1");

//Исключение

// Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);

// Возврат;

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

//am-   

 

// Возвращает значение типа штрих-кода для использования в ЭУ

// "1С:Печать штрих-кодов"

//

// Параметры

//  ТипКода -   ПланыВидовХарактеристик.ТипыШтрихкодов - тип, значение для которого

//              нужно получить

//

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

//   Число, которое может быть присвоено свойству ЭУ "ТипКода"

//

Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода) Экспорт

    Перем Значение;



    Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда

        Значение = 0;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда

        Значение = 1;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда

        Значение = 2;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда

        Значение = 3;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда

        Значение = 4;



//am+

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда

        Значение = 100;

//am-



    Иначе

        Значение = -1;

    КонецЕсли;



    Возврат Значение;

КонецФункции // ПолучитьЗначениеТипаШтрихкодаДляЭУ()   

 Процедура Печать(ТаблицаТоваров) Экспорт



    //am+ Так как у нас два разных макета, то нам нельзя смешивать типы ШК

    //    печатаемые в разных макетах. Выполним проверку.



    флВремЕстьInterleave = Ложь;

    флВремЕстьНеInterleave = Ложь;

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

        Если СтрокаИзСписка.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда

            флВремЕстьInterleave = Истина;

        Иначе

            флВремЕстьНеInterleave = Истина;

        КонецЕсли;

        Если флВремЕстьInterleave и флВремЕстьНеInterleave Тогда

            Предупреждение("В списке одновременно встречаются штрих-коды несовместимых типов,

                           |Штрих-коды Interleave необходимо печатать отдельно от остальных!");

            Возврат;

        КонецЕсли;

    КонецЦикла;

    //am-



    Таб                     = Новый ТабличныйДокумент;

    Таб.ИмяПараметровПечати =   "ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка"+СокрЛП(ИмяКомпьютера());

    //am+ Используем наш макет.

    Если флВремЕстьInterleave Тогда

        Макет                   = ПолучитьОбщийМакет("ЭтикеткаInterleave");

    Иначе

    //am-

        Макет                   = ПолучитьОбщийМакет("Этикетка");

    КонецЕсли;



    //am+ Некоторые строки в нашем макете не заработают, необходимо добавить условие.

    Если Не флВремЕстьInterleave Тогда

    //am-

        РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;

    КонецЕсли;



    //am+

    Если Не флВремЕстьInterleave Тогда

    //am-

        РисунокШтрихкод.Расположить(ОбластьШтрихкод);

    КонецЕсли;





        Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод,

            СтрокаИзСписка.ТипШтрихкода) Тогда

            //am+ здесь мы установим размер шрифта (об этом в конце статьи) и зададим параметр ШтрихКод нашего макета для вывода

            Если флВремЕстьInterleave Тогда

                ЭтикеткаОбласть.Параметры.Установить(0,

              СформироватьШтрихКодДляМакетаЭтикеткаInterleave(СтрокаИзСписка.ШтрихКод));

                ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт =

              Новый Шрифт(ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт,,РезмерШрифтаInterleave);

            Иначе

            //am-

                Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;

                Исключение

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

            КонецЕсли;

   

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

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

	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;

       Исключение

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

  КонецЕсли;

КонецЕсли;

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

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

 &НаКлиенте

Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)



    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

    Диалог.Фильтр = "*.xml|*.xml";

    Если Диалог.Выбрать() Тогда

        Объект.ИмяФайла = Диалог.ПолноеИмяФайла;

    КонецЕсли;



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



&НаКлиенте

Процедура ИмяФайлаОткрытие(Элемент, СтандартнаяОбработка)



    СтандартнаяОбработка = Ложь;

    ЗапуститьПриложение(Объект.ИмяФайла);



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



&НаКлиенте

Процедура Загрузить(Команда)



    СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();



    ws = НСтр(СтрокаСоединения, "ws");

    ИмяСервера = НСтр(СтрокаСоединения, "Srvr");

    Если ИмяСервера = "" Тогда

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

            ПередачаФайлаНаСервер = Ложь;

        Иначе

            ПередачаФайлаНаСервер = Истина;

        КонецЕсли;

    Иначе

        ПередачаФайлаНаСервер = (ИмяКомпьютера() <> ИмяСервера);

    КонецЕсли;



    Если ПередачаФайлаНаСервер Тогда

        ПоместитьФайл(АдресХранилища, Объект.ИмяФайла,, Ложь, УникальныйИдентификатор);

    КонецЕсли;



    ЗагрузитьСервер();



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



&НаСервере

Процедура ЗагрузитьСервер()



    ЧтениеXML = Новый ЧтениеXML;



    Если ПередачаФайлаНаСервер Тогда

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



        ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);

        ДвоичныеДанные.Записать(ИмяВременногоФайла);

        ЧтениеXML.ОткрытьФайл(ИмяВременногоФайла);

    Иначе

        ЧтениеXML.ОткрытьФайл(Объект.ИмяФайла);

    КонецЕсли;



    ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);

    ЧтениеXML.Закрыть();

    /// Код загрузки

    Сообщить("Загрузка завершена");

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

 МассивСоединений = ПолучитьСоединенияИнформационнойБазы();		



Колонки = Пользователи.Колонки;



Колонки.Добавить("Пользователь", , , 10);

Колонки.Добавить("Приложение"  , , , 10);

Колонки.Добавить("НачалоРаботы", , , 10);

Колонки.Добавить("Компьютер"   , , , 10);

Колонки.Добавить("Соединение"  , , , 10);



Для Каждого Соединение из МассивСоединений цикл

	НоваяСтрока = Пользователи.Добавить();

	

	НоваяСтрока.Компьютер = Соединение.ИмяКомпьютера;

	НоваяСтрока.Приложение = ПредставлениеПриложения(Соединение.ИмяПриложения);

	НоваяСтрока.НачалоРаботы = Соединение.НачалоСеанса;

	НоваяСтрока.Соединение = Соединение.НомерСоединения;

	НоваяСтрока.Пользователь = Соединение.Пользователь.Имя;

	

КонецЦикла;



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

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

ОчиститьОкноСообщений(); //Очистим окно сообщений

Состояние("Вывожу информацию!");    

Сообщить("ИНФОРМАЦИЯ О ПРОГРАММЕ И ПОЛЬЗОВАТЕЛЕ!","I");

Сообщить("Имя Компьтера - " + ИмяКомпьютера());

Сообщить("Имя пользователя - " + ИмяПользователя());

Сообщить("Полное имя пользователя - " + ПолноеИмяПользователя());

Сообщить("Права пользователя - " + НазваниеНабораПрав());

Сообщить("Название интерфейса - " + НазваниеИнтерфейса());

если Монопольныйрежим()=1 тогда моноп="Монопольный режим" 

иначе моноп="НЕ монопольный режим"

	Конецесли;

сообщить(моноп);

Сообщить("Каталог пользователя - " + КаталогПользователя());

Сообщить("Каталог ИБ - " + КаталогИБ());

Сообщить("Каталог Программы - " + КаталогПрограммы());

Сообщить("Каталог Временных Файлов" + КаталогВременныхФайлов());

 

Процедура ПолучениеСпискаАктивныхПользователей()

	

	ИтогСписокСоединений.Очистить();      	

	СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы();

	

	Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл           		

		ТЗ=ИтогСписокСоединений.Добавить();                               		

		ТЗ.Пользователь=Соединение.Пользователь.Имя;                      		

		ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения);  		

		ТЗ.НачалоРаботы=Соединение.НачалоСеанса;                          		

		ТЗ.Компьютер=Соединение.ИмяКомпьютера;                            		

		ТЗ.Соединение=Соединение.НомерСоединения;                         		

	КонецЦикла;

	

	нНомерТекущегоСоединения=НомерСоединенияИнформационнойБазы();

	//В итоге получаем ТЗ со списком пользователей и Номер Текущего Соединения 

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