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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-12-16 19:54:01 -07:00
parent 98d5139425
commit eda2c657e1
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsNominas.vb
View File

@@ -1861,8 +1861,9 @@ Public Class ClsNominas
#End Region #End Region
Public Function GetInversionNomina(Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional CveProyecto As Integer = -1, Public Function GetInversionNomina(CveEmpresa As Integer, Optional FechaInicio As String = "", Optional FechaFin As String = "",
Optional CveSubProyecto As Integer = -1, Optional Cve1 As Integer = -1, Optional Cve2 As Integer = -1, Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1,
Optional Cve1 As Integer = -1, Optional Cve2 As Integer = -1,
Optional CveStr1 As String = "-1", Optional CveStr2 As String = "-1") As Boolean Optional CveStr1 As String = "-1", Optional CveStr2 As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Nom_InversionNominaGET") DataAdapter("PA_Nom_InversionNominaGET")
@@ -1875,6 +1876,7 @@ Public Class ClsNominas
.Add("Cve2", SqlDbType.Int).Value = Cve2 .Add("Cve2", SqlDbType.Int).Value = Cve2
.Add("CveStr1", SqlDbType.Int).Value = CveStr1 .Add("CveStr1", SqlDbType.Int).Value = CveStr1
.Add("CveStr2", SqlDbType.Int).Value = CveStr2 .Add("CveStr2", SqlDbType.Int).Value = CveStr2
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)