абліци.Спісок;
Запісь.ПрограммаШіфрованія=ФормаСпіска.ОткритьМодально ();
КонецПроцедури
amp; НаКліенте
Процедура СДОНачалоВибора (Елемент, ДанниеВибора, СтандартнаяОбработка)
СтандартнаяОбработка=Брехня;
ЗначеніеОтбора=Новий Структура ( Батько raquo ;, ПапкаПоставщікі ());
ПараметриВибора=Новий Структура ( Відбір raquo ;, ЗначеніеОтбора);
ФормаСпіска=ПолучитьФорму(laquo;Справочник.Контрагенты.Форма.CRM_ФормаВыбораУправляемаяraquo;, ПараметриВибора);
ФормаСпіска.Елементи.Спісок.Отображеніе=ОтображеніеТабліци.Спісок;
Запісь.СДО=ФормаСпіска.ОткритьМодально ();
КонецПроцедури
amp; НаКліенте
Процедура СтоімостьПріІзмененіі (Елемент)
Якщо Запісь.ТіпПодключенія=НовоеПодключеніе () Тоді
Запісь.АгентскоеВознагражденіе=Запісь.Стоімость * 0.5;
ІначеЕслі Запісь.ТіпПодключенія=Продовження () Тоді
Запісь.АгентскоеВознагражденіе=Запісь.Стоімость * 0.3;
КонецЕсли;
КонецПроцедури
amp; НаСервереБезКонтекста
Функція НовоеПодключеніе ()
Повернення Перечісленія._ТіпиПодключеніяЕЦП.Подключеніе;
КонецФункции
amp; НаСервереБезКонтекста
Функція Продовження ()
Повернення Перечісленія._ТіпиПодключеніяЕЦП.Продленіе;
КонецФункции
amp; НаКліенте
Процедура КонтактниеЛіцаПріАктівізацііСтрокі (Елемент)
Якщо Елементи.КонтактниеЛіца.ТекущіеДанние lt; gt; Не визначено Тоді
Телефоны.Параметры.УстановитьЗначениеПараметра(laquo;Объектraquo;,Элементы.КонтактныеЛица.ТекущиеДанные.Наименование);
КонецЕсли;
КонецПроцедури
amp; НаКліенте
Процедура КонтрагентПріІзмененіі (Елемент)
КонтактныеЛица.Параметры.УстановитьЗначениеПараметра(laquo;Владелецraquo;, Запісь.Контрагент);
КонецПроцедури
amp; НаСервере
Процедура ПріСозданііНаСервере (Відмова, СтандартнаяОбработка)
Телефоны.Параметры.УстановитьЗначениеПараметра(laquo;Объектraquo;, Справочники.КонтактныеЛицаКонтрагентов.ПустаяСсылка());
Якщо ЗначеніеЗаполнено (Запісь.Контрагент) Тоді
КонтактныеЛица.Параметры.УстановитьЗначениеПараметра(laquo;Владелецraquo;, Запісь.Контрагент);
Інакше
КонтактныеЛица.Параметры.УстановитьЗначениеПараметра(laquo;Владелецraquo;, Справочнікі.Контрагенти.ПустаяСсилка ());
КонецЕсли;
Елементи.ДатаОплати.ТолькоПросмотр=(НЕ Запісь.Оплачено);
Якщо НЕ Запісь.Оплачено Тоді
Запісь.ДатаОплати=Дата ( 00010101 );
КонецЕсли;
КонецПроцедури
amp; НаКліенте
Процедура ПередЗапісью (Відмова, ПараметриЗапісі)
Якщо ЗначеніеЗаполнено (Запісь.ДатаСобитія) і ЗначеніеЗаполнено (Запісь.Ответственний) І ЗначеніеЗаполнено (Запісь.Контрагент) і ЗначеніеЗаполнено (Запісь.ВладелецЕЦП) Тоді
Якщо ЗначеніеЗаполнено (Запісь.Собитіе) Тоді
Якщо Питання ( Подія вже створено, Ви бажаєте оновити подія? raquo ;, РежімДіалогаВопрос.ДаНет)=КодВозвратаДіалога.Да Тоді
УдаленіеСобитія ();
СоздатьСобитіе ();
КонецЕсли;
Інакше
СоздатьСобитіе ();
КонецЕсли;
КонецЕсли;
КонецПроцедури
amp; НаСервере
Процедура УдаленіеСобитія ()
Якщо ЗначеніеЗаполнено (Запісь.Собитіе) Тоді
Об'єкт=Запісь.Собитіе.ПолучітьОб'ект ();
Запісь.Собитіе=Документи.Собитіе.ПустаяСсилка ();
Об'ект.УстановітьПометкуУдаленія (Істина);
Об'ект.Удаліть ();
КонецЕсли;
КонецПроцедури
amp; НаСервере
Процедура СоздатьСобитіе ()
НовоеСо...
