From e32c5e2c504b5267d620b4fe73f66a181d6bfb25 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Fri, 2 Aug 2024 06:33:55 -0700
Subject: [PATCH]

---
 App_Code/ClsNominas.vb | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 1271c926b..57b45d695 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3266,6 +3266,25 @@ Public Class ClsNominas
 #End Region
 #Region "MovtosPermanentes"
 
+    Public Function GetMovtoPermanenteRep(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_GetMovtoPermanenteRep", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        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
     Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure)