FUNCTION cuentas()
 DEFINE kcuenta VARCHAR(14),
        kdescripcion CHAR(60),
        cuentas ui.ComboBox
 
 LET cuentas = ui.combobox.forname("formonly.xcuenta")
 
 DECLARE busca_cuenta CURSOR FOR
  SELECT RTRIM(a.cuenta_no),RTRIM(a.descripcion)+'('+RTRIM(a.cuenta_no)+')'
  FROM cgtb00001 a
  WHERE a.nivel > 2 AND a.cuenta_no LIKE '7%' AND a.status_t IS NULL 
  ORDER BY a.descripcion
  
  CALL cuentas.clear()
  FOREACH busca_cuenta INTO kcuenta,kdescripcion
   CALL cuentas.additem(kcuenta,kdescripcion)
  END FOREACH 
  
END FUNCTION