Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave
Try
If IsNumeric(Me.txt_codigo.Text) Then
Dim Trx As New AccesoDatos.Transacciones(False)
Dim Pn As New ReglasN_CarrMate.RN_CarrMate(Me.txt_codigo.Text, Trx.Comand)
Me.txt_codcarre.Text = Pn.CCarrera
Me.txt_codmate.Text = Pn.CMateria
Me.cmb_plan.SelectedValue = Pn.CPlan
Me.txt_nsa.Text = Pn.NivelNsa
Me.cmb_estado.SelectedValue = Pn.Estado
Dim CCa As New ReglasN_Carrera.RN_Carrera(Me.txt_codcarre.Text, Trx.Comand)
Dim CMa As New ReglasN_Materia.RN_materia(Me.txt_codmate.Text, Trx.Comand)
Me.txt_ccar.Text = CCa.CodCarre
Me.txt_desc_carre.Text = CCa.Descripcion
Me.txt_sigla.Text = CMa.Siglas
Me.txt_desc_mate.Text = CMa.Descripcion
Me.btn_adicionar.Enabled = False
Me.btn_eliminar.Enabled = True
Me.btn_modificar.Enabled = True
End If
Catch ex As Exception
MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
End Try
End Sub