SMS - 2024.02.02 Impresion consola

Compras/PopUpVerFactura.aspx.vb

@@ -1254,9 +1254,10 @@ Partial Class PopUpVerFactura
                 Dim CveAlmacenTransitorioRecepcion As Integer = If(UrlParametros("CVEALMACENTRANSITORIORECEPCION") Is Nothing, -1, (UrlParametros("CVEALMACENTRANSITORIORECEPCION").ToString.ToEntero))
                 Dim FolioBusquedaTrasitorio As Integer = If(UrlParametros("FOLIOBUSQUEDATRASITORIO") Is Nothing, -1, (UrlParametros("FOLIOBUSQUEDATRASITORIO").ToString.ToEntero))
 
+                Dim Consola As String = If(UrlParametros("CVEMOVIMIENTO") IsNot Nothing, UrlParametros("CVEMOVIMIENTO").ToString.Trim, "")
 
                 CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=False, EsTransitorio:=EsTransitorio, CveAlmacenRecepcion:=CveAlmacenRecepcion, CveAlmacenTransitorioRecepcion:=CveAlmacenTransitorioRecepcion,
-                                        FolioBusquedaTrasitorio:=FolioBusquedaTrasitorio)
+                                        FolioBusquedaTrasitorio:=FolioBusquedaTrasitorio, Consola:=Consola)
 
             End If
         End If
@@ -2420,7 +2421,7 @@ Partial Class PopUpVerFactura
 #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
 
     Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False,
-             Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1)
+             Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1, Optional Consola As String = "")
         Dim ObjInventarios As New ClsInventarios
 
         ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
@@ -2656,7 +2657,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)
+                          Ruta:=Ruta, Supervisor:=Supervisor, Consola:=Consola)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -2675,7 +2676,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 Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Consola As String = "-1")
 
 
         Select Case CveConcepto
@@ -3347,6 +3348,8 @@ Partial Class PopUpVerFactura
                     RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
                 End If
 
+
+
                 params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
                 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
                 params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
@@ -3377,6 +3380,19 @@ Partial Class PopUpVerFactura
                     CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
                     DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
 
+                    If CveCliente = 819998 Then
+                        RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
+
+                        If Consola <> "-1" And Consola.Trim.Length > 0 Then
+                            RutaFormato = "{0}Formatos\Consola.rdlc"
+                            params.Add(New ReportParameter("Consola", Consola))
+                        End If
+
+                    End If
+
+
+
+
                     Dim CveVentaConsulta As Integer = DtMovimientos.FiltroPrimeroValor("CveVenta").ToEntero
 
                     params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))
@@ -3409,9 +3425,6 @@ Partial Class PopUpVerFactura
 
 
 
-                    If CveCliente = 819998 Then
-                        RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
-                    End If
                 End If
 
                 If CveContrato > 0 Then