RH/Personal.aspx.vb

@@ -1375,32 +1375,33 @@ Partial Class RH_Personal
     End Sub
 
     Protected Sub CargaGvAsistencias(Optional Orden As String = "")
-        Dim objpersonal As New ClsRH
-        Dim CveCliente As Integer = DdlClienteAsistenciaC.SelectedValue.ToEntero()
-        If CveCliente <= 0 Then
-            CveCliente = -1
-        End If
-        If objpersonal.GetAsistencias(CvePersonal, CveCliente, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), DdlTurno.SelectedValue.ToEntero(), -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
-            GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
-        Else
-            GVAsistencia.DataSource = Nothing
-        End If
-        objpersonal.Dispose()
+        Using objpersonal As New ClsRH
+
+            Dim CveCliente As Integer = DdlClienteAsistenciaC.SelectedValue.ToEntero()
+            If CveCliente <= 0 Then
+                CveCliente = -1
+            End If
+            If objpersonal.GetAsistencias(CvePersonal, CveCliente, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), DdlTurno.SelectedValue.ToEntero(), -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+                GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
+            Else
+                GVAsistencia.DataSource = Nothing
+            End If
+        End Using
         GVAsistencia.DataBind()
         UpDatos.Update()
     End Sub
     Protected Sub LbGuardarAsistencia_Click(sender As Object, e As System.EventArgs) Handles LbGuardarAsistencia.Click
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.AddAsistencia(CvePersonal, DdlClienteAsistenciaA.SelectedValue.ToEntero(), DdlSubProyectoAsistenciasA.SelectedValue.ToEntero(), TxtFechaAsistencia.Text.Trim.ToDate,
+        Using ObjPersonal As New ClsRH()
+            If ObjPersonal.AddAsistencia(CvePersonal, DdlClienteAsistenciaA.SelectedValue.ToEntero(), DdlSubProyectoAsistenciasA.SelectedValue.ToEntero(), TxtFechaAsistencia.Text.Trim.ToDate,
             DdlTipoAsistencias.SelectedValue.ToEntero(), TxtPorPago.Text.Trim.ToDouble, TxtHorasDobles.Text.Trim.ToDouble,
           TxtHorasTriples.Text.Trim.ToDouble, DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim,
           UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
 
-            Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
-            BtnConsultarAsistencia_Click(sender, e)
-        End If
+                Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
+                BtnConsultarAsistencia_Click(sender, e)
+            End If
 
-        ObjPersonal.Dispose()
+        End Using
     End Sub
 
     Protected Sub GVAsistencia_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAsistencia.RowDataBound
@@ -1445,29 +1446,30 @@ Partial Class RH_Personal
     End Sub
 
     Protected Sub BtnGuardarAsistenciaCambios_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarAsistenciaCambios.Click
-        Dim ObjPersonal As New ClsRH()
-        ObjPersonal.IniciaTransacSQL()
-        Dim OcurrioError As Boolean = False
+        Using ObjPersonal As New ClsRH()
 
-        For Each Row As GridViewRow In GVAsistencia.Rows
-            If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero(), DdlClienteAsistenciaC.SelectedValue.ToEntero(), DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), Row.FCLiteral("LtlFecha").Text.Trim.ToDate,
-              Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero(), Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble,
-              Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero(), Row.FCTextBox("TxtObservaciones").Text.Trim,
-              UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                OcurrioError = True
-                Exit For
+            ObjPersonal.IniciaTransacSQL()
+            Dim OcurrioError As Boolean = False
+
+            For Each Row As GridViewRow In GVAsistencia.Rows
+                If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero(), DdlClienteAsistenciaC.SelectedValue.ToEntero(), DdlSubProyectoAsistenciasC.SelectedValue.ToEntero(), Row.FCLiteral("LtlFecha").Text.Trim.ToDate,
+                  Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero(), Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble,
+                  Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero(), Row.FCTextBox("TxtObservaciones").Text.Trim,
+                  UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    OcurrioError = True
+                    Exit For
+                End If
+            Next
+
+            If OcurrioError Then
+                ObjPersonal.RollBack()
+                Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
+            Else
+                ObjPersonal.Commit()
+                Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
             End If
-        Next
 
-        If OcurrioError Then
-            ObjPersonal.RollBack()
-            Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
-        Else
-            ObjPersonal.Commit()
-            Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
-        End If
-
-        ObjPersonal.Dispose()
+        End Using
 
         BtnConsultarAsistencia_Click(sender, e)
     End Sub