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

Версия 15:42, 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);

Страховая компания: 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 );

@@ Строка 8: / Строка 8: @@
 |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'));
-* Страховой документ:   fGetIDOC.SetaAsIBISIDocEdit(bbPayDoc, 'idoc_id', SetButtonSave,uqMDOC, 'people_id', False, uqHosp.FieldByName('pay_type_id'));
+|-
+|Страховая компания
+|fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
+|-
+|}
 * Страховая компания: fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(fGetCompanyInsur.SetaAsIBISCompanyInsurEdit(bbInsurCompany, 'company_insur_id',nil);
 * медицинская компания