2. Разрабатывает методики поиска клиентов, планирует работу с клиентами, составляет схемы обращения к клиентам.
3. Непосредственно осуществляет поиск клиентов всеми доступными способами (путем размещения рекламы, участия в выставках, ярмарках, презентациях, направления предложений по средствам коммуникаций, электронной почтой, факсимильными сообщениями, пр).
4. Прогнозирует деловую надежность потенциальных клиентов, их финансовую и материальную обеспеченность.
5. Организует и проводит предварительные переговоры с клиентами, заинтересовавшимися предложениями (принявшими оферту, пр), уточняет потребности каждого конкретного клиента и подготавливает предложение, адресованное определенному клиенту.
6. Встречается с клиентами, убеждает клиентов в выгодности предложения, предлагает на обсуждение и согласование проекты договоров, принимает участие в работе над согласованием разногласий, заключает договоры от имени предприятия.
7. Предлагает клиентам пути решения не согласованных при переговорах вопросов и вопросов, возникших после совершения юридически значимых действий.
8. Поддерживает постоянный контакт с существующими клиентами, организует работу с ними по устоявшимся деловым схемам.
9. Разрабатывает схемы взаимоотношений с наиболее выгодными и перспективными клиентами (предложения особых условий договоров, систем скидок и индивидуального обслуживания, ускоренных сроков и особых условий исполнения договорных обязательств, пр).
10. Разрабатывает и дает клиентам рекомендации и консультации по наиболее эффективному использованию устоявшихся деловых связей; обеспечивает возможность посещения клиентами выставок, ярмарок, презентаций новых продуктов (товаров, услуг).
11. Обеспечивает соблюдение интересов клиентов при выполнении условий договоров подразделениями предприятия.
12. Налаживает обратную связь с клиентами (изучает их требования к продукции (товарам, услугам), устанавливает причины неудовлетворенности клиента совместной работой, анализирует претензии клиентов и принимает все меры по их решению и сохранению деловых связей).
13. Формирует банк данных о клиентах (клиентскую базу), своевременно вносит в нее изменения.
14. Изучает и анализирует политику конкурентов во взаимоотношениях с клиентами.
III. Права
Менеджер по работе с клиентами имеет право:
1. Самостоятельно определять формы работы с клиентами, способы установления деловых связей.
2. Распоряжаться вверенными ему финансовыми средствами (на представительские расходы).
3. Подписывать и визировать документы в пределах своей компетенции.
4. Знакомиться с документами, определяющими его права и обязанности по занимаемой должности, критерии оценки качества исполнения должностных обязанностей.
5. Запрашивать от руководства и специалистов подразделений предприятия информацию и документы, необходимые для выполнения его должностных обязанностей.
6. Требовать от руководства предприятия обеспечения организационно-технических условий и оформления установленных документов, необходимых для исполнения должностных обязанностей.
IV. Ответственность
Менеджер по работе с клиентами несет ответственность:
1. За ненадлежащее исполнение или неисполнение своих должностных обязанностей, предусмотренных настоящей должностной инструкцией, - в пределах, установленных действующим трудовым законодательством Российской Федерации.
2. За правонарушения, совершенные в процессе своей деятельности, - в пределах, установленных действующим административным, уголовным и гражданским законодательством Российской Федерации.
3. За причинение материального ущерба предприятию - в пределах, установленных действующим трудовым и гражданским законодательством Российской Федерации.
Листинг программного кода
programProject1;
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)