Zerro,pail
Огромное Спасибо! Поняла в чем ошибка, в результат запроса ни один документ не попадал .... сейчас заработало!!

А можно еще вопрос?
Процедура правильно работает в случае с одним документом... а если документов несколько? Как правильно написать запрос, и как правильно потом достать результаты?
"ВЫБРАТЬ
| УстановкаЦен.Номер как Номер,
| УстановкаЦен.Дата как Дата,
| УстановкаЦен.ТипЦен.Код как ТипЦен,
| УстановкаЦен.Товары.Номенклатура.Наименование как Номенклатура,
| УстановкаЦен.Товары.Цена как Цена,
| УстановкаЦен.Товары.Валюта.Наименование как Валюта
|ИЗ
| Документ.УстановкаЦенНоменклатуры КАК УстановкаЦен
| СГРУППИРОВАТЬ ПО
| УстановкаЦен.Номер,
| УстановкаЦен.Товары.Номенклатура";

Если делаю так, выгружаю, то не совсем понятно как создать несколько документов в новой базе?

pail,
Спасибо! Все получилось! Выкладываю код, вдруг таким же новичкам как я пригодится )))

Запрос = trade.NewObject("Запрос");
Запрос.Текст =
"ВЫБРАТЬ
| УстановкаЦен.Номер как Номер,
| УстановкаЦен.Дата как Дата,
| УстановкаЦен.ТипЦен.Код как ТипЦен,
| УстановкаЦен.Товары.(Номенклатура.Наименование как Номенклатура,
| Цена как Цена,
| Валюта.Наименование как Валюта) КАК Товары
|ИЗ
| Документ.УстановкаЦенНоменклатуры КАК УстановкаЦен";



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