Разработка информационно-аналитической системы контакт-центра

Приложение 1.

Должностная инструкция менеджера по ИСКУ клиентов

I. Общие положения

1. Менеджер по работе с клиентами относится к категории руководителей.

2. На должность менеджера по работе с клиентами назначается лицо, имеющее профессиональное (экономическое) образование, дополнительную подготовку по менеджменту, стаж работы в сфере предпринимательства не менее 3 лет.

3. Менеджер по работе с клиентами должен знать:

3.1 Законодательство, регламентирующее вопросы осуществления предпринимательской деятельности.

3.2 Рыночную экономику, предпринимательство и основы ведения бизнеса.

3.3 Основы маркетинга (концепцию маркетинга, основы управления маркетингом, способы и направления исследований рынка).

3.4 Теорию менеджмента, макро- и микроэкономики, делового администрирования.

3.5 Ассортимент, классификацию, характеристику и назначение предлагаемых товаров (продукции).

3.6. Порядок разработки бизнес-планов и коммерческих условий соглашений, договоров.

3.7. Правила установления деловых контактов.

3.8. Правила официального этикета при проведении переговоров с клиентами.

3.9. Теорию межличностного общения.

3.10. Основы социологии и психологии.

3.11 Методы обработки информации с использованием современных технических средств коммуникации и связи, компьютера.

4. Назначение на должность менеджера по работе с клиентами и освобождение от должности производится приказом директора.

5. Менеджер по работе с клиентами подчиняется непосредственно директору предприятия.

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

II. Должностные обязанности

Менеджер по работе с клиентами:

1. Осуществляет анализ аудитории потенциальных клиентов, выявляет потребности клиентов, их уровень и направленность.

2. Разрабатывает методики поиска клиентов, планирует работу с клиентами, составляет схемы обращения к клиентам.

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

4. Прогнозирует деловую надежность потенциальных клиентов, их финансовую и материальную обеспеченность.

5. Организует и проводит предварительные переговоры с клиентами, заинтересовавшимися предложениями (принявшими оферту, пр), уточняет потребности каждого конкретного клиента и подготавливает предложение, адресованное определенному клиенту.

6. Встречается с клиентами, убеждает клиентов в выгодности предложения, предлагает на обсуждение и согласование проекты договоров, принимает участие в работе над согласованием разногласий, заключает договоры от имени предприятия.

7. Предлагает клиентам пути решения не согласованных при переговорах вопросов и вопросов, возникших после совершения юридически значимых действий.

8. Поддерживает постоянный контакт с существующими клиентами, организует работу с ними по устоявшимся деловым схемам.

9. Разрабатывает схемы взаимоотношений с наиболее выгодными и перспективными клиентами (предложения особых условий договоров, систем скидок и индивидуального обслуживания, ускоренных сроков и особых условий исполнения договорных обязательств, пр).

10. Разрабатывает и дает клиентам рекомендации и консультации по наиболее эффективному использованию устоявшихся деловых связей; обеспечивает возможность посещения клиентами выставок, ярмарок, презентаций новых продуктов (товаров, услуг).

11. Обеспечивает соблюдение интересов клиентов при выполнении условий договоров подразделениями предприятия.

12. Налаживает обратную связь с клиентами (изучает их требования к продукции (товарам, услугам), устанавливает причины неудовлетворенности клиента совместной работой, анализирует претензии клиентов и принимает все меры по их решению и сохранению деловых связей).

13. Формирует банк данных о клиентах (клиентскую базу), своевременно вносит в нее изменения.

14. Изучает и анализирует политику конкурентов во взаимоотношениях с клиентами.

III. Права

Менеджер по работе с клиентами имеет право:

1. Самостоятельно определять формы работы с клиентами, способы установления деловых связей.

2. Распоряжаться вверенными ему финансовыми средствами (на представительские расходы).

3. Подписывать и визировать документы в пределах своей компетенции.

4. Знакомиться с документами, определяющими его права и обязанности по занимаемой должности, критерии оценки качества исполнения должностных обязанностей.

5. Запрашивать от руководства и специалистов подразделений предприятия информацию и документы, необходимые для выполнения его должностных обязанностей.

6. Требовать от руководства предприятия обеспечения организационно-технических условий и оформления установленных документов, необходимых для исполнения должностных обязанностей.

IV. Ответственность

Менеджер по работе с клиентами несет ответственность:

1. За ненадлежащее исполнение или неисполнение своих должностных обязанностей, предусмотренных настоящей должностной инструкцией, - в пределах, установленных действующим трудовым законодательством Российской Федерации.

2. За правонарушения, совершенные в процессе своей деятельности, - в пределах, установленных действующим административным, уголовным и гражданским законодательством Российской Федерации.

3. За причинение материального ущерба предприятию - в пределах, установленных действующим трудовым и гражданским законодательством Российской Федерации.

Приложение 2.

Листинг программного кода

program Project1;

uses

Forms,

Unit1 in 'Unit1. pas' {Form1},

Unit2 in 'Unit2. pas' {DataModule2: TDataModule},

Unit3 in 'Unit3. pas' {Form3},

