Анализ построенных моделей процессов предприятия и анализ отчетов по моделям, страница 18

Таким образом, производить продукцию по варианту, указанному в первом периоде, наиболее выгодно для предприятия по стоимостному и временному показателям (их итоговые значения минимальны из всех трех периодов). Наиболее затратным в стоимости и длительным по времени является процесс третьего периода. Однако выбор каждого из вариантов процессов обуславливается не столько экономической целесообразностью, сколько финансовым состоянием предприятия. Возможность приобретения строительной компанией оборотных средств (оборудования, материалов) за счет собственных средств находится в прямой зависимости от суммы денежных средств, инвестируемых в строительство сторонними организациями. При недостаточности собственных средств необходимо привлечение заемных средств (2 и 3 периоды).  Поставка материалов  к месту назначения в срок зависит от надежности поставщика, его заинтересованности в продолжении договорных отношений с Балтийской строительной компанией. Для обеспечения непрерывного строительства, исключения простоев оборудования из-за задержки поставки материалов возможна закупка материалов крупными партиями либо расторжение договора с поставщиком и выбор другого варианта.

Создание отчета

Был сформирован отчет, содержащий анкетные данные начальников отделов в Балтийской строительной компании. Структура программы была сформирована с помощью мастера скриптов Script Wizard. После проверки правильности работы программы на примере организационной диаграммы Балтийской строительной компании программа скрипта была отредактирована с помощью редактора скриптов (Script Editor) для русификации выводимой в отчете информации. Текст скрипта:

Global g_nLoc As Long

Global g_oOutFile As Object

Sub Main

g_oOutFile.OutputLnF("","REPORT1")

g_oOutFile.OutputLnF("Данные руководящего звена БСК","REPORT1")

g_oOutFile.OutputLnF("","REPORT1")

Dim oSelectedObjDefs1 As Object

Dim oSelectedObjDefs1Obj As Object

Dim i1 As Long

Set oSelectedObjDefs1 = SelectedObjDefs

oSelectedObjDefs1.Sort(AT_NAME, SORT_NONE, SORT_NONE, g_nLoc)

For i1 = 0 To oSelectedObjDefs1.Count()-1

            Set oSelectedObjDefs1Obj = oSelectedObjDefs1.Get(i1)

            g_oOutFile.OutputLn("ФИО: "+ Str(oSelectedObjDefs1Obj.Attribute(AT_NAME, g_nLoc).GetValue(True)), "Arial",10,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,0)

            g_oOutFile.OutputLn("Адрес: "+ Str(oSelectedObjDefs1Obj.Attribute(AT_ADDR, g_nLoc).GetValue(True)), "Arial",10,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,0)

            g_oOutFile.OutputLn("Номер телефона: "+ Str(oSelectedObjDefs1Obj.Attribute(AT_PHONE_NUM, g_nLoc).GetValue(True)), "Arial",10,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,0)

Dim oCxnListFilter1 As Object

Dim oCxnListFilter1Obj As Object

Dim i2 As Long

'Выбор выходных связей объекта Person, которые называются Occupies

Set oCxnListFilter1 = oSelectedObjDefs1Obj.CxnListFilter(EDGES_OUT, "", CT_OCCUPIES)

oCxnListFilter1.Sort(AT_TYPE_6, AT_NAME, SORT_NONE, g_nLoc)

            For i2 = 0 To oCxnListFilter1.Count()-1

            Set oCxnListFilter1Obj = oCxnListFilter1.Get(i2)

            g_oOutFile.OutputLn("", "Arial",10,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,0)

                        g_oOutFile.OutputLn("", "Arial",10,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,0)

                 g_oOutFile.OutputLn("Должность:"+ Str(oCxnListFilter1Obj.TargetObjDef.Attribute(AT_NAME, g_nLoc).GetValue(True)), "Arial",10,C_BLACK,COLOR_TRANSPARENT,FMT_LEFT,0)

          Set oCxnListFilter1Obj = Nothing

            Next i2

            Set oCxnListFilter1 = Nothing

            Set oSelectedObjDefs1Obj = Nothing

Next i1

Set oSelectedObjDefs1 = Nothing

g_oOutFile.WriteReport(SelectedPath, SelectedFile)

End Sub

Данные руководящего звена БСК

ФИО: Башун Э.В.

Адрес: Кутузовский проспект, 138, каб. 4