Платформа 1с77
Остался последний штрих. Но я туплю. Подскажите, на месте
Цитата
//Тут надо присвоить ТЗ.Реквизит.Идентификатор значения Док.ТМЦ соотвецтвенно базы
Надо написать код, а у меня не получается. Шарики за ролики закотились и все.

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