hi all,
i have 2 textboxat my form (to seek for itemno in textbox24)
(in boxtext23 seek for name to same item).
first problem when i run the form (i get long error message
(at the top(filter cleard)

second when i insert itemno at english languge i get data at a grid,if change to arabic languge for insert name i get data at a grid, but when i change to english languge again to seek for itemno i get from my code
a message(not found).
this is my code, any help

LPARAMETERS nKeyCode, nShiftAltCtrl
IF NKEYCODE=13
SELECT 1
local lcvalue
THISFORM.GRID4.REFRESH
THISFORM.TEXT23.VALUE=SPAC(10)
lcvalue=[']+UPPER(TRIM(THISFORM.TEXT24.VALUE))+[']
LOCATE FOR UPPER(NO)=&lcvalue
IF FOUND()
SET FILTER TO UPPER(NO)=&lcvalue
THISFORM.GRID4.REFRESH
THISFORM.GRID4.VISIBLE=.T.
ELSE
=MESSAGEBOX("NOT FOUND")
ENDIF
ENDIF
***********************
LPARAMETERS nKeyCode, nShiftAltCtrl
IF NKEYCODE=13
SELECT 1
local lcvalue
THISFORM.TEXT24.VALUE=SPAC(10)
lcvalue=[']+ALLTRIM(THISFORM.TEXT23.VALUE)+[']
*LOCATE FOR UPPER(NO)=UPPER(TRIM(THISFORM.TEXT24.VALUE))
LOCATE FOR ALLTRIM(NAM)=&lcvalue
IF FOUND()
SET FILTER TO ALLTRIM(NAM)=&lcvalue
THISFORM.GRID4.REFRESH
THISFORM.GRID4.VISIBLE=.T.
ENDIF
ENDIF