http://lvkr.ru/f/2AxENz/1280.jpg




Как можно сделать списание Бортового Контроллера вместе с комплектацией ..которая представлена в номенклатуре в ТЧ Комплектация.
На форме есть реквизит продукция с типом номенклатура. В Самой Номенклатуре имеется ТЧ комплектация в которой привязана номенклатура и количество которое содержится в бортовом контроллере.

Списание только Бортового Контроллера выглядит так:

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    // регистр ОстаткиВЯчейках Расход
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)");
        Движение.Номенклатура = Продукция;
        Движение.НомерПрибора = ТекСтрокаТовары.ШК;
        Движение.Количество = 1;
        
                
    КонецЦикла;

    
    
    

    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

Если в вкратце,  то при списании одного  Бортового Контроллера должно автоматически списываться перечень наименование комплектующих и коли-во их  который приведен в ТЧ.
Подскажите пожалуйста как это осуществить, а то уже голову сломала ?)))

(19) Эти ячейки предопределенные?

http://lvkr.ru/f/uv7hWn/1280.jpg

(22) Поменяла еще не обновилась :))

(25) Я про фотку в черной юбке - давай другую))
Чтобы обновилась - нажми Shift+F5 или Ctrl+F5.

(26) я поняла:)

http://lvkr.ru/f/fuxxx8/1280.jpg

(28) А как у тебя ТЧ в справочнике "Номенклатура" называется-то?

(29) Комплектация

(30) Ну вот, а в запросе "Комплектующие". Замени "Комплектующие" на "Комплектация".

(31) Заменила

     Запрос = Новый Запрос;
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.Продукция.ШК КАК НомерПрибора,
    |    1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеТовары
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеТовары
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочники.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |    ПеремещениеТовары.Ссылка = &Ссылка"
    ;
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;



Пишет ошибки :Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(61)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(24, 31)}: Таблица не найдена "Справочники.Номенклатура.Комплектация"
ВНУТРЕННЕЕ СОЕДИНЕНИЕ <<?>>Справочники.Номенклатура.Комплектация КАК НоменклатураКомплектация

(32) А у тебя в конфигурации точно есть справочник "Номенклатура" с ТЧ "Комплектация"?

(32) В запросе в единственном же числе.

(33) http://lvkr.ru/f/3YvVym/1280.jpg

(35) Не "Справочники.Номенклатура.Комплектация", а Справочник.Номенклатура.Комплектация

(36)Подправила :)
Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(60)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(11, 5)}: Поле не найдено "ПеремещениеСПрисвоениемНомеров.Ссылка"
<<?>>ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка

(37) |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеТовары -уу тебя не ПеремещениеСПрисвоениемНомеров, а ПеремещениеТовары

(38) *у, я не заика )

(37) Как-то так:

Запрос.Текст =
    "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.Продукция.ШК КАК НомерПрибора,
    |    1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочники.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |    ПеремещениеТовары.Ссылка = &Ссылка";

Я думал, что уж правильные имена объектам ТС в силах расставить. Понятное же дело, что у меня нет вашей конфигурации, что бы весь синтаксис просто скопипастить с форума и идти кофе пить. Эту-то конфигу за 10 минут накидал, что бы хоть направление мысли подать.

(40) Только исправить на Справочник.Номенклатура.Комплектация не забудь.

Запрос.Текст =  "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.Продукция.ШК КАК НомерПрибора,
    |    1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеТовары
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеТовары
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |    ПеремещениеТовары.Ссылка = &Ссылка";


Вроде нормально должно быть но пишет ошибку




Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(59)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(11, 5)}: Поле не найдено "ПеремещениеСПрисвоениемНомеров.Ссылка"
<<?>>ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка

(43) ) скопипасти (40) и подправь (42)

(44) +1))

(44) Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(62)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(6, 46)}: Поле не найдено "ПеремещениеСПрисвоениемНомеров.Продукция.ШК"
ПеремещениеСПрисвоениемНомеров.Продукция.<<?>>ШК КАК НомерПрибора,

