Имя: Пароль:
1C
1С v8
Подчиненный регистр сведений
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 не менялось.
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.