Справочник в меню Shortcut

Когда нужно занести значение в поле основной таблицы из справочника (небольшого) вызов этой (простой) процедуры поможет Вам.

Справочник в меню 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

Автор: Doctor_y

Автор публикации

не в сети 8 месяцев

admin

0
Комментарии: 0Публикации: 107Регистрация: 10-12-2000
0
Оставить комментарий
Авторизация
*
*
Генерация пароля