From 48f2d16d48f3910c602e894441ab047d5fffc263 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Fri, 17 May 2024 05:58:22 -0700
Subject: [PATCH] CAMBIO

---
 App_Code/ClsNominas.vb | 24 ++++++++++++++++++++++++
 Nomina/Nomina.aspx     |  1 +
 RH/Personal.aspx.vb    |  4 +++-
 3 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index c44001a64..18cdb0f79 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -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")
diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx
index 6723242a6..e4ceadd0a 100644
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -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>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index ce97407c7..8cd918c6b 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -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"))