Разработка модуля автоматизации учёта затрат и объёма выпущенной молочной продукции в Агрохолдинге "Авида"

Рис. 24. Структура справочника «Продукция»



В системе разработаны следующие перечисления, которые позволяют облегчить ввод данных и исключить двоякое толкование данных: «ЕдИзм» и «Причина». Их структура представлена в приложении 1 на рис.9-10.

Рис. 25 Форма справочника «Продукция»

Все операции со стадом и молоком производятся на основании документов. В системе разработаны следующие документы: «ПокупкаЖив», «Выбраковка», «Отел», «Корма», «Удои», «Приход», «Передача», «ПриходПродукции», «Отгрузка» и «Оплата».

Документ «ПокупкаЖив» предназначен для учета работ по обновлению стада. Структура документа представлена на рис. 26, макет формы представлен на рис. 27, форма - на рис. 28.

Рис. 26. Структура документа «ПокупкаЖив»



Рис. 27 Макет формы документа «ПокупкаЖив»

Рис. 28 Форма документа «ПокупкаЖив»

Документ «Выбраковка» предназначен для списания животных, не подходящих для племенного стада. Структура документа представлена в на рис. 29, макет формы представлен на рис. 30, форма - на рис. 31.

Рис. 29. Структура документа «Выбраковка»

Рис. 30 Макет формы документа «Выбраковка»



Рис.31 Форма документа «Выбраковка»

Документ «Отел» предназначен для учета пополнения стадо за счет телят. Структура документа представлена на рис. 32.

На рис.33-34 представлен макет формы и форма документа «Отел».

Рис. 32. Структура документа «Отел»

Рис. 33. Макет формы документа «Отел»

Рис.34. Форма документа «Отел»

Документ «Корма» предназначен для учета поступления кормов. Структура документа представлена на рис. 35.

На рис.36-37 представлен макет формы и форма документа «Корма».

Рис. 35. Структура документа «Корма»

Рис. 36 Макет формы документа «Корма»

Рис.37 Форма документа «Корма»

Документ «Удои» предназначен для учета объемов полученного сырого молока. Структура документа представлена на рис. 38.

Рис. 38. Структура документа «Удои»

На рис.39-40 представлен макет формы и форма документа «Удои».

Рис. 39 Макет формы документа «Удои»

Рис.40 Форма документа «Удои»

Документ «Приход» предназначен для учета сдачи объемов сырого молока на молокозавод. Структура документа представлена на рис. 41.

На рис.42-43 представлен макет формы и форма документа «Приход».

Рис. 41. Структура документа «Приход»

Документ «Передача» предназначен для передачи молока в производство. Структура документа представлена на рис. 44.



Рис. 42 Макет формы документа «Приход»

Рис.43 Форма документа «Приход»

Рис. 44. Структура документа «Передача»

На рис.45-46 представлен макет формы и форма документа «Передача».

Рис. 45 Макет формы документа «Передача»



Рис.46 Форма документа «Передача»

Документ «ПриходПродукции» предназначен для учета готовой молочной продукции на складе. Структура документа представлена на рис. 47

На рис.48-49 представлен макет формы и форма документа «ПриходПродукции».

Рис. 47. Структура документа «ПриходПродукции»

Рис. 48 Макет формы документа «ПриходПродукции»

Рис.49 Форма документа «ПриходПродукции»

Документ «Отгрузка» предназначен для учета отгруженной готовой молочной продукции клиенту. Структура документа представлена на рис. 50.

На рис.51-52 представлен макет формы и форма документа «Отгрузка».

Рис. 50. Структура документа «Отгрузка»

Рис. 51 Макет формы документа «Отгрузка»

Рис.52 Форма документа «Отгрузка»

Документ «Оплата» предназначен для учета поступления денег от клиента за отгруженную продукцию. Структура документа представлена на рис. 53.

На рис.54-55 представлен макет формы и форма документа «Оплата».

Рис. 53. Структура документа «Оплата»

Рис. 54. Макет формы документа «Оплата»

Рис.55. Форма документа «Оплата»

3.3.3 Характеристика результатной информации ИС «Агрохолдинг»

Документы «ПокупкаЖив», «Корма», «Приход», «Передача» и «Оплата» фиксируются в регистре накопления «УчетЗатрат», документы «ПриходПродукции», «Отгрузка» и «Оплата» - в регистре накопления «Учет продукции», документы «Выбраковка», «Отел» и «»Удои» - в регистре сведений «Племя». На основании этих данных строятся отчеты.

В системе предусмотрены следующие отчеты: «Затраты», «Учет», «УчетДеньги», «Удои» и «Движение».

Отчет «Затраты» отображает затраты, связанные с содержанием племенного поголовья и выпуска готовой продукции(рис. 56).

Отчет «Учет» отображает остатки на складе молокозавода в количественном выражении (рис. 57).

