
validar los campos Cargos: Responsable o Ayudante y la Materia codigo de 100 a 500
Publicado por Marcelo (4 intervenciones) el 31/07/2021 21:17:42
SELECT docentes
SET ORDER TO dni
SEEK thisform.text1.value
IF FOUND()
op=2
WAIT WINDOW " Estos datos ya fueron cargados "
thisform.text2.value=docentes.legajo
thisform.text3.value=docentes.apellido
thisform.text4.value=docentes.nombre
thisform.text5.value=docentes.fnac
thisform.text6.value=docentes.fingreso
thisform.text7.value=docentes.cargo
thisform.text8.value=docentes.materia
thisform.Refresh
thisform.text2.GotFocus
ELSE
op=1
WAIT WINDOW "Los datos no fueron cargados"
thisform.text2.value=SPACE(8)
thisform.text3.value=SPACE(15)
thisform.text4.value=SPACE(15)
thisform.text5.value=DATE(2021,07,27)
thisform.text6.value=DATE(2021,07,27)
thisform.text7.value=SPACE(15)
thisform.text8.value=0
thisform.Refresh
thisform.text2.gotfocus
ENDIF
SET ORDER TO dni
SEEK thisform.text1.value
IF FOUND()
op=2
WAIT WINDOW " Estos datos ya fueron cargados "
thisform.text2.value=docentes.legajo
thisform.text3.value=docentes.apellido
thisform.text4.value=docentes.nombre
thisform.text5.value=docentes.fnac
thisform.text6.value=docentes.fingreso
thisform.text7.value=docentes.cargo
thisform.text8.value=docentes.materia
thisform.Refresh
thisform.text2.GotFocus
ELSE
op=1
WAIT WINDOW "Los datos no fueron cargados"
thisform.text2.value=SPACE(8)
thisform.text3.value=SPACE(15)
thisform.text4.value=SPACE(15)
thisform.text5.value=DATE(2021,07,27)
thisform.text6.value=DATE(2021,07,27)
thisform.text7.value=SPACE(15)
thisform.text8.value=0
thisform.Refresh
thisform.text2.gotfocus
ENDIF
Valora esta pregunta


0