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

Помогите составить Цикл Повтора операции

Автор siralex, 09 окт 2015, 13:35

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

siralex

Добрый День. Помогите составить цикл повтора ввода пароля Сотрудником. ( Если он ввел неправильно пароль, чтобы форма ввода пароля "не слетала" а дала возможность повторно ввести пасроль)

ФормаПароль = ПолучитьФорму("ФормаВводаПароляПроекта", ЭтаФорма);
   ПроектСсылка = ФормаПароль.ОткрытьМодально();
   
   Если (ПроектСсылка = Неопределено) ИЛИ (ПроектСсылка.Пустая()) Тогда
      Ответ = Вопрос("Пароль не определен, закрыть продажу под сотрудником по умолчанию?", РежимДиалогаВопрос.ДаНет);
      Если Ответ = КодВозвратаДиалога.Нет Тогда
         Возврат;
      КонецЕсли;
   КонецЕсли;
   
   Если (НЕ ПроектСсылка = Неопределено) Тогда
      Если НЕ ПроектСсылка.Пустая() И ПроектСсылка.Сотрудник.Пустая() Тогда
         Предупреждение("Внимание! В настройках проекта не указан сотрудник. Чек будет закрыт под сотрудником по умолчанию");
      Иначе
         Продавец = ПроектСсылка.Сотрудник;
         //переназначаем все строки чека под закрываемого под введенным сотрудником
         Для каждого СтрокаТовар Из Товары Цикл
            СтрокаТовар.Продавец = Продавец;
         КонецЦикла;
      КонецЕсли;
   КонецЕсли;
   
   Проект = ПроектСсылка;

cska-fanat-kz

ПроектСсылка = Неопределено;
Пока (ПроектСсылка = Неопределено) ИЛИ (ПроектСсылка.Пустая()) Цикл
    ПроектСсылка = ФормаПароль.ОткрытьМодально();
   
   Если (ПроектСсылка = Неопределено) ИЛИ (ПроектСсылка.Пустая()) Тогда
      Ответ = Вопрос("Пароль не определен, закрыть продажу под сотрудником по умолчанию?", РежимДиалогаВопрос.ДаНет);
      Если Ответ = КодВозвратаДиалога.Нет Тогда
         Возврат;
      КонецЕсли;
   КонецЕсли;
КонецЦикла;
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

siralex


Теги:

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

Рейтинг@Mail.ru

Поиск