Сейчас будет много текста, камнями просьба не закидывать
может общими усилиями решим, и будет всем счастье)))
ребят, помогите справится с ошибками:) они отмечены примерно //ТАК!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1. {Форма.Форма(123,3)}: Процедура или функция с указанным именем не определена (ЗаписьОбъекта)
<<?>>ЗаписьОбъекта();
2. {Форма.Форма(133,4)}: Процедура или функция с указанным именем не определена (ЗаполнитьРеквизиты)
<<?>>ЗаполнитьРеквизиты(стр.Объект,1,Сокрлп(Стр.Ид));
3. {Форма.Форма(144,2)}: Процедура или функция с указанным именем не определена (ВыборОбъекта)
<<?>>ВыборОбъекта();
4. {Форма.Форма(390,2)}: Процедура или функция с указанным именем не определена (ЗагрузкаЕкселя)
<<?>>ЗагрузкаЕкселя();
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
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.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
438.
439.
440.
441.
442.
443.
444.
445.
446.
447.
448.
Перем ФайлПрофилей;
Процедура Сопоставление()
ЭлементыФормы.ТДсоответствия.Очистить();
Макет = ПолучитьМакет("Соответствия");
Тз=ТЗсопоставления.Выгрузить();
ЗначениеТ=""; СтарыйОбъект=Объект; СтарыйИд= 0 ;
сч= 0 ;
Для каждого стр Из тз Цикл
Если (стр.объект=СтарыйОбъект) и (сч= 0 ) Тогда
Область=Макет.ПолучитьОбласть("Объект2");
Область.Параметры.Название =Сокрлп(стр.объект);
ЭлементыФормы.ТДсоответствия.Вывести(Область);
СтарыйОбъект=Сокрлп(стр.объект);
Область = Макет.ПолучитьОбласть("Рекв");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Область = Макет.ПолучитьОбласть("Шапка");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
сч= 1 ;
СтарыйИд=стр.ид;
КонецЕсли;
Если (стр.объект<>СтарыйОбъект) или (СтарыйИд<>стр.ид)Тогда
Область=Макет.ПолучитьОбласть("Объект1");
Область.Параметры.Название =Сокрлп(стр.объект);
ЭлементыФормы.ТДсоответствия.Вывести(Область);
СтарыйОбъект=Сокрлп(стр.объект);
ЗначениеТ="";
Область = Макет.ПолучитьОбласть("Рекв");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Область = Макет.ПолучитьОбласть("Шапка");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
СтарыйИд=стр.ид;
КонецЕсли;
Если Сокрлп(строка(стр[ 4 ]))<> ЗначениеТ тогда
Область=Макет.ПолучитьОбласть("ТаблЧасть");
Область.Параметры.Название =Сокрлп(строка(стр[ 4 ]));
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Область = Макет.ПолучитьОбласть("Шапка");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
ФлагТЗ= 1 ;
ЗначениеТ=Сокрлп(строка(стр[ 4 ]));
КонецЕсли;
Если Сокрлп(строка(стр[ 3 ])) = "" тогда
Область=Макет.ПолучитьОбласть("Невыбран");
Область.Параметры.ном =стр[ 0 ];
Область.Параметры.Реквизит1 =стр[ 1 ];
Если сокрлп(стр[ 7 ])<> Сокрлп(Объект) Тогда
Область.Параметры.ТиП =стр[ 9 ];
Иначе
Область.Параметры.ТиП =стр[ 6 ];
КонецЕсли;
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Иначе
Область=Макет.ПолучитьОбласть("Соотв");
Область.Параметры.ном =стр[ 0 ];
Область.Параметры.Реквизит1 =стр[ 1 ];
Область.Параметры.Столбик1 =стр[ 5 ];
Если сокрлп(стр[ 7 ])<> Сокрлп(Объект) Тогда
Область.Параметры.ТиП =стр[ 9 ];
Иначе
Область.Параметры.ТиП =стр[ 6 ];
КонецЕсли;
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Конецесли;
КонецЦикла;
ЭлементыФормы.ТДсоответствия.ОтображатьСетку = Ложь;
ЭлементыФормы.ТДсоответствия.Защита = Ложь;
ЭлементыФормы.ТДсоответствия.ТолькоПросмотр = Истина;
ЭлементыФормы.ТДсоответствия.Показать ("Загрузка документа из екселя");
КонецПроцедуры
Процедура ВыборСправочников()
ЭлементыФормы.ТДсоответствия.Очистить();
Макет = ПолучитьМакет("Соответствия");
Область = Макет.ПолучитьОбласть("ШапкаСПР");
Область.Параметры.Выход="Далее>";
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Тз=ТЗСправочников.Выгрузить();
Для каждого стр Из тз Цикл
Если Стр.Загружать=Истина Тогда
Область=Макет.ПолучитьОбласть("СпрДА");
Область.Параметры.справочник=стр.объект;
Область.Параметры.ИД=СокрЛП(стр.ИД);
ЭлементыФормы.ТДсоответствия.Вывести(Область);
Иначе
Область=Макет.ПолучитьОбласть("СпрНет");
Область.Параметры.справочник=стр.объект;
Область.Параметры.ИД=СокрЛП(стр.ИД);
ЭлементыФормы.ТДсоответствия.Вывести(Область);
КонецЕсли;
КонецЦикла;
ЭлементыФормы.ТДсоответствия.ОтображатьСетку = Ложь;
ЭлементыФормы.ТДсоответствия.Защита = Ложь;
ЭлементыФормы.ТДсоответствия.ТолькоПросмотр = Истина;
ЭлементыФормы.ТДсоответствия.Показать ("Загрузка документа из екселя");
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
Если Элементыформы.ПолеВыбора2.Значение <> Неопределено Тогда
ЗаписьОбъекта(); // ПЕРВАЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Иначе
Предупреждение("Вы не выбрали колонку екселя по которой будет производится рассчет количества строк в файлах!(в шапке слева)");
Конецесли;
КонецПроцедуры
Процедура ЗагрузкаРеквизитовСправочников ()
Для каждого стр Из ТзСправочников Цикл
Если стр.Загружать=Истина Тогда
ЗаполнитьРеквизиты(стр.Объект, 1 ,Сокрлп(Стр.Ид)); //ВТОРАЯ!!!!!!!!!!!
КонецЕсли;
КонецЦикла;
Сопоставление();
КонецПроцедуры
Процедура ВыборНажатие(Элемент)
// Вставить содержимое обработчика.
ТзСопоставления.Очистить();
ТзСправочников.Очистить();
ВыборОбъекта(); //ТРЕТЬЯ!!!!!!!!!!!!!!!!!!!
Если элементыформы.ФлСправ.значение=Истина Тогда
Сопоставление();
ВыборСправочников();
Иначе
Сопоставление();
КонецЕсли;
КонецПроцедуры
Процедура ТДсоответствияОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
Если сокрлп(строка(ТипЗнч(Расшифровка)))="Число" тогда
СтандартнаяОбработка = Ложь;
Тз=ТзЕксель.Выгрузить();
ТзСоотв=ТЗсопоставления.Выгрузить();
спис= Новый СписокЗначений;
спис.Очистить();
спис.Добавить("","----ОЧИСТИТЬ ЗНАЧЕНИЕ----");
Для каждого стр Из Тз Цикл
спис.Добавить(СТР[ 1 ],Стр[ 2 ]);
КонецЦикла;
Для каждого стр Из ТзСоотв Цикл
//тут идет поиск по рекам для сопоставления
если Число(стр[ 0 ])=Число(Расшифровка) тогда
Если Найти(Элемент.текущаяобласть.имя, "C15") > 0 Тогда
Если стр[ 9 ]=истина Тогда
стр[ 9 ]=Ложь
Иначе
стр[ 9 ]=истина
КонецЕсли;
ТЗсопоставления.Загрузить(ТзСоотв);
Сопоставление();
Возврат;
КонецЕсли;
конецесли;
КонецЦикла;
ВыбЭлемент = спис.ВыбратьЭлемент("Выберите столбик из екселя",выбэлемент);
Если ВыбЭлемент<>Неопределено тогда
Для каждого стр Из ТзСоотв Цикл
//тут идет поиск по рекам для сопоставления
если Число(стр[ 0 ])=Число(Расшифровка) тогда
стр[ 5 ]=ВыбЭлемент;
стр[ 3 ]=ВыбЭлемент.Значение;
конецесли;
КонецЦикла;
ТЗсопоставления.Загрузить(ТзСоотв);
Сопоставление();
Конецесли;
ИначеЕсли сокрлп(строка(ТипЗнч(Расшифровка)))="Строка" тогда
СтандартнаяОбработка = Ложь;
Для каждого Стр Из тзСправочников Цикл
Если Сокрлп(Стр.ИД)=Сокрлп(Расшифровка) Тогда
Если стр.загружать=Истина Тогда
стр.загружать=Ложь;
Иначе
стр.загружать=Истина;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Сокрлп(Расшифровка)="Далее>" Тогда
ЗагрузкаРеквизитовСправочников();
Возврат;
КонецЕсли;
ВыборСправочников();
Иначе
СтандартнаяОбработка = Истина;
Конецесли;
КонецПроцедуры
Процедура КнопкаВыбораФайлаНажатие(Элемент)
// Вставить содержимое обработчика.
// Вставить содержимое обработчика.
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Фильтр = "Книга MS Excel(*.xls)|*.xls";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = ИСТИНА;
ДиалогОткрытияФайла.Заголовок = "Выберите книгу MS Excel";
Если ДиалогОткрытияФайла.Выбрать() Тогда
ТзФайлы.Очистить();
ПутьКФайлу = "";
Для каждого стр1 из ДиалогОткрытияФайла.ВыбранныеФайлы цикл
ПутьКФайлу = ПутьКФайлу+стр1+";";
новфайл=ТзФайлы.Добавить();
Новфайл.Файл=стр1;
Конеццикла;
// ЭлементыФормы.док.Доступность = Истина;
ЭлементыФормы.Выбор.Доступность = Истина;
Элементыформы.ПолеВыбора1.Доступность=Истина;
КонецЕсли;
КонецПроцедуры
Процедура ЗаписьПрофиля()
перем встрока;
Если Не ВвестиСтроку(встрока,"Введите название нового профиля") Тогда
Предупреждение("Вы не ввели название профиля.Запись отменена.");
Возврат;
КонецЕсли;
Для каждого стр Из ТЗсопоставления Цикл
ФайлПрофилей.Добавить();
ФайлПрофилей.Rekv=Сокрлп(Стр.Реквизит);
ФайлПрофилей.PrRekv=Сокрлп(Стр.ПрРеквизита);
ФайлПрофилей.Stolbik=Сокрлп(Стр.Столбик);
ФайлПрофилей.T=Сокрлп(Стр.Т);
ФайлПрофилей.SOD=Сокрлп(Стр.Содержание);
ФайлПрофилей.TIP=Сокрлп(Стр.ТИП);
ФайлПрофилей.OBJECT=Сокрлп(Стр.Объект);
ФайлПрофилей.SINHRO=Сокрлп(Стр.Синхро);
ФайлПрофилей.Prof=Сокрлп(встрока);
ФайлПрофилей.ID=Сокрлп(Стр.ИД);
ФайлПрофилей.Записать();
КонецЦикла;
КонецПроцедуры
Процедура Кнопка1Нажатие(Элемент)
// Сохранить профиль
ФайлПрофилей=Новый XBASE;
ФайлПрофилей.ОткрытьФайл(КаталогПрограммы()+"\prexl.dbf ");
Если ФайлПрофилей.Открыта() Тогда
ЗаписьПрофиля();
ФайлПрофилей.ЗакрытьФайл();
Иначе
СозданиеФайла();
ЗаписьПрофиля();
ФайлПрофилей.ЗакрытьФайл();
КонецЕсли;
КонецПроцедуры
Процедура СозданиеФайла()
// Сохранить профиль
ФайлПрофилей.Поля.Добавить("Rekv","S", 255 );
ФайлПрофилей.Поля.Добавить("PrRekv","S", 255 );
ФайлПрофилей.Поля.Добавить("Stolbik","S", 255 );
ФайлПрофилей.Поля.Добавить("T","S", 255 );
ФайлПрофилей.Поля.Добавить("SOD","S", 255 );
ФайлПрофилей.Поля.Добавить("TIP","S", 255 );
ФайлПрофилей.Поля.Добавить("OBJECT","S", 255 );
ФайлПрофилей.Поля.Добавить("Prof","S", 255 );
ФайлПрофилей.Поля.Добавить("SINHRO","S", 255 );
ФайлПрофилей.Поля.Добавить("ID","S", 255 );
ФайлПрофилей.Кодировка=КодировкаXBase.OEM;
ФайлПрофилей.СоздатьФайл(КаталогПрограммы()+"\prexl.dbf ");
КонецПроцедуры
Процедура ОбновлениеПрофилей() // Вставить содержимое обработчика.
Элементыформы.ПолеВыбора1.СписокВыбора.Очистить();
ФайлПрофилей=Новый XBASE;
ФайлПрофилей.ОткрытьФайл(КаталогПрограммы()+"\prexl.dbf ");
Если ФайлПрофилей.Открыта() Тогда
ФайлПрофилей.Первая();
Тз1=Новый ТаблицаЗначений;
Тз1.Колонки.Добавить("Профиль");
Тз1.Колонки.Добавить("СЧ");
Пока не ФайлПрофилей.ВКонце() Цикл
Новстр=Тз1.Добавить();
Новстр.Профиль = Сокрлп(ФайлПрофилей.Prof);
Новстр.Сч= 1 ;
ФайлПрофилей.Следующая()
КонецЦикла;
ФайлПрофилей.ЗакрытьФайл();
Тз1.Свернуть("Профиль","СЧ");
Для каждого стр1 Из Тз1 Цикл
Элементыформы.ПолеВыбора1.СписокВыбора.Добавить(стр1.Профиль,стр1.Профиль);
КонецЦикла;
Конецесли;
КонецПроцедуры
Процедура ПолеВыбора1ОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
// Вставить содержимое обработчика.
Тзсопоставления.Очистить();
ТзСправочников.Очистить();
ФайлПрофилей=Новый XBASE;
ФайлПрофилей.ОткрытьФайл(КаталогПрограммы()+"\prexl.dbf ");
сч= 0 ;
Если ФайлПрофилей.Открыта() Тогда
ФайлПрофилей.Первая();
Пока не ФайлПрофилей.ВКонце() Цикл
Если СокрЛп(ФайлПрофилей.Prof)=СокрЛП(ВыбранноеЗначение) Тогда
Если сч= 0 Тогда
Объект=СокрЛП(ФайлПрофилей.OBJECT);
сч= 1 ;
КонецЕсли;
Новстрока=Тзсопоставления.Добавить();
Новстрока.Реквизит=СокрЛП(ФайлПрофилей.Rekv);
Новстрока.ПрРеквизита=СокрЛП(ФайлПрофилей.PrRekv);
Новстрока.Столбик=СокрЛП(ФайлПрофилей.Stolbik) ;
Новстрока.Т=СокрЛП(ФайлПрофилей.T);
Новстрока.Содержание=СокрЛП(ФайлПрофилей.SOD);
Новстрока.ТИП=СокрЛП(ФайлПрофилей.TIP);
Новстрока.Объект=СокрЛП(ФайлПрофилей.OBJECT);
Новстрока.Синхро=СокрЛП(ФайлПрофилей.SINHRO);
Новстрока.Профиль=СокрЛП(ФайлПрофилей.Prof);
Новстрока.Ид=СокрЛП(ФайлПрофилей.ID);
Если СокрЛП(ФайлПрофилей.ID)<>"0" тогда
Новстрока2=ТзСправочников.Добавить();
Новстрока2.Объект=СокрЛП(ФайлПрофилей.OBJECT);
Новстрока2.Загружать=Истина;
Новстрока2.Ид=СокрЛП(ФайлПрофилей.ID);
Новстрока2.Кво= 1 ;
Новстрока2.Синхро=СокрЛП(ФайлПрофилей.SINHRO);
КонецЕсли;
КонецЕсли;
ФайлПрофилей.Следующая()
КонецЦикла;
ФайлПрофилей.ЗакрытьФайл();
Конецесли;
ТзСправочников.свернуть("Объект,Загружать,Ид,Синхро","Кво");
ЗагрузкаЕкселя(); // ЧЕТВЕРТАЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
сопоставление();
КонецПроцедуры
Процедура ПолеВыбора1НачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
// Вставить содержимое обработчика.
ОбновлениеПрофилей();
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
// Вставить содержимое обработчика.
Если Элементыформы.ПолеВыбора1.Значение<>неопределено Тогда
Тзсопоставления.Очистить();
ФайлПрофилей=Новый XBASE;
ФайлПрофилей.ОткрытьФайл(КаталогПрограммы()+"\prexl.dbf ");
Если ФайлПрофилей.Открыта() Тогда
ФайлПрофилей.Первая();
Пока не ФайлПрофилей.ВКонце() Цикл
Если СокрЛп(ФайлПрофилей.Prof)=СокрЛП(Элементыформы.ПолеВыбора1.Значение) Тогда
ФайлПрофилей.Удалить();
ФайлПрофилей.Записать();
КонецЕсли;
ФайлПрофилей.Следующая()
КонецЦикла;
ФайлПрофилей.ЗакрытьФайл();
Конецесли;
Элементыформы.ПолеВыбора1.Значение="";
сопоставление();
Макет = ПолучитьМакет("Соответствия");
Область = Макет.ПолучитьОбласть("Описание");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
ЭлементыФормы.ТДсоответствия.ОтображатьСетку = Ложь;
ЭлементыФормы.ТДсоответствия.Защита = Ложь;
ЭлементыФормы.ТДсоответствия.ТолькоПросмотр = Истина;
ЭлементыФормы.ТДсоответствия.Показать ("Загрузка документа из екселя");
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
ЭлементыФормы.ТДсоответствия.Очистить();
Макет = ПолучитьМакет("Соответствия");
Область = Макет.ПолучитьОбласть("Описание");
ЭлементыФормы.ТДсоответствия.Вывести(Область);
ЭлементыФормы.ТДсоответствия.ОтображатьСетку = Ложь;
ЭлементыФормы.ТДсоответствия.Защита = Ложь;
ЭлементыФормы.ТДсоответствия.ТолькоПросмотр = Истина;
ЭлементыФормы.ТДсоответствия.Показать ("Загрузка документа из екселя");
Элементыформы.Переключатель1.Значение= 1 ;
Элементыформы.Переключатель3.Значение= 1 ;
Элементыформы.ФлСправ.Значение=Истина;
ЭлементыФормы.Выбор.Доступность = Ложь;
ЭлементыФормы.ДУБЛ.Значение = Истина;
КонецПроцедуры
