>SELECT Comision >lnRecno = RECNO() && Dunno what for > >SELECT SUM(rate*SHARE/10000) AS crate > WHERE inv_no+salesman = m.ccinv + m.Slsman ; > FROM comision INTO ARRAY laArr > >SELECT Comision >SET ORDER TO com_inv IN comision >IF SEEK(m.ccinv + m.Slsman) > SUM (rate*SHARE/10000) TO cRate WHILE inv_no+salesman = m.ccinv + m.Slsman >ELSE > cRate = 0 >endif > >lcRate = EVL(laArr[1],0) >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>