Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cursors
Message
 
To
08/10/2001 13:00:15
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00565563
Message ID:
00565598
Views:
18
I tried it as following, the calc fields still came back empty.

create cursor (cCursor)( pp c(7), fname c(25), totpay n(8,2), fica n(8,2), retire_amt n(8,2), health_ins n(8,2), retiree_med n(8,2), unempins n(8,2), wrkcompins n(8,2), total_salary n(10,2))

select pp, fname, (totpay)/ppdays1 as tp1, (fica)/ppdays1 as fi1, (retire_amt)/ppdays1 as ra1, (health_ins)/ppdays1 as hi1, ;(retiree_med)/ppdays1 as rm1, (unempins)/ppdays1 as ui1, ;
(wrkcompins)/ppdays1 as wi1, (total_salary)/ppdays1, ssn ;
from payroll_tbl into cursor (cCursor2) where payroll_tbl.pp = a__gen10(1,1) order by fname

select pp, fname, (totpay)/ppdays2 as tp2, (fica)/ppdays2 as fi2, (retire_amt)/ppdays2 as ra2, (health_ins)/ppdays2 as hi2, ; (retiree_med)/ppdays2 as rm2, (unempins)/ppdays2 as ui2, ;
(wrkcompins)/ppdays2 as wi2, (total_salary)/ppdays2, ssn ;
from payroll_tbl into cursor (cCursor3) where payroll_tbl.pp = a__gen10(a_cells,1) order by fname

select (cCursor)
append from dbf((cCursor2))
append from dbf((cCursor3))
browse

Thanks
Nick Patel
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform