Silvio, is your program running if you start at the top and with ASCAN?
If yes, you could sort your array for a test only?
Best regards,
Otto
aRData := ASort( aData, nil, nil, { |x,y| x[ 1 ] > y[ 1 ] } )
xbrowse(aRData)
Function Rit( aData, numero, nWheel,nRecord )
local nCount := 0
local nPos1,nPos2,nPos3,nPos4,nPos5
local bBlock,cond
nPos1 := ( nWheel - 1 ) * 5 + 3
nPos2 := ( nWheel - 1 ) * 5 + 4
nPos3 := ( nWheel - 1 ) * 5 + 5
nPos4 := ( nWheel - 1 ) * 5 + 6
nPos5 := ( nWheel - 1 ) * 5 + 7
AEval( aData, { |a| If( a[ nPos1 ] == numero .or. ;
a[ nPos2 ] == numero .or. ;
a[ nPos3 ] == numero .or. ;
a[ nPos4 ] == numero .or. ;
a[ nPos5 ] == numero , , ncount++ ) } )
return nCount
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 89 guests