Pago Grupos Liberacion General

2020-03-24 10:52:21 -07:00
parent b6b8936144
commit 58e74bfbf2
13 changed files with 5587 additions and 5429 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3624,6 +3624,7 @@ Partial Class Compras_Compras
                        'OBTENER TRASLADOS POR DETALLES
                        Dim ContadorTraslado = 0
                        Dim nodosConceptosTraslado As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
+
                        For Each nodeTraslado As XmlNode In nodosConceptosTraslado

                            If Not DtTemporalGuardados.FiltraParametros($"Contador = {ContadorTraslado} AND Tipo = 1").Rows.Count > 0 Then
@@ -3637,7 +3638,12 @@ Partial Class Compras_Compras
                                        Dr("Tipo") = 1
                                        DtTemporalGuardados.Rows.Add(Dr)
                                        DtTemporalGuardados.AcceptChanges()
-                                        Exit For
+
+                                        If PorcentajeIVA > 0 Then
+                                            Exit For
+                                        End If
+
+
                                    ElseIf ValorXML(nodeTraslado, "Impuesto") = "003" Then
                                        IEPS = ValorXML(nodeTraslado, "Importe").Trim.ToDecimal
                                        PorcentajeIEPS = ValorXML(nodeTraslado, "TasaOCuota").Trim.ToDecimal
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -1943,7 +1943,10 @@
                                            <ContentTemplate>
                                                <div runat="server">

-                                                    <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
+                                                    <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" 
+                                                        DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias" AutoGenerateColumns="False" 
+                                                        EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
+
                                                        <Columns>
                                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
                                                                <ItemTemplate>
@@ -3575,6 +3578,7 @@
        </asp:UpdatePanel>
    </div>

+
    <div id="DivAddCuentasBancarias" class="modal ADS fade" role="dialog">
        <asp:UpdatePanel ID="UpAddBancos" class="modal-dialog" runat="server" UpdateMode="Conditional">
            <ContentTemplate>
@@ -3632,6 +3636,13 @@
                            <asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                            <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                            <ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
+                            <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
+                        </div>
+
                        <div class="form-group form-md-line-input input-iconright">
                            <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
                            <asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -1640,7 +1640,7 @@ Partial Class Compras_Proveedores
                ''Agregar Cuentas Bancarias
                If TempDTCuentasBancos.Rows.Count > 0 Then
                    For Each row As DataRow In TempDTCuentasBancos.Rows
-                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString) Then
+                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString) Then
                            ErrorBancos = True
                        End If
                    Next
@@ -3038,6 +3038,7 @@ Partial Class Compras_Proveedores
        RecargaGlobalCuentasBancarias()
    End Sub
    Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
+
        Dim EsBancomer = False

        If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
@@ -3110,15 +3111,15 @@ Partial Class Compras_Proveedores
        Dim Estatus As Boolean
        If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False

-        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim)
+        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text)
    End Sub
-    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String)
+    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String)
        Dim ObjCuentasBancos As New ClsGenerales
        If Modalidad = "A" Then

            If CveProveedor > 0 Then

-                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo) Then
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias) Then
                    DTCuentasBancos.Clear()
                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                    Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
@@ -3156,7 +3157,7 @@ Partial Class Compras_Proveedores

            If CveProveedor > 0 Then

-                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo) Then
+                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias) Then
                    DTCuentasBancos.Clear()
                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                    Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3204,6 +3205,7 @@ Partial Class Compras_Proveedores
        TxtReferencia.Text = ""
        TxtRefCrediProveedor.Text = ""
        TxtCorreoCuenta.Text = ""
+        TxtBBVAAlias.Text = ""
    End Sub

 #Region "GRIDVIEW - CUENTAS BANCARIAS"
@@ -4668,6 +4670,7 @@ Partial Class Compras_Proveedores
        TxtRefCrediProveedor.Text = ""
        DdlMoneda.SelectedIndex = 0
        TxtCorreoCuenta.Text = ""
+        TxtBBVAAlias.Text = ""
        ChkEstatus.Checked = True
        divestatus.Visible = False
        UpAddBancos.Update()
@@ -4689,6 +4692,7 @@ Partial Class Compras_Proveedores
        TxtReferencia.Text = GvRow.DataKey("Referencia")
        TxtRefCrediProveedor.Text = GvRow.DataKey("RefCrediProveedor")
        TxtCorreoCuenta.Text = GvRow.DataKey("Correo")
+        TxtBBVAAlias.Text = GvRow.DataKey("BBVAAlias")
        DdlMoneda.SelectedValueExist(GvRow.DataKey("CveMoneda"))
        ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
        divestatus.Visible = True
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -239,6 +239,22 @@ Partial Class Compras_ReembolsosComprobaciones
        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)

        dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
+
+
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
+            dt = dt.FiltraParametros("CveTipoCuenta = 7")
+        End If
+
+        'cuando es layout
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
+            dt = dt.FiltraParametros("UsaLayout = 1")
+        End If
+
+
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
+            dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
+        End If
+
        DdlCuenta.DataSource = dt
        DdlCuenta.DataBind()
        DdlCuenta.Items.Insert(0, New ListItem("Seleccione cuenta", "-1"))