SMS - 2024.02.02 Impresion consola

App_Code/ClsSisUsuarios.vb

@@ -246,6 +246,9 @@ Public Class ClsSisUsuarios
                 Dim autoip As String = Data.Rows(0)("AutorizadoxIP").ToString().ToUpper()
                 Retorno.AutorizadoxIP = (autoip = "1" OrElse autoip = "TRUE")
 
+                ' Esto es parta el punto de venta
+                Retorno.CveSucursal = Data.Rows(0)("CveSubProyecto").ToString().ToEntero
+
                 ''Toma la primer letra de cada nombre
                 'Dim sbr As New StringBuilder
                 'For Each St As String In Retorno.Nombre.Split(" "c)

App_Code/wsSIG.vb

@@ -115,7 +115,12 @@ Public Class wsSIG
                     Retorno.CveEmpresa = ttDato.CveEmpresa
                     'Retorno.Empresa = ttDato.NombreEmpresa
                     Retorno.CveVendedor = ttDato.CveVendedor
-                    Retorno.CveSucursal = CveSubProyecto
+
+                    If CveSubProyecto > 0 Then
+                        Retorno.CveSucursal = CveSubProyecto
+                    Else
+                        Retorno.CveSucursal = ttDato.CveSucursal
+                    End If
                     'Retorno.Contraseña = ttDato.Contraseña
                     'Retorno.IMEI = IMEI
 

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

Inventarios/EntradasSalidas.aspx.vb

@@ -529,7 +529,7 @@ Partial Class Inventarios_EntradasSalidas
     End Property
 
     Private Function ValidaUsaConsola() As Boolean
-
+        Consola = ""
         Dim Respuesta As Boolean = False
 
         For Each gvRow As GridViewRow In GvM.Rows
@@ -547,6 +547,10 @@ Partial Class Inventarios_EntradasSalidas
             End If
         Next
 
+        If Respuesta Then
+            HplImprimirConsola.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
+        End If
+
         Return Respuesta
 
 

Inventarios/EntregaAlmacen.aspx.vb

@@ -1848,10 +1848,13 @@ Partial Class Inventarios_EntregaAlmacen
 
     Private Sub GuardaVenta()
 
-
-        '' INICIA: VALIDACIONES 
-
-        'Valida el estatus de la Venta, si es  = 5 O DevolucionVenta = 2, NO SE SURTE!
+        ValidaUsaConsola()
+
+
+
+        '' INICIA: VALIDACIONES 
+
+        'Valida el estatus de la Venta, si es  = 5 O DevolucionVenta = 2, NO SE SURTE!
         Dim ObjVentaInv As New ClsInventarios
         If ObjVentaInv.GetEstatusVentaPorSurtir(CveVentaSurtir) Then
             TipoEstatus = ObjVentaInv.TipoEstatus
@@ -3113,6 +3116,9 @@ Partial Class Inventarios_EntregaAlmacen
 
             Msg.AppendFormat("Movimiento {2}: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimiento, Folio, If(TipoMovimiento = 1, "Salida", "Entrada"))
             Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
+            If Consola.Trim.Length > 0 Then
+                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Consola</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
+            End If
 
             If CveMovimientoEntrada > 0 Then
                 Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
@@ -3161,8 +3167,10 @@ Partial Class Inventarios_EntregaAlmacen
             'SI NO ES GARANTIA MANDA A RECIBIR AL USADO
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto.Contiene("Rem", "Ped") AndAlso CveMovimientoGarantia <= 0 Then
                 Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"" class=""Texto"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
-            End If
-
+            End If
+
+
+
             Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
 
             Limpia()
@@ -4423,8 +4431,8 @@ Partial Class Inventarios_EntregaAlmacen
         End Set
     End Property
 
-    Private Function UsaConsola() As Boolean
-
+    Private Function ValidaUsaConsola() As Boolean
+        Consola = ""
         Dim Respuesta As Boolean = False
 
         For Each gvRow As GridViewRow In GvDatos.Rows