From 2053bd2dbbf6a02bdeedc123c03bfeca1ee85018 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 3 Jun 2021 10:38:13 -0700
Subject: [PATCH] mejoras en carga de excel

---
 Contabilidad/RegPrePolizaS.aspx.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index add9383be..44f50b925 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1952,6 +1952,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim ObjConta2 As New ClsContabilidad
                     If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString, 1, UsuarioActual.CveEmpresa) Then
                         CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
+                        NombreCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CtaCodigo", "")
                     End If
                     ObjConta2.Dispose()
                     'sino viene  el cveconcepto, busca por le nombre del concepto