>if nkeycode=13
>   SET FILTER TO
>
>   LOCATE FOR  dat=thisform.text2.Value
>   IF FOUND()
>    c_filter = [MONTH(MONTH(dat) == ]+TRANSFORM(MONTH(thisform.text2.Value))&&syntax erro
>
>      SET FILTER TO &c_filter
>
>
>      thisform.grid1.Visible=.t.
>      thisform.grid1.Refresh
>      thisform.grid1.column7.setfocus()
>   else
>      =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ")
>      thisform.grid1.visible=.f.
>   ENDIF
>endif