From 3ab3cf93b1db3e3ed1c5537ff2a5e0982418c983 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Sep 2023 12:12:23 -0700 Subject: [PATCH] --option explcit --- Ventas/ClientesAbonar.aspx.vb | 30 +++--------------------------- 1 file changed, 3 insertions(+), 27 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 79608cabc..c3c42f32b 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -621,7 +621,7 @@ Partial Class Ventas_ClientesAbonar 'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - Dim files = Anexo.getfiles() + Dim files As Extensiones.Files = Anexo.getfiles() If files IsNot Nothing Then If files.Archivos IsNot Nothing Then If files.Archivos.Count = 0 Then @@ -1141,39 +1141,15 @@ Partial Class Ventas_ClientesAbonar MsgError = "No se pudo insertar la póliza" End If End If - End If - End If - 'If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - ' If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - ' MsgError = "No se pudo simplificar los movimientos" - ' Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - ' End If - 'End If - If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia 'If ObjMov.ValorPolizaDescuadre > 0 Then ' MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia 'End If End If - - ''Conta ContPAQ - 'If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - ' If idCuentaContabilizacion > 0 Then - ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - ' IDPoliza = ObjMov.ContaIdPoliza - ' FolioPoliza = ObjMov.ContaFolio - ' Else - ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - ' MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico" - ' End If - ' Else - ' Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas)) - ' End If - 'End If Else MsgError = "No se pudo insertar la póliza" End If @@ -2708,8 +2684,8 @@ Partial Class Ventas_ClientesAbonar Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") Dim DTExcel As New DataTable - Dim ErrorArchivo = False - Dim ErrorExcel = False + Dim ErrorArchivo As Boolean = False + Dim ErrorExcel As Boolean = False DTExcel = ReadExcelFile(Directorio + file.filename, True)