Control of the direction to move the cursor when entering in

[Eugene Lutsenko]

How to do that when you enter information into the database after the close of the field cursor moves to the right?

Code: Select all

/* Create browse-3: БД Obi_Kpr.dbf, связанная отношением "Один ко многим" с БД Obi_Zag.dbf*/

DCSETPARENT TO

@14,54 DCBROWSE oBrowKpr ALIAS 'Obi_Kpr' SIZE 79,13 ;
       EDIT xbeBRW_ItemSelected MODE DCGUI_BROWSE_EDITDOWN ;
       NOSOFTTRACK ;
       SCOPE ;
       ITEMMARKED bItems

DCSETPARENT oBrowKpr
DCBROWSECOL FIELD Obi_Kpr->Kod_Obj  HEADER 'Код объекта' WIDTH 1 PROTECT {|| .T. }
DCBROWSECOL FIELD Obi_Kpr->Atr1     HEADER 'Признак 1'   WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr2     HEADER 'Признак 2'   WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr3     HEADER 'Признак 3'   WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr4     HEADER 'Признак 4'   WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr5     HEADER 'Признак 5'   WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr6     HEADER 'Признак 6'   WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr7     HEADER 'Признак 7'   WIDTH 5


DCGETOPTIONS SAYFONT '10.Helv Bold' TABSTOP AUTORESIZE

cTitle = '2.3.1. Ручной ввод-корректировка обучающей выборки'+'. Текущая модель: "'+UPPER(Ar_Model[M_CurrInf])+'"'

DCREAD GUI ;
   FIT ;
   OPTIONS GetOptions ;
   MODAL ;
   TITLE cTitle ;
   EVAL {|o|SetAppFocus(oBrowZag:GetColumn(1))}