Отчет «УчетДеньги» отражает остатки на складе молокозавода в денежном выражении (рис58).

Отчет «Удои» отражает объем поступления сырого молока (рис. 59).

Отчет «Движение» отражает поступление и выбытие кров и телят (рис. 60).

Рис. 56. Отчет «Затраты»

Рис. 57. Отчет «Учет»

Рис. 58 Отчет «УчетДеньги»



Рис. 59. Отчет «Удои»

Рис. 60. Отчет «Удои»

3.4 Контрольный пример ИС «Агрохолдинг»

Рабочий стол ИС «Агрохолдинг» представлен на рис. 61.

ИС «Агрохолдинг» состоит из двух подсистем «Учет племенного поголовья» и «Учет молока»

Рис. 61 Рабочий стол ИС «Агрохолдинг»



Подсистема «Учет племенного поголовья» (рис. 62) предназначена для учета затрат, связанных на содержание племенного поголовья скота.

Рис. 62 Меню подсистемы «Учет племенного поголовья»

Подсистема «Учет молока» (рис. 63) предназначена для учета объемов поступившего сырого молока и готовой продукции.

Для начала работы с ИС «Агрохолдинг» необходимо внести размер НДС и заполнить справочники в обеих подсистемах.

Рис. 63 Меню подсистемы «Учет молока»

Для удобства все документы в подсистеме «Учет племенного поголовья» объединены в журнал документов «Затраты» (рис. 64), а в подсистеме «Учет молока» - в журнал документов «Молоко» (рис. 65).

Рис. 64 Журнал документов «Затраты»



Рис. 65 Журнал документов «Молоко»

Все документы, созданные в системе, регистрируются в регистрах, содержимое которых представлено на Рабочем столе ИС и в каждой подсистеме. В подсистеме «Учет племенного поголовья» доступны к просмотру регистр «Учет затрат» (рис. 66) и «Племя» (рис. 67)

Рис. 66 Регистр «Учет затрат»

Рис. 67 Регистр «Племя»

В подсистеме «Учет молока» доступны к просмотру регистр «Учет затрат» (рис. 66) и «Учет продукции» (рис. 68).

Содержимое данных регистров обновляется автоматически при проведении либо отмены проведения соответствующих документов.



Рис. 68 Регистр «Учет продукции»

На основании документа «Удои» можно сформировать автоматически документ «Приход». Для этого достаточно выделить соответствующий документ и нажать создать на основании. Аналогично создаются документы «Передача» на основании документа «Приход» и «Оплата» на основании документа «Отгрузка».

На основании содержимых регистров строятся необходимые отчеты (рис. 56-60).

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

Разработанная система содержит константы, справочники, документы и отчеты.

Принцип действия системы описан на контрольном примере.



4. Экономическая часть

4.1 Выбор и обоснование методики расчёта экономической эффективности

Разработка современного программного обеспечения промышленного назначения предоставляет возможность обеспечить стабильность работы, и одновременно повысить экономическую эффективность предприятия.

Так как современная производственная сфера всё более расширяет спектр использование новых информационных средств, что приводит к снижению затрат времени на решение производственных проблем, то возникает насущная необходимость значительным образом пересмотреть методики использования программных продуктов, проанализировав перед этим их функциональное назначение и качество внедрения различных информационных систем.

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

проектирование и формулировка требований;

приобретение информационных систем;

внедрение информационных систем;

сопровождение использования ЭИС.

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

Основной критерий оценки экономической эффективности - минимум затрат. При этом принято считать, что чем больше участков управленческих работ автоматизировано, тем эффективнее используется техническое программное обеспечение.

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

В рассматриваемом случае, поскольку система не планируется к продаже, а планируется к внедрению только на одном предприятии, необходимо рассчитать экономическую эффективность исходя из снижения издержек на производственную деятельность.

При расчете экономической эффективности проводится сравнение результатов обработки информации при существующем бизнес-процессе и после внедрения разрабатываемой системы. Прямая эффективность машинной обработки информации представляется в показателе снижения экономических стоимостных затрат на обработку информации. При оценке прямой эффективности в стоимостных единицах измерения рассчитываются две группы показателей - показатель снижения трудовых затрат.

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

Абсолютный показатель снижения трудовых затрат на обработку информации (1)

Т=Т0-Т1 (1)

где Т0 - годовая трудоемкость обработки информации при базисном варианте;

Т1 - годовая стоимость обработки информации при проектируемом варианте.

2. Коэффициент снижения трудовых затрат (2)

Kт=(Т/Т0)*100 (%) (2)

3. Индекс снижения трудовых затрат, который показывает рост производительности труда при обработке информации (3).

Yт=Т0/Т1в (3)

К стоимостным показателям относятся: абсолютное снижение стоимостных затрат (C) , коэффициент относительного снижения стоимостных затрат (КC):

