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

Cargar ddl proyecto subproyecto con Centro de costo

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-28 10:33:31 -07:00
parent 30d2b9d595
commit a91e60b005
2 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
OC/PopUpBuscarReq.aspx
View File

@@ -68,13 +68,13 @@
</td>
</tr>
<tr>
<td runat="server" id="TdProyecto" class="text-right"><b>Proyecto:</b></td>
<td runat="server" id="TdProyecto" class="text-right"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>
<td runat="server" id="TdProyecto2">
<asp:DropDownList ID="DdlProyectos" AutoPostBack="true" OnSelectedIndexChanged="DdlProyectos_SelectedIndexChanged" runat="server" CssClass="form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 200px !important;"></asp:DropDownList>
</td>
<td class="text-right">
<b>
<asp:Literal Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
<asp:Label Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
</td>
<td>
<asp:DropDownList ID="DdlSubProyectos" AutoPostBack="false" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 200px !important;"></asp:DropDownList>

29
OC/PopUpBuscarReq.aspx.vb
View File

@@ -70,18 +70,19 @@ Partial Class OC_PopUpBuscarReq
txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
CargaEstatus()
If UsuarioActual.Empresa.GralSoloProyecto Then
TdProyecto.Visible = False
TdProyecto2.Visible = False
LtSubProyecto.Text = "Proyecto:"
Else
'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyectos.DataBind()
DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End If
CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
'If UsuarioActual.Empresa.GralSoloProyecto Then
' TdProyecto.Visible = False
' TdProyecto2.Visible = False
' LtSubProyecto.Text = "Proyecto:"
'Else
' 'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
' 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
' ' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
' DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
' DdlProyectos.DataBind()
' DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
'End If
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
Dim CveProyecto = -1
Dim CveSubProyecto = -1
If UsuarioActual.Empresa.GralSoloProyecto Then
If LblProyecto.Visible Then
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
Else
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
End If