(46) Неее, ты код полностью показывай и, что реквизит присутствует - картинку ))

(47) http://lvkr.ru/f/3TG0d2/1280.jpg
http://lvkr.ru/f/fkagHV/1280.jpg

Код:



Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    // регистр ОстаткиВЯчейках Расход
    //Движения.ОстаткиВЯчейках.Записывать = Истина;
    //Для Каждого ТекСтрокаТовары Из Товары Цикл
    //    Движение = Движения.ОстаткиВЯчейках.Добавить();
    //    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    //    Движение.Период = Дата;
    //    Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)");
    //    Движение.Номенклатура = Продукция;
    //    Движение.НомерПрибора = ТекСтрокаТовары.ШК;
    //    Движение.Количество = 1;
    //    
    //            
    //КонецЦикла;
    //
    
     Запрос = Новый Запрос;
    
    Запрос.Текст =     "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.Продукция.ШК КАК НомерПрибора,
    |    1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |    ПеремещениеТовары.Ссылка = &Ссылка";
    
    
    
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;
    
    
    
    
    
    
    
    
    
    
    Для Каждого ТСтр Из Справочники.Номенклатура Цикл
        Движение2 = Движения.ОстаткиВЯчейках.Добавить();
        Движение2.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение2.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие");
        Движение.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("Chel-43;TK0000000507");
        Движение2.Количество = 4;
    
                
    КонецЦикла;


    
    
    // регистр ОстаткиВЯчейках Приход
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("GP1");
        Движение.Номенклатура = Продукция;
        Движение.НомерПрибора = ТекСтрокаТовары.ШК;
        Движение.Количество = 1;
    КонецЦикла;

    // регистр ОстаткиТоваров Расход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Склад = Справочники.Склады.НайтиПоНаименованию("Производственный склад");
        Движение.Номенклатура = Продукция;
        Движение.Количество = 1;
    КонецЦикла;

    // регистр ОстаткиТоваров Приход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Склад = Справочники.Склады.НайтиПоНаименованию("Готовая продукция");
        Движение.Номенклатура = Продукция;
        Движение.Количество = 1;
    КонецЦикла;

    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

(48) Что у Продукция есть реквизит ШК.

(48) Замени "ПеремещениеСПрисвоениемНомеров.Продукция.ШК КАК НомерПрибора"
на "ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора"

(50) http://lvkr.ru/f/vpJDVk/1280.jpg

(51) Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(62)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(7, 1)}: Синтаксическая ошибка "КАК"
<<?>>КАК Количество

(53) Показывай код-то...

Рабочий день подходит к концу... :)

(55)
Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    
    
     Запрос = Новый Запрос;
    
    Запрос.Текст =     "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора
    |КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |    ПеремещениеТовары.Ссылка = &Ссылка";
    
    
    
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;
    
    
    
    
    
    
    
    
    
    
    Для Каждого ТСтр Из Справочники.Номенклатура Цикл
        Движение2 = Движения.ОстаткиВЯчейках.Добавить();
        Движение2.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение2.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие");
        Движение.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("Chel-43;TK0000000507");
        Движение2.Количество = 4;
    
                
    КонецЦикла;


    
    
    // регистр ОстаткиВЯчейках Приход
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("GP1");
        Движение.Номенклатура = Продукция;
        Движение.НомерПрибора = ТекСтрокаТовары.ШК;
        Движение.Количество = 1;
    КонецЦикла;

    // регистр ОстаткиТоваров Расход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Склад = Справочники.Склады.НайтиПоНаименованию("Производственный склад");
        Движение.Номенклатура = Продукция;
        Движение.Количество = 1;
    КонецЦикла;

    // регистр ОстаткиТоваров Приход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Склад = Справочники.Склады.НайтиПоНаименованию("Готовая продукция");
        Движение.Номенклатура = Продукция;
        Движение.Количество = 1;
    КонецЦикла;

    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

