FoxPro/Visual FoxPro - Sistema para Restaurantes

Hola Chavos!
Tengo una pregunta, necesito un poco de asesoria;
¿Para poder consultar la descripcion de un Producto por medio de un Codigo?

Espero me puedan ayudar y Gracias...
PD. (necesito la rutina)

Hola Karina:

Seria algo asi como

Tabla Productos y el Indice se llama idxCodigo
cCodigo C 10 Seria el codigo del producto
cDescrip C 50 Seria la descripcion del producto

Select Productos
Set order to idxCodigo
If Seek("Codigo del producto a buscar")
lcdescrip = cDescrip
else
lcDescrip = 'No existe'
endif

messagebox(lcDescrip)

Prueba y me cuentas

Saludos