It doesn't make any sense. Where the variable is changing?

Found a mismatch on I801972COL  cRate = 0 laArr[1]= 0.100000000 Cnt:1 Fnd:.F.
 Recno: 93204 Inv_No: I801737 Salesman: COL  Rate: 10 Share: 100 Inv_No + Salesman: I801737COL  Variables: I801737COL  LEN(fields): 11 LEN(Vars): 11

LOCAL lnRecno, laArr[1]
local laArrChk[1], lnRun, lnCheck, llSeekfnd, lcMess, cCinv
lnCheck = 10

SELECT Pay_Item
DO softseek WITH cpay
SCAN WHILE pay_no=cpay
    DO CASE
        CASE rtv_pay$'IM' .AND. VAL(Pay_Item.inv_no)<960000
            cCinv=rtv_pay+LTRIM(inv_no)
            camt=amount
            IF rtv_pay='I'
                SELECT invoice
            ELSE
                SELECT MEMO
            ENDIF
            SEEK Pay_Item.inv_no
            IF gr_total>0
                cSnh=cSnh+snh*Pay_Item.amount/gr_total
                SELECT comision
                lnRecno = RECNO()


SELECT SUM(rate*SHARE/10000) AS crate, count(*) ;
                WHERE inv_no+salesman = m.ccinv + m.Slsman ;
              	FROM comision INTO ARRAY laArr

As you see, the cCinv variable is declared as local (I just added this declaration) and calculated only once right before the select sum. Why would it change?

Sorry for cc-ing.

>Thomas,
>
>Thanks a lot for your help.
>
>Here are results:
>Found a mismatch on I801972COL cRate = 0 laArr[1]= 0.100000000 Cnt:1 Fnd:.F.
> Recno: 93204 Inv_No: I801737 Salesman: COL Rate: 10 Share: 100 Inv_No + Salesman: I801737COL Variables: I801737COL LEN(fields): 11 LEN(Vars): 11
>Found a mismatch on I909648COL cRate = 0 laArr[1]= 0.094859333 Cnt:1 Fnd:.F.
> Recno: 285704 Inv_No: I503576 Salesman: COL Rate: 9.4859333 Share: 100 Inv_No + Salesman: I503576COL Variables: I503576COL LEN(fields): 11 LEN(Vars): 11
><snip>
>
>As you see, somehow we're looking now for a different thing, since Inv_No doesn't match. Somewhere the variable is changing to a wrong var. I should be able to find the problem now, I think.
>
>>Naomi,
>>>I put set order to and got
>>>
>>>Found a mismatch on I909648COL cRate = 0 laArr[1]= 0.094859333
>>...
>>>Found a mismatch on I518767COL cRate = 0 laArr[1]= 0.100000000
>>>
>>>This is strange since these Inv_No + Salesman do not exist in the table. I've tried to do select and seek in command window and they returned empty results.
>>>
>>>Somehow SELECT SUM() finds wrong records. I re-built index Com_Inv earlier today by deleting it first.
>>
>>I still presume my first guess was correct<g>. To verify (replace file_log with your personal log call):

>>SELECT Comision
>>lnRecno = RECNO()  && Dunno what for
>>
>>local laArrChk [1], lnRun, lnCheck, llSeekfnd, lcMess
>>lnCheck = 10
>>
>>SELECT SUM(rate*SHARE/10000) AS crate, count(*) ;
>>                WHERE inv_no+salesman = m.ccinv + m.Slsman ;
>>              	FROM comision INTO ARRAY laArr
>>
>>if laArr[1,2]>0
>>   if laArr[1,2]<=6000
>>      SELECT ;
>>             Recno(), inv_no, salesman, rate, SHARE ;
>>             , inv_no+salesman, m.ccinv + m.Slsman ;
>>             , Len(inv_no+salesman), Len(m.ccinv + m.Slsman) ;
>>                WHERE inv_no+salesman = m.ccinv + m.Slsman ;
>>              	FROM comision INTO ARRAY laArrChk
>>     assert _tally=laArr[1,2]
>>   else
>>      SELECT top m.lnCheck ;
>>             Recno(), inv_no, salesman, rate, SHARE ;
>>             , inv_no+salesman, m.ccinv + m.Slsman ;
>>             , Len(inv_no+salesman), Len(m.ccinv + m.Slsman) ;
>>                WHERE inv_no+salesman = m.ccinv + m.Slsman ;
>>              	FROM comision INTO ARRAY laArrChk
>>   endif
>>endif
>>
>>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
>>        llSeekfnd = .t.
>>ELSE
>>	cRate = 0
>>endif		
>>
>>lcRate = EVL(laArr[1],0)
>>IF NOT m.cRate = m.lcRate
>> 	=MESSAGEBOX("Found a mismatch on " + m.ccinv + ":" + m.Slsman)
>>        lcMess = "Found a mismatch on " + m.ccinv + m.Slsman + " cRate = " + ;
>>        	TRANSFORM(m.cRate)  + " laArr[1]= " + TRANSFORM(m.lcRate)
>>	_cliptext = _cliptext + m.lcMess
>>        =File_Log(m.lcMess ;
>>                  + " Cnt:" + TRANSFORM(laArr[1,2])
>>                  + " Fnd:" + TRANSFORM(m.llSeekfnd)
>>                  + Chr(13)+chr(10))
>>        for lnRun = 1 to min(alen(laArrChk, 1), m.lnCheck)
>>           =File_Log(":1:" + Transform(laArrChk[m.lnRun, 1])  ;
>>                    +":2:" + Transform(laArrChk[m.lnRun, 2])  ;
>>                    +":3:" + Transform(laArrChk[m.lnRun, 3])  ;
>>                    +":4:" + Transform(laArrChk[m.lnRun, 4])  ;
>>                    +":5:" + Transform(laArrChk[m.lnRun, 5])  ;
>>                    +":6:" + Transform(laArrChk[m.lnRun, 6])  ;
>>                    +":7:" + Transform(laArrChk[m.lnRun, 7])  ;
>>                    +":8:" + Transform(laArrChk[m.lnRun, 8])  ;
>>                    +":9:" + Transform(laArrChk[m.lnRun, 9])  ;
>>                    +Chr(13)+chr(10))
>>        next
>>ENDIF

>>
>>regards
>>
>>thomas