Перенумерация кодов справочников.Комплексная конфигурация 7.7.
22.04.2010
12:15
#1
"Подскажите пожалуйста какой вопрос.
С определённом справочнике(Справочник.Огранизации) есть процедурка(указана ниже) перенумерации кодов в справочнике.Все отлично срабатывает,а сейчас возник вопрос о том чтобы сделать её универсальной(ну в смысле для всех справочников нашей конфигурации).
Если пишу "Спр = СоздатьОбъект("Справочник");"
"Спр.ВыбратьЭлементы();"
ругаеться на меня типа "Не задан вид!!!"
Процедура Сформировать()
Смещение=0;
ч=ВвестиЧисло(Смещение,"Введите смещение",10,0);
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Код");
ТЗ.НоваяКолонка("Товар");
Спр = СоздатьОбъект("Справочник.Организации");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 цикл
и так далее..."
С определённом справочнике(Справочник.Огранизации) есть процедурка(указана ниже) перенумерации кодов в справочнике.Все отлично срабатывает,а сейчас возник вопрос о том чтобы сделать её универсальной(ну в смысле для всех справочников нашей конфигурации).
Если пишу "Спр = СоздатьОбъект("Справочник");"
"Спр.ВыбратьЭлементы();"
ругаеться на меня типа "Не задан вид!!!"
Процедура Сформировать()
Смещение=0;
ч=ВвестиЧисло(Смещение,"Введите смещение",10,0);
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Код");
ТЗ.НоваяКолонка("Товар");
Спр = СоздатьОбъект("Справочник.Организации");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 цикл
и так далее..."
22.04.2010
13:59
#2
"1. Надо собрать идентификаторы справочников:
//спСправочник - поле со списком на форме
Для Сч = 1 По Метаданные.Справочник() Цикл
спСправочник.ДобавитьЗначение (Метаданные.Справочник(Сч), Метаданные.Справочник(Сч).Идентификатор);
КонецЦикла;
спСправочник.СортироватьПоПредставлению();
2. Определиться с выбором справочника.
3. Запуск. В вашей процедуре вместо Спр = СоздатьОбъект("Справочник.Организации"); будет:
ИмяСпр = """";
спСправочник.ПолучитьЗначение (спСправочник.ТекущаяСтрока(), ИмяСпр);
Спр = СоздатьОбъект("Справочник."+ИмяСпр);
Ну еще поставить несколько условий, что элемент списка выбран, что в списке вообще что-то есть и т.д."
//спСправочник - поле со списком на форме
Для Сч = 1 По Метаданные.Справочник() Цикл
спСправочник.ДобавитьЗначение (Метаданные.Справочник(Сч), Метаданные.Справочник(Сч).Идентификатор);
КонецЦикла;
спСправочник.СортироватьПоПредставлению();
2. Определиться с выбором справочника.
3. Запуск. В вашей процедуре вместо Спр = СоздатьОбъект("Справочник.Организации"); будет:
ИмяСпр = """";
спСправочник.ПолучитьЗначение (спСправочник.ТекущаяСтрока(), ИмяСпр);
Спр = СоздатьОбъект("Справочник."+ИмяСпр);
Ну еще поставить несколько условий, что элемент списка выбран, что в списке вообще что-то есть и т.д."
22.04.2010
16:48
#3
> С определённом справочнике(Справочник.Огранизации)
1. что это за справочник в стандартной комплексной ?
2. зачем нужна перенумерация и как часто вы её делаете ?
1. что это за справочник в стандартной комплексной ?
2. зачем нужна перенумерация и как часто вы её делаете ?
Re: Перенумерация кодов справочников.Комплексная конфигурация 7.7.Смена кода в ПриПереносеЭлементаВДругуюГруппу()
Читают тему
(гостей: 1)