FUNCTION categoria_conteo()

    DEFINE
        pcategoria ui.combobox,
        kcategoria CHAR(1),
        kdescripcion CHAR(50),
        ddescripcion STRING

    LET pcategoria = ui.combobox.forname("formonly.categoria")
    CALL pcategoria.clear()
    DECLARE pagar CURSOR FOR
        SELECT categoria, dias
            FROM intb00016
            ORDER BY categoria
    FOREACH pagar INTO kcategoria, kdescripcion
        LET ddescripcion = kcategoria CLIPPED," (cada ",kdescripcion CLIPPED," dias)"
        CALL pcategoria.additem(kcategoria, ddescripcion)
    END FOREACH

END FUNCTION