>update cr_sum ; > set dr_amount = jj.cr_amount - jj.cr_amount1 ; > from crsalp ; > join ( ; > select sum(iif(cr.type = 'P', cr_amount, 000000.00)) as cr_amount, ; > sum(iif(cr.type = 'D', cr_amount, 000000.00)) as cr_amount1, ; > cr.vou_no ; > from crsalp as cr ; > group by cr.vou_no ; > ) as jj on jj.vou_no = crsalp.vou_no >>
>select crsalp > goto top >Scan > lnVou_no=crsalp.you_no > select ; > sum(iif(type="P",cr_amount,0))as cr_amount,; > sum(iif(type="D",dr_amount,0))as ddr_amount1; > where vou_no=lnvou_no; > from crsalp; > group by vou_no; > into cursor xyz readwrite > wait window transform(lnvou_no) at srows()/2,scols()/2 nowait > update cr_sum set dr_amount=xyz.cr_amount-xyz.ddr_amount1 where vou_no=lnVou_no >Endscan > >messagebox("Done",0+16+256,"Successfully") >>
update cr_sum ; set dr_amount = jj.cr_amount - jj.cr_amount1 ; from ( select sum(iif(type = 'P', cr_amount, 000000.00)) as cr_amount, ; sum(iif(type = 'D', cr_amount, 000000.00)) as cr_amount1, ; cr.vou_no ; from crsalp ; group by vou_no ; ) as jj where cr_sum.vou_no = jj.vou_noor ( not exactly equal ! )
update cr_sum ; set dr_amount = jj.dr_amount ; from ( select sum(icase(type = 'P', cr_amount, type = 'D', -cr_amount, 000000.00)) as dr_amount, ; cr.vou_no ; from crsalp ; group by vou_no ; ) as jj where cr_sum.vou_no = jj.vou_no