Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: продолжаем делать формы и формочки.
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.1 (8.0)
хакерок
Часто возникаеть ситуация когда нужно сделать следуещее:

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

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

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

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

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

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

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

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


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

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

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

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

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

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