часть фирм переехала на 8. документы набивает 1 человек. остальные врятли за месяц, два перейдут.
обмен по кд ?
Набивают тупо в 8 и все загружается в 7 ?

как показала практика КОМ тормоз :(. файлы и то быстрее

После загрузки в приемник  пишется файл подтверждения, с номером объекта. как часто читать такие файлы?
Сейчас ловлю блокировку объекта.

(2)
вот так

Процедура ПолучитьПодтверждения() Экспорт

    Запрос = Новый ЗАпрос("ВЫБРАТЬ
                            |    Пользователи.ПользовательСОМ
                            |ИЗ
                            |    Справочник.Пользователи КАК Пользователи
                            |ГДЕ
                            |    Пользователи.ПользовательСОМ <> """"");
     Выборка = Запрос.Выполнить().Выбрать();
     Пока Выборка.Следующий() Цикл
        Пользователь = Выборка.ПользовательСОМ;    
   
      ПутьПодтверждений = "\\1CSQL2\storage\1С\Total\ОбменсУТП\Обмен\Подтверждения\"+Пользователь;
      Текст = Новый ЧтениеТекста;
      МЗПодтверждения = РегистрыСведений.Подтверждения.СоздатьМенеджерЗаписи();
      //Получим список документов не подтвержденных
      Запрос = Новый ЗАпрос("ВЫБРАТЬ
                            |    Подтверждения.Объект,
                            |    Подтверждения.УникИнд
                            |ИЗ
                            |    РегистрСведений.Подтверждения КАК Подтверждения
                            |ГДЕ
                            |    НЕ Подтверждения.Синхронизирован");
      ВыборкаЗапроса = Запрос.Выполнить().Выбрать();
      Пока ВыборкаЗапроса.Следующий() Цикл
           
          Попытка
              Текст.Открыть(ПутьПодтверждений+"\"+ВыборкаЗапроса.УникИнд+".txt",КодировкаТекста.ANSI);          
          Исключение
              Продолжить;
          КонецПопытки;
         
            Стр = Текст.ПрочитатьСтроку();
            Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки
                НомерДокумента = Стр;
                Объект = ВыборкаЗапроса.Объект.ПолучитьОбъект();
                Если ТипЗнч(Объект.ссылка) = Тип("ДокументСсылка.ЗаявкаТО") Тогда
                    Объект.НомерАкта = НомерДокумента;
                Иначе    
                    Объект.НомерБух  = НомерДокумента;
                КонецЕсли;
                Объект.Записать();
               
                МЗПодтверждения.УникИнд = ВыборкаЗапроса.УникИнд;
                МЗПодтверждения.Объект = Объект.Ссылка;
                МЗПодтверждения.Прочитать();
                Если МЗПодтверждения.Выбран() Тогда
                    // Сообщить("Для документа -"+Объект.Ссылка+", получен бухгалтерский код - "+ НомерДокумента);
                КонецЕсли;
                МЗПодтверждения.УникИнд = ВыборкаЗапроса.УникИнд;
                МЗПодтверждения.Объект = Объект.Ссылка;
                МЗПодтверждения.Синхронизирован = Истина;
                МЗПодтверждения.Записать();
                Стр = Текст.ПрочитатьСтроку();
                Сообщить("Для документа -"+Объект.Ссылка+", получен бухгалтерский код - "+ НомерДокумента);
            КонецЦикла;    
      КонецЦикла;

         
         
     
     КонецЦикла;
             
     
       


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