consolidator

1
Attribute VB_Name = "M0_Ïåðåìåííûå"
2
Public Ïîëí_íàèìåíîâàíèå As Variant
3
    Public Ñîîòâ_Ñòîëáåö(100) As Variant
4
    Public Ïîëíîå_íèìåíîâàíèå As Variant
5
    Public Âèä_ìàòåðèàëà As Variant
6
    Public Ïðîèçâîäñòâî As Variant
7
    Public ×åðò As Variant
8
    Public Âàêóóì As Variant
9
    Public Ãð_òð As Variant
10
    Public Äèàì_ñòóï As Variant
11
    Public Äèàìåòð As Variant
12
    Public Äèàì_òèï As Variant
13
    Public Äëèí_ëèñòà As Variant
14
    Public Äëèí_ðàñêàòà As Variant
15
    Public Äëèí_ðàñêðÿ As Variant
16
    Public Èñõ_çàãîò As Variant
17
    Public Êàòåãîðèÿ As Variant
18
    Public Êë_ïðî÷íîñòè As Variant
19
    Public Êë_ïðî÷íîñòè_êîðï As Variant
20
    Public Êîä_ÑÊÌÒÐ As Variant
21
    Public Ìàðêà_ñòàëè As Variant
22
    Public Ìàðêà_ñòàëè_êîðï As Variant
23
    Public Ìóôòà_ñ_óïëîòí As Variant
24
    Public Ìóôòà_ñïåö As Variant
25
    Public Êàëèáðîâêà_êîë As Variant
26
    Public ÍÒÄ_âíóòð As Variant
27
    Public ÍÒÄ_ãåîì As Variant
28
    Public ÍÒÄ_êà÷_òðóá As Variant
29
    Public ÍÒÄ_íàðóæ As Variant
30
    Public ÍÒÄ_õèìèÿ As Variant
31
    Public Ðàçìåð_ïðîô_1 As Variant
32
    Public Ðàçìåð_ïðîô_2 As Variant
33
    Public Âåñ_òåîð As Variant
34
    Public Âåñ_êîëåñ_òåîð_ÒÎ As Variant
35
    Public Âåñ_êîëåñ_òåîð As Variant
36
    Public Âåñ_êîëåñ_çàã_òåîð As Variant
37
    Public Âåñ_ñëèò_òåîð As Variant
38
    Public Âåñ_êîëåñ_÷åðí_òåîð As Variant
39
    Public Òåðìî_Îáðàá As Variant
40
    Public Òèï_ïîêð_ìóôò As Variant
41
    Public Òèï_ðåçüáû As Variant
42
    Public Òèï_òðóáû As Variant
43
    Public Òèïîðàçì_èçëîæ As Variant
44
    Public Òîëù_ìàò_ñëÿáà As Variant
45
    Public Òîëù_ïîêð As Variant
46
    Public Òîëù_ñòåí_çàãîò As Variant
47
    Public Òîëùèíà As Variant
48
    Public Òîëùèíà_êîðï As Variant
49
    Public Òîëùèíà_òèï As Variant
50
    Public Óðîâåíü_èñïîë As Variant
51
    Public Êðîìêà_õàðàêò As Variant
52
    Public Øèð_ëèñòà_øòðèïñ As Variant
53
    Public Øèð_ìàò_ñëÿáà As Variant
54
    Public Øèð_ìàò_ñëÿáà_êîðï As Variant
55
    Public Øèð_ðóëîíà As Variant
56
    Public Øèð_øòðèïñà As Variant
57
    Public Øèð_òèï As Variant
58
    Public Øèð_ðàñêàòà As Variant
59
    Public Òîëù_ñòåí As Variant
60
    Public Òîëù_ïðèâ As Variant
61
    Public Òèï_ïîêð_2 As Variant
62
    Public Òîëù_ðàñêàòà As Variant
63
    Public Ñïåöèôèêàöèÿ As Variant
