Filtro in inventario fisico: proveedores

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -190,6 +190,20 @@ Partial Class Inventarios_InventarioFisicoDetalle
                     LblProductosExcluidos.Text = str.ToString
                 End If
 
+            End If
+
+            If ObjInventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dt As DataTable = ObjInventario.DtResultados
+                Dim str As New StringBuilder
+                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+                    For Each dr As DataRow In dt.FiltraParametros("Incluye = 1").Rows
+                        str.AppendFormat("{0},", dr("RazonSocial"))
+                    Next
+                    LblProveedores.Text = str.ToString
+                    str.Clear()
+                End If
+
             End If
 
             If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then