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

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

Browse Source
This commit is contained in:
rrene
2021-07-28 20:34:02 -07:00
parent fc7dedc60e
commit 31638f4eed
38 changed files with 73 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
AC/RegNomina.aspx.vb
View File

@@ -421,9 +421,6 @@ Partial Class AC_RegNomina
End If End If
End If End If
Dim drt As DataRow
IDPoliza = objAC.AddPoliza(3, TxtConcepto.Text.Trim, 0, 0, UsuarioActual.CveUsuario, Fecha) IDPoliza = objAC.AddPoliza(3, TxtConcepto.Text.Trim, 0, 0, UsuarioActual.CveUsuario, Fecha)
If IDPoliza > 0 Then If IDPoliza > 0 Then

10
App_Code/modExtensiones.vb
View File

@@ -3433,16 +3433,16 @@ Namespace Extensiones
Public Class Archivo Public Class Archivo
Public Sub New() Public Sub New()
filename = "" filename = ""
patch = "Temp\" path = "Temp\"
descripcion = "" descripcion = ""
End Sub End Sub
Public Property filename As String Public Property filename As String
Public Property patch As String Public Property path As String
Public Property descripcion As String Public Property descripcion As String
Public ReadOnly Property Extencion As String Public ReadOnly Property Extension As String
Get Get
Return IO.Path.GetExtension(String.Format("{0}{1}{2}", If(patch.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory), patch, filename)).Replace(".", "") Return IO.Path.GetExtension(String.Format("{0}{1}{2}", If(path.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory), path, filename)).Replace(".", "")
End Get End Get
End Property End Property
Public ReadOnly Property filenameO As String Public ReadOnly Property filenameO As String
@@ -3452,7 +3452,7 @@ Namespace Extensiones
End Property End Property
Public ReadOnly Property FileUrl As String Public ReadOnly Property FileUrl As String
Get Get
Return String.Format("{0}{1}{2}", If(patch.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory), patch, filename) Return String.Format("{0}{1}{2}", If(path.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory), path, filename)
End Get End Get
End Property End Property
End Class End Class

2
Ashx/E48.ashx
View File

@@ -445,7 +445,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
Dim dttemp As DataTable Dim dttemp As DataTable = Nothing
'sino existe, recarga los datos 'sino existe, recarga los datos
Dim ObjUsr As New ClsInventarios Dim ObjUsr As New ClsInventarios
If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then dttemp = ObjUsr.DtResultados If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then dttemp = ObjUsr.DtResultados

2
Ashx/SIGFacturacionCiclica.ashx
View File

@@ -343,7 +343,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
Dim DtDetalle As DataTable = Nothing Dim DtDetalle As DataTable = Nothing
Dim objContratos As New ClsContratos Dim objContratos As New ClsContratos
If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveUsuario) Then
DtDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2") DtDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
Else Else
DtDetalle = Nothing DtDetalle = Nothing

50
Bancos/CargarConciliacionesBancarias.aspx.vb
View File

@@ -77,60 +77,14 @@ Partial Class Bancos_CargarConciliacionesBancarias
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs)
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargaExcel(Directorio, file.filename, Tipo) CargaExcel(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
End If End If
End Sub End Sub
Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
Dim unnamed As Integer = 0
Dim cols As Integer
Dim columns As String()
Dim curRow As Integer = 0
Dim curCol As Integer = 0
Dim dataTable As DataTable = New DataTable()
Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
If firstRowHasHeaders Then
If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
Else
dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
End If
curRow = 1
Else
dataTable.Columns.Add("Column " & (cols + 1))
End If
Next
While curRow < worksheet.Rows.Count
columns = New String(cols - 1) {}
For curCol = 0 To cols - 1
If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
columns(curCol) = ""
Else
columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
End If
Next
dataTable.Rows.Add(columns)
curRow += 1
End While
Return dataTable
End Function
Private Sub CargaExcel(Ruta As String, FileName As String, Tipo As String) Private Sub CargaExcel(Ruta As String, FileName As String, Tipo As String)
If Not DdlCuenta.SelectedValue.ToEntero > 0 Then If Not DdlCuenta.SelectedValue.ToEntero > 0 Then

4
Compras/Proveedores.aspx.vb
View File

@@ -4608,8 +4608,8 @@ Partial Class Compras_Proveedores
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

2
Contabilidad/FisImpuestos.aspx.vb
View File

@@ -311,7 +311,7 @@ Partial Class Contabilidad_FisImpuestos
Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
filemove = fileItem.FileUrl filemove = fileItem.FileUrl
RutaArchivo = String.Format("{0}{1}", RutaDirectorio, CveImpuesto) RutaArchivo = String.Format("{0}{1}", RutaDirectorio, CveImpuesto)
RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extencion) RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extension)
Try Try
If Not Directory.Exists(RutaDirectorio) Then If Not Directory.Exists(RutaDirectorio) Then