Unit4 in 'Unit4. pas' {Form4},

Unit5 in 'Unit5. pas' {Form5},

Unit6 in 'Unit6. pas' {Form6},

Unit7 in 'Unit7. pas' {Form7},

Unit8 in 'Unit8. pas' {Form8},

Unit9 in 'Unit9. pas' {Form9},

Unit10 in 'Unit10. pas' {Form10},

Unit11 in 'Unit11. pas' {Form11};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm(TForm1, Form1);

Application. CreateForm(TDataModule2, DataModule2);

Application. CreateForm(TForm3, Form3);

Application. CreateForm(TForm4, Form4);

Application. CreateForm(TForm5, Form5);

Application. CreateForm(TForm6, Form6);

Application. CreateForm(TForm7, Form7);

Application. CreateForm(TForm8, Form8);

Application. CreateForm(TForm9, Form9);

Application. CreateForm(TForm10, Form10);

Application. CreateForm(TForm11, Form11);

Application. Run;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls,

DBCtrls, Grids, DBGrids, DateUtils;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Label1: TLabel;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Label2: TLabel;

N10: TMenuItem;

N11: TMenuItem;

MonthCalendar1: TMonthCalendar;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

procedure N2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure MonthCalendar1Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit4, Unit2, Unit6, Unit5, Unit7, Unit8, Unit9, Unit10, Unit11;

{$R *. dfm}

procedure TForm1. N2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1. FormShow(Sender: TObject);

begin

Form3. ShowModal;

end;

procedure TForm1. N4Click(Sender: TObject);

begin

If DataModule2. ADOTable1. Active=true then DataModule2. ADOTable1. Active: =false;

DataModule2. ADOTable1. Active: =true;

Form4. ShowModal;

end;

procedure TForm1. N5Click(Sender: TObject);

begin

If DataModule2. ADOTable2. Active=true then DataModule2. ADOTable2. Active: =false;

DataModule2. ADOTable2. Active: =true;

Form6. ShowModal;

end;

procedure TForm1. N11Click(Sender: TObject);

begin

If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;

DataModule2. ADOTable5. Active: =true;

If Label2. Caption='0' then

DataModule2. ADOTable5. Filter: ='Id_manager = ' + Label1. Caption;

If DataModule2. ADOTable3. Active=false then DataModule2. ADOTable3. Active: =true;

Form5. Show;

end;

procedure TForm1. N10Click(Sender: TObject);

Var max_num: integer;

begin

Form7. DBLookupComboBox1. ListFieldIndex: =0;

Form7. Edit2. Text: ='';

Form7. Edit3. Text: ='';

Form7. Edit4. Text: ='';

Form7. Edit5. Text: ='';

Form7. Edit6. Text: ='';

Form7. Edit7. Text: ='';

Form7. Edit8. Text: ='';

Form7. Edit9. Text: ='';

DataModule2. ADOQuery1. Active: =true;

max_num: =StrToInt(DataModule2. ADOQuery1. FieldbyName('max_num'). AsString) + 1;

DataModule2. ADOQuery1. Active: =false;

DataModule2. ADOTable3. Active: =true;

Form7. Show;

end;

procedure TForm1. N7Click(Sender: TObject);

begin

If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;

DataModule2. ADOTable5. Active: =true;

If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;

Form8. MaskEdit1. Text: ='';

Form8. Edit2. Text: ='';

Form8. ShowModal;

end;

procedure TForm1. N8Click(Sender: TObject);

begin

If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;

DataModule2. ADOTable5. Active: =true;

If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;

Form9. MaskEdit1. Text: ='';

Form9. Edit1. Text: ='';

Form9. Edit2. Text: ='';

Form9. ShowModal;

end;

procedure TForm1. BitBtn1Click(Sender: TObject);

begin

If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;

DataModule2. ADOTable5. Active: =true;

If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;

Form8. MaskEdit1. Text: ='';

Form8. Edit2. Text: ='';

Form8. ShowModal;

end;

procedure TForm1. BitBtn2Click(Sender: TObject);

begin

If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;

DataModule2. ADOTable5. Active: =true;

If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;

Form9. MaskEdit1. Text: ='';

Form9. Edit1. Text: ='';

Form9. Edit2. Text: ='';

Form9. ShowModal;

end;

procedure TForm1. MonthCalendar1Click(Sender: TObject);

Var y, m, d, y1, m1, d1: Word;

begin

DataModule2. ADOTable6. Active: =false;

DataModule2. ADOTable6. Active: =true;

DataModule2. ADOTable7. Active: =false;

DataModule2. ADOTable7. Active: =true;

DecodeDate(MonthCalendar1. Date, y, m, d);

DecodeDate(MonthCalendar1. Date+1, y1, m1, d1);

If Form1. Label2. Caption='0' then DataModule2. ADOTable6. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable6. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

If Form1. Label2. Caption='0' then DataModule2. ADOTable7. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable7. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

end;

procedure TForm1. N12Click(Sender: TObject);

begin

DataModule2. ADOTable5. Active: =false;

DataModule2. ADOTable5. Active: =true;

