Подчиненный регистр сведений
☑
0
EpicJEff
28.04.14
✎
12:04
Помогите написать код для модуля объкта
есть документ поступление авто и есть регистр автомобили
Надо сделать запись табличной части документа в регистр
1
1dvd
28.04.14
✎
12:04
задачу поняли
2
Wobland
28.04.14
✎
12:04
поднатужься! у тебя всё получится!
3
Жан Пердежон
28.04.14
✎
12:06
мы в тебя верим
4
EpicJEff
28.04.14
✎
12:06
я сделал для справочника и давненько делал для регистра но позабыл))
Процедура ОбработкаПроведения (Отказ, РежимПроведения)
Для каждого Строка из ТабличнаяЧасть1 Цикл
Если Строка.БУ= ложь тогда
СпрАвтомобили = Справочники.Автомобили.
СпрАвтомобили.Наименование = Строка.Марка;
СпрАвтомобили.Марка = Строка.Марка;
СпрАвтомобили.ИндентификационныйНомер = Строка.ИндетификационныйНомер;
СпрАвтомобили.ТипТранспортногоСредства = Строка.ТипТранспортногоСредства;
СпрАвтомобили.ГодИзготовления = Строка.ГодИзготовления;
СпрАвтомобили.НомерДвигателя = Строка.НомерДвигателя;
СпрАвтомобили.Шасси = Строка.Шасси;
СпрАвтомобили.НомерКузова= Строка.НомерКузова;
СпрАвтомобили.ЦветКузова = Строка.ЦветКузова;
СпрАвтомобили.ПаспортТранспортногоСредства = Строка.ПаспортТранспортногоСредства;
СпрАвтомобили.ДатаВыдачи = Строка.ДатаВыдачи;
СпрАвтомобили.НаименованиеОрганизацииВыдавшейПаспорт= Строка.НаименованиеОрганизации;
СпрАвтомобили.ОсобыеОтметки = Строка.ОсобыеОтметки;
СпрАвтомобили.Цена = Строка.Цена;
СпрАвтомобили.Записать();
иначе
СпрАвтомобилиБУ = Справочники.АвтомобилиБУ.СоздатьЭлемент();
СпрАвтомобилиБУ.Наименование = Строка.Марка;
СпрАвтомобилиБУ.Марка = Строка.Марка;
СпрАвтомобилиБУ.ИндентификационныйНомер = Строка.ИндетификационныйНомер;
СпрАвтомобилиБУ.ТипТранспортногоСредства = Строка.ТипТранспортногоСредства;
СпрАвтомобилиБУ.ГодИзготовления = Строка.ГодИзготовления;
СпрАвтомобилиБУ.НомерДвигателя = Строка.НомерДвигателя;
СпрАвтомобилиБУ.Шасси = Строка.Шасси;
СпрАвтомобилиБУ.НомерКузова= Строка.НомерКузова;
СпрАвтомобилиБУ.ЦветКузова = Строка.ЦветКузова;
СпрАвтомобилиБУ.ПаспортТранспортногоСредства = Строка.ПаспортТранспортногоСредства;
СпрАвтомобилиБУ.ДатаВыдачи = Строка.ДатаВыдачи;
СпрАвтомобилиБУ.НаименованиеОрганизацииВыдавшейПаспорт= Строка.НаименованиеОрганизации;
СпрАвтомобилиБУ.ОсобыеОтметки = Строка.ОсобыеОтметки;
СпрАвтомобилиБУ.Цена = Строка.Цена;
СпрАвтомобилиБУ.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
5
Wobland
28.04.14
✎
12:07
(4) НННООООУ!!!
6
Wobland
28.04.14
✎
12:08
боюсь, конструктор движений поможет, но ненадолго
7
ДенисЧ
28.04.14
✎
12:08
мать....
8
Wobland
28.04.14
✎
12:09
вот кто меня дёргал за язык в (2)?
9
Любопытная
28.04.14
✎
12:10
Epic такой эпик...
Чувак, Альфа-Авто не ты писал, случаем?
10
Wobland
28.04.14
✎
12:12
(9) видал я авто-альфу
ОбработкаПроведения() и ОтменаПроведения() в модуле набора записей независимого РС - это просто чудесно
11
Sammo
28.04.14
✎
12:20
См. ЕСИС.
Со времен 8.0 не менялось.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший