From 447f21fd0abcd32f346fa6ba351406717ebc8c47 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Fri, 2 Aug 2024 07:19:26 -0700
Subject: [PATCH]

---
 App_Code/ClsNominas.vb | 19 +++++++++++++++++++
 App_Code/ClsPaginas.vb |  5 +++--
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 57b45d695..a0c3a75fc 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3264,6 +3264,25 @@ Public Class ClsNominas
         Return retorno
     End Function
 #End Region
+    Public Function GetConfiguracionNom(CveEmpresa As Int32, periodo As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_ConfiguracionNomGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Periodo", SqlDbType.Int).Value = periodo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
 #Region "MovtosPermanentes"
 
     Public Function GetMovtoPermanenteRep(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 76e571b5f..a0acde0b9 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -10432,8 +10432,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/Nomina/PreNominaHistorial.aspx".ToUpper(), 148)
             PaginaDict.Add("/Nomina/RepPreNomina.aspx".ToUpper(), 74)
             PaginaDict.Add("/Nomina/Nomina.aspx".ToUpper(), 75)
-            PaginaDict.Add("/Nomina/NominaB.aspx".ToUpper(), 75)
-            PaginaDict.Add("/Nomina/Nomina2.aspx".ToUpper(), 75)
+            PaginaDict.Add("/Nomina/Configuracion.aspx".ToUpper(), 1135)
+            PaginaDict.Add("/Nomina/RepMovtosPermanentes.aspx".ToUpper(), 1136)
+
             PaginaDict.Add("/Nomina/ReportedeAcumulados.aspx".ToUpper(), 75)
             PaginaDict.Add("/Nomina/ListaAsistencias.aspx".ToUpper(), 91)
             PaginaDict.Add("/Nomina/CatConceptos.aspx".ToUpper(), 172)