Показать сообщение отдельно
Старый 26.01.2005, 12:36   #4  
zinius is offline
zinius
Участник
 
24 / 11 (1) +
Регистрация: 26.01.2005
OnLookup
Насколько я понимаю в OnLookUp надо делать EXIT(TRUE) дабы показать что выбор произошёл иначе присваивания не произойдёт. Это нужно в случае если значение пихать через переменную OnLookup 'Text'
Пример:
PHP код:
CLEAR(EmplListForm);
EmplListForm.LOOKUPMODE := TRUE;
IF 
EmplListForm.RUNMODAL ACTION::LookupOK THEN BEGIN
  EmplListForm
.GETRECORD(Employee);
  IF 
STRLEN(Text) + STRLEN(Employee."No.") > MAXSTRLEN(TextTHEN
    ERROR
(Text57000);
  
Text += Employee."No.";
  EXIT(
TRUE);
END