Файл: Автоматизация аналитического учета ООО «ПепсиКо Холдингс».pdf

В ходе выполнения курсовой работы были произведены:

Автоматизация обработки исходных данных (Sell Out)

Построение ИС на основе OLAP кубов, с конечным интерефесов в MS Excel

Автоматизация обработки ошибок

Разработаная ИС позволила:

Снизить временные затраты

Масштабировать существующую систему по всем иерархиям

Повысить качество данных

Минимизировать человеческий фактор

Таким образом, цели, поставленные в рамках данной курсовой работы, были достигнуты

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование информационных систем – М.: ИУИТ, 2012 – 300с.
2. Гущин А.Н. Базы данных: учебник. - М.: Директ-Медиа, 2014. - 266с
3. Методология функционального моделирования IDEF0, Руководящий документ, Госстандарт России
4. http://www.pepsico.ru/company/pepsico-in-russia
5. https://www.draw.io/

ПРИЛОЖЕНИЯ

Приложение 1.

VBA макрос.

Sub save_new_books()

Dim sFiles, sNewFolder, sFileName, sNFiles As String

Dim i, ii As Byte

Dim j As Byte

Dim k As Integer

Dim sSheetName, sTrueName, max As String

Dim ch As Range

Dim example, nrow As String

Dim alarm As Boolean

Dim Data As String

Data = InputBox("Enter data DD.MM.YYYY", "Enter data")

Application.DisplayAlerts = False

'colomns (Data)

sNewFolder = Cells(1, 3)

i = 2

sFiles = Sheets("final").Cells(i, 1)

sFileName = Sheets("final").Cells(i, 2)

Do While sFiles <> ""

sNFiles = sNewFolder & sFileName

FileCopy sFiles, sNFiles

With Application.Workbooks.Open(sNFiles)

j = .Sheets.Count

For k = j To 1 Step -1

sSheetName = .Sheets(k).Name

Set ch = Application.Workbooks("SETUP.xlsm").Sheets("setting").Range("A:A").Find(What:=sSheetName, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)

' MsgBox ("OK")

On Error GoTo Line1

If ch <> sSheetName Then

Line1:

.Sheets(k).Visible = True

.Sheets(k).Delete

Resume Line2

Line2:

Else: .Sheets(k).Name = "Data"

End If

Next

'---------------------------

max = Application.Workbooks("SETUP.xlsm").Sheets("setting").Cells(Rows.Count, 3).End(xlUp).Row

alarm = True

For ii = 2 To max

example = Application.Workbooks("SETUP.xlsm").Sheets("setting").Cells(ii, 3)

Line4:

Set ch = .Sheets("Data").Range("1:20").Find(What:=example, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)

On Error GoTo Line5

nrow = ch.Row

If nrow = 1 Then

alarm = False

GoTo Line3

Else

.Sheets("Data").Rows(1).EntireRow.Delete

'alarm = False

GoTo Line4

End If

Line5:

Resume line6

line6:

Next

'---------------------------

Line3:

Call Mapping

Call Check_SKU

Call Check_AA

colomns (Data)

If alarm = True Then MsgBox ("ALARM! " & sFileName)

.Close savechanges:=True

End With

i = i + 1

sFiles = Sheets("final").Cells(i, 1)

sFileName = Sheets("final").Cells(i, 2)

Loop

Application.DisplayAlerts = True

End Sub

Function colomns(Data As String)

Dim arrNR(10) As Integer