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

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)