Справочник в меню Shortcut
* Создает меню из поля базы данных и возвращает текст выбранной опции меню
* Вызов функции:
* MYMENU(cFieldName [,cAliasName] [,lMous])
* Параметры:
* cFieldName - наименование поля базыданных
* cAliasName - псевдоним базы данных
* lMouse - Использовать координаты мыши
* База данных должна быть открыта
PARAMETERS _mFieldName, _mAliasName, _mMouse
_mVib=""
IF _mMouse
DEFINE POPUP _mMenu SHORTCUT RELATIVE FROM ROW(),COL()
ELSE
DEFINE POPUP _mMenu SHORTCUT RELATIVE FROM MROW(),MCOL()
ENDIF
DO CASE
CASE PARAMETERS()=3
SELECT (_mAliasName)
COPY TO ARRAY _aArray FIELD (_mFieldName)
FOR _i=1 TO ALEN(_aArray,1)
DEFINE BAR _i OF _mMenu PROMPT ALLTRIM(_aArray(_i,1))
ON SELECTION BAR _i OF _mMenu _mVib=PRMBAR("_mMenu",BAR())
ENDFOR
CASE PARAMETERS()<3
COPY TO ARRAY _aArray FIELD (_mFieldName)
FOR _i=1 TO ALEN(_aArray,1)
DEFINE BAR _i OF _mMenu PROMPT ALLTRIM(_aArray(_i,1))
ON SELECTION BAR _i OF _mMenu _mVib=PRMBAR("_mMenu",BAR())
ENDFOR
ENDCASE
ACTIVATE POPUP _mMenu
RETURN _mVib
Автор публикации
