consolidator

1
Attribute VB_Name = "M7_ТЭСЦ3"
2
Sub П0000_Анализ()
3
    On Error Resume Next
4
    M0_Переменные.П0001_Параметры
5
    
6
    
7
' "Заготовка муфтовая ТЭСЦ-3" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
8
    If InStr(1, LCase(Производство), "муфт") > 0 _
9
    And InStr(1, LCase(Производство), "тэсц") > 0 _
10
    And InStr(1, LCase(Производство), "3") > 0 Then
11
        Производство = "Муфта ТЭСЦ-5"
12
        Продукт = "МУФТА Д"
13
        M8_ТЭСЦ5.П0100_Диаметр_типовой
14
        M3_Общий.П0140_Резьба_типовая
15
        M3_Общий.П0112_Группа_по_классу_прочности_для_муфт
16
        Наименование_УП = Продукт & Диам_тип & " " & Гр_прочн & " " & Резьба_тип
17
        M2_Промежуточный.П0900_Укрупнение
18
    End If
19
' "Труба бесшовная ТЭСЦ-3" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
20
    If InStr(1, LCase(Производство), "бесшовная") > 0 _
21
    And InStr(1, LCase(Производство), "труба") > 0 _
22
    And InStr(1, LCase(Производство), "тэсц") > 0 _
23
    And InStr(1, LCase(Производство), "3") > 0 Then
24
        Производство = "Труба бесшовная ТЭСЦ-3"
25
        Продукт = "ТРУБА БШ"
26
        П0120_Диапазон_диам
27
        П0125_Кл_прочности_прив
28
        Наименование_УП = Продукт & " " & Диап_параметров & " " & Кл_прочности_прив
29
        M2_Промежуточный.П0900_Укрупнение
30
    End If
31
    
32
' "Труба сваренная ТЭСЦ-3" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
33
    If (InStr(1, LCase(Производство), "варен") > 0 _
34
    And InStr(1, LCase(Производство), "труба") > 0 _
35
    And InStr(1, LCase(Производство), "тэсц") > 0 _
36
    And InStr(1, LCase(Производство), "3") > 0 _
37
    And InStr(1, LCase(Производство), "обсад") = 0) Then
38
        Производство = "Труба сваренная ТЭСЦ-3"
39
        Продукт = "ТРУБА Д"
40
        M3_Общий.П0130_Марка_стали_по_Гр_свойств
41
        П0102_Определение_Признака_EN_ПР
42
        П0100_Диаметр_типовой_по_ближайшему
43
        Доп_парам1 = Диам_тип
44
        Толщина_тип = Толщ_стен
45
        П0110_Диап_Толщин_по_Продукт
46
        Наименование_УП = Продукт & Диам_тип & " " & Гр_свойств
47
        
48
        П0130_Наименование_УП_для_труб
49
        M2_Промежуточный.П0900_Укрупнение
50
    End If
51

52
' "Труба изолированная ТЭСЦ-3" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
53
    If (InStr(1, LCase(Производство), "изол") > 0 _
54
    And InStr(1, LCase(Производство), "труба") > 0 _
55
    And InStr(1, LCase(Производство), "тэсц") > 0 _
56
    And InStr(1, LCase(Производство), "3") > 0 _
57
    And InStr(1, LCase(Производство), "обсад") = 0) _
58
    Or (InStr(1, LCase(Производство), "сваи") > 0 _
59
    And InStr(1, LCase(Производство), "изол") > 0) Then
60
        Производство = "Труба изолированная ТЭСЦ-3"
61
        Продукт = "ТРУБА Д"
62
        M3_Общий.П0130_Марка_стали_по_Гр_свойств
63
        П0102_Определение_Признака_EN_ПР
64
        П0100_Диаметр_типовой_по_ближайшему
65
        Доп_парам1 = Диам_тип
66
        Толщина_тип = Толщ_стен
67
        П0110_Диап_Толщин_по_Продукт
68
        Наименование_УП = Продукт & Диам_тип & " " & Гр_свойств & " ИН"
69
        П0130_Наименование_УП_для_труб
70
        If InStr(1, UCase(Наименование_УП), "ИН") = 0 Then
71
            Наименование_УП = Наименование_УП & " ИН"
72
        End If
73
        
74
        M2_Промежуточный.П0900_Укрупнение
75
    End If
76
    
77
' "Труба черная ТЭСЦ-3" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
78
    If (InStr(1, LCase(Производство), "черн") > 0 _
79
    And InStr(1, LCase(Производство), "труба") > 0 _
80
    And InStr(1, LCase(Производство), "тэсц") > 0 _
81
    And InStr(1, LCase(Производство), "3") > 0 _
82
    And InStr(1, LCase(Производство), "обсад") = 0) _
