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

Ruta personalizada por Empresa

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-07-31 09:54:05 -07:00
parent d59dc01317
commit fbde0a2e58
79 changed files with 2710 additions and 2685 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -2158,9 +2158,9 @@ Partial Class ContabilidadC_RegPrePoliza
If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = Server.MapPath("~") & file.patch
Dim Directorio As String = Server.MapPath("~") & file.path
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2359,10 +2359,7 @@ Partial Class ContabilidadC_RegPrePoliza
Dim Path As String = HttpContext.Current.Request.ApplicationPath
Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
Path = Extensiones.DirectorioBaseEmpresas
Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa)
Path = String.Format("{0}IE", UsuarioActual.Empresa.Ruta)
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)