Clientes ajustes Cuentas Deposito, compras GVNCInvAlmacen pu 5 decimales, diario de pagos correcion control, proveedores carga tipo de operación

Compras/Compras.aspx

@@ -5042,7 +5042,7 @@
                                                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
                                                     <asp:TemplateField HeaderText="P.U." ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
                                                         <ItemTemplate>
-                                                            <asp:Textbox ID="TxtPU" Width="60px" Text='<%#   Eval("PU", "{0:N2}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
+                                                            <asp:Textbox ID="TxtPU" Width="60px" Text='<%#   Eval("PU", "{0:N5}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">

Compras/Compras.aspx.vb

@@ -15524,6 +15524,9 @@ Partial Class Compras_Compras
             End If
         End If
 
+        Dim ivaPorcentaje As Decimal = DTOCGV.MAX("IVAPorcentaje").ToDecimal
+        Dim IVAPorcentajeTmp As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+
         If DTOCGV.MAX("IVAPorcentaje").ToDecimal <> TmpDT.MAX("IVAPorcentaje").ToDecimal Then
             Alert("La orden de compra(s) tiene diferentes tasa de IVA.", TipoMensaje.MsgAdvertencia)
         End If

Compras/Proveedores.aspx.vb

@@ -5890,7 +5890,14 @@ Partial Class Compras_Proveedores
 
 
     Private Sub CargaTipoTransaccion()
+
+
+        If GlobalDTDIOTTipoOperacion IsNot Nothing AndAlso GlobalDTDIOTTipoOperacion.Rows.Count = 0 Then
+            GlobalDTDIOTTipoOperacion = Nothing
+        End If
+
         Dim Filtro As String = ""
+
         Select Case DDlDIOTTipoTercero.SelectedValue
             Case "1"
                 Filtro = "AplicaProvNacional = 1"
@@ -5900,8 +5907,11 @@ Partial Class Compras_Proveedores
                 Filtro = "AplicaProvGlobal = 1"
         End Select
 
+        GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
+
         DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
         DdlDIOTTipoOperacion.DataBind()
+
     End Sub
 
 

Contabilidad/DiarioPagos.aspx

@@ -695,6 +695,7 @@
                                                                   <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
                                                                    <asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
                                                                   <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
+                                                                   <asp:HiddenField ID="HdnCveMonedaCompra" runat="server" Value='<%# Eval("CveMonedaCompra")%>' />
 
                                                                   <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                       <tr class="SubTotales">

General/SaldosIniciales.aspx.vb

@@ -794,7 +794,7 @@ Partial Class General_SaldosIniciales
 
         Dim DTCuentasContables As New DataTable
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174) Then
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174, 184) Then
 
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -1445,7 +1445,7 @@ Partial Class General_SaldosIniciales
 
                     If CobranzaTelefono.Trim.Length > 10 Then CobranzaTelefono = ""
 
-                    Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "")
+                    Dim FormaPago As String = If(dt.Columns.Contains("FormaPago"), Row("FormaPago").ToString(), "")
                     Dim CveFormaPago33 As Integer = 99
 
                     Select Case FormaPago

Ventas/Clientes.aspx

@@ -2569,7 +2569,8 @@
                             <div class="portlet-body ">
                                 <asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <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,CveMoneda,Estatus,EstatusTexto" 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,CveMoneda,Estatus,EstatusTexto,CveSATBanco" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
                                             <Columns>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
                                                     <ItemTemplate>
@@ -6028,53 +6029,103 @@
                         <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">
+
-                            <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+
-                            <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" runat="server" id="DVDdlSatBanco" visible="true">
-                            <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+
-                            <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
+                            <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
-                        </div>
+                                <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
-                        <div class="form-group form-md-line-input input-iconright">
+                            </asp:DropDownList>
-                            <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" 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>
-                            <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
+                            <ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
-                        </div>
+                            <label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
-                        <div class="form-group form-md-line-input input-iconright">
+
-                            <asp:TextBox ID="TxtNumeroCuenta2" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta2" FilterType="Numbers" />
-                            <label for="<%= TxtNumeroCuenta2.ClientID.ToString()%>">Numero de Cuenta:</label>
-                        </div>
-                        <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 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 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 class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtConvenioCIE2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtConvenioCIE2.ClientID.ToString()%>">CIE:</label>
-                        </div>
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtReferencia2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumeros33" runat="server" TargetControlID="TxtReferencia2" FilterType="Numbers" />
-                            <label for="<%= TxtReferencia2.ClientID.ToString()%>">Referencia:</label>
                         </div>
 
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="row">
-                            <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
+                            <div class="col-md-6">
-                            <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>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</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>
+                                    <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</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="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
+
-                            <asp:CheckBox ID="ChkEstatus2" runat="server"></asp:CheckBox>
+
-                            <label for="<%= ChkEstatus2.ClientID.ToString()%>">Estatus:</label>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtNumeroCuenta2" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta2" FilterType="Numbers" />
+                                    <label for="<%= TxtNumeroCuenta2.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="TxtConvenioCIE2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtConvenioCIE2.ClientID.ToString()%>">CIE:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtReferencia2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros33" runat="server" TargetControlID="TxtReferencia2" FilterType="Numbers" />
+                                    <label for="<%= TxtReferencia2.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: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>
+                                    <ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
+                                    <asp:CheckBox ID="ChkEstatus2" runat="server"></asp:CheckBox>
+                                    <label for="<%= ChkEstatus2.ClientID.ToString()%>">Estatus:</label>
+                                </div>
+                            </div>
                         </div>
 
                     </div>

