From b1e1f326dbf7dc315b5a251f53ffa480800a849d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 23 May 2024 19:14:23 -0700 Subject: [PATCH] - mejora --- Ventas/Ventas.aspx.vb | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ee5f66057..659aff5ba 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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