DCBROWSECOL EDITOR [ERLEDIGT]

[Koverhage]

Hallo,

ich habe folgende Problem. Ich möchte bei der Eingabe in einer Col
über eine Auswahl Werte suchen können (hier Textnummern, damit nicht immer der Text
eingegeben werden muss).
Das funktioniert auch soweit, allerdings sehe ich Wert nach der Auswahl nicht,
erst wenn ich die Entf Taste drücke.

Wo mache ich den Fehler ?

Code: Alles auswählen

DCBROWSECOL FIELD nkp->nka_ts  PICTURE '999' WIDTH 3 HEADER "Nr." ;
            EDITOR 'NKATS' PARENT oBrowse

@ nil,nil DCGET xNIL PICT '999' GETID 'NKATS' PARENT oBrowse ;
          KEYBLOCK {|n|IIF(n==xbeK_F2,;
          nkotxt_ausw( dc_getactiveinfo( GetList ), GetList, .f., oBrowse ),nil)}

static procedure nkotxt_ausw( akt_feld, aGetList, lMitLock, oCBrowse )
Local ret_rec := 0, lOk, GetList := {}, cAlias := "kt", oBrowse, GetOptions := {}

Local mess96 := 'TS', ;
      mess97 := 'Kostenbezeichnung', ;
      mess98 := 'Mwst-Satz', ;
      mess99 := 'Auskunft Kostentexte'


DEFAULT lMitLock := .f.

@  0,  0 DCBROWSE oBrowse ALIAS cAlias SIZE 69, 20 ;
         SORTSCOLOR GRA_CLR_WHITE, GRA_CLR_RED ;
         SORTUCOLOR GRA_CLR_WHITE, GRA_CLR_DARKGRAY ;
         ITEMSELECTED {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList) }
DCSETPARENT oBrowse
DCBROWSECOL DATA {|| kt->tnr } HEADER mess96 PROTECT {|| .t. };
            WIDTH 4  picture "999" ;
            SORT {||OrdSetFocus(1), DC_GetRefresh( GetList )} _DEFAULT OrdSetFocus()=='KSTXT'
DCBROWSECOL DATA {|| kt->tbez } HEADER mess97 PROTECT {|| .t. };
            WIDTH 32  picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" ;
            SORT {||OrdSetFocus(2), DC_GetRefresh( GetList )} _DEFAULT OrdSetFocus()=='KSBEZ'
DCBROWSECOL field kt->mwstp HEADER mess98 WIDTH 5  picture "@E 99.99"  PROTECT {|| .t. }

DCGETOPTIONS BUTTONALIGN DCGUI_BUTTONALIGN_CENTER ;
             COLORGETS {{GRA_CLR_BLACK,GRA_CLR_YELLOW}} 
             
DCHOTKEY xbeK_F1 ACTION  {|| my_help( dc_getactiveinfo( GetList ) ) }
DCHOTKEY xbeK_F12 ACTION  {|| DC_ReadGuiEvent( DCGUI_EXIT_OK, GetList ) }

DCREAD GUI OPTIONS GetOptions CLEAREVENTS FIT ADDBUTTONS MODAL SETAPPWINDOW ;
       to lOk TITLE mess99 EVAL {|o|SetAppFocus(oBrowse:GetColumn(1))}


if lOk
   ret_rec := kt->( recno() )
endif

if ret_rec > 0
   kt->(OrdSetFocus(1))    && Sicherheitshalber
   kt->(dbgoto( ret_rec ))
   IF lMitLock
      do while !nkp->(dbrlock(RecNo()))
      enddo
   ENDIF
   nkp->nka_ts := kt->tnr
   IF lMitLock
      nkp->(dbrunlock(RecNo()))
      nkp->(dbskip(0))
      oCBrowse:refreshCurrent()
      oCBrowse:forcestable()
   ENDIF
endif
DC_GetRefresh( aGetList )
return