movimeintos permanentes

RH/CatAsistenciasInasistencias.aspx.vb

@@ -48,6 +48,7 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim ObjAsistenciasInasistencias As New ClsRH
         If ObjAsistenciasInasistencias.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados
+            LnkCargapredefinidos.Visible = ObjAsistenciasInasistencias.DtResultados.Rows.Count = 0
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -258,4 +259,17 @@ Partial Class RH_CatAsistenciasInasistencias
 #End Region
 
 
+
+    Protected Sub LnkCargapredefinidos_Click(sender As Object, e As EventArgs)
+
+        Using objrh As New ClsRH()
+            'objrh.IniciaTransacSQL()
+            If objrh.CargaInicialAsistenciaInasistencia(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                'objrh.Commit()
+            Else
+                'objrh.RollBack()
+            End If
+        End Using
+        CargaDatos()
+    End Sub
 End Class