1. Показатель снижения стоимостных затрат (4)



С=С0-С1 (4)

где С0 - годовая стоимость обработки информации при базисном варианте;

С1 - годовая стоимость обработки информации при проектируемом варианте.

Индекс изменения стоимостных затрат (5)

Yc=С0/С1 (5)

Помимо рассмотренных показателей целесообразно также рассчитать срок окупаемости затрат на внедрение проекта машинной обработки информации (Ток), рассчитываемые в годах, долях года или в месяцах года (6):

Ток = КП /C (6),

где КП - затраты на создание проекта (проектирование и внедрение).

А также расчетный коэффициент эффективности капитальных затрат (7):

Ер = 1/Ток (7)

4.2 Расчёт показателей экономической эффективности проекта

В соответствии с указанной методикой произведем сравнение стоимостных и трудовых затрат при выполнении операций для базового варианта и при использовании разработанной системы учета продаж.

Заработная плата бухгалтера составляет 25000 в месяц, следовательно, 148 рублей в час.

Внедрение ИС позволит снизить объём ежедневно выполняемой работы на 20 %.

Кроме того при расчете накладных расходов необходимо учесть амортизацию компьютера - 20% от его первоначальной стоимости - 25000 рублей - при сроке эксплуатации 5 лет, то есть в час: 5000/(21*12*8)=2,5 рубля

При базовом варианте накладные расходы состоят из канцелярских принадлежностей:

Бумага - 10 пачек*12 месяцев*100 рублей=12000 в год или 12000/(21*12*8)=6 рублей в час;

Карандаши, ручки, ластики, степлеры и так далее - около 9000 в год, то есть около 4,5 рублей в час, итого имеем 13 рублей в час.

В таком случае операции технологического процесса при базовом и проектном варианте за год и их характеристики представлены в таблице 20 и таблице 21. Таким образом абсолютный показатель снижения трудовых затрат на обработку информации: Т=745,2-372,00=372,00 часов

Коэффициент снижения трудовых затрат

Kт=(372/745)*100%=50 %

Показатель снижения стоимостных затрат

С=120580,46-56377,93-=64202,53 рублей

Рассчитаем затраты на внедрение и проектирование системы, для этого учтем заработную плату разработчиков. При средней заработной плате 25000, привлечении трех разработчиков и общем сроке разработки один месяц, принимаем стоимость разработки - 75000 рублей.

Срок окупаемости затрат на внедрение проекта машинной обработки информации: Ток = 75000/64202=1,16 года (14 месяцев).

Рассчитаем расчетный коэффициент эффективности капитальных затрат:

Ер = 1 / Ток=1/1,16 =0,86

Таблица 20

Базовый вариант

№ п/п	Наименование операций технологического процесса решения комплекса задач	Оборудование	Объем работы в год	Норма выработки / (опер/в час.)	Трудоемкость	Средне-часовая зарплата специалиста (руб.)	Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.)	Часовая стоимость накладных расходов (руб.)	Стоимостные затраты для ручных операций
	Учет надоев	нет	15120	150	100,8	148,81	2,5	13	16310,4
	Учет затрат на корма	нет	7560	150	50,4	148,81	2,5	13	8155,2
	Учет затрат на приобретение нового поголовья	нет	6300	150	42	148,81	2,5	13	6796
	Подготовка отчета по продажам	нет	7200	150	48	148,81	2,5	13	7766,86
	Подготовка перечня товаров	нет	75600	150	504	148,81	2,5	13	81552
	Итого:				745,2				120580,46

Таблица 21

Проектный вариант

№ п/п	Наименование операций технологического процесса решения комплекса задач	Оборудо-вание	Ед. Изм.	Объем работы в год	Норма выра-ботки / (опер/в час.)	Тру- доем-кость (гр5: гр6)	Средне-часовая зарплата специалиста (руб.)	Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.)	Часовая стоимость накладных расходов (руб.)	Стоимостные затраты для операций, вып. на ЭВМ
	Учет данных о клиентах	ЭВМ	документострока	15120	300	50,4	148,81	2,5	0	7626
	Учет данных о договорах с клиентами	ЭВМ	документострока	7560	300	25,2	148,81	2	0	3813
	Учет данных по совершенным продажам	ЭВМ	документострока	6300	300	21	148,81	2	0	3177,5
	Подготовка отчета по продажам за день	ЭВМ	документострока	7200	300	24	148,81	2	0	3631,43
	Подготовка перечня товаров	ЭВМ	документострока	75600	300	252	148,81	2	0	38130
	Итого:					372,6				56377,93

На рис. 69 приведена диаграмма сравнения базового и проектного вариантов трудовых затрат, на рис. 70 - стоимостных затрат.

Рис. 69 Диаграмма сравнения базового и проектного варианта трудовых затрат обработки информации.

