consolidator

1
Attribute VB_Name = "M6_ТЭСЦ2"
2
Sub П0000_Анализ()
3
    On Error Resume Next
4
    M0_Переменные.П0001_Параметры
5
    
6
' "Труба круглая ТЭСЦ-2" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
7
    If InStr(1, LCase(Производство), "труба") > 0 _
8
    And InStr(1, LCase(Производство), "круглая") > 0 _
9
    And InStr(1, LCase(Производство), "тэсц") > 0 _
10
    And InStr(1, LCase(Производство), "2") > 0 Then
11
        Производство = "Труба круглая ТЭСЦ-2"
12
        Продукт = "ТРУБА Д"
13
        M3_Общий.П0100_Продукт
14
'        If InStr(1, LCase(Полное_нименование), "прямошов") > 0 _
15
'        Or InStr(1, LCase(Полное_нименование), "свар") > 0 _
16
'        And InStr(1, LCase(Полное_нименование), "вод") = 0 _
17
'        And InStr(1, LCase(Полное_нименование), "газ") = 0 Then
18
'            Продукт = "ТРУБА Д"
19
'        ElseIf InStr(1, LCase(Полное_нименование), "вод") > 0 _
20
'        And InStr(1, LCase(Полное_нименование), "газ") > 0 Then
21
'            Продукт = "ТРУБА ДУ"
22
'        End If
23
        Толщина_тип = Толщ_стен
24
        П0100_Диаметр_типовой
25
        
26
        Доп_парам1 = Диам_тип
27
        П0110_Диап_Толщин_по_Продукт
28
        
29
        Наименование_УП = Продукт & Диам_тип & " " & Диап_толщин & " ГУ"
30
        M2_Промежуточный.П0900_Укрупнение
31
    End If
32

33
' "Штрипс ТЭСЦ-2" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
34
    If InStr(1, LCase(Производство), "штрип") > 0 _
35
    And InStr(1, LCase(Производство), "тэсц") > 0 _
36
    And InStr(1, LCase(Производство), "2") > 0 Then
37
        Производство = "Штрипс ТЭСЦ-2"
38
        Продукт = "ПОЛОСА"
39
        
40
        Толщина_тип = Толщина
41
        П0120_Ширина_приведенная
42
        
43
        Наименование_УП = Продукт & " " & Диап_толщин & " Ш" & Шир_тип & " ГУ"
44
        M2_Промежуточный.П0900_Укрупнение
45
    End If
46

47
' "Труба профильная ТЭСЦ-2" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
48
    If InStr(1, LCase(Производство), "труба") > 0 _
49
    And InStr(1, LCase(Производство), "профил") > 0 _
50
    And InStr(1, LCase(Производство), "тэсц") > 0 _
51
    And InStr(1, LCase(Производство), "2") > 0 Then
52
        Производство = "Труба профильная ТЭСЦ-2"
53
        Продукт = "ТРУБА Д"
54
        
55
        Толщина_тип = Толщ_стен
56
        Доп_парам1 = Размер_проф_1 & "Х" & Размер_проф_2
57
        П0110_Диап_Толщин_по_Продукт
58
        
59
        Наименование_УП = Продукт & Доп_парам1 & " " & Диап_толщин & " ГУ"
60
        M2_Промежуточный.П0900_Укрупнение
61
    End If
62
End Sub
63

64
    
65
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
66
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
67
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
68
Sub П0130_Профиль_приведенный()
69
    On Error Resume Next
70
    If Шир_штрипса = "" Then Шир_штрипса = 0
71
    Шир_штрипса = Replace(Шир_штрипса, ".", ",")
72
    Шир_штрипса = CSng(Шир_штрипса)
73
    
74
    If Толщина_тип = "" Then Толщина_тип = 0
75
    Толщина_тип = Replace(Толщина_тип, ".", ",")
76
    Толщина_тип = CSng(Толщина_тип)
77
    
78
    For s0 = 1 To 200
79
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-2" Then Exit For
80
    Next
81
    ш_мин = 5000
82
    For i = 4 To 300
83
        If i_строк_НП = 6 And i = 19 Then
84
        q = q
85
        End If
86
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
87
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
88
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
89
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
90
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
91
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
92
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
93
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
94
        q2 = Replace(q2, ".", ",")
95
        q2 = CSng(q2)
96
        q5 = Replace(q5, ".", ",")
97
        q5 = CSng(q5)
98
        q6 = Replace(q6, ".", ",")
99
        q6 = CSng(q6)
100
        
101
        If IsNumeric(q2) = True Then
102
            If UCase(q0) = UCase(Производство) And UCase(q1) = UCase(Продукт) _
103
            And q5 <= Толщина_тип And Толщина_тип <= q6 And Толщина_тип > 0 Then
104
                ш_0 = Abs(q2 - Шир_штрипса)
