Разработка программы учета товара средствами 1С: Предприятие 7.7
Дипломная работа - Бухгалтерский учет и аудит
Другие дипломы по предмету Бухгалтерский учет и аудит
?ьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|ТекущийДокумент = Документ.Приход.ТекущийДокумент;
|Организация = Документ.Приход.Организация;
|Номенклатура = Документ.Приход.Номенклатура;
|ЕдИзм = Документ.Приход.ЕдИзм;
|Количество = Документ.Приход.Количество;
|Сумма = Документ.Приход.Сумма;
|Цена = Документ.Приход.Цена;
|Группировка ТекущийДокумент;
|Группировка Организация;
|Группировка Номенклатура;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей ТекущийДокумент
Таб.ВывестиСекцию("ТекущийДокумент");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей Организация
Таб.ВывестиСекцию("Организация");
Пока Запрос.Группировка(3) = 1 Цикл
Если Запрос.Номенклатура.ЭтоГруппа()=0 Тогда
// Заполнение полей Номенклатура
Таб.ВывестиСекцию("Номенклатура");
Иначе
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Табличная часть отчета имеет вид.
Рис. 13
Рис. 14
Мы видим в таблице, какой товар, и с какой фирмы пришел на торговую точку.
Отчет по расходу создается аналогично, и имеет вид
Рис. 15
Модуль документа:
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|ТекущийДокумент = Документ.Расход.ТекущийДокумент;
|Организация = Документ.Расход.Организация;
|Номенклатура = Документ.Расход.Номенклатура;
|Количество = Документ.Расход.Количество;
|Сумма = Документ.Расход.Сумма;
|Цена = Документ.Расход.Цена;
|Группировка ТекущийДокумент;
|Группировка Организация;
|Группировка Номенклатура;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей ТекущийДокумент
Таб.ВывестиСекцию("ТекущийДокумент");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей Организация
Таб.ВывестиСекцию("Организация");
Пока Запрос.Группировка(3) = 1 Цикл
Если Запрос.Номенклатура.ЭтоГруппа()=0 Тогда
// Заполнение полей Номенклатура
Таб.ВывестиСекцию("Номенклатура");
Иначе
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Теперь для упрощения работы в программе можно отредактировать меня пользователя.
В окне метаданных на закладке интерфейсы отредактируем меню, если малоли что осталось, например новый неправильно созданный документ или т.п.
Рис. 16
В редакторе список панелей можно создать кнопки прямого доступа например к справочникам или документам.
Заключение
Контроль товародвижения на предприятии розничной торговли одна из важнейших целей управления. В процессе работы отдела предпринимателя Юшенковой использовались технические средства для контроля товарооборота. Конечно использовать написанные от руки накладны на типографских бланка уже вряд ли кто-то будет. Но даже использование некоторых программных продуктов не давало желаемых результатов. С составлением товарных накладных проблем нет. Ведь для этой цели можно использовать даже Microsoft Office Excel, создав табличный шаблон и с поступлением товара просто вписывать дату, номенклатуру и прочее. Существуют и более интересные программы, например Бизнес Пак. Этот программный продукт служит для создания документов по товарообороту, он бесплатный, доступный и удобный в использовании. Но минус его в том, что в нем нет функции контроля. Создавая накладную просто создаем печатную форму, которая может хранится либо в электронном либо печатном виде, а сейчас передо мной встала проблема оперативного просмотра информации о товаре. Если вести разговор о больших вещах, то большой сложности в этом нет. Площадь маленькая и в принципе видно что где лежит и сколько, но когда речь идет о расходных материалах, тут могут возникнуть проблемы. Созданный программный продукт позволяет в режиме реальн