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

-- cambio centros de costo

Browse Source
This commit is contained in:
rrene
2023-02-14 12:32:35 -07:00
parent 4737832a20
commit 2c6f6fbca5
4 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/RepCxP.aspx
View File

@@ -227,7 +227,7 @@
</div>
<asp:Label runat="server" class="col-md-1" ID="LblProyecto"></asp:Label>
<div class="col-md-1">
<div class="col-md-1" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" runat="server" CssClass="select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%" AutoPostBack="true">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>

2
Compras/RepCxP.aspx.vb
View File

@@ -120,7 +120,7 @@ Partial Class Compras_RepCxP
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.DataBind()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro, divProyecto:=DivProyecto)
DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
DdlProveedoresClasificaciones.DataBind()

2
Ventas/RepProductosServicios.aspx.vb
View File

@@ -158,7 +158,7 @@ Partial Class Ventas_RepProductosServicios
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargaGrupo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
TipoCambio = 1

3
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -189,7 +189,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
DdlTipoPSDes.DataBind()
CargaGrupo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
TCEspecifico = 0
@@ -406,7 +406,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero
DdlProyecto.SelectedValueExist(CveProyecto)
If DivProyecto.Visible Then CargaSubProyecto()
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
DdlCategoria.SelectedValueExist(CveCategoria)
DdlClasificacion.SelectedValueExist(CveClasificacion)