Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 06:36

Запрет продажу подарочного сертификата

Автор xdto, 01 дек 2021, 18:19

0 Пользователей и 1 гость просматривают эту тему.

xdto

Подскажите как запретить повторную продажу подарочного сертификата если сертификат был продан и полностью погашен или аннулирован??

xdto

xdto, Пищу вот такой код в форме документа при событий обработке выбора

   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ
      |   ИсторияПодарочныхСертификатовСрезПоследних.Статус КАК Статус
      |ИЗ
      |   РегистрСведений.ИсторияПодарочныхСертификатов.СрезПоследних КАК ИсторияПодарочныхСертификатовСрезПоследних
      |ГДЕ
      |   ИсторияПодарочныхСертификатовСрезПоследних.ПодарочныйСертификат = &ПодарочныйСертификат";
   
   Запрос.УстановитьПараметр("ПодарочныйСертификат", ПодарочныйСертификат);
   
   РезультатЗапроса = Запрос.Выполнить();
   
   ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
   
   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
      Если  ВыборкаДетальныеЗаписи.Статус = Перечисления.СтатусыПодарочныхСертификатов.Аннулирован или
ВыборкаДетальныеЗаписи.Статус = Перечисления.СтатусыПодарочныхСертификатов.Аннулирован Тогда
         Сообщить("Сертификат "+ ВыборкаДетальныеЗаписи.Статус);
      КонецЕсли;
      
   КонецЦикла;

Теги: УТ 11 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск