Автоматизация директ-маркетинга (на примере ООО "Дело Системы")
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?т.ВыбратьВремя(ЭтаФорма, Элемент, ВремяОкончания, 1800);
Если ВыбранноеВремя = Неопределено Тогда
Возврат;
КонецЕсли;
ВремяОкончания = ВыбранноеВремя;
ВремяОкончанияПриИзменении(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ВремяНачалаПриИзменении(Элемент)
Объект.ДатаНачала = НачалоДня(Объект.ДатаНачала) + ВыделитьВремя(ВремяНачала);
Объект.ДатаОкончания = Объект.ДатаНачала + Продолжительность;
ВремяОкончания = Объект.ДатаОкончания;
КонецПроцедуры
&НаКлиенте
Процедура ВремяОкончанияПриИзменении(Элемент)
Если НачалоДня(Объект.ДатаОкончания) + ВыделитьВремя(ВремяОкончания) < Объект.ДатаНачала Тогда
Сообщить(НСтр("ru=Время окончания не может быть меньше времени начала."));
ВремяОкончания = ВремяНачала + 1800;
Возврат;
КонецЕсли;
Объект.ДатаОкончания = НачалоДня(Объект.ДатаОкончания) + ВыделитьВремя(ВремяОкончания);
Продолжительность = Объект.ДатаОкончания - Объект.ДатаНачала;
КонецПроцедуры
&НаКлиенте
Процедура ДатаНачалаПриИзменении(Элемент)
Объект.ДатаНачала = НачалоДня(ДатаНачала) + ВыделитьВремя(ВремяНачала);
Объект.ДатаОкончания = Объект.ДатаНачала + Продолжительность;
ДатаОкончания = Объект.ДатаОкончания;
КонецПроцедуры
&НаКлиенте
Процедура ДатаОкончанияПриИзменении(Элемент)
Если НачалоДня(ДатаОкончания) + ВыделитьВремя(ВремяОкончания) < Объект.ДатаНачала Тогда
Сообщить(НСтр("ru=Дата окончания не может быть меньше даты начала."));
ДатаОкончания = Объект.ДатаНачала;
Возврат;
КонецЕсли;
Объект.ДатаОкончания = НачалоДня(ДатаОкончания) + ВыделитьВремя(ВремяОкончания);
Продолжительность = Объект.ДатаОкончания - Объект.ДатаНачала;
КонецПроцедуры
Приложение 8. Программный код формы документа Запланированное взаимодействие
&НаКлиенте
Процедура СоздатьКонтактВыполнить()
текДанные = Элементы.Участники.ТекущиеДанные;
Если текДанные <> Неопределено Тогда
ВзаимодействияКлиент.СоздатьКонтакт(
текДанные.ПредставлениеКонтакта, текДанные.КакСвязаться, Объект.Ссылка,СписокИнтерактивноСоздаваемыхКонтактов);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СвязанныеВзаимодействияВыполнить()
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Предмет", Объект.Предмет);
ОткрытьФорму("ЖурналДокументов.Взаимодействия.ФормаСписка", ПараметрыОтбора, ЭтаФорма, , Окно);
КонецПроцедуры
&НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
текДанные = Элементы.Участники.ТекущиеДанные;
Если ВзаимодействияКлиент.ВыбратьКонтакт(Объект.Предмет, текДанные.КакСвязаться, текДанные.ПредставлениеКонтакта, текДанные.Контакт, Ложь, Ложь, Истина) Тогда
Модифицированность = Истина;
ПроверитьДоступностьСозданияКонтакта();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникиПриАктивизацииСтроки(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура КонтактПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ОтработатьПослеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ВзаимодействияКлиент.ОбработатьВыборВПолеОтработатьПосле(Объект.ОтработатьПосле, ВыбранноеЗначение, СтандартнаяОбработка, Модифицированность);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
текДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = ((текДанные <> Неопределено) И (НЕ ЗначениеЗаполнено(текДанные.Контакт)));
КонецПроцедуры