Тема: Разработка автоматизированной системы для Бюро недвижимости «Баст-ЕТ» (стр. 17 )

    while not DM.dstDealPart.Eof do

    begin

      //Найден продавец:

      if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 1 then

      begin

        if Seller <> '' then

        begin

Seller := Seller + ' и ';

SellerFull := SellerFull + ' и ';

        end;

        if DM.dstContrag.Locate('ID', DM.dstDealPart.FieldByName('КонтрагентID').AsInteger, []) then

        begin

Seller := Seller + DM.dstContrag.FieldByName('ФИО_Наименование').AsString;

SellerFull := SellerFull + GetInfo;

        end;

      end; //if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 1

      //Найден покупатель:

      if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 2 then

      begin

        if Buyer <> '' then

        begin

Buyer := Buyer + ' и ';

BuyerFull := BuyerFull + ' и ';

        end;

        if DM.dstContrag.Locate('ID', DM.dstDealPart.FieldByName('КонтрагентID').AsInteger, []) then

        begin

Buyer := Buyer + DM.dstContrag.FieldByName('ФИО_Наименование').AsString;

BuyerFull := BuyerFull + GetInfo;

        end;

      end; //if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 2

      DM.dstDealPart.Next;

    end;

    ObjWord.Selection.Goto(Name := 'Продавец');

    ObjWord.Selection.TypeText(Text := Seller);

    ObjWord.Selection.Goto(Name := 'ПродавецПолн');

    ObjWord.Selection.TypeText(Text := SellerFull);

    ObjWord.Selection.Goto(Name := 'Покупатель');

    ObjWord.Selection.TypeText(Text := Buyer);

    ObjWord.Selection.Goto(Name := 'ПокупательПолн');

    ObjWord.Selection.TypeText(Text := BuyerFull);

    ObjWord.Selection.Goto(Name := 'Дата');

    ObjWord.Selection.TypeText(Text := DM.dstDeal.FieldByName('Дата').AsString);

    ObjWord.Selection.Goto(Name := 'Цена');

    ObjWord.Selection.TypeText(Text := DM.dstDeal.FieldByName('Сумма').AsString);

    ObjWord.Selection.Goto(Name := 'ЦенаПрописью');

    ObjWord.Selection.TypeText(Text := SumToTxt(DM.dstDeal.FieldByName('Сумма').AsString));

    if DM.dstRealty.Locate('ID', DM.dstDeal.FieldByName('НедвижID').AsInteger, []) then

    begin

      ObjWord.Selection.Goto(Name := 'Недвижимость');

      ObjWord.Selection.TypeText(Text := DM.dstRealty.FieldByName('ТипНедвиж').AsString +

        ', адрес: ' + DM.dstRealty.FieldByName('Адрес').AsString);

      DM.dstRealtySpecific.Open;

      DM.dstRealtySpecific.First;

      //Цикл по характеристикам выбранного недвижимости:

      while not DM.dstRealtySpecific.Eof do

      begin

        if not DM.dstRealtySpecific.FieldByName('Значение').IsNull then

ObjWord.Selection.TypeText(Text := ', ' +

  DM.dstRealtySpecific.FieldByName('Характеристика').AsString + ': ' +

  DM.dstRealtySpecific.FieldByName('Значение').AsString);

        DM.dstRealtySpecific.Next;

      end;

      DM.dstRealtySpecific.Close;

    end; //if DM.dstRealty.Locate

    ObjWord.Visible := True;

  except

    ObjWord.Quit;

  end;

finally

  Screen.Cursor := crDefault;

end;

end;

//Формирование договора аренды:

procedure DocRent;

var

ObjWord: Variant;

Seller, SellerFull, Buyer, BuyerFull: string;

//Из таблицы контрагентов берутся все внесенные данные об арендодателе или арендаторе:

function GetInfo: string;

begin

Result := DM.dstContrag.FieldByName('ФИО_Наименование').AsString;

if not DM.dstContrag.FieldByName('Паспорт').IsNull then

  Result := Result + ', паспорт ' + DM.dstContrag.FieldByName('Паспорт').AsString;

if not DM.dstContrag.FieldByName('Адрес').IsNull then

  Result := Result + ', адрес: ' + DM.dstContrag.FieldByName('Адрес').AsString;

