-- al entregar buscando la factura en la barra de filtros validar que esté pagada

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