Interface

uses

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

Buttons, StdCtrls;

type

TfmSearchZayav = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button3: TButton;

Label2: TLabel;

Edit2: TEdit;

BitBtn1: TBitBtn;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

ss3:string;

ss4:string;

procedure DogovorSearch(n:string;str:string);

procedure CompanySearch(m:integer; str:string;n:string);

end;

var

fmSearchZayav: TfmSearchZayav;

Implementation

uses Modul3, compsach, Modal1, CModul;

{$R *.DFM}

procedure TfmSearchZayav.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TfmSearchZayav.CompanySearch(m:integer; str:string; n:string);

begin

Modul2.taBases.First;

//Ищем нужную базу

while not Modul2.taBases.eof do begin

if str=Modul2.taBases.FieldByName('BaseName').AsString then break;

Modul2.taBases.Next;

end;

while not Modul2.taBases.eof do begin

if ((Modul2.taBases.FieldByName('FileType').AsString='1')

or (Modul2.taBases.FieldByName('FileType').AsString='11'))

then begin

Modul2.taSearch.close;

Modul2.taSearch.TableName:=Modul2.taBases.FieldByName('FileName').AsString;

Modul2.taSearch.IndexName:='';

Modul2.taSearch.Open;

if ((Modul2.taSearch.FindKey([m])=true) and (str=Modul2.taBases.FieldByName('BaseName').AsString)) //организация найдена

then begin

ss4:=Modul2.taSearch.FieldByName('NameSearch').AsString;

Edit2.Text:=Edit2.Text+'\'+Modul2.taSearch.FieldByName('NameSearch').AsString+'\'+n;

Modul2.taSearch.IndexName:='';

break;

end

else Edit2.Text:='нет такой заявки';

Modul2.taSearch.Close;

end;

Modul2.taBases.Next;

end;

end;

procedure TfmSearchZayav.DogovorSearch(n:string;str:string);

begin

Modul2.taBases.First;

//Ищем нужную базу

while not Modul2.taBases.eof do begin

if str=Modul2.taBases.FieldByName('BaseName').AsString then break;

Modul2.taBases.Next;

end;

//ищем нужный файл с договорами

while not Modul2.taBases.eof do begin

if Modul2.taBases.FieldByName('FileType').AsString='14'

then begin

Modul2.taSearch.close;

Modul2.taSearch.TableName:=Modul2.taBases.FieldByName('FileName').AsString;

Modul2.taSearch.IndexName:='';

Modul2.taSearch.Open;

//ищем в нем нужный номер договора

if ((Modul2.taSearch.FindKey([n])=true) and (str=Modul2.taBases.FieldByName('BaseName').AsString)) //договор найден

then begin

ss3:=Modul2.taBases.FieldByName('BaseName').AsString;

//ищем теперь компанию

CompanySearch(Modul2.taSearch['Company_ID'],Modul2.taBases.FieldByName('BaseName').AsString,n);

break;

end;

Modul2.taSearch.Close;

end;

Modul2.taBases.Next;

end;

end;

procedure TfmSearchZayav.Button3Click(Sender: TObject);

begin

Modul2.taSearch.close;

Modul2.taBases.First;

while not Modul2.taBases.eof do begin

if Modul2.taBases.FieldByName('FileType').AsString='17'

then begin

Modul2.taSearch.TableName:=Modul2.taBases.FieldByName('FileName').AsString;

Modul2.taSearch.IndexName:='zayav_ind';

Modul2.taSearch.Open;

if Modul2.taSearch.FindKey([Edit1.Text])=true //договор найден

then begin

//Ищем название организации

Modul2.taSearch.IndexName:=' ';

Edit2.Text:=Modul2.taBases.FieldByName('BaseName').AsString;

DogovorSearch(Modul2.taSearch['Dogovor'],Modul2.taBases.FieldByName('BaseName').AsString);

break;

end;

Modul2.taSearch.Close;

end;

Modul2.taBases.Next;

end;

ShowMessage('Поиск завершен');

end;

procedure TfmSearchZayav.Button1Click(Sender: TObject);

begin

if Edit2.Text<>'' then begin

fmCompSearch.CClientOpen(ss3);

fmCompSearch.PClientOpen(ss3);

//Поиск по названию организации в базах потенциальных клиентов

Modal.taPClient.FindNearest([ss4]);

Modul.taClient.FindNearest([ss4]);

end;

end;

end.