>Justok,
>
>Below is you code fixed so it works with any datatype and the macros are removed.
>
>

>* at main.prg
>procedure flocate
>Lparameters pValue, pFieldName
>ID EMPTY(pFieldName)
>   lFieldName = FIELD(1)  && Take Current Alias first columname
>ELSE
>   lFieldName = pFieldName
>ENDIF
>
>Locate For Upper(lFieldName) = Upper(pValue)
>
>RETURN FOUND()
>

>
>It is also nice to return a vlaue that tells the caller if anything was found or not.

Jim,

Maybe I'm missing something but how is "Upper(lFieldName)" going to find anything?