FUNCTION cturno()
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         petiquetas ui.ComboBox
 
 LET petiquetas = ui.combobox.forname("formonly.turno")
 
 DECLARE betiquetas CURSOR FOR
   SELECT a.turno,a.descripcion FROM cttb00018 a
   ORDER BY a.descripcion
   CALL petiquetas.clear()
 
 FOREACH betiquetas INTO ketiquetas,detiquetas
  CALL petiquetas.additem(ketiquetas,detiquetas)
 END FOREACH
  
END FUNCTION