105
                If ш_мин > ш_0 Then
106
                    ш_мин = ш_0
107
                    Шир_тип = q2
108
                    Диап_толщин = q7
109
                End If
110
            End If
111
        End If
112
    Next
113
End Sub
114

115
Sub П0120_Ширина_приведенная()
116
    On Error Resume Next
117
    If Шир_штрипса = "" Then Шир_штрипса = 0
118
    Шир_штрипса = Replace(Шир_штрипса, ".", ",")
119
    Шир_штрипса = CSng(Шир_штрипса)
120
    
121
    If Толщина_тип = "" Then Толщина_тип = 0
122
    Толщина_тип = Replace(Толщина_тип, ".", ",")
123
    Толщина_тип = CSng(Толщина_тип)
124
    
125
    For s0 = 1 To 200
126
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-2" Then Exit For
127
    Next
128
    ш_мин = 5000
129
    For i = 4 To 300
130
        If i_строк_НП = 6 And i = 19 Then
131
        q = q
132
        End If
133
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
134
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
135
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
136
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
137
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
138
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
139
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
140
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
141
        q2 = Replace(q2, ".", ",")
142
        q2 = CSng(q2)
143
        q5 = Replace(q5, ".", ",")
144
        q5 = CSng(q5)
145
        q6 = Replace(q6, ".", ",")
146
        q6 = CSng(q6)
147
        
148
        If IsNumeric(q2) = True Then
149
            If UCase(q0) = UCase(Производство) And UCase(q1) = UCase(Продукт) _
150
            And q5 <= Толщина_тип And Толщина_тип <= q6 And Толщина_тип > 0 Then
151
                ш_0 = Abs(q2 - Шир_штрипса)
152
                If ш_мин > ш_0 Then
153
                    ш_мин = ш_0
154
                    Шир_тип = q2
155
                    Диап_толщин = q7
156
                End If
157
            End If
158
        End If
159
    Next
160
End Sub
161

162
Sub П0100_Диаметр_типовой()
163
    On Error Resume Next
164
    If Диаметр = "" Then Диаметр = 0
165
    Диаметр = Replace(Диаметр, ".", ",")
166
    Диаметр = CSng(Диаметр)
167
    If Толщина_тип = "" Then Толщина_тип = 0
168
    Толщина_тип = Replace(Толщина_тип, ".", ",")
169
    Толщина_тип = CSng(Толщина_тип)
170
    
171
    For s0 = 1 To 200
172
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-2" Then Exit For
173
    Next
174
'    Диам_тип = 0
175
    д_мин = 5000
176
    For i = 4 To 300
177
        If i_строк_НП = 67 And i = 11 Then
178
        q = q
179
        End If
180
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
181
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
182
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
183
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
184
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
185
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
186
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
187
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
188
        
189
        q2 = Replace(q2, ".", ",")
190
        q2 = CSng(q2)
191
        q5 = Replace(q5, ".", ",")
192
        q5 = CSng(q5)
193
        q6 = Replace(q6, ".", ",")
194
        q6 = CSng(q6)
195
        
196
        If IsNumeric(q2) = True Then
197
            If UCase(q0) = UCase(Производство) _
198
            And UCase(q1) = UCase(Продукт) _
199
            And q5 <= Толщина_тип And Толщина_тип <= q6 Then
200
                д_0 = Abs(q2 - Диаметр)
201
                If д_мин > д_0 Then
202
                    д_мин = д_0
203
                    Диам_тип = q2
204
                End If
205
            End If
206
        End If
207
    Next
208
End Sub
209

210

211
Sub П0110_Диап_Толщин_по_Продукт()
212
    On Error Resume Next
213
    If Толщина_тип = "" Then Толщина_тип = 0
214
    Толщина_тип = Replace(Толщина_тип, ".", ",")
215
    Толщина_тип = CSng(Толщина_тип)
216
    For s0 = 1 To 200
217
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-2" Then Exit For
218
    Next
219
    For i = 4 To 300
220
        If i = 41 Then
221
        q = q
222
        End If
223
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
224
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
225
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
226
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
227
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
228
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
229
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
230
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
231
        
232
        q2 = Replace(q2, ".", ",")
233
        q2 = CSng(q2)
234
        q5 = Replace(q5, ".", ",")
235
        q5 = CSng(q5)
236
        q6 = Replace(q6, ".", ",")
237
        q6 = CSng(q6)
238
        
239
        т_мин = 1000
240
        т_макс = 1000
241
        If UCase(q0) = UCase(Производство) _
242
        And UCase(q1) = UCase(Продукт) _
243
        And Доп_парам1 = q2 _
244
        And q5 <= Толщина_тип And Толщина_тип <= q6 And Толщина_тип > 0 Then
245
            Диап_толщин = q7: Exit Sub
246
        End If
247
    Next
248
End Sub
249

250