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

-- depuración

Browse Source
This commit is contained in:
rrene
2023-08-18 17:47:06 -07:00
parent 2765dab757
commit 3d032c7dfe
1 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
App_Code/ClsNominas.vb
View File

@@ -774,25 +774,25 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function UpdatePagoNomina(CvePeriodo As Integer, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean 'Public Function UpdatePagoNomina(CvePeriodo As Integer, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Nom_PagoNominaUpdate") ' DataAdapter("PA_Nom_PagoNominaUpdate")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo ' .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@CveIE", SqlDbType.Int).Value = CveIE ' .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
'Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean 'Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
' Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False