Portada
Banner
Portada Foros Manuales Enlaces Email
clear1x1.gif clear1x1.gif clear1x1.gif
clear1x1.gif
clear1x1.gif

Portada
Foros
Manuales
Enlaces
Distribuidores
Precios
Sugerencias

Contacto

 

clear1x1.gif clear1x1.gif
 GuiBuilder - Manual del Usuario (Parte 44/55)
Primero Previo Próximo Último

32.  El código anterior nos cargaría en memoria la lista de nombres requeridos para seleccionar el que interese al usuario. Para esto ahora debemos entrar el código necesario para el Control: List Box 102 List Box, el cual debemos seleccionar arriba junto al Event: * Clicked on List.

rem ' Click in list box

Print (GB__SYSGUI)'CONTEXT'(GB__WIN.Frm_Consulta)

NOMBRE$=CTRL(GB__SYSGUI,102,OBTENER_TEXTO)
if CVS(NOMBRE$,2)="" then RETURN

CLIEN.CODIGO$=NOMBRE$(LEN(CLIEN.NOMBRE$)+2)

Print (GB__SYSGUI)'HIDE'(0)

Print (GB__SYSGUI)'CONTEXT'(GB__WIN.frm_Ejercicio)
GOSUB VERIFICA_CODIGO

33.  Ya casi terminamos. Solo nos falta suministrar el código necesario para que una serie de eventos que puedan ocurrir, sean notificados al usuario del programa. Hagamos clic en la cajita Object y digitamos una nueva subrutina llamada Mensajes

rem ' ----------------------------------------------------------------
rem ' MENSAJES
rem ' ----------------------------------------------------------------

MENSAJES:

fecha_incorrecta:                                                         
LET m=MSGBOX("La fecha es incorrecta, debe utilizar el formato DD/MM/AAAA
: para "+$0A$+"el registro de fechas en el programa",16,"Error Fecha")                                                                         
PRINT (GB_SYSGUI)'FOCUS'(id_fecha)                                           
return                                                       

REM ------------------------------------                                  
falta_codigo:                                                             
LET m=MSGBOX("No ha digitado el codigo de cliente",16,"Codigo")           
PRINT (GB_SYSGUI)'FOCUS'(id_cliente)                         
return                                                       

REM ------------------------------------                                  
falta_nombre:                                                             
LET m=MSGBOX("No ha digitado el nombre del cliente",16,"Nombre")          
PRINT (GB_SYSGUI)'FOCUS'(id_nombre)                                          
return

REM ------------------------------------                                  
impresora_ocupada:
LET m=MSGBOX("La impresora esta ocupada",16,"Error en Impresora")
return

Con lo anterior, podemos decir que el programa está terminado y podemos proceder a probarlo. Entre clientes nuevos, luego hágales cambios, elimine registros y pruebe los dos tipos de búsqueda, de los cuales se puede decir que el segundo es el que se recomienda para casos en la cantidad de registros sea masiva, ya que con la primer consulta el programa constantemente está recreando la lista de nombres y eso equivale a leer o barrer todos los registros en la tabla de clientes.

Sepa que este programa perfectamente le puede servir de machote para crear otros similares.

Primero Previo Próximo Último

Portada -- Foros -- Manuales -- Enlaces-- Sugerencias
Para comentarios: webmaster@essnet.com

clear1x1.gif
clear1x1.gif
clear1x1.gif
Portada Email Foros