From c51bc18ea6f1a23a38fc27068816d65fce762f3c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 25 Oct 2023 14:15:24 -0700
Subject: [PATCH] -- que no se cargue combo de cuentas

---
 Contabilidad/RegPrePolizaS.aspx.vb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 7c8cb4597..98d0b4655 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -463,7 +463,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                     LnkAddConcepto.Visible = True
                     CargaConceptos()
                     CargaSubProyectos()
-                    CargaCuentasContables()
                 End If
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
@@ -663,11 +662,11 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
                 DdlCuentaContableE.DataSource = ObjConta.DtResultados
-                DdlCuentaContable.DataSource = ObjConta.DtResultados
+                'DdlCuentaContable.DataSource = ObjConta.DtResultados
                 DtCuentasContables = ObjConta.DtResultados
             End If
             ObjConta.Dispose()
-            DdlCuentaContable.DataBind()
+            'DdlCuentaContable.DataBind()
             DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
             DdlCuentaContableE.DataBind()
             DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))