SMS - 2024.02.02 Impresion consola

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