Filtro in inventario fisico: proveedores

Inventarios/RepAnomalias.aspx.vb

@@ -132,6 +132,19 @@ Partial Class Inventarios_RepAnomalias
                 End If
 
             End If
+            If Inventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dta As DataTable = Inventario.DtResultados
+                Dim str As New StringBuilder
+                If dta IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+                    For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
+                        str.AppendFormat("{0},", dr("RazonSocial"))
+                    Next
+                    LblProveedores.Text = str.ToString
+                    str.Clear()
+                End If
+
+            End If
         End If
         Inventario.Dispose()