Рис. 70 Диаграмма сравнения базового и проектного варианта стоимостных затрат обработки информации.

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

Срок окупаемости ИС составляет около 14 месяцев.

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



Заключение

Целью данной работы являлось разработка модуля учета затрат и объёма выпущенной молочной продукции для агрохолдинга «Авида».

Для достижения цели необходимо было решить следующие задачи:

проанализировать предметную область;

выбрать проектное решение;

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

оценить эффективность разработки.

В работе рассмотрены основные бизнес-процессы по учету затрат и объемы выпуска готовой продукции на предприятии, а так же приведено обоснование о необходимости автоматизации данной задачи.

Работа включает описание объектов конфигурации в среде 1С: Предприятие 8.3 для системы учета. Подробно разработан пользовательский интерфейс и порядок работы в системе, с достаточным количеством иллюстрированного материала. Кроме того, в работе проведен расчет предполагаемого экономического эффекта от внедрения разработанного программного модуля учета затрат и объемов выпущенной молочной продукции в агрохолдинге «Авида» и оценка социально эффекта от использования настоящего программного продукта.

Система является модульной и в любой момент может быть расширена дополнительными функциями.



Список литературы

«1С: Предприятие 8.3» Конфигурирование и администрирование. Часть №1. - М.: Фирма 1С, 2012. - 430 с.

«1С:Предприятие 8» Система программ - URL: http://v8.1c.ru/buhv8/

Бородинова М.А., Абросимов А.Г. Информационные системы в экономике: Учебное пособие. - М.: СГЭА, 2011. - 125 с.

Васильева Е. В. Оценка эффективности информационных технологий информационных систем: Учебное пособие ГОУ ВПО / Е. В. Васильева. - М., 2016. - 284 с.

Гаврилов А. В. Локальные сети ЭВМ-М/ А. В. Гаврилов. - Издательство «Мир», 2015 - 360 с.

Гончаров Д. Сертифицированный курс. Введение в конфигурирование в системе 1C: «Предприятие 8.1». Основные объекты. - М.: Фирма 1С, 2016. - 450 с.

Документация предприятия

Долгопрудненский исследовательский центр. Каталог продукции - URL: http://www.dic.ru/catalog/default/index

Игнатьев А.В. Максимцев М.М. Исследование систем управления.-М., 2016. -154c (Гриф МО).

Информационные технологии (для экономиста). Под редакцией Волкова А.К. - М.: Инфра-М, 2011.

Информационные технологии в экономике. Под редакцией А.Г. Титоренко - М.: Юнити, 2013. - 265 c.

ИТ-инфраструктура предприятия: эффективное управление (ITSM), мониторинг и аудит//Комсомольская правда - URL: http://www.kp.ru/guide/it-infrastruktura-predprijatija.html

Кибанов А. Я. Оценка экономической и социальной эффективности проекта совершенствования системы и технологии управления персоналом организации: Учебное пособие. Госуниверситет управления / А. Я. Кабанов. - М, 2016. - 165 с.

Козырев А.А. Информационные технологии в экономике и управлении. Учебник. - СПб: Издательство Михайлова В.А., 2013. - 230 с.

Пакеты прикладных программ: Учеб.пособие для сред, проф. образования / Э. В. Фуфаев, Л. И. Фуфаева. - М.: Издательский центр «Академия», 2014. - 260 с.

Пакет программ компании «1С». Информационные системы управления - URL: http://www.kkc.by/katalog/programmy/avtomatizaciya-gostinicy

Программы для бухгалтерии и комплексной автоматизации - URL:http://www.ib.ru/

Руководство Технологическая платформа «1С:Предприятие 8.3»

Сайт компании 1С GOODWILL ПРОДАЖА И ВНЕДРЕНИЕ 1С - URL: http://programmist1s.ru/instruktsiya-po-obnovleniyu-platformyi-1s-8-3-i-8-2/

Сайт агрохолдинга «Авида» - URL: http://мк-авада.рф

Сафронов Н.А. Экономика предприятия/ Н.А. Сафронов - М, 2008. - 355 с.

Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем. - М.: Финансы и статистика, 2011. - 360 с.

Харрингтон Д.Х. Управление качеством в американских корпорациях: Сокр.пер. с англ. - М.: Экономика, 2009.- 531с.

Хрусталева Е. Ю. Разработка сложных отчетов в 1С: «Предприятие 8». Система компоновки данных. - М.: Фирма 1С, 2008. - 513 с.



Приложения

Приложение 1

Рис. 1 Форма заполнения константы НДС

Рис. 2 Форма справочника «Порода»

Рис. 3 Форма справочника «Стадо»

Рис. 4 Форма справочника «Телята»

Рис. 5 Форма справочника «Ферма»

Рис. 6 Форма справочника «Контрагенты»

Рис. 7 Форма справочника «Корма»

Рис. 8 Форма справочника «Продукция»

