Имя: Пароль:
1C
1С v8
Обработка переноса между конфигурациями идентичными
0 neomarat
 
19.06.12
17:01
Киньте пожалуйста для 8.2, нет доступа к домашнему компу, а надо срочно.
Надо перенести документы определенного типа.
1 Irbis
 
19.06.12
17:02
через сколько постов закроют?
2 Нуф-Нуф
 
19.06.12
17:03
в инете есть, и на итс
3 fisher
 
19.06.12
17:03
Два...
4 pumbaEO
 
19.06.12
17:03
Один ...
5 fisher
 
19.06.12
17:03
Черд! Четыре...
6 fisher
 
19.06.12
17:03
Опять промазал... Да что ж это такое!
7 neomarat
 
19.06.12
17:04
за что закроют то?
Нелиценз же не прошу
8 neomarat
 
19.06.12
17:06
(2) в инете стока всякого барахла - тестировать запаришься.
В вэб-итс нельзя скачать обработки - тока на диске.
9 pumbaEO
 
19.06.12
17:07
франч и без диска ИТС ? Не верю... диск ИТС должен быть всегда рядом, а то как докажешь Высокое звание программист 1С ?
10 neomarat
 
19.06.12
17:08
(9) я не франч, а таскать с собой диск - я же не больной
11 palpetrovich
 
19.06.12
17:12
плешку-то можно таскать ;)
12 pumbaEO
 
19.06.12
17:13
ааа, Черный АдынЭсник? Лови его, у честных франчей хлеб отбираешь... http://ubuntuone.com/4xS5Go044qGa620OdMwN8K
13 rbcvg
 
19.06.12
17:14
Кинул, лови.
14 Fragster
 
гуру
19.06.12
17:20
срочно через сериализатор XDTO пишется за 5 минут
15 neomarat
 
19.06.12
17:28
(13) спасибо
(14) я даже не понял про что ты поругался ))
16 Fragster
 
гуру
19.06.12
17:29
дарю:
   Объект = СсылкаНаОбъект.ПолучитьОбъект();
   
   МассивОбъектов = Новый Массив;
   МассивОбъектов.Добавить(Объект);
   
   ЗаписьXML = Новый ЗаписьXML;
   ЗаписьXML.УстановитьСтроку();
   ИмяКорня = "array";
   ЗаписьXML.ЗаписатьНачалоЭлемента(ИмяКорня);
   Для каждого Элемент Из МассивОбъектов Цикл
       СериализаторXDTO.ЗаписатьXML(ЗаписьXML, Элемент, НазначениеТипаXML.Явное);
   КонецЦикла;
   ЗаписьXML.ЗаписатьКонецЭлемента();
   XML = ЗаписьXML.Закрыть();
   
   Для каждого Стр Из Получатели Цикл
       Состояние("Обработано: " + Получатели.Индекс(Стр) + " / " + Получатели.Количество());
       Попытка
           Соединитель = Новый COMObject(КомОбъект);
           КОМ = Соединитель.Connect(Стр.СтрокаСоединения);
           
           КОМЧтениеXML = КОМ.NewObject("ЧтениеXML");
           КОМЧтениеXML.УстановитьСтроку(XML);
           КОМЧтениеXML.Прочитать(); // начало корневого элемента
           КОМЧтениеXML.Прочитать(); // начало данных
           Пока КОМЧтениеXML.Имя <> ИмяКорня Цикл
               КОМЗначение = КОМ.СериализаторXDTO.ПрочитатьXML(КОМЧтениеXML);
               КОМЗначение.Записать();
           КонецЦикла;
           
       Исключение
           КОМ = Неопределено;
           Сообщить(Стр.СтрокаСоединения);
           СообщитьОписаниеОшибки(ИнформацияОбОшибке());
       КонецПопытки
   КонецЦикла;
17 Fragster
 
гуру
19.06.12
17:30
хотел для списка объектов сделать - забил
18 Skylark
 
19.06.12
17:31
Да, сериализация рулит
Закон Брукера: Даже маленькая практика стоит большой теории.