19 lines
596 B
Plaintext
19 lines
596 B
Plaintext
FUNCTION clasf_bloque()
|
|
DEFINE kclasf_bloque VARCHAR(14),
|
|
kdescripcion CHAR(75),
|
|
clasf_bloque ui.ComboBox,
|
|
xdepartamento int
|
|
|
|
LET clasf_bloque = ui.combobox.forname("formonly.clasf_bloque")
|
|
|
|
DECLARE busca_clasf_bloque CURSOR FOR
|
|
SELECT a.cod_clasf_bloque, LTRIM(RTRIM(a.descrip_clasf_bloque))
|
|
FROM intb00058 a ORDER BY a.cod_clasf_bloque, a.descrip_clasf_bloque
|
|
|
|
CALL clasf_bloque.clear()
|
|
FOREACH busca_clasf_bloque INTO kclasf_bloque,kdescripcion
|
|
CALL clasf_bloque.additem(kclasf_bloque,kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|