учет остатков

[Мася Осипова4]

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

   
КонецФункции

&НаКлиенте
Процедура СписокНоменклатурыКоличествоПриИзменении(Элемент)
   //Записали в переменную СТР (Тип структура, массив) содержимое строки таблицы
   Стр=Элементы.СписокНоменклатуры.ТекущиеДанные;
   Остаток=СписокНоменклатурыКоличествоПриИзмененииНаСервере(Стр.Номенклатура);
   Если Стр.Количество>Остаток Тогда
      ПоказатьОповещениеПользователя("Нельзя продать больше, чем есть на складе");
      КонтрольОстатков=Ложь;
   Иначе
      КонтрольОстатков=Истина;
   КонецЕсли;
   
КонецПроцедуры

[wise]

(0) хвастаетесь ??