- salta mensaje de cuenta en E119

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