From c2e2200cc51b07fed0da28d9bd4b0a5a2ed2c508 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 14 Jan 2022 10:47:38 -0700
Subject: [PATCH] columna de pdte surtir

---
 Inventarios/RepEntradasSalidas.aspx    |  3 ++-
 Inventarios/RepEntradasSalidas.aspx.vb | 28 ++++++++++++++++----------
 2 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index b2553c302..738610fb6 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -119,7 +119,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate">Proveedor</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlProveedor" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></asp:DropDownList>
+                            <ADS:DropDownLost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" data-metodo="getproveedores" CssClassDdl="select2me " Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></ADS:DropDownLost>
                         </div>
                         <div class="col-md-1 truncate">Categoría</div>
                         <div class="col-md-2">
@@ -240,6 +240,7 @@
                         </ItemTemplate>
                         <ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
+                    <asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>                    
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right"  HeaderText="Saldo Inicial">
                         <ItemTemplate>
                             <asp:Label ID="lbSaldoI2" runat="server" Text='<%# If(Eval("SaldoIniImp").ToString() = "0", "-", Eval("SaldoIniImp", "{0:N2}"))  %>'></asp:Label>
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 625fbaace..aa7f9afff 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -94,11 +94,15 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 
         dvImp.Visible = TienePermisoImportes
-        GvM.Columns(10).Visible = TienePermisoImportes
         GvM.Columns(11).Visible = TienePermisoImportes
         GvM.Columns(12).Visible = TienePermisoImportes
         GvM.Columns(13).Visible = TienePermisoImportes
         GvM.Columns(14).Visible = TienePermisoImportes
+        GvM.Columns(15).Visible = TienePermisoImportes
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            GvM.Columns(10).Visible = TienePermisoImportes
+        End If
 
     End Sub
     Private Sub CargaCombos()
@@ -126,9 +130,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
         DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'Llenar dropdownlist de proveedores
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CARGA CLASIFICACIONES
         Dim ObjClasificaciones As New ClsClasificaciones
@@ -139,7 +143,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
 
@@ -148,6 +151,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         'Carga Productos
         DdlPS.setEsWebService(True)
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.SelectedText = ""
+        DdlProveedor.SelectedValue = "-1"
 
         'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
         DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
@@ -160,7 +166,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         '    DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         'End If
 
-        DdlMovs.SelectedValue = "2"
+        DdlMovs.SelectedValue = "3"
 
         'Llenar dropdownlist de personal
         DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
@@ -179,7 +185,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         CargarMarcas()
 
-
         DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
         DdlTipoAlmacen.DataBind()
         DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -187,7 +192,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
     End Sub
     Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        CargaClasificaciones()
+        CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
+
     End Sub
 
     Private Sub CargaClasificaciones(CveCategoria As Integer)
@@ -354,7 +360,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim TipoMov = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Tipo&nbsp;Movimiento:</b>&nbsp;{DdlTipoMovimiento.SelectedItem.Text}")
         Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b>&nbsp;{DdlMoneda.SelectedItem.Text}")
         Dim SoloConMov = If(DdlMovs.SelectedValue = "-1", "", $"&emsp;<b>Solo&nbsp;Movimientos:</b>&nbsp;{DdlMovs.SelectedItem.Text}")
-        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
         Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DdlClasificacion.SelectedItem.Text}")
         Dim Familia = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b>&nbsp;{DdlCategoria.SelectedItem.Text}")
         Dim SubFamilia = If(DdlSubFamilia.SelectedValue = "-1", "", $"&emsp;<b>SubFamilia:</b>&nbsp;{DdlSubFamilia.SelectedItem.Text}")
@@ -419,8 +425,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
         GvM.Columns(3).Visible = ChkClasificacion2.Checked
         GvM.Columns(5).Visible = ChkSeccionAlmacen.Checked
 
-        GvM.Columns(15).Visible = ChkFechaUltimaCompra.Checked
-        GvM.Columns(16).Visible = ChkFechaUltimaVenta.Checked
+        GvM.Columns(16).Visible = ChkFechaUltimaCompra.Checked
+        GvM.Columns(17).Visible = ChkFechaUltimaVenta.Checked
 
         'GvM.Columns(4).Visible = ChkSeccionAlmacen.Checked
         If ChkSeccionAlmacen.Checked OrElse ChkCodigoBarras.Checked OrElse ChkCodigoAlterno.Checked Then