Рис. 9 Перечисление «ЕдИзм»

Рис. 10 Перечисление «Причина»

Рис. 11 Макет формы документа «ПокупкаЖив»

Рис. 12 Форма документа «ПокупкаЖив»

Рис. 13 Макет формы документа «Выбраковка»

Рис.14 Форма документа «Выбраковка»

Рис. 15 Макет формы документа «Отел»

Рис.16 Форма документа «Отел»

Рис. 17 Макет формы документа «Корма»

Рис.18 Форма документа «Корма»

Рис. 19 Макет формы документа «Удои»

Рис.20 Форма документа «Удои»

Рис. 21 Макет формы документа «Приход»

Рис.22 Форма документа «Приход»

Рис. 23 Макет формы документа «Передача»

Рис.24 Форма документа «Передача»

Рис. 25 Макет формы документа «ПриходПродукции»

Рис.26 Форма документа «ПриходПродукции»

Рис. 27 Макет формы документа «Отгрузка»

Рис.28 Форма документа «Отгрузка»

Рис. 29 Макет формы документа «Оплата»

Рис.30 Форма документа «Оплата»

Рис. 31 Отчет «Затраты»

Рис. 32 Отчет «Учет»

Рис. 33 Отчет «УчетДеньги»

Рис. 34 Отчет «Удои»

Рис. 35 Отчет «Удои»



Приложение 2

Модуль документа формы «ПокупкаЖив»:

&НаКлиенте

Процедура СтадоЦенаПриИзменении(Элемент)

СтадоЦенаПриИзмененииНаСервере();

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

&НаСервере

Процедура СтадоЦенаПриИзмененииНаСервере()

НДС=Константы.НДС.СоздатьМенеджерЗначения();

НДС.Прочитать();

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Животное");

Новая.Колонки.Добавить("Вес");

Новая.Колонки.Добавить("ЕдИзм");

Новая.Колонки.Добавить("Цена");

Новая.Колонки.Добавить("СуммаНДС");

Новая.Колонки.Добавить("Итого");

строки=Объект.Стадо.Выгрузить(,"НомерСтроки,Животное,Вес,ЕдИзм,Цена,СуммаНДС,Итого");

Для н=0 по строки.Количество()-1 цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Животное=Строки.Получить(н).Животное;

стр.Вес=Строки.Получить(н).Вес;

Стр.ЕдИзм=Строки.Получить(н).ЕдИзм;

Стр.Цена=Строки.Получить(н).Цена;

Стр.СуммаНДС=Стр.Цена*НДС.Значение/100;

Стр.Итого=Стр.Цена+Стр.СуммаНДС;

конеццикла;

Объект.Стадо.Загрузить(Новая);

Объект.Всего=Объект.Стадо.Итог("Цена");

Объект.СНДС= Объект.Стадо.Итог("СуммаНДС");

Объект.Итого=Объект.Стадо.Итог("Итого");

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

&НаКлиенте

Процедура СтадоСуммаНДСПриИзменении(Элемент)

СтадоСуммаНДСПриИзмененииНаСервере();

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

&НаСервере

Процедура СтадоСуммаНДСПриИзмененииНаСервере()

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Животное");

Новая.Колонки.Добавить("Вес");

Новая.Колонки.Добавить("ЕдИзм");

Новая.Колонки.Добавить("Цена");

Новая.Колонки.Добавить("СуммаНДС");

Новая.Колонки.Добавить("Итого");

строки=Объект.Стадо.Выгрузить(,"НомерСтроки,Животное,Вес,ЕдИзм,Цена,СуммаНДС,Итого");

Для н=0 по строки.Количество()-1 цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Животное=Строки.Получить(н).Животное;

стр.Вес=Строки.Получить(н).Вес;

Стр.ЕдИзм=Строки.Получить(н).ЕдИзм;

Стр.Цена=Строки.Получить(н).Цена;

Стр.СуммаНДС=Стр.Цена*Строки.Получить(н).СуммаНДС/100;

Стр.Итого=Стр.Цена+Стр.СуммаНДС;

конеццикла;

Объект.Стадо.Загрузить(Новая);

Объект.Всего=Объект.Стадо.Итог("Цена");

Объект.СНДС= Объект.Стадо.Итог("СуммаНДС");

Объект.Итого=Объект.Стадо.Итог("Итого");

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

Модуль документа «ПокупкаЖив»:

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

Движения.УчетЗатрат.Записывать = Истина;

Для Каждого ТекСтрокаСтадо Из Стадо Цикл

Движение = Движения.УчетЗатрат.Добавить();

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

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

Движение.Животное = ТекСтрокаСтадо.Животное;

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

Движение.Ферма = Ферма;

Движение.Цена = ТекСтрокаСтадо.Цена;

Движение.Количество = 1;

Движение.Вес = ТекСтрокаСтадо.Вес;

