Instead OGetList:nPos := 2 I have used ReadNJump(oGetList,2 ) from oasys
But give me bound error in function settle probably because it is written for
clipper5.2 class
Which modification must I do to run in harbour?
FUNCTION ReadNJump( getlist,nReadPos )
LOCAL nKey:= 0,lUpdated:= .F.,nGetPos
DEFAULT nReadPos TO 1
WHILE nReadPos > 0 .and. nKey <> K_ESC
lUpdated:= ReadModal( getlist,nReadPos )
nKey:= Lastkey()
// if we had a jump, do it.
IF (nGetPos:= Ascan( getlist,{|e| e:JUMP2POS > 0} )) > 0
// reset for another entry.
nReadPos:= getlist[nGetPos]:JUMP2POS
getlist[nGetPos]:JUMP2POS:= 0
ENDIF
ENDDO
RETURN lUpdated
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Massimo Belgrano
Sent: Wednesday, June 18, 2008 7:36 PM
To: Harbour Project Main Developer List.
Subject: RE: [Harbour] SCOPE VIOLATION PROTECTED HBGETLIST:_NPOS
Can I do something of similar in harbour for goto fields by pos?
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Szakáts Viktor
Sent: Wednesday, June 18, 2008 7:31 PM
To: Harbour Project Main Developer List.
Subject: Re: [Harbour] SCOPE VIOLATION PROTECTED HBGETLIST:_NPOS
oGetList:pos := 2
like in Clipper.
Brgds,
Viktor
On 2008.06.18., at 19:00, Massimo Belgrano wrote:
> Goto second field in get but return error
> In xharbour I do
> OGetList := __GetListActive()
> OGetList:nPos := 2
> How can Do in harbour?
>
> Massimo Belgrano
>
> _______________________________________________
> Harbour mailing list
> [email protected]
> http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
