diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 2eea13ab1..9230532b8 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -568,13 +568,13 @@
                                 <td><b>Médico:</b></td>
                                 <td>
                                     <asp:DropDownList ID="DdlMedico" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico">
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                        <asp:ListItem Value="-1">-</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
                                 <td><b>Procedimiento:</b></td>
                                 <td>
                                     <asp:DropDownList ID="DdlProcedimiento" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Width="130px">
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                        <asp:ListItem Value="-1">-</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
                             </tr>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0bf4874e9..2b016441c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3400,7 +3400,7 @@ Partial Class Ventas
         End If
 
 
-        If UsuarioActual.CveEmpresa.Contiene(186, 189) Then
+        If UsuarioActual.CveEmpresa.Contiene(189, 190) Then
             Dim jsFocus As String = "$(document).ready(function () {
                                         
                                          $('#TxtCantidad').on('keydown', function (e) {                                            
@@ -7752,21 +7752,15 @@ Partial Class Ventas
         DdlClasificacion.DataBind()
     End Sub
 
-
-
-
     Private Sub CargaTiposVenta()
 
-        '&nbsp
-        'Dim Dttemp = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ").FiltraParametros("", {"", ""})
-
         RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
         RBLTipoVenta.DataBind()
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
 
         TrVentasMedicas1.Visible = True
         TrVentasMedicas2.Visible = True
 
-
         For Each item As ListItem In RBLTipoVenta.Items
             item.Text = $"&nbsp {item.Text}"
         Next
@@ -35993,6 +35987,10 @@ Partial Class Ventas
                     DvModalRequiereOSFecha.Visible = False
                     DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                     DVGvProductosProcedimiento.Visible = False
+                Case "5" ' Otros
+                    LnkDvModalTipoVentaAceptar.Visible = False
+                    UpDvModalTipoVenta.Update()
+                    RegistraScript("$('#DvModalTipoVenta').modal('hide');")
             End Select
 
         End If
@@ -36004,7 +36002,6 @@ Partial Class Ventas
     End Sub
 
 
-
     Protected Sub ModalValidaMedicoProcedimiento()
 
         If DdlMedicoModal.SelectedValue.ToEntero > 0 AndAlso DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
@@ -36095,23 +36092,13 @@ Partial Class Ventas
         End If
         DdlTipoComprobante.Enabled = False
 
-
-
-
         CargaCliente(CveCliente)
-
         DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
-
         RegistraScript("$('#DvModalTipoVenta').modal('hide');")
-
-
-
         Dim CountPsAgregados As Integer = 0
 
         For Each GvRow As GridViewRow In GvProductosProcedimiento.Rows
-
             Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
-
             Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
             Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
             Dim PU As Decimal = GvRow.DataKey("Precio").ToDecimal
@@ -36130,15 +36117,11 @@ Partial Class Ventas
                     Exit For
                 End If
             End If
-
         Next
-
         If CountPsAgregados > 0 Then
             CalculaTotalesVenta()
         End If
-
         UpCliente.Update()
-
     End Sub
 
     Protected Sub GvProductosProcedimiento_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -36163,13 +36146,10 @@ Partial Class Ventas
     Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
         If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
             Dim objVenta As New ClsVentas
-
             If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then
                 GvProductosProcedimiento.DataSource = objVenta.DtResultados
             End If
-
             objVenta.Dispose()
-
         Else
             GvProductosProcedimiento.DataSource = Nothing
         End If
@@ -36183,7 +36163,6 @@ Partial Class Ventas
 
     Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
 
-
         Dim Errores As Boolean = False
 
         Dim ObjOrdenServicio As New ClsOS(TransacSQL)