From 48e70ed77848ef18b2f5ee60ed11dc6c3c59b335 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 24 May 2024 12:35:42 -0700
Subject: [PATCH] --fix ventas

---
 Ventas/Ventas.aspx.vb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 66ba3dabd..053d9d08d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -32523,11 +32523,11 @@ Partial Class Ventas
 
                 For Each Dr As DataRow In dtSeleccionadas.Rows
 
-                    If Dr("Medico").ToString.Length > 0 Then
-                        MensajeRemisionesMedicas.Append($"Dr. {Dr("MEdico").ToString}{vbCrLf}")
+                    If Dr("Medico").ToString().Trim().Length > 0 Then
+                        MensajeRemisionesMedicas.Append($"Dr. {Dr("Medico").ToString}{vbCrLf}")
                         EsRemisionMedica = True
                     End If
-                    If Dr("Medico").ToString.Length > 0 Then
+                    If Dr("Medico").ToString().Trim().Length > 0 Then
                         MensajeRemisionesMedicas.Append($"Procedimiento {Dr("Procedimiento")}{vbCrLf}")
                         EsRemisionMedica = True
                     End If
@@ -36988,7 +36988,6 @@ Partial Class Ventas
 
                 If CveVenta <= 0 Then
                     TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToString("dd/MM/yyyy")
-                    TxtOrdenCompra.Text = ""
 
                     'SI SE HABILITO LA FACTURACION DESDE LA LINEA ADICIONAL DEBE QUITARLO
                     If HabilitoFacturacionIngresoLineaAdicional Then