From 159b599f7aa01d555678afe86925850b10510b40 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 25 Sep 2019 18:25:40 -0500 Subject: [PATCH] checkpoint de los puntos principales con implementar los estatus de orden servicio --- App_Code/ClsGenerales.vb | 2 +- OS/Asignaciones.aspx | 4 +- OS/Asignaciones.aspx.vb | 1 + OS/CatEstatusOrdenServicio.aspx.vb | 2 +- OS/OrdenesServicios.aspx.vb | 68 ++++++++++++++++++------------ 5 files changed, 47 insertions(+), 30 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 53081a2e4..86122f871 100644 --- a/App_Code/ClsGenerales.vb +++ b/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 diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index 9d347427f..ea189147a 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -155,8 +155,8 @@ Ordenes Sin Asignar
- - + +
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index f3cbf201b..f54cc4ea9 100644 --- a/OS/Asignaciones.aspx.vb +++ b/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 diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index cead5cc0d..71ccfd3a3 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/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 diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index a86041d35..19c6aa3e4 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/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)