Consulta
Publicado por Edwin (31 intervenciones) el 10/07/2010 06:54:59
Hola a todos, tengo un pequeño problema con un formulario, estoy trabajando en un sistemita de matricula y notas y estoy utilizando un combobox para controlar las matriculas, es decir si selecciono el año 2010 tendria que aparecer los datos relacionados a ese año por ejm: curso:2 SEccion:3, MOdalidad: Ciclo.
En cambio si selecciono para el 2011 tendrian que aparecer los datos academicos de ese año por ejm: Curso: 3(por que el año pasado estaba en 2),seccion:4(seccion diferente a la del año pasado), Modalidad:Ciclo.
El codigo que estoy usando es el siguiente:
Evento click del cmbAño
SELECT tabla2
GO top
IF SEEK(ALLTRIM(thisform.combo1.Value))
thisform.combo2.Value=curso
Thisform.combo3.Value=seccion
Thisform.combo4.Value=modalidad
thisform.combo5.Value=jornada
WAIT window"registro Encontrado"nowait
thisform.btnguardar.Enabled=.f.
thisform.btnmodificar.Enabled=.t.
thisform.btneliminar.Enabled=.t.
thisform.btnimprimir.Enabled=.t.
Thisform.btncancelar.Enabled=.t.
ELSE
WAIT window"NO hay Matricula para este Año"nowait
thisform.btnguardar.Enabled=.t.
thisform.btnmodificar.Enabled=.f.
thisform.btneliminar.Enabled=.f.
thisform.btnimprimir.Enabled=.f.
Thisform.btncancelar.Enabled=.t.
endif
En cambio si selecciono para el 2011 tendrian que aparecer los datos academicos de ese año por ejm: Curso: 3(por que el año pasado estaba en 2),seccion:4(seccion diferente a la del año pasado), Modalidad:Ciclo.
El codigo que estoy usando es el siguiente:
Evento click del cmbAño
SELECT tabla2
GO top
IF SEEK(ALLTRIM(thisform.combo1.Value))
thisform.combo2.Value=curso
Thisform.combo3.Value=seccion
Thisform.combo4.Value=modalidad
thisform.combo5.Value=jornada
WAIT window"registro Encontrado"nowait
thisform.btnguardar.Enabled=.f.
thisform.btnmodificar.Enabled=.t.
thisform.btneliminar.Enabled=.t.
thisform.btnimprimir.Enabled=.t.
Thisform.btncancelar.Enabled=.t.
ELSE
WAIT window"NO hay Matricula para este Año"nowait
thisform.btnguardar.Enabled=.t.
thisform.btnmodificar.Enabled=.f.
thisform.btneliminar.Enabled=.f.
thisform.btnimprimir.Enabled=.f.
Thisform.btncancelar.Enabled=.t.
endif
Valora esta pregunta


0