Движение.СуммаНДС = ТекСтрокаСтадо.СуммаНДС;

Движение.Итого = Итого;

Движение.ЕдИзм = ТекСтрокаСтадо.ЕдИзм;

КонецЦикла;

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

Модуль документа «Выбраковка»:

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

Справочник=Справочники.Выбраковка;

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

Для Каждого ТекСтрокаСтадо Из Стадо Цикл

Если СокрЛП(Строка(ТипЗнч(ТекСтрокаСтадо.Животное)))="Телята" тогда

Жив=Справочники.Телята;

ИначеЕслиСокрЛП(Строка(ТипЗнч(ТекСтрокаСтадо.Животное)))="Племенное поголовье" тогда

Жив=Справочники.Стадо;

конецЕсли;

Строка=Жив.НайтиПоНаименованию(ТекСтрокаСтадо.Животное).Ссылка;

Новая=Справочник.СоздатьЭлемент();

Новая.Код=Строка.Код;

Новая.Наименование=Строка.Наименование;

Новая.ДатаРождения=Строка.ДатаРождения;

Новая.Порода=Строка.Порода;

Новая.ПородаМатери=Строка.ПородаМатери;

Новая.ПородаОтца=Строка.ПородаОтца;

Новая.Чистопородность=Строка.Чистопородность;

Новая.Ферма=Строка.Ферма;

Новая.Записать();

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

Тек.Удалить();

ТекСтрокаСтадо.Животное=Новая.Ссылка;

Движение = Движения.Племя.Добавить();

Движение.Животное = Новая.Ссылка;

Движение.Ферма = Ферма;

Движение.Причина = ТекСтрокаСтадо.Причина;

Движение.Вес = ТекСтрокаСтадо.Вес;

Движение.ЕдИзм = ТекСтрокаСтадо.ЕдИзм;

КонецЦикла;

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

Модуль документа «Отел»:

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

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

Для Каждого ТекСтрокаСтадо Из Стадо Цикл

Движение = Движения.Племя.Добавить();

Движение.Животное = ТекСтрокаСтадо.Животное;

Движение.Ферма = Ферма;

Движение.Причина = "Отел";

Движение.Вес = ТекСтрокаСтадо.Вес;

Движение.ЕдИзм = ТекСтрокаСтадо.ЕдИзм;

КонецЦикла;

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

Модуль формы документа «Корма»:

&НаКлиенте

Процедура КормаКоличествоПриИзменении(Элемент)

КормаКоличествоПриИзмененииНаСервере();

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

&НаСервере

Процедура КормаКоличествоПриИзмененииНаСервере()

НДС=Константы.НДС.СоздатьМенеджерЗначения();

НДС.Прочитать();

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Наименование");

Новая.Колонки.Добавить("Количество");

Новая.Колонки.Добавить("ЕдИзм");

Новая.Колонки.Добавить("Всего");

Новая.Колонки.Добавить("СуммаНДС");

Новая.Колонки.Добавить("Итого");

строки=Объект.Корма.Выгрузить(,"НомерСтроки,Наименование,Количество,ЕдИзм,Всего,СуммаНДС,Итого");

Для н=0 по строки.Количество()-1 цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Наименование=Строки.Получить(н).Наименование;

стр.Количество=Строки.Получить(н).Количество;

Стр.ЕдИзм=Строки.Получить(н).ЕдИзм;

Стр.Всего=Стр.Наименование.Цена*стр.Количество;

Стр.СуммаНДС=Стр.Всего*НДС.Значение/100;

Стр.Итого=Стр.всего+Стр.СуммаНДС;

конеццикла;

Объект.Корма.Загрузить(Новая);

Объект.Всего=Объект.Корма.Итог("Всего");

Объект.СНДС= Объект.Корма.Итог("СуммаНДС");

Объект.Итого=Объект.Корма.Итог("Итого");

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

&НаКлиенте

Процедура КормаСуммаНДСПриИзменении(Элемент)

КормаСуммаНДСПриИзмененииНаСервере();

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

&НаСервере

Процедура КормаСуммаНДСПриИзмененииНаСервере()

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Наименование");

Новая.Колонки.Добавить("Количество");

Новая.Колонки.Добавить("ЕдИзм");

Новая.Колонки.Добавить("Всего");

Новая.Колонки.Добавить("СуммаНДС");

Новая.Колонки.Добавить("Итого");

строки=Объект.Корма.Выгрузить(,"НомерСтроки,Наименование,Количество,ЕдИзм,Всего,СуммаНДС,Итого");

Для н=0 по строки.Количество()-1 цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Наименование=Строки.Получить(н).Наименование;

стр.Количество=Строки.Получить(н).Количество;

Стр.ЕдИзм=Строки.Получить(н).ЕдИзм;

Стр.Всего=Стр.Наименование.Цена*стр.Количество;

