Интерфейс выбора коммисии версия 7.12

[PViP]

Есть у кого нибудь vih с интерфейсом выбора коммисии для версии 7.12.

На 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;

[jack]

в 8.0 я заменил
Function GetComponentTabN (wNumber : Word) :LongInt;//String;//TTABN-LongInt;//
и зароботало.

Код: Выделить всё

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) : LongInt; 
        Function GetComponentPost (wNumber : Word) : String; 
        Function GetComponentsList (wType : Word) : String; 
end; 

VipInterface Commission implements ObjCommission;