Файл: Разработка и реализация конфигураций “музыкальная студия” в среде 1С:Предприятие.pdf
Добавлен: 18.05.2023
Просмотров: 715
Скачиваний: 25
Рисунок 37 - Отчет - Движение материалов
Движения в регистре бухгалтерского учета показаны на рисунке 38.
Рисунок 38 – Движения в регистре бухгалтерского учета
заключение
Автоматизация всех процессов в музыкальной студии является важной задачей.
Сфера управления любого процесса базируется на двух основных понятиях - «действие» и «результат». Действие - это определенные операции, конкретные мероприятия, собрания и т.д. Они могут проходить регулярно, внешне эффектно и демонстрировать неплохую организационную деятельность исполнителей. Но действие - это только средство для достижения какой-то цели, а не сама цель.
Результат - это конечный итог, ради которого и проходили операции, т.е. уровень знаний, воспитанности учащихся, их общекультурная подготовка, степень самостоятельности.
Организация учебного процесса, и управления финансами в образовательных учреждениях сводится к умению планировать результат, целенаправленно регулировать сам процесс обучения и воспитания, в умении выбирать такие операции, которые обеспечивали бы при наименьшей затрате сил, времени и средств эффективное выполнение поставленных задач и целей.
В результате выполнения курсовой работы все поставленные цели достигнуты.
В курсовой работе описаны технологии функционирования ИС, выполнено физическое проектирование БД, разработаны экранные формы ввода-вывода, разработаны функциональные модули.
Информационная система разработана на платформе «1С: Предприятие» версии 8.3 учебная. Данный выбор обусловлен широкими возможностями по ведению учета хозяйственных операций, предоставляемыми системой, а также доступностью программы в учебных целях.
Все поставленные задачи курсовой работы были решены.
список использованной литературы
Учебно-методическая литература
- Бойко Э.В., 1С: Предприятие 8.0. Универсальный самоучитель
- Варкентин В.В. Информационные системы на базе 1 С:Предприятие//Научное сообщество студентов XXI столетия. Технические науки: сб. ст. по мат. XXXIX междунар.студ.науч.-практ. Конф. № 2(39) https://sibac.info/studconf/tech/xxxix/47278 (дата обращения: 15.04.2019)
- Медведев М.Ю. Теория бухгалтерского учета. М., 2007. стр. 15
Интернет-ресурсы
- Официальный сайт 1С: Предприятие — № 6 [электронный ресурс] — Режим доступа. — URL: http://v8.1c.ru/ (дата обращения 13.04.2019)
- Сулейманов А.Ю., Абрамова О.Ф. Анализ проблем автоматизации бизнес-процессов многопрофильных образовательных учреждений // Современная техника и технологии. 2015. № 6 [Электронный ресурс]. URL: http://technology.snauka.ru/2015/06/6792 (дата обращения: 20.01.2020).
- Электронная книга 1С Предприятие 8.3., https://freesoft.ru/windows/elektr_kniga_1s_predpriyatie_83
ПРИЛОЖЕНИЕ
Программный код, обеспечивающий заданную функциональность
Расчет «СуммыСНДС»
Процедура РассчитатьСуммуНДС (СтрокаТабличнойЧасти) Экспорт
СтрокаТабличнойЧасти.СуммаНДС = (СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.СтавкаНДС)/100;
КонецПроцедуры
Расчет «Суммы» и «СуммыСНДС»
Процедура РассчитатьСумму (СтрокаТабличнойЧасти) Экспорт
СтрокаТабличнойЧасти.Сумма = (СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена);
КонецПроцедуры
Общий модуль выбора цен
Функция РозничнаяЦена(АктуальнаяДата, ЭлементНоменклатуры) экспорт
//Создать вспомогательный объект "Отбор"
Отбор = Новый Структура ("Номенклатура", ЭлементНоменклатуры);
//Получить актуальные значения ресурсов регистра
ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.Цена;
КонецФункции
Код конструктора движения регистров документа «ПоступлениеМатериалов»
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр ЗапасыМатериалов Приход
Движения.ЗапасыМатериалов.Записывать = Истина;
Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл
Движение = Движения.ЗапасыМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Склад = Склад;
Движение.Товар = ТекСтрокаПереченьМатериалов.Номенклатура;
Движение.Количество = ТекСтрокаПереченьМатериалов.Количество;
Движение.Стоимость = ТекСтрокаПереченьМатериалов.Сумма;
КонецЦикла;
// регистр ПоступлениеМатериалов
Движения.ПоступлениеМатериалов.Записывать = Истина;
Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл
Движение = Движения.ПоступлениеМатериалов.Добавить();
Движение.Период = Дата;
Движение.Дата = Дата;
Движение.Поставщик = Поставщик;
Движение.Товар = ТекСтрокаПереченьМатериалов.Номенклатура;
Движение.Склад = Склад;
Движение.Количество = ТекСтрокаПереченьМатериалов.Количество;
КонецЦикла;
// регистр РегистрБухгалтерскогоУчета
Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;
Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл
Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();
Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.Товары;
Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.РасчетыСПоставщиками;
Движение.Период = Дата;
Движение.Сумма = ТекСтрокаПереченьМатериалов.Сумма;
Движение.КоличествоДт = ТекСтрокаПереченьМатериалов.Количество;
Движение.СодержаниеОперации = "Стоимость Материалов без НДС";
Движение.СубконтоДт[ПланыВидовХарактеристик.СубконтоБухучета.Товары] = ТекСтрокаПереченьМатериалов.Номенклатура;
Движение.СубконтоДт[ПланыВидовХарактеристик.СубконтоБухучета.Склады] = Склад;
Движение.СубконтоКт[ПланыВидовХарактеристик.СубконтоБухучета.Контрагенты] = Поставщик;
КонецЦикла;
// регистр РегистрБухгалтерскогоУчета
Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;
Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл
Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();
Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;
Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.РасчетыСПоставщиками;
Движение.Период = Дата;
Движение.Сумма = ТекСтрокаПереченьМатериалов.СуммаНДС;
Движение.СодержаниеОперации = "Сумма НДС";
Движение.СубконтоКт[ПланыВидовХарактеристик.СубконтоБухучета.Контрагенты] = Поставщик;
КонецЦикла;
// регистр РегистрБухгалтерскогоУчета
Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;
Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл
Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();
Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.РасчетыСБюджетомПоНДС;
Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;
Движение.Период = Дата;
Движение.Сумма = ТекСтрокаПереченьМатериалов.СуммаНДС;
Движение.СодержаниеОперации = "НДС к вычету";
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Код конструктора печати «ПоступлениеМатериалов»
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ПоступленияМатериалов.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПоступленияМатериалов.Дата,
| ПоступленияМатериалов.Договор,
| ПоступленияМатериалов.Номер,
| ПоступленияМатериалов.Поставщик,
| ПоступленияМатериалов.Склад,
| ПоступленияМатериалов.СуммаДокумента,
| ПоступленияМатериалов.ПереченьМатериалов.(
| НомерСтроки,
| Номенклатура,
| Количество,
| Цена,
| Сумма,
| СтавкаНДС,
| СуммаНДС,
| ВсегоСНДС
| )
|ИЗ
| Документ.ПоступленияМатериалов КАК ПоступленияМатериалов
|ГДЕ
| ПоступленияМатериалов.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьПереченьМатериаловШапка = Макет.ПолучитьОбласть("ПереченьМатериаловШапка");
ОбластьПереченьМатериалов = Макет.ПолучитьОбласть("ПереченьМатериалов");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьПереченьМатериаловШапка);
ВыборкаПереченьМатериалов = Выборка.ПереченьМатериалов.Выбрать();
Пока ВыборкаПереченьМатериалов.Следующий() Цикл
ОбластьПереченьМатериалов.Параметры.Заполнить(ВыборкаПереченьМатериалов);
ТабДок.Вывести(ОбластьПереченьМатериалов, ВыборкаПереченьМатериалов.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Код отчета «ОбротноСальдоваВедомость»
ВЫБРАТЬ
ПланСчетовБухучета.Ссылка КАК Счет,
РегистрБухгалтерскогоУчетаОстаткиИОбороты.СуммаНачальныйРазвернутыйОстатокДт КАК СальдоНачДт,
РегистрБухгалтерскогоУчетаОстаткиИОбороты.СуммаНачальныйРазвернутыйОстатокКт КАК СальдоНачКт,
РегистрБухгалтерскогоУчетаОстаткиИОбороты.СуммаОборотДт КАК ОборотДт,