From 5bde263ac5b98ab876203e7b9ea0284cec761c8b Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 22 Dec 2024 09:20:29 -0700 Subject: [PATCH] =?UTF-8?q?--c=20orrecci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index ead541bd9..f223cc7c8 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -700,7 +700,7 @@ Partial Class Inventarios_EntregaAlmacen LtlRegistra.Text = drvs("VendedorNombre").ToString - If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CondicionesPago").ToString = "0" Then + If drvs("Saldo").ToString.ToDecimal > 0 AndAlso (drvs("CondicionesPago").ToString = "0" Or drvs("TipoDocto").ToString = "Rem") Then Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError) BtnGuardar.Visible = False End If @@ -4639,7 +4639,7 @@ Partial Class Inventarios_EntregaAlmacen Dim Respuesta As Boolean = True - Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5").ToEntero ' estatus cancelado + Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 4").ToEntero ' estatus cancelado If CveOSEstatusFinalizada > 0 Then