AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

carga masiva salarios

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-02-02 11:54:00 -07:00
parent 5c13dff631
commit 3f81b54267
9 changed files with 542 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
RH/Personal.aspx.vb
View File

@@ -16,6 +16,18 @@ Partial Class RH_Personal
#Region "P R O P I E D A D E S"
Property salarioVariable As Decimal
Get
If ViewState("salarioVariable") Is Nothing Then
Return 0
Else
Return DirectCast(ViewState("salarioVariable"), Decimal)
End If
End Get
Set(value As Decimal)
ViewState("salarioVariable") = value
End Set
End Property
Property CcveMovtoPermanente As Integer
Get
If ViewState("CcveMovtoPermanente") Is Nothing Then
@@ -1754,6 +1766,8 @@ Partial Class RH_Personal
TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
TxtSDI.Text = ObjPersonal.SDI.ToString()
salarioVariable = drow("SalarioVariable").ToString().ToDecimal() 'ObjPersonal.SalarioDiarioSS.ToString().ToDecimal() - ObjPersonal.SDI.ToString().ToDecimal()
salarioVariable = If(salarioVariable > 0, salarioVariable, 0)
TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
TxtBono.Text = ObjPersonal.Bono.ToString()
@@ -6900,10 +6914,10 @@ Partial Class RH_Personal
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
calcularSDI()
TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
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()) Then
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
@@ -7423,6 +7437,7 @@ Partial Class RH_Personal
LblEstatus.Text = "Activar personal"
LblFechaEstatus.Text = "Fecha ingreso ó reingreso"
TxtFechaEstatus.Text = ""
DivMotivoBaja.Visible = False
RegistraScript("$('#ModalUpEstatus').modal();")
upPersonEstatus.Update()
End Sub
@@ -7431,6 +7446,7 @@ Partial Class RH_Personal
LblEstatus.Text = "Desactivar personal"
LblFechaEstatus.Text = "Fecha baja"
TxtFechaEstatus.Text = ""
DivMotivoBaja.Visible = True
RegistraScript("$('#ModalUpEstatus').modal();")
upPersonEstatus.Update()
End Sub
@@ -7472,7 +7488,7 @@ Partial Class RH_Personal
End If
If continuar Then
Using objrh As New ClsRH
continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlMotivoBaja.SelectedValue.ToEntero(),)
End Using
End If