Имя: Пароль:
1C
1C 7.7
v7: Выгрузка перечислений в DBF
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",ТЗ.Статья);  
   
   Файл.Записать();
       
   КонецЦикла;  

Процедура сообщить выводит всё правильно:

Оплата труда
Материальные расходы
Амортизация
Материальные расходы
Материальные расходы
Материальные расходы
Материальные расходы
Оплата труда
Материальные расходы
Материальные расходы
1 Рэйв
 
04.04.12
09:42
...
ТЗ.Статья = Строка(Статьи.ВидРасходовДляНалоговогоУчета);
...
2 Stein
 
04.04.12
09:43
Рэйв

Большое спасибо!
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший