>swipedate time
>04/01/2003 2210
>04/02/2003 0730
>04/02/2003 2245
>04/03/2003 0701
>04/03/2003 2250
>.
>.
>.
>.
>
>
>> > date timein timeout >04/01/2003 22:10 07:30 >04/02/2003 22:45 07:01 >04/03/2003 22:50 > >Do you have any gaps in the data? If not, you can use just scan the table, e.g.
Create cursor ToReport (DateIn D, TimeIn C(5), TimeOut C(5)) select maintable set order to swipedt scan if mod(recno(),2) = 1 insert into ToReport (DateIn, TimeIn) values (SwipeDate,left(time,2)+":"+right(time,2)) else && even record replace timeout with (time,2)+":"+right(time,2) in ToReport * or use scatter field command endif endscan