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

дури

Довідник. Постачальники

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

1. Процедура ПріЗапісі ()

2. якщо пустоезначеніе (найменування)=1 тоді

. попередження ( Введіть постачальника! );

. статусвозврата (0);

. КонецЕсли;

. якщо пустоезначеніе (адреса)=1 тоді

. попередження ( Введіть адресу! );

. статусвозврата (0);

. КонецЕсли;

. якщо пустоезначеніе (телефон)=1 тоді

. попередження ( Введіть телефон! );

. статусвозврата (0);

. КонецЕсли;

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

Довідник. Покупці

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

1. Процедура ПріЗапісі ()

2. якщо пустоезначеніе (найменування)=1 тоді

. попередження ( Введіть покупця! );

. статусвозврата (0);

. КонецЕсли;

. якщо пустоезначеніе (телефон)=1 тоді

. попередження ( Введіть телефон! );

. статусвозврата (0);

. КонецЕсли;

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

Документ. Продажі

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

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

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

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

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

. Покка=Покупець;

. проо=Продавець;

. квалл=Кваліфікація;

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

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

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

. _Ном=0;

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

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

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

. ценн=Ціна;

. сум=сума;

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

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

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

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

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

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

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

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

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

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

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

. КонецЕсли;

. Ціна=Товар.Цена;

. Кваліфікація=Продавец.Кваліфікація;

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

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

. _Ном=0;

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

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

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

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

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

. товар= raquo ;;

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

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

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

. Перервати;

. КонецЕсли;

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

. КонецЕсли;

. Стр= raquo ;;

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

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

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

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

2.// перевірка залишків

. рег=СоздатьОб'ект ( регістр.Поступленіетовара );

. Якщо не (СравнітьТА ()=0) тоді

. рег.временнийрасчет (1);

. КонецЕсли;

. РассчітатьРегістриНа (текущійдокумент ());

. Таб=СоздатьОб'ект ( Табліцазначеній );

. рег.ВигрузітьІтогі (Таб, 0,1);

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

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

. Стр= raquo ;;

. Якщо Таб.НайтіЗначеніе (Товар, стр, 1)=1 Тоді

. таб.ПолучітьСтрокуПоНомеру (Стор);

. Стр= ra...