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

що ПустоеЗначеніе (Вартість) = 1 Тоді

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

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

Повернення;

КонецЕсли;

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

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

Сума = Кількість * Вартість;

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

Документ В«АмортизаціяВ» модуль форми:

Процедура ВиборЕлементаАморт ()

Якщо Найменування = "" тоді

Попередження ("Вкажіть будь ласка основний засіб");

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

Повернення;

КонецЕсли;

Якщо Наіменованіе.Вибран () = 1 Тоді

Спр = СоздатьОб'ект ("Справочник.ОсновныеСредства");

Спр.НайтіЕлемент (Найменування);

ТекДата = ДатаДок;

Різниця = ТекДата-Спр.ДатаВвода;

КолічМес = Цел (Разніца/31);

Якщо КолічМес> (Спр.ПеріодІсчісленія) Тоді Попередження (Спр.Наіменованіе + "виробив свій ресурс!");

КолічМес = Спр.ПеріодІсчісленія;

КонецЕсли;

Вартість = Спр.ПолучітьАтрібут ("Вартість");

Амортвідрахування = Окр ((АмортМес * КолічМес), 2);

ДатаВвода = Спр.ПолучітьАтрібут ("ДатаВвода");

ОстСтоімость = СуммаАмор-Амортвідрахування;

Спр.ТекущійЕлемент ();

Спр.Запісать ();

КонецЕсли;

Спр.СуммаАмортізаціі = ОстСтоімость;

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

Документ В«АмортизаціяВ» модуль документа:

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

Док = СоздатьОб'ект ("Документ.Амортізація");

Док.ВибратьДокументи (НачМесяца (ДатаДок), КонМесяца (ДатаДок));

Е = 0;

Поки Док.ПолучітьДокумент ()> 0 Цикл

Е = Е +1;

Якщо Е = 2 Тоді Попередження ("Неможливо провести Документ! Він вже проведено в даному місяці!");

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

КонецЕсли;

КонецЦікла;

// Тут слід написати алгоритм проведення документа

Операція.Содержаніе = "Амортизація основних засобів";

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

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

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

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

Операція....