-- filtro cuentasglobales

2022-05-10 11:00:38 -07:00
parent 5928b224b5
commit c26886cfdc
1 changed files with 2 additions and 1 deletions
--- 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