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