0
Stein
04.04.12
✎
09:39
|
Доброе утро!
Выгружаю небольшой справочник "Статьи затрат" в DBF. При выгрузке элемента "СтатьиОбщепроизводственныхЗатрат" который является перечислением , выгружается непонятный код вместо Наименования перечисления.
Код:
Процедура Сформировать()
Статьи = СоздатьОбъект("Справочник.СтатьиОбщепроизводственныхЗатрат");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Код");
ТЗ.НоваяКолонка("Наименование");
ТЗ.НоваяКолонка("Статья");
Статьи.ВыбратьЭлементы();
Пока Статьи.ПолучитьЭлемент() = 1 Цикл
Если Статьи.ПометкаУдаления() =0 тогда
ТЗ.НоваяСтрока(); ТЗ.Код=Статьи.Код;
ТЗ.Наименование = Статьи.Наименование;
ТЗ.Статья = Статьи.ВидРасходовДляНалоговогоУчета;
КонецЕсли;
КонецЦикла;
Файл = СоздатьОбъект("Xbase");
Файл.КодоваяСтраница(0);
Файл.ДобавитьПоле("Kod","C",15,);
Файл.ДобавитьПоле("Name","C",80,);
Файл.ДобавитьПоле("Stat","C",80,);
Файл.СоздатьФайл("C:\Stat25.dbf");
Файл.ОчиститьФайл();
ТЗ.ВыбратьСтроки();
//
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
Файл.Добавить();
Файл.УстановитьЗначениеПоля("Kod",ТЗ.Код);
Файл.УстановитьЗначениеПоля("Name",ТЗ.Наименование);
Сообщить (ТЗ.Статья);
Файл.УстановитьЗначениеПоля("Stat",ТЗ.Статья);
Файл.Записать();
КонецЦикла;
Процедура сообщить выводит всё правильно:
Оплата труда
Материальные расходы
Амортизация
Материальные расходы
Материальные расходы
Материальные расходы
Материальные расходы
Оплата труда
Материальные расходы
Материальные расходы
|
|