Реферат Автоматизація товарного обліку продукції Zepter

. дефф=Дефект;

. ценн=Ціна;

. сум=сума;

. Таб.ВивестіСекцію ( рядок );

. конеццікла;

. ущщ=Формат (Підсумок ( сума ), Ч20.2 -, );

. обнн=Обнаружіл_деффект;

. Таб.ВивестіСекцію ( підвал );

. Таб.ТолькоПросмотр (1);

. Таб.Показать ( Акт списання , );

. КонецПроцедури

Модуль документа

1. Процедура ОбработкаПроведенія ()

2. Якщо Пустоезначеніе (Товар)=0 тоді

. Попередження ( Товар не визначена! Raquo;);

. НепроводітьДокумент ();

. КонецЕсли;

. Регістр.Спісаніе.Прівязиватьстроку (1);

. Регістр.Спісаніе.Обнаружіл_деффект=Обнаружіл_деффект;

. Вибратьстрокі ();

. Поки Получітьстроку ()=1 Цикл;

. Регістр.Спісаніе.Товар=Товар;

. Регістр.Спісаніе.Дефект=Дефект;

. Регістр.Спісаніе.Колічество=Кількість;

. Регістр.Спісаніе.Цена=Ціна;

. Регістр.Спісаніе.Сумма=Сума;

. Регістр.Спісаніе.ДвіженіеРасходВиполніть ();

. КонецЦікла;

Документ. Надходження товару

Форма елемента

1. Процедура рахунок ()

2. Перем Запит, ТекстЗапроса;

. якщо кількість=0 тоді

. кількість=1;

. КонецЕсли;

. Ціна=товар.цена;

. Сума=Кількість * Ціна;

. Телефон=Поставщік.Телефон;

. Адреса=Поставщік.Адрес;

. Кваліфікація=Прінял_товар.Кваліфікація;

. товв=товар;

. _Ном=0;

. ном=НомерСтрокі;

. Вибратьстрокі ();

. поки Получітьстроку ()=1 цикл

. якщо товар=товв тоді

. Якщо _Ном gt; 0 Тоді

. товар= raquo ;;

. кількість= raquo ;;

. попередження ( ТАКИЙ ТОВАР ВЖЕ Є, виберете інший товар або видаліть рядок! );

. _Ном=НомерСтрокі;

. Перервати;

. КонецЕсли;

. _Ном=НомерСтрокі;

. КонецЕсли;

. Стр= raquo ;;

. конеццікла;

. КонецПроцедури

. Процедура Печ ()

. Таб=СоздатьОб'ект ( Таблиця );

. таб.ІсходнаяТабліца ( Таблиця );

. Таб.Опціі (0,0, Таб.ВисотаТабліци (), 0);

. Поссе=Постачальник;

. пріі=Прінял_товар;

. Телл=Телефон;

. расс=Расчетний_счет;

. адд=Адреса;

. Таб.ВивестіСекцію ( Шапка );

. Вибратьстрокі ();

. поки получітьстроку ()=1 цикл;

. _Ном=0;

. ном=НомерСтрокі;

. товв=Товар;

. колл=Кількість;

. ценн=Ціна;

. сум=сума;

. Таб.ВивестіСекцію ( рядок );

. конеццікла;

. ітоо=Формат (Підсумок ( сума ), Ч20.2 -, );

. Таб.ВивестіСекцію ( підвал );

. Таб.ТолькоПросмотр (1);

. Таб.Показать ( Продаж , );

. КонецПроцедури

Модуль документа

1. Процедура ОбработкаПроведенія ()

2. Регістр.Поступленіетовара.Прівязиватьстроку (1);

. Вибратьстрокі ();

. Поки Получітьстроку ()=1 Цикл

. Регістр.Поступленіетовара.Товар=Товар;

. Регістр.Поступленіетовара.Колічество=Кількість;

. Регістр.Поступленіетовара.Сумма=Сума;

. Регістр.Поступленіетовара.ДвіженіеПріходВиполніть ();

. Конец...