AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- funciones que ya no se utilizan

Browse Source
This commit is contained in:
rrene
2021-07-17 09:43:06 -07:00
parent 232b3eafad
commit f75a5f168f
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
App_Code/ClsNominas.vb
View File

@@ -1040,28 +1040,28 @@ Public Class ClsNominas
End Function
'Reporte Conceptos Acumulados
Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_ConceptosAcumuladosGetRep")
''Reporte Conceptos Acumulados
'Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Nom_ConceptosAcumuladosGetRep")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
' .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
' .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
' .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
Return Retorno
End Function
' Return Retorno
'End Function
Public Function UpdateNom_NominasDetallesMasivoSueldo(CvePeriodo As Integer, CveConcepto As Integer, Salario As Double, Importe As Double, ImporteExento As Double, ImporteGravado As Double, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False