:( after i asked i found my mistake and solved my problem ,
if any good suggest will be very appreciated

Local lnRemainder
	m.Remainder = 0
	Go Top
	Scan
		Replace CrsResult1.Remainder With m.lnRemainder + CrsResult1.debit - CrsResult1.credit In CrsResult1
		m.lnRemainder = CrsResult1.Remainder 
	Endscan