FUNCTION plataformapago()

    DEFINE
        kcuenta VARCHAR(20),
        kdescripcion CHAR(80),
        cuenta_no ui.ComboBox,
        cuentaForm,plataforma STRING

    
        LET cuentaForm = "formonly.plataforma"
   

    LET cuenta_no = ui.combobox.forname(cuentaForm)

    LET plataforma = "SELECT a.id, a.plataforma
            FROM marmotech.dbo.cctb00009 a"
    PREPARE bplataforma FROM plataforma   
    DECLARE busca_cuenta CURSOR FOR bplataforma
        
          
    CALL cuenta_no.clear()
    FOREACH busca_cuenta INTO kcuenta, kdescripcion
        CALL cuenta_no.additem(kcuenta, kdescripcion)
    END FOREACH

END FUNCTION