Информационная система учета расхода кормов в молочно-товарной ферме

Размещено на http://www.allbest.ru/

УДК 004.42

05.00.00 Технические науки

Doi: 10.21515/1990-4665-130-003UDC 004.42

Technical sciences

ИНФОРМАЦИОННАЯ СИСТЕМА УЧЕТА РАСХОДА КОРМОВ В МОЛОЧНО-ТОВАРНОЙ ФЕРМЕ

INFORMATION SYSTEM FOR THE ACCOUNTING OF FEED CONSUMPTION IN A DAIRY FARM

Галиев Карим Сулейманович к.т.н., доцент

РИНЦ SPIN-код=8093-5110

E-mail: shachri42.galiev@yandex.ru

Печурина Елена Каримовна старший преподаватель

РИНЦ SPIN-код: 1952-4286

E-mail: geskov@mail.ru

Кубанский государственный аграрный университет имени И.Т.Трубилина, Краснодар, Россия



Компьютерная программа, как информационная система, предназначена для ежедневного заполнения экранной формы, имитирующей форму СП 20. По этому документу указывают поголовье скота, лимит расхода кормов по видам и половозрастным группам на одну голову и общий лимит на месяц на все поголовье. Компьютерная программа создана на основе электронной таблицы Excel, которая весьма просто осваивается пользователем (бухгалтер, учетчик, заведующий). Компьютерная программа разработана с использованием языка VBA, что позволяет автоматизировать все вычислительные операции по обработке данных. Пользователь вводит только известные исходные данные (группы скота, вид и количество кормов)

Ключевые слова: РАСХОД КОРМОВ, МОЛОЧНО-ТОВАРНАЯ ФЕРМА, УЧЕТНАЯ ФОРМА СП 20, КОМПЬЮТЕРНАЯ ПРОГРАММА, EXCEL, ЯЗЫК VBA

автоматизация компьютерный молочный вычислительный



A computer program, as an information system, is designed to fill in the daily form that simulates the form of SP 20. This document indicates the number of livestock, the feed consumption limit by species and sex and age groups per head and the total limit for a month for all livestock. The computer program is created on the basis of an Excel spreadsheet, which is easily mastered by the user (accountant, accountant, manager). The computer program is developed using the VBA language, which allows you to automate all computing operations for data processing. The user enters only known initial data (cattle groups, species and number of feeds)

Keywords: FEED CONSUMPTION, DAIRY FARM, ACCOUNTING FORM SP 20, COMPUTER PROGRAM, EXCEL, VBA LANGUAGE



Введение

Корма - это основа для производства отрасли животноводства. Кормление крупного рогатого скота является одним из наименее механизированных процессов, в то время как на него приходится 30-40% общих трудозатрат на молочно-товарной ферме [1].

Производственный учет в животноводстве необходим для учета поголовья скота; учета производства и расходования продукции; планирования развития отрасли; контроля и организации выполнения государственных заданий производства продукции; планирования производства и расхода корма, нормирования кормления скота; организации и оплаты труда на фермах. Для решения указанных задач используют компьютерные технологии управления производством животноводческой продукции. Имеется большое количество литературных источников по разработке компьютерных программ [2].

Целью работы является разработка компьютерной программы для ежедневного заполнения экранной формы, имитирующей форму СП-20.

По этому документу указывают поголовье скота, лимит расхода по видам и половозрастным группам на одну голову и общий лимит на месяц на все поголовье. В ведомости ежедневно делают отметку об отпущенных и полученных на ферму кормах. В конце месяца подсчитывают фактический расход кормов по видам и группам скота. Кроме того, на основании формы СП-20 составляется Журнал сводного учета расхода кормов на ферме [3].

Компьютерная программа создана на основе электронной таблицы Excel, которая весьма просто осваивается пользователем (бухгалтер, учетчик, заведующий). Компьютерная программа разработана с использованием языка VBA (Visual Basic for Application [4] ), что позволяет автоматизировать ряд операций, связанных с обработкой данных (более подробно это будет показано ниже).

Работа с программой состоит из трёх частей:

подготовительная часть для разработки/редактирования программы;

непосредственно разработка/редактирование программы;

обработка данных (ввод исходных данных, формирование результатов расчета).

