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