--fix ventas

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