Для пользователя (бухгалтер, учетчик, заведующий) необходимо освоить только третью часть программы - обработку данных.

Часть 1 (подготовка для разработки/редактирования программы)

Для разработки/редактирования программы необходимо выполнить два действия: снять защиту листов и включить в меню инструмент "Разработчик".

Снятие/установка защиты листов (рис 1 ).

Рисунок 1 - Снятие/установка защиты листов (меню Файл - Сведения).

Включение в меню инструмента "Разработчик": Меню Файл - Параметры - Настройка ленты (рис. 2).

Рисунок 2 - Элементы инструмента "Разработчик" (фрагмент).

Часть 2 (разработка/редактирование программы)

Вкладки/листы

Программа содержит следующие вкладки/листы (рис. 3):

Инструкция

Нормы

день1,…, день10

Группа

Сводная

вп1,…, вп10

впСвод

Рисунок 3 - Название листов (фрагмент).

Содержание листов следующее:

Инструкция по заполнению данных о МТФ: фамилии сотрудников, календарный период, последовательность заполнения остальных данных (рис. 4).

Суточная норма необходимых кормов для каждой группы скота с указанием количества голов (рис. 5).

Формы для каждого дня декады: наименование кормов, группы скота, количество суточного поступления каждого вида кормов, суточный расход кормов по группам скота, суточный расход по видам кормов. При этом имеется возможность просмотра всех видов кормов, в том числе не использованных, для чего нажать на кнопку "Отобразить все корма" (рис. 6).

Форма для просмотра движения кормов для выбранной группы скота по дням декады (рис. 7).

Сводная ведомость движения кормов с учетом всех дней декады (рис. 8).

Формы ежедневного внутреннего перемещения кормов между группами скота (рис. 9).

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

Рисунок 4 - Лист "Инструкция".



Рисунок 5 - Лист "Нормы".

Рисунок 6 - Лист "день1" (…день10).



Рисунок 7 - Расход кормов за декаду для группы скота.

Рисунок 8- Сводная ведомость расхода кормов.



Рисунок 9 - Лист "вп10" (внутреннее перемещение кормов).

Программирование

Некоторые операции, связанные с просмотром данных или формированием сводных сведений, автоматизированы путем использования языка программирования VBA. Покажем некоторые из них.

Формы на всех листах с заголовком "Сдвинуть в сторону", разработаны на объектах "Forms", а текст программы указан в объекте "Modules" и доступен через кнопку "Перенос НОРМЫ в дни" (рис. 10, 11).

Рисунок 10 - Объект "Forms".

Sub НормуВ_Дни()

Dim k As Integer

Call впОчистка

Call НормуВ_День1

Call ИменаЛистов

UserForm1.Hide

Sheets("день1").Select

Application.Goto Reference:="Расход1"

Selection.Copy

For k = 2 To kolList

Sheets(SheetNames(k)).Select

Range("B6").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Range("C4").Select

Next k

For k = 2 To kolList

Sheets(SheetNames(k)).Select

ActiveSheet.Protect

Next k

Sheets("Нормы").Visible = False

Sheets("Сводная").Select

Application.Goto Reference:="КормаПриходСвод"

ActiveSheet.Unprotect

Selection.ClearContents

Application.Goto Reference:="КормаРасходСвод"

Selection.ClearContents

Range("C6").Select

ActiveSheet.Protect

Sheets("впСвод").Select

Application.Goto Reference:="впСводКорм"

ActiveSheet.Unprotect

Selection.ClearContents

Range("C6").Select

ActiveSheet.Protect

Sheets("день1").Select

Application.CutCopyMode = False

Range("C4").Select

End Sub

Указание только первого дня декады; при этом даты остальных дней декады формируются автоматически. Текст модуля такой операции следующий (рис. 12):

Public Sub ДатыДекады()

Dim den As Integer, mes As Integer, god As Integer

Dim rov As Integer, col As Integer, i As Integer

Dim s1 As String, visok As Boolean

Sheets("день9").Visible = True

Sheets("день10").Visible = True

Sheets("день11").Visible = True

Sheets("вп9").Visible = True

Sheets("вп10").Visible = True

Sheets("вп11").Visible = True

Sheets("Инструкция").Activate

ActiveSheet.Unprotect

rov = Range("ДатаНач").Row

