Файл: Разработка и реализация конфигураций 1С: Предприятие. Анализ предприятия ООО «Мебель» и его информационной системы.pdf

Затем открывается конструктор запроса, далее в поле таблицы переносится документ «Заявка» где выбираются поля, которые должны быть выведены в макет отчета (рисунок 2.14) [16]

Рисунок 1.8 - окно «Конструктор запроса»

Получается:

ВЫБРАТЬ

Заявка.Номер,

Заявка.Дата,

Заявка.Контенген,

Заявка.Сотрудники.(

Сотрудник,

Услуга

)

ИЗ

Документ.Заявка КАК Заявка.

3.2 Результаты тестирования программы

В заключении написания конфигурации был проведен тестовый прогон всех реализованных документов и отчетов. Рассмотрим работоспособность программы на прримере докумнта «Заявка» и отчета «Журнал Заявок».

По команде «Продажа»  «Заявка» откроется новый документ(рисунок 3.1)

Рисунок 1.9 - Создание нового документа «Заявка»

Номер и дата нового документа заполняются автоматически. Поле «Контрагент» выбирается из справочника «Контрагенты» (рисунок 3.2), «Организация» - из списка (рисунок 3.3), ответственный выбирается из справочника «Сотрудники организации» нажатием на .

Рисунок 2.0 - Выбор организации

Рисунок 2.1 - Выбор контрагента

По кнопке «Ок» документ проводим и сохраняем документ. Таким же образом добавим еще несколько заявок (рисунок 3.4).

Рисунок 2.2 - Список заявок

На основе введенных данных сформируем отчет. По команде «Отчеты»  «Журнал Заявок» откроется окно отчета, где по кнопке «Сформировать» данные выведутся на экран (рисунок 3.5)

Рисунок 2.3 - Отчет «Журнал заявок»

ЗАКЛЮЧЕНИЕ

При выполнении курсовой работы решены следующие задачи:

Был проведен анализ производственных процессов предприятия ООО «Мебель». Выяснено, что предприятие автоматизировано частично и информационные системы работают обособленно.

Найдены процессы, которые нуждаются в автоматизации:

Проведен тщательный анализ данного предприятия, изучена организационная структура предприятия;
Дана краткая характеристика бизнес-процессам ООО «Мебель»;
Выявлены, процессы, которые нуждаются в автоматизации. Обоснована необходимость в их автоматизации;
Разработана конфигурация «1С: Предприятие ООО «Мебель»;
Проведено тестирование;

После внедрения разработанной конфигурации затраты времени офис- менеджера на формирование документации и отчетности сократились с 165 до 13 часов в месяц, т. е. примерно в 12 раз.

Таким образом, приходим к заключительному выводу о том, что разработка конфигурации «Предприятие» является экономически обоснованной и эффективной.

Поставленная перед курсовой работы цель, повышения оперативности, достоверности и качества учета производства достигнута.

Список источников

1. Кузнецов, И. Н., <http://eos.ru/eos/236239>Деловое письмо [Текст] / И. Н. Кузнецов, М.: Издательство «Издательский дом Дашков и К», 2007 г.

Титоренко Г.А. Автоматизированные информационные технологии в экономике: [Текст] / Г.А. Титоренко,. - М.: Компьютер, ЮНИТИ, 1998г.

Рязанцева, Н. 1С Предприятие 8.2. Управление торговлей. Секреты работы [Текст] / Н. Рязанцева, СПб.: Питер, 2009 г. - 103 с.

Рязанцева, Н.-1С Предприятие_Торговля и Склад. Секреты работы [Текст] / Н. Рязанцева, СПб.: Питер, 2009 г. - 121 с.

Рязанцева Н.,1С: Предприятие. Бухгалтерский учёт [Текст] / Н. Рязанцева, СПб.: Питер, 2010 г. - 105 с.

Козырев, Д.В. - 1С Предприятие v8 Методические материалы [Текст] / Д.В. Козырев, М.: «1С-Учебный центр №3», 2010 г. - 92 с.

Радченко, М.Г. - Решение задач бухгалтерского учета 1Cv8 [Текст] / М.Г. Радченко, М.: ООО «1С-Паблишинг», 2009 г. - 59 с.

. Илюшечкин, В.М.

Основы использования и проектирования баз данных [Текст] / В.М. Илюшечкин, М.: «Юрайт ИД Юрайт», 2011 г. 231 с.9. <http://www.sprinter.ru/books/1633075.html>Соколов, Я.В. Бухгалтерский учет - веселая наука [Текст] / Я.В. Соколов, М., 2009 г. - 638 с.

. Самарина, Е.В. Секреты профессиональной работы с «1С: Бухгалтерией 8». Учет производственных операций [Текст] / Е.В. Самарина, С.А. Харитонов, Д.В.Чистов, М., 2009 г. - 437 с.

. Архипова, Н. И. Исследование систем управления. Учебное пособие для вузов [Текст] / Н. И. Архипова. - М.: «Издательство ПРИОР», 2002 г. - 214 с.

. Харитонов, С.А. Секреты профессиональной работы с «1С:Бухгалтерией 8». УЧЕТ ОСНОВНЫХ СРЕДСТВ [Текст] / С.А. Харитонов, Д.В. Чистов, М.: Инфра-М, 2003 г. - 280 с

. Михайлов, А. 1С: Предприятие 8.2 системное программирование [Текст] / А. Михайлов, М: OOO «1С-Паблишинг» 2009 г. - 218 с.

. Дубянский, В. 1С: Предприятие. Конфигурирование и администрирование для начинающих [Текст] / В. Дубянский, СПб: «БХВ-Петербург», 2010 г. - 170 с.

