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

correcciones en algunas páginas e implementación del metodo de subproyecto y proyecto

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-06 19:54:01 -07:00
parent 4174dbfd56
commit 98f93dff92
17 changed files with 66 additions and 225 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -48,10 +48,6 @@ Partial Class Acumuladores_CatFoliosGarantia
#Region "Folios Garantía"
Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
DdlSubProyectos.Items.Clear()
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

6
Acumuladores/RepIndicadorDiario.aspx
View File

@@ -151,10 +151,10 @@
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<%-- <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>
</asp:DropDownList>
<%--<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>--%>
</div>

8
Acumuladores/RepIndicadorDiario.aspx.vb
View File

@@ -84,10 +84,8 @@ Partial Class ACumuladores_RepIndicadorDiario
Private Sub CargaCombos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValuesIfExist("-1")
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.SelectedValueExist("-1")
End Sub
@@ -188,7 +186,7 @@ Partial Class ACumuladores_RepIndicadorDiario
If txtFechaF.Text = "" Then FechaFn = ""
Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
Dim SubProyecto = If(DdlSubProyecto.SelectedItem.Text = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
Dim FechaIF, FechaFF As String