Реферат Автоматизована система обліку і контролю в роздрібній торгівлі

Кредіт.Счет = СчетПоКоду ("01");// Основні засоби

Операція.Дебет.Счет = СчетПоКоду ("02");// Знос основних засобів

Операція.Сумма = Амортвідрахування;

КонецЦікла;

Операція.Запісать ();

Попередження ("Проведення завершено!");

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

Документ В«ПриходнаяНакладнаяВ» модуль форми:

Процедура відкриття ()

ПріЗапісіПерепроводіть (1);

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

Процедура СуммаПокупкі ()

Сума = ЦенаПокупкіЗаЕдініцу * Кількість;

ОтпускнаяЦена = ЦенаПокупкіЗаЕдініцу * 1.1;

СуммаВУЕ = Сума/Константа.ПолучитьЗначение (ТекущаяДата ());

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

Документ В«ПриходнаяНакладнаяВ» модуль документа:

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

Якщо ПустоеЗначеніе (Постачальник) = 1 Тоді

Попередження ("Не заповнено поле: Постачальник");

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

Повернення;

КонецЕсли;

Якщо ПустоеЗначеніе (Склад) = 1 Тоді

Попередження ("Не заповнено поле: Склад");

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

Повернення;

КонецЕсли;

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

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

Якщо ЦенаПокупкіЗаЕдініцу = 0 Тоді

Попередження ("Не встановлена ​​ціна товару" + Найменування);

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

Повернення;

КонецЕсли;

Якщо Кількість = 0 Тоді

Попередження ("Не встановлено кол-во товару" + Найменування);

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

Повернення;

КонецЕсли;

ПрівязиватьСтроку (НомерСтрокі);

Операція.НоваяПроводка ();

Операція.дебет.Склад = Склад;

Операція.дебет.товар = Найменування;

Операція.дебет.Поставщік = Постачальник;

Операція.кредіт.Поставщік = Постачальник;

Операція.Колічество = Кількість;

Операція.Сумма = Сума;

КонецЦікла;

ПрівязиватьСтроку (0);

Операція.НоваяПроводка ();

Операція.Дебет.Поставщік = Постачальник;

Операція.Сумма = Підсумок ("Сума");

Операція.Содержаніе = "Надходження товару";