Foxpro

Hola Buenas Tardes
Tengo este código, es un registro de usuarios, donde nada más le pongo en el texbox el numero de usauario me pone el nombre y de más datos los cual los extraego de una tabla temporal, todo esto está dentro del valid.
Mi pregunta es si yo lo quisiera hacer manualmente.
¿Dónde pondría este código?
thisform.pageframe1.page1.txtNombre.values=tablam.nombre
________________________________________________________________________-
TengPUBLIC v_otro
LOCAL v_rec,v_bus
IF this.Value = 0
  RETURN .t.
ENDIF
 v_bus = This.Value
 ********
 IF THISFORM.NEWreg = 0
  SELECT * from socios WHERE numero = v_bus INTO CURSOR c1
  SET SAFETY OFF
  SELECT tablam
  ZAP
  SET SAFETY on
  IF Thisform.newreg=0
   SELECT c1
   SCAN
    scatter memo memvar
    INSERT INTO tablam FROM MEMVAR
   ENDSCAN
  Endif
Endif
 *********
 SELECT tablam
 SET FILTER TO numero = v_bus
 GO TOP
 IF EOF()
  IF v_bus<100001  
   **-*-*-*-*-***&& Se agrego 1/03/07 para que se puedan generar los clientes si no existen
   SELECT * from sucursales WHERE NOT DELETED() INTO CURSOR crsucursal
   vcansuc=_tally
   SELECT tablam
   IF vcansuc>1
    =MENSAJE("No existe el número: "+STR(v_bus))
    SET FILTER TO
    GO TOP
    this.Value = tablam.numero
    THISFORM.Refresh
    RETURN .f.
   ENDIF
   IF Thisform.botones1.agregar.Enabled = .T.
    IF ok("No existe el número:" + " " + TRANSFORM(v_bus)+"  Desea Generarlo?",2)
        v_otro = v_bus
     SET FILTER TO
     thisform.newreg = 2
     RETURN .t.
    ENDIF
   ELSE
    =mensaje("No existe el número:" + " " + TRANSFORM(v_bus))
   ENDIF
   **-*-*-*-*-***
   && Se comentarizo 1/03/07
*!*    =MENSAJE("No existe el número:"+STR(v_bus))
*!*    SET FILTER TO
*!*    GO TOP
*!*    this.Value = tablam.numero
*!*    THISFORM.Refresh
*!*    RETURN .f.
  ELSE 
           v_num=VAL(left(STR(v_bus),5))
    IF v_num<>vg_suc
      =mensaje("No puede generar un Socio de otra sucursal")
      RETURN
    ENDIF
   IF Thisform.botones1.agregar.Enabled= .T.
    IF ok("No existe el número:" + " " + TRANSFORM(v_bus)+"  Desea Generarlo?",2)
        v_otro = v_bus
     SET FILTER TO
     Thisform.newreg = 2
     RETURN .t.
    ENDIF
   ELSE
       =mensaje("No existe el número:" + " " + TRANSFORM(v_bus))
       ENDIF  
  ENDIF    
  SET FILTER TO
  GO TOP
  This.Value = tablam.numero
  THISFORM.Refresh
  RETURN .f.
 ENDIF
 Thisform.refresh
SET FILTER TO
Thisform.text1.Value = tablam.numero
Thisform.refresh
***o una  pregunta  espero me  la puedas  contestar