From 448fca8c7fbff2c80d47452ce8bcc7a8c0c0967c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jun 2024 12:45:51 -0700
Subject: [PATCH] -- mejora en SMS en vista de tipo de venta

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

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 311924897..1285c88c5 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -577,9 +577,6 @@
                                 <td colspan="3">
                                     <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
                             </tr>
-
-
-
                             <tr runat="server" id="TrVentasMedicas1" visible="false">
                                 <td><b>Médico:</b></td>
                                 <td>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f44bbba91..5d9ca90cd 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6170,7 +6170,7 @@ Partial Class Ventas
 
                         TrVentasMedicas3.Visible = True
 
-                        If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 2, 3, 5) Then
+                        If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 2, 3, 5, 6) Then
                             TrVentasMedicas1.Visible = True
 
                             DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString)
@@ -35169,7 +35169,7 @@ Partial Class Ventas
             DdlUsoCFDI.Enabled = True
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 2, 3, 5, 6) Then
             TrVentasMedicas1.Visible = True
             DdlMedico.Enabled = True
             DdlProcedimiento.Enabled = True