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

CAMBIO

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-05-17 05:58:22 -07:00
parent ef5f8cbb7c
commit 48f2d16d48
3 changed files with 28 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
App_Code/ClsNominas.vb
View File

@@ -674,6 +674,30 @@ Public Class ClsNominas
End Try
Return retorno
End Function
Public Function UtilidadesRegistrosGet(cveEmpresa As Int32, ejercicio As Int32, cvePersonal As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_NomUtilidadesRegistrosGet", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Ejercicio", SqlDbType.Int, ejercicio)
addParameters("@CvePersonal", SqlDbType.Int, cvePersonal)
retorno = RunQuery("Ocurrió un error al obtener el UtilidadesRegistros.")
Return retorno
End Function
Public Function UtilidadesRegistrosAddUp(cveEmpresa As Int32, ejercicio As Int32, cvePersonal As Int32, cveMetodoPago As Int32, cveTipoPeriodo As Int32, diasLaborados As Int32, sueldoTotal As Decimal, importe As Decimal) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_NomUtilidadesRegistrosAddUP", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Ejercicio", SqlDbType.Int, ejercicio)
addParameters("@CvePersonal", SqlDbType.Int, cvePersonal)
addParameters("@CveMetodoPago", SqlDbType.Int, cveMetodoPago)
addParameters("@CveTipoPeriodo", SqlDbType.Int, cveTipoPeriodo)
addParameters("@DiasLaborados", SqlDbType.Int, diasLaborados)
addParameters("@SueldoTotal", SqlDbType.Money, sueldoTotal)
addParameters("@Importe", SqlDbType.Money, importe)
retorno = RunQuery("Ocurrió un error al agregar el UtilidadesRegistros.")
Return retorno
End Function
Public Function GetEjercicios(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_NOM_GetEjercicios")

1
Nomina/Nomina.aspx
View File

@@ -1139,6 +1139,7 @@
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija por período)" Value="5004"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija (Mensual)" Value="5005"></asp:ListItem>
</asp:DropDownList>
</div>
</div>

4
RH/Personal.aspx.vb
View File

@@ -2915,7 +2915,9 @@ Partial Class RH_Personal
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Bimestral)", "5003"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Periodo)", "5004"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Mensual)", "5005"))
ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))