Контролы ButtonEdit в MIS3 — различия между версиями
Материал из ИбисоПедии
Zhukov (обсуждение | вклад) (→Алгоритм создания) |
Zhukov (обсуждение | вклад) (→Алгоритм создания) |
||
| Строка 16: | Строка 16: | ||
|ButtonEdit | |ButtonEdit | ||
|ShowGetNew | |ShowGetNew | ||
| + | |Выбор | ||
|- | |- | ||
|Адрес | |Адрес | ||
|fADDRClass | |fADDRClass | ||
| + | |- | ||
|SetAsAddrModal(bbAddr3,'addr_id', True); | |SetAsAddrModal(bbAddr3,'addr_id', True); | ||
|- | |- | ||
|Право | |Право | ||
|fGetRigth | |fGetRigth | ||
| + | |- | ||
|SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ) | |SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ) | ||
|- | |- | ||
|Страховой документ | |Страховой документ | ||
| − | |fGetIDOC | + | |fGetIDOC |
| + | |- | ||
|SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>); | |SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>); | ||
|- | |- | ||
|Страховая компания | |Страховая компания | ||
| − | |fGetCompanyInsur | + | |fGetCompanyInsur |
| + | |- | ||
| + | |SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil); | ||
|- | |- | ||
|медицинская компания | |медицинская компания | ||
| − | | fGetCompanyMed | + | |fGetCompanyMed |
| + | |- | ||
| + | |CompanyMed_ShowGet | ||
|- | |- | ||
|Место работы | |Место работы | ||
| − | |fGetCompanyWork | + | |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 | + | |fGetuser |
| + | |SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave,'e.dept_id=2' , [guoShowDept, quoOnlyDoctor]); | ||
|- | |- | ||
|Медсестры | |Медсестры | ||
| Строка 57: | Строка 75: | ||
|- | |- | ||
|МКБ-10 | |МКБ-10 | ||
| − | | | + | |fGetICD10 |
| + | | | ||
| + | |ICD10_ShowGet | ||
|- | |- | ||
| Участок | | Участок | ||
| Строка 64: | Строка 84: | ||
|- | |- | ||
|Амбулаторный талон | |Амбулаторный талон | ||
| − | |fAmbTicketWOT | + | |fAmbTicketWOT |
| + | |AmbTicket_Open(ambticket_id); | ||
|- | |- | ||
|} | |} | ||
Версия 07:17, 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(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); |
