8.х Задачи пользователя

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем ПашТет, 9 сен 2009.

  1. TopicStarter Overlay
    ПашТет
    Offline

    ПашТет

    Регистрация:
    9 сен 2009
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    модифицирую ЗадачиПользователя, сделал статусы и их изменение через кнопки, но статус не меняется :( что не так?

    Код:
    Процедура ВРаботуИсполнителюНажатие()
    //изменяет статус документа
    Статус = Справочники.СтатусыЗадачПользователя.ВРаботе;
    
    //записывает документ в базу
    Записать(РежимЗаписиДокумента.Запись);
    Закрыть();
    
    КонецПроцедуры
    
  2. koshak
    Offline

    koshak Опытный в 1С

    Регистрация:
    28 май 2009
    Сообщения:
    57
    Симпатии:
    0
    Баллы:
    26
    Я так понимаю что "Процедура ВРаботуИсполнителюНажатие()" это по идее обработчик события "Нажатие" кнопки? А сам обработчик события в кнопке прописал?
  3. TopicStarter Overlay
    ПашТет
    Offline

    ПашТет

    Регистрация:
    9 сен 2009
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    да, обработчик выбрал
  4. TopicStarter Overlay
    ПашТет
    Offline

    ПашТет

    Регистрация:
    9 сен 2009
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    всё! разобрался!
    нужно было не
    Код:
    "Статус ="
    
    а
    Код:
    "СтатусЗадачиПользователя ="
    
  5. TopicStarter Overlay
    ПашТет
    Offline

    ПашТет

    Регистрация:
    9 сен 2009
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Теперь пытаюсь нарастить процедуру - сделать уведомление Ответственному при переводе ЗадачиПользователя в статус "в работе". Ответственному должно приходить уведомление на e-mail(mail указан в карточке пользователя в "Виды контактной информации" как "Служебный адрес электронной почты пользователя").
    делаю так, но не получается:
    Код:
    Процедура ВРаботуИсполнителюНажатие()
    Ответственный = Справочники.Пользователи.НайтиПоКоду();
    Адрес = ОпределитьАдресПолучателя(Ответственный);
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP 	= "smtp.1-mail.ru";
    Профиль.ПользовательSMTP 	= "Mailer@1-mail.ru";
    Профиль.ПарольSMTP 		= "12345";
    Профиль.АутентификацияSMTP 	= СпособSMTPАутентификации.ПоУмолчанию;
    
    Сообщение 					= Новый ИнтернетПочтовоеСообщение;
    Сообщение.Отправитель.Адрес = "Mailer@1-mail.ru";
    Сообщение.Получатели.Добавить("Адрес");
    
    Сообщение.Тема 			= "Новая Задача '";
    Текст = "<font size=-1 face=tahoma>" "На Вас сформирована Задача '" + "</font>";
    Сообщение.Тексты.Добавить(Текст, ТипТекстаПочтовогоСообщения.HTML);
    Почта = Новый ИнтернетПочта;
    Попытка
    Почта.Подключиться(Профиль);
    Сообщить("Соединение с почтовым сервером установлено.");
    Исключение
    Сообщить("Невозможно установить соединение с почтовым сервером. Проверьте настройки подключения!");
    Сообщить(ОписаниеОшибки());
    Возврат;
    КонецПопытки;
    Попытка
    Почта.Послать(Сообщение);
    Сообщить("Уведомление отправлено!");
    Почта.Отключиться();
    Исключение
    Сообщить("Возникли ошибки при отправке сообщения. Проверьте правильность указания адресов электронной почты! Почта не отправлена.");
    Сообщить(ОписаниеОшибки());
    Возврат;
    КонецПопытки;
    
    СтатусЗадачиПользователя = Справочники.СтатусыЗадачПользователя.ВРаботе;
    
    Сообщить(" Сформирована новая Задача, уведомление отправлено Исполнителю ");
    Записать(РежимЗаписиДокумента.Запись);
    Закрыть();
    
    КонецПроцедуры
    
    

Поделиться этой страницей