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

В результате курсовой работы все цели достигнуты.

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

В курсовой работе описана технология функционирования ИС, выполнено физическое проектирование, разработаны экранные формы ввода-вывода, разработаны функциональные модули.

Информационная система разработана на платформе «1С: Предприятие» версии 8.3. Данный выбор обусловлен широкими возможностями по ведению учета хозяйственных операций, предоставляемыми системой.

Все поставленные задачи курсовой работы были решены.

список использованной литературы

Учебно-методическая литература

1. Бойко Э.В., 1С: Предприятие 8.0. Универсальный самоучитель
2. Варкентин В.В. Информационные системы на базе 1 С:Предприятие//Научное сообщество студентов XXI столетия. Технические науки: сб. ст. по мат. XXXIX междунар.студ.науч.-практ. Конф. № 2(39) https://sibac.info/studconf/tech/xxxix/47278 (дата обращения: 15.04.2019)

ПРИЛОЖЕНИЕ

Программный код, обеспечивающий заданную функциональность

Код вычисления «Суммы» и «СуммыСНДС»

Процедура РассчитатьСуммуНДС (СтрокаТабличнойЧасти) Экспорт

СтрокаТабличнойЧасти.СуммаНДС = (СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.СтавкаНДС)/100;

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

Процедура РассчитатьСумму (СтрокаТабличнойЧасти) Экспорт

СтрокаТабличнойЧасти.Сумма = (СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена);

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

Код подстановки цены из регистра сведений

Функция РозничнаяЦена(АктуальнаяДата, ЭлементНоменклатуры) экспорт

//Создать вспомогательный объект "Отбор"

Отбор = Новый Структура ("Номенклатура", ЭлементНоменклатуры);

//Получить актуальные значения ресурсов регистра

ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата, Отбор);

Возврат ЗначенияРесурсов.Цена;

КонецФункции

Код конструктора движения регистров документа «Поступление материалов»

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ЗапасыМатериалов Приход

Движения.ЗапасыМатериалов.Записывать = Истина;

Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл

Движение = Движения.ЗапасыМатериалов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Склад = Склад;

Движение.Материал = ТекСтрокаПереченьМатериалов.Номенклатура;

Движение.Количество = ТекСтрокаПереченьМатериалов.Количество;

Движение.Стоимость = ТекСтрокаПереченьМатериалов.Сумма;

КонецЦикла;

// регистр ПоступлениеМатериалов

Движения.ПоступлениеМатериалов.Записывать = Истина;

Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл

Движение = Движения.ПоступлениеМатериалов.Добавить();

Движение.Период = Дата;

Движение.Дата = Дата;

Движение.Поставщик = Поставщик;

Движение.Материал = ТекСтрокаПереченьМатериалов.Номенклатура;

Движение.Склад = Склад;

Движение.Количество = ТекСтрокаПереченьМатериалов.Количество;

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.Материалы;

Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.РасчетыСПоставщиками;

Движение.Период = Дата;

Движение.Сумма = ТекСтрокаПереченьМатериалов.Сумма;

Движение.КоличествоДт = ТекСтрокаПереченьМатериалов.Количество;

Движение.СодержаниеОперации = "Стоимость товаров без НДС";

Движение.СубконтоДт[ПланыВидовХарактеристик.СубконтоБухучета.Материалы] = ТекСтрокаПереченьМатериалов.Номенклатура;

Движение.СубконтоДт[ПланыВидовХарактеристик.СубконтоБухучета.Склады] = Склад;

Движение.СубконтоКт[ПланыВидовХарактеристик.СубконтоБухучета.Контрагенты] = Поставщик;

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

Для Каждого ТекСтрокаПереченьМатериалов Из ПереченьМатериалов Цикл

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;

Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.РасчетыСПоставщиками;

Движение.Период = Дата;