Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

1C [D5, XP]


antonyan ©   (2007-05-26 13:35:00) 

Добрый день !
Не подскажите, как используя в Delphi встроенный язык 1С создать выборку из справочника, состоящую только из групп (папок, где хранится разрозненная инфа). Делаю так, но дико медленно:

folder := Unassigned;
folder :=Ole1C.CreateObject('Справочник.ДоговораСтрахования);

        if folder.ВыбратьЭлементы>0 then begin
         while folder.ПолучитьЭлемент>0 do begin
          if folder.ЭтоГруппа=1 then begin
          Listbox1.items.add(folder.Наименование);
          end;
         end;
         end;
Заранее благодарен


VitGun   (2007-05-27 15:34:00) [1]

Спр=СоздатьОбъект("Справочник.ДоговораСтрахования");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 цикл
Если Спр.ЭтоГруппа()=1 тогда
    Сообщить(Спр.ТекущийЭлемент());
КонецЕсли
КонецЦикла;


antonyan   (2007-05-26 17:38:00) [2]


> А что в самой 1С не судьба сделать такую выборку?


А как сделать такую выборку, ни разу не сталкивался ?


MsGuns   (2007-05-26 14:42:00) [3]

Использовать запросы


susergey   (2007-05-26 14:05:00) [4]

А что в самой 1С не судьба сделать такую выборку?


Наверх

Титульная страница Поиск, карта сайта Написать письмо