OS guardar en historial el cambio de técnico

OS/OrdenesServicios.aspx.vb

@@ -1866,7 +1866,7 @@ Partial Class OS_OrdenesServicios
             GvHistorial.DataSource = Nothing
         End If
         GvHistorial.DataBind()
-        ObjGral.Dispose()
+        UpHistorial.Update()
     End Sub
 
 #End Region
@@ -3536,24 +3536,40 @@ Partial Class OS_OrdenesServicios
     End Class
     Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs)
 
-        Dim ObjOs As New ClsOS
-        Dim ProcesoOk As Boolean = True
+
 
         If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then
+
+            Dim ObjOS As New ClsOS
+            ObjOS.IniciaTransacSQL()
+
+            Dim ProcesoOk As Boolean = True
+
             For Each GvRow As GridViewRow In GvPS.Rows
-                If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then
+                If Not ObjOS.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                     ProcesoOk = False
-                    Alert($"Se presento un error al actualizar el técnico.")
                     Exit For
                 End If
             Next
+
             If ProcesoOk Then
-                Alert($"Técnico actualizado correctamenrte  a {DdlUsuarioAtendio.SelectedItem.Text}.")
+                ObjOS.Commit()
+            Else
+                ObjOS.RollBack()
             End If
+
+            ObjOS.Dispose()
+
+            If ProcesoOk Then
+                Alert($"Se presento un error al actualizar el técnico.")
+                CargaHistorial()
+            End If
+
         Else
             Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia)
         End If
-        ObjOs.Dispose()
+
+
 
     End Sub