Al Cotizar boton que manda a Facturar

Ventas/Ventas.aspx.vb

@@ -6859,6 +6859,10 @@ Partial Class Ventas
                                 If CveVenta > 0 Then MensajeAlert = New StringBuilder
                                 Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
 
+                                If Opcion = "Cot" And UsuarioActual.CveEmpresa = 141 Then
+                                    MensajeAlert.AppendFormat("<b><a class='Texto' href=""Ventas.aspx?CveVenta={0}"">Facturar</a></b><br/><br/>", CveVenta)
+                                End If
+
                                 If ArchivoCotizacion.Exists Then
                                     MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=0", CveVenta)))
                                 Else