Создание информационной подсистемы склада торгового предприятия с помощью программы «1С:Предприятие 7.7»

• установка программного обеспечения системы на ЭВМ;
• обучение персонала (кладовщика) работе с программным обеспечением;
• заполнение базы данных.

 

8 Документирование проекта

Необходимо предоставить следующие документы: техническое  задание, технический проект, рабочий проект, программное приложение.

 

9 Источники разработки

• ГОСТ 24_202-80_ Документация на АСУ_ТЭО;
• ГОСТ 34.602-89 ТЗ на АС;
• «1С:Предприятие 7.7», конфигурация «Торговля и склад», редакция 9.2.

 

 

 

 

 

 

 

 

 

 

Приложение Б

Экранные формы

(с. 48 - 50)

 

 

 

 

 

 

 

 

 

 

 

 

 

Рисунок 13 – Приходная накладная

 

 

 

 

Рисунок 14 – Печатная форма приходной накладной

 

 

 

Рисунок 15 – Расходная накладная

 

 

Рисунок 16 – Печатная форма расходной накладной

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение В

Отчеты

(с. 51 - 52)

 

 

 

 

 

 

 

 

 

 

 

 

Рисунок 17 – Отчет по невостребованным товарам на складе

 

 

 

 

 

 

 

Приложение Г

Листинг программы

(с. 53 - 56)

 

Приходная накладная:

Перем Товары;

 

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

 

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

 

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,0,0);

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

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

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать ПриходнаяНакладная","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

 

Расходная накладная:

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

 

//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,0,0);

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

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

Таб.ВывестиСекцию("Строка");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать РасходнаяНакладная","");

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

//}}ПРОЦЕДУРА_ПЕЧАТИ

 

Отчет по невостребованным товарам:

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта  типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с (НачМесяца(ТекущаяДата())) по (КонМесяца(ТекущаяДата()));

|ОбрабатыватьДокументы  все;

|Без итогов;

|Товары = Справочник.Товары.ТекущийЭлемент;

|Группировка Товары  упорядочить по Товары.Код, Товары.Наименование, Товары.Цена;

|"//}}ЗАПРОС;

// Если ошибка в  запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

 

// Подготовка к заполнению  выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей  "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка() = 1 Цикл

// Заполнение полей  Сформировать

Таб.ВывестиСекцию("Сформировать");

КонецЦикла;

// Вывод заполненной  формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

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