Impresión mini-printer directo pdf (ventas)

Ventas/Ventas.aspx.vb

@@ -10514,6 +10514,10 @@ Partial Class Ventas
                             OnError("Ocurrió un error al limpiar los datos", ex)
                         End Try
 
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            RegistraScript($"impresionDirecta('/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}');", "Imprimir")
+                        End If
+
                     Else
                         ObjVentas.RollBack()
 
@@ -16349,6 +16353,7 @@ Partial Class Ventas
                         Else
                             MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
                         End If
+
                     End If
 
                     'IMPRESION