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

Материал из ИбисоПедии
Перейти к: навигация, поиск
(→‎Алгоритм создания)
(→‎Алгоритм создания)
 
(не показано 10 промежуточных версий 2 участников)
Строка 1: Строка 1:
 
== Базовый класс TSFButtonEdit ==
 
== Базовый класс TSFButtonEdit ==
−
Изменяет только внешний вид кнопок, добавляет горячие клавиши.
+
* внешний вид кнопок редактировать, очистить
 +
* добавляет горячую клавишу F4.
 +
* на dblclick добавляет вызов редактора
  
 
== Контролы для стандартных элементов ==
 
== Контролы для стандартных элементов ==
Строка 8: Строка 10:
 
# На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
 
# На OnCreate вызываем процедуру вида SetaAsIBISRightEdit(bbRight,'right_id', SetButtonSave );
  
−
Ниже предоставлены примеры вызова:
+
Ниже предоставлены примеры вызова для основных сущностей:
  
−
{| cellspacing="0" border="1"
+
{| cellspacing="0" border="1"  class="sortable"
 
|Сущьность
 
|Сущьность
 
|Модуль
 
|Модуль
Строка 93: Строка 95:
 
|-
 
|-
 
|Медсестры
 
|Медсестры
 +
|fGetuser
 
|
 
|
−
| fGetuser.SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]);
+
|SetaAsIBISEmpEdit(bbEmpRun, 'runemp_id', SetButtonSave, , [guoShowDept, quoOnlySister]);
−
|
 
 
|
 
|
 
|
 
|
Строка 102: Строка 104:
 
|fGetICD10
 
|fGetICD10
 
|  
 
|  
 +
|
 
|ICD10_ShowGet  
 
|ICD10_ShowGet  
−
|
 
 
|
 
|
 
|-
 
|-
 
| Участок
 
| Участок
 
|GetDistrict
 
|GetDistrict
 +
|
 +
|
 +
|
 
|
 
|
 
|-
 
|-
Строка 117: Строка 122:
 
|
 
|
 
|-
 
|-
 +
|Назначение
 +
|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
 +
|
 +
|-
 +
 
|}
 
|}
  

Текущая версия на 12:16, 12 марта 2015

Базовый класс TSFButtonEdit

  • внешний вид кнопок редактировать, очистить
  • добавляет горячую клавишу F4.
  • на dblclick добавляет вызов редактора

Контролы для стандартных элементов

Алгоритм создания

  1. Пишем запрос в котором будет key_field и val_field
  2. Размещаем на форме TcxDBButtonEdit, связываем с полем val_field
  3. На 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
Источник — «http://mediawiki.oblteh/mediawiki/index.php?title=Контролы_ButtonEdit_в_MIS3&oldid=994»