УРИБ 8.2 Обмен в одну сторону

1С v8

22.07.13

✎

10:08

Есть регистр сведений нужно чтобы из центра в периферию мигрировал, а из периферию в центр - нет. В одну сторону в общем.
Можно ли сделать без программирования, только конфигуратором?

1 Галахад

гуру

22.07.13

✎

10:10

Нет.

2 Bumerang

22.07.13

✎

10:21

Только через программирование

3 programmist1cswworld

23.07.13

✎

02:14

(2) (1) Спасибо

4 programmist1cswworld

23.07.13

✎

06:17

Работает

// ОбработатьПланОбмен(ПланОбмена)
//
Процедура ОбработатьПланОбмен(ПланОбмена)

Ссылка = ПланыОбмена.УдаленныеПодразделения.ЭтотУзел();
Если (Ссылка = ПланыОбмена.ГлавныйУзел()) ИЛИ (ПланыОбмена.ГлавныйУзел() = Неопределено) Тогда
Возврат;
КонецЕсли;

ПланОбменаВыборка = ПланОбмена.Выбрать();
Пока ПланОбменаВыборка.Следующий() = Истина Цикл
ПланОбменаСсылка = ПланОбменаВыборка.ПолучитьОбъект().Ссылка;

Попытка
ПланыОбмена.УдалитьРегистрациюИзменений(ПланОбменаСсылка, Метаданные.РегистрыСведений.ШтрихКоды);
Исключение
Сообщить(Строка(ПланОбмена) + ", " + ПланОбменаСсылка.Наименование);
КонецПопытки;
КонецЦикла;

КонецПроцедуры

// КнопкаВыполнитьНажатие(Кнопка)
//
Процедура КнопкаВыполнитьНажатие(Кнопка)

ОбработатьПланОбмен(ПланыОбмена.Промежуточный);
ОбработатьПланОбмен(ПланыОбмена.НормативноСправочнаяИнформация);
ОбработатьПланОбмен(ПланыОбмена.ПромежуточныйДокументы);
ОбработатьПланОбмен(ПланыОбмена.ПромежуточныйZОтчеты);
ОбработатьПланОбмен(ПланыОбмена.УдаленныеПодразделения);

КонецПроцедуры // КнопкаВыполнитьНажатие

5 Serginio1

23.07.13

✎

11:14

v8: РИБ : как можно в модуле обмена достучатся в регистрах. накопл. до измерений

6 Maxus43

23.07.13

✎

11:16

ПланОбменаСсылка = ПланОбменаВыборка.ПолучитьОбъект().Ссылка;

что это? ахтунг

7 programmist1cswworld

24.07.13

✎

00:45

(6) Что не так?

8 Живой Ископаемый

24.07.13

✎

01:00

2(7) очень короткий код получается... кошернее:

ПланОбменаСсылка = ПланОбменаВыборка.ПолучитьОбъект().Ссылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка.ПолучитьОбъект().ССылка;

как минимум

9 programmist1cswworld

24.07.13

✎

01:23

(8) (6) Неконструктивная критика

10 Живой Ископаемый

24.07.13

✎

01:27

2(9) ты так говоришь, как будто это что-то плохое.

11 programmist1cswworld

24.07.13

✎

02:12

Да все там нормально. Не знаю пока куда вставлять код, отсюда и длинные имена, чтобы куда не вставил конфликта не было.

Там еще "ОбработатьПланОбмен", а не "ОбработатьПланОбменА".

12 programmist1cswworld

25.07.13

✎

04:40

(10) Отвлекает. Форума на котором "деды" не пытаются чмырить "духов" наверное не существует.

13 Explorer1c

25.07.13

✎

05:16

(12) ты хороший вопрос задал, мне тоже интересно