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> </td>
</tr> </tr>
<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"> <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> <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>
<td class="text-right"> <td class="text-right">
<b> <b>
<asp:Literal Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b> <asp:Label Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
</td> </td>
<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> <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 txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
CargaEstatus() CargaEstatus()
If UsuarioActual.Empresa.GralSoloProyecto Then CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
TdProyecto.Visible = False 'If UsuarioActual.Empresa.GralSoloProyecto Then
TdProyecto2.Visible = False ' TdProyecto.Visible = False
LtSubProyecto.Text = "Proyecto:" ' TdProyecto2.Visible = False
Else ' LtSubProyecto.Text = "Proyecto:"
'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1) 'Else
'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), ' 'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1)) ' 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) ' ' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyectos.DataBind() ' DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1")) ' DdlProyectos.DataBind()
End If ' DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
'End If
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind() DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
Dim CveProyecto = -1 Dim CveProyecto = -1
Dim CveSubProyecto = -1 Dim CveSubProyecto = -1
If UsuarioActual.Empresa.GralSoloProyecto Then If LblProyecto.Visible Then
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
Else Else
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
End If End If