Campeonato de Futbol de Primera de Argentina

/* Consultar los registros de una con los equipos de Futbool de la */ /* primera division del Futbool Argentino */ /* La tabla existe en la biblioteca de datos con el nombre FP_EQUIPOS */ /* y la estructura de la misma es: */ /* EQP_CODIGO Chr(3) */ /* EQP_NOMBRE Chr(30) */ DefVar &EQP_CODIGO *Chr 3 *None *Local 1 DefVar &EQP_NOMBRE *Chr 30 *None *Local 1 DefVar &TxtAcci *Chr 20 *None *Local 1 DoUntil &*KeyFun = "*F12" ExSr FmaPanta01 ExeFmt *DatVar 07 02 IngEquipo *NONE *NONE Validar *NONE *NONE ExSr FmaPanta02 ExeFmt *DatVar 14 02 DatEquipo *NONE *NONE *NONE *NONE *NONE ExeMsg "Pulse intro x efectuar otra consulta o F12 para finalizar." + 21 02 *1 *NONE EndDU BegSr FmaPanta01 Eval &TxtAcci = " (E01 a E20) " InzPanVar "Consulta de Equipos de Futbool" FldPanVar 01 *U "Codigo " &EQP_CODIGO " " &TxtAcci EndSr BegSr FmaPanta02 InzPanVar "Consulta de Equipos de Futbool - Datos " FldPanVar 01 *V "Codigo " &EQP_CODIGO " " *NONE FldPanVar 03 *V "Nombre " &EQP_NOMBRE " " *NONE EndSr BegSr Validar /* Buscar codigo de equipo informado */ Eval &HdRtrn = 0 ExSr LeeCodEqui Select When &*SqlCod2 = 100 Eval &HdRtrn = 99999 Eval &*ERRTXT = "No existe el codigo indicado (&EQP_CODIGO) " EndWh EndSr BegSr LeeCodEqui /* Leer codigo de equipo */ SqlLee *DYN 9999 *NONE + "Select EQP_CODIGO, EQP_NOMBRE + From FP_EQUIPOS + Where EQP_CODIGO = '&EQP_CODIGO' " EndSr