checkpoint de los puntos principales con implementar los estatus de orden servicio

OS/OrdenesServicios.aspx.vb

@@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios
             ViewState("TmpDTCuentaEquipo") = value
         End Set
     End Property
+    Private Property EstatusOSDelUsuario As DataTable
+        Get
+            Return CType(ViewState("EstatusOSDelUsuario"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("EstatusOSDelUsuario") = value
+        End Set
+    End Property
     Private Property MensajeAlert As StringBuilder
         Get
             Return CType(ViewState("MensajeAlert"), StringBuilder)
@@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios
             CreaDtSolicitarMateriales()
             CveSub = -1
             'Carga estatus
+            Dim ObjEstatusPermisos As New ClsOS
+            If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados
+                Dim PermisoEstatus As New DataTable
+                PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
+                If PermisoEstatus.Rows.Count = 0 Then
+                    UpGuardar.Visible = False
+                End If
+            End If
+            ObjEstatusPermisos.Dispose()
             CargaEstatusOS(2)
 
             'Carga cliente
@@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios
             'Carga OS
             If CveOS > 0 Then
                 CargaDatos()
-                PermisosSegunEstatus()
+                'PermisosSegunEstatus()
                 CargaDetalles()
                 CargaMateriales()
 
@@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios
             hdnEsThickbox.Value = "S"
             hdnClientIDLink.Value = "NoDefinido"
 
-            Dim ObjEstatusPermisos As New ClsOS
-            If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                Dim PermisoEstatus As New DataTable
-                PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
-                If PermisoEstatus.Rows.Count = 0 Then
-                    UpGuardar.Visible = False
-                End If
-            End If
-            ObjEstatusPermisos.Dispose()
         End If
 
     End Sub
@@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios
         TmpDT.AcceptChanges()
     End Sub
     Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged
-        Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "CveEstatusOrdenServicio ASC")
+        Dim tipoDeEstatusSeleccionado As String = EstatusOSDelUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)).Item("TipoEstatusTexto").ToString
 
-        Select Case TipoEstatus.ToEntero
-            Case 2
+        Select Case tipoDeEstatusSeleccionado
+            Case "Inicial"
                 'Proceso
 
-            Case 3
+            Case "Terminado"
                 'Terminada
                 'Checar que todos los detalles esten terminados para poder cambiar a terminada
                 If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then
@@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios
                     'Regresar a estatus Atendiendo
                     'DdlEstatusOS.SelectedValue = "2"              
                 End If
-            Case 4
-                'Cancelada
-            Case 5
-                'Entregada
-                Guardar(True)
+                '    Case 4
+                '        'Cancelada
+                '    Case 5
+                '        'Entregada
+                '        Guardar(True)
+            Case "Cancelada"
+                Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString
+                DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo
+
+                'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo
         End Select
 
-        'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
-        PermisosSegunEstatus()
+        ''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
+        'PermisosSegunEstatus()
 
-        GvPS.DataSource = TmpDT
-        GvPS.DataBind()
+        'GvPS.DataSource = TmpDT
+        'GvPS.DataBind()
     End Sub
 #End Region
 
@@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios
     End Sub
     Private Sub CargaEstatusOS(ValorSeleccionado As Integer)
         DdlEstatusOS.Items.Clear()
-        DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
+        DdlEstatusOS.DataSource = EstatusOSDelUsuario
         DdlEstatusOS.DataBind()
-        DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC")
+        DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
     End Sub
     Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
         Objeto.Items.Clear()
@@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios
 
                     Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero
 
-                    If DetallesPendientes = 0 Then
+                    Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
+
+                    If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then
                         'Se estatus de OS a  TERMINADO                        
                         DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
                         DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)