Как реализовать выпадающие списки в интерфейсе символов?

Question

У меня есть две таблицы сначала ее кандидаты, а во-вторых, это сотрудник. До того, как я добавлю нового сотрудника, я должен искать в таблице кандидатов, после чего возьму кандидатID и добавлю нового сотрудника с этим ключом. Я не знаю, как искать в этом столбце кандидата. На данный момент у меня есть это, но это плохое решение.

set cfname label "First #" 
     clname label "Last #" with overlay title "Candidate Name" 1 columns row 5 column 28. 
    find last candidates where firstname = cfname and lastname = clname no-lock no-error . 

Я хочу прокручивать их, и когда я нажимаю «Ввод», я беру этот ключ и добавляю в таблицу сотрудников.

create employee no-error. 
    Assign 
     employee.candidateid = id 
     employee.employeeid = next-value(employee) 
     hiredate = today. 

Я не знаю, как добиться этого.

Answer 1

Как указано: это отвечает на заголовок orignal вопроса «Как реализовать списки выпадающих списков в интерфейсе символов?»

Что-то, чтобы вы начали (интерфейс символов на самом деле не моя лучшая область, чтобы могли быть более простые способы).

В основном это сводится к опции VIEW-AS по определениям переменных, а также к некоторым определениям кадров.

DEFINE VARIABLE cTest AS CHARACTER NO-UNDO VIEW-AS COMBO-BOX LABEL "Select value". 

DEFINE FRAME fr1 
    cTest WITH SIDE-LABELS 1 COLUMN. 

cTest:LIST-ITEMS IN FRAME fr1 = "One,Two,Three,Four". 

UPDATE cTest WITH FRAME fr1.