83
    Or (InStr(1, LCase(Производство), "сваи") > 0 _
84
    And InStr(1, LCase(Производство), "черн") > 0) Then
85
        Производство = "Труба черная ТЭСЦ-3"
86
        Продукт = "ТРУБА Д"
87
        M3_Общий.П0130_Марка_стали_по_Гр_свойств
88
        П0102_Определение_Признака_EN_ПР
89
        П0100_Диаметр_типовой_по_ближайшему
90
        Доп_парам1 = Диам_тип
91
        Толщина_тип = Толщ_стен
92
        П0110_Диап_Толщин_по_Продукт
93
        Наименование_УП = Продукт & Диам_тип & " " & Гр_свойств
94
        
95
        П0130_Наименование_УП_для_труб
96
        M2_Промежуточный.П0900_Укрупнение
97
    End If
98

99
' "Труба термообработанная ТЭСЦ-3" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
100
    If InStr(1, LCase(Производство), "термо") > 0 _
101
    And InStr(1, LCase(Производство), "труба") > 0 _
102
    And InStr(1, LCase(Производство), "тэсц") > 0 _
103
    And InStr(1, LCase(Производство), "3") > 0 _
104
    And InStr(1, LCase(Производство), "обсад") = 0 Then
105
        Производство = "Труба термообработанная ТЭСЦ-3"
106
        Продукт = "ТРУБА Д"
107
        M3_Общий.П0130_Марка_стали_по_Гр_свойств
108
        П0102_Определение_Признака_EN_ПР
109
        П0100_Диаметр_типовой_по_ближайшему
110
        Доп_парам1 = Диам_тип
111
        Толщина_тип = Толщ_стен
112
        П0110_Диап_Толщин_по_Продукт
113
        Наименование_УП = Продукт & Диам_тип & " " & Гр_свойств
114
        П0130_Наименование_УП_для_труб
115
        M2_Промежуточный.П0900_Укрупнение
116
    End If
117
' "Штрипс ТЭСЦ-3" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
118
    If InStr(1, LCase(Производство), "штрип") > 0 _
119
    And InStr(1, LCase(Производство), "тэсц") > 0 _
120
    And InStr(1, LCase(Производство), "3") > 0 Then
121
        Производство = "Штрипс ТЭСЦ-3"
122
        Продукт = "ПОЛОСА"
123
        M3_Общий.П0130_Марка_стали_по_Гр_свойств
124
        Толщина_тип = Толщина
125
        П0120_Ширина_приведенная
126
        Наименование_УП = Продукт & " Ш" & Шир_тип & " " & Гр_свойств
127
        If InStr(1, Гр_свойств, "ГУ") > 0 Then
128
            Гр_свойств = "ГУ"
129
            Наименование_УП = Продукт & " " & Диап_толщин & " Ш" & Шир_тип & " " & Гр_свойств
130
        End If
131
        M2_Промежуточный.П0900_Укрупнение
132
    End If
133
' "Труба профильная ТЭСЦ-3" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
134
    If InStr(1, LCase(Производство), "труба") > 0 _
135
    And InStr(1, LCase(Производство), "профил") > 0 _
136
    And InStr(1, LCase(Производство), "тэсц") > 0 _
137
    And InStr(1, LCase(Производство), "3") > 0 Then
138
        Производство = "Труба профильная ТЭСЦ-3"
139
        Продукт = "ТРУБА Д"
140
        M3_Общий.П0130_Марка_стали_по_Гр_свойств
141
        
142
        Толщина_тип = Толщ_стен
143
        Доп_парам1 = Размер_проф_1 & "Х" & Размер_проф_2
144
        П0110_Диап_Толщин_по_Продукт
145
        
146
        Наименование_УП = Продукт & Доп_парам1 & " " & Гр_свойств
147
        If InStr(1, Гр_свойств, "ГУ") > 0 Then
148
            Наименование_УП = Продукт & Доп_парам1 & " " & Диап_толщин & " " & Гр_свойств
149
        End If
150
        M2_Промежуточный.П0900_Укрупнение
151
    End If
152
    
153
' "Труба обсадная ТЭСЦ-3" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
154
    If InStr(1, LCase(Производство), "обсад") > 0 _
155
    And InStr(1, LCase(Производство), "тэсц") > 0 _
156
    And InStr(1, LCase(Производство), "3") > 0 Then
157
        Производство = "Труба обсадная ТЭСЦ-5"
158
        Продукт = "ТРУБА Д"
159
        M3_Общий.П0111_Группа_по_классу_прочности_для_труб
160
        M3_Общий.П0140_Резьба_типовая
161
        M8_ТЭСЦ5.П0100_Диаметр_типовой_по_ближайшему
162
        Наименование_УП = Продукт & Диам_тип & " ГО " & Гр_прочн & " " & Резьба_тип
163
        M2_Промежуточный.П0900_Укрупнение