64
    Public ÍÒÄ_íàðóæ_2 As Variant
65
    Public ÍÒÄ_êà÷_êîëåñ As Variant
66
    Public ÍÒÄ_êà÷_ïðîêàò As Variant
67
    Public ÍÒÄ_êà÷_ïðîêàò_êîðï As Variant
68
    Public Ïîêðàñêà As Variant
69
    Public Òèï_ïîêð As Variant
70
    Public Øîâ As Variant
71
    
72
    Public Ñòàíäàðò_ÊÏÊ As Variant
73
    Public Path_My As Variant
74
    Public Path As Variant
75
    Public ÈìÿÔàéëà_Ðàá As Variant
76
    Public ÈìÿÔàéëà_Èñõ As Variant
77
    Public ÈìÿÔàéëà_Ñïð As Variant
78
    Public Ëèñòîâ_â_Ðàá As Variant
79
    Public Ëèñòîâ_â_Èñõ As Variant
80
    Public ÈìÿÔàéëà_Èñõ_1 As Variant
81
    Public Íàèìåíîâàíèå_ÓÏ As Variant
82
    Public Ðåçóëüòàò_àíàëèçà As Variant
83
    Public Ïðîäóêò As Variant
84
    Public Ïðèçíàê As Variant
85
    Public i_ëèñò As Variant
86
    Public i_ñòðîê As Variant
87
    Public Ñòðîêà_ÓÏ_Íà÷ As Variant
88
    Public Ñòðîêà_ÓÏ_Îêîí As Variant
89
    Public i_ñòðîê_ÍÏ As Variant
90
    Public i_ñòðîê_ÓÏ As Variant
91
    Public i_ñòîëáöîâ_ÍÏ As Variant
92
    Public i_ñòîëáöîâ_ÓÏ As Variant
93
    Public Ñòðîê As Variant
94
    Public Flag_SAP As Variant
95
    Public Flag_Ïðî÷èå As Variant
96
    Public Ãð_ñâîéñòâ As Variant
97
    Public Êë_ïðî÷íîñòè_ïðèâ As Variant
98
    Public Äèàï_òîëùèí As Variant
99
    Public Äèàï_ïàðàìåòðîâ As Variant
100
    Public Äîï_ïàðàì1 As Variant
101
    Public Äîï_ïàðàì2 As Variant
102
    Public Äîï_ïàðàì3 As Variant
103
    Public Ðåçüáà_òèï As Variant
104
    Public Ãð_ïðî÷í As Variant
105
    
106
    
107
Sub Ï0001_Ïàðàìåòðû()
108
    Ïîëíîå_íèìåíîâàíèå = ""
109
    Ïðîèçâîäñòâî = ""
110
    ×åðò = ""
111
    Âàêóóì = ""
112
    Ãð_òð = ""
113
    Äèàì_ñòóï = ""
114
    Äèàìåòð = ""
115
    Äëèí_ëèñòà = ""
116
    Äëèí_ðàñêàòà = ""
117
    Äëèí_ðàñêðîÿ = ""
118
    Èñõ_çàãîò = ""
119
    Êàòåãîðèÿ = ""
120
    Êë_ïðî÷íîñòè = ""
121
    Êë_ïðî÷íîñòè_êîðï = ""
122
    Êîä_ÑÊÌÒÐ = ""
123
    Ìàðêà_ñòàëè = ""
124
    Ìàðêà_ñòàëè_êîðï = ""
125
    Ìóôòà_ñ_óïëîòí = ""
126
    Ìóôòà_ñïåö = ""
127
    Êàëèáðîâêà_êîë = ""
128
    ÍÒÄ_âíóòð = ""
129
    ÍÒÄ_ãåîì = ""
130
    ÍÒÄ_êà÷_òðóá = ""
131
    ÍÒÄ_íàðóæ = ""
132
    ÍÒÄ_õèìèÿ = ""
133
    Ðàçìåð_ïðîô_1 = ""
