consolidator
256 строк · 10.6 Кб
1Attribute VB_Name = "M0_Ïåðåìåííûå"
2Public Ïîëí_íàèìåíîâàíèå As Variant
3Public Ñîîòâ_Ñòîëáåö(100) As Variant
4Public Ïîëíîå_íèìåíîâàíèå As Variant
5Public Âèä_ìàòåðèàëà As Variant
6Public Ïðîèçâîäñòâî As Variant
7Public ×åðò As Variant
8Public Âàêóóì As Variant
9Public Ãð_òð As Variant
10Public Äèàì_ñòóï As Variant
11Public Äèàìåòð As Variant
12Public Äèàì_òèï As Variant
13Public Äëèí_ëèñòà As Variant
14Public Äëèí_ðàñêàòà As Variant
15Public Äëèí_ðàñêðÿ As Variant
16Public Èñõ_çàãîò As Variant
17Public Êàòåãîðèÿ As Variant
18Public Êë_ïðî÷íîñòè As Variant
19Public Êë_ïðî÷íîñòè_êîðï As Variant
20Public Êîä_ÑÊÌÒÐ As Variant
21Public Ìàðêà_ñòàëè As Variant
22Public Ìàðêà_ñòàëè_êîðï As Variant
23Public Ìóôòà_ñ_óïëîòí As Variant
24Public Ìóôòà_ñïåö As Variant
25Public Êàëèáðîâêà_êîë As Variant
26Public ÍÒÄ_âíóòð As Variant
27Public ÍÒÄ_ãåîì As Variant
28Public ÍÒÄ_êà÷_òðóá As Variant
29Public ÍÒÄ_íàðóæ As Variant
30Public ÍÒÄ_õèìèÿ As Variant
31Public Ðàçìåð_ïðîô_1 As Variant
32Public Ðàçìåð_ïðîô_2 As Variant
33Public Âåñ_òåîð As Variant
34Public Âåñ_êîëåñ_òåîð_ÒÎ As Variant
35Public Âåñ_êîëåñ_òåîð As Variant
36Public Âåñ_êîëåñ_çàã_òåîð As Variant
37Public Âåñ_ñëèò_òåîð As Variant
38Public Âåñ_êîëåñ_÷åðí_òåîð As Variant
39Public Òåðìî_Îáðàá As Variant
40Public Òèï_ïîêð_ìóôò As Variant
41Public Òèï_ðåçüáû As Variant
42Public Òèï_òðóáû As Variant
43Public Òèïîðàçì_èçëîæ As Variant
44Public Òîëù_ìàò_ñëÿáà As Variant
45Public Òîëù_ïîêð As Variant
46Public Òîëù_ñòåí_çàãîò As Variant
47Public Òîëùèíà As Variant
48Public Òîëùèíà_êîðï As Variant
49Public Òîëùèíà_òèï As Variant
50Public Óðîâåíü_èñïîë As Variant
51Public Êðîìêà_õàðàêò As Variant
52Public Øèð_ëèñòà_øòðèïñ As Variant
53Public Øèð_ìàò_ñëÿáà As Variant
54Public Øèð_ìàò_ñëÿáà_êîðï As Variant
55Public Øèð_ðóëîíà As Variant
56Public Øèð_øòðèïñà As Variant
57Public Øèð_òèï As Variant
58Public Øèð_ðàñêàòà As Variant
59Public Òîëù_ñòåí As Variant
60Public Òîëù_ïðèâ As Variant
61Public Òèï_ïîêð_2 As Variant
62Public Òîëù_ðàñêàòà As Variant
63Public Ñïåöèôèêàöèÿ As Variant
64Public ÍÒÄ_íàðóæ_2 As Variant
65Public ÍÒÄ_êà÷_êîëåñ As Variant
66Public ÍÒÄ_êà÷_ïðîêàò As Variant
67Public ÍÒÄ_êà÷_ïðîêàò_êîðï As Variant
68Public Ïîêðàñêà As Variant
69Public Òèï_ïîêð As Variant
70Public Øîâ As Variant
71
72Public Ñòàíäàðò_ÊÏÊ As Variant
73Public Path_My As Variant
74Public Path As Variant
75Public ÈìÿÔàéëà_Ðàá As Variant
76Public ÈìÿÔàéëà_Èñõ As Variant
77Public ÈìÿÔàéëà_Ñïð As Variant
78Public Ëèñòîâ_â_Ðàá As Variant
79Public Ëèñòîâ_â_Èñõ As Variant
80Public ÈìÿÔàéëà_Èñõ_1 As Variant
81Public Íàèìåíîâàíèå_ÓÏ As Variant
82Public Ðåçóëüòàò_àíàëèçà As Variant
83Public Ïðîäóêò As Variant
84Public Ïðèçíàê As Variant
85Public i_ëèñò As Variant
86Public i_ñòðîê As Variant
87Public Ñòðîêà_ÓÏ_Íà÷ As Variant
88Public Ñòðîêà_ÓÏ_Îêîí As Variant
89Public i_ñòðîê_ÍÏ As Variant
90Public i_ñòðîê_ÓÏ As Variant
91Public i_ñòîëáöîâ_ÍÏ As Variant
92Public i_ñòîëáöîâ_ÓÏ As Variant
93Public Ñòðîê As Variant
94Public Flag_SAP As Variant
95Public Flag_Ïðî÷èå As Variant
96Public Ãð_ñâîéñòâ As Variant
97Public Êë_ïðî÷íîñòè_ïðèâ As Variant
98Public Äèàï_òîëùèí As Variant
99Public Äèàï_ïàðàìåòðîâ As Variant
100Public Äîï_ïàðàì1 As Variant
101Public Äîï_ïàðàì2 As Variant
102Public Äîï_ïàðàì3 As Variant
103Public Ðåçüáà_òèï As Variant
104Public Ãð_ïðî÷í As Variant
105
106
107Sub Ï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
187For i_ñòîëáöîâ_ÍÏ = 1 To 100
188s_NP_0 = Workbooks(ÈìÿÔàéëà_Ðàá).Sheets("Ïîçèöèè íà óêðóïíåíèå").Cells(1, i_ñòîëáöîâ_ÍÏ)
189s_NP_1 = Workbooks(ÈìÿÔàéëà_Ðàá).Sheets("Ïîçèöèè íà óêðóïíåíèå").Cells(i_ñòðîê_ÍÏ, i_ñòîëáöîâ_ÍÏ)
190
191If "Ïîëíîå íàèìåíîâàíèå ìàòåðèàëà" = s_NP_0 Then Ïîëíîå_íèìåíîâàíèå = s_NP_1
192If "Âèä ìàòåðèàëà â SAP ERP" = s_NP_0 Then Âèä_ìàòåðèàëà = s_NP_1
193If "Ïðîèçâîäñòâî" = s_NP_0 Then Ïðîèçâîäñòâî = s_NP_1
194If "Ïîëíîå íàèìåíîâàíèå ìàòåðèàëà" = s_NP_0 Then Ïîëí_íàèìåíîâàíèå = s_NP_1
195If "Âèä ìàòåðèàëà â SAP ERP" = s_NP_0 Then Âèä_ìàòåðèàëà = s_NP_1
196If "Ïðîèçâîäñòâî" = s_NP_0 Then Ïðîèçâîäñòâî = s_NP_1
197If "¹ ÷åðòåæà <Ïðîèçâîäñòâî>" = s_NP_0 Then ×åðò = s_NP_1
198If "Âàêóóìèðîâàíèå <Ïðîèçâîäñòâî>" = s_NP_0 Then Âàêóóì = s_NP_1
199If "Ãðóïïà òðóá * <Ïðîèçâîäñòâî>" = s_NP_0 Then Ãð_òð = s_NP_1
200If "Äèàìåòð ñòóïèöû, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äèàì_ñòóï = s_NP_1
201If "Äèàìåòð, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äèàìåòð = s_NP_1
202If "Äëèíà ëèñòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äëèí_ëèñòà = s_NP_1
203If "Äëèíà ðàñêàòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äëèí_ðàñêàòà = s_NP_1
204If "Äëèíà ðàñêðîÿ, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Äëèí_ðàñêðîÿ = s_NP_1
205If "Èñõîäíàÿ çàãîòîâêà <Ïðîèçâîäñòâî>" = s_NP_0 Then Èñõ_çàãîò = s_NP_1
206If "Êàòåãîðèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Êàòåãîðèÿ = s_NP_1
207If "Êëàññ ïðî÷íîñòè <Ïðîèçâîäñòâî>" = s_NP_0 Then Êë_ïðî÷íîñòè = s_NP_1
208If "Êëàññ ïðî÷íîñòè* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Êë_ïðî÷íîñòè_êîðï = s_NP_1
209If "Êîä ÑÊÌÒÐ <Ïðîèçâîäñòâî>" = s_NP_0 Then Êîä_ÑÊÌÒÐ = s_NP_1
210If "Ìàðêà ñòàëè <Ïðîèçâîäñòâî>" = s_NP_0 Then Ìàðêà_ñòàëè = s_NP_1
211If "Ìàðêà ñòàëè* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Ìàðêà_ñòàëè_êîðï = s_NP_1
212If "Ìóôòà ñ óçëîì óïëîòíåíèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Ìóôòà_ñ_óïëîòí = s_NP_1
213If "Ìóôòà ñïåöèàëüíàÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Ìóôòà_ñïåö = s_NP_1
214If "Íîìåð êàëèáðîâêè êîëåñà <Ïðîèçâîäñòâî>" = s_NP_0 Then Êàëèáðîâêà_êîë = s_NP_1
215If "ÍÒÄ âíóòðåííåãî ïîêðûòèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_âíóòð = s_NP_1
216If "ÍÒÄ ãåîìåòðèè <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_ãåîì = s_NP_1
217If "ÍÒÄ êà÷åñòâà (òðóáû ñòàëüíûå) <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_êà÷_òðóá = s_NP_1
218If "ÍÒÄ íàðóæíîãî ïîêðûòèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_íàðóæ = s_NP_1
219If "ÍÒÄ Õèìè÷åñêîãî ñîñòàâà <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_õèìèÿ = s_NP_1
220If "Ðàçìåð ïðîôèëÿ 1, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Ðàçìåð_ïðîô_1 = s_NP_1
221If "Ðàçìåð ïðîôèëÿ 2, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Ðàçìåð_ïðîô_2 = s_NP_1
222If "Òåîðåòè÷åñêèé âåñ êîëåñà ïîñëå ÒÎ, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_òåîð_ÒÎ = s_NP_1
223If "Òåîðåòè÷åñêèé âåñ êîëåñà, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_òåîð = s_NP_1
224If "Òåîðåòè÷åñêèé âåñ êîëåñíîé çàãîòîâêè, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_çàã_òåîð = s_NP_1
225If "Òåîðåòè÷åñêèé âåñ ñëèòêà, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_ñëèò_òåîð = s_NP_1
226If "Òåîðåòè÷åñêèé âåñ ÷åðíîâîãî êîëåñà, êã <Ïðîèçâîäñòâî>" = s_NP_0 Then Âåñ_êîëåñ_÷åðí_òåîð = s_NP_1
227If "Òåðìîîáðàáîòêà <Ïðîèçâîäñòâî>" = s_NP_0 Then Òåðìî_Îáðàá = s_NP_1
228If "Òèï ïîêðûòèÿ ìóôòû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ïîêð_ìóôò = s_NP_1
229If "Òèï ðåçüáû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ðåçüáû = s_NP_1
230If "Òèï òðóáû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_òðóáû = s_NP_1
231If "Òèïîðàçìåð èçëîæíèöû <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèïîðàçì_èçëîæ = s_NP_1
232If "Òîëùèíà ìàòåðèíñêîãî ñëÿáà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ìàò_ñëÿáà = s_NP_1
233If "Òîëùèíà, ìì* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Òîëùèíà_êîðï = s_NP_1
234If "Òîëùèíà ïîêðûòèÿ, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ïîêð = s_NP_1
235If "Òîëùèíà ñòåíêè çàãîòîâêè, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ñòåí_çàãîò = s_NP_1
236If "Òîëùèíà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëùèíà = s_NP_1
237If "Óðîâåíü èñïîëíåíèÿ * <Ïðîèçâîäñòâî>" = s_NP_0 Then Óðîâåíü_èñïîë = s_NP_1
238If "Õàðàêòåð êðîìêè <Ïðîèçâîäñòâî>" = s_NP_0 Then Êðîìêà_õàðàêò = s_NP_1
239If "Øèðèíà ëèñòà (øòðèïñà), ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ëèñòà_øòðèïñ = s_NP_1
240If "Øèðèíà ìàòåðèíñêîãî ñëÿáà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ìàò_ñëÿáà = s_NP_1
241If "Øèðèíà ñëÿáà, ìì* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then Øèð_ìàò_ñëÿáà_êîðï = s_NP_1
242If "Øèðèíà ðóëîíà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ðóëîíà = s_NP_1
243If "Øèðèíà øòðèïñà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_øòðèïñà = s_NP_1
244If "ÍÒÄ íàðóæíîãî ïîêðûòèÿ 2 <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_íàðóæ_2 = s_NP_1
245If "Òèï ïîêðûòèÿ 2 <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ïîêð_2 = s_NP_1
246If "Òîëùèíà ðàñêàòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ðàñêàòà = s_NP_1
247If "Øèðèíà ðàñêàòà, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Øèð_ðàñêàòà = s_NP_1
248If "Êîíòðàêò, ñïåöèôèêàöèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Ñïåöèôèêàöèÿ = s_NP_1
249If "ÍÒÄ êà÷åñòâà (êîëåñà) <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_êà÷_êîëåñ = s_NP_1
250If "ÍÒÄ êà÷åñòâà (ïðîêàò) <Ïðîèçâîäñòâî>" = s_NP_0 Then ÍÒÄ_êà÷_ïðîêàò = s_NP_1
251If "ÍÒÄ êà÷åñòâà (ñëèòêè ñòàëüíûå)* <Êîðïîðàòèâíûé êëàññèôèêàòîð>" = s_NP_0 Then ÍÒÄ_êà÷_ïðîêàò_êîðï = s_NP_1
252If "Ïîêðàñêà <Ïðîèçâîäñòâî>" = s_NP_0 Then Ïîêðàñêà = s_NP_1
253If "Òèï ïîêðûòèÿ <Ïðîèçâîäñòâî>" = s_NP_0 Then Òèï_ïîêð = s_NP_1
254If "Òîëùèíà ñòåíêè, ìì <Ïðîèçâîäñòâî>" = s_NP_0 Then Òîëù_ñòåí = s_NP_1
255Next
256End Sub
257
258
259