164
    End If
165
    
166

167
End Sub
168

169

170
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
171
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
172
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
173
Sub П0130_Наименование_УП_для_труб()
174
    If InStr(1, Гр_свойств, "ГУ") > 0 Then
175
        Наименование_УП = Продукт & Диам_тип & " " & Диап_толщин & " " & Гр_свойств
176
        If Признак <> "" And Признак <> 0 And InStr(1, Гр_свойств, "ПР") = 0 Then
177
            Наименование_УП = Продукт & Диам_тип & " " & Диап_толщин & " " & Гр_свойств & " " & Признак
178
        End If
179
    End If
180
    If InStr(1, Гр_свойств, "ГК") > 0 Then
181
        Наименование_УП = Продукт & Диам_тип & " " & Гр_свойств
182
        If Признак <> "" And Признак <> 0 And InStr(1, Гр_свойств, "ПР") = 0 Then
183
            Наименование_УП = Продукт & Диам_тип & " " & Гр_свойств & " " & Признак
184
        End If
185
    End If
186
    If Диам_тип = 457 And InStr(1, Наименование_УП, "EN") = 0 Then
187
        Наименование_УП = Наименование_УП & " EN"
188
    End If
189
End Sub
190

191
Sub П0120_Ширина_приведенная()
192
    On Error Resume Next
193
    If Шир_штрипса = "" Then Шир_штрипса = 0
194
    Шир_штрипса = Replace(Шир_штрипса, ".", ",")
195
    Шир_штрипса = CSng(Шир_штрипса)
196
    
197
    If Толщина_тип = "" Then Толщина_тип = 0
198
    Толщина_тип = Replace(Толщина_тип, ".", ",")
199
    Толщина_тип = CSng(Толщина_тип)
200
    
201
    For s0 = 1 To 200
202
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-3" Then Exit For
203
    Next
204
    ш_мин = 5000
205
    For i = 4 To 300
206
        If i_строк_НП = 6 And i = 19 Then
207
        q = q
208
        End If
209
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
210
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
211
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
212
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
213
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
214
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
215
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
216
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
217
        q2 = Replace(q2, ".", ","): q2 = CSng(q2)
218
        q5 = Replace(q5, ".", ","): q5 = CSng(q5)
219
        q6 = Replace(q6, ".", ","): q6 = CSng(q6)
220
        
221
        If IsNumeric(q2) = True Then
222
            If InStr(1, UCase(q0), UCase(Производство)) > 0 _
223
            And InStr(1, UCase(q1), UCase(Продукт)) > 0 _
224
            And InStr(1, UCase(Гр_свойств), UCase(q3)) > 0 Then
225
                If (q5 <= Толщина_тип And Толщина_тип <= q6 And InStr(1, UCase(Гр_свойств), "ГУ") > 0) Or InStr(1, UCase(Гр_свойств), "ГУ") = 0 Then
226
                    ш_0 = Abs(q2 - Шир_штрипса)
227
                    If ш_мин > ш_0 Then
228
                        ш_мин = ш_0
229
                        Шир_тип = q2
230
                        Диап_толщин = q7
231
                    End If
232
                End If
233
            End If
234
        End If
235
    Next
236
End Sub
237

238

239
Sub П0110_Диап_Толщин_по_Продукт()
240
    On Error Resume Next
241
    If Толщина_тип = "" Then Толщина_тип = 0
242
    Толщина_тип = Replace(Толщина_тип, ".", ","): Толщина_тип = CSng(Толщина_тип)
243
    For s0 = 1 To 200
244
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-3" Then Exit For
245
    Next
246
    For i = 4 To 300
247
        If i = 66 Then
248
        q = q
249
        End If
250
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
251
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
252
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
253
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
254
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
255
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
256
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
257
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
258
        
259
        q2 = Replace(q2, ".", ","): q2 = CSng(q2)
260
        q5 = Replace(q5, ".", ","): q5 = CSng(q5)
261
        q6 = Replace(q6, ".", ","): q6 = CSng(q6)
262
        
263
        т_мин = 1000
264
        т_макс = 1000
265
        If UCase(q0) = UCase(Производство) _
266
        And UCase(q1) = UCase(Продукт) _
267
        And Доп_парам1 = q2 _
268
        And q5 <= Толщина_тип And Толщина_тип <= q6 And Толщина_тип > 0 _
269
        And InStr(1, UCase(q3), UCase(Гр_свойств)) > 0 Then
270
            Диап_толщин = q7: Exit Sub
271
        End If
272
    Next
273
End Sub
274

275

276
Sub П0125_Кл_прочности_прив()
277
    On Error Resume Next
278
    For s0 = 1 To 200
279
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-3" Then Exit For
280
    Next
281
    Кл_прочности_прив = "ПD"
282
    For i = 4 To 300
