ме_оповещения » Поиск

Результаты по ключевому слову: ме_оповещения

Система оповещений Пользователей (универсальная)

Для одного проекта пришлось сделать простую систему оповещений!

Она состоит из:
Общая форма
Общий модуль
Регистр Сведений

Общая Форма
title

На ней поле HTML Документа и Кнопка Ознакомлен (подтверждение что пользователь это видел)

Код 1C v 8.х

 Перем ТекДата, ТипСсылки, ТекСсылка;



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

	ТекДата = Дата;

	ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(Текст);	

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



Процедура ОзнакомленНажатие(Элемент)

	Если ЗначениеЗаполнено(ТекДата) Тогда

		НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();	

		НаборЗаписей.Отбор.Получатель.Установить(Пользователь);

		НаборЗаписей.Отбор.Период.Установить(ТекДата);

		НаборЗаписей.Прочитать();

		НовыйНомер = НаборЗаписей[0];

		НовыйНомер.ДатаОзнакомления = ТекущаяДата();

		НаборЗаписей.Записать();

		Если ЗначениеЗаполнено(НовыйНомер.ТипСсылки) Тогда

			ТекСсылка = НовыйНомер.Ссылка;

			ТипСсылки = НовыйНомер.ТипСсылки;

		КонецЕсли;

			

	КонецЕсли;

	Парам = Новый Структура;

	Парам.Вставить("ТипСсылки", ТипСсылки);

	Парам.Вставить("ТекСсылка", ТекСсылка);

	ЭтаФорма.Закрыть(Парам);

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



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

	// Отказ от стандартной обработки клика.

	pEvtObj.returnValue = Ложь;

	Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда

		СсылкаТекст = Сред(pEvtObj.srcElement.href, 4);

		Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);

		Если Ссылка.Пустая()

			Или Ссылка.ПолучитьОбъект() = Неопределено Тогда

			Предупреждение("Ошибка открытия объекта.",, "Ошибка");

			Возврат;

		Иначе

			ОткрытьЗначение(Ссылка);

		КонецЕсли;

	КонецЕсли;



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

В общем Модуле:

Код 1C v 8.х

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

	НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();

		                                     	

	НовЗапись = НаборЗаписей.Добавить(); 	

	НовЗапись.Период  = ТекущаяДата();     	

	НовЗапись.Получатель = Получатель;        	

	НовЗапись.ТекстОповещения = ТекстОповещения; 	

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

		НовЗапись.ТипСсылки = ТипСсылки;

	КонецЕсли;

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

		НовЗапись.Ссылка = Ссылка;

	КонецЕсли;



	НаборЗаписей.Записать(Ложь); 

КонецПроцедуры // СоздатьОповещение()



Процедура ПоказатьОповещение(ТекстОповещения)

	формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

	формОповещ.текст=ТекстОповещения;

	Если Не формОповещ.Открыта() Тогда

		формОповещ.ОткрытьМодально();

	КонецЕсли;   	

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

Регистр сведений (для хранения сообщений):
title

Думаю что все поля понятны из названия, только ТипСсылки - Строка 35

Проверка непрочитанных сообщений и вызов окна:

Код 1C v 8.х

 //Проверим Оповещения для пользователя

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

	Запрос.Текст =

	"ВЫБРАТЬ

	|	МЕ_Оповещения.Период КАК Период,

	|	МЕ_Оповещения.Получатель,

	|	МЕ_Оповещения.ТекстОповещения,

	|	МЕ_Оповещения.ДатаОзнакомления

	|ИЗ

	|	РегистрСведений.МЕ_Оповещения КАК МЕ_Оповещения

	|ГДЕ

	|	МЕ_Оповещения.ДатаОзнакомления = &ДатаОзнакомления

	|	И МЕ_Оповещения.Получатель = &Получатель

	|

	|УПОРЯДОЧИТЬ ПО

	|	Период";

	Запрос.УстановитьПараметр("ДатаОзнакомления", Дата("01.01.0001 0:00:00"));

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

	

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

	Пока Результат.Следующий() Цикл

		формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

		формОповещ.дата=Результат.период;

		формОповещ.пользователь=Результат.Получатель;

		формОповещ.текст=Результат.ТекстОповещения;

		Если Не формОповещ.Открыта() Тогда

			Структ = формОповещ.ОткрытьМодально();

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

				// Ничего

			Иначе

				Если СокрЛП(Структ.ТипСсылки) = "ОбработкаЦен" Тогда

					Обр = Обработки.ОбработкаЦен.Создать();

					Обр.Счет = Структ.ТекСсылка;

					Обр.ПолучитьФорму().Открыть();		

				КонецЕсли;

			КонецЕсли;  		

		КонецЕсли;

	КонецЦикла;

