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"))