>While checking forms for other problems I found the following code
>
>SELECT vitems
>
>cOldOrder = ORDER()
>SET ORDER TO TAG ordkey
>
>SEEK Order_List.cordno
>
>SCAN WHILE vitems.clordno = Order_List.cordno
>ENDSCAN
>
>What does it do?
That move the pointer to the last cordno.
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca 