134
    Ðàçìåð_ïðîô_2 = ""
135
    Âåñ_êîëåñ_òåîð_ÒÎ = ""
136
    Âåñ_êîëåñ_òåîð = ""
137
    Âåñ_êîëåñ_çàã_òåîð = ""
138
    Âåñ_ñëèò_òåîð = ""
139
    Âåñ_êîëåñ_÷åðí_òåîð = ""
140
    Òåðìî_Îáðàá = ""
141
    Òèï_ïîêð_ìóôò = ""
142
    Òèï_ðåçüáû = ""
143
    Òèï_òðóáû = ""
144
    Òèïîðàçì_èçëîæ = ""
145
    Òîëù_ìàò_ñëÿáà = ""
146
    Òîëù_ïîêð = ""
147
    Òîëù_ñòåí_çàãîò = ""
148
    Òîëùèíà = ""
149
    Òîëùèíà_êîðï = ""
150
    Òîëùèíà_òèï = ""
151
    Óðîâåíü_èñïîë = ""
152
    Êðîìêà_õàðàêò = ""
153
    Øèð_ëèñòà_øòðèïñ = ""
154
    Øèð_ìàò_ñëÿáà = ""
155
    Øèð_ìàò_ñëÿáà_êîðï = ""
156
    Øèð_ðóëîíà = ""
157
    Øèð_øòðèïñà = ""
158
    ÍÒÄ_íàðóæ_2 = ""
159
    Òèï_ïîêð_2 = ""
160
    Òîëù_ðàñêàòà = ""
161
    Øèð_ðàñêàòà = ""
162
    Ñïåöèôèêàöèÿ = ""
163
    ÍÒÄ_êà÷_êîëåñ = ""
164
    ÍÒÄ_êà÷_ïðîêàò = ""
165
    ÍÒÄ_êà÷_ïðîêàò_êîðï = ""
166
    Ïîêðàñêà = ""
167
    Òèï_ïîêð = ""
168
    Òîëù_ñòåí = ""
169
    Ñòàíäàðò_ÊÏÊ = ""
170
    Íàèìåíîâàíèå_ÓÏ = ""
171
    Ãð_ñâîéñòâ = ""
172
    Êë_ïðî÷íîñòè_ïðèâ = ""
173
    Ïðîäóêò = ""
174
    Ïðèçíàê = ""
175

176
    Äèàï_òîëùèí = ""
177
    Øèð_òèï = ""
178
    Äèàì_òèï = ""
179
    Ðåçüáà_òèï = ""
180
    Äîï_ïàðàì1 = ""
181
    Äîï_ïàðàì2 = ""
182
    Äîï_ïàðàì3 = ""
183
    Äèàï_ïàðàìåòðîâ = ""
184
    Ãð_ïðî÷í = ""
185
    
186
    
187
    For i_ñòîëáöîâ_ÍÏ = 1 To 100
188
        s_NP_0 = Workbooks(ÈìÿÔàéëà_Ðàá).Sheets("Ïîçèöèè íà óêðóïíåíèå").Cells(1, i_ñòîëáöîâ_ÍÏ)
189
        s_NP_1 = Workbooks(ÈìÿÔàéëà_Ðàá).Sheets("Ïîçèöèè íà óêðóïíåíèå").Cells(i_ñòðîê_ÍÏ, i_ñòîëáöîâ_ÍÏ)
190
        
191
        If "Ïîëíîå íàèìåíîâàíèå ìàòåðèàëà" = s_NP_0 Then Ïîëíîå_íèìåíîâàíèå = s_NP_1
192
        If "Âèä ìàòåðèàëà â SAP ERP" = s_NP_0 Then Âèä_ìàòåðèàëà = s_NP_1
193
        If "Ïðîèçâîäñòâî" = s_NP_0 Then Ïðîèçâîäñòâî = s_NP_1