Стр.СуммаНДС=Стр.Всего*Строки.Получить(н).СуммаНДС/100;

Стр.Итого=Стр.всего+Стр.СуммаНДС;

конеццикла;

Объект.Корма.Загрузить(Новая);

Объект.Всего=Объект.Корма.Итог("Всего");

Объект.СНДС= Объект.Корма.Итог("СуммаНДС");

Объект.Итого=Объект.Корма.Итог("Итого");

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

Модуль документа «Корма»:

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

Движения.УчетЗатрат.Записывать = Истина;

Для Каждого ТекСтрокаКорма Из Корма Цикл

Движение = Движения.УчетЗатрат.Добавить();

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

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

Движение.Животное = ТекСтрокаКорма.Наименование;

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

Движение.Ферма = Ферма;

Движение.Цена = ТекСтрокаКорма.Наименование.Цена;

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

Движение.СуммаНДС = ТекСтрокаКорма.СуммаНДС;

Движение.Итого = Итого;

Движение.ЕдИзм = ТекСтрокаКорма.ЕдИзм;

КонецЦикла;

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

Модуль формы документа «Удои»:

&НаКлиенте

Процедура СтадоУдойПриИзменении(Элемент)

Объект.Всего=Объект.Стадо.Итог("Удой");

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

&НаКлиенте

Процедура СтадоЖирностьПриИзменении(Элемент)

Объект.Средняя=Объект.Стадо.Итог("Жирность")/Объект.Стадо.Количество();

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

&НаКлиенте

Процедура Список(Команда)

СписокНаСервере();

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

&НаСервере

Процедура СписокНаСервере()

Животное=Справочники.Стадо;

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Животное");

Новая.Колонки.Добавить("Жирность");

Новая.Колонки.Добавить("Удой");

н=1;

Строки=Животное.Выбрать();

пока строки.Следующий() цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Животное=Строки.Ссылка;

н=н+1

конеццикла;

Объект.Стадо.Загрузить(Новая);

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

Модуль документа «Удои»:

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

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

Для Каждого ТекСтрокаСтадо Из Стадо Цикл

Движение = Движения.Племя.Добавить();

Движение.Животное = ТекСтрокаСтадо.Животное;

Движение.Ферма = Ферма;

Движение.Удой = ТекСтрокаСтадо.Удой;

Движение.ЕдИзм = Перечисления.ЕдИзм.л;

КонецЦикла;

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

Модуль документа «Приход»

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Удои") Тогда

Количество = ДанныеЗаполнения.Всего;

Ферма = ДанныеЗаполнения.Ферма;

Жирность=ДанныеЗаполнения.Средняя;

Молоко=Справочники.Продукция;

Тек=Молоко.Выбрать();

пока тек.Следующий() цикл

Если (Жирность>=Тек.Мин) и (Жирность<=Тек.Макс) тогда

Наименование=тек.Ссылка;

Цена=Наименование.Цена;

Конецесли;

конецЦикла;

Всего = Количество*Цена;

КонецЕсли;

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

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

Движения.УчетЗатрат.Записывать = Истина;

Движение = Движения.УчетЗатрат.Добавить();

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

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

Движение.Животное = Наименование;

Движение.Ферма = Ферма;

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

Движение.Количество = Количество;

Движение.Итого = Всего;

Движение.ЕдИзм = Перечисления.ЕдИзм.л;

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

Модуль документа «Передача»:

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Приход") Тогда

Всего = ДанныеЗаполнения.Всего;

Жирность = ДанныеЗаполнения.Жирность;

Количество = ДанныеЗаполнения.Количество;

Наименование = ДанныеЗаполнения.Наименование;

Ферма = ДанныеЗаполнения.Ферма;

Цена = ДанныеЗаполнения.Цена;

КонецЕсли;

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

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

Движения.УчетЗатрат.Записывать = Истина;

Движение = Движения.УчетЗатрат.Добавить();

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

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

Движение.Животное = Наименование;

Движение.Ферма = Ферма;

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

Движение.Количество = Количество;

Движение.Итого = Всего;

Движение.ЕдИзм = Перечисления.ЕдИзм.л;

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

Модуль формы документа «ПриходПродукции»

&НаКлиенте

Процедура ПродукцияКоличествоПриИзменении(Элемент)

ПродукцияКоличествоПриИзмененииНаСервере();

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

&НаСервере

Процедура ПродукцияКоличествоПриИзмененииНаСервере()

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Наименование");

Новая.Колонки.Добавить("Количество");

Новая.Колонки.Добавить("ЕдИзм");

Новая.Колонки.Добавить("Всего");

строки=Объект.Продукция.Выгрузить(,"НомерСтроки,Наименование,Количество,ЕдИзм, Всего");

Для н=0 по строки.Количество()-1 цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Наименование=Строки.Получить(н).Наименование;

