18 lines
444 B
Plaintext
18 lines
444 B
Plaintext
FUNCTION cbclase()
|
|
DEFINE clase ui.ComboBox,
|
|
kcodn SMALLINT,
|
|
ddescripcion CHAR(60)
|
|
|
|
LET clase = ui.ComboBox.forName("formonly.cod_n")
|
|
|
|
CALL clase.clear()
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.cod_n,'('||cast(a.cod_n AS varchar(10))||')'||a.producto FROM iptb00020 a
|
|
ORDER BY a.producto
|
|
FOREACH busca INTO kcodn,ddescripcion
|
|
CALL clase.addItem(kcodn,ddescripcion)
|
|
END FOREACH
|
|
|
|
|
|
END FUNCTION |