-- cambio en propiedad Extension y Path, del objeto Archivo

This commit is contained in:
2021-07-28 20:34:02 -07:00
parent fc7dedc60e
commit 31638f4eed
38 changed files with 73 additions and 129 deletions

View File

@@ -372,7 +372,7 @@ Partial Class Inventarios_KardexAlmacen
If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0)
Dim Directorio As String = Server.MapPath("~") & file.patch
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)