194
        If "Ïîëíîå íàèìåíîâàíèå ìàòåðèàëà" = s_NP_0 Then Ïîëí_íàèìåíîâàíèå = s_NP_1
195
        If "Âèä ìàòåðèàëà â SAP ERP" = s_NP_0 Then Âèä_ìàòåðèàëà = s_NP_1
196
        If "Ïðîèçâîäñòâî" = s_NP_0 Then Ïðîèçâîäñòâî = s_NP_1
197
        If "¹ ÷åðòåæà <Ïðîèçâîäñòâî>" = s_NP_0 Then ×åðò = s_NP_1
198
        If "Âàêóóìèðîâàíèå <Ïðîèçâîäñòâî>" = s_NP_0 Then Âàêóóì = s_NP_1
199
        If "Ãðóïïà òðóá * <Ïðîèçâîäñòâî>" = s_NP_0 Then Ãð_òð = s_NP_1
200
        If "Äèàìåòð ñòóïèöû, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äèàì_ñòóï = s_NP_1
201
        If "Äèàìåòð, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äèàìåòð = s_NP_1
202
        If "Äëèíà ëèñòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äëèí_ëèñòà = s_NP_1
203
        If "Äëèíà ðàñêàòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äëèí_ðàñêàòà = s_NP_1
204
        If "Äëèíà ðàñêðîÿ, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äëèí_ðàñêðîÿ = s_NP_1
205
        If "Èñõîäíàÿ çàãîòîâêà <Ïðîèçâîäñòâî>" = s_NP_0 Then Èñõ_çàãîò = s_NP_1
206
        If "Êàòåãîðèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Êàòåãîðèÿ = s_NP_1
207
        If "Êëàññ ïðî÷íîñòè <Ïðîèçâîäñòâî>" = s_NP_0 Then Êë_ïðî÷íîñòè = s_NP_1
208
        If "Êëàññ ïðî÷íîñòè* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Êë_ïðî÷íîñòè_êîðï = s_NP_1
209
        If "Êîä ÑÊÌÒÐ <Ïðîèçâîäñòâî>" = s_NP_0 Then Êîä_ÑÊÌÒÐ = s_NP_1
210
        If "Ìàðêà ñòàëè <Ïðîèçâîäñòâî>" = s_NP_0 Then Ìàðêà_ñòàëè = s_NP_1
211
        If "Ìàðêà ñòàëè* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Ìàðêà_ñòàëè_êîðï = s_NP_1
212
        If "Ìóôòà ñ óçëîì óïëîòíåíèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Ìóôòà_ñ_óïëîòí = s_NP_1
213
        If "Ìóôòà ñïåöèàëüíàÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Ìóôòà_ñïåö = s_NP_1
214
        If "Íîìåð êàëèáðîâêè êîëåñà <Ïðîèçâîäñòâî>" = s_NP_0 Then Êàëèáðîâêà_êîë = s_NP_1
215
        If "ÍÒÄ âíóòðåííåãî ïîêðûòèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_âíóòð = s_NP_1
216
        If "ÍÒÄ ãåîìåòðèè <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_ãåîì = s_NP_1
217
        If "ÍÒÄ êà÷åñòâà (òðóáû ñòàëüíûå) <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_êà÷_òðóá = s_NP_1
218
        If "ÍÒÄ íàðóæíîãî ïîêðûòèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_íàðóæ = s_NP_1
219
        If "ÍÒÄ Õèìè÷åñêîãî ñîñòàâà <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_õèìèÿ = s_NP_1
220
        If "Ðàçìåð ïðîôèëÿ 1, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Ðàçìåð_ïðîô_1 = s_NP_1
221
        If "Ðàçìåð ïðîôèëÿ 2, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Ðàçìåð_ïðîô_2 = s_NP_1
222
        If "Òåîðåòè÷åñêèé âåñ êîëåñà ïîñëå ÒÎ, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_òåîð_ÒÎ = s_NP_1
