diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0475d0f42..e4932003e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2650,20 +2650,6 @@ Partial Class Ventas
             'CargarCamiones()
 
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-                'SI ES COTIZACION CARGAR CLIENTE PUBLICO GENERAL
-                If Opcion = "Cot" Then
-                    Dim CveClientePG As Integer = -1
-                    If UsuarioActual.CveEmpresa = 186 Then
-                        CveClientePG = 1151377
-                        ViewState("CveCliente") = CveClientePG
-                        HdnCveCliente.Value = CveClientePG.ToString()
-                        CargaCliente(CveCliente)
-
-                        TrVentasMedicas2.Visible = False
-                        TrVentasMedicas3.Visible = False
-                    End If
-                End If
-
                 CargaMedicos()
                 CargaProcedimientos()
                 CargaDdlClientesSucursal()
@@ -2713,6 +2699,23 @@ Partial Class Ventas
                     RBLPago.SelectedValue = "2"
                     CargaCliente(CveCliente)
                 End If
+
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                    'SI ES COTIZACION CARGAR CLIENTE PUBLICO GENERAL
+                    If Opcion = "Cot" Then
+                        Dim CveClientePG As Integer = -1
+                        If UsuarioActual.CveEmpresa = 186 Then
+                            CveClientePG = 1151377
+                            ViewState("CveCliente") = CveClientePG
+                            HdnCveCliente.Value = CveClientePG.ToString()
+                            CargaCliente(CveCliente)
+
+                            TrVentasMedicas2.Visible = False
+                            TrVentasMedicas3.Visible = False
+                        End If
+                    End If
+                End If
+
             End If
 
             'Carga empresa CRM
@@ -8451,7 +8454,6 @@ Partial Class Ventas
                 'If UsuarioActual.CveEmpresa = 119 Then
                 '    e.Row.FCTextBox("TxtDescuento").Enabled = False
                 'End If
-
             Else
                 'MODO NORMAL
 
@@ -8601,6 +8603,10 @@ Partial Class Ventas
 
         If EsVentaMedica Then
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
+
+            If DdlTipoComprobante.SelectedValue = "Cot" Then
+                GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
+            End If
         End If
 
         If CveCicloComercial > 0 Then
@@ -17561,6 +17567,10 @@ Partial Class Ventas
                     If UsuarioActual.CveUsuario = 3986 Then
                         TxtPrecio.Enabled = True
                     End If
+
+                    If DdlTipoComprobante.SelectedValue = "Cot" Then
+                        TxtPrecio.Enabled = True
+                    End If
                 Else
                     If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
                         If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera