Как сделать выборку по номенклатуре

[Farrago]

Здравствуйте Господа!
Помогите

1С 7,7 Бюджетная

Процедура ПриОткрытии()


ТабЗнач.НоваяКолонка("Продукты",,,,"Продукты",20);
ТабЗнач.НоваяКолонка("ЕдИзм",,,,"Ед.изм.",10);
ТабЗнач.НоваяКолонка("СчетКредит",,,,"Счет кредита",15);
ТабЗнач.НоваяКолонка("Сад");

Возврат;

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


//*******************************************
Процедура Выполнить()

Спр=СоздатьОбъект("Справочник.Номенклатура");

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент()=1 Цикл

ТабЗнач.НоваяСтрока();

Если Спр.ЭтоГруппа()=1 Тогда
ТабЗнач.УдалитьСтроку();
КонецЕсли;



ТабЗнач.Продукты=Спр.ПолнНаимен;

ТабЗнач.ЕдИзм=Спр.ЕдИзм;

ТабЗнач.СчетКредит=Спр.СчетУчета;


Продолжить;

КонецЦикла;


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

//********************************************************************************
******************

Эта процедурв выволит все наменования, имеющиеся в справочнике " Номенклатура" в таблицу значений.
Как сделать что бы вывести один вид, напримно " Продукты питания"

С балгодарностью

 

[has]

Спр.НайтиПоНаименованию("Продукты питания")...в чем проблема то?..... и странный код какой-то

 

[Farrago]

Я новичок, все методом тыка, в чем странность? Подскахите

 

[has]

Я новичок, все методом тыка, в чем странность? Подскахите

инструкции "продолжить" и "возврат" здесь неуместны....в 1С есть синтакс-помощник, почитайте там или в литературе

 

[kaa]

Процедура ПриОткрытии()


ТабЗнач.НоваяКолонка("Продукты",,,,"Продукты",20);
ТабЗнач.НоваяКолонка("ЕдИзм",,,,"Ед.изм.",10);
ТабЗнач.НоваяКолонка("СчетКредит",,,,"Счет кредита",15);
ТабЗнач.НоваяКолонка("Сад");
КонецПроцедуры

Процедура Выполнить()

//Если Продукты питания это группа
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.НайтиПоКоду(ХХХ);//ХХХ это код группы, если выведен на форму то не надо

Род = Спр.ТекущийЭлемент();

Спр.ИспользоватьРодителя(Род);//если есть на форме то идентификатор вместо Род
Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент()=1 Цикл
Если Спр.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;

ТабЗнач.НоваяСтрока();
ТабЗнач.Продукты=Спр.ПолнНаимен;

ТабЗнач.ЕдИзм=Спр.ЕдИзм;

ТабЗнач.СчетКредит=Спр.СчетУчета;

КонецЦикла;


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

 

[unknown181538]

Код очень смешной)

 

[Farrago]

Если смешной, то как надо?

 

[vitfil]

Если смешной, то как надо?

Надо начинать с изучения основ программирования и чтения учебников.

 

[unknown181538]

Если смешной, то как надо?

kaa уже написал.

 

[perfomance]

Ну практически все так тока действительно перемудрил в процедуре открытия с КлСл Возврат; И в процедуре Выполнить() Намудрил в Цикле по поводу удаления строк из ТЗ если при переборке вдруг попадется группа. А так для новичка гуддд. А так Каа тебе эталонно код написал.