Layout Grupos sin cuenta deposito

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -230,7 +230,19 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
             DTEnviadas = Nothing
         End If
-        ObjBancos.Dispose()
+        ObjBancos.Dispose()
+
+
+
+        If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
+            CargaDatosInformativos()
+        Else
+
+            LbNumeroMovimientos.Text = "0"
+            LbImporteMovimientos.Text = "0"
+
+            UpComandosGeneracion.Update()
+        End If
 
 
         'Carga GvPendientes
@@ -245,18 +257,10 @@ Partial Class Bancos_PagoElectronicoGrupos
         End If
         GvEnviadas.DataBind()
 
-        UpGVDatos.Update()
-
-        If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
-            CargaDatosInformativos()
-        Else
+        UpGVDatos.Update()
+
 
-            LbNumeroMovimientos.Text = "0"
-            LbImporteMovimientos.Text = "0"
 
-            UpComandosGeneracion.Update()
-        End If
-
     End Sub
     Private Sub CargaDatosInformativos()
         Dim Altas = 0
@@ -393,11 +397,21 @@ Partial Class Bancos_PagoElectronicoGrupos
 
     '    Return Retorno
     'End Function
+
 #End Region
 
 #Region " TAB PRINCIPAL "
 
-    Protected Sub GvPendientes_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GvPendientes_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.Header Then
+
+            e.Row.FCLinkButton("LnkCabeceraPendientes").Text = LbNumeroAltas.Text
+
+        End If
+
+
+
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             'Colorea GV
@@ -430,6 +444,8 @@ Partial Class Bancos_PagoElectronicoGrupos
             e.Row.FCHyperLink("HLImporte").NavigateUrl = String.Format("IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
         End If
+
+
     End Sub
     Protected Sub GvEnviadas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -549,7 +565,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim DtCuentasPendientesInterbancarias As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre  not like '%BBVA%'  AND BancoNombre not like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias"})
 
 
-        Dim ObjGrales As New ClsGenerales
+        'Dim ObjGrales As New ClsGenerales
 
         If DtCuentasPendientesBancomer.Rows.Count > 0 Then
             For Each dRow As DataRow In DtCuentasPendientesBancomer.Rows
@@ -594,7 +610,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 If Not ErrorLineaBancomer Then
                     RegistrosAltaBancomer.Append(SBTmpBancomer.ToString)
-                    ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
+                    ' ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
                 Else
                     SBErroresBancomer.Append("<br>")
                     SBErrores.AppendLine(SBErroresBancomer.ToString)
@@ -671,7 +687,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 If Not ErrorLineaInterbancaria Then
                     RegistrosAltaInterbancario.Append(SBTmpInterbancarias.ToString)
-                    ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
+                    ' ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
                 Else
                     SBErroresInterBancario.Append("<br>")
                     SBErrores.AppendLine(SBErroresInterBancario.ToString)
@@ -688,7 +704,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         End If
 
-        ObjGrales.Dispose()
+        ' ObjGrales.Dispose()
 
         Dim Mensaje As New StringBuilder
 
@@ -1935,7 +1951,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim DtCuentasPendientesInterbancarias As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre  not like '%BBVA%'  AND BancoNombre not like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CvePersonal", "CveBanco", "Cuenta", "BBVAAlias"})
         'CLABEDestino
 
-        Dim ObjGrales As New ClsGenerales
+        '  Dim ObjGrales As New ClsGenerales
 
         If DtCuentasPendientesBancomer.Rows.Count > 0 Then
             For Each dRow As DataRow In DtCuentasPendientesBancomer.Rows
@@ -1986,7 +2002,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 If Not ErrorLineaBancomer Then
                     RegistrosAltaBancomer.Append(SBTmpBancomer.ToString)
-                    ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
+                    ' ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
                 Else
                     SBErroresBancomer.Append("<br>")
                     SBErrores.AppendLine(SBErroresBancomer.ToString)
@@ -2070,7 +2086,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 If Not ErrorLineaInterbancaria Then
                     RegistrosAltaInterbancario.Append(SBTmpInterbancarias.ToString)
-                    ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
+                    ' ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(dRow("CveCuentaDeposito").ToString.ToEntero, True)
                 Else
                     SBErroresInterBancario.Append("<br>")
                     SBErrores.AppendLine(SBErroresInterBancario.ToString)
@@ -2087,7 +2103,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         End If
 
-        ObjGrales.Dispose()
+        ' ObjGrales.Dispose()
 
         Dim Mensaje As New StringBuilder
 
@@ -3046,8 +3062,74 @@ Partial Class Bancos_PagoElectronicoGrupos
     'NO QUITAR, SE OCUPA PARA EXPORTAR PDF
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
         Return
-    End Sub
-
-
-
+    End Sub
+
+    Protected Sub LnkCabecera_Click(sender As Object, e As EventArgs)
+
+        CargaGVPendintesModal()
+        RegistraScript("$('#UpModalCuentas').modal();")
+
+    End Sub
+
+
+    Private Sub CargaGVPendintesModal()
+
+        Dim DTGvCuentasPendientes As DataTable = DTPendientes.Copy.FiltraParametros("CveCuentaDeposito > 0", "", {"CveCuentaDeposito", "BancoNombre", "RazonSocial", "Cuenta", "CLABEDestino", "BBVAAlias", "EstatusPagoElectronicoGrupos"})
+
+        GvCuentasModal.DataSource = DTGvCuentasPendientes
+        GvCuentasModal.DataBind()
+        UpModalCuentasCuerpo.Update()
+
+    End Sub
+
+
+
+    Protected Sub GvCuentasModal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCCheckBox("ChkCuentasEstatus").Checked = True
+        End If
+
+    End Sub
+
+    Protected Sub BtnModalCuentasGuardar_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorProceso As Boolean = False
+        Dim CountAltas As Integer = 0
+
+        Dim ObjGenerales As New ClsGenerales
+
+
+        ObjGenerales.IniciaTransacSQL()
+
+        For Each GvRow As GridViewRow In GvCuentasModal.Rows
+            Dim CveCuentaDeposito As Integer = GvRow.DataKey("CveCuentaDeposito").ToEntero
+            Dim ChkCuentasEstatus As CheckBox = GvRow.FCCheckBox("ChkCuentasEstatus")
+
+            If Not ObjGenerales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito, ChkCuentasEstatus.Checked) Then
+                ErrorProceso = True
+                Exit For
+            End If
+
+        Next
+
+
+        If ErrorProceso Then
+            ObjGenerales.RollBack()
+            Alert("Se presentoun error al actualziar las cuentas", TipoMensaje.MsgError)
+        Else
+            ObjGenerales.Commit()
+            Alert("Estado de cuentas actualizado correctamente.")
+            RegistraScript("$('#UpModalCuentas').modal('hide');")
+        End If
+        ObjGenerales.Dispose()
+
+
+
+        CargaDatos()
+
+    End Sub
+
+
+
 End Class