>SELECT Comision > lnRecno = RECNO() > SET ORDER TO com_inv IN comision > > SELECT SUM(rate*SHARE/10000) AS crate WHERE inv_no+salesman = m.ccinv + m.Slsman ; > FROM comision INTO ARRAY laArr > lcRate = EVL(laArr[1],0) > IF SEEK(m.ccinv + m.Slsman) > SUM (rate*SHARE/10000) TO cRate WHILE inv_no+salesman = m.ccinv + m.Slsman > ELSE > cRate = 0 > endif > > IF NOT m.cRate == m.lcRate > =MESSAGEBOX("Found a mismatch on " + m.ccinv + m.Slsman) > _cliptext = _cliptext + "Found a mismatch on " + m.ccinv + m.Slsman + " cRate = " + ; > TRANSFORM(m.cRate) + " laArr[1]= " + TRANSFORM(m.lcRate) > ENDIF>