Всем привет, история следующая:

есть форма документа "Тест" с табличной частью "ТЧ", реквизиты "ТЧ" - "Номер", "Количество", Номенклатура".

еще есть обработка с формой "Форма" и табличной частью "ЧТО" с реквизитом "Номер".

Обработка открывается из формы документа по кнопке.

Что я хочу сделать - в форме документа есть, к примеру, три заполненных строки, кроме реквизита "Номер". Я открываю форму обработки, создаю там три строки, заполняю реквизит "Номер" и по нажатию кнопки "Перенести" хочу перенести значения в строки документа. Т.е. из каждой строки № "n" обработки значения реквизита "Номер" должно переноситься в каждую строку № "n" документа.

Так вот, сейчас у меня получается делать это только для одной выбранной строки. А хочу, чтобы для всех .

На кнопку на форме док-та код:

&НаКлиенте
Процедура Обработка(Команда)

Параметр = Новый Структура;
ОткрытьФорму("Обработка.ДляПередачи.Форма.Форма",,ЭтаФорма,,,,Новый ОписаниеОповещения("ПолучитьДанныеИзФормы",ЭтаФорма,Параметр),РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);    
    
КонецПроцедуры

&НаКлиенте
Процедура ПолучитьДанныеИзФормы(ДанныеЗакрытия,Параметр) Экспорт
    
Если НЕ ТипЗнч(ДанныеЗакрытия)= Тип("Структура") Тогда
Возврат;
КонецЕсли;
    
СтрокаВыбранная = ЭтаФорма.Элементы.ТЧ.ТекущиеДанные;


ЗаполнитьЗначенияСвойств(СтрокаВыбранная,ДанныеЗакрытия,"Номер");

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

в модуле формы обработки на кнопке "Перенести":

&НаКлиенте
Процедура Перенос(Команда)
    
Для каждого     Стр из Объект.ЧТО
Цикл
Номер=Стр.Номер;
КонецЦикла;    

СтруктураВозврата = Новый Структура("Номер",Номер);

Закрыть(СтруктураВозврата);

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

как мне это грамотно поправить? есть ощущение, что где-то нужно задействовать цикл при передаче структуры возврата и номера строк, но не понимаю, как это организовать.(

Заранее спасибо!

1С:Предприятие 8.3 (8.3.7.1860)
1С:ERP Управление предприятием 2 (2.1.3.82)

В процедуре ПолучитьДанныеИзФормы:

СтруктураВозврата = Новый Структура("Номер", Номер);

Вы записываете номер последней строки из формы обработки. То есть, там всегда будет одно значение. Передавайте всё:

Закрыть(Объект.ЧТО.ВыгрузитьКолонку("Номер"));

В процедуре ПолучитьДанныеИзФормы;

СтрокаВыбранная = ЭтаФорма.Элементы.ТЧ.ТекущиеДанные;

Опять таки, вы получаете и изменяете одну строку. Текущую.

Vofka @ 24.10.16, 14:10 необходимо зарегистрироваться для просмотра ссылки ,
Та, сделал пока так:

на форме документа открываю обработку :

&НаКлиенте
Процедура Обработка(Команда)
    
ОткрытьФорму("Обработка.ДляПередачи.Форма.Форма",,ЭтаФорма,,,,,РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); 
    
КонецПроцедуры

в обработке добавляю две строки, переношу по команде:

&НаКлиенте
Процедура Перенос(Команда)
    
Для каждого     Стр из Объект.ЧТО
Цикл
СтруктураОповещения = Новый Структура;
СтруктураОповещения.Вставить("Номер",Стр.Номер);

Оповестить("ПередачаНомеров",СтруктураОповещения,"ОбработкаЗаполнения");
КонецЦикла;

Закрыть();

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

в модуле формы документа отлавливаю оповещение:

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
        
Если Источник = "ОбработкаЗаполнения" Тогда
Если ИмяСобытия = "ПередачаНомеров" Тогда
    
Для каждого Стр из Объект.ТЧ Цикл
        
Стр.Номер = Параметр.Номер;

КонецЦикла;

КонецЕсли;
КонецЕсли;

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

Проблема - строки ТЧ документа заполняются значением последней строки из обработки, а мне нужно, чтобы каждым.(

Кол-во строк обработки и документа всегда равно.

Как мне поправить процедуру обработки оповещения?(

Mro., советую ещё раз прочитать, что я выше писал. Только на этот раз уже внимательно.

Vofka @ Сегодня, 11:00 необходимо зарегистрироваться для просмотра ссылки ,
Блин, тут вопрос не внимательности чтения, а навыков.

ведь тут теперь я записываю не последний номер, а все:

Для каждого     Стр из Объект.ЧТО
Цикл
СтруктураОповещения = Новый Структура;
СтруктураОповещения.Вставить("Номер",Стр.Номер);

и тут пытаюсь получить все не для текущей строки, а для всех:

Для каждого Стр из Объект.ТЧ Цикл
        
Стр.Номер = Параметр.Номер;

или нет?)) Или в данном случае Параметр.Номер передает последнюю запись из обработки?))

