From fd11cf6d27cfd1c1f79ded2a336eca587cc2447b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 2 Dec 2023 14:38:20 -0700 Subject: [PATCH] =?UTF-8?q?-=20nuevo=20par=C3=A1metro?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index c68979dc6..4a344b992 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5644,12 +5644,13 @@ Public Class ClsContabilidad End Function - Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean + Public Function GetCuentasAsignaciones(CveEmpresa As Integer, Optional CveConceptoContable As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesGet") With SqlAdapter.SelectCommand.Parameters + .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With