Layout Grupos sin cuenta deposito

Bancos/PagoElectronicoGrupos.aspx

@@ -250,6 +250,9 @@
                                                     <ItemTemplate>
                                                         <asp:HyperLink ID="HLImporte" Text='<%# Eval("Abonado", "{0:N2}") %>' Target="_blank" CssClass="Texto" runat="server" />&nbsp;&nbsp;
                                                     </ItemTemplate>
+                                                   <HeaderTemplate>
+                                                       <asp:LinkButton ID="LnkCabeceraPendientes" runat="server"  OnClick="LnkCabecera_Click" Text="" CssClass="Texto" ></asp:LinkButton>
+                                                   </HeaderTemplate>
                                                 </asp:TemplateField>
                                                 <%--<asp:BoundField DataField="Abonado" HeaderText="Importe" DataFormatString="{0:N2}" />--%>
                                             </Columns>
@@ -621,6 +624,64 @@
     <asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" />
     <asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" />
 
+
+
+     <div id="UpModalCuentas" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content" style="width:750px!important">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Alta Cuentas</h4>
+                </div>
+                <div class="modal-body">
+
+                    <asp:UpdatePanel ID="UpModalCuentasCuerpo" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                           <asp:GridView ID="GvCuentasModal" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" ToolTip="Cuentas modal"  OnRowDataBound="GvCuentasModal_RowDataBound"
+                               CssClass="table table-striped table-hover Widthall" Style="text-align: center;" GridLines="None">
+                            <Columns>                                
+                                
+                                <asp:BoundField  HeaderText="Razon Social"  DataField="RazonSocial" ItemStyle-Width="200" ItemStyle-HorizontalAlign="Left"  />
+                                <asp:BoundField  HeaderText="Banco"  DataField="BancoNombre" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+                                
+                                <asp:BoundField  HeaderText="Cuenta"  DataField="Cuenta" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField  HeaderText="Clabe"  DataField="CLABEDestino" ItemStyle-HorizontalAlign="Left" />
+                                 
+                                <asp:BoundField  HeaderText="Alias"  DataField="BBVAAlias" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+                                <asp:TemplateField HeaderText="Alta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
+                                    <ItemTemplate>                                      
+                                        <asp:CheckBox ID="ChkCuentasEstatus" runat="server" Checked='<%# Eval("EstatusPagoElectronicoGrupos") %>' />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                
+                                
+                            </Columns>
+                            <RowStyle CssClass="Texto" />
+                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                            <HeaderStyle CssClass="Titulos" />
+                        </asp:GridView>
+                            
+                             
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnModalCuentasGuardar" Text="Guardar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" OnClick="BtnModalCuentasGuardar_Click" />
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -233,6 +233,18 @@ Partial Class Bancos_PagoElectronicoGrupos
         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
         If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
             GvPendientes.DataSource = DTPendientes
@@ -247,15 +259,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         UpGVDatos.Update()
 
-        If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
-            CargaDatosInformativos()
-        Else
 
-            LbNumeroMovimientos.Text = "0"
-            LbImporteMovimientos.Text = "0"
-
-            UpComandosGeneracion.Update()
-        End If
 
     End Sub
     Private Sub CargaDatosInformativos()
@@ -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)
+
+        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
 
@@ -3048,6 +3064,72 @@ Partial Class Bancos_PagoElectronicoGrupos
         Return
     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

Bancos/ProveedoresAbonar.aspx.vb

@@ -2517,8 +2517,6 @@ Partial Class Bancos_ProveedoresAbonar
                 ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
 
-                    '''Permitir pago sin cuneta deposito
-
                     If Dep.DtResultados.Rows.Count > 0 Then
                         DdlCuentaDeposito.DataSource = Dep.DtResultados  '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'")
                         trCuentaDeposito.Visible = True
@@ -2556,6 +2554,17 @@ Partial Class Bancos_ProveedoresAbonar
                     DdlCuentaDeposito.SelectedIndex = 1
                 End If
 
+
+            Else
+
+
+                If DdlTipoTransaccion.SelectedValue = "17" Then
+
+                    BtnIEGuardar.Enabled = False
+                    BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                    UpGuardar.Update()
+                End If
+
             End If
 
         End If