Автоматизированная система учета и контроля в розничной торговле
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ПоНаименованию("Уволенные");
Уволенные = СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Уволенные);
СпрСотр.НайтиЭлемент(Сотрудник);
СпрСотр.Родитель = Уволенные;
СпрСотр.ДатаУвольнения = ДатаДок;
СпрСотр.Записать();
КонецПроцедуры
Документ РегистрационныеДанныеФирмы модуль формы:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
НазваниеФирмы = Константа.НазваниеФирмы;
ИмяДиректора = Константа.ИмяДиректора;
ИмяГлавБуха = Константа.ИмяГлавБуха;
ИмяСпецаПоКадрам = Константа.СпецПоКадрам;
АдресФирмы = Константа.АдресФирмы;
Телефон = Константа.Телефон;
КонецПроцедуры
Документ РегистрационныеДанныеФирмы модуль документа:
Процедура ОбработкаПроведения()
Константа.ИмяДиректора = ИмяДиректора;
Константа.НазваниеФирмы=НазваниеФирмы;
Константа.ИмяГлавБуха=ИмяГлавБуха;
Константа.СпецПоКадрам=ИмяСпецаПоКадрам;
Константа.АдресФирмы=АдресФирмы;
Константа.Телефон=Телефон;
КонецПроцедуры
Документ ПриобретениеОсновныхСредств модуль формы:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустоеЗначение(Название)=1 Тогда
Предупреждение("Не заполнено поле: Название");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(ПериодИсчисления)=1 Тогда
Предупреждение("Не заполнено поле: Период исчисления");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(Количество)=1 Тогда
Предупреждение("Не заполнено поле: Количество");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(ЕдИзмерения)=1 Тогда
Предупреждение("Не заполнено поле: Ед. измерения");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(Стоимость)=1 Тогда
Предупреждение("Не заполнено поле: Цена");
СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецПроцедуры
Процедура Расчет()
Сумма=Количество*Стоимость;
КонецПроцедуры;
Документ Амортизация модуль формы:
Процедура ВыборЭлементаАморт()
Если Наименование=" " тогда
Предупреждение("Укажите пожалуйста основное средство");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если Наименование.Выбран() = 1 Тогда
Спр = СоздатьОбъект("Справочник.ОсновныеСредства");
Спр.НайтиЭлемент(Наименование);
ТекДата=ДатаДок;
Разница=ТекДата-Спр.ДатаВвода;
КоличМес=Цел(Разница/31);
Если КоличМес>(Спр.ПериодИсчисления) Тогда Предупреждение(Спр.Наименование+" выработал свой ресурс!");
КоличМес=Спр.ПериодИсчисления;
КонецЕсли;
Количество=Спр.ПолучитьАтрибут("Количество");
ПервоначСтоимость=Спр.ПолучитьАтрибут("ПервоначальнаяСтоимость");
ПериодИсчисления=Спр.ПолучитьАтрибут("ПериодИсчисления");
Стоимость = Спр.ПолучитьАтрибут("Стоимость");
СуммаАмор=Спр.ПолучитьАтрибут("СуммаАмортизации");
АмортМес=Количество*Окр((Стоимость)/(Спр.ПериодИсчисления),2);
АмортОтчисления=Окр((АмортМес*КоличМес),2);
ДатаВвода =Спр.ПолучитьАтрибут("ДатаВвода");
ОстСтоимость=СуммаАмор-АмортОтчисления;
Спр.ТекущийЭлемент();
Спр.Записать();
КонецЕсли;
Спр.СуммаАмортизации=ОстСтоимость;
КонецПроцедуры;
Документ Амортизация модуль документа:
Процедура ОбработкаПроведения()
Док = СоздатьОбъект("Документ.Амортизация");
Док.ВыбратьДокументы(НачМесяца(ДатаДок), КонМесяца(ДатаДок));
Е=0;
Пока Док.ПолучитьДокумент() > 0 Цикл
Е=Е+1;
Если Е=2 Тогда Предупреждение("Невозможно провести Документ! Он уже проведен в данном месяце!");
СтатусВозврата(0);
КонецЕсли;
КонецЦикла;
//Здесь следует написать алгоритм проведения документа
Операция.Содержание="Амортизация основных средств";
Операция.СуммаОперации = Итог("АмортОтчисления");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Операция.НоваяПроводка();
Операция.Кредит.Счет = СчетПоКоду("01"); //Основные средства
Операция.Дебет.Счет = СчетПоКоду("02"); //Износ основных средств
Операция.Сумма=АмортОтчисления;
КонецЦикла;
Операция.Записать();
Предупреждение("Проведение завершено!");
КонецПроцедуры
Документ ПриходнаяНакладная модуль формы:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
КонецПроцедуры
Процедура СуммаПокупки()
Сумма = ЦенаПокупкиЗаЕдиницу*Количество;
ОтпускнаяЦена = ЦенаПокупкиЗаЕдиницу*1.1;
СуммаВУЕ = Сумма/Константа.ПолучитьЗначение(ТекущаяДата());
КонецПроцедуры
Документ ПриходнаяНакладная модуль документа:
Процедура ОбработкаПроведения()
Если ПустоеЗначение(Поставщик)=1 Тогда
Предупреждение("Не заполнено поле: Поставщик");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(Склад)=1 Тогда
Предупреждение("Не заполнено поле: Склад");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если ЦенаПокупкиЗаЕдиницу=0 Тогда
Предупреждение("Не установлена цена товара "+Наименование);
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если Количество=0 Тогда
Предупреждение("Не установлено кол-во товара "+Наименование);
СтатусВозврата(0);
Возврат;
КонецЕсли;
ПривязыватьСтроку(НомерСтроки);
Операц