. Радченко, М.Г. - Практическое пособие разработчика [Текст] / М.Г. Радченко, М: OOO «1С-Паблишинг» 2009 г. - 169 с.

. Михайлов, С. Е. 1С программирование как дважды два [Текст] / С. Е. Михайлов, М.: «Издательство ПРИОР», 2009 г. - 214 с.

. Харитонов, С.А. - Введение в конфигурирование в системе «1С - Предприятие 8.2». Основные объекты [Текст]/ , С.А. Харитонов СПб.: Питер, 2010. - 89 с.

Приложение

Приложение А

ЛИСТИНГ ПРОГРАММЫ

автоматизация подсистема программный интерфейс

РеализацияТоваровУслуг

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

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");

ТабДокумент.Вывести(ОбластьМакета);

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

СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;

ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;

ТабДокумент.Вывести(ОбластьМакета);

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

СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);

ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

ОбластьМакета.Параметры.Получатель = Шапка.Получатель;

ТабДокумент.Вывести(ОбластьМакета);

ЕстьСкидки = Ложь;

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

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

ТабДокумент.Вывести(ОбластьМакета);

НомерСтроки = 0;

Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл

НомерСтроки = НомерСтроки + 1;

ОбластьСтроки.Параметры.Заполнить(СтрокаТабличнойЧасти);

ОбластьСтроки.Параметры.НомерСтроки = НомерСтроки;

ОбластьСтроки.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);

Если Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда

ОбластьСтроки.Параметры.Цена = СтрокаТабличнойЧасти.Сумма / ?(СтрокаТабличнойЧасти.Количество = 0, 1, СтрокаТабличнойЧасти.Количество);

КонецЕсли;

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

КонецЦикла;

Если ТаблицаУслуги <> Неопределено Тогда

Сумма = ТаблицаУслуги.Итог("Сумма");

Иначе

Сумма = 0;

СуммаНДС = 0;

КонецЕсли;

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

ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);

ТабДокумент.Вывести(ОбластьМакета);

Если Шапка.УчитыватьНДС Тогда

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

Если СуммаНДС <> 0 Тогда

Иначе

ОбластьМакета.Параметры.ВсегоНДС = "-";

ОбластьМакета.Параметры.НДС = "Без налога (НДС)";

КонецЕсли;

ТабДокумент.Вывести(ОбластьМакета);

КонецЕсли;

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

ТабДокумент.Вывести(ОбластьМакета);

Заявка

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

Попытка

Если ЭтоНовый() Тогда

ЭлементыФормы.Ответственный.Значение = Справочники.Сотрудники.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя).Ссылка;

//ЭлементыФормы.Организация.Значение = Справочники.Организации.НайтиПоНаименованию("").Ссылка;

КонецЕсли;

Исключение

КонецПопытки;

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

ЗаказПоставщику

Перем мДеревоМакетов;

Перем Цена;

Перем Сумма;

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

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(ЭлементыФормы.Товары.ТекущиеДанные, ЭтотОбъект);// Вставить содержимое обработчика.

Всего = Строка(ЭтотОбъект.Товары.Итог("Сумма"));

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

Процедура ПечатьДокумента()

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

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

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

"ВЫБРАТЬ

| ЗаказПоставщику.Организация КАК Покупатель,

| ЗаказПоставщику.Поставщик КАК Поставщик,

| ЗаказПоставщику.Товары.(

| Номенклатура КАК Товар,

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

| Цена,

| Сумма,

| НомерСтроки КАК Номер

|),ЗаказПоставщику.ВалютаДокумента КАК Валюта

|ИЗ

| Документ.ЗаказПоставщику КАК ЗаказПоставщику";

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

Шапка.Следующий();

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

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

Запрос.Текст = "ВЫБРАТЬ

| Номенклатура КАК Товар,

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

| Цена,

| Сумма,

| НомерСтроки КАК Номер

|ИЗ

| Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику";

ЗапросТовары = Запрос.Выполнить().Выгрузить();

ТабДокумент = Новый ТабличныйДокумент;

ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаказПоставщику";

Макет = ПолучитьМакет("Накладная");

// Выводим шапку накладной

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

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Ссылка, "Заказ поставщику");

ТабДокумент.Вывести(ОбластьМакета);

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

СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Ссылка.Дата);

ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;

ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;

ТабДокумент.Вывести(ОбластьМакета);

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

СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Ссылка.Дата);

ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

ОбластьМакета.Параметры.Получатель = Шапка.Покупатель;

ТабДокумент.Вывести(ОбластьМакета);

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

ТабДокумент.Вывести(ОбластьМакета);

НомерСтроки = 0;

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

ОбластьНомера = Макет.ПолучитьОбласть("Строка|Номер");

ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");

Сумма = 0;

Для каждого ВыборкаСтрокТовары из ЗапросТовары Цикл

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

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

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

ТабДокумент.Вывести(Область1);

ТабДокумент.Присоединить(ОбластьНомера);

ТабДокумент.Присоединить(ОбластьДанных);

КонецЦикла;

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

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

ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");

ТабДокумент.Вывести(Область1);

ОбластьДанных.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);

ТабДокумент.Присоединить(ОбластьНомера);

ТабДокумент.Присоединить(ОбластьДанных);

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

СуммаКПрописи = Сумма;

ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего наименований " + ЗапросТовары.Количество()+ ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Ссылка.ВалютаДокумента);

ТабДокумент.Вывести(ОбластьМакета);

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

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

ТабДокумент.Вывести(ОбластьМакета);

ТабДокумент.Показать();

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

Процедура ГиперссылкаЗаказПоставщикуНажатие(Элемент)