diff --git a/OC/CatEstatus.aspx b/OC/CatEstatus.aspx
index 7cf7aaf30..a60b5d7dc 100644
--- a/OC/CatEstatus.aspx
+++ b/OC/CatEstatus.aspx
@@ -19,7 +19,6 @@
-
diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx
index 830601160..4d4360e96 100644
--- a/OS/CatEstatusOrdenServicio.aspx
+++ b/OS/CatEstatusOrdenServicio.aspx
@@ -85,29 +85,290 @@
-
-
-
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Estatus
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<%--POPUP AGREGAR--%>
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 424dcde23..2d6a5a6e3 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -26,14 +26,31 @@ Partial Class OS_CatEstatusOrdenServicio
ViewState("CveEstatuOS") = value
End Set
End Property
+ Private Property DTEstatusUsuarios As DataTable
+ Get
+ Return CType(ViewState("DTEstatusUsuarios"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DTEstatusUsuarios") = value
+ End Set
+ End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+ CreaGrid("Req")
+ CreaGrid("OC")
+ CargaGridEstatusUsuarios()
+ ViewState("Orden") = ""
+ 'ViewState("TipoSeleccionado") = DdlTipo.SelectedValue
+
CveEstatuOS = -1
CargaDatos()
+ 'CargaProyectos()
+ CargaUsuarios()
+
End If
End Sub
@@ -154,4 +171,128 @@ Partial Class OS_CatEstatusOrdenServicio
End If
End Sub
#End Region
+
+#Region "Configuracion"
+ Protected Sub ibOpciones1_Click(sender As Object, e As ImageClickEventArgs)
+ Dim imgBtn As ImageButton = DirectCast(sender, System.Web.UI.WebControls.ImageButton)
+
+ ddlSuperior.Items.Clear()
+
+ If imgBtn.CommandArgument <> "" Then
+ 'chkMostrarLimites.Visible = If(GlobalDTOCEstatus.FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, False, True)
+ chkMostrarLimites.Style("display") = If(GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, "none", "inline")
+
+
+ 'ddlSuperior.DataSource = DTEstatusUsuarios.FiltraParametros(String.Format("CveEstatus = {0}", imgBtn.CommandArgument), "Nombre DESC")
+ ddlSuperior.DataBind()
+ ddlSuperior.Items.Insert(0, New ListItem("Todos los Superiores", "-1"))
+ Try
+ ddlSuperior.SelectedValue = hdnCveSuperior.Value
+ Catch ex As Exception
+
+ End Try
+ tblSuperior.Visible = True
+ Else
+ tblSuperior.Visible = False
+ End If
+
+ UPSuperior.Update()
+ UPPEmp.Update()
+ RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();")
+ End Sub
+ Private Sub CreaGrid(Tipo As String)
+ Dim i As Integer = 1
+
+ For Each Row As DataRow In GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).Rows
+
+ GvEstatusUsuariosREQ.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper
+ GvEstatusUsuariosREQ.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString
+
+ i += 1
+ Next
+
+ While i <= 10
+ GvEstatusUsuariosREQ.Columns(i).Visible = False
+ i += 1
+ End While
+ End Sub
+
+ Protected Sub CargaGridEstatusUsuarios()
+ GvEstatusUsuariosREQ.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ GvEstatusUsuariosREQ.DataBind()
+ UPPEmp.Update()
+ End Sub
+
+ Public Sub CargaUsuarios()
+ ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+ ddlSuperior.DataBind()
+ End Sub
+
+ Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click
+ Dim objEstatusOC As New ClsOS
+ objEstatusOC.IniciaTransacSQL()
+ Dim HuboErrores As Boolean = False
+ Dim CveSubProyecto = 59
+
+
+ For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
+
+ Dim r As Integer = 1
+ For i = 0 To Row.Cells.Count - 1
+
+ Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuariosREQ.Columns(i).FooterText), GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero, 0)
+
+ If CveEstatus > 0 Then
+
+ If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
+ 'Eliminar el registro existente
+ If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then
+ HuboErrores = True
+ Exit For
+ End If
+ ElseIf Row.FCCheckBox("chkEstatus" + r.ToString).Checked = True Then
+ 'And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero = -1
+ 'Guardado masivo cuando sea SubProyecto "Todos"
+ If CveSubProyecto = -2 Then
+ For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
+ If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
+ HuboErrores = True
+ Exit For
+ End If
+ Next
+ If HuboErrores Then
+ Exit For
+ End If
+
+ 'Insertar el nuevo registro
+ Else
+ If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
+ HuboErrores = True
+ Exit For
+ End If
+ End If
+
+ End If
+ r += 1
+ End If
+ Next
+
+ 'Si tubo algun error terminamos el proceso (FOR)
+ If HuboErrores Then
+ Exit For
+ End If
+ Next
+
+ If Not HuboErrores Then
+ objEstatusOC.Commit()
+ Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion)
+ Else
+ objEstatusOC.RollBack()
+ Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar", TipoMensaje.MsgError)
+ End If
+
+ objEstatusOC.Dispose()
+ CargaGridEstatusUsuarios()
+ End Sub
+#End Region
End Class
