Tecnico En Computacion
opt1=.T.
opt2=.F.
THISFORM.Text1.ENABLED= .T.
THISFORM.Text2.enabled= .T.
THISFORM.Text3.enabled= .T.
THISFORM.Text4.ENABLED= .T.
THISFORM.Text5.enabled= .T.THISFORM.Text1.Value=""
THISFORM.Text2.value=""
THISFORM.Text3.value=""
THISFORM.Text4.value=""
THISFORM.Text5.value=""
thisform.text1.SetFocus
guardar
IF opt1=.t.
IF EMPTY(thisform.text1.Value)messagebox["El codigo curso no debe estar vacio"]
thisform.text1.SetFocus
ELSE
IF EMPTY(thisform.text2.Value)
messagebox["El codigo no debe estar vacia"]
thisform.text2.SetFocusELSE
IF EMPTY(thisform.text3.Value)
messagebox["La modalidadno debe estar vacia"]
thisform.text3.SetFocus
ELSE
SELECT cursos
SET ORDER TO COD_CURSO && COD_CURSO
SEEKALLTRIM(thisform.text1.Value)
IF FOUND()
messagebox["Este usuario ya existe"]
thisform.text1.SetFocus
thisform.text1.Value=""
ELSE
APPEND BLANK
replace cod_curso WITHLOWER(thisform.text1.Value)
replace curso WITH lower (thisform.text2.Value)
replace modalidad WITH thisform.text3.Value
replace jornada WITH lower (thisform.text4.Value)
replace seccion WITHthisform.text5.Value
MESSAGEBOX["Registro Almacenado"]
thisform.text1.Value =""
thisform.text2.Value =""
thisform.text3.Value =""
thisform.text4.Value =""
thisform.text5.Value=""
THISFORM.TEXT1.Enabled =.F.
THISFORM.TEXT2.Enabled =.F.
THISFORM.TEXT3.Enabled =.F.
THISFORM.TEXT4.Enabled =.F.
THISFORM.TEXT5.Enabled =.F.
ENDIF
ENDIF
ENDIF
ENDIFENDIF
IF OPT2=.T.
IF EMPTY(thisform.text1.Value)
messagebox["El codigo curso no debe estar vacio"]
thisform.text1.SetFocus
ELSE
IF EMPTY(thisform.text2.Value)
messagebox["El curso nodebe estar vacia"]
thisform.text2.SetFocus
ELSE
IF EMPTY(thisform.text3.Value)
messagebox["La modalidad no debe estar vacia"]
thisform.text3.SetFocus
ELSE
replace cod_curso...
Regístrate para leer el documento completo.