>cmd="select acc_code,sum(dr_amount)as dramount,sum(cr_amount)as cramount; > from vouchers where acc_code=m.cash_code1 and date<f_date1; > union all; > select acc_code,sum(dr_amount)as dramount,sum(cr_amount)as cramount; > from cashsalp where acc_code=m.cash_code1 and date<f_date1; > union all; > select acc_code,sum(dr_amount)as dramount,sum(cr_amount)as cramount; > from crsalp where acc_code=m.cash_code1 and date<f_date1; > union all; > select acc_code,sum(dr_amount)as dramount,sum(cr_amount)as cramount; > from cashprp where acc_code=m.cash_code1 and date<f_date1; > into cursor cbk" > >if sqlexec(con,cmd,'cbk')<0 > aerror(laerror) > messagebox(laerror[1,2]) > return >ENDIF >>