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