From 5ccb47f9619a557ef27c96b7dda7552c42724da1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 13 Dec 2024 11:19:11 -0700
Subject: [PATCH] =?UTF-8?q?--=20al=20entregar=20buscando=20la=20factura=20?=
 =?UTF-8?q?en=20la=20barra=20de=20filtros=20validar=20que=20est=C3=A9=20pa?=
 =?UTF-8?q?gada?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntregaAlmacen.aspx.vb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index dd56a1943..47de3e2f3 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -693,7 +693,15 @@ Partial Class Inventarios_EntregaAlmacen
                         LtlRegistro.Text = "Vendedor:"
                         Dim objV As New ClsVentas
                         If objV.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
-                            LtlRegistra.Text = objV.DtResultados.FiltroPrimeroValor("VendedorNombre")
+                            Dim drvs As DataRow = objV.DtResultados.FiltroPrimero("")
+
+                            LtlRegistra.Text = drvs("VendedorNombre").ToString
+
+                            If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CondicionesPago").ToString = "0" Then
+                                Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError)
+                                BtnGuardar.Visible = False
+                            End If
+
                         End If
                         objV.Dispose()
                     End If