diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb
index f2e4d1edf..a2ede09ae 100644
--- a/UserControl/AddMedico.ascx.vb
+++ b/UserControl/AddMedico.ascx.vb
@@ -227,7 +227,7 @@ Partial Class UserControl_AddMedico
         TxtFechaIng.Text = ""
         TxtUsuario.Text = ""
 
-        DdlVendedor.SelectedValueExist(-1)
+        DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
         CargaGVMedicoClienteSucursal(-1, UsuarioActual.CveEmpresa)
 
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ee5f66057..5bc192581 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8767,7 +8767,7 @@ Partial Class Ventas
 
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
 
-            If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
+            If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 2 Then
                 GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
             End If
 
@@ -17682,7 +17682,7 @@ Partial Class Ventas
 
                 If EsVentaMedica Then
                     TxtPrecio.Enabled = False
-                    If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
+                    If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 2 Then
                         TxtPrecio.Enabled = True
                     End If