mejoras en carga de excel

2021-06-03 10:38:13 -07:00
parent 59713f2047
commit 2053bd2dbb
1 changed files with 1 additions and 0 deletions
--- 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