Personal ajustes cuenta depositito

This commit is contained in:
rakcsle
2025-04-29 11:39:46 -07:00
parent c4e58b18fc
commit 87c9a0d115
6 changed files with 1325 additions and 1139 deletions

View File

@@ -4998,18 +4998,35 @@
<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: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>
<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>
<div class="row">
<div class="col-md-6" runat="server" visible="false">
<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"
@@ -5026,13 +5043,7 @@
</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>
@@ -5041,7 +5052,7 @@
</div>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false">
<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>
@@ -5056,7 +5067,7 @@
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="col-md-6" runat="server" visible="false">
<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>
@@ -5070,7 +5081,7 @@
</div>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false">
<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>
@@ -5085,7 +5096,7 @@
</div>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false">
<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>

View File

@@ -9,6 +9,7 @@ Imports System.Globalization
Partial Class RH_Personal
Inherits ClsPaginas
@@ -2136,8 +2137,9 @@ Partial Class RH_Personal
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
BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString),
EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), Correo:=row("Correo").ToString(),
ConceptoCIE:=row("ConceptoCIE").ToString(), Estatus:=If(row("EstatusTexto").ToString = "Activo", True, False)) Then
TieneError = True
Exit For
End If
@@ -3440,6 +3442,7 @@ Partial Class RH_Personal
If IndexCuentaDepostito > -1 Then
Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
Row("BancoNombre") = nombrebanco
Row("Cuenta") = TxtNumeroCuenta.Text.Trim
Row("Sucursal") = TxtNumeroSucursal.Text
Row("CLABE") = TxtCLABECB.Text.Trim
Row("SWIFT") = TxtSWIFT.Text
@@ -3455,7 +3458,10 @@ Partial Class RH_Personal
Row("EstatusPagoElectronico") = ChkEstatusPagoE.Checked
Row("EstatusPagoElectronicoGrupos") = ChkPagoElectronicoGrupos.Checked
Row("Correo") = TxtCorreoCuenta.Text.Trim
Row("Correo") = TxtCorreoCuenta.Text.Trim
Row("ConceptoCIE") = TxtConceptoCIE.Text
Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
End If
End If
@@ -3594,6 +3600,7 @@ Partial Class RH_Personal
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
Row("Correo") = Correo
Row("ConceptoCIE") = ConceptoCIE
Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
Else
Dim Row As DataRow = TempDTCuentasBancos.NewRow
@@ -3615,6 +3622,8 @@ Partial Class RH_Personal
Row("Correo") = Correo
Row("ConceptoCIE") = ConceptoCIE
TempDTCuentasBancos.Rows.Add(Row)
Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
End If
@@ -3718,6 +3727,8 @@ Partial Class RH_Personal
TxtCorreoCuenta.Text = gvrow.DataKey("Correo")
TxtBBVAAlias.Text = gvrow.DataKey("BBVAAlias")
ChkPagoElectronicoGrupos.Checked = Boolean.Parse(gvrow.DataKey("EstatusPagoElectronicoGrupos").ToString)
ChkEstatuscuenta.Checked = If(gvrow.DataKey("EstatusTexto").ToString = "Activo", True, False)
'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto
@@ -5161,7 +5172,7 @@ Partial Class RH_Personal
Private Sub CargaVacacionesResumenPeriodoActual()
Using objnom As New ClsNominas
If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
If objnom.GetPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
RPTVacacionesResumen.DataSource = objnom.DtResultados
DdlVacPeriodo.DataSource = objnom.DtResultados.FiltraParametros("DiasDisponibles > 0", "Ejercicio")
DdlVacPeriodo.DataBind()