Ventas Medicas Cambios OS

OS/Asignaciones.aspx.vb

@@ -249,7 +249,7 @@ Partial Class OS_Asignaciones
                         Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero).Rows(0)("Correo").ToString
 
                         If Not TieneError Then
-                            MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado)
+                            MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado, TrasaccionSql:=ObjOS.IniciaTransacSQL)
                         End If
 
 
@@ -279,11 +279,11 @@ Partial Class OS_Asignaciones
         UpOS.Update()
     End Sub
 
-    Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
+    Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String, ByRef TrasaccionSql As SqlClient.SqlTransaction)
 
 
 
-        Dim ObjOS As New ClsOS()
+        Dim ObjOS As New ClsOS(TrasaccionSql)
         Dim params As New List(Of ReportParameter)
         Dim CveFolio = ""
 

OS/RepServicioDomicilio.aspx.vb

@@ -310,8 +310,16 @@ Partial Class OS_RepServicioDomicilio
         DTTecnicos = New DataTable
 
         Dim ObjUsuarios As New ClsSisUsuarios
+
+
+
         If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
+            If UsuarioActual.CveRol = 1 Then
+                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
+            Else
+                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <>  100")
+            End If
+
         End If
         ObjUsuarios.Dispose()