Создание информационной подсистемы склада торгового пред-приятия с помощью программы «1С:Предприятие 7.7
Курсовая работа, 08 Декабря 2011, автор: пользователь скрыл имя
Описание работы
Основной задачей промышленных предприятий является наиболее полное обеспечение спроса населения высококачественной продукцией. Темпы роста объема производства продукции, повышение ее качества непосредственно влияют на величину издержек, прибыль и рентабельность предприятия. Именно поэтому очень важно уделять особое внимание учету товаров на складе предприятия, так как это основное звено любого торгового предприятия.
Содержание
Введение 4
1 Выбор и описание объекта автоматизации 6
1.1 Экономическая сущность учета складских операций 9
1.2 Поступление товаров на склад 13
1.3 Отпуск товаров со склада 13
2 Факторы, определяющие принятое решение по созданию подсистемы 15
2.1 Обзор существующих программных средств 15
2.2 Экономическая целесообразность создания подсистемы 18
3 Технико-экономическое обоснование создания подсистемы 22
3.1 Обоснование цели создания подсистемы 22
3.2 Обоснование и выбор видов обеспечения 23
3.3 Информационное обеспечение 23
3.3.1 Входная информация 25
3.3.2 Выходная информация 25
3.3.3 Используемые классификаторы и кодификаторы 25
3.4 Разработка диаграмм Rational Rose 26
3.5 Подготовка технического обеспечения 29
4 Машинная реализация задачи 30
4.1 Описание структуры базы данных 30
4.2 Программная реализация задачи 32
4.2.1 Создание отчетов 34
5 Инструкция по работе с приложением 36
6 Оценка защищенности информационной системы 38
Заключение 39
Список используемых источников 40
Приложения 41
Приложение А 42
Техническое задание 42
Приложение Б 48
Экранные формы 48
Приложение В 51
Отчеты 51
Приложение Г 53
Листинг программы 53
Работа содержит 1 файл
КП - Склад.doc
— 570.50 Кб (Скачать)ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию(
КонецЦикла;
Таб.ВывестиСекцию("
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать ПриходнаяНакладная","");
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ
Расходная накладная:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(
КонецПроцедуры
//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("
Таб.ВывестиСекцию("
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию(
КонецЦикла;
Таб.ВывестиСекцию("
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать РасходнаяНакладная","");
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ
Отчет по невостребованным товарам:
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(
|Период с (НачМесяца(ТекущаяДата())) по (КонМесяца(ТекущаяДата()));
|ОбрабатыватьДокументы все;
|Без итогов;
|Товары
= Справочник.Товары.
|Группировка
Товары упорядочить по Товары.
|"//}}ЗАПРОС;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
//
Подготовка к заполнению
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка() = 1 Цикл
// Заполнение полей Сформировать
Таб.ВывестиСекцию(
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("
КонецПроцедуры