Sigo con el replace

Hola amigo buenos días no quise molestarte pero no logro terminar este programita, necesito que ponga nuevos y consultantes ya hice todo lo que me dijiste pero no se donde esta mi error, solo necesito colocar en la condición "N" o "C" si el codigo_cliente no existe en la tabla quiere decir que es la primera vez que se atiende cuando vuelva por segunda vez el mismo cliente pondré "C", todo el código lo coloque en un prg porque en un botón de comando me sale un error que dice "que no pueden contener procedimientos o definiciones de clases anidadas", luego tuve que quita los selec porque no los reconce. Amigo es mucho pedir si te envío mi archivo solo es dos tablas y dos formularios gracias
use "C:\Informes\borrador.dbf" 
go top 
do while !eof()
 if siExiste(codigo_cliente) 
replace condicion with 'C' 
else 
replace condicion with 'N' 
endif 
use "C:\Informes\borrador.dbf" 
skip 
enddo 
use "C:\Informes\principal.dbf"
append from "C:\Informes\borrador.dbf"
 return &&fin 
 function siExiste(xcodigo_cliente) 
use "C:\Informes\principal.dbf" 
locate for codigo_cliente=xcodigo_cliente 
if found() 
xRet = .t. 
else 
xRet = .f. 
endif 
return(xRet)