+
@@ -92,7 +96,7 @@
-
+
diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx.cs b/Acumuladores/RepAcumuladoresVigencia.aspx.cs
index 1d388aa4c..da9ed60da 100644
--- a/Acumuladores/RepAcumuladoresVigencia.aspx.cs
+++ b/Acumuladores/RepAcumuladoresVigencia.aspx.cs
@@ -61,10 +61,14 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
private void CargaCombos()
{
CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto);
- DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
+ DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Categoria = 'ACUMULADORES'");
DdlClasificaciones.DataBind();
DdlClasificaciones.Items.Insert(0, new ListItem("Todos", "-1"));
- }
+
+ DdlMarcas.DataSource = get_GlobalDTGralMarcas(UsuarioActual.CveEmpresa);
+ DdlMarcas.DataBind();
+ DdlMarcas.Items.Insert(0, new ListItem("Todas", "-1"));
+ }
protected void BtnConsultar_Click(object sender, EventArgs e)
{
@@ -76,7 +80,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
{
ClsAcumuladores ObjAcum = new ClsAcumuladores();
- if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()))
+ if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlMarcas.SelectedValue.ToEntero(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()))
{
GvAcum.DataSource = ObjAcum.DtResultados;
}
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 354172fa2..8c9eb613c 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -1315,11 +1315,12 @@ Public Class ClsAcumuladores
End Function
#Region "VIGENCIA ACUMULADORES"
- Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
+ Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveMarca As Integer, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Inv_ProductosFechasComprasSerie")
With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@FechaIni", SqlDbType.Date).Value = FechaInicio