Перенос данных из одной базы в другую.
06.09.2005
13:14
#1
Необходимо документы перенести из одной базы в другую. Подскажите, как можно это реализовать.
07.09.2005
08:43
#2
"Если конфигурации идентичные то попробуй MCExp, но сделай резервные копии перенос иногда глючит. Или пропиши перенос через прямой коннект, например:
V7=СоздатьОбъект("V77.Application");
Спр=СоздатьОбъект("Справочник.КОНТРАГЕНТЫ");
Док=СоздатьОбъект("Документ");
Стр = "/d"""""+"C:\Курск\"+"""" +" /n Админ";//База Импортер "C:\Program Files\1C77_Buh\BIN\1cv7.exe" enterprise
//Сообщить("Попытка подключения к базе данных "+Стр);
Открыта=V7.Initialize(V7.RMTrade, Стр, "NO_SPLASH_SHOW");
Если Открыта=0 Тогда
Предупреждение("Не открывается база для ИМПОРТА!!!
|Убедитесь, что она не открыта у пользователей
|или работа не была завершина аварийно!!!");
Возврат;
КонецЕсли;
Сообщить("Подключились!!!");
Сообщить("Загружаем документы" + ТекущееВремя() );
ДокИм=V7.CreateObject("Документ");
ДокИм=ВыбратьДокументы();
Ну и дальше аналогично, не забудь пополнять используемые справочники.
Удачи.
"
V7=СоздатьОбъект("V77.Application");
Спр=СоздатьОбъект("Справочник.КОНТРАГЕНТЫ");
Док=СоздатьОбъект("Документ");
Стр = "/d"""""+"C:\Курск\"+"""" +" /n Админ";//База Импортер "C:\Program Files\1C77_Buh\BIN\1cv7.exe" enterprise
//Сообщить("Попытка подключения к базе данных "+Стр);
Открыта=V7.Initialize(V7.RMTrade, Стр, "NO_SPLASH_SHOW");
Если Открыта=0 Тогда
Предупреждение("Не открывается база для ИМПОРТА!!!
|Убедитесь, что она не открыта у пользователей
|или работа не была завершина аварийно!!!");
Возврат;
КонецЕсли;
Сообщить("Подключились!!!");
Сообщить("Загружаем документы" + ТекущееВремя() );
ДокИм=V7.CreateObject("Документ");
ДокИм=ВыбратьДокументы();
Ну и дальше аналогично, не забудь пополнять используемые справочники.
Удачи.
"
Читают тему
(гостей: 1)