НайтиПоНаименованию
19.04.2004
16:13
#1
"Подскажите плиз в чем ошибка , не находит элемент по наименованию...комл 4.4
СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Если СпрНом.НайтиПоНаименованию(Строка(ТаблицаТоваров.Товар))=1 Тогда
Ном=СпрНом.ТекущийЭлемент();
КонецЕсли;
СпрЦ=СоздатьОбъект("Справочник.Цены");
СпрЦ.ИспользоватьВладельца(Ном);
СпрЦ.ИспользоватьДату(ТекущаяДата());
СпрЦ.ВыбратьЭлементы();
Если СпрЦ.НайтиПоРеквизиту("ТипЦен","Розничные",0)=1 Тогда
ЦенаР=СпрЦ.Цена;
КонецЕсли;
Строка1 = "Цена: "+ Строка(ЦенаР) + " Руб.";
хотя в варианте через цикл работает.....
СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
Если СпрНом.Наименование = ТаблицаТоваров.Товар Тогда
Ном=СпрНом.ТекущийЭлемент();
КонецЕсли;
КонецЦикла;
СпрЦ=СоздатьОбъект("Справочник.Цены");
СпрЦ.ИспользоватьВладельца(Ном);
СпрЦ.ИспользоватьДату(ТекущаяДата());
СпрЦ.ВыбратьЭлементы();
Пока СпрЦ.ПолучитьЭлемент() =1 Цикл
Если Строка(СпрЦ.ТипЦен) = "Розничные" Тогда
ЦенаР=СпрЦ.Цена;
КонецЕсли;
КонецЦикла;
Строка1 = "Цена: "+ Строка(ЦенаР) + " Руб.";
"
СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Если СпрНом.НайтиПоНаименованию(Строка(ТаблицаТоваров.Товар))=1 Тогда
Ном=СпрНом.ТекущийЭлемент();
КонецЕсли;
СпрЦ=СоздатьОбъект("Справочник.Цены");
СпрЦ.ИспользоватьВладельца(Ном);
СпрЦ.ИспользоватьДату(ТекущаяДата());
СпрЦ.ВыбратьЭлементы();
Если СпрЦ.НайтиПоРеквизиту("ТипЦен","Розничные",0)=1 Тогда
ЦенаР=СпрЦ.Цена;
КонецЕсли;
Строка1 = "Цена: "+ Строка(ЦенаР) + " Руб.";
хотя в варианте через цикл работает.....
СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
Если СпрНом.Наименование = ТаблицаТоваров.Товар Тогда
Ном=СпрНом.ТекущийЭлемент();
КонецЕсли;
КонецЦикла;
СпрЦ=СоздатьОбъект("Справочник.Цены");
СпрЦ.ИспользоватьВладельца(Ном);
СпрЦ.ИспользоватьДату(ТекущаяДата());
СпрЦ.ВыбратьЭлементы();
Пока СпрЦ.ПолучитьЭлемент() =1 Цикл
Если Строка(СпрЦ.ТипЦен) = "Розничные" Тогда
ЦенаР=СпрЦ.Цена;
КонецЕсли;
КонецЦикла;
Строка1 = "Цена: "+ Строка(ЦенаР) + " Руб.";
"
19.04.2004
22:07
#2
В строке:
Если СпрНом.НайтиПоНаименованию(Строка(ТаблицаТоваров.Товар))=1 Тогда Если
Строка(ТаблицаТоваров.Товар)="
Замени
Если СпрНом.НайтиПоНаименованию(СокрЛП(Строка(ТаблицаТоваров.Товар.Наименование)))=1 Тогда
Если СпрНом.НайтиПоНаименованию(Строка(ТаблицаТоваров.Товар))=1 Тогда Если
Строка(ТаблицаТоваров.Товар)="
Замени
Если СпрНом.НайтиПоНаименованию(СокрЛП(Строка(ТаблицаТоваров.Товар.Наименование)))=1 Тогда
20.04.2004
00:00
#3
что такое ТаблицеТоваров.Товар ? наименование товара ? возможно надо искать во всём справочнике: СпрНом.НайтиПоНаименованию(СОКРЛП(ТаблицаТоваров.Товар),0)
если в ТаблицеТоваров.Товар - ссылка на элемент справочника Номенклатура не проще ли использовать СпрНом.НайтиЭлемент(ТаблицаТоваров.Товар)
если в ТаблицеТоваров.Товар - ссылка на элемент справочника Номенклатура не проще ли использовать СпрНом.НайтиЭлемент(ТаблицаТоваров.Товар)
20.04.2004
11:47
#4
Спасибо, да верно не отрабатывал поиск во всем справочнике....
Если СпрНом.НайтиПоНаименованию(СокрЛП(ТаблицаТоваров.Товар),0)=1 Тогда
данная строка работает....Но все равно не находит Если СпрЦ.НайтиПоРеквизиту("ТипЦен","Розничные",0)=1 Тогда
Если СпрНом.НайтиПоНаименованию(СокрЛП(ТаблицаТоваров.Товар),0)=1 Тогда
данная строка работает....Но все равно не находит Если СпрЦ.НайтиПоРеквизиту("ТипЦен","Розничные",0)=1 Тогда
20.04.2004
11:49
#5
Спасибо за помощь.....рабочая строка Если СпрНом.НайтиПоНаименованию(СокрЛП(Строка(ТаблицаТоваров.Товар.Наименование)),0)=1 Тогда
Читают тему
(гостей: 1)