if not DM.dstContrag.FieldByName('Реквизиты').IsNull then

  Result := Result + ', банк. реквизиты: ' + DM.dstContrag.FieldByName('Реквизиты').AsString;

if not DM.dstContrag.FieldByName('ИНН').IsNull then

  Result := Result + ', ИНН: ' + DM.dstContrag.FieldByName('ИНН').AsString;

if not DM.dstContrag.FieldByName('КПП').IsNull then

  Result := Result + ', КПП: ' + DM.dstContrag.FieldByName('КПП').AsString;

end;

begin

ObjWord := CreateOleObject('Word.Application');

Screen.Cursor := crHourGlass;

try

  try

    ObjWord.Documents.Open(GetCurrentDir + '\Шаблоны\Договор аренды.dot');

    Seller := ''; //Арендодатель кратко

    Buyer := ''; //Арендатор кратко

    SellerFull := ''; //Арендодатель с реквизитами

    BuyerFull := ''; //Арендатор с реквизитами

    //В таблице сторон сделки определяются арендодатели и арендаторы (их может быть несколько):

    DM.dstDealPart.First;

    while not DM.dstDealPart.Eof do

    begin

      //Найден арендодатель:

      if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 3 then

      begin

        if Seller <> '' then

        begin

Seller := Seller + ' и ';

SellerFull := SellerFull + ' и ';

        end;

        if DM.dstContrag.Locate('ID', DM.dstDealPart.FieldByName('КонтрагентID').AsInteger, []) then

        begin

Seller := Seller + DM.dstContrag.FieldByName('ФИО_Наименование').AsString;

SellerFull := SellerFull + GetInfo;

        end;

      end; //if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 3

      //Найден арендатор:

      if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 4 then

      begin

        if Buyer <> '' then

        begin

Buyer := Buyer + ' и ';

BuyerFull := BuyerFull + ' и ';

        end;

        if DM.dstContrag.Locate('ID', DM.dstDealPart.FieldByName('КонтрагентID').AsInteger, []) then

        begin

Buyer := Buyer + DM.dstContrag.FieldByName('ФИО_Наименование').AsString;

BuyerFull := BuyerFull + GetInfo;

        end;

      end; //if DM.dstDealPart.FieldByName('ТипСтороныID').AsInteger = 4

      DM.dstDealPart.Next;

    end;

    ObjWord.Selection.Goto(Name := 'Арендодатель');

    ObjWord.Selection.TypeText(Text := Seller);

    ObjWord.Selection.Goto(Name := 'АрендодательПолн');

    ObjWord.Selection.TypeText(Text := SellerFull);

    ObjWord.Selection.Goto(Name := 'Арендатор');

    ObjWord.Selection.TypeText(Text := Buyer);

    ObjWord.Selection.Goto(Name := 'АрендаторПолн');

    ObjWord.Selection.TypeText(Text := BuyerFull);

    ObjWord.Selection.Goto(Name := 'Дата');

    ObjWord.Selection.TypeText(Text := DM.dstDeal.FieldByName('Дата').AsString);

    ObjWord.Selection.Goto(Name := 'Цена');

    ObjWord.Selection.TypeText(Text := DM.dstDeal.FieldByName('Сумма').AsString);

    ObjWord.Selection.Goto(Name := 'ЦенаПрописью');

    ObjWord.Selection.TypeText(Text := SumToTxt(DM.dstDeal.FieldByName('Сумма').AsString));

    if DM.dstRealty.Locate('ID', DM.dstDeal.FieldByName('НедвижID').AsInteger, []) then

    begin

      ObjWord.Selection.Goto(Name := 'Недвижимость');

      ObjWord.Selection.TypeText(Text := DM.dstRealty.FieldByName('ТипНедвиж').AsString +

        ', адрес: ' + DM.dstRealty.FieldByName('Адрес').AsString);

      DM.dstRealtySpecific.Open;

      DM.dstRealtySpecific.First;

      //Цикл по характеристикам выбранного объекта недвижимости:

      while not DM.dstRealtySpecific.Eof do

      begin

        if not DM.dstRealtySpecific.FieldByName('Значение').IsNull then

ObjWord.Selection.TypeText(Text := ', ' +