Ventas/Clientes.aspx.vb

@@ -1268,8 +1268,6 @@ Partial Class Clientes
         CargaMetodosPago()
         CargaPrecioLista()
         CargaVendedores()
-
-
         'CargaCorporativo()
 
         CargaMetodosPago33()
@@ -1278,12 +1276,30 @@ Partial Class Clientes
 
         CargaClasificaciones()
 
-
         DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
         DdlRegimenFiscal.DataBind()
 
         CargaCombosComercioExterior()
 
+        CargaBancosSAT()
+        CargaMonedas()
+    End Sub
+
+    Private Sub CargaBancosSAT()
+
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetBancosSAT Then
+            DdlSatBanco.DataSource = ObjBancos.DtResultados
+        End If
+
+        ObjBancos.Dispose()
+
+        DdlSatBanco.DataBind()
+        DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+
     End Sub
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
@@ -6790,14 +6806,16 @@ Partial Class Clientes
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaPSGridCuentasBancos()
+        CargaPSGridCuentasBancos()
-
+
-        CargaMonedas()
+
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
         Dim EsBancomer As Boolean = 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
+        If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or
+            DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BBVA") Or
+            DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
             EsBancomer = True
         End If
 
@@ -6852,15 +6870,19 @@ Partial Class Clientes
         Dim Estatus As Boolean
         If ChkEstatus2.Checked = True Then Estatus = True Else Estatus = False
 
-        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus)
+        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "",
+                           DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus, DdlSatBanco.SelectedValue.ToEntero)
     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)
+    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, CveSATBanco As Integer)
+
         Dim ObjCuentasBancos As New ClsGenerales
+
         If Modalidad = "A" Then
 
             If CveCliente > 0 Then
 
-                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveSATBanco:=CveSATBanco) Then
                     DTCuentasBancos.Clear()
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6871,6 +6893,31 @@ Partial Class Clientes
 
             Else
                 Dim Row As DataRow
+
+                If TempDTCuentasBancos Is Nothing Then
+                    TempDTCuentasBancos = New DataTable
+                    TempDTCuentasBancos.Columns.Add("CveCuentaDeposito", GetType(Integer))
+                    TempDTCuentasBancos.Columns.Add("BancoNombre", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("Sucursal", GetType(String))
+
+                    TempDTCuentasBancos.Columns.Add("CLABE", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("SWIFT", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("Plaza", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("Cuenta", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("CIE", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("Referencia", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("RefCrediProveedor", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("CveMoneda", GetType(Integer))
+                    TempDTCuentasBancos.Columns.Add("Moneda", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("EstatusPagoElectronico", GetType(Integer))
+                    TempDTCuentasBancos.Columns.Add("Estatus", GetType(String))
+                    TempDTCuentasBancos.Columns.Add("CveSATBanco", GetType(Integer))
+                    TempDTCuentasBancos.Columns.Add("EstatusTexto", GetType(String))
+
+
+
+                End If
+
                 Row = TempDTCuentasBancos.NewRow
 
                 Row("BancoNombre") = NombreBanco
@@ -6886,6 +6933,7 @@ Partial Class Clientes
                 Row("Moneda") = Moneda
                 Row("EstatusPagoElectronico") = 0
                 Row("Estatus") = "True"
+                Row("CveSATBanco") = CveSATBanco
                 TempDTCuentasBancos.Rows.Add(Row)
                 Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6896,7 +6944,8 @@ Partial Class Clientes
 
             If CveCliente > 0 Then
 
-                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then
+                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa,
+                                                           CveSATBanco:=CveSATBanco) Then
                     DTCuentasBancos.Clear()
                     CargaCuentasBancarias()
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -6920,6 +6969,7 @@ Partial Class Clientes
                 Row("CveMoneda") = CveMoneda
                 Row("Moneda") = Moneda
                 Row("Estatus") = Estatus
+                Row("CveSATBanco") = CveSATBanco
                 TempDTCuentasBancos.AcceptChanges()
                 Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6932,6 +6982,7 @@ Partial Class Clientes
         RecargaGlobalCuentasBancarias()
     End Sub
     Private Sub LimpiaCuentasBancarias()
+        DdlSatBanco.SelectedValueExist(-1)
         TxtNombreBanco.Text = ""
         TxtNumeroSucursal.Text = ""
         TxtCLABE.Text = ""
@@ -7014,7 +7065,8 @@ Partial Class Clientes
     End Sub
 
     Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click
-        Modalidad = "A"
+        Modalidad = "A"
+        DdlSatBanco.SelectedValueExist(-1)
         TxtNombreBanco.Text = ""
         LbAgregarCuentaBanco.Text = "Agregar"
         TxtNumeroSucursal.Text = ""
@@ -7033,6 +7085,9 @@ Partial Class Clientes
 
     Public Sub Edit_Click2(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+        DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
         TxtNombreBanco.Text = GvRow.DataKey("BancoNombre")
         Modalidad = "U"
         LbAgregarCuentaBanco.Text = "Actualizar"