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