Пример добавления сообщения:

Код 1C v 8.х

 МЕ_Оповещения.СоздатьОповещение(ТекДоговорКИзменению.Менеджер, "Ваш Договор №"+СокрЛП(ТекДоговорКИзменению.Номер)+

" - Отклонен!!! - "+ИмяПользователя()+"!"+Символы.ПС+" Исправьте его учитывая Комментарии и запустите на Согласование!", "", ТекДоговорКИзменению.Ссылка);



или



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

Текст = "" + ПараметрыСеанса.ТекущийПользователь+": Необходимо Доработать цены:<br> <b>"+Счет.Ссылка+"</b>";

МЕ_Оповещения.СоздатьОповещение(СнабженецПоследнееИзменение, Текст, "ОбработкаЦен", Счет.Ссылка);

Категория: Полезные, Универсальные Функции

Резервирование центрального кластера 1С и "Безопасное" обновление платформы 1С

Тем, кто не сталкивался с 8.2 и всеми проблемами, особенно ранних версий платформы на системах с большим количеством пользователей меры, описанные в этой статье окажутся избыточными. Но все действия продиктованы только опытом, и проверены практикой.

1) Резервный центральный кластер создавать нужно. Это аксиома. Если у вас более 10 пользователей и в течение дня в 1С ведется хоть какая-то работа - выделите хотя бы обычный компьютер с не серверным "железом" под резервный центральный кластер - это пригодится.

2) Резервный центральный кластер - это не кластер включенный в группу резервирования.
Это полноценный центральный кластер, который является копией существующего. Да, это возможно; более того - это нужно делать. Только нужно отключить фоновые задания на резервном кластере серверов. Я не уверен по поводу лицензионного соглашения с 1С, но если в каждый момент времени будет использоваться только один центральный кластер ничего страшного в этом нет. Но сами понимаете, чтобы "подмена" кластеров была "горячей" кое что придется сделать... как минимум сбегать в серверную и переставить ключик. Кроме того резервный центральный кластер можно запускать с ключем -debug (в реестре: HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\1C:Enterprise 8.2 Server Agent параметр "imagePath"). И использовать для отладки серверного кода разработчиками. Резервирование центрального кластера в случае использования штатного механизма 1С - штука наверное хорошая, вот только у меня лично она не сработала. Дело в том, что она не работает в случае "подвисания" процесса центрального кластера "rpmngr" - т.е. процесс есть, определить его отсутствие ещё не удаётся, механизм использования резервного центрального кластера не включается. А пока что с центральным кластером чаще всего случались проблемы "зависания" а не "падения".

3) Про 1cestart.exe забудьте. Моё личное мнение конечно, но по-моему этот блок в 1С отдали писать каким-то студентам (что вполне возможно, т.к. стартер не является частью платформы и не особо критичен). Столько ошибок в его работе находили в релизах, столько "глюков" было обнаружено в это простом инструменте, что пользоваться им решительно не советую, особенно в свете того, что далее будет специальный скрипт запуска 1С.

4) Для запуска 1С разработал специальный скрипт:

Код VBS

 set fso  = CreateObject("Scripting.FileSystemObject")

set wso = WScript.CreateObject("Wscript.shell")



Base = "Main"

FileText = \\Сетевая папка\Settings_basedefault.ini"



if Wscript.Arguments.Count() > 0 Then Base = Lcase(WScript.Arguments(0))



S_elect case base

case "Base1"

 Filetext = "\\Сетевая папка\Settings_base1.ini"

case "Base2"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case "Base3"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case else

 Filetext = "\\Сетевая папка\Settings_basedefault.ini"

