FoxPro/Visual FoxPro - Leer código de barras con celular y pasarlo en un text

*--- InteractiveChange ---

LOCAL lc, lnRecno

SELECT producto

SET ORDER TO CODIGO   && CODIGO

lc = ALLT(THIS.VALUE)

lnRecno = RECNO()

IF producto.codigo >= lc

  IF NOT BOF()

    SKIP -1

  ENDIF

  IF producto.codigo < lc   && debe quedar donde estaba

    IF lnRecno <= RECC()

      GO RECNO()

    ELSE

      GO BOTT

    ENDIF

    RETURN

  ENDIF

  IF NOT EMPTY(ORDER()) && busqueda con indice

    SEEK lc

    THISFORM.text4.Value=codigo

	THISFORM.text5.Value=descripcion

	THISFORM.text10.Value=preciovent

	THISFORM.text9.Value = 0

  ELSE

    GO TOP

    LOCATE REST FOR producto.codigo=lc WHILE producto.codigo <= lc NOOPTIMIZE

    THISFORM.text4.Value=codigo

	THISFORM.text5.Value=descripcion

	THISFORM.text10.Value=preciovent

	THISFORM.text9.Value = 0

  ENDIF

ELSE

    LOCATE REST FOR producto.codigo=lc WHILE producto.codigo <= lc NOOPTIMIZE

    THISFORM.text4.Value=codigo

	THISFORM.text5.Value=descripcion

	THISFORM.text10.Value=preciovent

	THISFORM.text9.Value = 0

ENDIF

IF lnRecno # RECNO()

 *THISFORM.Pageframe1.Page1.grid1.SETFOCUS    && el nombre del TextBox

 THISFORM.text15.SETFOCUS    && el nombre del Grid

ENDIF

RETURN

*--- END InteractiveChange ---