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)