-- BDH- funcionalidad para encargados de almacen

Inventarios/RepAnomalias.aspx.vb

@@ -449,8 +449,21 @@ Partial Class Inventarios_RepAnomalias
         Dim params As New List(Of ReportParameter)
         Dim lrds As New List(Of ReportDataSource)
         Dim Inventario As New ClsInventarios
-
-
+        Dim Firma1 As String = ""
+        Dim Firma2 As String = ""
+
+        If UsuarioActual.Empresa.Funcionalidad(208) <> "" Then
+            Dim temp As String = UsuarioActual.Empresa.Funcionalidad(208)
+            Dim arr As String() = temp.Split(","c)
+            For Each ar As String In arr
+                If ar.Contains(lbSubProyecto.Text) Then
+                    Dim temp2 As String = ar.Split(":"c)(1)
+                    Firma1 = temp2.Split("|"c)(0)
+                    Firma2 = temp2.Split("|"c)(1)
+                End If
+            Next
+        End If
+
         Dim dtS As DataTable = Nothing
         Dim dtF As DataTable = Nothing
 
@@ -464,6 +477,8 @@ Partial Class Inventarios_RepAnomalias
             params.Add(New ReportParameter("FechaFin", Inventario.FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
+            params.Add(New ReportParameter("Firma1", Firma1))
+            params.Add(New ReportParameter("Firma2", Firma2))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
@@ -1066,11 +1081,9 @@ Partial Class Inventarios_RepAnomalias
                         End If
                         contadorS += 1
                     Next
-                End If
-
-
-
-
+                End If
+
+
                 contadorF += 1
 
             Next