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