diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index f40c3cdac..022798c18 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -371,7 +371,7 @@ Partial Class Inventarios_KardexAlmacen Protected Sub BtnAgregarProyeccion_Click(sender As Object, e As EventArgs) If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtProyeccionExcel.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.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 29071ec0c..6d833f829 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -338,10 +338,12 @@ Partial Class Inventarios_RepAnomalias #End Region Private Sub BanderaSerieLoteCad(Gv As GridView, resultado As DataTable) - Gv.Columns(5).Visible = resultado.MAX("CveSeccionAlmacen").ToEntero > 0 - Gv.Columns(6).Visible = resultado.MAX("Serie") <> "" - Gv.Columns(7).Visible = resultado.MAX("Lote") <> "" - Gv.Columns(8).Visible = resultado.MAX("FechaCaducidad").ToDate > MinFecha + If resultado IsNot Nothing Then + Gv.Columns(5).Visible = resultado.MAX("CveSeccionAlmacen").ToEntero > 0 + Gv.Columns(6).Visible = resultado.MAX("Serie") <> "" + Gv.Columns(7).Visible = resultado.MAX("Lote") <> "" + Gv.Columns(8).Visible = resultado.MAX("FechaCaducidad").ToDate > MinFecha + End If End Sub Private Sub LnkCrear_Click(sender As Object, e As EventArgs) Handles LnkCrear.Click diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 3ce6ffa2c..ea868bc5d 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -716,7 +716,7 @@ public partial class OI_TareaDetalle : ClsPaginas { archivoname = item.filenameO; ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename); } @@ -1119,7 +1119,7 @@ public partial class OI_TareaDetalle : ClsPaginas { archivoname = item.filenameO; ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename); } using (ClsOIEventos objoi = new ClsOIEventos()) { @@ -1210,7 +1210,7 @@ public partial class OI_TareaDetalle : ClsPaginas { archivoname = item.filenameO; ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename); } string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta); if (!System.IO.Directory.Exists(ruta)) diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index ca172e5ec..d3a8d25d2 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -389,7 +389,7 @@ Partial Class Ventas_ActualizarPrecios If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path CargarArchivo(Directorio, file.filename) Else Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx index d02cb68a3..e502470b9 100644 --- a/Ventas/CatMetasVendedores.aspx +++ b/Ventas/CatMetasVendedores.aspx @@ -74,7 +74,7 @@ - + @@ -84,7 +84,7 @@ - + diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index db8d9ff24..d8871551c 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -221,7 +221,7 @@ Partial Class CatMetasVendedores Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path CargarArchivo(Directorio, file.filename) Else Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 89f53ef8c..f9cddc43f 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -5793,7 +5793,7 @@ Partial Class Clientes Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else diff --git a/asmx/WSGPSApp.asmx b/asmx/WSGPSApp.asmx index 5a00618b0..3249864b7 100644 --- a/asmx/WSGPSApp.asmx +++ b/asmx/WSGPSApp.asmx @@ -8,7 +8,6 @@ Imports System.Data Imports Extensiones Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq -Imports WebServiceApp Imports System.Globalization Imports System.Web.Script.Services Imports System.Web.Script.Serialization