Помогите вывести в Эксель данные паспорта в отдельных колонках:
- Вид паспорта
- Серия
- Номер
- Когда выдан
- Кем выдан

Сейчас выводит все в один столбец:
'Паспорт гражданина России, Серия: 10 20, № 541008, Выдан: 09.10.2001, 3 ОМ Сокольники г. Москвы

Вот код:


    Функция ПредставлениеДокумента(Документ)
    Представление = "";
    СЗ = глРазложитьДокУдостоверяющийЛичность(Документ);
    Для Номер = 1 по СЗ.РазмерСписка() Цикл
        Если ПустоеЗначение(СЗ.ПолучитьЗначение(Номер))=0 Тогда
            Представление = Представление+?(ПустоеЗначение(Представление)=1,"",", ")
                            +?(Номер=2,"Серия: ",
                             ?(Номер=3,"№ ",
                             ?(Номер=4,"Выдан: ","")))
                             +СокрЛП(СЗ.ПолучитьЗначение(Номер))
        КонецЕсли;
    КонецЦикла;
        Возврат ?(ПустоеЗначение(Представление)=1,"<<Нет данных>>",Представление)
    КонецФункции    // ПредставлениеДокумента
            
            
            
    
    
    Процедура Сформировать()
        
            Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
            Сотрудники.ВыбратьЭлементы(1);
            Пока Сотрудники.ПолучитьЭлемент() = 1 Цикл
                              
        Паспорт = ПредставлениеДокумента(Сотрудники.ДокументУдЛичность);
                   
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,5).Value    = "'"+Паспорт;
    
        
    КонецПроцедуры

а как оно так разные вещи в одну строку складывает?

(1) И снова здравствуйте, Wobland :) !

+(1) См. Функция ПредставлениеДокумента(Документ)

(3) я сначала посмотрел, а потом вопрос задал. так что смотри туда сам ;)

или сама?.. не, скан паспорта требовать не будем ;)

Ап!

ты на вопрос-то ответь

Функция ПредставлениеДокумента(Документ,ВидДокумента,Номер,Серия,ДатаВыдачи,КемВыдан)

    СЗ = глРазложитьДокУдостоверяющийЛичность(Документ);
   Если СЗ.РазмерСписка()>0 тогда
ВидДокумента=СЗ.ПолучитьЗначение(1);
КонецЕсли;  
Если СЗ.РазмерСписка()>1 тогда
Серия=СЗ.ПолучитьЗначение(2);
КонецЕсли;
   Если СЗ.РазмерСписка()>1 тогда
Серия=СЗ.ПолучитьЗначение(2);
КонецЕсли;
   Если СЗ.РазмерСписка()>2 тогда
Номер=СЗ.ПолучитьЗначение(3);
КонецЕсли;
   Если СЗ.РазмерСписка()>3 тогда
ДатаВыдачи=СЗ.ПолучитьЗначение(4);
КонецЕсли;
   Если СЗ.РазмерСписка()>4 тогда
КемВыдан=СЗ.ПолучитьЗначение(5);
КонецЕсли;
      Возврат "";
    КонецФункции    // ПредставлениеДокумента

(8) СПАСИБО!!!
А как мне теперь эти значения (ВидДокумента,Номер,Серия,ДатаВыдачи,КемВыдан) вывести в Эксель?

(9) нужно себя как-то заставить. или заставить кого-то другого

(9) Выведи в текстовый файл с символом-разделителем ~ (тильда). Открой екселем его как форматированный файл.

В итоге написала так:


Процедура Сформировать()  
    
    
    Документ = глРазложитьДокУдостоверяющийЛичность(Сотрудники.ДокументУдЛичность);
    Если Документ.РазмерСписка() > 0 Тогда
         ВидДокумента = Документ.ПолучитьЗначение(1);
    КонецЕсли;
    Если Документ.РазмерСписка() > 1 Тогда
        Серия=Документ.ПолучитьЗначение(2);
    КонецЕсли;
    Если Документ.РазмерСписка() > 2 Тогда
          Номер=Документ.ПолучитьЗначение(3);
      КонецЕсли;
      Если Документ.РазмерСписка() > 3 Тогда
           ДатаВыдачи=Документ.ПолучитьЗначение(4);
      КонецЕсли;
      Если Документ.РазмерСписка() > 4 Тогда
           ВыданКем=Документ.ПолучитьЗначение(5);
    Иначе
            ВидДокумента = "";
              Серия="";
              Номер="";
              ДатаВыдачи="";
              ВыданКем="";
    КонецЕсли;
          
       x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,13).Value    = "'"+ВидДокумента;
       x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,14).Value    = "'"+Серия;
       x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,15).Value    = "'"+Номер;
       x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,16).Value    = "'"+ДатаВыдачи;
       x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,17).Value    = "'"+ВыданКем;


КонецПроцедуры

(12) Молодец, мы верили