Campeonato de Futbol de Primera de Argentina
Versión 3 del SubFile
A partir del programa anterior agregamos un nivel mós de dificultad al trabajar con un SubFile dependiente. Esto es, a partir del Subfile que nos muestra los equipos de Primera División, se definieron 2 opciones a ejecutar.
- 01 - Detalle
- 02 - Partidos disputados
Nos enfocamos sobre la opción 02 porque la opción 01 ya fue analizada en el Ejemplo07.
El código fuente es muy similar al Ejemplo 6 agregadas las rutinas de ejecución de las opciones definidas.
El código es el siguiente:
Evento 0000
Evento 0001
En éste evento incluiremos toda la lógica necesaria para que el subfile trabaje como necesitamos. El Código es el siguiente:
En la rutina de Definición del SubFile (RtnaDefSfl) agregamos la línea :
SflOpc "01" "Detalle " *NONE
que nos permite definir las distintas opciones que podrá ejecutar el usuario, en este caso la opción 01
Por supuesto tenemos que programar la acción que ejecutaró al ingresar el valor 01, y lo programamos en la rutina RtnaProcSFL. En este caso cuando recorre el SubFile y encuentra el valor 01 en la columna de Op, ejecuta la rutina FichaDeta
En la rutina FichaDeta se ejecuta una sentencia SqlLee y se pasa el valor del campo clave recuperado del SubFile (&EQP_CODIGO), como resultado tendremos la información del registro, y posteriormente se ejecutará la rutina FmaPanta01 que visualizará los datos correspondientes.
La ejecución será la siguiente :