(56) Если бы скопипастила нормально у тебя бы было
|    1 КАК Количество

(57) и запятую стерла перед
|    1 КАК Количество

(57) я 1 убрала :) там тоже с ошибкой



Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    // регистр ОстаткиВЯчейках Расход
    //Движения.ОстаткиВЯчейках.Записывать = Истина;
    //Для Каждого ТекСтрокаТовары Из Товары Цикл
    //    Движение = Движения.ОстаткиВЯчейках.Добавить();
    //    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    //    Движение.Период = Дата;
    //    Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)");
    //    Движение.Номенклатура = Продукция;
    //    Движение.НомерПрибора = ТекСтрокаТовары.ШК;
    //    Движение.Количество = 1;
    //    
    //            
    //КонецЦикла;
    //
    
     Запрос = Новый Запрос;
    
    Запрос.Текст =     "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора ,
    | 1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |    ПеремещениеТовары.Ссылка = &Ссылка";
    
    
    
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;
    
    
    
    
    
    
    
    
    
    
    Для Каждого ТСтр Из Справочники.Номенклатура Цикл
        Движение2 = Движения.ОстаткиВЯчейках.Добавить();
        Движение2.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение2.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие");
        Движение.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("Chel-43;TK0000000507");
        Движение2.Количество = 4;
    
                
    КонецЦикла;


    
    
    // регистр ОстаткиВЯчейках Приход
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("GP1");
        Движение.Номенклатура = Продукция;
        Движение.НомерПрибора = ТекСтрокаТовары.ШК;
        Движение.Количество = 1;
    КонецЦикла;

    // регистр ОстаткиТоваров Расход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Склад = Справочники.Склады.НайтиПоНаименованию("Производственный склад");
        Движение.Номенклатура = Продукция;
        Движение.Количество = 1;
    КонецЦикла;

    // регистр ОстаткиТоваров Приход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Склад = Справочники.Склады.НайтиПоНаименованию("Готовая продукция");
        Движение.Номенклатура = Продукция;
        Движение.Количество = 1;
    КонецЦикла;

    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры






ошибки :

Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(62)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(27, 5)}: Поле не найдено "ПеремещениеТовары.Ссылка"
<<?>>ПеремещениеТовары.Ссылка = &Ссылка

... /матерные слова/....
Какой кодинг ?!
Это настройками делается - набор комплект курите !!!

(59) Вместо ПеремещениеТовары.Ссылка = &Ссылка надо ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка

(61) + и может стоит послушать (60) ?

(60) См. ветку конфигурации в (50). Это же "сомописка".

(62) Ну да исправила и это ...))
Поле не найдено "НоменклатураКомплектация.Номенклатура"
НоменклатураКомплектация.<<?>>Номенклатура,

(61) Не пошло "направление мысли" в прок. :)

(65) )
(64) Показывай терь реквизиты ТЧ справочника )

http://lvkr.ru/ppff2n.jpg

молодцы, но  если вдруг  комплектация  у вас изменится  в один прекрасный день,  а документы придется перепроводить за год ? и что у вас получится ?  шаткое решение с запросом :)

(68) Ну дак комплектацию можно же изменять в ТЧ Комплектация

(67) У тебя нет там ни номенклатуры, ни ШК...

(70) Дак и не надо  тут ШК ...мы номер присваиваем только прибору ...А Данным из ТЧ Комплектация , не нужно

Комплектующие, если их состав может изменяться, должны быть в регистре сведений, а не в табличной части у номенклатуры. И указанны они должны быть ссылками на номенклатуру, а не по наименованию... ошибки в логике --> ошибки в метаданных конфигурации.

(72) так в номенклатуре  в  ТЧ Комплектация мы  указываем список чего и сколько нужно списать дополнительно при списании главного элемента Продукция

Предположим, есть документ "А", с датой до изменения состава комплектующих и есть документ "Б" - после изменения состава...

А теперь фокус (внимательно следи за руками):

