From c26886cfdc73aee14bd16ac06a585d47e43b5cc4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 10 May 2022 11:00:38 -0700
Subject: [PATCH] -- filtro cuentasglobales

---
 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 069c2aaa3..4e06e5f4e 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5960,13 +5960,14 @@ Public Class ClsContabilidad
     End Function
 
 #Region "Globales"
-    Public Function GetCuentasGlobales(CveEmpresa As Integer) As Boolean
+    Public Function GetCuentasGlobales(CveEmpresa As Integer, Optional CveConcepto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasGlobalesGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
         End With
 
         Try