From d735c47179e712aa0534f19090e460c6b87566d4 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 17 Feb 2025 21:48:30 -0700 Subject: [PATCH] -- GDiaz, si not tiene pago, que permita para ecommerce --- Inventarios/EntregaAlmacen.aspx.vb | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 0ebc61b54..2f2071652 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -6,8 +6,6 @@ Imports System.Data.SqlClient Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms - - Partial Class Inventarios_EntregaAlmacen Inherits ClsPaginas @@ -699,8 +697,8 @@ Partial Class Inventarios_EntregaAlmacen Dim drvs As DataRow = objV.DtResultados.FiltroPrimero("") LtlRegistra.Text = drvs("VendedorNombre").ToString - - If drvs("Saldo").ToString.ToDecimal > 0 AndAlso (drvs("CondicionesPago").ToString = "0" Or drvs("TipoDocto").ToString = "Rem") Then + 'subproyecto e-commerce, si se permite surtir, sin tener registro de pago. cvesubproyecto:12849 + If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CveSubProyecto").ToString <> "12849" AndAlso (drvs("CondicionesPago").ToString = "0" OrElse drvs("TipoDocto").ToString = "Rem") Then Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError) BtnGuardar.Visible = False End If @@ -3458,11 +3456,11 @@ Partial Class Inventarios_EntregaAlmacen End If Limpia() - CargaPendientes() - LimpiaCampos() - CargaBitacora = False - Else - ObjInventario.RollBack() + CargaPendientes() + LimpiaCampos() + CargaBitacora = False + Else + ObjInventario.RollBack() Alert(TextoError.ToString(), TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") End If