Автоматизация процесса складского учета в ООО "Альянс-Трейд"
Дипломная работа - Экономика
Другие дипломы по предмету Экономика
D0__> FreeBSD.
.-">www.parus.ru - сайт компании ООО Парус.
.-">www.galaktika.ru - сайт компании ООО Галактика.
20.www.rugost.com, ГОСТ 34 - Единая автоматизированная система учета кадров всех государственных предприятий.
21.www.ru.wikipedia.org/wiki/Microsoft_Solutions_Framework - стандарт MSF.
22.
. - компания РАО "> - компания РАО ЕЭС
ПРИЛОЖЕНИЕ 1
Моделирование бизнес-процессов предприятия ООО Альянс-Трейд
Рис. 16. Структура деятельности предприятия как есть (AS-IS)
Рис. 17. Декомпозиция структуры организации как есть (AS-IS)
Рис. 18. Работа основного комплексного склада как должно быть (TO-BE)
Рис. 19. Формирование заявки как должно быть (TO-BE)
Рис. 20. Обработка поступающего товара как должно быть (TO-BE)
ПРИЛОЖЕНИЕ 2
Формы документов используемые в ООО Альянс-Трейд
Рис. 21. Счет-фактура
Рис. 22. Поступление товара
Рис. 23. Товарная накладная
Рис. 24. Книга покупок
Рис. 25. Книга продаж
ПРИЛОЖЕНИЕ 3
Окна разработанного модуля Формирования заказа на поставку
// ОПИСАНИЕ ПЕРЕМЕННЫХ
Перем СписокДействий;
Перем СтарыйКлиент;
Перем СтараяДата;
Перем НачальнаяДатаДокумента; // Для контроля даты документа
//************************************************************
// "СЛУЖЕБНЫЕ" ФУНКЦИИ И ПРОЦЕДУРЫ
//************************************************************
// НАЗНАЧЕНИЕ: формирует заголовок окна и заголовок формы
Функция ЗаголовокФормы()
Перем Заголовок, Название;
Заголовок= "Заказ на поставку";
Название= "Заказ №";
Если Выбран() = 1 Тогда
Если Проведен() = 1 Тогда
Заголовок= Заголовок + ".Проведен";
Иначе
Заголовок= Заголовок + ".Не проведен";
КонецЕсли;
Иначе
Заголовок= Заголовок + ".Новый";
КонецЕсли;
Форма.Заголовок(Заголовок);
Возврат Название;
КонецФункции //ЗаголовокФормы
//************************************************************
// НАЗНАЧЕНИЕ: заполняет спецификацию товарами, которых не хватает
Процедура ОбработчикПоКнопкеЗаполнить()
Перем КонтекстДокумента;
КонтекстДокумента=глВзятьКонтекст(Контекст);
ОткрытьФормуМодально("Обработка.ЗаполнениеЗаказа",КонтекстДокумента);
КонецПроцедуры// ОбработчикПоКнопкеЗаполнить
//************************************************************
// НАЗНАЧЕНИЕ: обновлят информационные надписи
Процедура ОбновитьНадписи()
Форма.ТекстОплаты.Заголовок(глСтрокаОплаты(Контекст));
Форма.ТекстФирмы.Заголовок(глСтрокаФирмы(Контекст));
Форма.ТекстОснования.Заголовок(СокрП(Основание));
КонецПроцедуры// ОбновитьНадписи
//************************************************************
Процедура ИспользоватьИнформациюОцене()
Перем ВидимостьКолонкиНДС, ВидимостьКолонкиНП;
ВидимостьКолонкиНДС = 1;
Если ВариантРасчетаНалогов.СтавкаНДСизНоменклатуры = 0 Тогда
Если глПроцентНДС(ВариантРасчетаНалогов.СтавкаНДС) = 0 Тогда
ВидимостьКолонкиНДС= 0;
КонецЕсли;
КонецЕсли;
Форма.СтавкаНДС.Видимость(ВидимостьКолонкиНДС);
ВидимостьКолонкиНП = 1;
Если ВариантРасчетаНалогов.СтавкаНПизНоменклатуры = 0 Тогда
Если глПроцентНП(ВариантРасчетаНалогов.СтавкаНП) = 0 Тогда
ВидимостьКолонкиНП= 0;
КонецЕсли;
КонецЕсли;
Форма.СтавкаНП.Видимость(ВидимостьКолонкиНП);
КонецПроцедуры
//************************************************************
// НАЗНАЧЕНИЕ: возвращает строку, содержащую инфориацию об итогах по колонкам
Функция Итого()
Перем Результат, Всего, СуммаНДС, СуммаНП;
Всего = Итог("Всего");
СуммаНДС = Итог("НДС");
СуммаНП = Итог("СуммаНП");
Результат = ?(Всего= 0, "", " Всего=" + глФРМ(Всего,Валюта, 1))+
?(СуммаНДС= 0, "", " НДС=" + глФРМ(СуммаНДС, Валюта, 1))+
?(СуммаНП= 0, "", " НП=" + глФРМ(СуммаНП,Валюта, 1));
Возврат Результат;
КонецФункции// Итого
//************************************************************
Процедура Пересчет(ИмяРеквизита)
Перем ВремКоэфф, ВремЦена, НовыйТовар;
Если ИмяРеквизита = "Товар" Тогда
Если ПустоеЗначение(Товар) = 1 Тогда
// Удалили товар.
Единица = 0;
Коэффициент = 0;
Цена = 0;
Количество = 0;
Сумма = 0;
СтавкаНДС = 0;
СтавкаНП = 0;
глРассчитатьНалогиПриходногоДокумента(Контекст);
Возврат;
КонецЕсли;
// Определем поменяли ли товар?
НовыйТовар = Нет;
Если ПустоеЗначение(Единица) = 1 Тогда
НовыйТовар = Да;
ИначеЕсли Товар <> Единица.Владелец Тогда
НовыйТовар = Да;
КонецЕсли;
Если НовыйТовар = Нет Тогда
Возврат;
КонецЕсли;
// нужно проверить, чтобы выбранный товар не был набором
Если Товар.ВидТовара = Перечисление.ВидыТоваров.Набор Тогда
Предупреждение("Наборы в документ не добавляются.");
// очистим реквизиты
Товар = ПолучитьПустоеЗначение("Справочник.Номенклатура");
Единица = 0;
Коэффициент = 0;
Цена = 0;
Количество = 0;
Сумма = 0;
СтавкаНДС = 0;
СтавкаНП = 0;
глРассчитатьНалогиПриходногоДокумента(Контекст);
Возврат;
КонецЕсли;
// заполняем единицу
Единица = Товар.Единиц?/p>