Контролы ButtonEdit в MIS3 — различия между версиями

Версия 15:40, 5 июня 2014

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

}

Право: 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);
медицинская компания
Место работы: fGetCompanyWork.SetaAsIBISCompanyWorkEdit(bbWorkPlace,'company_id', SetButtonSave);
Документ, удостоверяющий личность
Отчет
Пользователь fGetuser.SetaAsIBISEmpEdit(bbNazEmp, 'creator_id', SetButtonSave);
Доктора
Доктора для определенного отделения
МКБ-10

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

Право

fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )

@@ Строка 4: / Строка 4: @@
 == Контролы для стандартных элементов ==
+{| cellspacing="0" border="1"
+|Право
+|fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave )
+|-
+}
 * Право: fGetRigth.SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
 * Страховой документ:   fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id'));