Контролы ButtonEdit в MIS3 — различия между версиями
Материал из ИбисоПедии
Zhukov (обсуждение | вклад) (→Контролы для стандартных элементов) |
Zhukov (обсуждение | вклад) (→Контролы для стандартных элементов) |
||
| Строка 14: | Строка 14: | ||
|fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil); | |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); | ||
| + | |- | ||
| + | | Доктор | ||
| + | | | ||
| + | |- | ||
| + | | Доктор для определенного отделения | ||
| + | | | ||
| + | |- | ||
| + | |МКБ-10 | ||
| + | | есть только функция fGetICD10.ICD10_ShowGet | ||
| + | |- | ||
|} | |} | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
=== Алгоритм создания === | === Алгоритм создания === | ||
Версия 15:48, 5 июня 2014
Базовый класс TSFButtonEdit
Изменяет только внешний вид кнопок, добавляет горячие клавиши.
Контролы для стандартных элементов
| Право | 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); |
| Доктор | |
| Доктор для определенного отделения | |
| МКБ-10 | есть только функция fGetICD10.ICD10_ShowGet |
Алгоритм создания
- Пишем запрос в котором будет key_field и val_field
- Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
- На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
