• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы Farrago
  • Дата начала Дата начала
F

Farrago

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

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

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


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

Возврат;

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


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

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

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

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

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

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



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

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

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


Продолжить;

КонецЦикла;


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

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

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

С балгодарностью
 
Спр.НайтиПоНаименованию("Продукты питания")...в чем проблема то?..... и странный код какой-то ;)
 
Я новичок, все методом тыка, в чем странность? Подскахите
 
Процедура ПриОткрытии()


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

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

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

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

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

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

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

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

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

КонецЦикла;


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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab