Dear Sir,

I have following working codes

 select crsalp
 goto top
 do while !eof()
 	scatter memvar
 
 	xyz="crs"+sys(2015)
 	select ;
 		sum(iif(type="P",cr_amount,0))as cr_amount,;
 		sum(iif(type="D",dr_amount,0))as ddr_amount1;
 		where vou_no=m.vou_no;
 		from crsalp;
 		group by vou_no;
 		into cursor xyz readwrite
 
 	wait window alltrim(str(m.vou_no)) at srows()/2,scols()/2 nowait
 
 	select xyz
 	am1=cr_amount-ddr_amount1
 
 	select cr_sum
 	locate for vou_no=M.vou_no
 	if found()
 		replace dr_amount with am1
 	endif
 
 	select crsalp
 	if !eof()
 		skip
 	endif
 
 enddo
 
 messagebox("Done",0+16+256,"Successfully")

I need UPDADTE SQL command against above codes.

Please help