Разработка АРМ менеджера отдела продаж ЗАО «ВПЗ»

Автор работы: Пользователь скрыл имя, 13 Мая 2013 в 19:47, курсовая работа

Краткое описание

Данная система предназначена для накопления и обработки информации, необходимой для ведения базы данных по поставке и продаже товаров, формирования отчетных документов на основе имеющихся данных.
Цели создания системы:
-сбор, хранение, обработка и оперативная выдача информации;
-хранение всей информации в одном месте;
-повышение эффективности управления за счет оперативности принятия и повышения качества управленческих решений;
-повышение достоверности данных и оперативности информационного обслуживания;
-рационализация использования ресурсов (персонала, аппаратуры, оснащения).

Содержание

Введение 4
1. Теоретическая часть 5

1.1 Краткие сведения о структуре организации 5
1.2
Описание входной и выходной информации ПО (входные документы и отчеты).
6
1.3. Структура БД. 6
1.4. UML – диаграмма. 8

2. Проектная часть 9

2.1
2.2 Выбор средств разработки
Обоснование выбранной среды программирования 9
10
2.3 Сценарий работы приложения 12
2.3.1 Отдел продаж 12
2.3.2 Бухгалтерия 17
2.3.3 Склад 20

Заключение 22

Список литературы 23
Приложения 24
Листинг программы 24

Вложенные файлы: 1 файл

Разработка АРМ менеджера отдела продаж ЗАО «ВПЗ».doc

— 1.25 Мб (Скачать файл)

КонецЦикла;

 

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести(ОбластьИтог);

 

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

 

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

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

 

Процедура заполнения макета Приходный кассовый ордер

Процедура Печать(ТабДок, Ссылка) Экспорт

 

Макет = Документы.ПриходныйКассовыйОрдер.ПолучитьМакет("Печать");

Запрос = Новый  Запрос;

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

"ВЫБРАТЬ

|ПриходныйКассовыйОрдер.Дата,

|ПриходныйКассовыйОрдер.Контрагент,

|ПриходныйКассовыйОрдер.Номер,

|ПриходныйКассовыйОрдер.Ответственный,

|ПриходныйКассовыйОрдер.Склад,

|ПриходныйКассовыйОрдер.Товар.(

|НомерСтроки,

|Номенклатура,

|Количество,

|ЕдИзм,

|Цена,

|Сумма

|)

|ИЗ

|Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер

|ГДЕ

|ПриходныйКассовыйОрдер.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

 

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьТоварШапка = Макет.ПолучитьОбласть("ТоварШапка");

ОбластьТовар = Макет.ПолучитьОбласть("Товар");

ОбластьИтог = Макет.ПолучитьОбласть("Всего");

Подвал = Макет.ПолучитьОбласть("Подвал");

 

ТабДок.Очистить();

 

ВставлятьРазделительСтраниц = Ложь;

 

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц  Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

 

ТабДок.Вывести(ОбластьЗаголовок);

 

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

 

ТабДок.Вывести(ОбластьТоварШапка);

ВыборкаТовар = Выборка.Товар.Выбрать();

СуммаИтог = 0;

 

Пока ВыборкаТовар.Следующий() Цикл

ОбластьТовар.Параметры.Заполнить(ВыборкаТовар);

ТабДок.Вывести(ОбластьТовар, ВыборкаТовар.Уровень());

СуммаИтог = СуммаИтог + ВыборкаТовар.Сумма;

КонецЦикла;

 

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести(ОбластьИтог);

 

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

 

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

 

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

 

Процедуры автоматического расчета суммы табличной части

 

Процедура РасчитатьСумму(СтрокаТЧ) Экспорт 

СтрокаТЧ.Сумма = СтрокаТЧ.Количество*СтрокаТЧ.Цена;

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

 

&НаКлиенте

Процедура ТоварЦенаПриИзменении(Элемент)

СтрокаТЧ = Элементы.Товар.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТЧ);

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

 

&НаКлиенте

Процедура ТоварКоличествоПриИзменении(Элемент)

СтрокаТЧ = Элементы.Товар.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТЧ);

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

 

&НаКлиенте

Процедура ТоварНоменклатураПриИзменении(Элемент)

СтрокаТЧ = Элементы.Товар.ТекущиеДанные;

СтрокаТЧ.Цена = РаботаСоСправочниками.РозничнаяЦена(Объект.Дата, СтрокаТЧ.Номенклатура);

РаботаСДокументами.РасчитатьСумму(СтрокаТЧ);

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

 

Процедура ввода на основании документа  Приходный кассовый ордер

 

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

 

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РеализацияТоваровИУслуг") Тогда

// Заполнение  шапки

Контрагент = ДанныеЗаполнения.Контрагент;

Ответственный = ДанныеЗаполнения.Ответственный;

Склад = ДанныеЗаполнения.Склад;

Для Каждого  ТекСтрокаТовар Из ДанныеЗаполнения.Товар  Цикл

НоваяСтрока = Товар.Добавить();

НоваяСтрока.ЕдИзм = ТекСтрокаТовар.ЕдИзм;

НоваяСтрока.Количество = ТекСтрокаТовар.Количество;

НоваяСтрока.Номенклатура = ТекСтрокаТовар.Номенклатура;

НоваяСтрока.Сумма = ТекСтрокаТовар.Сумма;

НоваяСтрока.Цена = ТекСтрокаТовар.Цена;

КонецЦикла;

КонецЕсли;

 

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


Информация о работе Разработка АРМ менеджера отдела продаж ЗАО «ВПЗ»