19 сент. 2016 г.

Обмен сообщениями в 1С

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

Отправка сообщения осуществляется с помощью обработки, в которой можно


  • выбрать одного или несколько получателей для отправки им сообщения (уведомления)
  • по кнопке "Открыть регистр сообщений" просмотреть сообщение которое будет отправлено для конкретного пользователя (пользователей)

-------------------------------------------------------------------------------------------------
!В конфигурации должен быть:
  • Справочник.Пользователи
  • ПараметрыСеанса.ТекушийПользователь
-------------------------------------------------------------------------------------------------

Для реализации обмена сообщениями в 1С в конфигурацию я добавил 

РегистрСведений СообщенияПользователям
Измерения: Пользователь = СправочникСсылка.Пользователи
Ресурс: Сообщение = Строка


Общий модуль РаботаСПользователем (Глобальный, Клиент (упр. приложение),Клиент (об. приложение))


где написал 
Процедура ПроцедураУведомленияПользователя() Экспорт
               СообщениеПользователю = Привилегированный.ПолучитьСообщенияДляКонкретногоПользователя();
               Если ЗначениеЗаполнено(СообщениеПользователю) Тогда
                               Привилегированный.УстановитьНовоеСообщениеДляПользователя("",Привилегированный.ПолучитьТекущегоПользователя());
                               Предупреждение(СообщениеПользователю,,"Внимание!");
               КонецЕсли;
КонецПроцедуры
Общий модуль Привилегированный (Сервер, Вызов из сервера, Привилегированный) 


где написал
Функция ПолучитьСообщенияДляКонкретногоПользователя() Экспорт
               ТекущийПользователь = Справочники.Пользователи.НайтиПоНаименованию(ПараметрыСеанса.ТекушийПользователь.Наименование,Истина);
              
               Запрос = Новый Запрос;
               Запрос.Текст =
                               "ВЫБРАТЬ
                               |              СообщенияПользователям.Сообщение
                               |ИЗ
                               |              РегистрСведений.СообщенияПользователям КАК СообщенияПользователям
                               |ГДЕ
                               |              СообщенияПользователям.Пользователь = &Пользователь";
              
               Запрос.УстановитьПараметр("Пользователь", ТекущийПользователь);
              
               РезультатЗапроса = Запрос.Выполнить().Выгрузить();
              
               Если РезультатЗапроса.Количество() = 0 Тогда
                               Возврат "";
               Иначе
                               Возврат РезультатЗапроса[0].Сообщение;
               КонецЕсли;
КонецФункции

Процедура УстановитьНовоеСообщениеДляПользователя(СообщениеДляПользователя,ТекущийПользователь) Экспорт      
               НаборЗаписей = РегистрыСведений.СообщенияПользователям.СоздатьНаборЗаписей();
               НаборЗаписей.Отбор.Пользователь.Установить(ТекущийПользователь);
              
               НовЗапись = НаборЗаписей.Добавить();
               НовЗапись.Пользователь = ТекущийПользователь;
               НовЗапись.Сообщение = СообщениеДляПользователя;
               НаборЗаписей.Записать(Истина);
КонецПроцедуры

Функция ПолучитьТекущегоПользователя() Экспорт
               Возврат Справочники.Пользователи.НайтиПоНаименованию(ПараметрыСеанса.ТекушийПользователь.Наименование,Истина);
КонецФункции
В модуле управляемого приложения
Процедура ПриНачалеРаботыСистемы()
               ПодключитьОбработчикОжидания
("ПроцедураУведомленияПользователя",180,);
КонецПроцедуры
Обработка для общения скачать.

13 сент. 2016 г.

Удалить строку из ТаблицыЗначений 7.7

Процедура УдалитьСтрокуИзТаблицыЗначений() 
 Пока ТЗ.ПолучитьСтроку() = 1 Цикл     
  ~начало:   
  если НужноУдалитьСтрокуИзТаблицыЗначений тогда 
   ТЗ.УдалитьСтроку();  
   Если ТЗ.НомерСтроки<>0 Тогда 
    Перейти ~начало;
   КонецЕсли;
  конецесли;
 конеццикла; 
КонецПроцедуры
подход, как в 8-ке не подойдет, в 7-ке заморочка с НомерСтроки.

11 сент. 2016 г.

Сброс пароля 1С 7.7

Есть конфигурация с пользователями и ни к одному пользователю не можешь вспомнить пароль?

Тогда заходит в каталог базы 1С и перемести с папки каталогБД\usrdef\ файл users.usr куда желаешь. Запусти конфигуратор, после запуска назад файл users.usr перемести каталогБД\usrdef\, а далее в конфигураторе открываем список пользователей и удаляем или изменяем нужному пользователю пароль. Все.

Тестировал на файловом режиме.

Версионирование (история изменений объектов) (Управляемые формы)

Данная конфигурация дает возможность отслеживать историю изменений объектов базы данных, а так же позволяет наглядно показать изменения в виде информативного отчета.
Взял конфигурацию http://infostart.ru/public/137383/ с данной публикации для обычных форм и добавил возможность работы для управляемых форм. Больше нечего добавить :)
Пару скриншотов для ознакомления





Получить конфигурацию можна по ссылке или написать мне в комментариях адрес вашей ел. почты, куда я могу бесплатно отправить файл конфигурации.
 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07