Вопрос по установке единиц измерения в справочнике цен из обработке
09.11.2005
08:03
#1
"Добрый день, Помогите кто может установит единицы измерения в справочнике цены на номенклатуру через обработку.... Он периодический реквизит и я пытаюсь через метод Установить();
Пожалуйста
Если нужен мой код, он вот:
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
Если СпрНом.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Ном=Ном+1;
СпрЕд.ИспользоватьВладельца(СпрНом.Текущийэлемент());
СпрЦены.ИспользоватьВладельца(СпрНом.Текущийэлемент());
СпрЕд.ВыбратьЭлементы();
Пока СпрЕд.ПолучитьЭлемент()=1 Цикл
Если СпрЕд.ОКЕИ.Код="796" Тогда
Прервать;
КонецЕсли;
КонецЦикла;
СпрЦены.ВыбратьЭлементы();
Пока СпрЦены.ПолучитьЭлемент()=1 Цикл
СпрЦены.Единица.Установить(ТекущаяДата(),СпрЕд.ТекущийЭлемент());
СпрЦены.Записать();
КонецЦикла;
КонецЦикла;"
Пожалуйста
Если нужен мой код, он вот:
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
Если СпрНом.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Ном=Ном+1;
СпрЕд.ИспользоватьВладельца(СпрНом.Текущийэлемент());
СпрЦены.ИспользоватьВладельца(СпрНом.Текущийэлемент());
СпрЕд.ВыбратьЭлементы();
Пока СпрЕд.ПолучитьЭлемент()=1 Цикл
Если СпрЕд.ОКЕИ.Код="796" Тогда
Прервать;
КонецЕсли;
КонецЦикла;
СпрЦены.ВыбратьЭлементы();
Пока СпрЦены.ПолучитьЭлемент()=1 Цикл
СпрЦены.Единица.Установить(ТекущаяДата(),СпрЕд.ТекущийЭлемент());
СпрЦены.Записать();
КонецЦикла;
КонецЦикла;"
Читают тему
(гостей: 1)