consolidator

1
Attribute VB_Name = "M1_Старт"
2
Public Sub Укрупнение_Выгрузки()
3
    Application.DisplayAlerts = False
4
    Application.ScreenUpdating = False
5
'''поменять на False
6
    Режим_укрупнения.Show
7
    ИмяФайла_Раб = ActiveWorkbook.Name
8
    Sheets("Параметры").Cells(1, 3) = Time
9
    Flag_SAP = 0
10
    Path_My = Sheets("Параметры").Cells(5, 1)
11
'    M2_Промежуточный.П0200_Определение_рабочей_папки
12
    M2_Промежуточный.П0220_Очистка_листа_Позиции_на_укрупнение
13
    M2_Промежуточный.П0230_Открытие_и_персохранение_файлов_источников
14
    M2_Промежуточный.П0890_Вывод_всех_позиций_Перебор_файлов
15
    M2_Промежуточный.П0290_Закрытие_файлов_источников
16

17
    Workbooks(ИмяФайла_Раб).Activate
18
    Sheets("Позиции на укрупнение").Activate
19
    Строк = Cells(1, 1).CurrentRegion.Rows.Count
20
    Укрупнение_форма.Show
21
    T = Date + Time
22
    For i_строк_НП = 2 To Строк 'Перебор строк - позиций на укрупнение
23
        If r <> i_строк_НП \ 100 Then
24
            r = i_строк_НП \ 100
25
            Укрупнение_форма.Hide
26
            Укрупнение_форма.Show
27
        End If
28
            
29
        If dt <> CDate(Date + Time - T) Then
30
            dt = CDate(Date + Time - T)
31
            st = CDate(dt / i_строк_НП)
32
            tt = CDate(st * Строк)
33
        End If
34
        w = Укрупнение_форма.TextBox1.Width
35
        k = 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
        
46
        M4_Прокат.П0000_Анализ
47
        M5_КПК.П0000_Анализ
48
        M6_ТЭСЦ2.П0000_Анализ
49
        M7_ТЭСЦ3.П0000_Анализ
50
        M8_ТЭСЦ5.П0000_Анализ
51
        M9_ТБД.П0000_Анализ
52
    Next
53
    
54
    M2_Промежуточный.П0235_Открытие_файла_Связанные_продукты_SAP_УП
55
    M2_Промежуточный.П0800_Открытие_файла_ИмяФайла_Спр
56
    
57
    M2_Промежуточный.П0880_Проверка_на_укрупненные
58
    
59
    M2_Промежуточный.П0295_Закрытие_файла_ИмяФайла_Спр
60
    M2_Промежуточный.П0295_Закрытие_файла_Связанные_продукты_SAP_УП
61
    Cells(1, 1).Select
62
    M2_Промежуточный.П0870_Сохранение_результата
63
    
64
    Unload Укрупнение_форма
65
    
66
    Sheets("Параметры").Cells(1, 4) = Time
67
    Sheets("Параметры").Cells(1, 5) = Sheets("Параметры").Cells(1, 4) - Sheets("Параметры").Cells(1, 3)
68
    Application.DisplayAlerts = True
69
    Application.ScreenUpdating = True
70
End Sub
71

72
Public Sub Проверка_по_SAP()
73
    Application.DisplayAlerts = False
74
    Application.ScreenUpdating = False
75
 '''поменять на False
76
    ИмяФайла_Раб = ActiveWorkbook.Name
77
    Sheets("Параметры").Cells(1, 3) = Time
78
    Flag_SAP = 1
79
    Path_My = Sheets("Параметры").Cells(5, 1)
80
'    M2_Промежуточный.П0200_Определение_рабочей_папки
81
    M2_Промежуточный.П0220_Очистка_листа_Позиции_на_укрупнение
82
    M2_Промежуточный.П0230_Открытие_файла_Структура_SAP
83
    q = q
84
'    M2_Промежуточный.П0230_Открытие_и_персохранение_файлов_источников
85
    M2_Промежуточный.П0891_Вывод_всех_позиций
86
'    M2_Промежуточный.П0290_Закрытие_файлов_источников
87

88
    Workbooks(ИмяФайла_Раб).Activate
89
    Sheets("Позиции на укрупнение").Activate
90
    Строк = Cells(1, 1).CurrentRegion.Rows.Count
91
    Укрупнение_форма.Show
92
    T = Date + Time
93
    For i_строк_НП = 2 To Строк 'Перебор строк - позиций на укрупнение
94
        If r <> i_строк_НП \ 100 Then
95
            r = i_строк_НП \ 100
96
            Укрупнение_форма.Hide
97
            Укрупнение_форма.Show
98
        End If
99
            
100
        If dt <> CDate(Date + Time - T) Then
101
            dt = CDate(Date + Time - T)
102
            st = CDate(dt / i_строк_НП)
103
            tt = CDate(st * Строк)
104
        End If
105
        w = Укрупнение_форма.TextBox1.Width
106
        k = 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
        
117
        M4_Прокат.П0000_Анализ
118
        M5_КПК.П0000_Анализ
119
        M6_ТЭСЦ2.П0000_Анализ
120
        M7_ТЭСЦ3.П0000_Анализ
121
        M8_ТЭСЦ5.П0000_Анализ
122
        M9_ТБД.П0000_Анализ
123
    Next
124
    
125
    M2_Промежуточный.П0235_Открытие_файла_Связанные_продукты_SAP_УП
126
    M2_Промежуточный.П0800_Открытие_файла_ИмяФайла_Спр
127
    
128
    M2_Промежуточный.П0880_Проверка_на_укрупненные
129
    
130
    M2_Промежуточный.П0295_Закрытие_файла_ИмяФайла_Спр
131
    M2_Промежуточный.П0295_Закрытие_файла_Связанные_продукты_SAP_УП
132
    M2_Промежуточный.П0290_Закрытие_файла_Структура_SAP
133
    Cells(1, 1).Select
134
    M2_Промежуточный.П0870_Сохранение_результата
135
    
136
    Unload Укрупнение_форма
137
    
138
    Sheets("Параметры").Cells(1, 4) = Time
139
    Sheets("Параметры").Cells(1, 5) = Sheets("Параметры").Cells(1, 4) - Sheets("Параметры").Cells(1, 3)
140
    Application.DisplayAlerts = True
141
    Application.ScreenUpdating = True
142
End Sub
143

144
Public Sub Стиль_ссылок()
145
    If Application.ReferenceStyle = xlA1 Then
146
        Application.ReferenceStyle = xlR1C1
147
    ElseIf Application.ReferenceStyle = xlR1C1 Then
148
        Application.ReferenceStyle = xlA1
149
    End If
150
End Sub
151

152