Form10. QuickRep1. PreviewModal;

end;

procedure TForm1. N14Click(Sender: TObject);

Var y, m, d, y1, m1, d1: Word;

begin

DataModule2. ADOTable10. Active: =false;

DataModule2. ADOTable10. Active: =true;

DecodeDate(Date(), y, m, d);

DecodeDate(Date() +1, y1, m1, d1);

If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

Form11. QRLabel1. Caption: ='Отчет за текущий день';

Form11. QuickRep1. PreviewModal;

end;

procedure TForm1. N13Click(Sender: TObject);

Var n, y, m, d, y1, m1, d1: Word;

Date1, Date2: TDateTime;

begin

DataModule2. ADOTable10. Active: =false;

DataModule2. ADOTable10. Active: =true;

n: =DayOfWeek(Date());

If n=1 then Date1: =Date() - 6 else Date1: =Date() - n+2;

If n=1 then Date2: =Date() else Date2: =Date() - n +8;

DecodeDate(Date1, y, m, d);

DecodeDate(Date2+1, y1, m1, d1);

If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

Form11. QRLabel1. Caption: = 'Отчет за текущую неделю';

Form11. QuickRep1. PreviewModal;

end;

procedure TForm1. N15Click(Sender: TObject);

Var n, y, m, d, y1, m1, d1: Word;

Date1, Date2: TDateTime;

begin

DataModule2. ADOTable10. Active: =false;

DataModule2. ADOTable10. Active: =true;

DecodeDate(Date(), y, m, d);

If m=12 then m1: =1 else m1: =m+1;

If m=12 then y1: =y+1 else y1: =y;

d: =1;

d1: =1;

If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

Form11. QRLabel1. Caption: = 'Отчет за текущий месяц';

Form11. QuickRep1. PreviewModal;

end;

procedure TForm1. N16Click(Sender: TObject);

Var n, y, m, d, y1, m1, d1: Word;

Date1, Date2: TDateTime;

begin

DataModule2. ADOTable10. Active: =false;

DataModule2. ADOTable10. Active: =true;

DecodeDate(Date(), y, m, d);

d: =1;

d1: =1;

m: =1;

m1: =1;

y1: =y+1;

If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

Form11. QRLabel1. Caption: = 'Отчет за текущий год';

Form11. QuickRep1. PreviewModal;

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable2: TADOTable;

DataSource2: TDataSource;

ADOQuery1: TADOQuery;

DataSource3: TDataSource;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

DataSource4: TDataSource;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable7: TADOTable;

DataSource5: TDataSource;

DataSource6: TDataSource;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

ADOTable8: TADOTable;

ADOTable9: TADOTable;

ADOTable10: TADOTable;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *. dfm}

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, unit2;

type

TForm3 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Panel1: TPanel;

BitBtn1: TBitBtn;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm3. BitBtn1Click(Sender: TObject);

Var i, l, id: integer;

y, m, d, y1, m1, d1: Word;

pas: string;

begin

DataModule2. ADOConnection1. Connected: =false;

DataModule2. ADOConnection1. ConnectionString: ='';

DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Provider=SQLOLEDB.1; ';

DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Password=asdfghjkl; ';

DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Persist Security Info=True; ';

DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'User ID=simp; ';

DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Initial Catalog=simpaza; ';

DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Data Source='+Edit3. Text;

DataModule2. ADOConnection1. Connected: =true;

DataModule2. ADOTable6. Active: =false;

DataModule2. ADOTable7. Active: =false;

DataModule2. ADOTable6. Active: =true;

DataModule2. ADOTable7. Active: =true;

/ / i?iaa?ea eiaeia e ia?iey

If Edit2. Text='' then ShowMessage('Aaaaeoa eiaei') else

If Edit1. Text='' then ShowMessage('Aaaaeoa ia?ieu')

else begin

DataModule2. ADOTable1. Active: =true;

DataModule2. ADOTable1. First;

pas: ='';

For i: =1 to DataModule2. ADOTable1. RecordCount do

begin

If DataModule2. ADOTable1. FieldByName('Login'). AsString = Edit2. Text

then begin

l: =DataModule2. ADOTable1. FieldByName('Level'). AsInteger;

pas: =DataModule2. ADOTable1. FieldByName('Pass'). AsString;

id: =DataModule2. ADOTable1. FieldByName('Id_manager'). AsInteger;

end;

DataModule2. ADOTable1. Next;

end;

If pas=Edit1. Text then

begin

If l=0 then Form1. N3. Visible: =false;

If l=1 then Form1. N10. Visible: =false;

Form1. Label1. Caption: =IntToStr(Id);

Form1. Label2. Caption: =IntToStr(l);

Form1. MonthCalendar1. Date: =Date();

DecodeDate(Date(), y, m, d);

DecodeDate(Date(), y1, m1, d1);

If l=0 then DataModule2. ADOTable6. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable6. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

If l=0 then DataModule2. ADOTable7. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)

else DataModule2. ADOTable7. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);

close;

end

else ShowMessage('Iai?aaeeuiue eiaei eee ia?ieu')