Bah, thanks guys, early morning brain fart on my part.


>>I get this message at the lnDigit= line of the code:
>>
>>

proIn = 56548965
>>lnSum = 0
>>	FOR i = 1 TO 8
>>	  lnDigit = VAL(SUBSTR(m.proIn, m.i, 1)) * VAL(SUBSTR("12121212", m.i, 1))
>>	  IF lnDigit > 9
>>	   lnDigit = INT(lnDigit/10) + lnDigit - 10
>>	  ENDIF
>>	  lnSum = lnSum + lnDigit
>>	NEXT	
>>	chkdig = 10*(INT(lnSum/10)+1) - lnSum	
>>	chkdig = IIF(chkdig = 10, "0", TRANSFORM(chkdig))
>>??chkdig

>>
>>I'm not sure what I have to fix, it doesn't look like anything is out of range to me.
>
>m.proIn is not a string
>try with proIn = "56548965"
>
>Regards,
>Pieter