Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

FPD2.6a @...GET -POSITION OF CURSOR

Status
Not open for further replies.

Foxtech

Programmer
May 26, 2001
66
CA
Hi everyone,

Does anyone know that how can I put the cursor at the end of the @...get field automatically?

Example: I have a data entry screen like below

Fields:
Item no. -------n(6)
Description ----c(50)

Item No. Item Description
--------- ----------------------------------
123456 TV SONY 32 INCHES COLOR

*** I want to put the cursor right after the word COLOR
TV SONY 32 INCHES COLOR_

Thanks in advance,

source code:

@10,10 GET m.Item valid Pickup(m.item)
@10,30 GET m.Descript

Function Pickup
parameters ItemNo
sele ItemFile
set order to tag Item
seek ItemNo
If found()
m.descript = ItemFile.Desc
EndIf

return

 
Perhaps you could use the keyboard command with the End key code in the valid function.

Rob.
 
You could achieve it as follows:
source code:

@10,10 GET m.Item valid Pickup(m.item)
@10,30 GET m.Descript

READ
@10,30+len(alltrim(m.descript)) SAY ' '
??'Text sample' && (or variable)

Modify your function as follows:
Function Pickup
parameters ItemNo
sele ItemFile
set order to tag Item
seek ItemNo
If found()
m.descript = ItemFile.Desc
SHOW GETS[/color ]

EndIf

return
 
I always just put everything on one line like

@10,30 SAY "Something" GET MyVarName
READ

Steve Bowman
steve.bowman@ultraex.com

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top