86
неХватает = текКоличество - остаток;
Сообщить ("Не хватает товара " +
текНоменклатура + " в количестве " + неХватает + " единиц." +
"Документ не может быть проведен." );
отказ = истина;
КонецЕсли;
Иначе
Сообщить ("Не хватает товара " + текНоменклатура + "
в количестве " + текКоличество + " единиц." + "Документ не может быть
проведен." );
отказ = истина;
КонецЕсли;
КонецЦикла;
если отказ = ложь тогда
Движения.ОстаткиБилетов.Записывать = истина;
Движения.Продажи.Записывать = истина;
для каждого текБронь из ЭтотОбъект.Бронь цикл
Движение = Движения.ОстаткиБилетов.Добавить();
Движение.Период = Дата;
Движение.ВидДвижения =
ВидДвиженияНакопления.Расход;
Движение.Номенклатура = текБронь.Номенклатура;
Движение.Количество = текБронь.Количество;
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Номенклатура = текБронь.Номенклатура;
Движение.Количество = текБронь.Количество;
Движение.Сумма = текБронь.Стоимость;
87
Движения.Продажи.Записать();
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Код формы документа (автоматически проставляем стоимость при
выборе номенклатуры и изменении ее количества и автоматически
вычисляем общую сумму Бронь):
&НаКлиенте
Процедура БроньКоличествоПриИзменении(Элемент)
ТекущаяСтрока = элементы.Бронь.ТекущиеДанные.НомерСтроки;
БроньКоличествоПриИзмененииСервер(ТекущаяСтрока);
КонецПроцедуры
&НаСервере
Процедура БроньКоличествоПриИзмененииСервер(НомерСтроки)
ТекущиеДанные = Объект.Бронь.Получить(НомерСтроки - 1);
Цена =
Справочники.Номенклатура.НайтиПоКоду(ТекущиеДанные.Номенклатур
а.Код).Цена;
ТекущиеДанные.Стоимость = ТекущиеДанные.Количество * Цена;
КонецПроцедуры
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
ПередЗаписьюНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере()
Объект.СуммаБроньа = Объект.Бронь.Итог("Стоимость");
КонецПроцедуры
