From f257a6d907cd07faf666c6451107ff8a6a008110 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 27 Dec 2022 07:53:39 -0700
Subject: [PATCH] - salta mensaje de cuenta en E119

---
 Ventas/ClientesAbonar.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index f03547ae9..f295d80c9 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1454,7 +1454,7 @@ Partial Class Ventas_ClientesAbonar
 
                                     If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
-                                        If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
+                                        If (IdCtaContable < 1 Or IdCuentaBancaria < 1) AndAlso UsuarioActual.CveEmpresa <> 119 Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                             idCuentaContabilizacion = 0
                                         End If
@@ -3168,7 +3168,7 @@ Partial Class Ventas_ClientesAbonar
 
             DT = ReadExcelFile(Directorio + file.filename, True)
 
-            If Not dt.Columns(0).ColumnName.ToUpper = "FOLIO" Then
+            If Not DT.Columns(0).ColumnName.ToUpper = "FOLIO" Then
                 Alert("El nombre de la primera columna debe ser 'Folio'. Favor de corregirlo", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If