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

cambios en los titulos de proyectos y subproyectos basandose en el centro de costo

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-03 17:13:34 -07:00
parent 837a7a51bb
commit cba9c86a79
7 changed files with 88 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Compras.aspx
View File

@@ -613,7 +613,7 @@
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:Literal ID="LitHProyecto" runat="server" Text="Proyecto<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"></asp:Literal><asp:Label runat="server" ID="LblSubProyectoHeader" Text="SubProyecto"></asp:Label>&nbsp;
<asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
@@ -653,7 +653,7 @@
<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 />
<%--<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>

99
Compras/Compras.aspx.vb
View File

@@ -1535,26 +1535,27 @@ Partial Class Compras_Compras
DivConsignaciones.Visible = False
End If
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto"
' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = ""
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
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.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
@@ -1562,57 +1563,57 @@ Partial Class Compras_Compras
DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal"
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = ""
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Sucursal"
' 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.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()