4
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1891,8 +1891,8 @@ Partial Class RegPoliza
Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.FileUrl, Tipo) CargarArchivo(Directorio, file.FileUrl, Tipo)
Else Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)

4
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -2158,9 +2158,9 @@ Partial Class ContabilidadC_RegPrePoliza
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

4
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1966,9 +1966,9 @@ Partial Class ContabilidadC_RegPrePolizaS
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

2
Contratos/CatContratosPlantillas.aspx.vb
View File

@@ -83,7 +83,7 @@ Partial Class Contratos_CatContratosPlantillas
Alert("El nombre del archivo excede los 200 Caracteres permitidos favor de modificarlo.", TipoMensaje.MsgAdvertencia) Alert("El nombre del archivo excede los 200 Caracteres permitidos favor de modificarlo.", TipoMensaje.MsgAdvertencia)
URL = "" URL = ""
Exit Sub Exit Sub
ElseIf fileItem.Extencion <> "doc" AndAlso fileItem.Extencion <> "docx" Then ElseIf fileItem.Extension <> "doc" AndAlso fileItem.Extension <> "docx" Then
Alert("Solo se permiten archivos de tipo .doc o .docx, favor de modificarlo", TipoMensaje.MsgAdvertencia) Alert("Solo se permiten archivos de tipo .doc o .docx, favor de modificarlo", TipoMensaje.MsgAdvertencia)
URL = "" URL = ""
Exit Sub Exit Sub

4
Contratos/Contrato.aspx.vb
View File

@@ -3554,8 +3554,8 @@ Partial Class Contratos_Default
Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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.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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)

4
Contratos/Contrato.vb
View File

@@ -2143,8 +2143,8 @@ Partial Class Contratos_Default
Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)

4
Contratos/ContratoAvance.aspx.vb
View File

@@ -364,7 +364,7 @@ Partial Class Contratos_ContratoAvance
Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato)
For Each fileItem As Archivo In guardarArchivos For Each fileItem As Archivo In guardarArchivos
fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave) fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extension}", ""), urlsave)
Next Next
@@ -428,7 +428,7 @@ Partial Class Contratos_ContratoAvance
Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato)
For Each fileItem As Archivo In guardarArchivos For Each fileItem As Archivo In guardarArchivos
fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave) fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extension}", ""), urlsave)
Next Next
ObjContratos.Commit() ObjContratos.Commit()

3
Contratos/ContratosSecciones.aspx.vb
View File

@@ -2,14 +2,11 @@
Option Strict On Option Strict On
Imports System.Drawing Imports System.Drawing
Imports AspMap
Imports Extensiones Imports Extensiones
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports System.Text Imports System.Text
Imports System.Threading Imports System.Threading
Imports AspMap.Web
Imports AspMap.Web.Extensions
Partial Class Contratos_ContratosSecciones Partial Class Contratos_ContratosSecciones
Inherits ClsPaginas Inherits ClsPaginas

4
GPS/CatEventos.aspx.vb
View File

@@ -113,7 +113,7 @@ Partial Class GPS_CatEventos
If Not Directory.Exists(Path) Then If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path) Directory.CreateDirectory(Path)
End If End If
Dim directorioNew As String = String.Format("{0}\{1}.{2}", Path, Imagen, ArchivoImagen.Extencion) Dim directorioNew As String = String.Format("{0}\{1}.{2}", Path, Imagen, ArchivoImagen.Extension)
If File.Exists(directorioNew) Then If File.Exists(directorioNew) Then
My.Computer.FileSystem.DeleteFile(directorioNew) My.Computer.FileSystem.DeleteFile(directorioNew)
End If End If
@@ -123,7 +123,7 @@ Partial Class GPS_CatEventos
If TxtUpSonido.getfiles().Archivos.Count > 0 Then If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0) Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos" Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", PathSonido, Sonido, ArchivoSonido.Extencion) Dim dirSonido As String = String.Format("{0}\{1}.{2}", PathSonido, Sonido, ArchivoSonido.Extension)
If File.Exists(dirSonido) Then If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido) My.Computer.FileSystem.DeleteFile(dirSonido)
End If End If

