7.7 Перенести?

Имеем следущее: Документы Розход ТМЦ. В документе есть колонка "Катал ном." тип строка которая заполнялась в ручную.
Задача: Необходимо перенести информацию ("Катал ном." из колонки ""Катал ном." в колонку "XXX " тип "справочник Каталожных номеров" связаный с материалом. в пределах документа.



Предварительно номера номенклатурные из документов были записаны в справочник Каталожных номеров"



заранее благодарен

Никто не знает?

Просто видимо никто не понял вопроса

Не понял, нужно из одной колонки типа "строка" дока перенести данные в колонку типа "справочник" того же дока?

Прошу прошенья, возможно, я неправильно сформулировал

Правильно поняли, формулировка моя не совсем точна... приношу извенения.

???

Профи. Подскажите пожалуйста новичку алгоритм

Если нужно обработать проведенный документ, то в форме обработки устанавливаешь реквизит ВыбДок типа этого документа.

Если нужно обработать проведенный документ, то в форме обработки устанавливаешь реквизит ВыбДок типа этого документа. Допустим в документе есть две колонки: одна - ТекстНоменклатура типа строка, вторая Номенклатура типа справочник Номенклатура.

//В модуле обработки:
Док = СоздатьОбъект("Документ.Новый1");
Если Док.НайтиДокумент(ВыбДок)=0 Тогда
Сообщить("Не найден документ.");
Возврат;
КонецЕсли;

сНоменклатура=СоздатьОбъект("Справочник.Номенклатура");
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
ТекНом = СокрЛП(Док.ТекстНоменклатура);
Если сНоменклатура.НайтиПоНаименованию(ТекНом,0)=1 Тогда
Док.Номенклатура = сНоменклатура.ТекущийЭлемент();
Иначе
Сообщить("Номенклатура с наименованием "+ТекНом);
КонецЕсли;
КонецЦикла;
Док.Записать();

Спасибо всем кто участвовал, помогал, проблема решена следующим образом:
Процедура ПереносДок1()
Док = СоздатьОбъект("Документ.ПриходТМЦ1");
КатНом = СоздатьОбъект("Справочник.КаталогНомер");
Док.ВыбратьДокументы(НачГода(РабочаяДата()),'31.12.07') ;
Пока Док.ПолучитьДокумент()=1 Цикл
Сообщить(""+Док);
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
ТекНом = СокрЛП(Док.НомНоменкл);
Если КатНом.НайтиПоНаименованию(ТекНом,0)=1 Тогда
Док.Новый1= КатНом.ТекущийЭлемент();
Иначе
Сообщить("Номенклатура с наименованием "+ТекНом);
КонецЕсли;
Док.Записать();
КонецЦикла;
КонецЦикла;
КонецПроцедуры