Контролы ButtonEdit в MIS3

Материал из ИбисоПедии
Версия от 08:47, 10 июля 2014; Zhukov (обсуждение | вклад) (Алгоритм создания)
Перейти к: навигация, поиск

Базовый класс TSFButtonEdit

Изменяет только внешний вид кнопок, добавляет горячие клавиши.

Контролы для стандартных элементов

Алгоритм создания

  1. Пишем запрос в котором будет key_field и val_field
  2. Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
  3. На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );

Ниже предоставлены примеры вызова:

Адрес fADDRClass.SetAsAddrModal(bbAddr3,'addr_id', True);
Право fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )
Страховой документ fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id'));
Страховая компания fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
медицинская компания fGetCompanyMed.CompanyMed_ShowGet
Место работы fGetCompanyWork.SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
Документ, удостоверяющий личность пока только функция fGetPDOC.PDOC_ShowGet
Отчет пока только функция fGetReport1.Report1_ShowGet
Пользователь fGetuser.SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
Доктор fGetuser.SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlyDoctor]);
Доктор для определенного отделения fGetuser.SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave,'e.dept_id=2' , [guoShowDept, quoOnlyDoctor]);
Медсестры fGetuser.SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]);
МКБ-10 есть только функция fGetICD10.ICD10_ShowGet
Участок GetDistrict