Подскажите пожалуйста почему не выгружается цена? Пишет, что НеизвестныйОбъект..


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

Стр = СокрЛП(спрНоменк.Наименование);
спрЦени.использоватьродителя(спрНоменк.Текущийэлемент());
спрЦени.ВыбратьЭлементы();
пока спрЦени.ПолучитьЭлемент() = 1 Цикл
Цена = спрЦени.цена.получить();
конеццикла;
Стр1 = СокрЛП(спрЦени.Цена);



Текст.ДобавитьСтроку(Стр);


Текст.ДобавитьСтроку(Стр1);
КонецЦикла;
Текст.Записать("Е:\выгрузка.txt");
КонецПроцедуры

все неправильно!

фуф..чуть не ослеп, братцы.

(2) Не спамь пожалуйста, мне совет нужен, а не треп. Спасибо за понимание.

(3) мой тебе совет, бросай 1с пока не поздно.

(3) Мы не спамим - не правильно абсолютно все.

(5) Но так почему? Выгружается же наименование номенклатуры. Только не пойму почему цена не выгружается.

сделайте мне развидеть это...

спрЦени.использоватьродителя
.
спрЦены.ИспользоватьВладельца(текНоменклатура)

(6) то ли фокус, то ли чудо!

Стр1 = СокрЛП(Цена); -ну вот подсказка

спрЦеныюИспользоватьДату(ТекущаяДата());

Компьютер, убери две неверных строки кода.

Компьютер, формат цэ энтэр!

(10) действительно на автомате скопировал строчку, но все равно цену не показывает, теперь пустое значение ..

кури периодический реквизит

(14) теперь разбирайся
пока спрЦени.ПолучитьЭлемент() = 1 Цикл
Цена = спрЦени.цена.получить();
конеццикла;

пока спрЦени.ПолучитьЭлемент() = 1 Цикл
Цена = спрЦени.цена.получить(ТекущаяДата());
конеццикла;

и все равно цена пустая :(, прям ужас какой-то

пока спрЦени.ПолучитьЭлемент() = 1 Цикл
Цена = спрЦени.цена.получить(ТекущаяДата());
сообщить(Цена);
конеццикла;
Сообщить("=======");

сделай

(19) Спасибо! Все получилось! А не подскажите еще один момент. Буду очень признателен. Теперь я этот файл получившийся загружаю в другую базу чтобы по наименованию проверить тали цена или нет...делаю вот такую обработку

Процедура Сформировать()

fso=СоздатьОбъект("Scripting.FileSystemObject");
file=fso.OpenTextFile("D:\номенклатура.txt", 1, 0, 0); //Открываем файл в режиме "только чтение"
спрНоменк = СоздатьОбъект("Справочник.Номенклатура");  
спрЦени = СоздатьОбъект("Справочник.Цены");
Пока file.AtEndOfStream=0 Цикл
стр=file.ReadLine();
стр1=file.ReadLine();

спрЦени.ИспользоватьВладельца(спрНоменк.Текущийэлемент());
спрЦени.ВыбратьЭлементы();
пока спрЦени.ПолучитьЭлемент() = 1 Цикл
Цена = спрЦени.Цена.Получить(ТекущаяДата());
конеццикла;  

Если (спрНоменк.НайтиПоНаименованию(стр) = 1) и (Цена.ТекущийЭлемент(Стр1)=1) Тогда

//    Сообщить ("Дубликат: " + стр+стр1);

Иначе

Сообщить ("Дубликат: " + стр+" "+стр1);

КонецЕсли;

КонецЦикла;
file.Close();


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

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

Цена.ТекущийЭлемент(Стр1)
это что за бред

:(

(21) за это люди большие деньги получают.

(21) Выгрузить можно в любом виде. Проблема у тебя будет не в этом.

(24) А где те люди, которые за это платят? Покажите мне х!!!

(24) Ты имеешь в виду тех, которые не подсказывают д...м на форумах, как им сделать очевидное?.. :-)

Еще можно вопрос....Не покажите, как конкретный тип указать, чтобы выгружался.? Буду очень признателен. Тип мне нужен Роздничный

То есть как цене передать конкретное значение?

пока спрЦени.ПолучитьЭлемент() = 1 Цикл
Цена = спрЦени.цена.получить(ТекущаяДата());
сообщить(Цена);
конеццикла;

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

(30) дятлы!
РозничныйТип = Константа.РозничныйТипЦен;