AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- parametro de empresa

Browse Source
This commit is contained in:
rrene
2024-09-26 20:33:05 -07:00
parent 9ee199fc02
commit 072e349e31
1 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OI/PopUpAgenda.aspx.vb
View File

@@ -824,14 +824,10 @@ Partial Class OI_PopUpAgenda
If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
Dim ObjActivosFijos As New ClsAF Dim ObjActivosFijos As New ClsAF
If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then If Not ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
'CargarArchivo()
Else
File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
End If End If
ObjActivosFijos.Dispose() ObjActivosFijos.Dispose()
End If End If
End If End If
End Sub End Sub