Список использованных источников
ПРИЛОЖЕНИЕ, А Факторы, ограничивающие рост производства. Недостаточное количество заказов/уровень реализации. Котлер Ф.-Маркетинг менеджмент.-СПб: Питер Ком, 1999;896с. If ActiveWorkbook. Worksheets («Главный лист»).Cells (1, 1) UBound (skld) Then. ActiveWorkbook. Worksheets («Главный лист»).DropDowns («R_sp1»).RemoveAllItems. Произвести поиск по дате коду товара и по цене… Читать ещё >
Список использованных источников (реферат, курсовая, диплом, контрольная)
Положение о ГОАО «Краснодонское управление материально-технического снабжения» от 15 апреля 1998 г.
Котлер Ф.-Маркетинг менеджмент.-СПб: Питер Ком, 1999;896с.
Системный анализ и структура управления. Под. ред. проф. В. Г. Шорина.:М., «Знание», 1975.-303с.
Мескон М. Х., Альберт М., Хедоури Ф. Основы менеджмента: Пер. с англ.-М.: «Дело», 1992.-702с.
Социально-экономическое положение города Краснодона в 1999 году// Слава Краснодона. — 2000 г. — № 4. — с. 4.
" Бiзнес-огляд. Дослидження економiки Украiни" березень 2000;30с.
Отчет о финансово-экономической деятельности КУМТС за 1996;1999.
Порядок реализации угольной продукции и приобретения товарно-материальных ценностей А. Левин. Самоучитель работы на компьютере. Нолидж.1998.
EXСEL-7.0 Пер. с нем. К. 1997.-464с.
Шикин Е.В., Чхартишвили А. Г. Математические методы и модели в управлении: Учебное пособие. — М.: Дело, 2000. — 440 с.
Экономико-математические модели и методы: Учебное пособие / Н. И. Холод, А. В. Кузнецов, Я. Н. Жихар и др; под общ. ред. А. В. Кузнецова. — Мн.: БГЭУ, 1999. — 413 с.
Приложения
ПРИЛОЖЕНИЕ, А Факторы, ограничивающие рост производства.
Факторы. | III-й кв. 1998%. | I-й кв. 1999%. | II-кв.1999%. | III-кв. 1999%. | IV-кв. 1999%. | Изм-е к III-кв.99. |
Уровень налогов. | 82,3. | 89,3. | 76,7. | 85,5. | 73,9. | — 11,6. |
Недостаточное количество заказов/уровень реализации. | 55,9. | 52,5. | 42,9. | 49,7. | 47,1. | — 2,6. |
Высокие процентные ставки. | 30,2. | 41,5. | 44,9. | 50,0. | 32,2. | — 17,8. |
Отсталая технология. | 15,3. | 15,1. | 12,1. | 14,5. | 11,9. | — 2,6. |
Нехватка сырья и материалов. | 19,1. | 25,8. | 35,5. | 29,1. | 30,5. | 1,4. |
Нехватка квалифицированных работников. | 2,8. | 2,3. | 2,1. | 3,0. | 4,1. | 1,1. |
Нехватка производственных мощностей. | 4,9. | 4,9. | 4,2. | 3,4. | 4,1. | 0,7. |
Нехватка оборотных средств. | 58,3. | 78,3. | 84,3. | 80,7. | 75,3. | — 5,3. |
Неблагоприятный регулирующий климат. | 10,4. | 21,1. | 9,4. | 13,5. | 8,5. | — 5,0. |
ПРИЛОЖЕНИЕ Б
Организационная структура КУМТС.
ПРИЛОЖЕНИЕ В
Type sklad_ved.
sklad_name As String.
kod As Long.
name_tov As String.
coast As Currency.
kol As Long.
d_ch As String.
kod_op As String.
kod_post As Long.
End Type.
Dim vedom As sklad_ved.
Global skld () As String.
Global sprav () As String.
Dim SheetInform (1 To 2) As Boolean.
Sub auto_open ().
Dim Y () As String.
Dim ySp () As String.
Dim Sum_S As Integer.
Dim Sum_Sp As Integer.
Sum_S = 0.
Sum_Sp = 0.
For Each X In ActiveWorkbook.Worksheets.
If InStr (1, UCase (X.Name), «СКЛАД») 0 Then.
Sum_S = Sum_S + 1.
ReDim Preserve Y (1 To Sum_S).
Y (Sum_S) = X.Name.
End If.
If InStr (1, UCase (X.Name), «CPR») 0 Then.
Sum_Sp = Sum_Sp + 1.
ReDim Preserve ySp (1 To Sum_Sp).
ySp (Sum_Sp) = X.Name.
End If.
Next X.
ReDim skld (1 To UBound (Y)).
ReDim sprav (1 To UBound (ySp)).
For i = 1 To UBound (Y).
skld (i) = Y (i).
Next i.
For i = 1 To UBound (ySp).
sprav (i) = ySp (i).
Next i.
Worksheets («Главный лист»).Activate.
Worksheets («Главный лист»).EnableSelection = -4142.
If if_sheet_add Then setup_sp.
SaveSheetInfo.
With Application.
.DisplayFormulaBar = False.
.DisplayStatusBar = False.
End With.
End Sub.
Function GetNomRec (ByVal SheetsName As String).
With Sheets (SheetsName).
If IsError (.Cells (2, 1)) Then GetNomRec = 0 Else GetNomRec = .Cells (2, 1).
End With.
End Function.
Sub auto_close ().
With Application.
.DisplayFormulaBar = SheetInform (1).
.DisplayStatusBar = SheetInform (2).
End With.
End Sub.
Private Sub SaveSheetInfo ().
With Application.
SheetInform (1) = .DisplayFormulaBar.
SheetInform (2) = .DisplayStatusBar.
End With.
End Sub.
Sub run_m ().
With DialogSheets («Приход»).
.DropDowns («sp2»).RemoveAllItems.
For i = 1 To GetNomRec (sprav (nahg («Пост»))).
.DropDowns («sp2»).AddItem Sheets (sprav (nahg («Пост»))).Cells (i + 2, 2).
Next i.
If .DropDowns («sp2»).ListCount 0 Then.
.DropDowns («sp2»).ListIndex = 1.
X = .Show.
If X Then write_to_sklad.
Else.
MsgBox «Нет ни одного поставщика» .
End If.
End With.
End Sub.
Sub run_rash ().
DialogSheets («Расход»).DropDowns («sp4»).RemoveAllItems.
For i = 1 To GetNomRec (sprav (nahg («Потр»))).
DialogSheets («Расход»).DropDowns («sp4»).AddItem Sheets (sprav (nahg («Потр»))).Cells (i + 2, 2).
Next i.
DialogSheets («Расход»).Show.
End Sub.
Private Sub write_to_sklad ().
Attribute write_to_sklad.VB_ProcData.VB_Invoke_Func = «14» .
Dim matr (4).
For i = 1 To 4.
matr (i) = DialogSheets («Приход»).EditBoxes (i).Text.
Next i.
i_sp = DialogSheets («Приход»).DropDowns («sp1»).Text.
Sheets (i_sp).Activate.
znach = GetNomRec (i_sp) + 1.
With vedom.
.sklad_name = i_sp.
.name_tov = matr (3).
.kod = matr (1).
.coast = matr (2).
.d_ch = Format (Date, «dd.mm.yyyy»).
.kod_op = «Приход» .
.kol = matr (4).
.kod_post = DialogSheets («Приход»).DropDowns («sp2»).ListIndex.
End With.
Application.ScreenUpdating = False.
N_znach = poisk_eq (znach, vedom).
If N_znach 0 Then.
Cells (N_znach + 2, 5) = Cells (N_znach + 2, 5) + matr (4).
a_s = Cells (N_znach + 2, 4) * Cells (N_znach + 2, 5).
Cells (N_znach + 2, 6) = a_s 'сумма.
Cells (N_znach + 2, 8) = vedom. kod_post.
Else.
per = «A» + Trim (Str (znach + 2)).
Range (per).Value = znach.
Cells (znach + 2, 2) = matr (3).
Cells (znach + 2, 3) = matr (1) 'код.
Cells (znach + 2, 4) = matr (2) 'цена.
Cells (znach + 2, 5) = matr (4) 'кол-во.
a_s = Cells (znach + 2, 4) * Cells (znach + 2, 5).
Cells (znach + 2, 6) = a_s 'сумма.
Cells (znach + 2, 7) = Format (Date, «dd.mm.yyyy») 'дата.
Cells (znach + 2, 8) = vedom. kod_post.
End If.
otchet vedom.
Application.ScreenUpdating = True.
End Sub.
Function poisk_eq (mm, vd As sklad_ved) As Long 'mm-кол-во записей return nomder of eqvalent record.
poisk_eq = 0.
If Not (IsError (Cells (2, 1))) Then.
For i = 1 To mm.
With vd.
If .kod = Cells (i + 2, 3) Then.
If UCase (.name_tov) = UCase (Cells (i + 2, 2)) Then.
If .coast = Cells (i + 2, 4) Then.
If .d_ch = Cells (i + 2, 7) Then.
poisk_eq = i.
Exit Function.
End If.
End If.
End If.
End If.
End With.
Next i.
Else.
poisk_eq = 0.
End If.
End Function.
Sub otchet (vd As sklad_ved).
sv_w = ActiveSheet.Name.
Sheets («Отчет»).Activate.
Nb = GetNomRec («Отчет») + 1.
'произвести поиск по дате коду товара и по цене.
per = «A» + Trim (Str (Nb + 2)).
Range (per).Value = Nb.
With vd.
Cells (Nb + 2, 2) = .d_ch.
Cells (Nb + 2, 3) = .kod_op.
Cells (Nb + 2, 4) = .sklad_name.
Cells (Nb + 2, 5) = .kod.
Cells (Nb + 2, 6) = .kol.
Cells (Nb + 2, 7) = Abs (.coast).
Cells (Nb + 2, 8) = .coast * Cells (Nb + 2, 6).
Cells (Nb + 2, 9) = .kod_post.
End With.
Sheets (sv_w).Activate.
End Sub.
Function if_sheet_add () As Boolean.
If ActiveWorkbook. Worksheets («Главный лист»).Cells (1, 1) UBound (skld) Then.
if_sheet_add = True.
Else.
if_sheet_add = False.
End If.
End Function.
Private Sub setup_sp ().
Dim DsNm.
DsNm = Array («Приход», «Расход»).
ActiveWorkbook.Worksheets («Главный лист»).Cells (1, 1) = UBound (skld).
For j = 0 To 1.
With DialogSheets (DsNm (j)).
'.DropDowns.Select.
.DropDowns («sp1»).RemoveAllItems.
.DropDowns («sp1»).DropDownLines = UBound (skld).
With .DropDowns («sp1»).
For i = 1 To UBound (skld).
.AddItem Text:=skld (i), Index:=i.
Next i.
End With.
End With.
Next j.
pereh.
'ActiveWorkbook.Worksheets («Главный лист»).DropDowns («R_sp1»).RemoveAllItems.
End Sub.
Sub pereh ().
With ActiveWorkbook. Worksheets («Главный лист»).
With .DropDowns («R_sp1»).
.RemoveAllItems.
For i = 1 To UBound (skld).
.AddItem Text:=skld (i), Index:=i.
Next i.
End With.
With .DropDowns («R_sp2»).
.RemoveAllItems.
For i = 1 To UBound (sprav).
.AddItem Text:=sprav (i), Index:=i.
Next i.
End With.
End With.
End Sub.
Private Sub pr ().
sv_w = ActiveSheet.Name.
Sheets («Отчет»).Activate.
Sheets (sv_w).Activate.
End Sub.
Sub return_s ().
Worksheets («Главный лист»).Activate.
End Sub.
Private Sub step1().
With DialogSheets («Расход»).
.DropDowns («sp1»).Visible = True.
.Labels («l1»).Visible = True.
.Buttons («b1»).Visible = True.
.Buttons («b1»).Enabled = False.
.Buttons («b2»).Visible = True.
End With.
End Sub.
Private Sub step2().
Dim kods () As String.
ReDim Preserve kods (1 To 2).
Sheet_N = DialogSheets («Расход»).DropDowns («sp1»).Text.
If Len (Sheet_N) = 0 Then Exit Sub.
Sheets (Sheet_N).Select.
If IsError (Cells (2, 1)) Then.
z = 0.
MsgBox «На складе вообще отсутствуют товары», vbExclamation + vbOKOnly, «Ошибка» .
Exit Sub.
Else.
z = Cells (2, 1).
End If.
s = 0.
For i = 1 To z.
v_r = True.
t_v = Cells (i + 2, 3).
For j = 1 To UBound (kods).
If t_v = kods (j) Then.
v_r = False.
Exit For.
End If.
Next j.
If v_r Then.
s = s + 1.
ReDim Preserve kods (1 To s).
kods (s) = t_v.
End If.
Next i.
With DialogSheets («Расход»).
.DropDowns («sp1»).Visible = False.
.Labels («l1»).Visible = False.
.Buttons («b1»).Visible = False.
.Buttons («b2»).Visible = False.
.DropDowns («sp2»).Visible = True.
.Labels («l2»).Visible = True.
.Buttons («b3»).Visible = True.
.Buttons («b4»).Visible = True.
.DropDowns («sp2»).Text = «» .
.DropDowns («sp2»).RemoveAllItems.
.DropDowns («sp2»).DropDownLines = 4.
With .DropDowns («sp2»).
For i = 1 To UBound (kods).
.AddItem Text:=kods (i), Index:=i.
Next i.
End With.
End With.
End Sub.
Private Sub nb0().
With DialogSheets («Расход»).
.DropDowns («sp2»).Visible = False.
.Labels («l2»).Visible = False.
.Buttons («b3»).Visible = False.
.Buttons («b4»).Visible = False.
End With.
step1.
End Sub.
Private Sub step3().
Dim prs () As String.
ReDim Preserve prs (1 To 2).
t_kod = DialogSheets («Расход»).DropDowns («sp2»).Text.
If Len (t_kod) = 0 Then Exit Sub.
z = Cells (2, 1).
s = 0.
For i = 1 To z.
t_pr = Cells (i + 2, 4).
v_r = False.
For j = 1 To UBound (prs).
If t_kod = CStr (Cells (i + 2, 3)) Then.
If t_pr = prs (j) Then.
v_r = False.
Exit For.
Else.
v_r = True.
End If.
End If.
Next j.
If v_r Then.
s = s + 1.
ReDim Preserve prs (1 To s).
prs (s) = t_pr.
End If.
Next i.
With DialogSheets («Расход»).
.DropDowns («sp2»).Visible = False.
.Labels («l2»).Visible = False.
.Buttons («b3»).Visible = False.
.Buttons («b4»).Visible = False.
.DropDowns («sp3»).Visible = True.
.Labels («l3»).Visible = True.
.Buttons («b5»).Visible = True.
.Buttons («b6»).Visible = True.
.DropDowns («sp3»).RemoveAllItems.
.DropDowns («sp3»).Text = «» .
.DropDowns («sp3»).DropDownLines = 4.
With .DropDowns («sp3»).
For i = 1 To UBound (prs).
.AddItem Text:=prs (i), Index:=i.
Next i.
End With.
End With.
End Sub.
Private Sub nb1().
With DialogSheets («Расход»).
.DropDowns («sp3»).Visible = False.
.Labels («l3»).Visible = False.
.Buttons («b5»).Visible = False.
.Buttons («b6»).Visible = False.
End With.
step2.
End Sub.
Private Sub step4().
t_cen = DialogSheets («Расход»).DropDowns («sp3»).Text.
If Len (t_cen) = 0 Then Exit Sub.
t_skl = DialogSheets («Расход»).DropDowns («sp1»).Text.
t_kod = DialogSheets («Расход»).DropDowns («sp2»).Text.
z = Cells (2, 1).
s_tov = 0.
For i = 1 To z.
t_pr = Cells (i + 2, 4).
If t_kod = CStr (Cells (i + 2, 3)) And (t_cen = t_pr) Then.
s_tov = s_tov + Cells (i + 2, 5).
End If.
Next i.
tz = «На «+ t_skl + «,» + Chr (10) + «по коду №» + t_kod + «, по цене: «+ t_cen + _.
Chr (10) + «Завезено: «+ CStr (s_tov) + «.» .
With DialogSheets («Расход»).
.EditBoxes («p2»).Text = CStr (s_tov).
.DropDowns («sp3»).Visible = False.
.Labels («l3»).Visible = False.
.Buttons («b5»).Visible = False.
.Buttons («b6»).Visible = False.
.Labels («l4»).Caption = tz.
.Buttons («b8»).Enabled = False.
.EditBoxes («p1»).Text = «» .
.DropDowns («sp4»).Visible = True.
.EditBoxes («p1»).Visible = True.
.Labels («l4»).Visible = True.
.Labels («l5»).Visible = True.
.Labels («l6»).Visible = True.
.Buttons («b7»).Visible = True.
.Buttons («b8»).Visible = True.
End With.
End Sub.
Private Sub nb2().
With DialogSheets («Расход»).
.EditBoxes («p1»).Visible = False.
.DropDowns («sp4»).Visible = False.
.Labels («l4»).Visible = False.
.Labels («l5»).Visible = False.
.Labels («l6»).Visible = False.
.Buttons («b7»).Visible = False.
.Buttons («b8»).Visible = False.
End With.
step3.
End Sub.
Private Sub step5().
With DialogSheets («Расход»).
t_cen = .DropDowns («sp3»).Text 'цена.
If Len (t_cen) = 0 Then Exit Sub.
t_skl = .DropDowns («sp1»).Text 'склад.
t_kod = .DropDowns («sp2»).Text 'кодтовара.
t_kol = Val (.EditBoxes («p1»).Text) 'сколько забрать.
End With.
If t_kol > 0 Then.
pashod t_skl, t_kod, t_cen, t_kol.
del_zero.
With vedom.
.sklad_name = t_skl.
.kod = t_kod.
.coast = (-1) * t_cen.
.d_ch = Format (Date, «dd.mm.yyyy»).
.kod_op = «Расход» .
.kol = Val (DialogSheets («Расход»).EditBoxes («p1»).Text).
.kod_post = DialogSheets («Расход»).DropDowns («sp4»).ListIndex.
End With.
Application.ScreenUpdating = False.
otchet vedom.
Application.ScreenUpdating = True.
End If.
With DialogSheets («Расход»).
.EditBoxes («p1»).Visible = False.
.Labels («l4»).Visible = False.
.Labels («l5»).Visible = False.
.Buttons («b7»).Visible = False.
.Buttons («b8»).Visible = False.
End With.
step1.
DialogSheets («Расход»).Hide.
End Sub.
Private Sub pashod (nm_skl, nm_kod, nm_cen, sk_tov).
If Not (IsError (Cells (2, 1))) Then.
z = Cells (2, 1).
With ActiveWorkbook. Worksheets (nm_skl).
For i = 1 To z.
If nm_kod = CStr (.Cells (i + 2, 3)) Then.
If nm_cen = .Cells (i + 2, 4) Then.
get_tov = .Cells (i + 2, 5).
If sk_tov > get_tov Then.
.Cells (i + 2, 5) = .Cells (i + 2, 5) — get_tov.
sk_tov = sk_tov — get_tov.
Else.
.Cells (i + 2, 5) = .Cells (i + 2, 5) — sk_tov.
sk_tov = 0.
a_s = .Cells (i + 2, 4) * .Cells (i + 2, 5).
.Cells (i + 2, 6) = a_s 'сумма.
End If.
End If.
End If.
Next i.
End With.
End If.
End Sub.
Private Sub del_zero ().
k = 1.
While Cells (k + 2, 1) 0.
If Cells (k + 2, 5) = 0 Then.
sk = CStr (k + 2).
sk = sk + «:» + sk.
Rows…