Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> продолжаем делать формы и формочки. , Как предуперждение сделать          
хакерок Подменю пользователя
сообщение 18.03.11, 9:51
Сообщение #1

Оратор
*****
Группа: Пользователи
Сообщений: 258
Из: Київ
Спасибо сказали: 12 раз
Рейтинг: 0

Часто возникаеть ситуация когда нужно сделать следуещее:

Имееться форма.

В нёй есть ПолеВвода с именем ПолеВыводаНаличияКоличество - в котором высвечивает сколько единиц товара имееться в наличии.

В форме есть ПолеВвода с именем ПолеВводаКоличества - в котором пользователь вводит количество товара которое будет продаваться

Есть Кнопка с именем Добавить.

Есть процедура нажатия Кнопки Добавить в которой нужно сделать следующее

Если количество товара в наличии меньше чем то который вбивает пользователь (пример ПолеВыводаНаличияКоличество =10 ПолеВводаКоличества = 12)
выдать предупреждение что количество товара меньше чем есть в наличии и дать возможность нажать кнопку "Продолжить","Отменить"

Думаю с таким кто то сталкивался.

Процедура ДобавитьНажатие(Элемент)
// Проверка совпадения выбранного кода    
    Если ЭлементыФормы.ПолеВводаКод.Значение = ЭлементыФормы.ПолеВыводаКод.Значение   Тогда
// Проверяем Наличие      
    Если ЭлементыФормы.ПолеВыводаНаличия.Значение < ЭлементыФормы.ПолеВводаКоличества.Значение   Тогда
//        
        
// ??? Как выдать предупреждение что наличия не хватает и дать возможность продолжить или отменить ???        
        
//    
    Иначе
//    Добавление в список
    Сообщить("ОК");    
//    Добавление в список
    КонецЕсли;
// Проверяем Наличие      
    КонецЕсли;
// Проверка совпадения выбранного кода    


//Подготовка следующего кода    
  ЭлементыФормы.ПолеВводаКод.Значение = "";
  ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ПолеВводаКод;
//Подготовка следующего кода    

КонецПроцедуры

хакерок Подменю пользователя
сообщение 18.03.11, 10:03
Сообщение #2

Оратор
*****
Группа: Пользователи
Сообщений: 258
Из: Київ
Спасибо сказали: 12 раз
Рейтинг: 0

Вот кусок кода который имено это проверяет
Процедура ДобавитьНажатие(Элемент)

// Проверяем Наличие      
    Если Число(ЭлементыФормы.ПолеВыводаНаличия) < Число(ЭлементыФормы.ПолеВводаКоличества)   Тогда
//        
        
// ? Как выдать предупреждение что наличия не хватает и дать возможность продолжить или отменить ?         
    Сообщить("Fuck");    
//    
    Иначе
//    Добавление в список
    Сообщить("ОК");    
//    Добавление в список
    КонецЕсли;
// Проверяем Наличие      

КонецПроцедуры

Batchir Подменю пользователя
сообщение 18.03.11, 10:20
Сообщение #3

Живет на форуме
Иконка группы
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1443 раз
Рейтинг: 0

Ответ = Вопрос("БлаБлаБла", РежимДиалогаВопрос.ОКОтмена, 60);
Если Ответ = КодВозвратаДиалога.ОК Тогда
      Сообщить("ОК");
Иначе
      Сообщить("Fuck");         
КонецЕсли;

Спасибо сказали: хакерок,

хакерок Подменю пользователя
сообщение 18.03.11, 13:55
Сообщение #4

Оратор
*****
Группа: Пользователи
Сообщений: 258
Из: Київ
Спасибо сказали: 12 раз
Рейтинг: 0

Цитата(Batchir @ 18.03.11, 11:20) *
Ответ = Вопрос("БлаБлаБла", РежимДиалогаВопрос.ОКОтмена, 60);
Если Ответ = КодВозвратаДиалога.ОК Тогда
      Сообщить("ОК");
Иначе
      Сообщить("Fuck");         
КонецЕсли;

Спасибо большое за ответ.
волпрос можно считать закрыты единственное когда выскакивает Вопрос "Бла Бла БЛа"---> Вопрос("БлаБлаБла", РежимДиалогаВопрос.ОКОтмена, 60,?что нужно поставить чтоб по умолчанию была кнопка Отмена?);

хакерок Подменю пользователя
сообщение 18.03.11, 14:00
Сообщение #5

Оратор
*****
Группа: Пользователи
Сообщений: 258
Из: Київ
Спасибо сказали: 12 раз
Рейтинг: 0

Цитата(хакерок @ 18.03.11, 14:55) *
Спасибо большое за ответ.
волпрос можно считать закрыты единственное когда выскакивает Вопрос "Бла Бла БЛа"---> Вопрос("БлаБлаБла", РежимДиалогаВопрос.ОКОтмена, 60,?что нужно поставить чтоб по умолчанию была кнопка Отмена?);

Сам нашол ответ
       Ответ = Вопрос("Нет такого количества В наличии. Продолжить?", РежимДиалогаВопрос.ДаНет,60,КодВозвратаДиалога.Нет);

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 16.06.25, 0:14
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!