Имя: Пароль:
1C
1С v8
Из обработчика ПриВыгрузке в ПриЗагрузке
0 panzer
 
07.06.12
11:38
пишу при выгрузке
КонтактнаяИнформация = СоздатьУзел("КонтактнаяИнформация");
УстановитьАтрибут(КонтактнаяИнформация, "ЮрАдрес", Источник.ЮридическийАдрес);
ДобавитьПодчиненный(Приемник,КонтактнаяИнформация);


при загрузке

Если НЕ Объект.ЭтоГруппа Тогда
   Объект.СчетУчетаАвансовПокупателя = ПланыСчетов.Управленческий.РасчетыПоАвансамПолученным;
   Объект.СчетУчетаРасчетовСПокупателем = ПланыСчетов.Управленческий.РасчетыСПокупателями;
   Объект.СчетУчетаРасчетовСПоставщиком = ПланыСчетов.Управленческий.РасчетыСПоставщиками;
   Объект.СчетУчетаАвансовПоставщику = ПланыСчетов.Управленческий.РасчетыПоАвансамВыданным;
   НоваяСтрока = Объект.КонтактнаяИнформация.Добавить();
   НоваяСтрока.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
   НоваяСтрока.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
   
   Пока ФайлОбмена.Прочитать() Цикл
       ИмяУзла = ФайлОбмена.ЛокальноеИмя;
       ТипУзла = ФайлОбмена.ТипУзла;
       Если ИмяУзла = "КонтактнаяИнформация" И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда
           НоваяСтрока.Представление = одАтрибут(ФайлОбмена, одТипСтрока, "ЮрАдрес");
       ИначеЕсли (ИмяУзла = "КонтактнаяИнформация") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда
             Прервать;
       КонецЕсли;
   КонецЦикла;                
КонецЕсли;    


в итоге вылетает ошибка формата ФайлаДанных. что не так?
1 Пеппи
 
07.06.12
11:39
сделай ТИИ и прогони chdbfl.exe.
2 panzer
 
07.06.12
11:40
это тестирование ИБ?
3 Пеппи
 
07.06.12
11:49
да, копию базы предварительно сделай
4 panzer
 
07.06.12
12:14
а так по коду всё правильно хочешь сказать?
5 panzer
 
07.06.12
13:46
есть еще идеи,1сники?