Контролы ButtonEdit в MIS3 — различия между версиями
Материал из ИбисоПедии
Zhukov (обсуждение | вклад) (→Алгоритм создания) |
Zhukov (обсуждение | вклад) (→Алгоритм создания) |
||
| Строка 17: | Строка 17: | ||
|ShowGetNew | |ShowGetNew | ||
|- | |- | ||
| − | | Адрес | + | |Адрес |
| − | | fADDRClass | + | |fADDRClass |
| + | |SetAsAddrModal(bbAddr3,'addr_id', True); | ||
|- | |- | ||
|Право | |Право | ||
| − | |fGetRigth | + | |fGetRigth |
| + | |SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ) | ||
|- | |- | ||
|Страховой документ | |Страховой документ | ||
| − | |fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, | + | |fGetIDOC. |
| + | |SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>); | ||
|- | |- | ||
|Страховая компания | |Страховая компания | ||
Версия 07:13, 15 июля 2014
Базовый класс TSFButtonEdit
Изменяет только внешний вид кнопок, добавляет горячие клавиши.
Контролы для стандартных элементов
Алгоритм создания
- Пишем запрос в котором будет key_field и val_field
- Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
- На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
Ниже предоставлены примеры вызова:
| Сущьность | Модуль | Открытие | ButtonEdit | ShowGetNew |
| Адрес | fADDRClass | SetAsAddrModal(bbAddr3,'addr_id', True); | ||
| Право | fGetRigth | SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ) | ||
| Страховой документ | fGetIDOC. | SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<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 | |||
| Амбулаторный талон | fAmbTicketWOT.AmbTicket_Open(ambticket_id); |
