18 lines
442 B
Plaintext
18 lines
442 B
Plaintext
FUNCTION perfiles()
|
|
DEFINE
|
|
pperfil SMALLINT,
|
|
pdescripcion CHAR(30),
|
|
kperfil ui.ComboBox
|
|
|
|
LET kperfil = ui.ComboBox.forName("formonly.cod_perfil")
|
|
CALL kperfil.clear()
|
|
|
|
DECLARE busca_perfil CURSOR FOR
|
|
SELECT a.cod_perfil, a.titulo FROM seg0011 a
|
|
|
|
FOREACH busca_perfil INTO pperfil, pdescripcion
|
|
CALL kperfil.additem(pperfil, pdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|