8
GPS/DispositivosControles.aspx.vb
View File

@@ -139,7 +139,7 @@ Partial Class GPS_DispositivosControles
If EsEditar = 0 Then If EsEditar = 0 Then
If TxtCalibración.getfiles().Archivos.Count > 0 Then If TxtCalibración.getfiles().Archivos.Count > 0 Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
If Archivo.Extencion <> "xls" AndAlso Archivo.Extencion <> "xlsx" Then If Archivo.Extension <> "xls" AndAlso Archivo.Extension <> "xlsx" Then
GPS.RollBack() GPS.RollBack()
GPS.Dispose() GPS.Dispose()
Alert("El archivo de calibración debe de ser un archivo excel.") Alert("El archivo de calibración debe de ser un archivo excel.")
@@ -156,7 +156,7 @@ Partial Class GPS_DispositivosControles
Try Try
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion" Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion) Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extension)
If File.Exists(dirSonido) Then If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido) My.Computer.FileSystem.DeleteFile(dirSonido)
End If End If
@@ -211,7 +211,7 @@ Partial Class GPS_DispositivosControles
ElseIf EsEditar = 1 Then ElseIf EsEditar = 1 Then
If TxtCalibración.getfiles().Archivos.Count > 0 Then If TxtCalibración.getfiles().Archivos.Count > 0 Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
If Archivo.Extencion <> "xls" AndAlso Archivo.Extencion <> "xlsx" Then If Archivo.Extension <> "xls" AndAlso Archivo.Extension <> "xlsx" Then
GPS.RollBack() GPS.RollBack()
GPS.Dispose() GPS.Dispose()
Alert("El archivo de calibración debe de ser un archivo excel.") Alert("El archivo de calibración debe de ser un archivo excel.")
@@ -227,7 +227,7 @@ Partial Class GPS_DispositivosControles
If Not huboerror Then If Not huboerror Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion" Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion) Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extension)
If File.Exists(dirSonido) Then If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido) My.Computer.FileSystem.DeleteFile(dirSonido)
End If End If

4
GPS/DispositivosControles.aspx.vb.vb.exclude
View File

@@ -94,7 +94,7 @@ Partial Class GPS_DispositivosControles
If EsEditar = 0 Then If EsEditar = 0 Then
If TxtCalibración.getfiles().Archivos.Count > 0 Then If TxtCalibración.getfiles().Archivos.Count > 0 Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
If Archivo.Extencion <> "xls" AndAlso Archivo.Extencion <> "xlsx" Then If Archivo.Extension <> "xls" AndAlso Archivo.Extension <> "xlsx" Then
GPS.RollBack() GPS.RollBack()
GPS.Dispose() GPS.Dispose()
Alert("El archivo de calibración debe de ser un archivo excel.") Alert("El archivo de calibración debe de ser un archivo excel.")
@@ -161,7 +161,7 @@ Partial Class GPS_DispositivosControles
If Not huboerror Then If Not huboerror Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion" Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion) Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extension)
If File.Exists(dirSonido) Then If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido) My.Computer.FileSystem.DeleteFile(dirSonido)
End If End If

2
GPS/WizardDispositivos.aspx.cs
View File

@@ -777,7 +777,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
{ {
Archivo Archivo = TxtCalibracion.getfiles().Archivos[0]; Archivo Archivo = TxtCalibracion.getfiles().Archivos[0];
string Path = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"; string Path = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion";
string dirSonido = string.Format(@"{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion); string dirSonido = string.Format(@"{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extension);
if (File.Exists(dirSonido)) { File.Delete(dirSonido); } if (File.Exists(dirSonido)) { File.Delete(dirSonido); }
File.Move(Archivo.FileUrl, dirSonido); File.Move(Archivo.FileUrl, dirSonido);
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet()); SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet());

4
General/SaldosIniciales.aspx.vb
View File

@@ -19,9 +19,9 @@ Partial Class General_SaldosIniciales
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

4
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -325,8 +325,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "") Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "")
If Tipo = "EXCEL" Then If Tipo = "EXCEL" Then
Dim CveAlmacen As Integer = DdlAlmacenExcel.SelectedValue.ToEntero() Dim CveAlmacen As Integer = DdlAlmacenExcel.SelectedValue.ToEntero()
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}") Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}")

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -4724,8 +4724,8 @@ Partial Class Inventarios_EntradasSalidas
If DdlAlmacen.SelectedValue.ToEntero > 0 Then If DdlAlmacen.SelectedValue.ToEntero > 0 Then
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)

