Layout Grupos sin cuenta deposito

2020-04-14 18:33:59 -07:00
parent f91f23e2b1
commit b735ebb019
5 changed files with 2658 additions and 26 deletions
--- a/Bancos/PagoElectronicoGrupos.aspx
+++ b/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">

--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/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
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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
--- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx
+++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx
--- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
+++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb