- mejora en envío de cuentas depósitos

Compras/Proveedores.aspx

@@ -3629,67 +3629,97 @@
                         <h4 class="modal-title" id="H2" runat="server">Cuenta Bancaria</h4>
                     </div>
                     <div class="modal-body">
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="row">
-                            <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                            <div class="col-md-6">
-                            <asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
+                                    <asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
-                        </div>
+                                    <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
-                        <div class="form-group form-md-line-input input-iconright">
+                                    <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
-                            <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                </div>
-                            <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
+                                        </div>
-                        </div>
+                                     <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
+                                </div>
+                                 </div>
+                            </div>
+                         <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
                             <label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
                         </div>
+                                 </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
                             <label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
                         </div>
+                                          </div>
+                                 </div>
+                         <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
                         </div>
+                                 </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
                         </div>
+                                          </div>
+                                 </div>
+                        <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
                             <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
                         </div>
-                        
+                        </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
                             <label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
                         </div>
-
+ </div>
+                                 </div>
+                        <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
                             <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
                         </div>
-
+</div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Credito Proveedor:</label>
                         </div>
+                                          </div>
+ </div> <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <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>
+                                     <div class="col-md-6">
                         <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>
+                                          </div>
                         <div class="row">
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">

Compras/Proveedores.aspx.vb

@@ -506,6 +506,7 @@ Partial Class Compras_Proveedores
                     CargaAnticipos(CveProveedorSucursal)
                     CargaBancos(CveProveedorSucursal)
                     CargaProveedorSucursales()
+                    CargaCuentasBancarias()
 
                     CargaOC()
                     CargaDocs()
@@ -3091,37 +3092,30 @@ Partial Class Compras_Proveedores
     '    CargaCuentasBancarias()
     'End Sub
     Private Sub CargaCuentasBancarias()
-        Dim ObjCuentasBancos As New ClsGenerales
+
         ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
-        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then
+        If CveProveedor > 0 Then
-            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+            Dim ObjCuentasBancos As New ClsGenerales
-        Else
+            If ObjCuentasBancos.GetCuentasDepositos(CveProveedor, CveCliente:=-2, CvePersonal:=-2, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+            Else
+                Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+            End If
+            ObjCuentasBancos.Dispose()
         End If
 
+
         If CveProveedor < 0 Then
             'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
             TempDTCuentasBancos = DTCuentasBancos.Clone
 
-            'Esconde columna estatus
-            'THEstatus.Visible = False
-            'THEstatusTexto.Visible = False
-            'GvBancosCuentas.Columns(11).Visible = False 'Es la columna estatus CheckBox
-
-            'Mexicanada para acomadar las columnas'
-            'TDEstatusLayout.Visible = False
-            'TDEstatusTexto.Visible = False
-
         End If
 
-        ObjCuentasBancos.Dispose()
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
 
-        RecargaGlobalCuentasBancarias()
-
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
 
@@ -3213,21 +3207,22 @@ Partial Class Compras_Proveedores
                                    CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer,
                                    ConceptoCIE As String)
 
-        Dim ObjCuentasBancos As New ClsGenerales
+
         If Modalidad = "A" Then
 
             If CveProveedor > 0 Then
-
+                Dim ObjCuentasBancos As New ClsGenerales
                 If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
                                                         Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
+                    CargaCuentasBancarias()
                 Else
                     Alert("Error al registrar la cuenta bancaria. Por favor intente nuevamente", TipoMensaje.MsgError)
                 End If
-
+                ObjCuentasBancos.Dispose()
             Else
                 Dim Row As DataRow
                 Row = TempDTCuentasBancos.NewRow
@@ -3261,7 +3256,7 @@ Partial Class Compras_Proveedores
 
 
             If CveProveedor > 0 Then
-
+                Dim ObjCuentasBancos As New ClsGenerales
                 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, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco,
                                                            ConceptoCIE:=ConceptoCIE) Then
@@ -3269,9 +3264,11 @@ Partial Class Compras_Proveedores
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
+                    CargaCuentasBancarias()
                 Else
                     Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
                 End If
+                ObjCuentasBancos.Dispose()
 
             Else
 
@@ -3301,7 +3298,7 @@ Partial Class Compras_Proveedores
             End If
 
         End If
-        ObjCuentasBancos.Dispose()
+
         LimpiaCuentasBancarias()
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
         RecargaGlobalCuentasBancarias()
@@ -3387,160 +3384,6 @@ Partial Class Compras_Proveedores
         End If
     End Sub
 
-    ''Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
-    ''    Dim id As Integer = e.NewEditIndex
-    ''    GvBancosCuentas.EditIndex = id
-    ''    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-
-    ''    'Dim x As String = GvBancosCuentas.SelectedRowStyle("EstatusPagoElectronico")
-
-    ''    'If CBool(e.Row.DBCampo("EstatusPagoElectronico")) AndAlso e.Row.DBCampo("Referencia").ToString <> "" Then
-
-    ''    'End If
-
-    ''End Sub
-    'Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
-    '    GvBancosCuentas.EditIndex = -1
-    '    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-    'End Sub
-    'Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
-
-    '    Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
-    '    Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim
-    '    Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim
-    '    Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim
-    '    Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim
-    '    Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim
-    '    Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim
-    '    Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
-    '    Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim
-    '    Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString.ToEntero
-    '    Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
-    '    Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
-
-    '    Dim EsBancomer = False
-
-    '    If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then
-    '        EsBancomer = True
-    '    End If
-
-    '    ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA
-    '    'If EsBancomer AndAlso (CLABE.Length <> 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then
-    '    '    Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
-    '    '    Exit Sub
-    '    'End If
-
-    '    ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
-    '    'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then
-    '    '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '    '    Exit Sub
-    '    'End If
-
-    '    'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
-    '    If NumeroCuenta.Length = 0 AndAlso CLABE.Length = 0 AndAlso SWIFT.Length = 0 AndAlso ConvenioCIE.Length = 0 Then
-    '        Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
-    '    If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then
-    '        Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If UsuarioActual.CveEmpresa = 66 Then
-    '        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
-    '        If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer And SWIFT.Length = 0 Then
-    '            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
-    '        If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then
-    '            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'SI CIE TIENE ALGO REFERENCIA OBLIGATORIA
-    '        If ConvenioCIE.Trim.Length <> 0 And Referencia.Trim.Length < 3 Then
-    '            Alert("Cuando se ingresa Convenio CIE se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
-    '        If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length <> 0) Then
-    '            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-    '    Else
-    '        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5
-    '        If ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length < 5 Then
-    '            Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-    '    End If
-
-
-
-    '    Dim ObjCuentasBancos As New ClsGenerales
-    '    If CveProveedor > 0 Then
-    '        If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda) Then
-    '            DTCuentasBancos.Clear()
-    '            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
-    '            Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
-    '        Else
-    '            Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
-    '        End If
-    '    Else
-    '        Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1
-    '        Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
-    '        Row("BancoNombre") = NombreBanco
-    '        Row("Sucursal") = NumeroSucursal
-    '        Row("CLABE") = CLABE
-    '        Row("SWIFT") = SWIFT
-    '        Row("Plaza") = Plaza
-    '        Row("Cuenta") = NumeroCuenta
-    '        Row("CIE") = ConvenioCIE
-    '        Row("Referencia") = Referencia
-    '        Row("RefCrediProveedor") = RefCrediProveedor
-    '        Row("CveMoneda") = CveMoneda
-    '        Row("Moneda") = Moneda
-    '        Row("Estatus") = Estatus
-    '        TempDTCuentasBancos.AcceptChanges()
-    '    End If
-
-    '    ObjCuentasBancos.Dispose()
-
-    '    GvBancosCuentas.EditIndex = -1
-    '    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-    '    RecargaGlobalCuentasBancarias()
-    'End Sub
-    'Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
-    '    Dim ObjCuentasBancos As New ClsGenerales
-
-    '    If CveProveedor > 0 Then
-    '        If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero) Then
-    '            DTCuentasBancos.Clear()
-    '            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
-
-    '            Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
-    '        Else
-    '            Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
-    '        End If
-    '    Else
-    '        Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1
-    '        TempDTCuentasBancos.Rows.RemoveAt(index)
-    '    End If
-
-    '    If ObjCuentasBancos.GetCuentasDepositos Then
-    '        GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados
-    '    End If
-
-    '    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-    '    ObjCuentasBancos.Dispose()
-    '    RecargaGlobalCuentasBancarias()
-    'End Sub
-
     Public Sub Delete_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim ObjCuentasBancos As New ClsGenerales
@@ -3567,12 +3410,7 @@ Partial Class Compras_Proveedores
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveProveedor > 0 Then
             GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-            'Dim ObjCuentasBancos As New ClsGenerales
 
-            'If ObjCuentasBancos.GetCuentasDepositos() Then
-            '    GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1, True) = ObjCuentasBancos.DtResultados
-            'End If
-            'ObjCuentasBancos.Dispose()
         End If
     End Sub