|
12. Dentro del código digitado en el paso 10
también mencionamos otra rutina llamada DESPLEGAR_REGISTRO, la cual cumple con
la función de pasar los datos del registro a los controles de la forma. Abramos
el control de lista Object, seleccionemos --- New Subroutine/Function
---, entramos a la ventana Name Subroutine/Function y digitamos:
DESPLEGAR REGISTRO
Damos aceptar y digitamos:
rem ' -----------------------------------------------------------------
rem ' DESPLEGAR REGISTRO
rem ' -----------------------------------------------------------------
DESPLEGAR_REGISTRO:
GOSUB LIMPIAR_PANTALLA
PRINT(GB__SYSGUI)'TITLE'(ID_CLIENTE,CLI.CODIGO$)
PRINT(GB__SYSGUI)'TITLE'(ID_NOMBRE,CLI.NOMBRE$)
PRINT(GB__SYSGUI)'TXADD'(ID_DIRECCION,-1,CLI.DIRECCION$)
PRINT(GB__SYSGUI)'TITLE'(ID_TELEFONO,CLI.TELEFONO$)
PRINT(GB__SYSGUI)'TITLE'(ID_FECHA_ING,DATE(CLI.FECHA_ING:"%Dz%Mz%Yl"))
PRINT(GB__SYSGUI)'TITLE'(ID_LIMITE,STR(CLI.LIMITE_CR))
return
13. El siguiente campo que podemos controlar
es el objeto donde se digitará o seleccionará el nombre del cliente (List Edit
201 lst_Nombre). Repetimos el paso 5, damos un doble Clic sobre ese control
y seleccionamos el evento * List Selection, para agregar luego
el siguiente código:
Se puede decir que hasta aquí hemos entrado el código necesario para
controlar los eventos sobre los campos en donde luego va a ser puesta la información
de los clientes. Sobre este contexto se nos está quedando por programar los
eventos para los botones colocados en la parte superior izquierda de la pantalla,
así como también
rem ' Notify Event - List Edit Control - List Selection
NOMBRE$=CTRL(GB__SYSGUI,ID_NOMBRE,OBTENER_TEXTO)
if CVS(NOMBRE$,2)="" then RETURN
CLIEN.CODIGO$=NOMBRE$(LEN(CLIEN.NOMBRE$)+2)
GOSUB VERIFICA_CODIGO
14. nos falta el código para las diferentes opciones
de menú que indicamos desde el ResBuilder.
15. Variemos un poco la forma de elegir los objetos
a programar y hagamos Clic sobre la caja de lista llamada Control:, seleccionemos
el evento Menu Item 11 Nuevo y agreguemos el siguiente código:
PRINT(GB__SYSGUI)'CLRTITLE'(ID_CLIENTE)
GOSUB LIMPIAR_PANTALLA
PRINT (GB__SYSGUI)'FOCUS'(ID_CLIENTE)
1 6. Siempre sobre la caja de lista llamada Control:,
escojamos el evento Menu Item 12 Grabar y agreguemos:
GOTO GRABAR
17. Ahí mismo seleccionemos ahora Menu Item 13 Eliminar y agreguemos:
GOTO ELIMINAR
|
