Importaciones

Compras/PopUpVerFactura.aspx.vb

@@ -3386,10 +3386,17 @@ Partial Class PopUpVerFactura
         Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
 
 
+        Dim Ruta As String = ""
+        Dim Supervisor As String = ""
+
         If String.IsNullOrEmpty(Recibio) Then
             Dim ObjRH As New ClsRH
             If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
                 Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
+                If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                    Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString
+                    Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString
+                End If
             End If
             ObjRH.Dispose()
         End If
@@ -3576,7 +3583,8 @@ Partial Class PopUpVerFactura
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
-                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
+                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
+                          Ruta:=Ruta, Supervisor:=Supervisor)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3594,7 +3602,8 @@ Partial Class PopUpVerFactura
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
-                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
+                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
+                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing)
 
 
         Select Case CveConcepto
@@ -4936,6 +4945,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
 
                     End If
+
                     params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                     params.Add(New ReportParameter("Observaciones", Observaciones))
@@ -4961,6 +4971,13 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                     params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
 
+                    If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                        params.Add(New ReportParameter("Ruta", Ruta))
+                        params.Add(New ReportParameter("Supervisor", Supervisor))
+                        params.Add(New ReportParameter("NombreEmpleado", Recibio))
+                        params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro))
+                    End If
+
                     Dim Mov As New ClsInventarios
                     If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
                         If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then