Экспериментальная часть.
Разработка конфигурации для ведения учета продовольственного магазина
Использование данной АИС предоставит предприятию возможность быть полноправной информационной среды, воспользовавшись преимуществами компьютерных и телекоммуникационных технологий. ВЫБРАТЬ НачисленияБазаНачисления. РезультатБаза КАК База, НачисленияБазаНачисления. НомерСтроки КАК НомерСтроки ИЗ РегистрРасчета.Начисления.БазаНачисления (&ИзмеренияОсновного,. КонецПроцедуры Процедура… Читать ещё >
Экспериментальная часть. Разработка конфигурации для ведения учета продовольственного магазина (реферат, курсовая, диплом, контрольная)
Тестирование приложений
РисунокВход в систему под пользователем «Директор»
Вход в систему под пользователем «Директор» как показано на рисунке.
Рисунок — Рабочее место руководителя.
Рисунок — Выбор вида графика работы.
Рисунок — Выбор начисления.
Рисунок — Вход в систему под пользователем «Бухгалтер».
Рисунок — Ввод наименования и тип дополнительного свойства номенклатуры.
Создание дополнительного значения номенклатуры как показано на рисунке. компьютерный база данный проект.
Рисунок — Ввод наименования, группы номенклатуры, вида номенклатуры и массы товара.
Рисунок — Вход в систему под пользователем «Кассир».
Заключение
В ходе выполнения курсовой работы развиты навыки и умения проектирования структуры реализационной базы данных. Дано краткое описание предметной области, определены требования, основные условия для использования АИС «продовольственного магазина „На скорую руку“».
АИС объединяет программно-аппаратные средства, обеспечивающие взаимодействие человека с компьютером, организует хранение и обработку данных по средствам СУБД, предоставляет возможность ввода и вывода информации.
Использование данной АИС предоставит предприятию возможность быть полноправной информационной среды, воспользовавшись преимуществами компьютерных и телекоммуникационных технологий.
Список используемых источников
.
- 1 Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы. — М.: ООО «1C-Паблишинг», 2013 г.
- 2 Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.2. Практическое пособие разработчика. Примеры и типовые приемы. — М.: ООО «1C-Паблишинг», 2009 г.
Приложение Текст программы Содержание общего модуля «Работа с документами»:
Процедура РассчитатьСумму (СтрокаТабличнойЧасти) Экспорт СтрокаТабличнойЧасти. Сумма = СтрокаТабличнойЧасти. Количество * СтрокаТабличнойЧасти. Цена;
КонецПроцедуры Процедура РассчитатьСуммуБезНДС (СтрокаТабличнойЧасти) Экспорт СтрокаТабличнойЧасти. СуммаБезНДС = СтрокаТабличнойЧасти. Количество * СтрокаТабличнойЧасти. Цена;
КонецПроцедуры Процедура РассчитатьСтоимость (СтрокаТабличнойЧасти) Экспорт СтрокаТабличнойЧасти. Стоимость =СтрокаТабличнойЧасти.СуммаБезНДС + (СтрокаТабличнойЧасти.СуммаБезНДС * СтрокаТабличнойЧасти. Процент);
КонецПроцедуры Содержание общего модуля «Работа со справочниками»:
Функция РоничнаяЦена (АктуальнаяДата, ЭлементНоменклатуры) Экспорт Отбор = Новый Структура («Номенклатура», ЭлементНоменклатуры);
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. Цена;
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. НомерШтрихКодаТовара;
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. НомерКодаТовара;
КонецФункции Функция ШтрихКод (АктуальнаяДата, ЭлементНоменклатуры) Экспорт Отбор = Новый Структура («Номенклатура», ЭлементНоменклатуры);
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. ШтрихКод;
КонецФункции Функция Артикул (АктуальнаяДата, ЭлементНоменклатуры) Экспорт Отбор = Новый Структура («Номенклатура», ЭлементНоменклатуры);
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. Артикул;
КонецФункции Функция Цена (АктуальнаяДата, ЭлементНоменклатуры) Экспорт Отбор = Новый Структура («Номенклатура», ЭлементНоменклатуры);
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. Цена;
КонецФункции Функция Скидка (АктуальнаяДата, ЭлементПользователи) Экспорт Отбор = Новый Структура («Пользователь», ЭлементПользователи);
ЗначенияРесурсов = РегистрыСведений.НакопительнаяСистема.ПолучитьПоследнее (АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов. Скидка;
КонецФункции Содержание общего модуля «Скидка»:
Процедура РассчитатьСуммуСоСкидкой (СтрокаТабличнойЧасти) Экспорт СтрокаТабличнойЧасти. Итого = СтрокаТабличнойЧасти. СуммаБезСкидки + (СтрокаТабличнойЧасти.СуммаБезСкидки * СтрокаТабличнойЧасти. Скидка);
КонецПроцедуры Содержание общего модуля «Проведение расчетов»:
Процедура РассчитатьНачисления (НаборЗаписейРегистра, ТребуемыйВидРасчета, СписокСотрудников) Экспорт Регистратор = НаборЗаписейРегистра.Отбор.Регистратор.Значение;
Если ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Оклад Тогда Запрос = Новый Запрос;
Запрос.Текст =.
" ВЫБРАТЬ НачисленияДанныеГрафика. ЗначениеПериодДействия КАК Норма, НачисленияДанныеГрафика. ЗначениеФактическийПериодДействия КАК Факт, НачисленияДанныеГрафика. НомерСтроки КАК НомерСтроки ИЗ РегистрРасчета.Начисления.ДанныеГрафика (Регистратор = &Регистратор И ВидРасчета = &ВидРасчета И Сотрудник В (&СписокСотрудников)).
КАК НачисленияДанныеГрафика" ;
Запрос.УстановитьПараметр («Регистратор», Регистратор);
Запрос.УстановитьПараметр («ВидРасчета», ТребуемыйВидРасчета);
Запрос.УстановитьПараметр («СписокСотрудников», СписокСотрудников);
ВыборкаРезультата = Запрос. Выполнить ().Выбрать ();
Для Каждого ЗаписьРегистра Из НаборЗаписейРегистра Цикл СтруктураНомер = Новый Структура («НомерСтроки»);
СтруктураНомер.НомерСтроки = ЗаписьРегистра. НомерСтроки;
ВыборкаРезультата.Сбросить ();
Если ВыборкаРезультата. НайтиСледующий (СтруктураНомер) Тогда Если ВыборкаРезультата. Норма = 0 Тогда Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = «Вид расчета: Оклад — Нет рабочих дней в заданном периоде» ;
Сообщение.Сообщить ();
ЗаписьРегистра.Результат = 0;
Иначе ЗаписьРегистра. Результат = (ЗаписьРегистра.ИсходныеДанные/ВыборкаРезультата.Норма) * ВыборкаРезультата. Факт;
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = «Выполнен расчет «+ ЗаписьРегистра. Регистратор
+ «- «+ ЗаписьРегистра. ВидРасчета + «- «+.
ЗаписьРегистра.Сотрудник;
Сообщение.Сообщить ();
КонецЕсли;
КонецЕсли;
КонецЦикла;
ИначеЕсли ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Премия Тогда Запрос = Новый Запрос;
Запрос.Текст =.
" ВЫБРАТЬ НачисленияБазаНачисления. РезультатБаза КАК База, НачисленияБазаНачисления. НомерСтроки КАК НомерСтроки ИЗ РегистрРасчета.Начисления.БазаНачисления (&ИзмеренияОсновного,.
&ИзмеренияБазового,, Регистратор =.
&Регистратор И ВидРасчета = &ВидРасчета И Сотрудник В (&СписокСотрудников)).
КАК НачисленияБазаНачисления" ;
Измер = Новый Массив (1);
Измер[0] = «Сотрудник» ;
Запрос.УстановитьПараметр («ИзмеренияОсновного», Измер);
Запрос.УстановитьПараметр («ИзмеренияБазового», Измер);
Запрос.УстановитьПараметр («Регистратор», Регистратор);
Запрос.УстановитьПараметр («ВидРасчета», ТребуемыйВидРасчета);
Запрос.УстановитьПараметр («СписокСотрудников», СписокСотрудников);
ВыборкаРезультата = Запрос. Выполнить ().Выбрать ();
Для Каждого ЗаписьРегистра Из НаборЗаписейРегистра Цикл СтруктураНомер = Новый Структура («НомерСтроки»);
СтруктураНомер.НомерСтроки = ЗаписьРегистра. НомерСтроки;
ВыборкаРезультата.Сбросить ();
Если ВыборкаРезультата. НайтиСледующий (СтруктураНомер) Тогда ЗаписьРегистра. Результат = ВыборкаРезультата. База * (10 / 100);
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = «Выполнен расчет «+ ЗаписьРегистра. Регистратор + «- «+.
ЗаписьРегистра.ВидРасчета + «- «+ ЗаписьРегистра. Сотрудник;
Сообщение.Сообщить ();
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры Процедура ПерерассчитатьНачисления (ТребуемыйВидРасчета) Экспорт Запрос = Новый Запрос (.
" ВЫБРАТЬ НачисленияПерерасчет. ОбъектПерерасчета КАК ОбъектПерерасчета, НачисленияПерерасчет. Сотрудник ИЗ РегистрРасчета.Начисления.Перерасчет КАК НачисленияПерерасчет ГДЕ НачисленияПерерасчет. ВидРасчета = &ТребуемыйВидРасчета ИТОГИ ПО ОбъектПерерасчета");
Запрос.УстановитьПараметр («ТребуемыйВидРасчета», ТребуемыйВидРасчета);
СписокСотрудников = Новый СписокЗначений;
ВыборкаПоРегистратору = Запрос. Выполнить ().Выбрать (ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаПоРегистратору. Следующий () Цикл Регистратор = ВыборкаПоРегистратору. ОбъектПерерасчета;
ВыборкаПоСотрудникам = ВыборкаПоРегистратору. Выбрать ();
СписокСотрудников.Очистить ();
Пока ВыборкаПоСотрудникам. Следующий () Цикл СписокСотрудников. Добавить (ВыборкаПоСотрудникам.Сотрудник);
КонецЦикла;
НаборЗаписей = РегистрыРасчета.Начисления.СоздатьНаборЗаписей ();
НаборЗаписей.Отбор.Регистратор.Значение = Регистратор;
НаборЗаписей.Прочитать ();
РассчитатьНачисления (НаборЗаписей, ТребуемыйВидРасчета, СписокСотрудников);
НаборЗаписей.Записать (, Истина);
НаборЗаписейПерерасчета =.
РегистрыРасчета.Начисления.Перерасчеты.Перерасчет.СоздатьНаборЗаписей ();
НаборЗаписейПерерасчета.Отбор.ОбъектПерерасчета.Значение = Регистратор;
НаборЗаписейПерерасчета.Записать ();
КонецЦикла;
КонецПроцедуры Содержание модуля объекта «Продажа»:
Процедура ОбработкаПроведения (Отказ, Режим) Движения.ОстаткиМатериалов.Записывать = Истина;
Движения.СтоимостьМатериалов.Записывать = Истина;
Движения.Продажи.Записывать = Истина;
Движения.Управленческий.Записывать = Истина;
МенеджерВТ = Новый МенеджерВременныхТаблиц;
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос.Текст =.
" ВЫБРАТЬ ПродажаТовары. Наименование КАК Наименование, СУММА (ПродажаТовары.Сумма) КАК СуммаВДокументе, СУММА (ПродажаТовары.Количество) КАК КоличествоВДокументе, ПродажаТовары.Наименование.ВидНомеклатура КАК ВидНоменклатуры ПОМЕСТИТЬ ТоварыДокумента ИЗ Документ.Продажа.Товары КАК ПродажаТовары ЛЕВОЕ СОЕДИНЕНИЕ Документ. Продажа КАК Продажа ПО ПродажаТовары. Ссылка = Продажа. Ссылка ГДЕ ПродажаТовары. Ссылка = &Ссылка СГРУППИРОВАТЬ ПО ПродажаТовары.Наименование.ВидНомеклатура, ПродажаТовары. Наименование" ;
Запрос.УстановитьПараметр («Ссылка», Ссылка);
Результат = Запрос. Выполнить ();
Запрос2 = Новый Запрос;
Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос2.Текст = «ВЫБРАТЬ ЕСТЬNULL (ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество, ЕСТЬNULL (СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость, ТоварыДокумента. Наименование, ТоварыДокумента. ВидНоменклатуры, ТоварыДокумента. СуммаВДокументе, ТоварыДокумента. КоличествоВДокументе ИЗ ТоварыДокумента КАК ТоварыДокумента ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки КАК ОстаткиМатериаловОстатки ПО ТоварыДокумента. Наименование = ОстаткиМатериаловОстатки. Материал ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки КАК СтоимостьМатериаловОстатки ПО ТоварыДокумента. Наименование = СтоимостьМатериаловОстатки. Материал» ;
Движения.СтоимостьМатериалов.БлокироватьДляИзменения = Истина;
Движения.ОстаткиМатериалов.БлокироватьДляИзменения = Истина;
Движения.СтоимостьМатериалов.Записать ();
Движения.ОстаткиМатериалов.Записать ();
Результат = Запрос2. Выполнить ();
ТЗ=Результат.Выгрузить ();
ТекСтрокаТовары = Результат. Выбрать ();
Пока ТекСтрокаТовары. Следующий () Цикл Если ТекСтрокаТовары. Количество = 0 Тогда СтоимостьМатериала = 0;
Иначе СтоимостьМатериала = ТекСтрокаТовары. Стоимость / ТекСтрокаТовары. Количество;
КонецЕсли;
если ТекСтрокаТовары.Наименование.ВидНомеклатура = Перечисления.ВидыНоменклатуры.Товар тогда Движение = Движения.Управленческий.Добавить ();
Движение.СчетДт = ПланыСчетов.Основной.ТоварыВРознице;
Движение.СчетКт = ПланыСчетов.Основной.Касса;
Движение.Период = Дата;
Движение.КоличествоДт = ТекСтрокаТовары. КоличествоВДокументе;
Движение.Сумма = ТекСтрокаТовары. СуммаВДокументе;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы] = ТекСтрокаТовары. Наименование;
Движение = Движения.Продажи.Добавить ();
Движение.Период = Дата;
Движение.Номенклатура = ТекСтрокаТовары. Наименование;
Движение.Кассир = Кассир;
Движение.Количество = ТекСтрокаТовары. КоличествоВДокументе;
Движение.Выручка = ТекСтрокаТовары. СуммаВДокументе;
Движение = Движения.СтоимостьМатериалов.Добавить ();
Движение.ВидДвижения = ВидДвиженияНакопления. Расход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаТовары. Наименование;
Движение.Стоимость = ТекСтрокаТовары. СуммаВДокументе;
Движение = Движения.ОстаткиМатериалов.Добавить ();
Движение.ВидДвижения = ВидДвиженияНакопления. Расход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаТовары. Наименование;
Движение.Количество = ТекСтрокаТовары. КоличествоВДокументе;
КонецЕсли;
КонецЦикла;
Движения.Записать ();
Если Режим = РежимПроведенияДокумента. Оперативный Тогда Запрос3 = Новый Запрос;
Запрос3.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос3.Текст = «ВЫБРАТЬ ОстаткиМатериаловОстатки. Материал, ОстаткиМатериаловОстатки. КоличествоОстаток ИЗ РегистрНакопления.ОстаткиМатериалов.Остатки (.
Материал В.
(ВЫБРАТЬ ТоварыДокумента. Наименование ИЗ ТоварыДокумента)) КАК ОстаткиМатериаловОстатки ГДЕ ОстаткиМатериаловОстатки. КоличествоОстаток < 0″ ;
Запрос3.УстановитьПараметр («Склад», Склад);
РезультатЗапроса = Запрос3. Выполнить ();
ТекСтрокаТовары = РезультатЗапроса. Выбрать ();
Пока ТекСтрокаТовары. Следующий () Цикл Сообщение = Новый СообщениеПользователю ();
Сообщение.Текст = «Не хватает «+ Строка (- ТекСтрокаТовары. КоличествоОстаток) +.
" единиц материала «» «+ ТекСтрокаТовары. Материал + «» «» ;
Сообщение.Сообщить ();
Отказ = Истина;
КонецЦикла;
КонецЕсли;
КонецПроцедуры Содержание модуля менеджера «Продажа»:
Процедура Печать (ТабДок, Ссылка) Экспорт.
//[1]
КонецПроцедуры Содержание модуля объекта «Приходная накладная»:
Процедура ОбработкаПроведения (Отказ, Режим) Движения.ОстаткиМатериалов.Записывать = Истина;
Движения.СтоимостьМатериалов.Записывать = Истина;
Движения.Управленческий.Записывать = Истина;
Для Каждого ТекСтрокаСодержание Из Содержание Цикл Движение = Движения.СтоимостьМатериалов.Добавить ();
Движение.ВидДвижения = ВидДвиженияНакопления. Приход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаСодержание. Наименование;
Движение.Стоимость = ТекСтрокаСодержание. СуммаБезНДС;
Движение = Движения.ОстаткиМатериалов.Добавить ();
Движение.ВидДвижения = ВидДвиженияНакопления. Приход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаСодержание. Наименование;
Движение.Количество = ТекСтрокаСодержание. Количество;
Движение = Движения.Управленческий.Добавить ();
Движение.СчетДт = ПланыСчетов.Основной.Товары;
Движение.СчетКт = ПланыСчетов.Основной.РасчетыСПоставщиками;
Движение.Период = Дата;
Движение.КоличествоДт = ТекСтрокаСодержание. Количество;
Движение.Сумма = ТекСтрокаСодержание. СуммаБезНДС;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы] = ТекСтрокаСодержание. Наименование;
КонецЦикла КонецПроцедуры Содержание модуля менеджера «Приходная накладная»:
Процедура Печать (ТабДок, Ссылка) Экспорт.