Xbrowse : aBarGetlist reposition record after change

[Marc Venken]

Hello,

In a XBrowse, I have a (field) or object:Groep that contains data like ex. Cities
I have a index on that field in order to show them sorted by city.
I then have a array of all posible cities and I choise them from the pulldown menu.

At that point totaly normal, the position of the Xbrowse changes to the new cities.
I want to go to the next record that I have been editing before.

How do I proceed ?

Code: Select all  Expand view  RUN

   WITH OBJECT :groep
      :nEditType     := EDIT_LISTBOX
      :aEditListTxt  := aGroepen

      //:bPopUp        := { |o| ColMenu( o ) }

      :aBarGetList:= aGroepen
      //:cSortOrder = "groep"
   ENDWITH

 

[Marc Venken]

Almost there...only oBrw:goto() does not work yet

Code: Select all  Expand view  RUN

   WITH OBJECT :groep
      :nEditType     := EDIT_LISTBOX
      :aEditListTxt  := aGroepen
      :bOnChange := { |oCol, uOldVal| OnGroepChange( oBrw[1], oCol, uOldVal ) }

      //:bPopUp        := { |o| ColMenu( o ) }

      :aBarGetList:= aGroepen
      //:cSortOrder = "groep"
   ENDWITH

 

Code: Select all  Expand view  RUN

function OnGroepChange( oBrw, oCol, uOldVal )
  //xbrowser(oBrw)
  //oBrw:GoTop()
  nRecno = oBrw:BookMark
  msginfo(nRecno)
  //oBrw:GoDown()
  oBrw:Goto(nRecNo)
  oBrw:refresh()
return NIL

 

[Marc Venken]

No error, but he goes to the record afther editing.

Code: Select all  Expand view  RUN

function OnGroepChange( oBrw, oCol, uOldVal )
  nRecno = oBrw:BookMark
  msginfo(nRecno)
  oBrw:bKeyNo := oBrw:bBookMark
  oBrw:refresh()
return NIL

 

[nageswaragunupudi]

nRecNo := oBrw:BookMark

oBrw:BookMark := nRecNo

[Marc Venken]

I have to store the recno of the Xbrowse before I edit the record.

Xbrowse executes agetbarlist first and then it executed bonchange event as far as I can tell, because the bookmark I get is the one on the new position (afther the change)

Therefore I can not get back to the previous recno.

[nageswaragunupudi]

Try oCol:oBarGet:bGotFocus