2
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -372,7 +372,7 @@ Partial Class Inventarios_KardexAlmacen
If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0) Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0)
Dim Directorio As String = Server.MapPath("~") & file.patch 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

2
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4729,7 +4729,7 @@ Partial Class Inventarios_RecepcionAlmacen
Bitacora = "Documento Relacionado" Bitacora = "Documento Relacionado"
End If End If
If ObjEventoBitacora.AddEventoBitacora(Bitacora, String.Format(".{0}", archivoOriginal.Extencion), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then If ObjEventoBitacora.AddEventoBitacora(Bitacora, String.Format(".{0}", archivoOriginal.Extension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
Try Try
If archivoOriginal.filename <> "" Then If archivoOriginal.filename <> "" Then
Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivoOriginal.filename)) Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivoOriginal.filename))

2
Inventarios/RepMaximoMinimo.aspx.vb
View File

@@ -363,7 +363,7 @@ Partial Class Inventarios_RepMaximoMinimo
Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing) Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
If continuar Then If continuar Then
Dim FileExtension As String = fileItem.Extencion.ToUpper() Dim FileExtension As String = fileItem.Extension.ToUpper()
If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
Else Else

4
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -921,8 +921,8 @@ Partial Class Inventarios_TrasladoSolicitud
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

2
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2817,7 +2817,7 @@ Partial Class Inventarios_TraspasoAlmacen
Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs) Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs)
If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcelConceptos.getfiles().Archivos(0) Dim file As Archivo = TxtExcelConceptos.getfiles().Archivos(0)
Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path
CargarArchivoConceptos(Directorio, file.filename) CargarArchivoConceptos(Directorio, file.filename)
RegistraScript("$('#DivCargaExcelConceptos').modal('hide');") RegistraScript("$('#DivCargaExcelConceptos').modal('hide');")
Else Else

2
MF/CargaLayout.aspx.cs
View File

@@ -31,7 +31,7 @@ public partial class MF_CargaLayout : ClsPaginas
protected void BtnCargaArchivo_Click(object sender, EventArgs e) protected void BtnCargaArchivo_Click(object sender, EventArgs e)
{ {
if (TxtArchivo.getfiles().Archivos.Count > 0) if (TxtArchivo.getfiles().Archivos.Count > 0)
{ {
var File = TxtArchivo.getfiles().Archivos[0]; var File = TxtArchivo.getfiles().Archivos[0];

16
OI/MinutaDetalle.aspx.cs
View File

@@ -335,8 +335,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in TxtArchivo.getfiles().Archivos) foreach (Archivo item in TxtArchivo.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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);
} }
bool Continuar = true; bool Continuar = true;
@@ -490,8 +490,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in TxtTareaArchivo.getfiles().Archivos) foreach (Archivo item in TxtTareaArchivo.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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);
} }
@@ -614,8 +614,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in TxtAgendaArchivo.getfiles().Archivos) foreach (Archivo item in TxtAgendaArchivo.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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);
} }
@@ -709,8 +709,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in Txtfilecomentario.getfiles().Archivos) foreach (Archivo item in Txtfilecomentario.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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()) using (ClsOIEventos objoi = new ClsOIEventos())
{ {

4
OI/Proyecto.aspx.cs
View File

@@ -134,8 +134,8 @@ public partial class OI_Proyecto : ClsPaginas
//foreach (Archivo item in TxtArchivo.getfiles().Archivos) //foreach (Archivo item in TxtArchivo.getfiles().Archivos)
//{ //{
// archivoname = item.filenameO; // archivoname = item.filenameO;
// ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); // ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
// rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename); // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.path, item.filename);
//} //}

4
OI/RepProyectos.aspx.cs
View File

@@ -100,8 +100,8 @@ public partial class OI_RepProyectos : ClsPaginas
//foreach (Archivo item in TxtArchivo.getfiles().Archivos) //foreach (Archivo item in TxtArchivo.getfiles().Archivos)
//{ //{
// archivoname = item.filenameO; // archivoname = item.filenameO;
// ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); // ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
// rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename); // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.path, item.filename);
//} //}

6
OI/TareaDetalle.aspx.cs
View File

@@ -715,7 +715,7 @@ public partial class OI_TareaDetalle : ClsPaginas
foreach (Archivo item in TxtArchivo.getfiles().Archivos) foreach (Archivo item in TxtArchivo.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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.patch, item.filename);
} }
@@ -1118,7 +1118,7 @@ public partial class OI_TareaDetalle : ClsPaginas
foreach (Archivo item in Txtfilecomentario.getfiles().Archivos) foreach (Archivo item in Txtfilecomentario.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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.patch, item.filename);
} }
using (ClsOIEventos objoi = new ClsOIEventos()) using (ClsOIEventos objoi = new ClsOIEventos())
@@ -1209,7 +1209,7 @@ public partial class OI_TareaDetalle : ClsPaginas
foreach (Archivo item in txtActualizarArchivo.getfiles().Archivos) foreach (Archivo item in txtActualizarArchivo.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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.patch, item.filename);
} }
string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta); string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta);

