Merge branch 'master' of http://192.168.10.111:8383/SIG

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

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -656,7 +656,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
 
         Dim ObjBancos As New ClsBancos
-        If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, "-1", PorGrupos:=True) Then
+        If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, DdlTipoGeneracionEnviados.SelectedValue, PorGrupos:=True) Then
             DtRegenerar = ObjBancos.DtResultados
         Else
             DtRegenerar = Nothing