>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?

Moves the pointer to record where clordno is the following key of order_list.cordno in a slow way (thinking there might be many records with a particular key). ie: If there are clordno keys like 5 and 6 and current order_list.cordno is 5, moves pointer to first key with clordno=6 in vitems.
(Code seems to assume Order_List.cordno exists in vitems)

SELECT vitems
cOldOrder = ORDER()
SET ORDER TO TAG ordkey

* Sounds to be a char key
lcKey = Stuff(Order_List.cordno, ;
  Len(Order_List.cordno), 1, ;
  Chr(Asc(Right(Order_List.cordno,1))+1))
* If integer: lnKey = lnKey + 1
set near on
SEEK lcKey
set near off

or

SELECT vitems

cOldOrder = ORDER()
SET ORDER TO TAG ordkey desc
*set near on && If key might not exist
SEEK Order_List.cordno
*set near off
SET ORDER TO TAG ordkey ascending
skip

Cetin