end S_elect



if fso.FileExists(FileText) = false then FileText = "\\Сетевая папка\Settings_basedefault.ini"



set file = fso.OpenTextFile(FileText, 1)

Platform = file.ReadLine

Server   = file.Readline





cpath = "C:\Program files (x86)\1cv82\" & Platform & "\bin\1cv8.exe"



command = " enterprise /S" & Server & "\" & Base



wso.Exec(cpath & command)

В данном скрипте "Сетевая папка" нужно заменить на адрес общедоступной папки, в которую вы поместите файлы настроек. По умолчанию файл может быть один. Но так же существует возможность для разных баз использовать разные сервера центрального кластера и разные файлы настроек. Это нужно, к примеру, чтобы сперва в работе новую версию платформы "протестировала" бухгалтерия, а потом уже перешли на новую версию основные торгующие подразделения.
файл настроек при этом будет иметь вид:

Код

8.2.14.533
Server1C

Всего 2 строчки. В первой - версия платформы, во второй - имя центрального кластера серверов
Этот скрипт нужно положить в ту же сетевую папку (если безопасность у вас в сети позволяет запускать скрипты из сетевых папок). Если не позволяет - на локальные компьютеры пользователей, и создать ярлыки для баз 1С со строками вида:

Код VBS

 "C:\Program Files (x86)\1cv82\Run1C.vbs" Base

Где Base - имя базы в кластере для запуска.

Пример скрипта, самосотятельно определяющего текущий EXE-шник 1С:

Код VBS

 '====================

Set WshShell = CreateObject("WScript.Shell")

PrgDirx86 = trim(WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32\"))

msgbox PrgDirx86

'====================

После этого изменением одной строчки в файле настроек вы сможете переключить запуск пользователей на другую платформу или на другой центральный кластер 1С. Не один раз этот простой скрипт спасал от долгого простоя.

Если имя сервера используется где-то при установке COM соединений - его тоже нужно поменять.

Соответственно при окончательном и бесповоротном падении основного сервера нужно сделать:

а) Останавливаете службу сервера если она ещё сама не остановилась (обязательно нужно это сделать чтобы на сервере не осталось активных пользователей, а то может сбоить нумерация объектов)
б) Переключаете в файле запуск на новый сервер
в) net send * "Перезайдите в 1С"
г) Запускаете 1С с новго сервера - вызываете на всякий случая "ОбновитьНумерациюОбъектов"

д) Включаете фоновые задания но новом кластере серверов
После этого "чините" основной сервер (починка чаще всего заключается в очистке каталога C:\Program Files\1cv82\srvinfo)
И в конце дня те же самые процедуры (кроме оповещения) проделываете для переключения обратно на основной сервер.

Если падение сервера наблюдается после обновления платформы, то к данным действиям нужно еще добавить восстановления COM соединителя на всех клиентских компьютерах (если вы используете COM или OLE) - нудно через установку и удаление программ выбрать нужную вам версию платформы и нажать "восстановить". т.к. COM соединения обычно не используются в критических процессах - они чаще всего нужны для интеграции, то их восстановление "терпит" и вы можете позволить себе обновлять машины, или сделать это групповой политикой, если разрешения для клиентских рабочих станций позволяют.

5) Резервная копия перед обновлением. Обязательно конечно - были уже релизы где все субконто очищались... так что лучше не рисковать

6) Проверка запуска после обновления. Тоже обязательна. И обратите внмание на время запуска... Оно может вдруг увеличиться до оочень большого.

Собственно эта методика позволяет "почти безболезненно" обновлять платформу, и быстро "откатываться" к "старым" релизам в случае возникновения проблем. Так же позволяет быстро переключиться на резервный центральный кластер в случае отказа основного. Успешно работает и опробована в случае работы в едином домене и преимущественно в терминальном режиме. В случае когда не единый домен и пользователи работают не не терминальных серверах появятся ещё "заморочки" с обновлением платформы на клиентских машинах (для них придётся использовать политики групп) и создании общей папки (если не единый домен), но возможности WSH позволяют считать файл из любого места - с этим проблем не будет.
Автор: Олег Филиппов

Категория: Администрирование