quo ;;
. рег=регістр.Поступленіетовара;
. рег.ПрівязиватьСтроку (НомерСтрокі);
. рег.товар=товар;
. рег.сумма=сума;
. кол=кількість;
. Запит=СоздатьОб'ект ( Запит );
. ТекстЗапроса=
. "//{{ЗАПИТ (Сформувати)
. | Тов=Регістр.Поступленіетовара.Товар;
. | Кол=Регістр.Поступленіетовара.Колічество;
. | Функція КолічествоКонОст=КонОст (Кол);
. | Умова (товар=тов);
. | Угруповання тов;
. |" ;
. Якщо Запрос.Виполніть (ТекстЗапроса)=0 Тоді
. Повернення;
. КонецЕсли;
. Поки Запрос.Группіровка (1)=1 Цикл
. ЗК=запрос.кол;
. якщо зк lt; кол Тоді
. Попередження ( У такій кількості товару + запрос.тов + немає! Raquo;);
. непроводітьдокумент ();
. повернення;
. КонецЕсли;
. Якщо зк lt;=кол тоді
. рег.колічество=зк; інакше
. рег.колічество=КОЛ;
. КонецЕсли;
. КІЛ=кол - зк;
. рег.двіженіерасходвиполніть ();
. Якщо кол lt;=0 тоді
. Перервати;
. КонецЕсли;
. КонецЦікла; інакше
. Попередження ( Товару + рядок (Товар) + немає на складі! Raquo;);
. непроводітьдокумент ();
. повернення;
. КонецЕсли;
. конеццікла;
. КонецПроцедури
Документ. Переоцінка
Форма елемента
1. Процедура перес ()
2. Старая_цена=Товар.Цена;
. товв=товар;
. _Ном=0;
. ном=НомерСтрокі;
. Вибратьстрокі ();
. поки Получітьстроку ()=1 цикл
. якщо товар=товв тоді
. Якщо _Ном gt; 0 Тоді
. товар= raquo ;;
. кількість= raquo ;;
. попередження ( ТАКИЙ ТОВАР ВЖЕ Є,виберете інший товар або видаліть рядок! );
. _Ном=НомерСтрокі;
. Перервати;
. КонецЕсли;
. _Ном=НомерСтрокі;
. КонецЕсли;
. Стр= raquo ;;
. конеццікла;
. КонецПроцедури
. Процедура Печ ()
. Таб=СоздатьОб'ект ( Таблиця );
. таб.ІсходнаяТабліца ( Таблиця );
. Таб.Опціі (0,0, Таб.ВисотаТабліци (), 0);
. Таб.ВивестіСекцію ( Шапка );
. Вибратьстрокі ();
. поки получітьстроку ()=1 цикл;
. _Ном=0;
. ном=НомерСтрокі;
. товв=Товар;
. Старр=Старая_цена;
. новв=Новая_цена;
. провв=Провел_переоценку;
. Таб.ВивестіСекцію ( рядок );
. конеццікла;
. провв=Провел_переоценку;
. Таб.ВивестіСекцію ( підвал );
. Таб.ТолькоПросмотр (1);
. Таб.Показать ( Продаж , );
. КонецПроцедури
Модуль документа
1. Процедура ОбработкаПроведенія ()
2. рег=регістр.Переоценка;
. спр=СоздатьОб'ект ( справочнік.Товари );
. вибратьстрокі ();
. поки получітьстроку ()=1 цикл
. спр.вибратьелементи ();
. Спр.НайтіЕлемент (Товар);
. Спр.Цена=Новая_цена;
. Спр.Запісать ();
. ПрівязиватьСтроку (НомерСтрокі);
. Рег.Товар=Товар;
. Рег.Новая_цена=Новая_цена;
. Рег.Старая_цена=Старая_цена; ...
