Имя: Пароль:
1C
1С v8
Исходя из действий в базе 1 внести изменения в базу 2.
0 XiPyPg2012
 
01.04.14
15:53
Смысл такой есть обработка которая осуществляет обмен между базами. Вызывается из Бух. Теперь необходимо чтоб когда она выполнила все действия над документом в бух, в несла запись об этом в регистр сведений базы 2.

Подскажите как это реализовать?

Пока код такой:

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

        НаборЗаписей.Отбор.Документ.Установить(ДокиИмпорт);
        НаборЗаписей.Отбор.Период.Установить(ТекущаяДата());

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

        НаборЗаписей.Записать(Истина);
    КонецЦикла;


Но при НаборЗаписей.Записать(Истина); - тут возникает ошибки типа все передается пустым. У кого какие есть идеи и подсказки как это реализовать?
1 XiPyPg2012
 
01.04.14
16:27
Народ у кого какие идей есть по этому поводу ?
2 shuhard
 
01.04.14
16:31
(1) народ не тратит свой мозг на нечётко сформулированные задачи