FUNCTION tipoorden()
 DEFINE ptipo ui.combobox,
        ktipo CHAR(2),kdescripcion CHAR(30)
 LET  ptipo = ui.combobox.forname("formonly.tipo")
 CALL ptipo.clear()
 DECLARE buscaTipo CURSOR FOR
   SELECT a.tipo,a.descripcion INTO ktipo,kdescripcion FROM cotb00010 a
   ORDER BY a.descripcion

   FOREACH buscatipo
    CALL ptipo.additem(ktipo,kdescripcion)
   END FOREACH
   CALL ptipo.additem(10,'ACTIVO')

END FUNCTION