Записки программиста 1с

1с справочник в массив

В процедуре на сервере через запрос получаем информацию из справоника

Запрос=новый запрос;
	Запрос.Текст="ВЫБРАТЬ
	             |	Номенклатура.Код КАК Код,
	             |	Номенклатура.Наименование КАК Наименование,
	             |	Номенклатура.Артикул КАК Артикул,
	             |	Номенклатура.Ссылка КАК Ссылка
	             |ИЗ
	             |	Справочник.Номенклатура КАК Номенклатура";
	РЗ=запрос.Выполнить().Выбрать();
	МассивСправочника=новый массив(4,100);

Добавляем информацию в массив

номер=0;
пока РЗ.Следующий() цикл
 МассивСправочника[номер][0]=РЗ.код;
 МассивСправочника[номер][1]=РЗ.Наименование;
 МассивСправочника[номер][2]=РЗ.Артикул;
 МассивСправочника[номер][3]=РЗ.Ссылка;
 номер=номер+1;
конеццикла;

Выводим массив

//выводим Массив
	для номер1=0 по номер-1 цикл
	для Индекс=0 по 3 цикл
	Сообщить("Значение="+МассивСправочника[номер1][Индекс]);	
	конеццикла;
    Сообщить("Следующий элемент");
	конеццикла

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *