0
Zergaa
26.05.12
✎
15:55
|
Здравствуйте, подскажите пожалуйста, не могу понять в чем причина. Процедура для формирования и загрузки данных работает отлично, только есть одна проблема, в поле код поставки (которое является перечислением) не заносится ни каких данных.
Вот код процедуры загрузки:
Процедура ЗагрузкаСырья()
Если ТабСырье.КоличествоСтрок() > 0 Тогда
СпрС = СоздатьОбъект("Справочник.ВидыСырья");
ТабСырье.ВыбратьСтроки();
Пока ТабСырье.ПолучитьСтроку() = 1 Цикл
Если СпрС.НайтиПоКоду(СокрЛП(ТабСырье.КодСырья)) = 0 Тогда
СпрС.Новый();
СпрС.Код = СокрЛП(ТабСырье.КодСырья);
СпрС.Наименование = СокрЛП(ТабСырье.Наименов);
СпрС.ПолнНаименование = СокрЛП(ТабСырье.ПолнНаименов);
Если Число(ТабСырье.КодПостав) = 1 Тогда
СпрС.КодПоставки = СокрЛП(Перечисление.ПоставкиПряжи.Наша);
Иначе
СпрС.КодПоставки = СокрЛП(Перечисление.ПоставкиПряжи.Привозная);
КонецЕсли;
СпрС.Записать();
ИначеЕсли Число(ТабСырье.КодПостав) = 1 Тогда
СпрС.КодПоставки = СокрЛП(Перечисление.ПоставкиПряжи.Наша);
Иначе
СпрС.КодПоставки = СокрЛП(Перечисление.ПоставкиПряжи.Привозная);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Спасибо.
|
|