Автор работы: Пользователь скрыл имя, 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
КонецЦикла;
ОбластьИтог.Параметры.
ТабДок.Вывести(ОбластьИтог);
Подвал.Параметры.Заполнить(
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Процедура заполнения макета Приходный кассовый ордер
Процедура Печать(ТабДок, Ссылка) Экспорт
Макет = Документы.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|ПриходныйКассовыйОрдер.Дата,
|ПриходныйКассовыйОрдер.
|ПриходныйКассовыйОрдер.Номер,
|ПриходныйКассовыйОрдер.
|ПриходныйКассовыйОрдер.Склад,
|ПриходныйКассовыйОрдер.Товар.
|НомерСтроки,
|Номенклатура,
|Количество,
|ЕдИзм,
|Цена,
|Сумма
|)
|ИЗ
|Документ.
|ГДЕ
|ПриходныйКассовыйОрдер.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок
= Макет.ПолучитьОбласть("
Шапка = Макет.ПолучитьОбласть("Шапка")
ОбластьТоварШапка
= Макет.ПолучитьОбласть("
ОбластьТовар =
Макет.ПолучитьОбласть("Товар")
ОбластьИтог = Макет.ПолучитьОбласть("Всего")
Подвал = Макет.ПолучитьОбласть("Подвал"
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если
ТабДок.
КонецЕсли;
ТабДок.Вывести(
Шапка.Параметры.Заполнить(
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(
ВыборкаТовар = Выборка.Товар.Выбрать();
СуммаИтог = 0;
Пока ВыборкаТовар.Следующий() Цикл
ОбластьТовар.Параметры.
ТабДок.Вывести(ОбластьТовар, ВыборкаТовар.Уровень());
СуммаИтог = СуммаИтог + ВыборкаТовар.Сумма;
КонецЦикла;
ОбластьИтог.Параметры.
ТабДок.Вывести(ОбластьИтог);
Подвал.Параметры.Заполнить(
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Процедуры автоматического расчета суммы табличной части
Процедура РасчитатьСумму(СтрокаТЧ) Экспорт
СтрокаТЧ.Сумма
= СтрокаТЧ.Количество*СтрокаТЧ.
КонецПроцедуры
&НаКлиенте
Процедура ТоварЦенаПриИзменении(Элемент)
СтрокаТЧ = Элементы.Товар.ТекущиеДанные;
РаботаСДокументами.
КонецПроцедуры
&НаКлиенте
Процедура ТоварКоличествоПриИзменении(
СтрокаТЧ = Элементы.Товар.ТекущиеДанные;
РаботаСДокументами.
КонецПроцедуры
&НаКлиенте
Процедура ТоварНоменклатураПриИзменении(
СтрокаТЧ = Элементы.Товар.ТекущиеДанные;
СтрокаТЧ.Цена
= РаботаСоСправочниками.
РаботаСДокументами.
КонецПроцедуры
Процедура ввода на основании документа Приходный кассовый ордер
Процедура ОбработкаЗаполнения(
Если ТипЗнч(ДанныеЗаполнения)
= Тип("ДокументСсылка.
// Заполнение шапки
Контрагент = ДанныеЗаполнения.Контрагент;
Ответственный
= ДанныеЗаполнения.
Склад = ДанныеЗаполнения.Склад;
Для Каждого ТекСтрокаТовар Из ДанныеЗаполнения.Товар Цикл
НоваяСтрока = Товар.Добавить();
НоваяСтрока.ЕдИзм = ТекСтрокаТовар.ЕдИзм;
НоваяСтрока.Количество = ТекСтрокаТовар.Количество;
НоваяСтрока.Номенклатура = ТекСтрокаТовар.Номенклатура;
НоваяСтрока.Сумма = ТекСтрокаТовар.Сумма;
НоваяСтрока.Цена = ТекСтрокаТовар.Цена;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Информация о работе Разработка АРМ менеджера отдела продаж ЗАО «ВПЗ»