Интерфейс выбора коммисии версия 7.12
Добавлено: 07 сен 2007, 10:52
Есть у кого нибудь vih с интерфейсом выбора коммисии для версии 7.12.
На 810 в GalDoc такой нашел, но не катит
На 810 в GalDoc такой нашел, но не катит
Код: Выделить всё
ObjInterface ObjCommission;
Procedure InitCommission (In_wTiDk : Word);
Procedure InitResponsible (In_wTiDk : Word);
Procedure RunWindowSelection (wType : Word);
Function GetSelection : Comp;
Function SelectionIsValid : Boolean;
Function GetSelectionName : String;
Function ClearSelection : String;
Function GetCommissionChairMan : Boolean;
Function GetComponentsCount : Word;
Function GetComponentNRec (wNumber : Word) : Comp;
Function GetComponentFIO (wNumber : Word) : String;
Function GetComponentTabN (wNumber : Word) : String;
Function GetComponentPost (wNumber : Word) : String;
Function GetComponentsList (wType : Word) : String;
end;
VipInterface Commission implements ObjCommission;