From c52b59e32d325f8446bd07743eecb87e4a7e97b8 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 20 May 2024 09:35:10 -0700
Subject: [PATCH] Ventas SMS Permitir modificar precio  en ventas de tipo pago
 directo

---
 UserControl/AddMedico.ascx.vb | 2 +-
 Ventas/Ventas.aspx.vb         | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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