стр.Количество=Строки.Получить(н).Количество;

Стр.ЕдИзм=Строки.Получить(н).ЕдИзм;

Стр.Всего=Стр.Наименование.Цена*стр.Количество;

конеццикла;

Объект.Продукция.Загрузить(Новая);

Объект.Итого=Объект.Продукция.Итог("Всего");

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

Модуль документа «ПриходПродукции»:

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

Движения.УчетПродукции.Записывать = Истина;

Для Каждого ТекСтрокаПродукция Из Продукция Цикл

Движение = Движения.УчетПродукции.Добавить();

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

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

Движение.Продукция = ТекСтрокаПродукция.Наименование;

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

Движение.Контрагент = Ферма;

Движение.Цена = ТекСтрокаПродукция.Наименование.Цена;

Движение.Количество = ТекСтрокаПродукция.Количество;

Движение.Итого = ТекСтрокаПродукция.Всего;

Движение.ЕдИзм = ТекСтрокаПродукция.ЕдИзм;

КонецЦикла;

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

Модуль формы документа «Отгрузка»:

&НаКлиенте

Процедура ПродукцияКоличествоПриИзменении(Элемент)

ПродукцияКоличествоПриИзмененииНаСервере();

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

проектирование затраты агрохолдинг

&НаСервере

Процедура ПродукцияКоличествоПриИзмененииНаСервере()

НДС=Константы.НДС.СоздатьМенеджерЗначения();

НДС.Прочитать();

Новая=Новый ТаблицаЗначений;

Новая.Колонки.Добавить("НомерСтроки");

Новая.Колонки.Добавить("Наименование");

Новая.Колонки.Добавить("Количество");

Новая.Колонки.Добавить("ЕдИзм");

Новая.Колонки.Добавить("Всего");

Новая.Колонки.Добавить("СуммаНДС");

Новая.Колонки.Добавить("Итого");

строки=Объект.Продукция.Выгрузить(,"НомерСтроки,Наименование,Количество,ЕдИзм,Всего,СуммаНДС,Итого");

Для н=0 по строки.Количество()-1 цикл

Стр=Новая.Добавить();

Стр.НомерСтроки=н;

Стр.Наименование=Строки.Получить(н).Наименование;

стр.Количество=Строки.Получить(н).Количество;

Стр.ЕдИзм=Строки.Получить(н).ЕдИзм;

Стр.Всего=Стр.Наименование.Цена*(1+Стр.Наименование.Надбавка/100)*стр.Количество;

Стр.СуммаНДС=Стр.Всего*НДС.Значение/100;

Стр.Итого=Стр.всего+Стр.СуммаНДС;

конеццикла;

Объект.Продукция.Загрузить(Новая);

Объект.Всего=Объект.Продукция.Итог("Всего");

Объект.СНДС= Объект.Продукция.Итог("СуммаНДС");

Объект.Итого=Объект.Продукция.Итог("Итого");

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

Модуль документа «Отгрузка»

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

Движения.УчетПродукции.Записывать = Истина;

Для Каждого ТекСтрокаПродукция Из Продукция Цикл

Движение = Движения.УчетПродукции.Добавить();

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

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

Движение.Продукция = ТекСтрокаПродукция.Наименование;

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

Движение.Контрагент = Контрагент;

Движение.Цена = ТекСтрокаПродукция.Наименование.Цена*(1+ТекСтрокаПродукция.Наименование.Надбавка/100);

Движение.Количество = ТекСтрокаПродукция.Количество;

Движение.СуммаНадбавки = ТекСтрокаПродукция.Наименование.Цена*ТекСтрокаПродукция.Наименование.Надбавка/100;

Движение.СуммаНДС = ТекСтрокаПродукция.СуммаНДС;

Движение.Итого = Итого;

Движение.ЕдИзм = ТекСтрокаПродукция.ЕдИзм;

КонецЦикла;

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

Модуль документа «Оплата»

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Отгрузка") Тогда

// Заполнение шапки

Всего = ДанныеЗаполнения.Всего;

Итого = ДанныеЗаполнения.Итого;

Контрагент = ДанныеЗаполнения.Контрагент;

СНДС = ДанныеЗаполнения.СНДС;

Документ = ДанныеЗаполнения.Ссылка;

КонецЕсли;

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

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

Движения.УчетПродукции.Записывать = Истина;

Движение = Движения.УчетПродукции.Добавить();

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

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

Движение.Контрагент = Контрагент;

Движение.Цена = Всего;

Движение.СуммаНДС = СНДС;

Движение.Итого = Итого;

Движения.УчетЗатрат.Записывать = Истина;

Движение = Движения.УчетЗатрат.Добавить();

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

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

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

Движение.Цена = Всего;

Движение.СуммаНДС = СНДС;

Движение.Итого = Итого;

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

Размещено на Allbest.ru

...