Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsGenerales.vb

@@ -117,7 +117,7 @@ Public Class ClsGenerales
                 SqlAdapter.Fill(Data)
 
             Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                OnError("Ocurrió un error registrar el cierre de conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End Try
             CveConexion = 0
         End If

OS/Asignaciones.aspx

@@ -155,8 +155,8 @@
                                     <span class="caption-subject bold uppercase">Ordenes Sin Asignar</span>
 
                                     <div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;">
-                                        <asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" DataValueField="CveUsuario"></asp:DropDownList>
-                                        <asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" />
+                                        <asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" Visible="true" DataValueField="CveUsuario"></asp:DropDownList>
+                                        <asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" Visible="true" />
                                     </div>
                                 </div>
                                 <div class="actions">

OS/Asignaciones.aspx.vb

@@ -48,6 +48,7 @@ Partial Class OS_Asignaciones
                     BtnAsignar.Visible = False
                 End If
             End If
+            ObjEstatusPermisos.Dispose()
         End If
     End Sub
 

OS/CatEstatusOrdenServicio.aspx.vb

@@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio
     Protected Sub CargaGridEstatusUsuarios()
         GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         GvEstatusUsuarios.DataBind()
-        UPPEmp.Update()
+        'UPPEmp.Update()
     End Sub
 
     Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click

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)