Campeonato de Futbol de Primera de Argentina
Ahora agregaremos un SubFile o Grid con los equipos ingresados anteriormente y al ejecutar deberó visualizar una pantalla como se muestra abajo
La Herramienta automáticamente definirá los elementos necesarios para poder realizar avance y retroceso de página y también habilita las teclas F21 y F22 que nos permitirá visualizar vistas previamente definidas.
Para programar un subfile es necesario definir 2 eventos:
en el Evento 0000 definimos la invocación al subfile que se escribe en el Evento 0001
Evento 0000
La sentencia "SflCall" contiene los siguientes sintaxis :
| SflCall | NroTrn NroEvnto ModoOperativo Posicionamiento | |
| Parametro1 Parametro2 Parametro3 Parametro4 | ||
| Parametro5 Parametro6 Parametro7 Parametro8 | ||
| Parametro9 |
| Donde | ||||
| NroTrn | = | Nro de Transacción donde se aloja el evento | ||
| NroEvnto | = | Nro de Evento donde se definió la lógica del subfile | ||
| ModoOperativo | = | *Normal | ||
| *View (Sólo visualización) | ||||
| Posicionamiento | = | *First (Posicionarse al comienzo) | ||
| *Last (Posicionarse al final) | ||||
| *Next (Siguiente página) | ||||
| *Previus (Página anterior) | ||||
| Parametro1 al 9 | = | Hasta 9 posibles parámetros que se desee trabajar |
Evento 0001
En éste evento incluiremos toda la lógica necesaria para que el subfile trabaje como necesitamos. El Código es el siguiente:
Para analizar:
DefVar &DtaEquipos *LikeTbl "*LIBL/FP_EQUIPOS" *NONE *LOCAL 1
La sentencia DefVar permite definir las variables que se utilizarán en el evento, y en éste caso se define una estructura de datos DtaEquipos. Con la cláusula *LikeTbl "*LIBL/FP_EQUIPOS" indicamos que debe obtener las definiciones de los campos de la tabla PF_EQUIPOS y crear una variable por cada campo de ésta tabla.
| L1 | Asigna el valor de la variable Título1 |
| L2 | Define la cabecera del SubFile pasandole el contenido de la variable Título1 y Título2, 3 y 4 en blanco |
| L3 | Define el campo clave del SubFile |
| L4 y 5 | Define las columnas que visualizará el SubFile |
| L6 | Define las opciones que el usuario podrá seleccionar en cada registro del SubFile |
Se define un SQL Select con las condiciones necesarias para su proceso
Esta rutina se ejecuta por cada registro seleccionado en el SubFile, y en este caso cuando la opción seleccionada es "01" o "99" ejecuta la rutina "FichaDeta"