From a84eeffd8b4ced1635e5f58481bfe8c0fa45eb5d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 4 Jun 2021 17:17:47 -0700
Subject: [PATCH] -- mensaje para validar que no existe la cuenta

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

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 44f50b925..2b9d9ec0a 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -952,7 +952,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                             End If
                         Else
                             Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
-                        End If
+                        End If
+                    Else
+                        MensajeAlert.AppendFormat("<br/><br/>Folio: <b><a href = ""/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
                     End If
 
                 Else
@@ -1946,15 +1948,22 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim CveSubProyecto As Integer = -1
                     Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
                     Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
-                    Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+                    'Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
                     Dim CveClasificacion As Integer = -1
                     Dim CveCuenta As Integer = -1
                     Dim ObjConta2 As New ClsContabilidad
-                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString, 1, UsuarioActual.CveEmpresa) Then
+                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
                         CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
                         NombreCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CtaCodigo", "")
                     End If
                     ObjConta2.Dispose()
+
+                    If CveCuenta <= 0 Then
+                        Alert(String.Format("La cuenta <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("Cuenta").ToString))
+                        DtMovimientos.Clear()
+                        Exit For
+                    End If
+
                     'sino viene  el cveconcepto, busca por le nombre del concepto
                     If CveConceptoContable = 0 Then
                         Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))