parametro de empresas agregado al reporte de anomalias

App_Code/ClsInventarios.vb

@@ -2675,6 +2675,7 @@ Public Class ClsInventarios
         DataAdapter("PA_Inv_InventarioFisicoResultadoAvance")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -4847,7 +4847,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/RH/RepVacaciones.aspx".ToUpper(), 422)
             PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427)
             PaginaDict.Add("/RH/CatChecadorHorarios.aspx".ToUpper(), 428)
-            PaginaDict.Add("/RH/CatChecadorEstaciones.aspx".ToUpper(), 627)
+
             PaginaDict.Add("/RH/RepChecadorPreAsistencia.aspx".ToUpper(), 628)
             PaginaDict.Add("/RH/CatCaptaciones.aspx".ToUpper(), 629)
             PaginaDict.Add("/RH/RepUniformes.aspx".ToUpper(), 630)

Compras/PopUpVerFactura.aspx.vb

@@ -1308,10 +1308,10 @@ Partial Class PopUpVerFactura
         Dim CantidadProductos As Decimal = 0
         Dim CantidadUsados As Decimal = 0
 
-        If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
+        If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
             If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
                 DtMovimientos = ObjInventarios.DtResultados
-
+                Alert("asdf")
                 DtMovimientos.Columns("No").AutoIncrement = True
                 DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
                 DtMovimientos.Columns("No").AutoIncrementStep = 1
@@ -1616,6 +1616,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                     params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                     params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
+                    params.Add(New ReportParameter("Observaciones", Observaciones))
                     'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                     params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                     If (UsuarioActual.CveEmpresa = 72) Then
@@ -1624,7 +1625,7 @@ Partial Class PopUpVerFactura
                     ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                 End If
 
-            Case 3, 16, 37  ' S A L I D A S
+            Case 3, 16, 37, 40  ' S A L I D A S
                 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
                 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -1632,7 +1633,7 @@ Partial Class PopUpVerFactura
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
                 Dim concepto As String = ""
-                If CveConcepto = 3 Then
+                If CveConcepto.Contiene(3, 40) Then
                     concepto = "SALIDA DE ALMACÉN"
                 ElseIf CveConcepto = 37 Then
                     concepto = "SALIDA VIRTUAL"