Контролы ButtonEdit в MIS3 — различия между версиями
Материал из ИбисоПедии
(→Базовый класс TSFButtonEdit) |
(→Алгоритм создания) |
||
| (не показаны 3 промежуточные версии 1 участника) | |||
| Строка 98: | Строка 98: | ||
| | | | ||
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]); | |SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]); | ||
| − | |||
| | | | ||
| | | | ||
| Строка 105: | Строка 104: | ||
|fGetICD10 | |fGetICD10 | ||
| | | | ||
| + | | | ||
|ICD10_ShowGet | |ICD10_ShowGet | ||
| − | |||
| | | | ||
|- | |- | ||
| Участок | | Участок | ||
|GetDistrict | |GetDistrict | ||
| + | | | ||
| + | | | ||
| + | | | ||
| | | | ||
|- | |- | ||
| Строка 174: | Строка 176: | ||
| | | | ||
|- | |- | ||
| + | |Человек | ||
| + | |fPeopleWOT | ||
| + | |OpenPeople | ||
| + | |SetaAsIBISDBPeopleEdit | ||
| + | |People_ShowGet | ||
| + | | | ||
| + | |- | ||
| + | |||
|} | |} | ||
Текущая версия на 12:16, 12 марта 2015
Базовый класс TSFButtonEdit
- внешний вид кнопок редактировать, очистить
- добавляет горячую клавишу F4.
- на dblclick добавляет вызов редактора
Контролы для стандартных элементов
Алгоритм создания
- Пишем запрос в котором будет key_field и val_field
- Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
- На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
Ниже предоставлены примеры вызова для основных сущностей:
| Сущьность | Модуль | Открытие | ButtonEdit | ShowGetNew | Выбор | ||
| Адрес | fADDRClass | не нужна | SetAsAddrModal(bbAddr3,'addr_id', True); | ||||
| Право | fGetRigth, fRigthWOT |
fRigthWOT.OpenRight(<right_id>); | fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave ) | fGetRigth.Right_ShowGet | |||
| Страховой документ | fGetIDOC, fIDOCWOT |
fIDOCWOT.IDOC_Open | fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False,<pay_type_id>); | ||||
| Страховая компания | fGetCompanyInsur, fCompanyInsurWOT |
fCompanyInsurWOT.OpenCompanyInsur | SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil); | ||||
| Медицинская компания | fGetCompanyMed, fCompanyMedWOT |
fCompanyMedWOT.CompanyMed_Open | fGetCompanyMed.CompanyMed_ShowGet | ||||
| Место работы | fGetCompanyWork, fCompanyWorkWOT |
fCompanyWorkWOT.OpenCompanyWork | SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave); | fGetCompanyWork.CompanyWork_ShowGet | |||
| Документ, удостоверяющий личность | fGetPDOC, fPDOCWOT |
fPDOCWOT.PDOC_Open | fGetPDOC.PDOC_ShowGet | ||||
| Отчет | fGetReport1 | Report1_ShowGet | |||||
| Пользователь | fGetuser, fUserWOT |
fUserWOT.UserEdit | 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); | |||||
| Назначение | fNazWOT | Naz_Open | Naz_ShowGetNew | ||||
| Медицинский документ - история болезни | fMedDocWOT | OpenMedDoc | |||||
| Протокол назначения | fProtocolHospWOT | OpenProtocolHosp | |||||
| Титульная часть карты стационарного больного | fAdmissionPeopleWOT | AdmissionPeople_Open | |||||
| Листок нетрудоспособности | fSickLeaveWOT | OpenSickLeave | |||||
| Статкарта (стационарного больного) | fHospStatKartWOT | HospStatKart_Open | |||||
| Контактные данные человека | fPeopleContactWOT | PeopleContact_Open | PeopleContact_ShowGetNew | ||||
| Человек | fPeopleWOT | OpenPeople | SetaAsIBISDBPeopleEdit | People_ShowGet |
