Выгрузка в XML

[cobra77777]

Да да согласен.

Добавлено: 18 сен 2013, 14:10

А других вариантов нет как СтрЗаменить ?

Добавлено: 18 сен 2013, 16:57

Всё вариантов больше нет ?

[Dethmontt]

Код Выделить Развернуть

Пока Чтение.ПрочитатьАтрибут() Цикл
    Если Чтение.Имя="Дата" Тогда
       Если типЗнч(Чтение.Значение) = Тип("Дата") Тогда
           Док.Дата = Чтение.Значение;
       ИначеЕсли типЗнч(Чтение.Значение) = Тип("Строка") Тогда
           Если Чтение.Значение = Строка(Дата('00010101000000')) Тогда
              Сообщить("В файле не заполнена дата");
           Иначе
               Док.Дата = Дата(Чтение.Значение);
           КонецЕсли;
       КонецЕсли;
    КонецЕсли;
КонецЦикла;

[cobra77777]

Dethmontt - you are the BEST !!! Спасибо работает. 

[LordWizard]

Да да согласен.

Добавлено: 18 сен 2013, 14:10

А других вариантов нет как СтрЗаменить ?

Добавлено: 18 сен 2013, 16:57

Всё вариантов больше нет ?

Так ты его сохранив длинном формате! потом же и считаешь!
типа

Код Выделить Развернуть


Значение = Дата(Док.ДатаДок);
//записываешь в файл
//потом считываешь
Значение = Дата(СчитанноеЗначение);

мне кажется так

[cobra77777]

Последний вопрос. После цикла:
           Если Чтение.Значение = Строка(Дата('00010101000000')) Тогда
              Сообщить("В файле не заполнена дата");
           Иначе
               Док.Дата = Дата(Чтение.Значение);
           КонецЕсли;
       КонецЕсли;
    КонецЕсли;
КонецЦикла;
  ///////////// Читаю след.элемент СотрудникГруппы, создает только строчку без ФИО.

                 Пока Чтение.ПрочитатьАтрибут() Цикл
            Если Чтение.Имя="СотрудникГруппы" Тогда     
               Док.СотрудникГруппы = Строка (Чтение.Значение) ;
            КонецЕсли;   
      КонецЦикла;   

[Dethmontt]

Код Выделить Развернуть

Док.СотрудникГруппы = Справочники.СотрудникиГруппы.НайтиПоНаименованию(Чтение.Значение);

[cobra77777]

Всё равно только строчку добавляет:                 
       Пока Чтение.ПрочитатьАтрибут() Цикл
   Док.СотрудникГруппы = Справочники.Сотрудники.НайтиПоНаименованию(Чтение.Значение);
          Если Чтение.Имя="СотрудникГруппы " Тогда     
       Док.СотрудникГруппы Строка (Чтение.Значение) ;
               КонецЕсли;   
   КонецЦикла;   

[LordWizard]

А ты как считываешь ФИО?

[cobra77777]

Код привёл же выше.

[LordWizard]

Кинь

Код Выделить Развернуть


Сообщить(Чтение.Значение);

сразу вначале цикла. посмотри что там происходит.