FolioFechaCacnelacion Inicial, Bancos IE no eliminar movmientos con cancelaciones

Bancos/IE.aspx.vb

@@ -1189,6 +1189,11 @@ Partial Class Bancos_IE
                     If ObjIE.FechaIngCancelacion.ToShortDateString = "01/01/0001" Then TrFechaIngCancelacion.Visible = False
 
                 End If
+
+                If ObjIE.CveIECancelacion > 0 Then
+                    CveIECancelacion = ObjIE.CveIECancelacion
+                End If
+
                 UpCancelacion.Update()
 
                 'OTROS DATOS - DATOS COMPLEMENTO SUSTITUCION
@@ -4805,7 +4810,7 @@ Partial Class Bancos_IE
     End Sub
 
     Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
-        If CveIECancelado > 0 Then
+        If CveIECancelado > 0 Or CveIECancelacion > 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"))