FUNCTION printers()

    DEFINE i INT

    DEFINE
        pprinters SMALLINT,
        pdescripcion CHAR(30),
        kprinters ui.ComboBox

    DEFINE impresoras ARRAY[3] OF STRING = 
    ["formonly.printerdefecto",
    "formonly.otro_printer",
    "formonly.printer_cheque"]

    FOR i = 1 TO 3

        LET kprinters = ui.ComboBox.forName(impresoras[i])
        CALL kprinters.clear()

        DECLARE busca_printer CURSOR FOR
            SELECT a.codigo, a.nombre FROM prttb00001 a

        FOREACH busca_printer INTO pprinters, pdescripcion
            CALL kprinters.additem(pprinters, pdescripcion)
        END FOREACH

    END FOR

END FUNCTION