10
PyME/Sistemas/WizardRegistro.aspx.vb
View File

@@ -494,7 +494,7 @@ Partial Class Sistemas_WizardRegistro
If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then
Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0) Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0)
Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\" Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\"
Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extencion) Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extension)
If File.Exists(dirFormato) Then If File.Exists(dirFormato) Then
My.Computer.FileSystem.DeleteFile(dirFormato) My.Computer.FileSystem.DeleteFile(dirFormato)
End If End If
@@ -1940,7 +1940,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddUnidadesMedida.getfiles().Archivos.Count > 0 Then If TxtAddUnidadesMedida.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddUnidadesMedida.getfiles().Archivos(0) Dim file As Archivo = TxtAddUnidadesMedida.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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")
CargarExcelUnidadesMedida(Directorio, file.filename, Tipo) CargarExcelUnidadesMedida(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2433,7 +2433,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddProveedor.getfiles().Archivos.Count > 0 Then If TxtAddProveedor.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddProveedor.getfiles().Archivos(0) Dim file As Archivo = TxtAddProveedor.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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")
CargarArchivoProveedor(Directorio, file.filename, Tipo) CargarArchivoProveedor(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2615,7 +2615,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddClientes.getfiles().Archivos.Count > 0 Then If TxtAddClientes.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddClientes.getfiles().Archivos(0) Dim file As Archivo = TxtAddClientes.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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")
CargarArchivoCliente(Directorio, file.filename, Tipo) CargarArchivoCliente(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2807,7 +2807,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddFactura.getfiles().Archivos.Count > 0 Then If TxtAddFactura.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddFactura.getfiles().Archivos(0) Dim file As Archivo = TxtAddFactura.getfiles().Archivos(0)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & 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")
CargarArchivoFactura(Directorio, file.filename, Tipo) CargarArchivoFactura(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)

2
RH/ActualizacionMasiva.aspx.vb
View File

@@ -327,7 +327,7 @@ Partial Class RH_ActualizacionMasiva
End If End If
End Using End Using
If continuar Then If continuar Then
Dim FileExtension As String = fileItem.Extencion.ToUpper() Dim FileExtension As String = fileItem.Extension.ToUpper()
If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
Else Else

2
Sistemas/Librerias.aspx
View File

File diff suppressed because one or more lines are too long

4
UserControl/TareaNueva.ascx.cs
View File

@@ -177,8 +177,8 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
foreach (Archivo item in TxtArchivo.getfiles().Archivos) foreach (Archivo item in TxtArchivo.getfiles().Archivos)
{ {
archivoname = item.filenameO; archivoname = item.filenameO;
ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); 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);
} }

4
Ventas/Clientes.aspx.vb
View File

@@ -5794,7 +5794,7 @@ Partial Class Clientes
If TxtExcel.getfiles().Archivos.Count > 0 Then If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0) 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.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) CargarArchivo(Directorio, file.filename, Tipo)
Else Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -7827,7 +7827,7 @@ Partial Class Clientes
Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
filemove = fileItem.FileUrl filemove = fileItem.FileUrl
RutaArchivo = String.Format("{0}{1}_{2}", RutaDirectorio, CveCliente, _CveDocumentacion) RutaArchivo = String.Format("{0}{1}_{2}", RutaDirectorio, CveCliente, _CveDocumentacion)
RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extencion) RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extension)
Try Try
If Not Directory.Exists(RutaDirectorio) Then If Not Directory.Exists(RutaDirectorio) Then

4
reporteador.aspx.cs
View File

@@ -16,10 +16,6 @@ public partial class reporteador : ClsPaginas
return ViewState["rutaArchivo"].ToString(); return ViewState["rutaArchivo"].ToString();
} }
set { ViewState["rutaArchivo"] = value; } set { ViewState["rutaArchivo"] = value; }
}
protected void Page_PreInit(object sender, EventArgs e)
{
} }
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
{ {