What am I missing here????

How does 1000 fit in a N(02) field?... or 10000 in a N(4,1) field???

If you're gonna put code like this out for detecting a problem, the some commentary saying what the objective is might be helpful.

good luck


>Hi everybody,
>
>Here is a problem, which we're experiencing:
>
>we have input table aliased as X and output table aliased as Y.
>
>Here is replace command, we're trying, sitting on X:
>replace y.TotRooms with 10000, y.BedRooms with 1000, ;
>y.PRSLDATE WITH GetPrSlInfo(X.PROPID, X.SOURCE, X.DATE,'Date')
>
>where TotRooms is N (4.1) and Bedrooms N(2).
>
>Here is the code for GetPrSlInfo UDF:
>
>

>********************************************************************************
>function GetPrSlInfo
>*  Description.......: Function returns the previous sale info if it exists
>*  Calling Samples...: GetPrSlInfo(PROPID,SOURCE,DATE,"Date","C",8)
>*  Parameter List....: tnPropid, tcSource, tdDate, tcFieldName, tcRetType (Optional), tnNumChar (Optional)
>*  Created by........: Nadya Nosonovsky 08/15/01 12:04:59 PM
>*  Modified by.......: Nadya Nosonovsky 08/15/01 12:05:02 PM
>********************************************************************
>lparameter tnPropId, tcSource, tdDate, tcFieldName, tcRetType, tnNumChar, lnRecno, lnReccount
>local lnSelect, lVar
>lnSelect=select()
>lnRecno = recno() && Assuming we're sitting on the correct file
>lnReccount = reccount()
>if !used('curPrevSlInfo')
>	select 0
>	create cursor curPrevSlInfo (RecNum I, date D, Price I, Book I, page I)
>	append blank	
>endif
>if curPrevSlInfo.RecNum <> m.lnRecno
>	replace RecNum with m.lnRecno in curPrevSlInfo
>*   lVar=CreateEmptyVar(m.tcFieldName,'TranMstr')
>	if m.tcSource = "S" and seek(str(m.tnPropId,9)+dtos(m.tdDate),"TranMstr","TrxnHist")
>		select TranMstr
>		set order to TrxnHist
>		if !eof()
>			skip
>			if TranMstr.PropID = m.tnPropId
>				do while TranMstr.PropID = m.tnPropId
>					if TranMstr.source = "S" and TranMstr.date < m.tdDate					
>					        replace Date with TranMstr.Date, ;
>					                Price with TranMstr.Price, ;
>					                Book with TranMstr.Book, ;
>					                Page with TranMstr.Page in curPrevSlInfo
>*!*							scatter memvar
>*!*							insert into curPrevSlInfo from memvar
>						exit
>					endif
>					if !eof()
>						skip
>					else
>						exit
>					endif
>				enddo
>			endif
>		endif
>	endif
>endif
>lVar = evaluate('curPrevSlInfo.'+ m.tcFieldName)
>if m.lnRecno=m.lnReccount && Last record
>   use in curPrevSlInfo
>endif
>select (m.lnSelect)
>if !empty(m.tcRetType)
>	if vartype(m.lVar)<>m.tcRetType
>		return ConvertType(m.lVar,m.tcRetType,m.tnNumChar)
>	endif
>else
>	return m.lVar
>endif

>
>I ran couple of tests in command window. If I ran it first time, when curPrevSlInfo is not created, I didn't get a Numeric Overflow error. The second time I run my test5 program, I get this error... I see some other weirdness as well. When I run this transformation for multiple records, it doesn't produce errors and the job runs till completion...
>
>As a workaround I can change this program to either create public variables (and release them at last record) or create public array, or add array to the _screen (or _vfp) object instead of using cursor. I guess, we probably can not create a cursor during replace command...
>
>Anyway, it's very weird... Windows 95 VFP6 SP4.
>
>Can you please replicate my findings and suggest a workaround?
>
>Thanks a lot in advance.