From 0d9fd0e77ba153025a37ced3fe859c2c3c4ea993 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 14 Jul 2021 12:49:18 -0700
Subject: [PATCH] filtro porconcepto de globaldtconceptos

---
 App_Code/ClsPaginas.vb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index bf5d3e6f6..cb66a38d5 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3079,16 +3079,17 @@ Public Class ClsPaginas
 
 
 
-    Property GlobalDTContaConceptosContables(CvePlantillaPoliza As Integer) As DataTable
+    Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable
         Get
-            If CvePlantillaPoliza <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "", DataViewRowState.CurrentRows)
+            If CveConceptoContable <> -1 Then
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows)
                 GlobalDTContaConceptosContables = Dv.ToTable
                 Dv.Dispose()
             Else
                 GlobalDTContaConceptosContables = DirectCast(Application("GlobalDTContaConceptosContables"), DataTable)
             End If
 
+
         End Get
         Set(value As DataTable)
             Application("GlobalDTContaConceptosContables") = value