Page 1 of 1
AutoTab behavior on list items
Posted: Fri Dec 02, 2022 5:09 pm
by MegumiSawada
Hi all,
In VL Web page, we can use Autotab property for a field to move focus to the next field after the full digit are entered.
However, I believe there's no Autotab property for list items.
I would like to acheive the same behavior on list items(i.e. when the full digit are entered, move focus to the next column in the list).
Is there any way to do so?
I will be delighted if I can have your kind advice.
Best Regards,
Megumi Sawada
Re: AutoTab behavior on list items
Posted: Thu Dec 08, 2022 11:27 am
by Dino
Hi
I only see autotab as a property for windows components, no web pages.
and it works when the field is full
https://docs.lansa.com/15/en/lansa016/C ... utoTab.htm
saying so, if you want to emulate that in web, I think something like this will work,
but the #ListColumn2.CurrentItem.SetFocus is not cooperating tonight.
Code: Select all
Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME<MaterialDesignBlue>)
Define_Com Class(#PRIM_LIST) Name(#List) ColumnHeaderHeight(48) ColumnLines(False) DisplayPosition(1) Height(360) Left(73) Parent(#COM_OWNER) RowHeight(48) TabPosition(1) Top(44) Width(500)
Define_Com Class(#PRIM_LIST.Number) Name(#ListColumn1) ColumnWidth(131) DisplayPosition(1) Parent(#List) SortOnClick(True) Source(#EMPNO) ColumnReadOnly(False)
Define_Com Class(#PRIM_LIST.Number) Name(#ListColumn2) ColumnWidth(131) DisplayPosition(2) Parent(#List) SortOnClick(True) Source(#SURNAME) ColumnReadOnly(False)
Define_Com Class(#PRIM_LIST.Number) Name(#ListColumn3) ColumnWidth(131) DisplayPosition(3) Parent(#List) SortOnClick(True) Source(#GIVENAME) ColumnReadOnly(False)
Define_Com Class(#STD_NUM.EditField) Name(#STD_NUM) DisplayPosition(2) Left(108) Parent(#COM_OWNER) TabPosition(2) Top(427)
Define_Com Class(#STD_NUMBR.EditField) Name(#STD_NUMBR) DisplayPosition(3) Left(108) Parent(#COM_OWNER) TabPosition(3) Top(503)
Define_Com Class(#STD_NUML.EditField) Name(#STD_NUML) DisplayPosition(4) Left(108) Parent(#COM_OWNER) TabPosition(4) Top(579)
Evtroutine Handling(#Com_owner.Initialize)
Inz_List Named(#List) Num_Entrys(10)
Endroutine
Evtroutine Handling(#STD_NUM.Changed)
If (#STD_NUM.AsString.CurSize = #STD_NUM.FieldLength)
#STD_NUMBR.SetFocus
Endif
Endroutine
Evtroutine Handling(#STD_NUMBR.Changed)
If (#STD_NUMBR.AsNumber.AsString.CurSize = #STD_NUMBR.FieldLength)
#STD_NUML.SetFocus
Endif
Endroutine
Evtroutine Handling(#ListColumn1.KeyPress)
If (#ListColumn1.CurrentItem.Value.AsString.CurSize = #EMPNO.FieldLength)
#ListColumn2.CurrentItem.SetFocus
Endif
Endroutine
End_Com