Limpieza masiva Centros de costo
-Se unificó todo el comporatmiento de centros de costo en ClsPaginas -Se unificó la carga de subproyectos en ClsPaginas
This commit is contained in:
MLopez
@@ -86,12 +86,12 @@
|
||||
<div class="row">
|
||||
<label class="col-md-1">Proyecto: </label>
|
||||
<div class="col-md-2" id="DivProyecto" runat="server">
|
||||
<asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
|
||||
<asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
|
||||
<asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
|
||||
<div class="col-md-2" id="DivSubProyecto" runat="server">
|
||||
<asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
|
||||
<asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -68,7 +68,7 @@ Partial Class OC_CatEstatus
|
||||
ViewState("TipoSeleccionado") = DdlTipo.SelectedValue
|
||||
CargaDatos()
|
||||
CargaEstatus()
|
||||
CargaProyectos()
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
CargaUsuarios()
|
||||
|
||||
'SOLO MUESTRA SUBPROYECTO
|
||||
@@ -76,23 +76,17 @@ Partial Class OC_CatEstatus
|
||||
'TdProyecto.Visible = False
|
||||
'TdSubProyectoTitulo.Visible = False
|
||||
|
||||
DivProyecto.Visible = False
|
||||
LblSubproyecto.Visible = False
|
||||
|
||||
|
||||
CboSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
|
||||
CboSubProyecto.DataBind()
|
||||
CboSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty)
|
||||
'DivProyecto.Visible = False
|
||||
'LblSubProyecto.Visible = False
|
||||
|
||||
DdlSubProyecto_SelectedIndexChanged(DdlSubProyecto, EventArgs.Empty)
|
||||
|
||||
chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();")
|
||||
MaintainScrollPositionOnPostBack = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "C A T A L O G O "
|
||||
Public Sub CargaDatos()
|
||||
|
||||
@@ -203,8 +197,8 @@ Partial Class OC_CatEstatus
|
||||
'Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
@@ -240,9 +234,9 @@ Partial Class OC_CatEstatus
|
||||
|
||||
GvDatos.DataBind()
|
||||
UpCatalogo.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "G V D A T O S"
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -264,10 +258,10 @@ Partial Class OC_CatEstatus
|
||||
Alert("Ocurrió un error al eliminar el estatus. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C O N F I G U R A C I O N "
|
||||
Public Sub CargaUsuarios()
|
||||
ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||
@@ -280,7 +274,7 @@ Partial Class OC_CatEstatus
|
||||
Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
|
||||
|
||||
If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
|
||||
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
|
||||
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
|
||||
RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
|
||||
|
||||
End If
|
||||
@@ -312,8 +306,6 @@ Partial Class OC_CatEstatus
|
||||
Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
|
||||
Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))
|
||||
|
||||
|
||||
|
||||
ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString
|
||||
|
||||
Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
|
||||
@@ -396,7 +388,6 @@ Partial Class OC_CatEstatus
|
||||
Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
|
||||
Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))
|
||||
|
||||
|
||||
ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString
|
||||
|
||||
Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
|
||||
@@ -489,19 +480,9 @@ Partial Class OC_CatEstatus
|
||||
UPSuperior.Update()
|
||||
UPPEmp.Update()
|
||||
RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "E S T A T U S U S U A R I O S"
|
||||
Private Sub CargaProyectos()
|
||||
CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
||||
CboProyecto.DataBind()
|
||||
CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaSubProyectos()
|
||||
CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
|
||||
CboSubProyecto.DataBind()
|
||||
CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))
|
||||
End Sub
|
||||
Private Sub CreaGrid(Tipo As String)
|
||||
Dim i As Integer = 1
|
||||
|
||||
@@ -526,10 +507,10 @@ Partial Class OC_CatEstatus
|
||||
End While
|
||||
End Sub
|
||||
Protected Sub CargaGridEstatusUsuarios(Tipo As String)
|
||||
If CboSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or CboSubProyecto.SelectedValue.ToEntero = -2 Then
|
||||
If DdlSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or DdlSubProyecto.SelectedValue.ToEntero = -2 Then
|
||||
'If Tipo = "OC" Then TmpDTOC.Rows.Clear() Else TmpDTReq.Rows.Clear()
|
||||
|
||||
Dim CveSubProyecto = If(CboSubProyecto.SelectedValue.ToEntero = -2, -1, CboSubProyecto.SelectedValue.ToEntero)
|
||||
Dim CveSubProyecto = If(DdlSubProyecto.SelectedValue.ToEntero = -2, -1, DdlSubProyecto.SelectedValue.ToEntero)
|
||||
Dim objEstatusOC As New ClsOC
|
||||
|
||||
If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa, -1, 1) Then
|
||||
@@ -557,17 +538,10 @@ Partial Class OC_CatEstatus
|
||||
GvEstatusUsuariosREQ.DataBind()
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub CboProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
|
||||
If CboProyecto.SelectedValue.ToEntero > 0 Then
|
||||
GvEstatusUsuariosOC.Enabled = False
|
||||
GvEstatusUsuariosREQ.Enabled = False
|
||||
btnGuardarEstatusUsuariosOC.Visible = False
|
||||
btnGuardarEstatusUsuariosREQ.Visible = False
|
||||
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
|
||||
End Sub
|
||||
Protected Sub CboSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
|
||||
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
|
||||
GvEstatusUsuariosOC.Enabled = True
|
||||
GvEstatusUsuariosREQ.Enabled = True
|
||||
btnGuardarEstatusUsuariosOC.Visible = True
|
||||
@@ -580,7 +554,7 @@ Partial Class OC_CatEstatus
|
||||
Dim objEstatusOC As New ClsOC
|
||||
objEstatusOC.IniciaTransacSQL()
|
||||
Dim HuboErrores As Boolean = False
|
||||
Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero
|
||||
Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
|
||||
|
||||
|
||||
For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
|
||||
@@ -646,7 +620,7 @@ Partial Class OC_CatEstatus
|
||||
Dim objEstatusOC As New ClsOC
|
||||
objEstatusOC.IniciaTransacSQL()
|
||||
Dim HuboErrores As Boolean = False
|
||||
Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero
|
||||
Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
|
||||
|
||||
|
||||
For Each Row As GridViewRow In GvEstatusUsuariosOC.Rows
|
||||
|
||||
Reference in New Issue
Block a user