diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 9f39b2934..dfcb4d6bc 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -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()