Выгрузка в XML

[cobra77777]

Кинь

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


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

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

Кинь

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


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

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

Да ничего не выводит.

[LordWizard]

Значит он и не считывает значение. Копай тут.

Добавлено: 19 сен 2013, 12:46

Другие значения считывает. посмотри может ты не так атрибут (наименование атрибута) считываешь, соответственно он и не будет считывать его значение.

[cobra77777]

включил отладку он почему то считывает последнюю строчку "ОПИСАНИЕ". Вот код:

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

[LordWizard]

Зафутболь сюда полностью процедуру считывания. я гляну мельком.

[Dethmontt]

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

Бред!

Добавлено: 19 сен 2013, 13:55

Хоть посмотри на структуру файла...

Добавлено: 19 сен 2013, 14:01

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

Пока Чтение.ПрочитатьАтрибут() Цикл
   Если Чтение.Имя="Номер" тогда
      Док.Номер = Чтение.Значение; 
   ИначеЕсли Чтение.Имя="Дата" Тогда
       Если типЗнч(Чтение.Значение) = Тип("Дата") Тогда
           Док.Дата = Чтение.Значение;
       ИначеЕсли типЗнч(Чтение.Значение) = Тип("Строка") Тогда
           Если Чтение.Значение = Строка(Дата('00010101000000')) Тогда
              Сообщить("В файле не заполнена дата");
           Иначе
               Док.Дата = Дата(Чтение.Значение);
           КонецЕсли;
       КонецЕсли;
   ИначеЕсли Чтение.Имя="СотрудникГруппы" Тогда
       СотрГруппы = Справочники.СотрудникиГруппы.НайтиПоНаименованию(Чтение.Значение);
       Если СотрГруппы = Неопределено или СотрГруппы.Пустая() Тогда
          Сообщить("Не нашли сотрудника - <"+Чтение.Значение+">");
          Продолжить;
       КонецЕсли;
       Док.СотрудникГруппы = СотрГруппы;
   // и т.д. ИначеЕсли
   КонецЕсли;
КонецЦикла;
   

[cobra77777]

Не добавляет Ф.И.О - СотрудникаГруппы ни в какую.

[Dethmontt]

что пишет то?

[cobra77777]

Ничего не пишет. Файл вложен.

[LordWizard]

Не добавляет в журнал или как? что это за скан списка?

[cobra77777]

Не добавляет в журнал или как? что это за скан списка?

Не добавляет в документ. Как видно из рис.ДАТА и НОМЕР добавляется, а СотрудникГруппы никак.