19 lines
438 B
Plaintext
19 lines
438 B
Plaintext
|
|
FUNCTION paises()
|
|
DEFINE kpais VARCHAR(10),kdescripcion CHAR(30),
|
|
ppais ui.ComboBox
|
|
|
|
|
|
LET ppais = ui.combobox.forname("formonly.codigo")
|
|
DECLARE busca_pais CURSOR FOR
|
|
SELECT RTRIM(a.codigo),a.nombre FROM vetb00017 a
|
|
|
|
ORDER BY a.nombre
|
|
|
|
CALL ppais.clear()
|
|
|
|
FOREACH busca_pais INTO kpais,kdescripcion
|
|
CALL ppais.additem(kpais,kdescripcion)
|
|
END FOREACH
|
|
END FUNCTION
|