Я всё таки считаю, что вопрос именно во внимательности.


Совершенно верно. Если быть точнее, то туда поочередно передаются все строки, но каждая последующая строка затирает все предыдущие значения.

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

Как конкретно мне форматировать, чтобы Вы не вынимали свои глаза?(



а если выгружать массивом, правильно будет?

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

с вышеуказанным кодом в модуле формы обработки и этим в модуле формы документа:

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)        
Если Источник = "ОбработкаЗаполнения" Тогда
Если ИмяСобытия = "ПередачаНомеров" Тогда
Для каждого Стр из Объект.ТЧ Цикл        
Стр.Номер = Параметр.Номер;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

заполняет мне значение для всех строк словом "Массив".)))

Акция, 2 в 1: и как работать должно (по идее, я не проверял) и как код форматировать надо.

&НаКлиенте
Процедура Перенос(Команда)    
    
    Оповестить("ПередачаНомеров", Объект.ЧТО.ВыгрузитьКолонку("Номер"), "ОбработкаЗаполнения");
    Закрыть();

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

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)        
    Если Источник = "ОбработкаЗаполнения" И
        ИмяСобытия = "ПередачаНомеров" Тогда
        
        Для Каждого Номер из Параметр Цикл        
            Стр[Номер-1] = Номер;
        КонецЦикла;
    КонецЕсли;
КонецПроцедуры

Vofka @ Сегодня, 14:17 необходимо зарегистрироваться для просмотра ссылки ,
Ругается

{Документ.Тест.Форма.ФормаДокумента.Форма(24,1)}: Переменная не определена (Стр)
<<?>>Стр[Номер-1] = Номер; (Проверка: Тонкий клиент)

Вот так надо:

Объект.ТЧ[Номер-1] = Номер;

Vofka @ Сегодня, 15:08 необходимо зарегистрироваться для просмотра ссылки ,


еще ошибка:

{Обработка.ДляПередачи.Форма.Форма.Форма(6)}: Метод объекта не обнаружен (ВыгрузитьКолонку)
Оповестить("ПередачаНомеров",Объект.ЧТО.ВыгрузитьКолонку("Номер"),"ОбработкаЗаполнения");

Оповестить("ПередачаНомеров", Объект.ЧТО.Выгрузить().ВыгрузитьКолонку("Номер"), "ОбработкаЗаполнения");

Vofka @ Сегодня, 15:14 необходимо зарегистрироваться для просмотра ссылки ,

теперь

{Обработка.ДляПередачи.Форма.Форма.Форма(6)}: Ошибка при вызове метода контекста (Выгрузить)
Оповестить("ПередачаНомеров",Объект.ЧТО.Выгрузить().ВыгрузитьКолонку("Номер"),"ОбработкаЗаполнения");
по причине:
Метод недоступен на клиенте

если поменять директиву НаСервере,

&НаКлиенте
Процедура Перенос(Команда)
    
    ПереносНаСервере();
    
КонецПроцедуры


&НаСервере
Процедура ПереносНаСервере()
    
    Оповестить("ПередачаНомеров",Объект.ЧТО.Выгрузить().ВыгрузитьКолонку("Номер"),"ОбработкаЗаполнения");
    Закрыть();
    
КонецПроцедуры

то уже на этапе обновления конфигурации базы данных дает:

{Обработка.ДляПередачи.Форма.Форма.Форма(14,2)}: Процедура или функция с указанным именем не определена (Оповестить)
<<?>>Оповестить("ПередачаНомеров",Объект.ЧТО.Выгрузить().ВыгрузитьКолонку("Номер"),"ОбработкаЗаполнения"); (Проверка: Сервер)

Если честно, то мне уже не интересно делать всё за вас. Дам подсказку: в Оповестить вторым параметром передайте массив. Как передать - подумайте сами.

Vofka @ Сегодня, 16:07 необходимо зарегистрироваться для просмотра ссылки ,
ясно, спасибо.