I use to be on probation a lot more last year, They just threw me out there into programming and had to learn the language from scratch. Yes I would certainly like to take a look at your sample, maybe I might understand the concept better. My email address is
pateln@co.kern.ca.us. By the way just wondering why you would use copy to array. I just "select from into array" and then move it with for loop into another array. like following
if alltrim(a__gen2(t3,1)) <> alltrim(hc33)
SELECT Service.s_v_no, Service.s_curr_mile, Service.s_orddate FROM fleet!service;
WHERE Service.sv_sup == a3 and Service.sv_mileage <> 0 and Service.s_v_no == hc33 ;
and s_orddate between fd and td order by Service.s_v_no, ;
Service.s_orddate, S_curr_mile into array a__gen5
begmile = a__gen5(1,2)
a5_len = alen(a__gen5)/3
release a__gen5
hc33 = alltrim(a__gen2(t3,1))
d3 = d3 + 1
if third_sw = .t. && control break sup
a__gen3(d3,1) = a__gen2(t3-1,3) && sup
third_sw = .f.
else
dimension a__gen3(alen(a__gen3, 1) + 1, alen(a__gen3, 2)) &&increase array by 1 row
a__gen3(d3,1) = ''&& blank
endif
a__gen3(d3,2) = a__gen2(t3-1,1) && vno
a__gen3(d3,3) = begmile && beginning mile
a__gen3(d3,4) = a__gen2(t3-1,4) && ending mile
a__gen3(d3,5) = a__gen2(t3-1,4) - begmile && total mileage
nd = {}
nd = td - fd
a__gen3(d3,6) = a__gen3(d3,5)/nd*30
a__gen3(d3,7) = a__gen2(t3-1,6) && unit
a__gen3(d3,8) = fd && from date
a__gen3(d3,9) = td
endif
endfor
anyway, didn't mean to get off the subject, but thanks for your help
Nick Patel