col = Range("ДатаНач").Column

s1 = Range("ДатаНач")

den = Val(Mid(s1, 1, 2))

mes = Val(Mid(s1, 4, 2))

god = Val(Mid(s1, 7, 4))

If Not (den = 1 Or den = 11 Or den = 21) Then

MsgBox "Ошибка! Первый день декады =1 или 11 или 21"

Exit Sub

End If

For i = 1 To 10

Cells(i + rov, col) = Cells(i + rov - 1, col) + 1

Next i

If den = 1 Or den = 11 Then Cells(rov + 10, col) = " " 'den11

Select Case mes

Case 2, 4, 6, 9, 11

Cells(rov + 10, col) = " " 'den11

End Select

visok = False

If god = 2012 Or god = 2016 Or god = 2020 Then visok = True

If mes = 2 And den = 21 Then

Cells(rov + 9, col) = " " 'den10

If visok = False Then Cells(rov + 8, col) = " " 'den9

End If

Call ИменаЛистов

If kolList = 8 Then

Sheets("день9").Visible = False

Sheets("день10").Visible = False

Sheets("день11").Visible = False

Sheets("вп9").Visible = False

Sheets("вп10").Visible = False

Sheets("вп11").Visible = False

End If

If kolList = 9 Then

Sheets("день10").Visible = False

Sheets("день11").Visible = False

Sheets("вп10").Visible = False

Sheets("вп11").Visible = False

End If

If kolList = 10 Then

Sheets("день11").Visible = False

Sheets("вп11").Visible = False

End If

Sheets("Нормы").Visible = True

Sheets("Нормы").Activate

ActiveSheet.Protect

End Sub

Этот текст находится в объекте Module1, вызов модуля выполняется соответствующей подпрограммой, относящейся к листу «Инструкция» (рис. 13).

Рисунок 13 - Вызов модуля формирования дат декады.

Формирование сводной ведомости расхода кормов: Объект Forms - UserForm3. Через кнопку "Сформировать Сводную расхода кормов" вызывается подпрограмма "КормаСводная", текст которой написан в объекте "Module1".

Аналогично можно просмотреть тексты программ на языке VBA для остальных листов/вкладок.

Часть 3 (обработка данных - ввод исходных данных, формирование результатов расчета).

Работа с этой частью программы выполняется достаточно просто и легко осваивается пользователем. Для этого надо следовать десяти пунктам "Инструкции".



Заключение

Данная компьютерная программа (информационная система) предназначена для исполнителя-пользователя (бухгалтер, учетчик, заведующий). Пользоваться программой просто - надо вводить только известные исходные данные (группы скота, вид и количество кормов), остальная обработка данных производится автоматически за счет использования программных модулей, созданных на основе языка программирования VBA.



Литература

1. Хазанов, Е. Е. Технология и механизация молочного животноводства / Е. Е. Хазанов, В. В Гордеев, В. Е Хазанов. - СПб.: Лань, 2010. -- 352 с.

2. Галиев, К. С. Основы алгоритмизации и программирования: учеб.-метод. пособие / К. С. Галиев, Е .К. Печурина. - Краснодар: КубГАУ, 2013. - 94 с.

3. Альбом специализированных форм первичной учетной документации. - М.: МСХ РФ, 2003.

4. Уокенбах Дж. Профессиональное программирование на VBA в Excel 2003.: Пер. с англ. -М.: Издательский дом “Вильямс”, 2005. -800 с.

5. 1.Hazanov, E. E. Tehnologija i mehanizacija molochnogo zhivotnovodstva / E. E. Hazanov, V. V Gordeev, V. E Hazanov. - SPb.: Lan', 2010. -- 352 s.

6. 2.Galiev, K. S. Osnovy algoritmizacii i programmirovanija: ucheb.-metod. posobie / K. S. Galiev, E .K. Pechurina. - Krasnodar: KubGAU, 2013. - 94 s.

7. 3.Al'bom specializirovannyh form pervichnoj uchetnoj dokumentacii. - M.: MSH RF, 2003.

8. 4.Uokenbah Dzh. Professional'noe programmirovanie na VBA v Excel 2003.: Per. s angl. -M.: Izdatel'skij dom “Vil'jams”, 2005. -800 s.

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