--FIX. ConciliacionesBancarias, poder seleccionar de 1 a N. para asociarlas

Bancos/ConciliacionesBancarias.aspx.vb

@@ -6,6 +6,7 @@ Imports Extensiones
 Imports System.Xml
 Imports Microsoft.Reporting.WebForms
 Imports System.Globalization
+Imports Telerik.Web.UI
 
 Partial Class Bancos_ConciliacionesBancariasaspx
     Inherits ClsPaginas
@@ -231,15 +232,20 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         RegistraScript("$('#DModalCriterio').modal()")
     End Sub
     Private Sub ConciliacionManual()
+
+        If GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 0 OrElse GvEdoConciliacion.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 0 Then
+            Alert("Debe seleccionar un folio", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim SumaSIGAbono As Double = 0
         Dim SumaSIGCargo As Double = 0
         Dim SumaExcelAbono As Double = 0
         Dim SumaExcelCargo As Double = 0
-        Dim Seleccionados As Integer = 0
         Dim Fecha As Date
+
         For Each Gvr As GridViewRow In GvDatos.Rows
             If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then
-                Seleccionados += 1
                 Fecha = Gvr.DataKey("FechaDocumento").ToDate
                 If Gvr.DataKey("Tipo") = "Cargo" Then
                     If Gvr.DataKey("Importe").ToDouble < 0 Then ' cuando es negativo suma para el abono
@@ -258,13 +264,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
                 End If
             End If
         Next
-        If Seleccionados > 1 Then
+
-            Alert("Tiene que tener seleccionado solamente un movimiento.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        ElseIf Not Seleccionados > 0 Then
-            Alert("Tiene que tener seleccionado .", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
         For Each Gvr As GridViewRow In GvEdoConciliacion.Rows
             If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then
                 If (Gvr.DataKey("FechaDocumento").ToDate = Fecha And DdlCriterio.SelectedValue.ToEntero = 1) Or DdlCriterio.SelectedValue.ToEntero = 2 Then
@@ -279,10 +279,20 @@ Partial Class Bancos_ConciliacionesBancariasaspx
                 End If
             End If
         Next
+
         If SumaSIGCargo <> SumaExcelCargo OrElse SumaSIGAbono <> SumaExcelAbono Then
             Alert($"La suma de los importes no cuadran ({SumaSIGCargo}-{SumaExcelCargo}**{SumaSIGAbono}-{SumaExcelAbono})", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
+
+        Dim CumpleCriterioContable = GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 1 AndAlso GvEdoConciliacion.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count >= 1
+        Dim CumpleCriterioBancario = GvEdoConciliacion.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 1 AndAlso GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count >= 1
+
+        If Not (CumpleCriterioContable OrElse CumpleCriterioBancario) Then
+            Alert("Debe seleccionar solo 1 folio del lado contable o bancario", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjBancos As New ClsBancos
         Dim ObjOI As New ClsOIEventos(ObjBancos.IniciaTransacSQL())
         Dim ErrorTrans As Boolean = False