ЗиК 7.7 (302) Обнуление справочника подразделения
22.12.2010
10:43
#1
"Здравствуйте,помогите пожалуйста разобраться. Не могу внешним отчетом обнулить реквизит КодПоОКАТО "Справочника.Подразделения" , тип значения этого реквизита "Справочник.ОКАТО". Ниже привожу текст
СпрПодразделения = СоздатьОбъект("Справочник.Подразделения");
СпрПодразделения.ВыбратьЭлементы(0);
Пока СпрПодразделения.ПолучитьЭлемент() = 1 Цикл
Если СпрПодразделения.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
СпрПодразделения.ТекущийЭлемент().КодПоОКАТО= ПолучитьПустоеЗначение("Справочник.ОКАТО");
СпрПодразделения.Записать();
конецЦикла; "
СпрПодразделения = СоздатьОбъект("Справочник.Подразделения");
СпрПодразделения.ВыбратьЭлементы(0);
Пока СпрПодразделения.ПолучитьЭлемент() = 1 Цикл
Если СпрПодразделения.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
СпрПодразделения.ТекущийЭлемент().КодПоОКАТО= ПолучитьПустоеЗначение("Справочник.ОКАТО");
СпрПодразделения.Записать();
конецЦикла; "
22.12.2010
11:41
#3
"я бы так исправил:
СпрПодразделения = СоздатьОбъект("Справочник.Подразделения");
СпрПодразделения.ВыбратьЭлементы(0);
Пока СпрПодразделения.ПолучитьЭлемент(1) = 1 Цикл
Если СпрПодразделения.ЭтоГруппа()=0 Тогда
СпрПодразделения.КодПоОКАТО="""";
СпрПодразделения.Записать();
КонецЕсли;
КонецЦикла;"
СпрПодразделения = СоздатьОбъект("Справочник.Подразделения");
СпрПодразделения.ВыбратьЭлементы(0);
Пока СпрПодразделения.ПолучитьЭлемент(1) = 1 Цикл
Если СпрПодразделения.ЭтоГруппа()=0 Тогда
СпрПодразделения.КодПоОКАТО="""";
СпрПодразделения.Записать();
КонецЕсли;
КонецЦикла;"
Читают тему
(гостей: 1)