FoxPro/Visual FoxPro - QUE PASA CON EL INDEXSEEK ?

Tengo una pequeña aplicación de FACTURACION E INVENTARIO.

Pero necesito que el programa controle las existencias de
cada producto en diferentes bodegas.

Para lo cual he concatenado el código de la bodega+el código
del producto.

Ahora el problema está que en la facturación yo pregunto por
medio de un combobox la bodega de la cual se va a descargar
el producto.

Y para saber el producto he colocado otro combo dentro de una grid
que al concatenarlo con el valor del primer combo forma el código A
BUSCAR pero el programa no distingue los productos en las diferentes
bodegas. En éste ultimo combo el ROWSOURCE lo toma de los campos de la Tabla de los Productos sin ningún filtro.

Ejemplo :
01+E0001 && Es un determinado producto en la Bodega UNO.
02+E0001 && Es el mismo producto en la Bodega DOS.

Pero si estoy facturando en la Bodega UNO y el usuario por ERROR coloca el código de la bodega de la bodega DOS el programa NO
lanza el mensaje de : \"El Código NO existe en ésta Bodega !! \"

** INDICE CODPROD=BODEGA+CODPROD **
** CODIGO DE EVENTO VALID EN COMBO DE LA GRID **

SET EXACT ON
IF EMPTY(THIS.VALUE)
WAIT WINDOWS \"El Código No existe o está en Blanco \" NOWAIT
NODEFAULT
RETURN 0
ELSE
SELECT productos
cbusca=ALLTRIM(ThisForm.Combo1.VALUE)+ALLTRIM(THIS.VALUE)
SET ORDER TO codprod
IF INDEXSEEK(cbusca,.F.,\"productos\",\"codprod\")
WAIT WINDOW \"Se ha encontrado el producto\" NOWAIT
This.Parent.Parent.Column2.Text1.VALUE=productos.descripcion
This.Parent.Parent.Column4.Text1.VALUE=produ

Una posibilidad: lo mas seguro es que el codigo existe, pero esta MARCADO COMO BORRADO por eso lo sigue encontrando, pon SET DELETE ON antes de ejecutar el indexseek () y asi ese tipo de registros no son considerados. Por cierto, tu pregunta quedo incompleta por las
limitaciones de este foro, a lo mejor se quedaron ciertos detalles fuera.
Saludos