• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

Почему не показывает список подразделений?

Автор Марина Гаврилюк, 30.06.14, 16:57:19

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Марина Гаврилюк

Здравствуйте. Подскажите пжлст, как правильно описать процедуру выбора подразделений. Я написала так, но список пуст :
procedure DlgDepartmentsOnShow(Sender: TfrxComponent);
var 
  ind: integer;   
begin
  dtpStartDate.Date := EncodeDate(YearOf(Now), 1, 1); 
  dtpEndDate.Date := Date;
  CmbBox_Departments.Clear;
  //отбираем только подразделения предприятия
  dsRoleList.Filter := Format('_TYPE=%d', [2]);                                   
  dsRoleList.Filtered := True;
  if dsRoleList.RecordCount>0 then //если есть записи, создаем массив кодов подразделений
   begin
    SetLength(ID_Departments,dsRoleList.RecordCount);
   end;     
//   try
    dsRoleList.First;                                 
    try     
      // В цикле читаем подразделения                                                                                                                                                                                   
      While not dsRoleList.Eof do
       begin         
         ind:=CmbBox_Departments.Items.Add(dsRoleList.FieldByName('_NAME').AsString);//добавляем в список выбора                                                     
         if (ind>=0) and (ind<dsRoleList.RecordCount) then //если добавлено успешно                                                       
          begin                               
           ID_Departments[ind]:=dsRoleList.FieldByName('_ID').AsString; //записываем код добавленного поодразделения (сразу в текстовом формате для будущих фильтров                                                                                                                                                                                                                             
          end;                               
         dsRoleList.Next;
       end;
       if CmbBox_Departments.Items.Count>0 then //если есть данные, становимся на первую запись                                                                                                         
        CmbBox_Departments.ItemIndex:=0;                                                         
    except
     ShowMessage('Ошибка заполнения данных'); 
    end;           
//  finally                                             
                           
//  end; 
end;

Хотя в других отчетах с выбором по подразделению так же описано..... В чем хитрость?

Буду благодарна за подсказку.