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
 Manual para el uso del Grid con GML (Parte 56/56)
Primero Previo Próximo Último

Seleccionemos del botón de lista Object --- New Subroutine/Function ---
Y digitemos el nombre Seccion de Mensajes y digitemos el siguiente código:

rem ' -----------------------------------------------------------------
rem ' Seccion de Mensajes
rem ' -----------------------------------------------------------------

Seccion_de_Mensajes:

Impresora_Ocupada:
Resp=msgbox("La Impresora no esta lista",Info_Icon,"Información")
return

Del botón de lista Object seleccione Form 101 frm_Compras, luego del botón de lista Control seleccione INPUTN 108 Id_Costo y después del botón de lista Event seleccione
Control Lost Focus y adicione el siguiente código:

Gosub Grabar

Luego sigamos el mismo procedimiento para agregar más código de evento a los siguientes controles, del botón de lista Control seleccione el control Tool Button 113 Id_Nuevo y agregue lo siguiente al evento Tool Button Pushed:

Gosub Limpiar_Pantalla

Del botón de lista Control seleccione el control Tool Button 114 Id_Print agregue lo siguiente al evento Tool Button Pushed:

Pchan=unt
Open (Pchan,mode="PREVIEW,COLS=132",err=Impresora_Ocupada)"LP"
Goto Imprimir_Reporte

Del botón de lista Control seleccione el control Tool Button 115 Id_Eliminar agregue lo siguiente al evento Tool Button Pushed:

Print (gb__sysgui)'clrtitle'(Id_Codigo,Id_Descripcion,Id_Cantidad,Id_Costo)

Del botón de lista Control seleccione el control Tool Button 117 Id_Salir agregue lo siguiente al evento Tool Button Pushed:

gb__eoj = true

Del botón de lista Control seleccione Form 101 frm_Compras agregue lo siguiente al evento Window Closed:

gb__eoj = true

Para Finalizar del botón de lista Object selecione End of Job Code y agregue el siguiente código:

rem ' -----------------------------------------------------------------
rem ' EOJ
rem ' -----------------------------------------------------------------

release

Compilemos nuestro programa presionando el botón Build Program y luego corramos el programa presionando el botón Run Program.

Primero Previo Próximo Último

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

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