Попробуйте перепровести оба документа но так, чтобы в документе "А" был "старый" состав комплектующих, а в документе "Б" - уже "новый" состав.

(74) Я поняла, так нет необходимости перепроводить документы

Я понял. Конфигурация учебная, так?

Справедливости ради, замечу: комплектующие в табличной части комплекта - имеют право на существование. Но тогда в документы нужно копировать актуальный состав.

(76) ну так документы проводятся тут же так что состав не успевает меняться

(вернулся к теме)

(67) Тип реквизита "Наименование" в ТЧ "Комплектация" справочника "Номенклатура"? Только не говори мне что это "Строка" - расстроюсь.

(78) Ставлю на "Строка".

(78) (79)
http://lvkr.ru/f/gMcnEU/1280.jpg

(80) В запросе исправь НоменклатураКомплектация.Номенклатура на НоменклатураКомплектация.Наименование.

(81) Исправила  но :
Поле не найдено "НоменклатураКомплектация.Наименование.ШК"
НоменклатураКомплектация.Наименование.<<?>>ШК,

(82) А ШК - это что у тебя? В номенклатуре это вообще будет?

(76)(75) ну не надо  так не надо, главное потом  нервно не начать изобретать велосипед:)

(83) http://lvkr.ru/f/VaAtYM/800.jpg
Только  это будет использоваться

(85) У тебя будет происходить при списании прибора Движение.НомерПрибора = ТекСтрокаТовары.ШК; , а что у тебя будет происходить при списании комплектующих, что у тебя должно быть в Движение.НомерПрибора?

(86) Вот это :

     //регистр ОстаткиВЯчейках Расход
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)");
        Движение.Номенклатура = Продукция;
        Движение.НомерПрибора = ТекСтрокаТовары.ШК;
        Движение.Количество = 1;


ПЛЮС
Списания  Компонентов которые находятся в  "ТЧ Комплектация" для каждого прибора

(87) Это понятно - НомерПрибора - он для прибора, его нет в Комплектующих, я так понимаю. Тогда у тебя должно быть вместо   НоменклатураКомплектация.Номенклатура.ШК что-то типа "Это не прибор"

(88) Маленько не поняла последнее
Тогда у тебя должно быть вместо   НоменклатураКомплектация.Номенклатура.ШК что-то типа "Это не прибор"  это как? ))))))

(89) Замени текстом.

(90) А если вообще убрать ?  
Запрос = Новый Запрос;
    
    Запрос.Текст =     "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,  
    | 1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |     ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка";
    
                        
    
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;

(91) НомерПрибора - измерение регистра у тебя не зря заведено.

(92) где?

(93)

  Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.СкладскиеЯчейки = Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)");
        Движение.Номенклатура = Продукция;
        ДВИЖЕНИЕ.НОМЕРПРИБОРА = ТекСтрокаТовары.ШК; <<-- ЗДЕСЬ
        Движение.Количество = 1;
        
                
    КонецЦикла;

(94) Ну так здесь я номер записываю врегистр
http://lvkr.ru/f/brHb48/1280.jpg

(95) Это из документа, т.е. комплект, а комплектующие из справочника где?

(96) (12) http://lvkr.ru/f/xMsE5V/1024.jpg

(97) Видел я твой картинки )). Почитай (91), посмотри код, где там записывается ШК?

(98) * твои

(98) Вот так вот  ? ))

Запрос = Новый Запрос;
    
    Запрос.Текст =     "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора ,
    | 1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Номенклатура,
    |    НоменклатураКомплектация.Номенклатура.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |     ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка";
    
         
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;
    


И отоно чё михалыч :))
Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(61)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(19, 30)}: Поле не найдено "НоменклатураКомплектация.Номенклатура"
НоменклатураКомплектация.<<?>>Номенклатура,

О, БОЖЕ!!! см. (81)

(101) Дак исправляла это ничего не меняет, и вернула обратно.

(101) с (81)
Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(61)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(20, 43)}: Поле не найдено "НоменклатураКомплектация.Наименование.ШК"
НоменклатураКомплектация.Наименование.<<?>>ШК,

