Имя: Пароль:
1C
1C 7.7
v7: Перенумерация элементов справочников
,
0 1931nik
 
28.03.14
10:06
Скачал обработку из сайта VITALIKK.RU  UCRefRen.ert для перенумерации
При запуске выдает ошибку "Не переданны параметры!"
Вкинул эту обработку в конфигурацию и вызываю ее из журнала
справочника (под кнопку процедура Перенумерация()) и в модуле
Процедура Перенумерация()
    ОткрытьФорму("Обработка.ПеренумерацияКодовСправочников");
КонецПроцедуры
Может кто сталкивался с этим ?
Как передать параметры в переменную гПараметрыВызова, чтобы отработала
эта процедура ПриОткрытии()
Или у кого-то есть другая обработка    
У меня некоторые справочники  загадили до безобразия из-за того, что был открыт доступ к номерам
Рад буду помощи. Заранее всем спасибо

Процедура ПриОткрытии()
    гПараметрыВызова            = Форма.Параметр;
    Если ПустоеЗначение(гПараметрыВызова) = 1 Тогда
        Предупреждение("Не переданны параметры!");
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;
    гСписокВыборки                = гПараметрыВызова.Получить("Объекты");
    гИмяОткрывшейФормы            = гПараметрыВызова.Получить("ИмяВызвавшейФормы");
    гТипОбъекта                    = гПараметрыВызова.Получить("Тип");
    гВидОбъекта                    = гПараметрыВызова.Получить("Вид");
    гВладелецСправочника        = гПараметрыВызова.Получить("Владелец");
    Если ТипЗначенияСтр(гСписокВыборки) <> "СписокЗначений" Тогда
        Предупреждение("Не переданны параметры!");
        СтатусВозврата(0);    Возврат;
    Иначе
        Если ПустоеЗначение(гСписокВыборки) = 1 Тогда
            Предупреждение("Список обрабатываемых объектов пустой!");
            СтатусВозврата(0);    Возврат;
        КонецЕсли;
    КонецЕсли;
    Если        гТипОбъекта    =    "Справочник"    Тогда
        гОбъектМД    =    Метаданные.Справочник(гВидОбъекта);
    Иначе
        СтатусВозврата(0);    Возврат;
    КонецЕсли;
    
    Если гОбъектМД.ДлинаКода = 0 Тогда
        Предупреждение("В данном справочнике атрибут код не используется!");
        СтатусВозврата(0);    Возврат;
    КонецЕсли;
    Форма.ИспользоватьСлой("Основной", 2);
    Если гОбъектМД.ТипКода = "Текстовый" Тогда
        Форма.ИспользоватьСлой("ДляТекстовых", 1);
    КонецЕсли;
КонецПроцедуры
1 Aleksey
 
28.03.14
10:08
ну так ведь "Не переданны параметры!"
2 Ёпрст
 
28.03.14
10:11
открыть для себя диск ИТС и универсальные поделки с него, в том числе и UCRefRen.ert
3 1931nik
 
28.03.14
10:11
Да. Как передать ?
Что сюда надо еще влепить
ОткрытьФорму("Обработка.ПеренумерацияКодовСправочников")
4 Ёпрст
 
28.03.14
10:13
(3) не надо туда ничего передавать. Нужно всего лишь запустить другую поделку с диска итс, которая использует UCRefRen
5 пипец
 
28.03.14
10:14
А где ты ее взял? С ней в "комплекте" должны быть еще обработки, которые из нее вызываются. Ищи по шаблону UC*.*
У меня например список такой:
UCDelete.ert
UCDocRen.ert
UCExampl.ert
UChoice.efd
UChoice.ert
UCPlugIn.txt
UCRefRen.ert
UCSetAtt.ert
Взять можно на любом диске ИТС. Они там давно не менялись.
лежат в папке \1CIts\EXE\EXTREPS\UNIPROCS\

http://www.buh.ru/forum/thread.jsp?id=306611
6 1931nik
 
28.03.14
10:14
В отладчике смотрю эту переменную гПараметрыВызова - действительно пусто
7 Ёпрст
 
28.03.14
10:21
http://gfile.ru/a58ET
на вот, наслаждайся..
запущай какой-ть ючойз оттуда и радуйся
8 1931nik
 
28.03.14
11:14
Спасибо Ёпрст. На этой ссылке точно такая-же обработка как и у меня. (UCRefRen.ert) При запуске пишет (Не переданы параметры) Может у меня при вызове (ОткрытьФорму("Обработка.ПеренумерацияКодовСправочников")) ошибка
Я пробовал запускать ее как внешнюю и вставил в конфигурацию - все одно и тоже (Не переданы параметры)
9 medved_kot
 
29.03.14
00:23
Эта обработка запускается из конфы. Например из групповой обработки номенклатуры.
10 medved_kot
 
29.03.14
00:27
Для перенумерации легче написать несколько строк, чем запускать непонятную обработку.
11 Злопчинский
 
29.03.14
01:06
(8) ты дятел.
запусти учойз, отбери по фильтру нужные элементы справочника, примени к ним нужное действие.