// процедура построения данных отчета
procedure reportNewEditPrint (var Action, adres:string);
var
TfrxDBDdevice,TfrxDBDmodel,TfrxDBDserialNumber,TfrxDBDtheBrand,TfrxDBDfirstNameClient,TfrxDBDlastNameClient,TfrxDBDotherNameClient:TfrxDBDataset;
TfrxDBDcompletedWorks,TfrxDBDequipment,TfrxDBDphoneClient,TfrxDBDadressClient,TfrxDBDusers,TfrxDBDrepairStatus,TfrxDBDpriceList:TfrxDBDataset;
TfrxDBDcomponents,TfrxDBDCompany,TfrxDBDusedComponents,TfrxDBDequipmentFull:TfrxDBDataset;
device,model,serialNumber,theBrand,firstNameClient,lastNameClient,otherNameClient,completedWorks,equipment,phoneClient,adressClient:TDataSet;
users,repairStatus,priceList,components,Company,usedComponents,equipmentFull:TDataSet;
AObject:string;
begin
if (frmReception.cbTypeSearch.ItemIndex=0) then AObject:=frmReception.tgPeople.sqlValue else AObject:=frmReception.tgCompany.sqlValue;
//сбор данных отчета отдельных данных - начало -----------------
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", id_firstNameClient AS "'+iniLanguage.ReadString('reportmess','dr2', 'Идентификатор имени клиента')+'",'+
'id_lastNameClient AS "'+iniLanguage.ReadString('reportmess','dr3', 'Идентификатор фамилии клиента')+'",id_otherNameClient AS "'+iniLanguage.ReadString('reportmess','dr4', 'Идентификатор отчества клиента')+'",'+
'id_phoneClient AS "'+iniLanguage.ReadString('reportmess','dr5', 'Идентификатор номера телефона')+'",id_adressClient AS "'+iniLanguage.ReadString('reportmess','dr6', 'Идентификатор адреса клиента')+'",'+
'id_device AS "'+iniLanguage.ReadString('reportmess','dr7', 'Идентификатор оборудования ')+'", id_model AS "'+iniLanguage.ReadString('reportmess','dr8', 'Идентификатор модели')+'", id_theBrand AS "'+iniLanguage.ReadString('reportmess','dr9', 'Идентификатор бренда')+'" ,'+
'id_serialNumber AS "'+iniLanguage.ReadString('reportmess','dr43', 'Идентификатор серийного номера')+'",id_users AS "'+iniLanguage.ReadString('reportmess','dr10', 'Идентификатор принявшего оборудование')+'", id_repairStatus AS "'+iniLanguage.ReadString('reportmess','dr11', 'Идентификатор статуса оборудования ')+'", id_Company AS "'+iniLanguage.ReadString('reportmess','dr12', 'Идентификатор компании')+'",'+
'dateIn AS "'+iniLanguage.ReadString('reportmess','dr13', 'Дата принятия оборудования ')+'" ,dateOut AS "'+iniLanguage.ReadString('reportmess','dr14', 'Дата выдачи оборудования ')+'",kit AS "'+iniLanguage.ReadString('reportmess','dr15', 'Список комплектации')+'",'+
'warranty AS "'+iniLanguage.ReadString('reportmess','dr16', 'Гарантийный ремонт (Boolean)')+'",description AS "'+iniLanguage.ReadString('reportmess','dr17', 'Описание неисправности')+'",Company AS "'+iniLanguage.ReadString('reportmess','dr18', 'Тип клинта Ч/Ю (Boolean)')+'",'+
'descriptionVisual AS "'+iniLanguage.ReadString('reportmess','dr19', 'Описание внешнего вида')+'",requestNumberCounter AS "'+iniLanguage.ReadString('reportmess','dr20', 'Номер заявки')+'",typeOfService AS "'+iniLanguage.ReadString('reportmess','dr21', 'Только диагностика (Boolean)')+'",'+
'phoneType AS "'+iniLanguage.ReadString('reportmess','dr22', 'Стационарный телефон (Boolean)')+'",resultDiagnostic AS "'+iniLanguage.ReadString('reportmess','dr23', 'Результат диагностики')+'",priceOff AS "'+iniLanguage.ReadString('reportmess','dr24', 'Стоимость ремонта погашена (Boolean)')+'",'+
'personid AS "'+iniLanguage.ReadString('reportmess','bm039', 'Номер заявки')+'" FROM equipment', equipment);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr25', 'Тип оборудования ')+'" FROM device', device);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr26', 'Модель оборудования ')+'" FROM model', model);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr27', 'Серийный номер')+'" FROM serialNumber', serialNumber);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr28', 'Бренд оборудования ')+'" FROM theBrand', theBrand);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr29', 'Имя клинта')+'" FROM firstNameClient', firstNameClient);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr30', 'Фамилия клиента')+'" FROM lastNameClient', lastNameClient);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr31', 'Отчества клиента')+'" FROM otherNameClient', otherNameClient);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", id_users AS "'+iniLanguage.ReadString('reportmess','dr32', 'Идентификатор мастера')+'"'+
', id_equipment AS "'+iniLanguage.ReadString('reportmess','dr7', 'Идентификатор оборудования ')+'", name AS "'+iniLanguage.ReadString('reportmess','dr33', 'Имя выполненой работы')+'"'+
', price AS "'+iniLanguage.ReadString('reportmess','dr34', 'Цена выполненой работы')+'", quantity AS "'+iniLanguage.ReadString('reportmess','dr35', 'Количество')+'"'+
', allprice AS "'+iniLanguage.ReadString('reportmess','dr36', 'Полная цена')+'" FROM completedWorks', completedWorks);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr37', 'Номер телефона')+'" FROM phoneClient', phoneClient);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr38', 'Адрес')+'" FROM adressClient', adressClient);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", firstName AS "'+iniLanguage.ReadString('reportmess','dr39', 'Имя ')+'", lastName AS "'+iniLanguage.ReadString('reportmess','dr40', 'Фамилия ')+'"'+
', login AS "'+iniLanguage.ReadString('reportmess','dr41', 'Логин')+'" FROM users', users);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr42', 'Статус')+'" FROM repairStatus', repairStatus);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr44', 'Имя услуги')+'", price AS "'+iniLanguage.ReadString('reportmess','dr45', 'Цена')+'" FROM priceList', priceList);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','dr46', 'Имя компонента')+'", price AS "'+iniLanguage.ReadString('reportmess','dr45', 'Цена')+'" FROM components', components);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", name AS "'+iniLanguage.ReadString('reportmess','lNC', 'Имя компании')+'", adres AS "'+iniLanguage.ReadString('reportmess','lAC', 'Адрес компании')+'", phone AS "'+iniLanguage.ReadString('reportmess','dr47', 'Телефон компании')+'" FROM Company', Company);
SQLQuery('SELECT id AS "'+iniLanguage.ReadString('reportmess','dr1', 'Идентификатор записи')+'", id_users AS "'+iniLanguage.ReadString('reportmess','dr48', 'Идентификатор мастера')+'"'+
', id_equipment AS "'+iniLanguage.ReadString('reportmess','dr49', 'Идентификатор оборудования ')+'", name AS "'+iniLanguage.ReadString('reportmess','dr50', 'Имя использованного компонента')+'"'+
', price AS "'+iniLanguage.ReadString('reportmess','dr51', 'Цена использованного компонента')+'", quantity AS "'+iniLanguage.ReadString('reportmess','dr28', 'Количество')+'"'+
', allprice AS "'+iniLanguage.ReadString('reportmess','dr52', 'Полная цена')+'" FROM usedComponents', usedComponents);
//сбор данных отчета отдельных данных - конец ------------------
//сбор данных отчета связанных данных - начало -----------------
SQLQuery('SELECT equipment.dateIn AS "'+iniLanguage.ReadString('reportmess','dr13', 'Дата принятия оборудования ')+'" ,equipment.dateOut AS "'+iniLanguage.ReadString('reportmess','dr14', 'Дата выдачи оборудования ')+'",equipment.kit AS "'+iniLanguage.ReadString('reportmess','dr15', 'Список комплектации')+'",'+
'equipment.warranty AS "'+iniLanguage.ReadString('reportmess','dr16', 'Гарантийный ремонт (Boolean)')+'",equipment.description AS "'+iniLanguage.ReadString('reportmess','dr17', 'Описание неисправности')+'",equipment.Company AS "'+iniLanguage.ReadString('reportmess','dr18', 'Тип клинта Ч/Ю (Boolean)')+'",'+
'equipment.descriptionVisual AS "'+iniLanguage.ReadString('reportmess','dr19', 'Описание внешнего вида')+'",equipment.requestNumberCounter AS "'+iniLanguage.ReadString('reportmess','dr20', 'Номер заявки')+'",equipment.typeOfService AS "'+iniLanguage.ReadString('reportmess','dr21', 'Только диагностика (Boolean)')+'",'+
'equipment.phoneType AS "'+iniLanguage.ReadString('reportmess','dr22', 'Стационарный телефон (Boolean)')+'",equipment.resultDiagnostic AS "'+iniLanguage.ReadString('reportmess','dr23', 'Результат диагностики')+'",equipment.priceOff AS "'+iniLanguage.ReadString('reportmess','dr24', 'Стоимость ремонта погашена (Boolean)')+'",'+
'firstNameClient.name AS "'+iniLanguage.ReadString('reportmess','dr29', 'Имя клиента')+'",lastNameClient.name AS"'+iniLanguage.ReadString('reportmess','dr30', 'Фамилия клиента')+'",otherNameClient.name AS "'+iniLanguage.ReadString('reportmess','dr31', 'Отчество клиента')+'",'+
'phoneClient.name AS "'+iniLanguage.ReadString('reportmess','dr53', 'Телефон клиента')+'",adressClient.name AS "'+iniLanguage.ReadString('reportmess','dr54', 'Адрес клиента')+'",'+
'device.name AS "'+iniLanguage.ReadString('reportmess','dr25', 'Тип оборудования ')+'", model.name AS "'+iniLanguage.ReadString('reportmess','dr26', 'Модель оборудования ')+'", theBrand.name AS "'+iniLanguage.ReadString('reportmess','dr28', 'Бренд оборудования ')+'" ,'+
'serialNumber.name AS "'+iniLanguage.ReadString('reportmess','dr27', 'Серийный номер')+'", users.firstName AS "'+iniLanguage.ReadString('reportmess','dr55', 'Принявший оборудование')+'", repairStatus.name AS "'+iniLanguage.ReadString('reportmess','dr42', 'Статус')+'", Company.name AS "'+iniLanguage.ReadString('reportmess','lNC', 'Имя компании')+'",'+
'Company.adres AS "'+iniLanguage.ReadString('reportmess','lAC', 'Адрес компании')+'", Company.phone AS "'+iniLanguage.ReadString('reportmess','dr47', 'Телефон компании')+'",'+
'completedWorks.name AS "'+iniLanguage.ReadString('reportmess','dr33', 'Имя выполненой работы')+'", completedWorks.price AS "'+iniLanguage.ReadString('reportmess','dr34', 'Цена выполненой работы')+'", completedWorks.quantity AS "'+iniLanguage.ReadString('reportmess','dr56', 'Кол-во выполненных работ')+'", completedWorks.allprice AS "'+iniLanguage.ReadString('reportmess','dr57', 'Общая цена за выполненую работу')+'",'+
'usedComponents.name AS "'+iniLanguage.ReadString('reportmess','dr58', 'Имя затраченного материала')+'", usedComponents.price AS "'+iniLanguage.ReadString('reportmess','dr59', 'Цена затраченного материала')+'", usedComponents.quantity AS "'+iniLanguage.ReadString('reportmess','dr60', 'Кол-во затраченных материалов')+'",'+
'usedComponents.allprice AS "'+iniLanguage.ReadString('reportmess','dr61', 'Общая цена за затраченные материалы')+'",personid AS "'+iniLanguage.ReadString('reportmess','bm039', 'Номер заявки')+'" FROM equipment '+
'LEFT OUTER JOIN firstNameClient ON firstNameClient.id=equipment.id_firstNameClient '+
'LEFT OUTER JOIN lastNameClient ON lastNameClient.id=equipment.id_lastNameClient '+
'LEFT OUTER JOIN otherNameClient ON otherNameClient.id=equipment.id_otherNameClient '+
'LEFT OUTER JOIN phoneClient ON phoneClient.id=equipment.id_phoneClient '+
'LEFT OUTER JOIN adressClient ON adressClient.id=equipment.id_adressClient '+
'LEFT OUTER JOIN device ON device.id=equipment.id_device '+
'LEFT OUTER JOIN model ON model.id=equipment.id_model '+
'LEFT OUTER JOIN theBrand ON theBrand.id=equipment.id_theBrand '+
'LEFT OUTER JOIN serialNumber ON serialNumber.id=equipment.id_serialNumber '+
'LEFT OUTER JOIN users ON users.id=equipment.id_users '+
'LEFT OUTER JOIN repairStatus ON repairStatus.id=equipment.id_repairStatus '+
'LEFT OUTER JOIN Company ON Company.id=equipment.id_Company '+
'LEFT OUTER JOIN completedWorks ON completedWorks.id_equipment=equipment.id '+
'LEFT OUTER JOIN usedComponents ON usedComponents.id_equipment=equipment.id '+
'WHERE equipment.id='+AObject,equipmentFull);
//сбор данных отчета связанных данных - конец ------------------
//передача в дизайнер отчета данных - начало ------------------
TfrxDBDequipment := TfrxDBDataset.Create(frmLogin);
TfrxDBDequipment.UserName := iniLanguage.ReadString('reportmess','UserName1', 'Таблица принятого оборудования ');
TfrxDBDequipment.CloseDataSource := True;
TfrxDBDequipment.OpenDataSource := True;
TfrxDBDequipment.DataSet := equipment;
TfrxDBDdevice := TfrxDBDataset.Create(device);
TfrxDBDdevice.UserName := iniLanguage.ReadString('reportmess','UserName2', 'Таблица(тип оборудования)');
TfrxDBDdevice.CloseDataSource := True;
TfrxDBDdevice.OpenDataSource := True;
TfrxDBDdevice.DataSet := device;
TfrxDBDmodel := TfrxDBDataset.Create(model);
TfrxDBDmodel.UserName := iniLanguage.ReadString('reportmess','UserName3', 'Таблица(модель оборудования)');
TfrxDBDmodel.CloseDataSource := True;
TfrxDBDmodel.OpenDataSource := True;
TfrxDBDmodel.DataSet := model;
TfrxDBDserialNumber := TfrxDBDataset.Create(serialNumber);
TfrxDBDserialNumber.UserName := iniLanguage.ReadString('reportmess','UserName4', 'Таблица(серийный номер оборудования)');
TfrxDBDserialNumber.CloseDataSource := True;
TfrxDBDserialNumber.OpenDataSource := True;
TfrxDBDserialNumber.DataSet := serialNumber;
TfrxDBDtheBrand := TfrxDBDataset.Create(theBrand);
TfrxDBDtheBrand.UserName := iniLanguage.ReadString('reportmess','UserName5', 'Таблица(бренд оборудования)');
TfrxDBDtheBrand.CloseDataSource := True;
TfrxDBDtheBrand.OpenDataSource := True;
TfrxDBDtheBrand.DataSet := theBrand;
TfrxDBDfirstNameClient := TfrxDBDataset.Create(firstNameClient);
TfrxDBDfirstNameClient.UserName := iniLanguage.ReadString('reportmess','UserName6', 'Таблица(имя клиента)');
TfrxDBDfirstNameClient.CloseDataSource := True;
TfrxDBDfirstNameClient.OpenDataSource := True;
TfrxDBDfirstNameClient.DataSet := firstNameClient;
TfrxDBDlastNameClient := TfrxDBDataset.Create(lastNameClient);
TfrxDBDlastNameClient.UserName := iniLanguage.ReadString('reportmess','UserName7', 'Таблица(фамилия клиента)');
TfrxDBDlastNameClient.CloseDataSource := True;
TfrxDBDlastNameClient.OpenDataSource := True;
TfrxDBDlastNameClient.DataSet := lastNameClient;
TfrxDBDotherNameClient := TfrxDBDataset.Create(otherNameClient);
TfrxDBDotherNameClient.UserName := iniLanguage.ReadString('reportmess','UserName8', 'Таблица(отчество клиента)');
TfrxDBDotherNameClient.CloseDataSource := True;
TfrxDBDotherNameClient.OpenDataSource := True;
TfrxDBDotherNameClient.DataSet := otherNameClient;
TfrxDBDcompletedWorks := TfrxDBDataset.Create(completedWorks);
TfrxDBDcompletedWorks.UserName := iniLanguage.ReadString('reportmess','UserName9', 'Таблица(выполненые работы)');
TfrxDBDcompletedWorks.CloseDataSource := True;
TfrxDBDcompletedWorks.OpenDataSource := True;
TfrxDBDcompletedWorks.DataSet := completedWorks;
TfrxDBDphoneClient := TfrxDBDataset.Create(phoneClient);
TfrxDBDphoneClient.UserName := iniLanguage.ReadString('reportmess','UserName10', 'Таблица(телефон клиента)');
TfrxDBDphoneClient.CloseDataSource := True;
TfrxDBDphoneClient.OpenDataSource := True;
TfrxDBDphoneClient.DataSet := phoneClient;
TfrxDBDadressClient := TfrxDBDataset.Create(adressClient);
TfrxDBDadressClient.UserName := iniLanguage.ReadString('reportmess','UserName11', 'Таблица(адрес клиента)');
TfrxDBDadressClient.CloseDataSource := True;
TfrxDBDadressClient.OpenDataSource := True;
TfrxDBDadressClient.DataSet := adressClient;
TfrxDBDusers := TfrxDBDataset.Create(users);
TfrxDBDusers.UserName := iniLanguage.ReadString('reportmess','UserName12', 'Таблица(Пользователь программы)');
TfrxDBDusers.CloseDataSource := True;
TfrxDBDusers.OpenDataSource := True;
TfrxDBDusers.DataSet := users;
TfrxDBDrepairStatus := TfrxDBDataset.Create(repairStatus);
TfrxDBDrepairStatus.UserName := iniLanguage.ReadString('reportmess','UserName13', 'Таблица(статус ремонта)');
TfrxDBDrepairStatus.CloseDataSource := True;
TfrxDBDrepairStatus.OpenDataSource := True;
TfrxDBDrepairStatus.DataSet := repairStatus;
TfrxDBDpriceList := TfrxDBDataset.Create(priceList);
TfrxDBDpriceList.UserName := iniLanguage.ReadString('reportmess','UserName14', 'Таблица(прайс лист)');
TfrxDBDpriceList.CloseDataSource := True;
TfrxDBDpriceList.OpenDataSource := True;
TfrxDBDpriceList.DataSet := priceList;
TfrxDBDcomponents := TfrxDBDataset.Create(components);
TfrxDBDcomponents.UserName := iniLanguage.ReadString('reportmess','UserName15', 'Таблица(компоненты/материалы)');
TfrxDBDcomponents.CloseDataSource := True;
TfrxDBDcomponents.OpenDataSource := True;
TfrxDBDcomponents.DataSet := components;
TfrxDBDusedComponents := TfrxDBDataset.Create(usedComponents);
TfrxDBDusedComponents.UserName := iniLanguage.ReadString('reportmess','UserName16', 'Таблица(использованные компоненты)');
TfrxDBDusedComponents.CloseDataSource := True;
TfrxDBDusedComponents.OpenDataSource := True;
TfrxDBDusedComponents.DataSet := usedComponents;
TfrxDBDCompany := TfrxDBDataset.Create(Company);
TfrxDBDCompany.UserName := iniLanguage.ReadString('reportmess','UserName17', 'Таблица(компания клиент)');
TfrxDBDCompany.CloseDataSource := True;
TfrxDBDCompany.OpenDataSource := True;
TfrxDBDCompany.DataSet := Company;
TfrxDBDequipmentFull := TfrxDBDataset.Create(equipmentFull);
TfrxDBDequipmentFull.UserName := iniLanguage.ReadString('reportmess','UserName18', 'Общая таблица(принятое оборудование)');
TfrxDBDequipmentFull.CloseDataSource := True;
TfrxDBDequipmentFull.OpenDataSource := True;
TfrxDBDequipmentFull.DataSet := equipmentFull;
frmLogin.frxReport.Clear;
frmLogin.frxReport.DataSets.Add(TfrxDBDequipment);
frmLogin.frxReport.DataSets.Add(TfrxDBDdevice);
frmLogin.frxReport.DataSets.Add(TfrxDBDmodel);
frmLogin.frxReport.DataSets.Add(TfrxDBDserialNumber);
frmLogin.frxReport.DataSets.Add(TfrxDBDtheBrand);
frmLogin.frxReport.DataSets.Add(TfrxDBDfirstNameClient);
frmLogin.frxReport.DataSets.Add(TfrxDBDlastNameClient);
frmLogin.frxReport.DataSets.Add(TfrxDBDotherNameClient);
frmLogin.frxReport.DataSets.Add(TfrxDBDcompletedWorks);
frmLogin.frxReport.DataSets.Add(TfrxDBDphoneClient);
frmLogin.frxReport.DataSets.Add(TfrxDBDadressClient);
frmLogin.frxReport.DataSets.Add(TfrxDBDusers);
frmLogin.frxReport.DataSets.Add(TfrxDBDrepairStatus);
frmLogin.frxReport.DataSets.Add(TfrxDBDpriceList);
frmLogin.frxReport.DataSets.Add(TfrxDBDcomponents);
frmLogin.frxReport.DataSets.Add(TfrxDBDusedComponents);
frmLogin.frxReport.DataSets.Add(TfrxDBDCompany);
frmLogin.frxReport.DataSets.Add(TfrxDBDequipmentFull);
TfrxDBDequipment.DataSet.Close;
TfrxDBDdevice.DataSet.Close;
TfrxDBDmodel.DataSet.Close;
TfrxDBDserialNumber.DataSet.Close;
TfrxDBDtheBrand.DataSet.Close;
TfrxDBDfirstNameClient.DataSet.Close;
TfrxDBDlastNameClient.DataSet.Close;
TfrxDBDotherNameClient.DataSet.Close;
TfrxDBDcompletedWorks.DataSet.Close;
TfrxDBDphoneClient.DataSet.Close;
TfrxDBDadressClient.DataSet.Close;
TfrxDBDusers.DataSet.Close;
TfrxDBDrepairStatus.DataSet.Close;
TfrxDBDpriceList.DataSet.Close;
TfrxDBDcomponents.DataSet.Close;
TfrxDBDusedComponents.DataSet.Close;
TfrxDBDCompany.DataSet.Close;
TfrxDBDequipmentFull.DataSet.Close;
//передача в дизайнер отчета данных - конец ------------------
// действия с отчетоми - начало --------------------------
if (Action='print') then begin
frmLogin.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Report\'+adres);
frmLogin.frxReport.ShowReport;
end;
if (Action='edit') then begin
frmLogin.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Report\'+adres);
frmLogin.mniReport.Click;
end;
if (Action='new') then frmLogin.mniReport.Click ;
// действия с отчетоми - конец --------------------------
TfrxDBDequipment.Free;
TfrxDBDdevice.Free;
TfrxDBDmodel.Free;
TfrxDBDserialNumber.Free;
TfrxDBDtheBrand.Free;
TfrxDBDfirstNameClient.Free;
TfrxDBDlastNameClient.Free;
TfrxDBDotherNameClient.Free;
TfrxDBDcompletedWorks.Free;
TfrxDBDphoneClient.Free;
TfrxDBDadressClient.Free;
TfrxDBDusers.Free;
TfrxDBDrepairStatus.Free;
TfrxDBDpriceList.Free;
TfrxDBDcomponents.Free;
TfrxDBDusedComponents.Free;
TfrxDBDCompany.Free;
TfrxDBDequipmentFull.Free;
end;