- mejora

Ventas/Ventas.aspx.vb

@@ -5576,7 +5576,6 @@ Partial Class Ventas
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
                     End If
 
-
                     TxtOrdenCompra.Text = DbRowVenta("OrdenCompra").ToString()
                     TxtOrdenCompra.Enabled = False
 
@@ -25651,7 +25650,7 @@ Partial Class Ventas
                 Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
                 SegundosRespuesta = SegundosRespuesta.ToEntero
 
-                If SegundosRespuesta >= 5 Then
+                If SegundosRespuesta >= 5 AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then
                     Alert($"Los servicios de cancelación del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "")
                 End If
 
@@ -32513,11 +32512,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("Procedimiento").ToString.Trim.Length > 0 Then
                         MensajeRemisionesMedicas.Append($"Procedimiento {Dr("Procedimiento")}{vbCrLf}")
                         EsRemisionMedica = True
                     End If
@@ -32540,7 +32539,6 @@ Partial Class Ventas
                     TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "")
                 End If
 
-
                 TxtOrdenCompra.Text = If(ObsOC.ToString().Length > 0, ObsOC.ToString().Substring(0, ObsOC.ToString().Length - 2), "")
                 TxtPedidoContrato.Text = If(ObsPedido.ToString().Length > 0, ObsPedido.ToString().Substring(0, ObsPedido.ToString().Length - 2), "")
                 TxtObsAlmacen.Text = If(ObsInv.ToString().Length > 0, ObsInv.ToString().Substring(0, ObsInv.ToString().Length - 2), "")
@@ -36978,7 +36976,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