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