consolidator
150 строк · 5.4 Кб
1Attribute VB_Name = "M1_Старт"
2Public Sub Укрупнение_Выгрузки()
3Application.DisplayAlerts = False
4Application.ScreenUpdating = False
5'''поменять на False
6Режим_укрупнения.Show
7ИмяФайла_Раб = ActiveWorkbook.Name
8Sheets("Параметры").Cells(1, 3) = Time
9Flag_SAP = 0
10Path_My = Sheets("Параметры").Cells(5, 1)
11' M2_Промежуточный.П0200_Определение_рабочей_папки
12M2_Промежуточный.П0220_Очистка_листа_Позиции_на_укрупнение
13M2_Промежуточный.П0230_Открытие_и_персохранение_файлов_источников
14M2_Промежуточный.П0890_Вывод_всех_позиций_Перебор_файлов
15M2_Промежуточный.П0290_Закрытие_файлов_источников
16
17Workbooks(ИмяФайла_Раб).Activate
18Sheets("Позиции на укрупнение").Activate
19Строк = Cells(1, 1).CurrentRegion.Rows.Count
20Укрупнение_форма.Show
21T = Date + Time
22For i_строк_НП = 2 To Строк 'Перебор строк - позиций на укрупнение
23If r <> i_строк_НП \ 100 Then
24r = i_строк_НП \ 100
25Укрупнение_форма.Hide
26Укрупнение_форма.Show
27End If
28
29If dt <> CDate(Date + Time - T) Then
30dt = CDate(Date + Time - T)
31st = CDate(dt / i_строк_НП)
32tt = CDate(st * Строк)
33End If
34w = Укрупнение_форма.TextBox1.Width
35k = i_строк_НП / Строк
36Укрупнение_форма.TextBox2.Width = k * w
37Укрупнение_форма.Всего_строк = Строк
38Укрупнение_форма.Осталось_времени = CDate((tt - dt)) + CDate(1.5 / 1440)
39Укрупнение_форма.Прошло_времени = CDate(dt)
40Укрупнение_форма.Обработано_строк = i_строк_НП
41Укрупнение_форма.Осталось_строк = Строк - i_строк_НП
42Укрупнение_форма.Обработано_проц = Format(k, "0.0%")
43Укрупнение_форма.Осталось_проц = Format(1 - k, "0.0%")
44Укрупнение_форма.Repaint
45
46M4_Прокат.П0000_Анализ
47M5_КПК.П0000_Анализ
48M6_ТЭСЦ2.П0000_Анализ
49M7_ТЭСЦ3.П0000_Анализ
50M8_ТЭСЦ5.П0000_Анализ
51M9_ТБД.П0000_Анализ
52Next
53
54M2_Промежуточный.П0235_Открытие_файла_Связанные_продукты_SAP_УП
55M2_Промежуточный.П0800_Открытие_файла_ИмяФайла_Спр
56
57M2_Промежуточный.П0880_Проверка_на_укрупненные
58
59M2_Промежуточный.П0295_Закрытие_файла_ИмяФайла_Спр
60M2_Промежуточный.П0295_Закрытие_файла_Связанные_продукты_SAP_УП
61Cells(1, 1).Select
62M2_Промежуточный.П0870_Сохранение_результата
63
64Unload Укрупнение_форма
65
66Sheets("Параметры").Cells(1, 4) = Time
67Sheets("Параметры").Cells(1, 5) = Sheets("Параметры").Cells(1, 4) - Sheets("Параметры").Cells(1, 3)
68Application.DisplayAlerts = True
69Application.ScreenUpdating = True
70End Sub
71
72Public Sub Проверка_по_SAP()
73Application.DisplayAlerts = False
74Application.ScreenUpdating = False
75'''поменять на False
76ИмяФайла_Раб = ActiveWorkbook.Name
77Sheets("Параметры").Cells(1, 3) = Time
78Flag_SAP = 1
79Path_My = Sheets("Параметры").Cells(5, 1)
80' M2_Промежуточный.П0200_Определение_рабочей_папки
81M2_Промежуточный.П0220_Очистка_листа_Позиции_на_укрупнение
82M2_Промежуточный.П0230_Открытие_файла_Структура_SAP
83q = q
84' M2_Промежуточный.П0230_Открытие_и_персохранение_файлов_источников
85M2_Промежуточный.П0891_Вывод_всех_позиций
86' M2_Промежуточный.П0290_Закрытие_файлов_источников
87
88Workbooks(ИмяФайла_Раб).Activate
89Sheets("Позиции на укрупнение").Activate
90Строк = Cells(1, 1).CurrentRegion.Rows.Count
91Укрупнение_форма.Show
92T = Date + Time
93For i_строк_НП = 2 To Строк 'Перебор строк - позиций на укрупнение
94If r <> i_строк_НП \ 100 Then
95r = i_строк_НП \ 100
96Укрупнение_форма.Hide
97Укрупнение_форма.Show
98End If
99
100If dt <> CDate(Date + Time - T) Then
101dt = CDate(Date + Time - T)
102st = CDate(dt / i_строк_НП)
103tt = CDate(st * Строк)
104End If
105w = Укрупнение_форма.TextBox1.Width
106k = i_строк_НП / Строк
107Укрупнение_форма.TextBox2.Width = k * w
108Укрупнение_форма.Всего_строк = Строк
109Укрупнение_форма.Осталось_времени = CDate((tt - dt)) + CDate(1.5 / 1440)
110Укрупнение_форма.Прошло_времени = CDate(dt)
111Укрупнение_форма.Обработано_строк = i_строк_НП
112Укрупнение_форма.Осталось_строк = Строк - i_строк_НП
113Укрупнение_форма.Обработано_проц = Format(k, "0.0%")
114Укрупнение_форма.Осталось_проц = Format(1 - k, "0.0%")
115Укрупнение_форма.Repaint
116
117M4_Прокат.П0000_Анализ
118M5_КПК.П0000_Анализ
119M6_ТЭСЦ2.П0000_Анализ
120M7_ТЭСЦ3.П0000_Анализ
121M8_ТЭСЦ5.П0000_Анализ
122M9_ТБД.П0000_Анализ
123Next
124
125M2_Промежуточный.П0235_Открытие_файла_Связанные_продукты_SAP_УП
126M2_Промежуточный.П0800_Открытие_файла_ИмяФайла_Спр
127
128M2_Промежуточный.П0880_Проверка_на_укрупненные
129
130M2_Промежуточный.П0295_Закрытие_файла_ИмяФайла_Спр
131M2_Промежуточный.П0295_Закрытие_файла_Связанные_продукты_SAP_УП
132M2_Промежуточный.П0290_Закрытие_файла_Структура_SAP
133Cells(1, 1).Select
134M2_Промежуточный.П0870_Сохранение_результата
135
136Unload Укрупнение_форма
137
138Sheets("Параметры").Cells(1, 4) = Time
139Sheets("Параметры").Cells(1, 5) = Sheets("Параметры").Cells(1, 4) - Sheets("Параметры").Cells(1, 3)
140Application.DisplayAlerts = True
141Application.ScreenUpdating = True
142End Sub
143
144Public Sub Стиль_ссылок()
145If Application.ReferenceStyle = xlA1 Then
146Application.ReferenceStyle = xlR1C1
147ElseIf Application.ReferenceStyle = xlR1C1 Then
148Application.ReferenceStyle = xlA1
149End If
150End Sub
151
152