From 311ded16af709bc3af6fe76ca8c7e005326bfddd Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 11:02:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20correci=C3=B3n.=20=20para=20eliminar=20un?= =?UTF-8?q?=20movimeinto=20cancelado.=20estaba=20invertidas=20las=20valida?= =?UTF-8?q?ciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 43a82a7dc..e0ef0f2ee 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -193,6 +193,20 @@ Partial Class Bancos_IE End Set End Property + Private Property CveIECancelado As Integer + Get + If ViewState("CveIECancelado") Is Nothing Then + Return -1 + Else + Return ViewState("CveIECancelado").ToString().ToEntero() + End If + + End Get + Set(value As Integer) + ViewState("CveIECancelado") = value + End Set + End Property + Private Property ImporteOriginalDevDin As Decimal Get Return ViewState("ImporteOriginalDevDin").ToString.ToDecimal @@ -1132,6 +1146,7 @@ Partial Class Bancos_IE LbMovimientoCancelado.Text = "Movimiento Cancelado:" HLIECancelacion.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", ObjIE.CveIECancelado) HLIECancelacion.Text = ObjIE.FolioIECancelado + CveIECancelado = ObjIE.CveIECancelacion End If 'Esconde datos que no tenemos @@ -4736,7 +4751,7 @@ Partial Class Bancos_IE End Sub Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click - If CveIECancelacion > 0 Then + If CveIECancelado > 0 Then Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia) Else RegistraScript(String.Format("$('#{0}').modal('show');", "divDescripcion"))