-activar permiso de edición

OS/OrdenesServicios.aspx.vb

@@ -490,9 +490,12 @@ Partial Class OS_OrdenesServicios
                 BtnGuardar.Visible = False
                 DdlEstatusOS.Enabled = False
             Else
-                BtnGuardar.Visible = False
+                If UsuarioActual.TienePermisoProceso(369) Then ' terminado
+                    BtnGuardar.Visible = True
+                Else
+                    BtnGuardar.Visible = False
+                End If
             End If
-
         End If
     End Sub
 
@@ -1198,27 +1201,27 @@ Partial Class OS_OrdenesServicios
         'ObjEstatusPermisos.Dispose()
 
         'OS Estatus Inicial
-        If tipoEstatus = 1 And UsuarioActual.TienePermisoProceso(366) Then
+        If tipoEstatus = 1 AndAlso UsuarioActual.TienePermisoProceso(366) Then
             Exit Sub
         End If
 
         'OS Estatus Asignación
-        If tipoEstatus = 2 And UsuarioActual.TienePermisoProceso(367) Then
+        If tipoEstatus = 2 AndAlso UsuarioActual.TienePermisoProceso(367) Then
             Exit Sub
         End If
 
         'OS Estatus Proceso
-        If tipoEstatus = 3 And UsuarioActual.TienePermisoProceso(368) Then
+        If tipoEstatus.Contiene(2, 3) AndAlso UsuarioActual.TienePermisoProceso(368) Then
             Exit Sub
         End If
 
         'OS Estatus Terminado
-        If tipoEstatus = 4 And UsuarioActual.TienePermisoProceso(369) Then
+        If tipoEstatus.Contiene(2, 3, 4) AndAlso UsuarioActual.TienePermisoProceso(369) Then
             Exit Sub
         End If
 
         'OS Estatus Cancelada
-        If tipoEstatus = 5 And UsuarioActual.TienePermisoProceso(370) Then
+        If tipoEstatus.Contiene(2, 3, 4, 5) AndAlso UsuarioActual.TienePermisoProceso(370) Then
             Exit Sub
         End If