0
XiPyPg2012
01.04.14
✎
15:53
|
Смысл такой есть обработка которая осуществляет обмен между базами. Вызывается из Бух. Теперь необходимо чтоб когда она выполнила все действия над документом в бух, в несла запись об этом в регистр сведений базы 2.
Подскажите как это реализовать?
Пока код такой:
Для Каждого Эл Из СписокДокументовИсточников Цикл
Если НЕ Эл.Пометка тогда Продолжить; КонецЕсли;
ДокиИмпорт = Соединение.Документы[Эл.Вид];
ДокИмпорт = ДокиИмпорт.ПолучитьСсылку(Эл.ГУИДОбж);
ДокИмпорт.ПолучитьОбъект();
Если ДокИмпорт = Неопределено Тогда
МассивСтрокОшибок.Добавить("Ошибка: не нашли документ в Альфа-Авто!");
КонецЕсли;
Если ДокИмпорт.Метаданные().Имя = "ЗаказНаряд" и ДокИмпорт.ДатаЗакрытия > ДатаЗапретаЗагрузки тогда
ЗагрузитьДокумент(ДокИмпорт);
СЗДокументыВыгружено.Добавить(ДокИмпорт.Ссылка);
иначеесли ДокИмпорт.Date > ДатаЗапретаЗагрузки и не ДокИмпорт.Метаданные().Имя = "ЗаказНаряд" тогда
ЗагрузитьДокумент(ДокИмпорт);
СЗДокументыВыгружено.Добавить(ДокИмпорт.Ссылка);
иначе
МассивСтрокОшибок.Добавить("Документ находится за границами даты запрета " + ДокИмпорт.Метаданные().имя + " " + ДокИмпорт.Number + ".");
конецесли;
НаборЗаписей = ЭтотОбъект.Соединение.РегистрыСведений.ВыгрузкаДокументовВБП.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Документ.Установить(ДокиИмпорт);
НаборЗаписей.Отбор.Период.Установить(ТекущаяДата());
НовЗапись = НаборЗаписей.Добавить();
НовЗапись.Документ = ДокиИмпорт;
НовЗапись.Период = ТекущаяДата();
НовЗапись.Выгружалось = Истина;
НовЗапись.Автор = ЭтотОбъект.Соединение.Справочники.Пользователи.НайтиПоКоду("Администратор ");
НаборЗаписей.Записать(Истина);
КонецЦикла;
Но при НаборЗаписей.Записать(Истина); - тут возникает ошибки типа все передается пустым. У кого какие есть идеи и подсказки как это реализовать?
|
|