consolidator

1
Attribute VB_Name = "M9_ТБД"
2
Sub П0000_Анализ()
3
    On Error Resume Next
4
    M0_Переменные.П0001_Параметры
5
    
6
' "Трубы ТБД" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
7
    If InStr(1, LCase(Производство), "тбд") > 0 Then
8
        If i_строк_НП = 130 Then
9
        q = q
10
        End If
11
        If Диаметр < 508 Then
12
            M2_Промежуточный.П0900_Укрупнение
13
            Exit Sub
14
        ElseIf Диаметр = 508 Then
15
            Наименование_УП = "ТРУБА Д508 ГН"
16
            M2_Промежуточный.П0900_Укрупнение
17
            Exit Sub
18
        End If
19
        Производство = ""
20
        Продукт = "ТР Д"
21
        Шов = "ШВ1"
22
        
23
        If UCase(Тип_трубы) = UCase("двухшовная") Then Шов = "ШВ2"
24
        M3_Общий.П0120_Маппинг_Кл_прочности
25
        M3_Общий.П0121_Приведение_Кл_прочности
26
        П0100_Диаметр_типовой_по_ближайшему
27
        Толщина_тип = Толщ_стен
28
        If Кл_прочности_прив = "" Or Кл_прочности_прив = 0 Then
29
            Кл_прочности_прив = "К52"
30
        End If
31
        П0110_Диап_Толщин_по_Продукт
32
        Наименование_УП = Продукт & Диам_тип & " " & Диап_толщин & " " & Шов & " " & Кл_прочности_прив
33
        
34
        If Len(НТД_внутр) <> 0 _
35
        And Len(НТД_наруж) <> 0 Then
36
            Наименование_УП = Наименование_УП & " ИНВ"
37
        ElseIf НТД_наруж <> 0 Or НТД_наруж <> "" Then
38
            Наименование_УП = Наименование_УП & " ИН"
39
        ElseIf НТД_внутр <> 0 Or НТД_внутр <> "" Then
40
            Наименование_УП = Наименование_УП & " ИВ"
41
        End If
42
        
43
        M2_Промежуточный.П0900_Укрупнение
44
    End If
45

46
End Sub
47

48
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
49
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
50
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
51

52
Sub П0110_Диап_Толщин_по_Продукт()
53
    On Error Resume Next
54
    If Толщина_тип = "" Then Толщина_тип = 0
55
    Толщина_тип = Replace(Толщина_тип, ".", ","): Толщина_тип = CSng(Толщина_тип)
56
    For s0 = 1 To 200
57
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТБД" Then Exit For
58
    Next
59
    For i = 4 To 300
60
        If i = 41 Then
61
        q = q
62
        End If
63
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
64
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
65
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Доп параметр1
66
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'Доп параметр2
67
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Доп параметр3
68
        q5 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 5) 'минимальная толщина
69
        q6 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 6) 'максимальная толщина
70
        q7 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 7) 'Диапазон толщин
71
        
72
        q2 = Replace(q2, ".", ","): q2 = CSng(q2)
73
        q5 = Replace(q5, ".", ","): q5 = CSng(q5)
74
        q6 = Replace(q6, ".", ","): q6 = CSng(q6)
75
        
76
        т_мин = 1000
77
        т_макс = 1000
78
        If UCase(q0) = UCase(Производство) _
79
        And UCase(q1) = UCase(Продукт) _
80
        And q2 = Диам_тип _
81
        And UCase(q3) = UCase(Шов) _
82
        And UCase(q4) = UCase(Кл_прочности_прив) _
83
        And q5 <= Толщина_тип And Толщина_тип <= q6 And Толщина_тип > 0 Then
84
            Диап_толщин = q7: Exit Sub
85
        End If
86
    Next
87
End Sub
88

89
Sub П0100_Диаметр_типовой_по_ближайшему()
90
    On Error Resume Next
91
    If Диаметр = "" Then Диаметр = 0
92
    Диаметр = Replace(Диаметр, ".", ",")
93
    Диаметр = CSng(Диаметр)
94
    For s0 = 1 To 200
95
        If Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(1, s0) = "Параметры по Продукту ТБД" Then Exit For
96
    Next
97
'    Диам_тип = 0
98
    д_мин = 5000
99
    For i = 4 To 300
100
        If i = 29 Then
101
        q = q
102
        End If
103
        q0 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0) 'Производство
104
        q1 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 1) 'Продукт
105
        q2 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 2) 'Диаметр
106
        q3 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 3) 'шов
107
        q4 = Workbooks(ИмяФайла_Раб).Sheets("Справочник").Cells(i, s0 + 4) 'Кл прочн
108
        q2 = Replace(q2, ".", ",")
109
        q2 = CSng(q2)
110
        
111
        If IsNumeric(q2) = True Then
112
'            If UCase(q0) = UCase(Производство) _
113
'            And UCase(q1) = UCase(Продукт) _
114
'            And UCase(q3) = UCase(Шов) _
115
'            And UCase(q4) = UCase(Кл_прочности_прив) Then
116
                д_0 = Abs(q2 - Диаметр)
117
                If д_мин > д_0 Then
118
                    д_мин = д_0
119
                    Диам_тип = q2
120
                End If
121
'            End If
122

123
        End If
124
    Next
125
End Sub
126

127

128