Xbrowse moving to the next cell after edit (NO return-key) ?

[ukoenig]

Hello,

A celledit in xbrowse works like EDIT -> RETURN -> NEXT CELL
Is it possible to auto-move to the next cell WITHOUT using the returnkey after edit ?
The fieldtype is < oCol:cEditPicture := "9" >



A day celledit looks like :

oCol := oBrw2:oCol( "T1" )
oCol:cHeader := "1" + CRLF + aDays[1]
oCol:nWidth := 22
oCol:nDataStrAlign := AL_CENTER
oCol:cEditPicture := "9"
oCol:nEditType := EDIT_GET
oCol:bOnPostEdit := { | oCol, xVal, nKey | ( NEU_TAGE(xVal, 1, "T1", cMonat, nPage ), ;
oBrw2:RefreshCurrent(), ;
oBrw2:SelectCol(6), lSpeichern := .F. ) }

------------

The function < NEU_TAGE(xVal, 1, "T1", cMonat, nPage ) >
saves the value and does some calculations

best regards
Uwe

[FranciscoA]

Uwe, Try this: (simulate a return key press)

Code: Select all  Expand view  RUN

//Jump to next column without pressing the enter key.
  oCol:bGetChange = {| k, f, o, oCol | If( Len( RTrim( o:oGet:Buffer ) ) == Len( o:oGet:Buffer ),;  
                                           ( o:SendMsg( WM_KEYDOWN, VK_RETURN ) ), ) }
 

Regards.

[FranciscoA]

The above code works fine if len of inserted value is equal to len of the field

[ukoenig]

Francisco,

thank You very much.
It works PERFECT and is exactly the solution I've been looking for.

My customer will be very happy because each customer table can have up to
20 performances x 30 days = 600 fields to be changed.
I added a solution with predefined day-values from monday to sunday
sample : adding 2 for monday, will fill all mondays of the month with 2



best regards
Uwe

[FranciscoA]

Uwe, I'm glad.
Regards.

[ShumingWang]

oCol:bGetChange = {| k, f, o, oCol | If( Len( RTrim( o:oGet:Buffer ) ) == Len( o:oGet:Buffer ),;
( o:SendMsg( WM_KEYDOWN, VK_RETURN ) ), ) }

ocol:ceditpicture:="9999.99", if I want input 12.16 ,after input 12. will end editing and jump to other cell .
Regrads !
Shuming wang

[ukoenig]

Shuming wang,

Using decimals, maybe a change is needed.
For me the solution works perfect and saves a lot of input-time,
because the defined performances are integer-values and < 10
A average value is 3. That means a patient can get a performance
1 in the morning, 1 in the afternoon and 1 in the evening

best regards
Uwe

[Rick Lipkin]

Uwe

You can use the TAB key just like Excel .. I use this option for my invoice detail entries ..

Rick Lipkin

Code: Select all  Expand view  RUN

WITH OBJECT oLbxB
         :lTabLikeExcel := .t.
END
 

[ukoenig]

Rick,

yes it works like return.
The solution of < Francisco > is the fastest possible one I tested.
Just keep key 0 pressed and You can delete the complete table or row
without any extra keystroke.
Reaching the end of a row it starts the next row with the first defined numeric column.



best regards
Uwe