Grupos y Clacificacaiones Comprobaciones
This commit is contained in:
Rakcsle Supertramp
@@ -1944,141 +1944,86 @@
|
||||
<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,BBVAAlias" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,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>
|
||||
<asp:Label ID="LtNombreBanco" runat="server" data-toggle="tooltip" title='<%# Eval("BancoNombre")%>' Text='<%# Eval("BancoNombre")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%--<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtNombreBanco" CssClass="truncate" runat="server" CausesValidation="true" MaxLength="90" Text='<%# Eval("BancoNombre")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></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>''NombreBanco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEditarCuentaBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="# Suc." ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtNumeroSucursal" runat="server" data-toggle="tooltip" title='<%# Eval("Sucursal")%>' Text='<%# Eval("Sucursal")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%--<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtNumeroSucursal" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Sucursal")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Num. Cuenta" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtNumeroCuenta" runat="server" data-toggle="tooltip" title='<%# Eval("Cuenta")%>' Text='<%# Eval("Cuenta")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:TextBox ID="TxtNumeroCuenta" runat="server" CausesValidation="true" Text='<%# Eval("Cuenta")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="CLABE" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtCLABE" runat="server" data-toggle="tooltip" title='<%# Eval("CLABE")%>' Text='<%# Eval("CLABE")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:TextBox ID="TxtCLABE" runat="server" CausesValidation="true" MaxLength="18" Text='<%# Eval("CLABE")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
AndAlso Eval("Referencia") IsNot ""
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="SWIFT" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtSWIFT" runat="server" data-toggle="tooltip" title='<%# Eval("SWIFT")%>' Text='<%# Eval("SWIFT")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:TextBox ID="TxtSWIFT" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("SWIFT")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Plaza" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtPlaza" runat="server" data-toggle="tooltip" title='<%# Eval("Plaza")%>' Text='<%# Eval("Plaza")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%--<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtPlaza" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("Plaza")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="CIE" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtConvenioCIE" runat="server" data-toggle="tooltip" title='<%# Eval("CIE")%>' Text='<%# Eval("CIE")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:TextBox ID="TxtConvenioCIE" runat="server" CausesValidation="true" MaxLength="8" Text='<%# Eval("CIE")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Referencia" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtReferencia" runat="server" data-toggle="tooltip" title='<%# Eval("Referencia")%>' Text='<%# Eval("Referencia")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:TextBox ID="TxtReferencia" runat="server" CausesValidation="true" MaxLength="20" Text='<%# Eval("Referencia")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="Numbers" />
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cred. Prov." ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtRefCrediProveedor" runat="server" data-toggle="tooltip" title='<%# Eval("RefCrediProveedor")%>' Text='<%# Eval("RefCrediProveedor")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:TextBox ID="TxtRefCrediProveedor" runat="server" CausesValidation="true" MaxLength="5" Text='<%# Eval("RefCrediProveedor")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
|
||||
</EditItemTemplate>--%>
|
||||
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Moneda" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtMoneda" runat="server" Text='<%# Eval("Moneda")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" Width="90%"></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="GrpEditarCuentaBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>--%>
|
||||
</asp:TemplateField>
|
||||
<%-- <asp:TemplateField ItemStyle-Width="7%" HeaderText="Estatus Layout" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
|
||||
<asp:Label ID="LblEstatusPE" runat="server" Text='<%# IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No")%>'>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
|
||||
</EditItemTemplate>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="P.E." ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblPagoelectronico" Text='<%# Eval("Pagoelectronico")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="P.E.G" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblPagoElectronicoGrupo" Text='<%# Eval("PagoElectronicoGrupos")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- <asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<%-- <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditarCuentaBanco" />
|
||||
<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Elim." ItemStyle-Width="7%" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
@@ -3643,17 +3588,57 @@
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
<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="ChkEstatus" runat="server"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" id="div2" runat="server">
|
||||
<asp:CheckBox ID="ChkPagoElectronico" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
|
||||
<label for="<%= ChkPagoElectronico.ClientID.ToString()%>">Pago Electronico</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
|
||||
|
||||
<asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" OnCheckedChanged="ChkPagoElectronicoGrupos_CheckedChanged" AutoPostBack="true"></asp:CheckBox>
|
||||
<label for="<%= ChkPagoElectronicoGrupos.ClientID.ToString()%>">Pago Electronico Grupos</label>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
|
||||
|
||||
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
|
||||
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton>
|
||||
|
||||
@@ -776,9 +776,30 @@ Partial Class Compras_Proveedores
|
||||
End Function
|
||||
|
||||
Private Sub CargaCombos()
|
||||
|
||||
CargaResponsable()
|
||||
CargaClasificacionProveedor()
|
||||
CargaUsuarioEvaluacionProveedor()
|
||||
CargaBancosSAT()
|
||||
|
||||
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 Function CargaDatos() As Boolean
|
||||
@@ -1640,7 +1661,9 @@ 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, BBVAAlias:=row("BBVAAlias").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,
|
||||
EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then
|
||||
ErrorBancos = True
|
||||
End If
|
||||
Next
|
||||
@@ -3036,6 +3059,7 @@ Partial Class Compras_Proveedores
|
||||
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
||||
|
||||
RecargaGlobalCuentasBancarias()
|
||||
|
||||
End Sub
|
||||
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -3045,19 +3069,6 @@ Partial Class Compras_Proveedores
|
||||
EsBancomer = True
|
||||
End If
|
||||
|
||||
''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA
|
||||
'If EsBancomer AndAlso (TxtCLABE.Text.Length = 18 AndAlso Not TxtCLABE.Text.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 (TxtCLABE.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABE.Text.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
|
||||
|
||||
|
||||
'RESTRICCIONES GENERALES
|
||||
|
||||
'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
|
||||
@@ -3111,15 +3122,19 @@ 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, TxtBBVAAlias.Text)
|
||||
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, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, 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, Correo As String, BBVAAlias 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, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer)
|
||||
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, BBVAAlias:=BBVAAlias) Then
|
||||
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) Then
|
||||
DTCuentasBancos.Clear()
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
||||
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
||||
@@ -3143,10 +3158,14 @@ Partial Class Compras_Proveedores
|
||||
Row("RefCrediProveedor") = RefCrediProveedor
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("EstatusPagoElectronico") = 0
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Estatus") = "True"
|
||||
Row("Correo") = Correo
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
|
||||
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
||||
|
||||
@@ -3157,7 +3176,8 @@ 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, BBVAAlias:=BBVAAlias) 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, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
|
||||
DTCuentasBancos.Clear()
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
||||
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
||||
@@ -3181,8 +3201,12 @@ Partial Class Compras_Proveedores
|
||||
Row("RefCrediProveedor") = RefCrediProveedor
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Estatus") = Estatus
|
||||
Row("Correo") = Correo
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
|
||||
TempDTCuentasBancos.AcceptChanges()
|
||||
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
||||
@@ -4673,6 +4697,13 @@ Partial Class Compras_Proveedores
|
||||
TxtBBVAAlias.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
divestatus.Visible = False
|
||||
|
||||
ChkPagoElectronico.Checked = False
|
||||
ChkPagoElectronicoGrupos.Checked = False
|
||||
DdlSatBanco.SelectedValueExist("-1")
|
||||
|
||||
DVDdlSatBanco.Visible = False
|
||||
|
||||
UpAddBancos.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
|
||||
End Sub
|
||||
@@ -4697,6 +4728,15 @@ Partial Class Compras_Proveedores
|
||||
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
||||
divestatus.Visible = True
|
||||
UpAddBancos.Update()
|
||||
|
||||
ChkPagoElectronico.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronico").ToString)
|
||||
ChkPagoElectronicoGrupos.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronicoGrupos").ToString)
|
||||
DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
|
||||
|
||||
If ChkPagoElectronicoGrupos.Checked Then
|
||||
DVDdlSatBanco.Visible = True
|
||||
End If
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
|
||||
End Sub
|
||||
|
||||
@@ -6153,6 +6193,24 @@ Partial Class Compras_Proveedores
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
If ChkPagoElectronicoGrupos.Checked Then
|
||||
DVDdlSatBanco.Visible = True
|
||||
Else
|
||||
DVDdlSatBanco.Visible = False
|
||||
End If
|
||||
|
||||
UpAddBancos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
If ChkPagoElectronico.Checked Then
|
||||
Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user