-- mejora es RSCO

Inventarios/RepRSCO.aspx.vb

@@ -36,7 +36,7 @@ Partial Class Inventarios_RepRSCO
 
         LnkDescargaExcel.Visible = False
 
-        If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
 
             DTDatos = ObjInventarios.DtResultados
             GvDatos.DataSource = DTDatos
@@ -63,6 +63,10 @@ Partial Class Inventarios_RepRSCO
         DdlProveedores.SelectedText = "Todos"
         DdlProveedores.SelectedValue = "-1"
 
+        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        ddlAlmacen.DataBind()
+        ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+        ddlAlmacen.SelectedValue = "-1"
 
         Dim ObjPS As New ClsProductosServicios
 
@@ -80,15 +84,8 @@ Partial Class Inventarios_RepRSCO
         txtFechaF.Text = Now.ToString("dd/MM/yyyy")
         txtFechaI.Text = txtFechaF.Text.ToDate.AddMonths(-2).ToString("dd/MM/yyyy")
 
-
-
     End Sub
 
-
-
-
-
-
     Protected Sub LnkDescargaExcel_Click(sender As Object, e As EventArgs)
         ImprimirReporte("EXCEL")
     End Sub