Автоматизированная система учета и контроля в розничной торговле
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ия.НоваяПроводка();
Операция.дебет.Счет=СчетПоКоду("41.1",ПланыСчетов.ПланСчетов);
Операция.дебет.Склад=Склад;
Операция.дебет.товар=Наименование;
Операция.дебет.Поставщик=Поставщик;
Операция.Кредит.Счет=СчетПоКоду("60",ПланыСчетов.ПланСчетов);
Операция.кредит.Поставщик=Поставщик;
Операция.Количество=Количество;
Операция.Сумма=Сумма;
КонецЦикла;
ПривязыватьСтроку(0);
Операция.НоваяПроводка();
Операция.Дебет.Счет=СчетПоКоду("60",ПланыСчетов.ПланСчетов);
Операция.Дебет.Поставщик=Поставщик;
Операция.Кредит.Счет=СчетПоКоду("51",ПланыСчетов.ПланСчетов);
Операция.Сумма=Итог("Сумма");
Операция.Содержание="Поступление товара";
Операция.СуммаОперации=Итог("Сумма");
Операция.Записать();
Пока ПолучитьСтроку()=1 Цикл
Регистр.ОстаткиСклада.Товар=Наименование;
Регистр.ОстаткиСклада.Количество=Количество;
Регистр.ОстаткиСклада.Поставщик=Поставщик;
Регистр.ОстаткиСклада.Склад=Склад;
Регистр.ОстаткиСклада.ПривязыватьСтроку(НомерСтроки);
Регистр.ОстаткиСклада.ДвижениеПриходВыполнить();
КонецЦикла;
Спр = СОздатьОбъект("Справочник.Наменклатура");
Пока ПолучитьСтроку()=1 Цикл
Спр.НайтиПоНаименованию(Строка(Наименование),0);
Спр.ЦенаПокупкиЗаЕдиницу = Число(ЦенаПокупкиЗаЕдиницу);
Спр.ОтпускнаяЦена = Число(ОтпускнаяЦена);
Спр.ЦенаВДолларах = Число(ЦенаПокупкиЗаЕдиницу)/3000;
Спр.ИспользоватьДату(ТекущаяДата());
Спр.Записать();
КонецЦикла;
КонецПроцедуры
Документ ОтгрузкаНаРеализацию модуль формы:
Процедура Расчет()
Сумма=ЦенаЗаЕдиницу*Количество;
КонецПроцедуры
Процедура Цена()
Спр = СоздатьОбъект("Справочник.Наменклатура");
Спр.НайтиПоНаименованию(Строка(Наменклатура),0);
ЦенаЗаединицу = Спр.ОтпускнаяЦена;
КонецПроцедуры
Процедура ПриЗаписи()
Если Проведен()=0 Тогда
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Ост=Регистр.ОстаткиСклада.СводныйОстаток(Регистр.ОстаткиСклада.Товар,Склад,,"Количество");
Если Ост<Количество Тогда
Предупреждение("Нет столько товара "+Наменклатура+Регистр.ОстаткиСклада.Товар+". В наличии только "+Ост);
СтатусВозврата(0);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Документ ОтгрузкаНаРеализацию модуль документа:
Процедура Расход();
Пока ПолучитьСтроку() = 1 Цикл
Регистр.ОстаткиСклада.Товар = Наменклатура;
Регистр.ОстаткиСклада.Склад = Склад;
Регистр.ОстаткиСклада.Количество = Количество;
Регистр.ОстаткиСклада.ДвижениеРасходВыполнить();
КонецЦикла;
КонецПроцедуры
Процедура Приход();
Пока ПолучитьСтроку() = 1 Цикл
Регистр.ОстаткиМагазина.Товар = Наменклатура;
Регистр.ОстаткиМагазина.Магазин = Магазин;
Регистр.ОстаткиМагазина.Количество = Количество;
Регистр.ОстаткиМагазина.ДвижениеПриходВыполнить();
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения()
Если ПустоеЗначение(Магазин)=1 Тогда
Предупреждение("Не заполнено поле: Магазин");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(Склад)=1 Тогда
Сообщить("Не заполнено поле: Склад");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Операция.НоваяПроводка();
Операция.дебет.Счет=СчетПоКоду("41.2",ПланыСчетов.ПланСчетов);
Операция.дебет.Магазин=Магазин;
Операция.дебет.Товар=Наменклатура;
Операция.Кредит.Счет=СчетПоКоду("41.1",ПланыСчетов.ПланСчетов;
Операция.Кредит.Склад=Склад;
Операция.Кредит.Товар=Наменклатура;
Операция.Количество = Количество;
Операция.Сумма = Сумма;
Операция.Содержание = "Отгрузка товара";
Операция.Записать();
КонецЦикла;
Расход();
Приход();
КонецПроцедуры
Документ ОстаткиНаСкладахМагазинах модуль формы:
Процедура Вывести()
Запр = СоздатьОбъект("Запрос");
ТекстЗапр = "
|Товар = Регистр.ОстаткиСклада.Товар;
|Склад = Регистр.ОстаткиСклада.Склад;
|Количество = Регистр.ОстаткиСклада.Количество;
|Функция Кол = КонОст(Количество);
|Группировка Товар;
|Группировка Склад;
|";
ЗапрМаг = СоздатьОбъект("Запрос");
ТекстЗапрМаг = "
|ТоварМаг = Регистр.ОстаткиМагазина.Товар;
|Магазин = Регистр.ОстаткиМагазина.Магазин;
|Количество = Регистр.ОстаткиМагазина.Количество;
|Функция Кол = КонОст(Количество);
|Группировка ТоварМаг;
|Группировка Магазин;
|";
Если Запр.Выполнить(ТекстЗапр) = 0 Тогда
Возврат;
КонецЕсли;
Если ЗапрМаг.Выполнить(ТекстЗапрМаг) = 0 Тогда
Возврат;
КонецЕсли;
Т = СоздатьОбъект("Таблица");
Т.ИсходнаяТаблица("Остатки");
Т.ВывестиСекцию("Шапка");
Пока Запр.Группировка("Товар") = 1 Цикл
Пока Запр.Группировка("Склад")=1 Цикл
Т.ВывестиСекцию("ДанныеСклад");
КонецЦикла;
КонецЦикла;
Т.ВывестиСекцию("ОстаткиМаг");
Пока ЗапрМаг.Группировка("ТоварМаг") = 1 Цикл
Пока ЗапрМаг.Группировка("Магазин")=1 Цикл
Т.ВывестиСекцию("ДанныеМагазин");
КонецЦикла;
КонецЦикла;
Т.Показать("Остатки", " ");
КонецПроцедуры
Модуль отчета Сотрудники:
Процедура Сформировать()
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиПоНаименованию("Работающие");
Работа