18 lines
543 B
Plaintext
18 lines
543 B
Plaintext
FUNCTION ircmovimientos()
|
|
|
|
DEFINE ketiquetas SMALLINT, detiquetas STRING,
|
|
cbmovimiento ui.ComboBox
|
|
|
|
LET cbmovimiento = ui.combobox.forname("formonly.cod_mov")
|
|
DECLARE bmovimiento CURSOR FOR
|
|
SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM irtb00005 a
|
|
ORDER BY a.descrip_mov
|
|
CALL cbmovimiento.clear()
|
|
|
|
FOREACH bmovimiento INTO ketiquetas,detiquetas
|
|
CALL cbmovimiento.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|