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