Перенос документов.

"Стоит задача перетащить документы с одной конфы в другую.<br><br>причем обе конфы идентичные, сложность в том что необходимо перекинуть не все доки, а только за определенные период.<br><br><br><br>пробовал это сделать при помощи обработок Export77.ert и Import77.ert<br><br>не получается.<br><br>выгрузка проходит нормально, а при загрузке вылетает ошибка уникальности<br><br><br><br>"Объект.Записать();<br><br>{C:\!EXPIMP771\IMPORT77.ERT(167)}: Код не уникальный! "<br><br>в обработке загрузки прописан механизм поиска сущ-щих объектов но почему то он работает коряво. получается что он пытается перезаписать уже существующий объект.<br><br>кто имел дело с этими обработками подскажите как быть? в чем косяк.<br><br>или может кто посоветует воспользоваться другими обработками? заведомо рабочими.<br><br>"

"Согласен, обработка часто глючит и после нее в справочниках вылазит *-ня. Давно приловчился таскать через dbf , вот пример обработки по переносу Выписок.Для накладных я добавляю проверку существования в справочнике переносимого товара. Можно импортировать и подключаясь к базе, но тогда в ней не должен (при подключении) сидеть народ.<br><br><br><br>Процедура Сформировать()<br><br> Док=СоздатьОбъект("Документ.Выписка");<br><br> Док.ВыбратьДокументы(ДатаНачала,ДатаКонца);<br><br> Пока Док.ПолучитьДокумент()=1 Цикл<br><br> Если Док.Проведен()=0 Тогда<br><br> Продолжить;<br><br> КонецЕсли;<br><br> Таб.НоваяСтрока();<br><br> Таб.Дата=Док.ДатаДок;<br><br> Таб.НомерДок=Док.НомерДок;<br><br> Таб.Счет=Док.БанковскийСчет.Код;<br><br> Таб.Комм=Док.Комментарий;<br><br> Док.ВыбратьСтроки();<br><br> Пока Док.ПолучитьСтроку()=1 Цикл<br><br> Таб.НоваяСтрока();<br><br> Таб.ВидДвижения=Док.ВидДвижения.Код;<br><br> Таб.НазнПлатежа=Док.НазначениеПлатежа;<br><br> Таб.КорСчет=Док.КоррСчет;<br><br> Таб.СК1=Формат(Док.Субконто1,"""");<br><br> Таб.СК2=Формат(Док.Субконто2,"""");<br><br> Таб.СК3=Формат(Док.Субконто3,"""");<br><br> Таб.Приход=Док.Приход;<br><br> Таб.Расход=Док.Расход;<br><br> Таб.ВхДата=Док.ДатаДокВходящий;<br><br> Таб.ВхНомерДок=Док.НомерДокВходящий;<br><br> КонецЦикла; <br><br> КонецЦикла;<br><br> БД=СоздатьОбъект("XBase");<br><br> Если ФС.СуществуетФайл("c:\zp.dbf")=1 Тогда<br><br> БД.ОткрытьФайл("c:\zp.dbf");<br><br> БД.ОчиститьФайл();<br><br> Иначе<br><br> БД.ДобавитьПоле("P1",3,12,0);//Дата выписки<br><br> БД.ДобавитьПоле("P2",2,8,0);//Номер выписки<br><br> БД.ДобавитьПоле("P3",2,5,0);//Счет <br><br> БД.ДобавитьПоле("P4",2,5,0);//Вид движения<br><br> БД.ДобавитьПоле("P5",2,250,0);//Назначение платежа<br><br> БД.ДобавитьПоле("P6",2,10,0);//Кор счет <br><br> БД.ДобавитьПоле("P7",2,100,0);//Ск1<br><br> БД.ДобавитьПоле("P8",2,50,0);//Ск2<br><br> БД.ДобавитьПоле("P9",2,50,0);//Ск3<br><br> БД.ДобавитьПоле("P10",1,15,2);//Приход<br><br> БД.ДобавитьПоле("P11",1,15,2);//Расход<br><br> БД.ДобавитьПоле("P12",3,12,0);//Вх дата <br><br> БД.ДобавитьПоле("P13",2,10,0);//Вх док<br><br> БД.ДобавитьПоле("P14",2,50,0);//Комент<br><br> БД.СоздатьФайл("c:\zp.dbf");<br><br> КонецЕсли;<br><br> Таб.ВыбратьСтроки();<br><br> Пока Таб.ПолучитьСтроку()=1 Цикл<br><br> БД.Добавить();<br><br> БД.P1=Таб.Дата;<br><br> БД.P2=Формат(Таб.НомерДок,"""");<br><br> БД.P3=Формат(Таб.Счет,"""");<br><br> БД.P4=Формат(Таб.ВидДвижения,"""");<br><br> БД.P5=Формат(Таб.НазнПлатежа,"""") ;<br><br> БД.P6=Формат(Таб.КорСчет,"""");<br><br> БД.P7=Формат(Таб.Ск1,"""");<br><br> БД.P8=Формат(Таб.Ск2,"""");<br><br> БД.P9=Формат(Таб.Ск3,"""");<br><br> БД.P10=Таб.Приход;<br><br> БД.P11=Таб.Расход;<br><br> БД.P12=Таб.ВхДата;<br><br> БД.P13=Формат(Таб.ВхНомерДок,"""");<br><br> БД.P14=Формат(Таб.Комм,"""");<br><br> БД.Записать(); <br><br> КонецЦикла;<br><br>КонецПроцедуры<br><br>//**************************************************************************<br><br>Процедура Загрузить() <br><br> БД=СоздатьОбъект("XBase");<br><br> БД.ОткрытьФайл("c:\zp.dbf");<br><br> Если БД.Открыта()=1 Тогда<br><br> Таб.УдалитьСтроки();<br><br>       Если БД.Первая()=1 Тогда;<br><br> Таб.НоваяСтрока();<br><br> Таб.Дата=БД.P1;<br><br> Таб.НомерДок=БД.P2;<br><br> Таб.Счет=БД.P3;<br><br> Таб.ВидДвижения=БД.P4;<br><br> Таб.НазнПлатежа=БД.P5;<br><br> Таб.КорСчет=БД.P6;<br><br> Таб.Ск1=БД.P7;<br><br> Таб.Ск2=БД.P8;<br><br> Таб.Ск3=БД.P9;<br><br> Таб.Приход=БД.P10;<br><br> Таб.Расход=БД.P11;<br><br> Таб.ВхДата=БД.P12;<br><br> Таб.ВхНомерДок=БД.P13;<br><br> Таб.Комм=БД.P14;<br><br> КонецЕсли;<br><br> Пока БД.Следующая()=1 Цикл<br><br> Таб.НоваяСтрока();<br><br> Таб.Дата=БД.P1;<br><br> Таб.НомерДок=БД.P2;<br><br> Таб.Счет=БД.P3;<br><br> Таб.ВидДвижения=БД.P4;<br><br> Таб.НазнПлатежа=БД.P5;<br><br> Таб.КорСчет=БД.P6;<br><br> Таб.Ск1=БД.P7;<br><br> Таб.Ск2=БД.P8;<br><br> Таб.Ск3=БД.P9;<br><br> Таб.Приход=БД.P10;<br><br> Таб.Расход=БД.P11;<br><br> Таб.ВхДата=БД.P12;<br><br> Таб.ВхНомерДок=БД.P13;<br><br> Таб.Комм=БД.P14;<br><br> КонецЦикла;<br><br> Иначе<br><br> Сообщить("Не найден файл переноса, создайте его еще раз");<br><br> КонецЕсли;<br><br> <br><br><br><br><br><br>КонецПроцедуры<br><br>//**************************************************************************<br><br>Процедура ПриОткрытии()<br><br> Таб.НоваяКолонка("Дата","Дата");<br><br> Таб.НоваяКолонка("НомерДок","Текст");<br><br> Таб.НоваяКолонка("Счет","Текст",,,"Счет");<br><br> Таб.НоваяКолонка("ВидДвижения","Текст");<br><br> Таб.НоваяКолонка("НазнПлатежа","Текст");<br><br> Таб.НоваяКолонка("КорСчет","Текст");<br><br> Таб.НоваяКолонка("Ск1","Текст");<br><br> Таб.НоваяКолонка("Ск2","Текст");<br><br> Таб.НоваяКолонка("Ск3","Текст");<br><br> Таб.НоваяКолонка("Приход","Число",15,2);<br><br> Таб.НоваяКолонка("Расход","Число",15,2);<br><br> Таб.НоваяКолонка("ВхДата","Дата");<br><br> Таб.НоваяКолонка("ВхНомерДок","Текст");<br><br> Таб.НоваяКолонка("Комм","Текст");<br><br>КонецПроцедуры<br><br>"

А через эксюльку походу быстрее получается...

При больших объемах в Excel попадаешь на ограничение по количеству строк.

<br><br><br><br>Люди, есть готовые реально работающие обработки или нет???<br><br><br><br>

Что е-щ-е подробнее, чем Serga написал?? Там же только копи-пэйст остался?!

блин<br><br><br><br>в конфе 60 разных документов.<br><br>не охото все ручками для этого писать.<br><br>хотел стандартную обработку. причем перенос то прямой<br><br>т.е. конфы эдентичные.