>local lcDynamicControl, loColumn, loControl >lcDynamicControl = [IIF(sales_pt.is_test or sales_pt.loc_suffix=0 or INLIST(sales_pt.mode,8,9), 'Check2', 'Check1')] > >for each loColumn in thisform.Grid1.columns > if type('m.loColumn.check1') = 'O' > loColumn.dynamiccurrentcontrol = m.lcDynamicControl > m.loColumn.Check1.Alignment = 2 > m.loColumn.Check2.Alignment = 2 > m.loColumn.Alignment = 2 > endif > bindevent(m.loColumn,"MouseEnter",thisform.Grid1,"MouseEnter") > bindevent(m.loColumn,"MouseLeave",thisform.Grid1,"MouseLeave") > > for each loControl in m.loColumn.controls > > bindevent(m.loControl,"MouseEnter",thisform.Grid1,"MouseEnter") > bindevent(m.loControl,"MouseLeave",thisform.Grid1,"MouseLeave") > * bindevent(m.loControl,"MouseMove",thisform.Grid1,"MouseMove") > endfor >endfor > >with thisform.Grid1 > * special handling for the 3 kiosk related settings (Cashless, Sales and WillCall). Keep enabled if mode=9 (kiosk) > .Column25.dynamiccurrentcontrol = [IIF(sales_pt.is_test or sales_pt.mode = 9, 'Check1', 'Check2')] > .Column26.dynamiccurrentcontrol = [IIF(sales_pt.is_test or sales_pt.mode = 9, 'Check1', 'Check2')] > .Column27.dynamiccurrentcontrol = [IIF(sales_pt.is_test or sales_pt.mode = 9, 'Check1', 'Check2')] > > * special handling for the TST setting. Restore original behavior (enable only when "TEST" is in the name) > .Column17.dynamiccurrentcontrol = [IIF(AT("TEST", UPPER(sales_pt.salespoint)) = 0 or sales_pt.loc_suffix=0 or sales_pt.mode=8, 'Check2', 'Check1')] > >endwith >>