eFacturas registrar compras

RH/CatAsistenciasInasistencias.aspx.vb

@@ -70,6 +70,7 @@ Partial Class RH_CatAsistenciasInasistencias
         AplicaAguinaldo.Checked = False
         AplicaUtilidades.Checked = False
         TipoTxt.Text = ""
+        TxtTipoCorto.Text = ""
         UpModalTiposD.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
 
@@ -90,7 +91,7 @@ Partial Class RH_CatAsistenciasInasistencias
 
 
         If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac) Then
+                                                                   chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac, TxtTipoCorto.Text) Then
             TipoTxt.Text = ""
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
@@ -151,6 +152,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
     Protected Sub GvDatos_RowUpdating(sender As Object, e As EventArgs) Handles BtnEditarTiposDModal.Click '(Leer primero "GvDatos_RowEditing")Se manda la informacion a un procedmiento que hace la actualizacion 
         Dim ObjAsistenciasInasistencias As New ClsRH
         Dim Tipo As String = TipoTxt.Text.Trim
+        Dim TipoCorto As String = TxtTipoCorto.Text.Trim
         Dim Estatus As Boolean = ChkEstatus.Checked
         Dim ckAplicaFalta As Boolean = Not AplicaFalta.Checked
         Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked
@@ -173,7 +175,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
 
         If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
                     chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble,
-                    aplicaPrimaVac) Then
+                    aplicaPrimaVac, TxtTipoCorto.Text) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) = Nothing