тоговаяСумма);
предСерт=Справочники.ИнформационныеКарты.ПустаяСсылка();
НоміналСертіфікатовВсего=0;
Сертіфікати.Очістіть ();
КонецПроцедури
Документ «Прийняття до обліку сертифікатів»
Процедура КоманднаяПанель1ЗаполнитьВсемиСертификатами(Кнопка)
ЗаполнітьСертіфікатиІзСправочніка ()
КонецПроцедури
Процедура ЗаполнітьСертіфікатиІзСправочніка ()
Відповідь=питання ( Таблична частина сертифікати буде очищена. Бажаєте продовжити!? , РежімДіалогаВопрос.ДаНет);
Якщо відповідь=КодВозвратаДіалога.Да тоді
Сертіфікати.Очістіть ();
ЗапросСертіфікати=Новий Запит;
ЗапросСертіфікати.Текст="Вибрати різні
| Док.Сертіфікат
| Помістити УжеІмеющіесяСертіфікати
| з Документ.ПрінятіеКУчетуСертіфікатов.Сертіфікати як Док
| ДЕ Док.Ссилка.Проведен І Док.Ссилка.Дата lt;= amp; ДатаДок
|;
| ВИБРАТИ
| ІнформаціонниеКарти.Ссилка,
| ІнформаціонниеКарти.НоміналСертіфіката,
| ІнформаціонниеКарти.Сертіфікат
| ІЗ
| Справочнік.ІнформаціонниеКарти ЯК ІнформаціонниеКарти
| ДЕ ІнформаціонниеКарти.Сертіфікат=істина І ІнформаціонниеКарти.Ссилка НЕ ??В (Вибрати * з УжеІмеющіесяСертіфікати)" ;
ЗапросСертификаты.УстановитьПараметр(laquo;ДатаДокraquo;, Дата);
Результат=ЗапросСертификаты.Выполнить().Выбрать();
Поки Результат.Следующій () цикл
новСерт=Сертіфікати.Добавіть ();
новСерт.Сертіфікат=Результат.Ссилка;
новСерт.Номинал=Результат.НоминалСертификата;
новСерт.Колічество=1;
новСерт.Статус=Перечисления.СтатусДвиженияСертификатов.ВМагазине;
КонецЦікла;
КонецЕсли;
КонецПроцедури
Процедура відкриття ()
Якщо ЕтоНовий () або НЕ ЗначеніеЗаполнено (Відповідальний) тоді
Ответственный=ПараметрыСеанса.ТекущийПользователь;
КонецЕсли;
КонецПроцедури
Процедура СертіфікатиСертіфікатПріІзмененіі (Елемент)
ПерезаполненіеСтоімості ();
КонецПроцедури
Процедура СертіфікатиСертіфікатОткритіе (Елемент, СтандартнаяОбработка)
ПерезаполненіеСтоімості ();
КонецПроцедури
Процедура СертіфікатиПріАктівізацііЯчейкі (Елемент)
ПерезаполненіеСтоімості ();
КонецПроцедури
Процедура ПерезаполненіеСтоімості ()
Спроба
тд=ЭлементыФормы.Сертификаты.ТекущаяСтрока;
тд.Номинал=тд.Сертификат.НоминалСертификата;
Виняток
КонецПопиткі;
КонецПроцедури
//Процедура - обробник зовнішнього подія, яка виникає при посилці
//зовнішнім додатком повідомлення, сформованого в спеціальному форматі.
//Зовнішнє подія спочатку обробляється усіма відкритими формами, що мають
//обробник цієї події, а потім може бути оброблено у процедурі модуля
//додатки з ім'ям ОбработкаВнешнегоСобитія ().
//
//Параметри:
//Джерело - lt; Рядок gt;
//- Джерело зовнішньої події.
//
//Подія - lt; Рядок gt;
//- Найменування події.
//
//Дані - lt; Рядок gt;
//- Дані для події.
//
Процедура ВнешнееСобитіе (Джерело, Подія, Дані)
Якщо Чи не ВводДоступен () Тоді
Повернення;
КонецЕсли;
ПолучитьСерверТО().ОбработатьВнешнееСобытие(Источник, Подія, Дані, ЕтаФорма);
КонецПроцедури//ВнешнееСобитіе ()
//Функція повертає ознака того, що клієнт підтримує роботу з видом ТО,
//переданим я...
