From eda2c657e15445b2c57500ea8dcec45e993e2050 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 16 Dec 2019 19:54:01 -0700 Subject: [PATCH] --- App_Code/ClsNominas.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 285a6d765..e64998d23 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1861,8 +1861,9 @@ Public Class ClsNominas #End Region - Public Function GetInversionNomina(Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional CveProyecto As Integer = -1, - Optional CveSubProyecto As Integer = -1, Optional Cve1 As Integer = -1, Optional Cve2 As Integer = -1, + Public Function GetInversionNomina(CveEmpresa As Integer, Optional FechaInicio As String = "", Optional FechaFin As String = "", + 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 Dim Retorno As Boolean = False DataAdapter("PA_Nom_InversionNominaGET") @@ -1875,6 +1876,7 @@ Public Class ClsNominas .Add("Cve2", SqlDbType.Int).Value = Cve2 .Add("CveStr1", SqlDbType.Int).Value = CveStr1 .Add("CveStr2", SqlDbType.Int).Value = CveStr2 + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data)