FUNCTION cincodmov()
 
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         cbcategoria ui.ComboBox,
         cb2 CHAR(2)
         
    LET cbcategoria = ui.combobox.forname("intb00006.cod_mov")
    DECLARE bcategoria CURSOR FOR
      SELECT a.cod_mov,a.descrip_mov FROM intb00005 a
      ORDER BY a.descrip_mov
      CALL cbcategoria.clear()
 
    FOREACH bcategoria INTO ketiquetas,detiquetas
      LET detiquetas = "(",ketiquetas USING "<<<",")",detiquetas CLIPPED 
      CALL cbcategoria.additem(ketiquetas,detiquetas)
    END FOREACH
    
 END FUNCTION