TareasProgramadas Envio de estado cuenta, compras cvetipoOperacion, , reembolsos filtror rwo acumulado, ajkustes carta porte, OC carga desde excel filtro rows vacios, personal cuentas deposito
This commit is contained in:
rakcsle
200
RH/Personal.aspx
200
RH/Personal.aspx
@@ -61,10 +61,15 @@
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>--%>
|
||||
|
||||
<asp:UpdatePanel ID="UpAccionesCuentasBancarias" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="Lnkopenaddcuentabancaria" OnClick="Lnkopenaddcuentabancaria_Click" Visible="true" runat="server"> <i class="fa fa-plus"></i> Agregar cuenta bancaria</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="Lnkopenaddcuentabancaria" OnClick="Lnkopenaddcuentabancaria_Click" Visible="true" runat="server"> <i class="fa fa-plus"></i> Agregar cuenta bancaria</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<asp:UpdatePanel ID="UpBuzon" runat="server">
|
||||
<ContentTemplate>
|
||||
@@ -1246,7 +1251,8 @@
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" CssClass="table table-striped table-hover Widthall" Style="table-layout: fixed" runat="server"
|
||||
DataKeyNames="CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,EstatusTexto,CveMoneda" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
|
||||
DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto"
|
||||
AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
|
||||
<%--<asp:GridView ID="GvBancosCuentas" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias" CssClass="table table-striped table-advance table-hover" Style="table-layout: fixed" BorderWidth="0" GridLines="None">--%>
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Banco" ItemStyle-HorizontalAlign="Center">
|
||||
@@ -1370,7 +1376,7 @@
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<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" />
|
||||
@@ -1381,7 +1387,7 @@
|
||||
<asp:LinkButton ID="LnkshowEditcuentasbancarias" runat="server" OnClick="LnkshowEditcuentasbancarias_Click" AlternateText="Editar" 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" ItemStyle-HorizontalAlign="Center">
|
||||
<asp:TemplateField HeaderText="Elim." ItemStyle-Width="50px" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<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" OnClientClick="javascript:return confirm('Está seguro de eliminar el registro?');" />
|
||||
</ItemTemplate>
|
||||
@@ -4918,7 +4924,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="DivCuentasVancarias" class="modal ADS fade" role="dialog">
|
||||
<%-- <div id="DivCuentasVancarias" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 400px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpCuentasVancarias" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -4978,7 +4984,185 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
|
||||
<div id="DivAddCuentasBancarias" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel ID="UpAddBancos" class="modal-dialog" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<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:DropDownList ID="DdlBancoSat" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"></asp:DropDownList>
|
||||
<asp:Label runat="server" AssociatedControlID="DdlBancoSat" Text="Banco:"></asp:Label>
|
||||
<asp:RequiredFieldValidator ID="RFVBancoSat" runat="server" InitialValue="-1" ControlToValidate="DdlBancoSat" 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="VcoBancoSat" runat="server" HighlightCssClass="vco" TargetControlID="RFVBancoSat" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<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>
|
||||
<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="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="TxtCLABECB" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABECB" FilterType="Numbers" />
|
||||
<label for="<%= TxtCLABECB.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>
|
||||
<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="TxtReferenciaC" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferenciaC" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferenciaC.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()%>">Crédito 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="<%= TxtBBVAAlias.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">
|
||||
<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="ChkEstatuscuenta" runat="server"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatuscuenta.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="div3" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatusPagoE" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatusPagoE.ClientID.ToString()%>">Pago Electronico</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="div4" runat="server">
|
||||
|
||||
<asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" ></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>
|
||||
<asp:Button type="button" class="btn btn-default" runat="server" ID="Button2" data-dismiss="modal" Text="Cancelar" />--%>
|
||||
<asp:Button ID="BtnActualizarCuentaBanco" OnClick="LbActualizarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-primary" Text="Actualizar" ValidationGroup="GrpAgregarBanco" />
|
||||
<asp:Button ID="BtnAgregarCuentaBanco" OnClick="LbAgregarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" />
|
||||
<button id="Button5" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<div id="divEditarDiaVacacion" class="modal ADS fade" role="dialog">
|
||||
<div id="dvEdicion" runat="server" class="modal-dialog" style="width: 400px;">
|
||||
|
||||
@@ -6,9 +6,8 @@ Imports System.IO
|
||||
Imports System.Data
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports System.Globalization
|
||||
Imports System.Data.SqlTypes
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports Microsoft.AspNet.SignalR.Infrastructure
|
||||
|
||||
|
||||
|
||||
Partial Class RH_Personal
|
||||
Inherits ClsPaginas
|
||||
@@ -427,6 +426,18 @@ Partial Class RH_Personal
|
||||
End Property
|
||||
|
||||
|
||||
Private Property IndexCuentaDepostito As Integer
|
||||
Get
|
||||
If ViewState("IndexCuentaDepostito") Is Nothing Then
|
||||
ViewState("IndexCuentaDepostito") = -1
|
||||
End If
|
||||
Return ViewState("IndexCuentaDepostito").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexCuentaDepostito") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -1001,11 +1012,8 @@ Partial Class RH_Personal
|
||||
CargaFonacot()
|
||||
End If
|
||||
|
||||
|
||||
ValidaDeudorAcreedor()
|
||||
|
||||
|
||||
|
||||
Else
|
||||
cargatipoTrabajador()
|
||||
MostrarOcultarFechasEstatus()
|
||||
@@ -1020,6 +1028,7 @@ Partial Class RH_Personal
|
||||
End If
|
||||
|
||||
CargaCuentasBancarias()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
|
||||
CrearEstructuraFamiliares()
|
||||
@@ -2124,7 +2133,11 @@ Partial Class RH_Personal
|
||||
If TempDTCuentasBancos IsNot Nothing AndAlso 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(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=True, EstatusPagoElectronicoGrupos:=True) 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(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
||||
BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=True, EstatusPagoElectronicoGrupos:=True, Correo:=row("Correo").ToString(),
|
||||
ConceptoCIE:=row("Correo").ToString()) Then
|
||||
TieneError = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -3377,21 +3390,77 @@ Partial Class RH_Personal
|
||||
Protected Sub Lnkopenaddcuentabancaria_Click(sender As Object, e As EventArgs)
|
||||
BtnActualizarCuentaBanco.Visible = False
|
||||
BtnAgregarCuentaBanco.Visible = True
|
||||
IndexCuentaDepostito = -1
|
||||
CuentasBancosLimpiarControles()
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal();")
|
||||
End Sub
|
||||
|
||||
RegistraScript("$('#DivCuentasVancarias').modal();")
|
||||
Private Sub CuentasBancosLimpiarControles()
|
||||
|
||||
DdlBancoSat.SelectedValueExist(-1)
|
||||
DdlMoneda.SelectedValueExist(-1)
|
||||
TxtNumeroCuenta.Text = ""
|
||||
TxtCLABECB.Text = ""
|
||||
ChkEstatusPagoE.Checked = False
|
||||
ChkEstatuscuenta.Checked = True
|
||||
|
||||
TxtNombreBanco.Text = ""
|
||||
TxtNumeroSucursal.Text = ""
|
||||
TxtSWIFT.Text = ""
|
||||
TxtPlaza.Text = ""
|
||||
TxtConvenioCIE.Text = ""
|
||||
TxtReferenciaC.Text = ""
|
||||
TxtConceptoCIE.Text = ""
|
||||
TxtRefCrediProveedor.Text = ""
|
||||
TxtCorreoCuenta.Text = ""
|
||||
TxtBBVAAlias.Text = ""
|
||||
ChkPagoElectronicoGrupos.Checked = False
|
||||
|
||||
|
||||
|
||||
|
||||
UpAddBancos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
Using ObjCuentasBancos As New ClsGenerales
|
||||
Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
|
||||
|
||||
If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
|
||||
'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
|
||||
Alert("Cuenta actualizada")
|
||||
Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
|
||||
If CvePersonal > 0 Then
|
||||
Using ObjCuentasBancos As New ClsGenerales
|
||||
|
||||
'If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
|
||||
If ObjCuentasBancos.UpdateCuentasDepositos(CveCuentaDeposito, nombrebanco, TxtPlaza.Text, TxtNumeroSucursal.Text, TxtNumeroCuenta.Text.Trim, TxtCLABECB.Text.Trim, TxtConvenioCIE.Text, TxtSWIFT.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text,
|
||||
False, ChkEstatuscuenta.Checked, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, Correo:=TxtCorreoCuenta.Text, BBVAAlias:=TxtBBVAAlias.Text, EstatusPagoElectronico:=ChkEstatusPagoE.Checked,
|
||||
EstatusPagoElectronicoGrupos:=ChkPagoElectronicoGrupos.Checked, CveSATBanco:=DdlBancoSat.SelectedValue.ToEntero(), ConceptoCIE:=TxtConceptoCIE.Text) Then
|
||||
'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
|
||||
Alert("Cuenta actualizada")
|
||||
End If
|
||||
End Using
|
||||
Else
|
||||
If IndexCuentaDepostito > -1 Then
|
||||
Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
|
||||
Row("BancoNombre") = nombrebanco
|
||||
Row("Sucursal") = TxtNumeroSucursal.Text
|
||||
Row("CLABE") = TxtCLABECB.Text.Trim
|
||||
Row("SWIFT") = TxtSWIFT.Text
|
||||
Row("Plaza") = TxtPlaza.Text
|
||||
Row("Cuenta") = TxtNumeroSucursal.Text
|
||||
Row("CIE") = TxtConvenioCIE.Text
|
||||
Row("Referencia") = TxtReferenciaC.Text
|
||||
Row("RefCrediProveedor") = TxtRefCrediProveedor.Text
|
||||
Row("CveMoneda") = DdlMoneda.SelectedValue.ToEntero()
|
||||
Row("Moneda") = DdlMoneda.SelectedItem.Text
|
||||
Row("BBVAAlias") = TxtBBVAAlias.Text
|
||||
Row("CveSATBanco") = DdlBancoSat.SelectedValue.ToEntero
|
||||
Row("EstatusPagoElectronico") = ChkEstatusPagoE.Checked
|
||||
Row("EstatusPagoElectronicoGrupos") = ChkPagoElectronicoGrupos.Checked
|
||||
Row("Correo") = TxtCorreoCuenta.Text.Trim
|
||||
Row("ConceptoCIE") = TxtConceptoCIE.Text
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
|
||||
CargaCuentasBancarias()
|
||||
RegistraScript("$('#DivCuentasVancarias').modal('hide');")
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
|
||||
End Sub
|
||||
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
Dim EsBancomer As Boolean = False
|
||||
@@ -3431,6 +3500,27 @@ Partial Class RH_Personal
|
||||
End If
|
||||
|
||||
|
||||
If ChkPagoElectronicoGrupos.Checked Then
|
||||
|
||||
If TxtConvenioCIE.Text.Trim.Length > 0 Then
|
||||
|
||||
If TxtConvenioCIE.Text.Trim.Length < 5 Then
|
||||
Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not DdlBancoSat.SelectedValue.ToEntero > 0 Then
|
||||
Alert("Se debe de especificar el banco.")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
''CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
|
||||
'If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
|
||||
@@ -3438,8 +3528,9 @@ Partial Class RH_Personal
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
AgregarCuentaBanco(nombrebanco, "", TxtCLABECB.Text.Trim, "", "", TxtNumeroCuenta.Text.Trim, "", "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, "", DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked)
|
||||
RegistraScript("$('#DivCuentasVancarias').modal('hide');")
|
||||
AgregarCuentaBanco(nombrebanco, TxtNumeroSucursal.Text, TxtCLABECB.Text.Trim, TxtSWIFT.Text, TxtPlaza.Text, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text, DdlMoneda.SelectedValue.ToEntero(),
|
||||
DdlMoneda.SelectedItem.Text, ChkEstatuscuenta.Checked, TxtCorreoCuenta.Text, TxtBBVAAlias.Text, DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked, ChkPagoElectronicoGrupos.Checked, TxtConceptoCIE.Text)
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
|
||||
End Sub
|
||||
Private Sub CargaGridCuentasBancos(Orden As String)
|
||||
If CvePersonal > 0 Then
|
||||
@@ -3463,14 +3554,17 @@ Partial Class RH_Personal
|
||||
GvBancosCuentas.DataBind()
|
||||
UpCuentasBancos.Update()
|
||||
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, CveMoneda As Integer, Moneda As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico 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, Correo As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, ConceptoCIE As String)
|
||||
|
||||
|
||||
Dim Row As DataRow
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
Using ObjCuentasBancos As New ClsGenerales()
|
||||
|
||||
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
|
||||
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal,
|
||||
CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos,
|
||||
Correo:=Correo, ConceptoCIE:=ConceptoCIE) Then
|
||||
DTCuentasBancos.Clear()
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
|
||||
|
||||
@@ -3480,22 +3574,51 @@ Partial Class RH_Personal
|
||||
CargaGvBitacora()
|
||||
|
||||
Else
|
||||
Row = TempDTCuentasBancos.NewRow
|
||||
|
||||
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("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
If IndexCuentaDepostito > -1 Then
|
||||
Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
|
||||
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("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Correo") = Correo
|
||||
Row("ConceptoCIE") = ConceptoCIE
|
||||
|
||||
Else
|
||||
Dim Row As DataRow = TempDTCuentasBancos.NewRow
|
||||
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("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Correo") = Correo
|
||||
Row("ConceptoCIE") = ConceptoCIE
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
LimpiaCuentasBancarias()
|
||||
@@ -3510,7 +3633,7 @@ Partial Class RH_Personal
|
||||
Private Sub CargaCuentasBancarias()
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
DTCuentasBancos = New DataTable
|
||||
TempDTCuentasBancos = New DataTable
|
||||
'TempDTCuentasBancos = New DataTable
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
|
||||
@@ -3518,7 +3641,7 @@ Partial Class RH_Personal
|
||||
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If CvePersonal < 0 Then
|
||||
If (CvePersonal < 0 AndAlso TempDTCuentasBancos Is Nothing) Or (CvePersonal < 0 AndAlso TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count = 0) Then
|
||||
TempDTCuentasBancos = DTCuentasBancos.Clone
|
||||
End If
|
||||
|
||||
@@ -3563,19 +3686,46 @@ Partial Class RH_Personal
|
||||
|
||||
|
||||
Protected Sub LnkshowEditcuentasbancarias_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
BtnActualizarCuentaBanco.Visible = True
|
||||
BtnAgregarCuentaBanco.Visible = False
|
||||
'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda
|
||||
|
||||
CveCuentaDeposito = gvrow.DataKey("CveCuentaDeposito").ToEntero()
|
||||
IndexCuentaDepostito = gvrow.RowIndex
|
||||
|
||||
CuentasBancosLimpiarControles()
|
||||
|
||||
DdlBancoSat.SelectedValueExist(gvrow.DataKey("CveSATBanco"))
|
||||
DdlMoneda.SelectedValueExist(gvrow.DataKey("CveMoneda"))
|
||||
TxtNumeroCuenta.Text = gvrow.DataKey("Cuenta")
|
||||
TxtCLABECB.Text = gvrow.DataKey("CLABE")
|
||||
ChkEstatusPagoE.Checked = gvrow.DataKey("EstatusPagoElectronico").ToUpper().Contiene("TRUE", "1")
|
||||
ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
|
||||
UpCuentasVancarias.Update()
|
||||
RegistraScript("$('#DivCuentasVancarias').modal();")
|
||||
|
||||
'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE
|
||||
'DdlBancoSat
|
||||
TxtNombreBanco.Text = gvrow.DataKey("BancoNombre")
|
||||
TxtNumeroSucursal.Text = gvrow.DataKey("Sucursal")
|
||||
TxtSWIFT.Text = gvrow.DataKey("SWIFT")
|
||||
TxtPlaza.Text = gvrow.DataKey("Plaza")
|
||||
TxtConvenioCIE.Text = gvrow.DataKey("CIE")
|
||||
TxtReferenciaC.Text = gvrow.DataKey("Referencia")
|
||||
TxtConceptoCIE.Text = gvrow.DataKey("ConceptoCIE")
|
||||
TxtRefCrediProveedor.Text = gvrow.DataKey("RefCrediProveedor")
|
||||
TxtCorreoCuenta.Text = gvrow.DataKey("Correo")
|
||||
TxtBBVAAlias.Text = gvrow.DataKey("BBVAAlias")
|
||||
ChkPagoElectronicoGrupos.Checked = Boolean.Parse(gvrow.DataKey("EstatusPagoElectronicoGrupos").ToString)
|
||||
|
||||
|
||||
'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto
|
||||
|
||||
'asdasd
|
||||
|
||||
UpAddBancos.Update()
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal();")
|
||||
End Sub
|
||||
Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
|
||||
|
||||
@@ -8282,5 +8432,25 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
|
||||
'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 ChkEstatusPagoE.Checked Then
|
||||
' Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user