diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ab9aa909f..cd464cf7c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11736,7 +11736,13 @@ Partial Class Ventas Else 'SI TIENE MODULO DE COBRANZA, NO MARDAR AL CLIENTE, DEBE SEGUIR REGISTRANDO If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then - Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Seguir Registrando", ShowCloseButton:=False) + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") Then + Liga2 = $"document.location.href=""/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}"";" + Alert(MensajeAlert.ToString(), TipoMensaje.MsgDosBotones, Liga, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ver cotización", JSBtn2:=Liga2, ShowCloseButton:=False) + Else + Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Seguir Registrando", ShowCloseButton:=False) + End If Else Alert(MensajeAlert.ToString(), TipoMensaje.MsgDosBotones, Liga, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Cliente", JSBtn2:=Liga2, ShowCloseButton:=False) End If