AutoTab behavior on list items

[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

[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