223
        If "Òåîðåòè÷åñêèé âåñ êîëåñà, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_òåîð = s_NP_1
224
        If "Òåîðåòè÷åñêèé âåñ êîëåñíîé çàãîòîâêè, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_çàã_òåîð = s_NP_1
225
        If "Òåîðåòè÷åñêèé âåñ ñëèòêà, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_ñëèò_òåîð = s_NP_1
226
        If "Òåîðåòè÷åñêèé âåñ ÷åðíîâîãî êîëåñà, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_÷åðí_òåîð = s_NP_1
227
        If "Òåðìîîáðàáîòêà <Ïðîèçâîäñòâî>" = s_NP_0 Then Òåðìî_Îáðàá = s_NP_1
228
        If "Òèï ïîêðûòèÿ ìóôòû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ïîêð_ìóôò = s_NP_1
229
        If "Òèï ðåçüáû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ðåçüáû = s_NP_1
230
        If "Òèï òðóáû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_òðóáû = s_NP_1
231
        If "Òèïîðàçìåð èçëîæíèöû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèïîðàçì_èçëîæ = s_NP_1
232
        If "Òîëùèíà ìàòåðèíñêîãî ñëÿáà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ìàò_ñëÿáà = s_NP_1
233
        If "Òîëùèíà, ìì* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Òîëùèíà_êîðï = s_NP_1
234
        If "Òîëùèíà ïîêðûòèÿ, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ïîêð = s_NP_1
235
        If "Òîëùèíà ñòåíêè çàãîòîâêè, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ñòåí_çàãîò = s_NP_1
236
        If "Òîëùèíà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëùèíà = s_NP_1
237
        If "Óðîâåíü èñïîëíåíèÿ * <Ïðîèçâîäñòâî>" = s_NP_0 Then Óðîâåíü_èñïîë = s_NP_1
238
        If "Õàðàêòåð êðîìêè <Ïðîèçâîäñòâî>" = s_NP_0 Then Êðîìêà_õàðàêò = s_NP_1
239
        If "Øèðèíà ëèñòà (øòðèïñà), ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ëèñòà_øòðèïñ = s_NP_1
240
        If "Øèðèíà ìàòåðèíñêîãî ñëÿáà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ìàò_ñëÿáà = s_NP_1
241
        If "Øèðèíà ñëÿáà, ìì* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Øèð_ìàò_ñëÿáà_êîðï = s_NP_1
242
        If "Øèðèíà ðóëîíà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ðóëîíà = s_NP_1
243
        If "Øèðèíà øòðèïñà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_øòðèïñà = s_NP_1
244
        If "ÍÒÄ íàðóæíîãî ïîêðûòèÿ 2 <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_íàðóæ_2 = s_NP_1
245
        If "Òèï ïîêðûòèÿ 2 <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ïîêð_2 = s_NP_1
246
        If "Òîëùèíà ðàñêàòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ðàñêàòà = s_NP_1
247
        If "Øèðèíà ðàñêàòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ðàñêàòà = s_NP_1
248
        If "Êîíòðàêò, ñïåöèôèêàöèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Ñïåöèôèêàöèÿ = s_NP_1
249
        If "ÍÒÄ êà÷åñòâà (êîëåñà) <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_êà÷_êîëåñ = s_NP_1
250
        If "ÍÒÄ êà÷åñòâà (ïðîêàò) <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_êà÷_ïðîêàò = s_NP_1
251
        If "ÍÒÄ êà÷åñòâà (ñëèòêè ñòàëüíûå)* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then ÍÒÄ_êà÷_ïðîêàò_êîðï = s_NP_1
252
        If "Ïîêðàñêà <Ïðîèçâîäñòâî>" = s_NP_0 Then Ïîêðàñêà = s_NP_1
253
        If "Òèï ïîêðûòèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ïîêð = s_NP_1
254
        If "Òîëùèíà ñòåíêè, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ñòåí = s_NP_1
255
    Next
256
End Sub
257

258

259