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