9.  Para continuar, podemos entrar el código necesario para los campos o controles donde el usuario del programa luego tendrá que digitar información. Repetir entonces el paso 5.

Damos un doble Clic sobre el control donde va a ser digitado el código del cliente (INPUTE 200 txt_cliente), seleccionamos el evento * Control Lost Focus, para agregar luego el siguiente código:

CLIEN.CODIGO$=CTRL(GB__SYSGUI,ID_CLIENTE,OBTENER_TEXTO)
IF CVS(CLIEN.CODIGO$,2)="" THEN RETURN
GOSUB VERIFICA_CODIGO

10.  Como acabamos de mencionar el nombre de la rutina VERIFICA_CODIGO, podemos proceder a escribirla de una vez. Para eso abrimos el control de lista Object y seleccionamos --- New Subroutine/Function ---. Nos aparece una ventana Name Subroutine/Function en donde digitamos:

VERIFICA CODIGO

 Damos aceptar y escribimos el siguiente código:

rem ' --------------------------------------------------------
rem ' VERIFICA CODIGO
rem ' --------------------------------------------------------

VERIFICA_CODIGO:

  SQLPREP(SQLCHAN)"SELECT * FROM CLIENTES
:   WHERE CODIGO='"+CLIEN.CODIGO$+"'"
  SQLEXEC(SQLCHAN)
  DIM CLI$:SQLTMPL(SQLCHAN)
  CLI$=SQLFETCH(SQLCHAN,ERR=NUEVO_REGISTRO)
  GOTO DESPLEGAR_REGISTRO

NUEVO_REGISTRO:
  GOSUB LIMPIAR_PANTALLA

return

11.  Dentro de la subrutina anterior estamos mencionando otra subrutina llamada LIMPIAR_PANTALLA. La podemos hacer de una vez y observar que a excepción del campo para la dirección, todos los campos pueden ser limpiados en una misma instrucción. Entonces de nuevo abrimos el control de lista Object, seleccionamos --- New Subroutine/Function --- y cuando nos aparece la ventana Name Subroutine/Function digitamos:

LIMPIAR PANTALLA

Damos aceptar y escribimos:

rem ' --------------------------------------------------------------
rem ' LIMPIAR PANTALLA
rem ' --------------------------------------------------------------

LIMPIAR_PANTALLA:

Print (GB__SYSGUI)'CLRTITLE'(ID_NOMBRE,ID_TELEFONO,ID_FECHA_ING,ID_LIMITE)
Print (GB__SYSGUI)'TXCLR'(ID_DIRECCION)

Return