AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

agregando la carga de los ddl desde clspaginas

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-03 20:02:49 -07:00
parent 0489da50cf
commit 7cf14ef53b
3 changed files with 63 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsPaginas.vb
View File

@@ -8053,12 +8053,18 @@ Public Class ClsPaginas
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Proyecto" LblSubProyecto.Text = "Proyecto"
Case 4 Case 4
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto" If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
LblSubProyecto.Text = "Subproyecto" LblSubProyecto.Text = "Subproyecto"
Case 5 Case 5
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto" If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
LblSubProyecto.Text = "Sucursal" LblSubProyecto.Text = "Sucursal"
End Select 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 Sub
End Class End Class

27
Compras/Compras.aspx
View File

@@ -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> 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: 200px">Observación</th>
<th style="width: 150px"> <th style="width: 150px">
<asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp; <asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label>
<asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
<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> <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"> <span data-toggle="collapse" data-target="#DivReclasifica">
@@ -650,13 +649,21 @@
<th> <th>
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpReclasificarSubProyecto"> <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpReclasificarSubProyecto">
<ContentTemplate> <ContentTemplate>
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto"> <div class="row">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <div class="col-md-1" style="width:100%">
</asp:DropDownList> <asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
<%--<br />--%> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"> </asp:DropDownList>
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> </div>
</asp:DropDownList> <%--<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> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</th> </th>

76
Compras/Compras.aspx.vb
View File

@@ -1546,11 +1546,11 @@ Partial Class Compras_Compras
' LblSubProyecto.InnerText = "Proyecto" ' LblSubProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto" ' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
DdlSubProyecto.Items.Clear() 'DdlSubProyecto.Items.Clear()
' 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) ''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.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.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear() ' '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.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" ' LblSubProyecto.InnerText = "Sucursal"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal" ' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
DdlSubProyecto.Items.Clear() 'DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) ''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.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.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear() ' '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.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.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) ' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False divproyecto.Visible = False
'divasignaproyecto.Visible = False 'divasignaproyecto.Visible = False
DdlProyecto.Visible = False DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = "" DdlProyecto.Items(0).Text = ""
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LitHProyecto.Text = "Sucursal" ' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal" ' LthProyectoP.Text = "Sucursal"
' LblSubProyectoHeader.Text = "Proyecto" ' LblSubProyectoHeader.Text = "Proyecto"
' LblSubProyectoPHeader.Text = "Proyecto" ' LblSubProyectoPHeader.Text = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal" ' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
' 'LblProyectoDivAplica.InnerText = "Proyecto" ' 'LblProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Sucursal" ' LblSubProyecto.InnerText = "Sucursal"
' LblProyecto.InnerText = "Proyecto" ' LblProyecto.InnerText = "Proyecto"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LitHProyecto.Text = "Proyecto" ' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto" ' LthProyectoP.Text = "Proyecto"
' LblSubProyectoHeader.Text = "Sucursal" ' LblSubProyectoHeader.Text = "Sucursal"
' LblSubProyectoPHeader.Text = "Sucursal" ' LblSubProyectoPHeader.Text = "Sucursal"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto" ' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
' 'LblProyectoDivAplica.InnerText = "Sucursal" ' 'LblProyectoDivAplica.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Proyecto" ' LblSubProyecto.InnerText = "Proyecto"
' LblProyecto.InnerText = "Sucursal" ' LblProyecto.InnerText = "Sucursal"
End If End If
CargaGvPersonal() CargaGvPersonal()
CargaDdlPersonal() CargaDdlPersonal()