Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выборка элементов группы из справочника. 
:(
    Опции темы
roalang
Дата 15.12.2008, 06:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.3.2008

Репутация: нет
Всего: нет



Здраствуйте. Подскажите как реализовать выборку элементов одной группы из справочника. 1С 7.7

Код

Процедура Сформировать()
спр=СоздатьОбъект("Справочник.ФизЛица");

xl=СоздатьОбъект("Excel.Application");
row=2; //первая строка    
xl.Workbooks.Add(); //Добавляем новый документ
xl.Visible=1; //Делаем его видимым
    
Спр.ВыбратьЭлементы();
Пока спр.получитьэлемент()=1 цикл      
если Строка("ТУ000115")=спр.код    тогда

xl.Cells(row,1).Value=спр.код;
xl.Cells(row,2).Value=строка(спр.наименование); 

row=row+1;        
 
конецесли;

конеццикла;
КонецПроцедуры


PM MAIL   Вверх
roalang
Дата 15.12.2008, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.3.2008

Репутация: нет
Всего: нет



Нашла сама ответ, делает выборку и выгружает данные в эксель.
Код

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

спр=СоздатьОбъект("Справочник.ФизЛица");
если спр.НайтиПоКоду("ТУ000115")=1    тогда  Спр.ИспользоватьРодителя(Спр.ТекущийЭлемент());

xl=СоздатьОбъект("Excel.Application");
row=2; //первая строка    
xl.Workbooks.Add(); //Добавляем новый документ
xl.Visible=1; //Делаем его видимым
    
Спр.ВыбратьЭлементы();
Пока   спр.ПолучитьЭлемент()=1    цикл     


xl.Cells(row,1).Value=спр.код;
xl.Cells(row,2).Value=строка(спр.наименование);    
   
row=row+1;        
конеццикла;   
конецесли;
КонецПроцедуры


PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0726 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.