(100) и (103) - это разные ошибки, у тебя в этом случае нет поля НоменклатураКомплектация.Наименование.ШК.

Какой тип у тебя имеет реквизит ШК ТЧ документа?

"ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора ,
    | 1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    Номенклатура.Комплектация.(Наименование),
    |    Номенклатура.Комплектация.(Количество)
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |     ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка";

(105) http://lvkr.ru/f/Xda9Sj/1280.jpg

К (106)  Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПеремещениеСПрисвоениемНомеров.МодульОбъекта(59)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(19, 2)}: Поле не найдено "Номенклатура.Комплектация"
<<?>>Номенклатура.Комплектация.(Наименование),

(108) Не, не, не )), вернись к варианту (103). Тебе надо определить, что ты будешь пихать в НомерПрибора для комплектующих. Там должен стоять номер комплекта или ничего не должно быть?

В (108) "Номенклатура.Комплектация" должно быть без точки.

(110) Ну я попробовала через конструктор запроса сделать там точку поставило.
(109) Да можно для начала даже без номера сделать это потом сама доделаю. Хотя бы просто наименование и кол-во списывать.

Переделай

|    НоменклатураКомплектующие.Номенклатура.ШК,

на

|    ПеремещениеСПрисвоениемНомеров.ШК,

(112) http://lvkr.ru/f/96h4pa/640.jpg

(113) А теперь отладчик и вперед ))

(114) http://lvkr.ru/f/s9nX5Z/1280.jpg

(115) жди @ cube , он терпеливей и побольше опыта у него, я только через отладчик смог бы понять в чем причина.

(113) В запросе для поля "@Дата КАК Период" должно быть.

Это вы чего, уже второй день мой запрос "обсасываете" что ли? В скайп давно "стукнула" бы и дело с концом.

(118) Главное чтобы человек почерпнул что-то для себя.

(117) А это где?)))


Запрос = Новый Запрос;
    
    Запрос.Текст =     "ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата,
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора ,
    | 1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход),
    |    &Дата,
    |    &ЯчейкаКомплектующих,
    |    НоменклатураКомплектация.Наименование,
    |    ПеремещениеСПрисвоениемНомеров.ШК,
    |    НоменклатураКомплектация.Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура.Комплектация КАК НоменклатураКомплектация
    |        ПО ПеремещениеСПрисвоениемНомеров.Продукция = НоменклатураКомплектация.Ссылка
    |ГДЕ
    |     ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка";
    
    
         
    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ЯчейкаПродукции", Справочники.СкладскиеЯчейки.НайтиПоКоду("Рабочие(Приборы)"));
    Запрос.УстановитьПараметр("ЯчейкаКомплектующих", Справочники.СкладскиеЯчейки.НайтиПоКоду("Комплектующие"));
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    
    Результат = Запрос.Выполнить();
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Выборка = Результат.Выбрать();
    
    Движения.ОстаткиВЯчейках.Записывать = Истина;
    
    Пока Выборка.Следующий() Цикл
    
        Движение = Движения.ОстаткиВЯчейках.Добавить();
        
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    
    КонецЦикла;

(120) Как я понял

|    ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход) КАК ВидДвижения,
    |    &Дата КАК Период,  <<-- вот так сделать!
    |    &ЯчейкаПродукции КАК СкладскиеЯчейки,
    |    ПеремещениеСПрисвоениемНомеров.Продукция КАК Номенклатура,
    |    ПеремещениеСПрисвоениемНомеров.ШК КАК НомерПрибора ,
    | 1 КАК Количество
    |ИЗ
    |    Документ.ПеремещениеСПрисвоениемНомеров.Товары КАК ПеремещениеСПрисвоениемНомеров
    |ГДЕ
    |    ПеремещениеСПрисвоениемНомеров.Ссылка = &Ссылка
    |

Но я бы на твоем месте сделал так - (118) ))