283
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
284
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
285
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
286
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
287
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
288
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимал
289
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимал
290
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон
291
        q5 = Replace(q5, ".", ","): q5 = CSng(q5)
292
        q6 = Replace(q6, ".", ","): q6 = CSng(q6)
293
        
294
'        If UCase(q0) = UCase(Производство) And UCase(q1) = UCase(Продукт) And q2 = Кл_прочности Then
295
        If UCase(q0) = UCase(Производство) And UCase(q1) = UCase(Продукт) Then
296
            If Марка_стали <> "" And Марка_стали <> 0 And UCase(q2) = UCase(Марка_стали) _
297
            Or ((Марка_стали = "" Or Марка_стали = 0) And UCase(q2) = UCase(Кл_прочности)) Then
298
                Кл_прочности_прив = q3
299
                Exit For
300
            End If
301
        End If
302
        
303
    Next
304
End Sub
305
Sub П0120_Диапазон_диам()
306
    On Error Resume Next
307
    If Диаметр = "" Then Диаметр = 0
308
    
309
    Диаметр = Replace(Диаметр, ".", ","): Диаметр = CSng(Диаметр)
310
    
311
    For s0 = 1 To 200
312
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-3" Then Exit For
313
    Next
314
    
315
    For i = 4 To 300
316
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
317
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
318
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
319
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
320
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
321
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимал
322
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимал
323
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон
324
        q5 = Replace(q5, ".", ","): q5 = CSng(q5)
325
        q6 = Replace(q6, ".", ","): q6 = CSng(q6)
326
        
327
        If UCase(q0) = UCase(Производство) And UCase(q1) = UCase(Продукт) _
328
        And q5 <= Диаметр And Диаметр <= q6 And Диаметр > 0 Then
329
            Диап_параметров = q7
330
            Exit For
331
        End If
332
    Next
333
End Sub
334
Sub П0102_Определение_Признака_EN_ПР()
335
    On Error Resume Next
336
    If i_строк_НП = 117 Then
337
        q = q
338
    End If
339
    For s0 = 1 To 200
340
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Признак по НТД" Then Exit For
341
    Next
342
    For i = 4 To 500
343
        If i = 43 Then
344
        q = q
345
        End If
346
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
347
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'НТД
348
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
349
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп признак
350
        
351
        If UCase(Производство) = UCase(q0) And UCase(НТД_кач_труб) = UCase(q1) _
352
        And (UCase(Гр_свойств) = "ГК" And UCase(q2) = "ГК" Or UCase(Гр_свойств) <> "ГК" And UCase(q2) = "") Then
353
            Признак = q3
354
            Exit For
355
        End If
356
    Next
357
End Sub
358

359
Sub П0100_Диаметр_типовой_по_ближайшему()
360
    On Error Resume Next
361
    If Диаметр = "" Then Диаметр = 0
362
    Диаметр = Replace(Диаметр, ".", ",")
363
    Диаметр = CSng(Диаметр)
364
    For s0 = 1 To 200
365
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-3" Then Exit For
366
    Next
367
'    Диам_тип = 0
368
    д_мин = 5000
369
    For i = 4 To 300
370
        If i = 29 Then
371
        q = q
372
        End If
373
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
374
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
375
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Диаметр
376
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Гр свойств
377
        q2 = Replace(q2, ".", ",")
378
        q2 = CSng(q2)
379
        
380
        If IsNumeric(q2) = True Then
381
            If UCase(q0) = UCase(Производство) _
382
            And UCase(q1) = UCase(Продукт) Then
383
                д_0 = Abs(q2 - Диаметр)
384
                If д_мин > д_0 Then
385
                    д_мин = д_0
386
                    Диам_тип = q2
387
                End If
388
            End If
389

390
        End If
391
    Next
392
End Sub
393

394
Sub П0100_Диаметр_типовой()
395
    On Error Resume Next
396
    If Диаметр = "" Then Диаметр = 0
397
    Диаметр = Replace(Диаметр, ".", ",")
398
    Диаметр = CSng(Диаметр)
399
    For s0 = 1 To 200
400
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТЭСЦ-3" Then Exit For
401
    Next
402
    For i = 4 To 300
403
        If i_строк_НП = 41 Then
404
        q = q
405
        End If
406
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
407
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
408
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Диаметр
409
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Диаметр типовой
410
        q2 = Replace(q2, ".", ","): q2 = CSng(q2)
411
        q3 = Replace(q3, ".", ","): q3 = CSng(q3)
412
        
413
        If IsNumeric(q2) = True Then
414
            If UCase(q0) = UCase(Производство) _
415
            And UCase(q1) = UCase(Продукт) _
416
            And q2 = Диаметр Then
417
                Диам_тип = q3: Exit For
418
            End If
419
        End If
420
    Next
421
End Sub
422

423