ОТЧЕТ
По учебной практике (по получению первичных профессиональных умений и навыков, в том числе первичных умений и навыков научно-исследовательской деятельности)
Выполнил студент группы: ПИ1721 Айрапетов С.С.
Руководитель учебной практики: доцент, кандидат экономических наук
Замотайлова Д.А.
Защищен________________________ | Оценка________________________ |
(дата)
Члены комиссии __________________________________________________
_________________________________________________________________
_________________________________________________________________
Краснодар
Анализ предметной области и приходного ордера на склад
Целью учебной практики является систематизация и закрепление полученных в процессе обучения теоретических знаний и практических умений по дисциплине, получение навыков самостоятельной работы и изучение средств VisualBasicforApplication.
В качестве задач можно выделить следующие: а) создать форму приходного ордера на склад в MSExcel; б) создать VBA-макрос для печати ордера в MSExcel; в) создать форму и отчет для приходного ордера средствамиMSAccess. В ходе решения задачи разбивались на подзадачи, что значительно оптимизировало временные затраты.
Бланк Приходного ордера по форме № М-4 применяется для учета материалов, поступающих от поставщиков или из переработки. Приходный ордер в одном экземпляре составляет материально ответственное лицо в день поступления ценностей на склад. Приходный ордер должен выписываться на фактически принятое количество ценностей.
Записывать артикулы на полях накладной запрещено. Внутренняя накладная должна быть заполнена аккуратно, без исправлений.
Выписывается документ точно в день поступления товаров и отражает фактический приход. Оформляется приходный ордер в одном экземпляре, а если от одного и того же поставщика в течение одного дня бывает несколько поставок, их все можно вносить в один документ.
После оформления, номер приходного ордера нужно зарегистрировать в карточке, где он, как и другие привычные документы должен храниться не менее пяти лет.
В некоторых случаях вместо приходного ордера кладовщик может использовать штамп. Это можно сделать в случае, если товары поступают на склад по счету, акту, товарному чеку. Образец штампа вместо приходного ордера М-4 будет содержать следующие графы для заполнения: дату, номер приходного ордера, наименование компании, данные принимающей стороны. Штамп в данном случае будет содержать те же реквизиты, что и в приходный ордер М-4. В штамп нет смысла добавлять реквизиты, которые будут отражать количество поступившего товара. Стоит иметь ввиду, что ставить штамп на приходный документ можно в случае, если документ не содержит исправлений, а количество поступившего товара соответствует обозначенному количеству в документах.
Форма приходного ордера представлена на рисунке 1.
Рисунок 1 – Форма приходного ордера на склад с примером записи товара
Реализация задачи в MS Excel
В ходе решения были реализованы все необходимые условия, поставленные в задании. В MSExcel шаблон (исходная таблица) содержит поля, утвержденные ГОСТ, и выглядит следующим образом (рисунок 2):
Рисунок 2 – Шаблон ордера в MSExcel
Каждая кнопка выполняет свои функции, облегчая пользователю задачу. Кнопка «Регистрация партии» позволяет зарегистрировать партию товара. Кнопка «Редактирование партии» позволяет вносить в ордер товары из партии. Ниже представлены исходные VBA-коды и результат работы кнопок.
Исходный код кнопки «Регистрация парти»:
Private Sub CommandButton1_Click()
Dim M4 As Object
Dim i As Integer
i = 13
Set M4 = Sheets("M4")
Worksheets("M4").Activate
M4.Cells(i, 2) = TextBox1.Value
M4.Cells(i, 2) = TextBox2.Value
M4.Cells(i, 3) = TextBox3.Value
M4.Cells(i, 4) = TextBox4.Value
M4.Cells(i, 5) = TextBox5.Value
M4.Cells(i, 6) = TextBox6.Value
M4.Cells(i, 7) = TextBox7.Value
M4.Cells(i, 8) = TextBox8.Value
M4.Cells(i, 9) = TextBox9.Value
M4.Cells(i, 10) = TextBox10.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Dim M4 As Object
Dim i As Integer
i = 13
Set M4 = Sheets("M4")
Worksheets("M4").Activate
M4.Cells(i, 2) = ""
M4.Cells(i, 2) = ""
M4.Cells(i, 3) = ""
M4.Cells(i, 4) = ""
M4.Cells(i, 5) = ""
M4.Cells(i, 6) = ""
M4.Cells(i, 7) = ""
M4.Cells(i, 8) = ""
M4.Cells(i, 9) = ""
M4.Cells(i, 10) = ""
End Sub
Private Sub TextBox1_Change()
End Sub
Рисунок 3 – Результат работы кнопки «Регистрация партии»
Код кнопки «Редактирование партии»:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim M4 As Object
Set M4 = Sheets("M4")
Worksheets("M4").Activate
For i = 18 To 49
If i < 31 Then
M4.Cells(i, 1) = TextBox1.Value
M4.Cells(i, 2) = TextBox2.Value
M4.Cells(i, 3) = TextBox3.Value
M4.Cells(i, 4) = TextBox4.Value
M4.Cells(i, 5) = TextBox5.Value
M4.Cells(i, 6) = TextBox6.Value
M4.Cells(i, 7) = TextBox7.Value
M4.Cells(i, 8) = TextBox8.Value
M4.Cells(i, 9) = TextBox9.Value
M4.Cells(i, 10) = TextBox10.Value
M4.Cells(i, 11) = TextBox11.Value
M4.Cells(i, 12) = TextBox12.Value
Else
M4.Cells(i - 26, 1) = TextBox1.Value
M4.Cells(i - 26, 2) = TextBox2.Value
M4.Cells(i - 26, 3) = TextBox3.Value
M4.Cells(i - 26, 4) = TextBox4.Value
M4.Cells(i - 26, 5) = TextBox5.Value
M4.Cells(i - 26, 6) = TextBox6.Value
M4.Cells(i - 26, 7) = TextBox7.Value
M4.Cells(i - 26, 8) = TextBox8.Value
M4.Cells(i - 26, 9) = TextBox9.Value
M4.Cells(i - 26, 10) = TextBox10.Value
M4.Cells(i - 26, 11) = TextBox11.Value
M4.Cells(i - 26, 12) = TextBox12.Value
End If
Exit For
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
UserForm3.Show
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Рисунок 4 – Результат работы кнопки «Редактирование партии»
Также реализовано построчное удаление товара из партии. Ниже представлены VBA-код и результаты работы кнопки.
Код кнопки «Удалить»:
.
Рисунок 5 – MsgBoxот Формы 1