среда, 19 октября 2016 г.

Показать Оповещения Пользователю


//Процедура показывает оповещение после обработки статусов выделенных в списке документов
//
// Параметры:
// СписокДокументов       - ДинамическийСписок - элемент формы
// КоличествоОбработанных - Число - количество успешно обработанных документов
// КоличествоВсего     - Число - количество выделенных в списке документов
// Статус                 - Строка - устанавливаемый статус
//
Процедура ОповеститьПользователяОбУстановкеСтатуса(СписокДокументов, КоличествоОбработанных, КоличествоВсего, Статус) Экспорт

 Если КоличествоОбработанных > 0 Тогда
 
  Если СписокДокументов <> Неопределено Тогда
   СписокДокументов.Обновить();
  КонецЕсли;
 
  ТекстСообщения = НСтр("ru='Для %КоличествоОбработанных% из %КоличествоВсего% выделенных в списке документов установлен статус ""%Статус%""'");
  ТекстСообщения = СтрЗаменить(ТекстСообщения, "%КоличествоОбработанных%", КоличествоОбработанных);
  ТекстСообщения = СтрЗаменить(ТекстСообщения, "%КоличествоВсего%",        КоличествоВсего);
  ТекстСообщения = СтрЗаменить(ТекстСообщения, "%Статус%",                 Статус);
  ТекстЗаголовка = НСтр("ru='Статус ""%Статус%"" установлен'");
  ТекстЗаголовка = СтрЗаменить(ТекстЗаголовка, "%Статус%", Статус);
  ПоказатьОповещениеПользователя(ТекстЗаголовка,, ТекстСообщения, БиблиотекаКартинок.Информация32);
 Иначе
 
  ТекстСообщения = НСтр("ru='Статус ""%Статус%"" не установлен ни для одного документа.'");
  ТекстСообщения = СтрЗаменить(ТекстСообщения, "%Статус%", Статус);
  ТекстЗаголовка = НСтр("ru='Статус ""%Статус%"" не установлен'");
  ТекстЗаголовка = СтрЗаменить(ТекстЗаголовка, "%Статус%", Статус);
  ПоказатьОповещениеПользователя(ТекстЗаголовка,, ТекстСообщения, БиблиотекаКартинок.Информация32);
 
 КонецЕсли;

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