personal
This commit is contained in:
caudillochon
@@ -634,6 +634,7 @@ Partial Class RH_Personal
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Desorden Antres del load"
|
||||
|
||||
#Region "PROPIEDADES FAMILIARES"
|
||||
|
||||
@@ -900,6 +901,7 @@ Partial Class RH_Personal
|
||||
Return UsuarioActual.Empresa.Funcionalidad(701) = "1"
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
'Configuración
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
@@ -994,7 +996,6 @@ Partial Class RH_Personal
|
||||
|
||||
divBitacora.Visible = True
|
||||
CargaGvBitacora()
|
||||
CargaCuentasBancarias()
|
||||
CarcaConceptosNomina()
|
||||
CargaFonacot()
|
||||
End If
|
||||
@@ -1017,6 +1018,7 @@ Partial Class RH_Personal
|
||||
|
||||
End If
|
||||
|
||||
CargaCuentasBancarias()
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
|
||||
CrearEstructuraFamiliares()
|
||||
@@ -2039,7 +2041,7 @@ Partial Class RH_Personal
|
||||
|
||||
If ObjPersonal.AddPersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
|
||||
DdlTipoPeriodo.SelectedValue.ToEntero(), TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
|
||||
TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero(),
|
||||
TxtSalarioDiarioM.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero(),
|
||||
TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlFormaPago.SelectedValue.ToEntero(), TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
|
||||
DdlTipoContrato.SelectedValue.ToEntero(), TxtUbicacion.Text.Trim,
|
||||
DdlTurno.SelectedValue.ToEntero(), DdlPuesto.SelectedValue.ToEntero(),
|
||||
@@ -3434,15 +3436,16 @@ Partial Class RH_Personal
|
||||
Dim Row As DataRow
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
Dim 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
|
||||
DTCuentasBancos.Clear()
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
|
||||
Using ObjCuentasBancos As New ClsGenerales()
|
||||
|
||||
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
||||
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
|
||||
DTCuentasBancos.Clear()
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
|
||||
|
||||
End If
|
||||
ObjCuentasBancos.Dispose()
|
||||
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End Using
|
||||
CargaGvBitacora()
|
||||
|
||||
Else
|
||||
Row = TempDTCuentasBancos.NewRow
|
||||
@@ -3457,6 +3460,8 @@ Partial Class RH_Personal
|
||||
Row("Referencia") = Referencia
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
End If
|
||||
@@ -3464,9 +3469,6 @@ Partial Class RH_Personal
|
||||
LimpiaCuentasBancarias()
|
||||
CargaGridCuentasBancos("")
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
CargaGvBitacora()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub LimpiaCuentasBancarias()
|
||||
@@ -7079,43 +7081,40 @@ Partial Class RH_Personal
|
||||
End Using
|
||||
End Sub
|
||||
Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
getdatosFI()
|
||||
|
||||
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
|
||||
calcularSDI()
|
||||
TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
|
||||
TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
|
||||
Using ObjPersonal As ClsRH = New ClsRH()
|
||||
ObjPersonal.IniciaTransacSQL()
|
||||
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(),
|
||||
TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then
|
||||
|
||||
|
||||
ObjPersonal.Commit()
|
||||
|
||||
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
|
||||
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
|
||||
TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
|
||||
TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
|
||||
TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
|
||||
|
||||
UpModSalario.Update()
|
||||
UpDatos.Update()
|
||||
Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
|
||||
Else
|
||||
ObjPersonal.RollBack()
|
||||
End If
|
||||
End Using
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
getdatosFI()
|
||||
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
|
||||
calcularSDI()
|
||||
TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
|
||||
TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
|
||||
Using ObjPersonal As ClsRH = New ClsRH()
|
||||
ObjPersonal.IniciaTransacSQL()
|
||||
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(),
|
||||
TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then
|
||||
ObjPersonal.Commit()
|
||||
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
|
||||
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
|
||||
TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
|
||||
TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
|
||||
TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
|
||||
UpModSalario.Update()
|
||||
UpDatos.Update()
|
||||
Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
|
||||
Else
|
||||
ObjPersonal.RollBack()
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
RegistraScript("$('#Dmodamodificarsalario').modal('hide')")
|
||||
End Sub
|
||||
Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
|
||||
|
||||
TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
|
||||
TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
|
||||
TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
|
||||
TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
|
||||
If CvePersonal > 0 Then
|
||||
TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
|
||||
TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
|
||||
TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
|
||||
TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
|
||||
End If
|
||||
RegistraScript("$('#Dmodamodificarsalario').modal()")
|
||||
UpModSalario.Update()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user