FUNCTION cmovimientos()
 
 DEFINE  ketiquetas SMALLINT, detiquetas STRING,
         cbmovimiento ui.ComboBox
         
    LET cbmovimiento = ui.combobox.forname("iptb00006.cod_mov")
    DECLARE bmovimiento CURSOR FOR
      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM iptb00005 a
      
      ORDER BY a.descrip_mov
      CALL cbmovimiento.clear()
 
    FOREACH bmovimiento INTO ketiquetas,detiquetas
      CALL cbmovimiento.additem(ketiquetas,detiquetas)
    END FOREACH
    
 END FUNCTION

 FUNCTION cmovimientos_t()
 
 DEFINE  ketiquetas SMALLINT, detiquetas STRING,
         cbmovimiento ui.ComboBox
         
    LET cbmovimiento = ui.combobox.forname("formonly.codigo_mov_transferencia")
    DECLARE bmovimiento_t CURSOR FOR
      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM iptb00005 a
      ORDER BY a.descrip_mov
      CALL cbmovimiento.clear()
 
    FOREACH bmovimiento_t INTO ketiquetas,detiquetas
      CALL cbmovimiento.additem(ketiquetas,detiquetas)
    END FOREACH
    
 END FUNCTION