From 072e349e316014a8708730204ab75d739c29116b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 20:33:05 -0700 Subject: [PATCH] - parametro de empresa --- OI/PopUpAgenda.aspx.vb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb index da424dfe8..07487ed21 100644 --- a/OI/PopUpAgenda.aspx.vb +++ b/OI/PopUpAgenda.aspx.vb @@ -824,14 +824,10 @@ Partial Class OI_PopUpAgenda If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then Dim ObjActivosFijos As New ClsAF - If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then - 'CargarArchivo() - Else + If Not ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) End If - ObjActivosFijos.Dispose() - End If End If End Sub