Clipper/FiveWin - VALID

Hola.Tengo Dudas.
- ¿Puedo pasar una parte de un arreglo una funcion a traves de un VALID ya que no logoro sacar el codigo?
@1,1 get codigo[1] var cod[1] valid existe(Cod[1])

static function existe (cod[1])
use clientes index codcli
dbseek(cod[1])
if found()
msgstop("existe el codigo")
return .f.
else
return .t.
return nil

Te presente que cuando pasas un elemnto de una matriz en realiza los estas pasando en referencia...
Ademas en tu funcion ya no debes utilizas cod[1] sino una variable cualquiere
usa esto
static function existe ( cCod )
use clientes index codcli
dbseek( cCod )
if found()
msgstop("existe el codigo")
return .f.
else
return .t.
return nil

Salu2
>:)

El codigo debe ser este :

@1,1 get codigo[1] var cod[1] valid existe(Cod[1])

static function existe ( xCodigo )
use clientes index codcli
dbseek( xCodigo )
if found()
msgstop("existe el codigo")
return .f.
else
return .t.
return nil

Saludos desde México