Имя: Пароль:
1C
1C 7.7
v7: Перенос файло из базы Управление делами в Документооборот 8
0 ToryV
 
04.12.14
16:04
Здравствуйте!
Переношу данные из базы Управление делами 77 в Документооборот 8 на 8.3.при помощи Конвертации данных.
Есть документ "Инструкции" (которые, собственно мне и надо перенести) в справочник "Внутренние документы". Все необходимые поля я перенесла, кроме присоединенных файлов(это сканы самих инструкций, которые хранятся на диске сервера). Их нужно перенести в другой каталог на сервере.
Уперлось все в то, что в 77 Документ "Вложения" имеет реквизит ДокОснование(это как раз док "Инструкция"), а вот все остальное это ТЧ:наименование, путь и т.д.
А вот в 8-ке это реквизиты справочника.
Пока добилась  при конвертации данных только  создания в справочнике "Файлы" в 8-ке записи о файле, в которой содержится ссылка на нужный Внутренний документ. Но самого файла на сервере в каталоге нет, ну собственно  это понятно, так даже имени его получить не получается.
Как вытащить эти данные из ТЧ и перенести в реквизиты?
1 kortun
 
04.12.14
16:22
(0)  сделай выборкой запросом.

Грузи таблицу значений ВходящиеДанные
2 ToryV
 
04.12.14
21:36
Спасибо, попробую, правда с запросами в 77 туговато, есть там что-нибудь вроде консоли запросов?
3 ToryV
 
08.12.14
16:31
К сожалению , до сих пор, не получается осуществить перенос.

В обработчике "Перед выгрузкой" ПКО файлы пишу
ТабличнаяЧасть = СоздатьОбъект("ТаблицаЗначений");
ТабличнаяЧасть.НоваяКолонка("Автор");
ТабличнаяЧасть.НоваяКолонка("ПолноеНаименование");
ТабличнаяЧасть.НоваяКолонка("Наименование");
ТабличнаяЧасть.НоваяКолонка("ФайлХранилище");
//ТабличнаяЧасть.НоваяКолонка("Владелец");
ТабличнаяЧасть.НоваяКолонка("ПутьКФайлу");


Док = СоздатьОбъект("Документ.Вложения");
Док.ВыбратьСтроки(Источник);
Пока Док.ПолучитьСтроку() = 1 Цикл
    НомерСтроки = Док.НомерСтроки();
    ТабличнаяЧасть.НоваяСтрока();
    ТабличнаяЧасть.Автор  = Док.АвторВложения;
    ТабличнаяЧасть.ПолноеНаименование  = Док.ВнутреннееИмя;
    ТабличнаяЧасть.Наименование = Док.ВнешнееИмя;
    ТабличнаяЧасть.ФайлХранилище = Док.Объект;
    ТабличнаяЧасть.ПутьКФайлу = "мой путь на сервере";
    
    
КонецЦикла;

Отказ = 1;
У реквизитов ТЧ ставлю галку "Получать из входящих данных"
Выгружает 0, пишет что слишком много параметров передано  функции
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший