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