-- impresión de consola

Compras/PopUpVerFactura.aspx.vb

@@ -2714,6 +2714,7 @@ Partial Class PopUpVerFactura
         Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
         Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
         Dim Recibio As String = ObjInventarios.Recibio
+        Dim Guia As String = ObjInventarios.Guia
         Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
         Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
         Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
@@ -2912,7 +2913,7 @@ Partial Class PopUpVerFactura
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
                           CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
-                          Ruta:=Ruta, Supervisor:=Supervisor, Consola:=Consola)
+                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -2931,7 +2932,7 @@ Partial Class PopUpVerFactura
                                   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 Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Consola As String = "-1")
+                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1")
 
 
         Select Case CveConcepto
@@ -3617,22 +3618,20 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó
                 params.Add(New ReportParameter("Observaciones", Observaciones))
 
-
                 Dim DTCliente As New DataTable
                 Dim SBDireccionO As New StringBuilder()
                 Dim SBDireccionD As New StringBuilder()
                 Dim CveCliente As Integer = 0
                 Dim CveDireccionEnvio As Integer = 0
                 Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "",
-                    Paqueteria As String = "", NumContrato As String = "", Guia As String = "", Documentacion As String = ""
+                    Paqueteria As String = "", NumContrato As String = "", Documentacion As String = ""
 
                 Dim CveContrato As Integer = 0
                 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
                     CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
                 End If
 
-
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
 
                     CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
                     DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
@@ -3644,12 +3643,11 @@ Partial Class PopUpVerFactura
                     If Consola <> "-1" And Consola.Trim.Length > 0 Then
                         RutaFormato = "{0}Formatos\Consola.rdlc"
                         params.Add(New ReportParameter("Consola", Consola))
+                        params.Add(New ReportParameter("SerieConsola", Guia))
+                        params.Add(New ReportParameter("SeriePedal", Recibio))
                     End If
 
-
-
                     Dim CveVentaConsulta As Integer = DtMovimientos.FiltroPrimeroValor("CveVenta").ToEntero
-
                     params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))
 
                     Dim ObjVentas As New ClsVentas()
@@ -3670,18 +3668,9 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("ClienteMunicipio", dtVentas.Rows(0)("SucClienteCiudad").ToString))
                         params.Add(New ReportParameter("ClienteCP", dtVentas.Rows(0)("CPCliente").ToString))
 
-
-
-
-
-
                     End If
                     ObjVentas.Dispose()
 
-
-
-
-
                 End If
 
                 If CveContrato > 0 Then