- parametro de empresa

2024-09-26 20:33:05 -07:00
parent 9ee199fc02
commit 072e349e31
1 changed files with 1 additions and 5 deletions
--- 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