agregando la carga de los ddl desde clspaginas
This commit is contained in:
Antonio Gonzalez
@@ -8053,12 +8053,18 @@ Public Class ClsPaginas
|
||||
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
|
||||
LblSubProyecto.Text = "Proyecto"
|
||||
Case 4
|
||||
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
|
||||
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
|
||||
LblSubProyecto.Text = "Subproyecto"
|
||||
Case 5
|
||||
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
|
||||
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
|
||||
LblSubProyecto.Text = "Sucursal"
|
||||
End Select
|
||||
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
|
||||
DdlProyecto.DataBind()
|
||||
|
||||
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -613,9 +613,8 @@
|
||||
Producto o Servicio<asp:HyperLink ID="HyperLink1" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " data-placement="top" ToolTip="Agregar Producto o Servicio" NavigateUrl="/Ventas/CatPS.aspx" runat="server"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:HyperLink></th>
|
||||
<th style="width: 200px">Observación</th>
|
||||
<th style="width: 150px">
|
||||
<asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>
|
||||
|
||||
|
||||
<asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label>
|
||||
<asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>
|
||||
|
||||
<asp:LinkButton ID="ImgActualizarProyecto" CssClass="btn btn-default btn-circle" data-toggle="tooltip" data-placement="top" ToolTip="Actualizar Cambios" runat="server" Visible="False"><i class="fa fa-arrow-circle-down" aria-hidden="true"></i></asp:LinkButton>
|
||||
<span data-toggle="collapse" data-target="#DivReclasifica">
|
||||
@@ -650,13 +649,21 @@
|
||||
<th>
|
||||
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpReclasificarSubProyecto">
|
||||
<ContentTemplate>
|
||||
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<%--<br />--%>
|
||||
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="width:100%">
|
||||
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<%--<br runat="server" id="brProyectoSubProyecto" style="display:none"/>--%>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="width:100%">
|
||||
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</th>
|
||||
|
||||
@@ -1546,11 +1546,11 @@ Partial Class Compras_Compras
|
||||
' LblSubProyecto.InnerText = "Proyecto"
|
||||
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
|
||||
|
||||
DdlSubProyecto.Items.Clear()
|
||||
' 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlSubProyecto.Items.Clear()
|
||||
''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
'DdlSubProyecto.DataBind()
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' 'DdlAsignaSubProyecto.Items.Clear()
|
||||
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
@@ -1572,48 +1572,48 @@ Partial Class Compras_Compras
|
||||
' LblSubProyecto.InnerText = "Sucursal"
|
||||
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
|
||||
|
||||
DdlSubProyecto.Items.Clear()
|
||||
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlSubProyecto.Items.Clear()
|
||||
''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
'DdlSubProyecto.DataBind()
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' 'DdlAsignaSubProyecto.Items.Clear()
|
||||
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
' 'DdlAsignaSubProyecto.DataBind()
|
||||
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' 'DdlAsignaSubProyecto.Items.Clear()
|
||||
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
' 'DdlAsignaSubProyecto.DataBind()
|
||||
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
divproyecto.Visible = False
|
||||
'divasignaproyecto.Visible = False
|
||||
DdlProyecto.Visible = False
|
||||
DdlProyecto.Items(0).Text = ""
|
||||
divproyecto.Visible = False
|
||||
'divasignaproyecto.Visible = False
|
||||
DdlProyecto.Visible = False
|
||||
DdlProyecto.Items(0).Text = ""
|
||||
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
' LitHProyecto.Text = "Sucursal"
|
||||
' LthProyectoP.Text = "Sucursal"
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
' LitHProyecto.Text = "Sucursal"
|
||||
' LthProyectoP.Text = "Sucursal"
|
||||
|
||||
' LblSubProyectoHeader.Text = "Proyecto"
|
||||
' LblSubProyectoPHeader.Text = "Proyecto"
|
||||
' LblSubProyectoHeader.Text = "Proyecto"
|
||||
' LblSubProyectoPHeader.Text = "Proyecto"
|
||||
|
||||
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
|
||||
' 'LblProyectoDivAplica.InnerText = "Proyecto"
|
||||
' LblSubProyecto.InnerText = "Sucursal"
|
||||
' LblProyecto.InnerText = "Proyecto"
|
||||
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
|
||||
' 'LblProyectoDivAplica.InnerText = "Proyecto"
|
||||
' LblSubProyecto.InnerText = "Sucursal"
|
||||
' LblProyecto.InnerText = "Proyecto"
|
||||
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
' LitHProyecto.Text = "Proyecto"
|
||||
' LthProyectoP.Text = "Proyecto"
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
' LitHProyecto.Text = "Proyecto"
|
||||
' LthProyectoP.Text = "Proyecto"
|
||||
|
||||
' LblSubProyectoHeader.Text = "Sucursal"
|
||||
' LblSubProyectoPHeader.Text = "Sucursal"
|
||||
' LblSubProyectoHeader.Text = "Sucursal"
|
||||
' LblSubProyectoPHeader.Text = "Sucursal"
|
||||
|
||||
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
|
||||
' 'LblProyectoDivAplica.InnerText = "Sucursal"
|
||||
' LblSubProyecto.InnerText = "Proyecto"
|
||||
' LblProyecto.InnerText = "Sucursal"
|
||||
End If
|
||||
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
|
||||
' 'LblProyectoDivAplica.InnerText = "Sucursal"
|
||||
' LblSubProyecto.InnerText = "Proyecto"
|
||||
' LblProyecto.InnerText = "Sucursal"
|
||||
End If
|
||||
|
||||
CargaGvPersonal()
|
||||
CargaGvPersonal()
|
||||
CargaDdlPersonal()
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user