From 31638f4eedb902c8abc956822a03c3b97b5b7b88 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 28 Jul 2021 20:34:02 -0700 Subject: [PATCH 01/10] -- cambio en propiedad Extension y Path, del objeto Archivo --- AC/RegNomina.aspx.vb | 3 -- App_Code/modExtensiones.vb | 10 ++-- Ashx/E48.ashx | 2 +- Ashx/SIGFacturacionCiclica.ashx | 2 +- Bancos/CargarConciliacionesBancarias.aspx.vb | 50 +------------------- Compras/Proveedores.aspx.vb | 4 +- Contabilidad/FisImpuestos.aspx.vb | 2 +- Contabilidad/RegPoliza.aspx.vb | 4 +- Contabilidad/RegPrePoliza.aspx.vb | 4 +- Contabilidad/RegPrePolizaS.aspx.vb | 4 +- Contratos/CatContratosPlantillas.aspx.vb | 2 +- Contratos/Contrato.aspx.vb | 4 +- Contratos/Contrato.vb | 4 +- Contratos/ContratoAvance.aspx.vb | 4 +- Contratos/ContratosSecciones.aspx.vb | 3 -- GPS/CatEventos.aspx.vb | 4 +- GPS/DispositivosControles.aspx.vb | 8 ++-- GPS/DispositivosControles.aspx.vb.vb.exclude | 4 +- GPS/WizardDispositivos.aspx.cs | 2 +- General/SaldosIniciales.aspx.vb | 4 +- Inventarios/AjustesSeccionAlmacen.aspx.vb | 4 +- Inventarios/EntradasSalidas.aspx.vb | 4 +- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- Inventarios/RepMaximoMinimo.aspx.vb | 2 +- Inventarios/TrasladoSolicitud.aspx.vb | 4 +- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- MF/CargaLayout.aspx.cs | 2 +- OI/MinutaDetalle.aspx.cs | 16 +++---- OI/Proyecto.aspx.cs | 4 +- OI/RepProyectos.aspx.cs | 4 +- OI/TareaDetalle.aspx.cs | 6 +-- PyME/Sistemas/WizardRegistro.aspx.vb | 10 ++-- RH/ActualizacionMasiva.aspx.vb | 2 +- Sistemas/Librerias.aspx | 2 +- UserControl/TareaNueva.ascx.cs | 4 +- Ventas/Clientes.aspx.vb | 4 +- reporteador.aspx.cs | 4 -- 38 files changed, 73 insertions(+), 129 deletions(-) diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb index a85fa5425..7568b2c12 100644 --- a/AC/RegNomina.aspx.vb +++ b/AC/RegNomina.aspx.vb @@ -421,9 +421,6 @@ Partial Class AC_RegNomina End If End If - - Dim drt As DataRow - IDPoliza = objAC.AddPoliza(3, TxtConcepto.Text.Trim, 0, 0, UsuarioActual.CveUsuario, Fecha) If IDPoliza > 0 Then diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 2f4fb03ae..95863dc34 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -3433,16 +3433,16 @@ Namespace Extensiones Public Class Archivo Public Sub New() filename = "" - patch = "Temp\" + path = "Temp\" descripcion = "" End Sub Public Property filename As String - Public Property patch As String + Public Property path As String Public Property descripcion As String - Public ReadOnly Property Extencion As String + Public ReadOnly Property Extension As String 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 Property Public ReadOnly Property filenameO As String @@ -3452,7 +3452,7 @@ Namespace Extensiones End Property Public ReadOnly Property FileUrl As String 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 Property End Class diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx index a3d8a1d15..385fd6efe 100644 --- a/Ashx/E48.ashx +++ b/Ashx/E48.ashx @@ -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 Get Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa) - Dim dttemp As DataTable + Dim dttemp As DataTable = Nothing 'sino existe, recarga los datos Dim ObjUsr As New ClsInventarios If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then dttemp = ObjUsr.DtResultados diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx index 35541349c..63fd22d9f 100644 --- a/Ashx/SIGFacturacionCiclica.ashx +++ b/Ashx/SIGFacturacionCiclica.ashx @@ -343,7 +343,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt Dim DtDetalle As DataTable = Nothing 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") Else DtDetalle = Nothing diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb index 8fe358133..380ccb142 100644 --- a/Bancos/CargarConciliacionesBancarias.aspx.vb +++ b/Bancos/CargarConciliacionesBancarias.aspx.vb @@ -77,60 +77,14 @@ Partial Class Bancos_CargarConciliacionesBancarias Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) 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 Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path + Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargaExcel(Directorio, file.filename, Tipo) Else Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) End If 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) If Not DdlCuenta.SelectedValue.ToEntero > 0 Then diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index ea3a19572..3133c92fc 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -4608,8 +4608,8 @@ Partial Class Compras_Proveedores 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 = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path + 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) diff --git a/Contabilidad/FisImpuestos.aspx.vb b/Contabilidad/FisImpuestos.aspx.vb index 4ca322152..24a0db316 100644 --- a/Contabilidad/FisImpuestos.aspx.vb +++ b/Contabilidad/FisImpuestos.aspx.vb @@ -311,7 +311,7 @@ Partial Class Contabilidad_FisImpuestos Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.FileUrl RutaArchivo = String.Format("{0}{1}", RutaDirectorio, CveImpuesto) - RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extencion) + RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extension) Try If Not Directory.Exists(RutaDirectorio) Then diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 42de3dde7..48ac946b3 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1891,8 +1891,8 @@ Partial Class RegPoliza 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 = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path + Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") CargarArchivo(Directorio, file.FileUrl, Tipo) Else Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 6fd47f81b..91bf2e427 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -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) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 47c048b72..8c5ff6a36 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1966,9 +1966,9 @@ Partial Class ContabilidadC_RegPrePolizaS 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) diff --git a/Contratos/CatContratosPlantillas.aspx.vb b/Contratos/CatContratosPlantillas.aspx.vb index e2c1ad0ae..5ce9a7c86 100644 --- a/Contratos/CatContratosPlantillas.aspx.vb +++ b/Contratos/CatContratosPlantillas.aspx.vb @@ -83,7 +83,7 @@ Partial Class Contratos_CatContratosPlantillas Alert("El nombre del archivo excede los 200 Caracteres permitidos favor de modificarlo.", TipoMensaje.MsgAdvertencia) URL = "" 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) URL = "" Exit Sub diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 31f16c46a..67b1f65e6 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -3554,8 +3554,8 @@ Partial Class Contratos_Default 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 Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + 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 Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index 7972d98d8..07fb55a52 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -2143,8 +2143,8 @@ Partial Class Contratos_Default 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 = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path + 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 excel a la plataforma.", TipoMensaje.MsgError) diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb index 43540332c..c462ab589 100644 --- a/Contratos/ContratoAvance.aspx.vb +++ b/Contratos/ContratoAvance.aspx.vb @@ -364,7 +364,7 @@ Partial Class Contratos_ContratoAvance Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) 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 @@ -428,7 +428,7 @@ Partial Class Contratos_ContratoAvance Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) 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 ObjContratos.Commit() diff --git a/Contratos/ContratosSecciones.aspx.vb b/Contratos/ContratosSecciones.aspx.vb index ec6d6513d..c312fd5c5 100644 --- a/Contratos/ContratosSecciones.aspx.vb +++ b/Contratos/ContratosSecciones.aspx.vb @@ -2,14 +2,11 @@ Option Strict On Imports System.Drawing -Imports AspMap Imports Extensiones Imports System.Data Imports System.IO Imports System.Text Imports System.Threading -Imports AspMap.Web -Imports AspMap.Web.Extensions Partial Class Contratos_ContratosSecciones Inherits ClsPaginas diff --git a/GPS/CatEventos.aspx.vb b/GPS/CatEventos.aspx.vb index 0c19d4965..af6b3e6e1 100644 --- a/GPS/CatEventos.aspx.vb +++ b/GPS/CatEventos.aspx.vb @@ -113,7 +113,7 @@ Partial Class GPS_CatEventos If Not Directory.Exists(Path) Then Directory.CreateDirectory(Path) 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 My.Computer.FileSystem.DeleteFile(directorioNew) End If @@ -123,7 +123,7 @@ Partial Class GPS_CatEventos If TxtUpSonido.getfiles().Archivos.Count > 0 Then Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0) 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 My.Computer.FileSystem.DeleteFile(dirSonido) End If diff --git a/GPS/DispositivosControles.aspx.vb b/GPS/DispositivosControles.aspx.vb index 3f7d901bf..7ecc5e736 100644 --- a/GPS/DispositivosControles.aspx.vb +++ b/GPS/DispositivosControles.aspx.vb @@ -139,7 +139,7 @@ Partial Class GPS_DispositivosControles If EsEditar = 0 Then If TxtCalibración.getfiles().Archivos.Count > 0 Then 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.Dispose() Alert("El archivo de calibración debe de ser un archivo excel.") @@ -156,7 +156,7 @@ Partial Class GPS_DispositivosControles Try Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) 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 My.Computer.FileSystem.DeleteFile(dirSonido) End If @@ -211,7 +211,7 @@ Partial Class GPS_DispositivosControles ElseIf EsEditar = 1 Then If TxtCalibración.getfiles().Archivos.Count > 0 Then 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.Dispose() Alert("El archivo de calibración debe de ser un archivo excel.") @@ -227,7 +227,7 @@ Partial Class GPS_DispositivosControles If Not huboerror Then Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) 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 My.Computer.FileSystem.DeleteFile(dirSonido) End If diff --git a/GPS/DispositivosControles.aspx.vb.vb.exclude b/GPS/DispositivosControles.aspx.vb.vb.exclude index e1eb00ae1..4226629f2 100644 --- a/GPS/DispositivosControles.aspx.vb.vb.exclude +++ b/GPS/DispositivosControles.aspx.vb.vb.exclude @@ -94,7 +94,7 @@ Partial Class GPS_DispositivosControles If EsEditar = 0 Then If TxtCalibración.getfiles().Archivos.Count > 0 Then 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.Dispose() Alert("El archivo de calibración debe de ser un archivo excel.") @@ -161,7 +161,7 @@ Partial Class GPS_DispositivosControles If Not huboerror Then Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0) 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 My.Computer.FileSystem.DeleteFile(dirSonido) End If diff --git a/GPS/WizardDispositivos.aspx.cs b/GPS/WizardDispositivos.aspx.cs index d922d90dd..0c02dfe42 100644 --- a/GPS/WizardDispositivos.aspx.cs +++ b/GPS/WizardDispositivos.aspx.cs @@ -777,7 +777,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas { Archivo Archivo = TxtCalibracion.getfiles().Archivos[0]; 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); } File.Move(Archivo.FileUrl, dirSonido); SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet()); diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 03fa02cb5..716d296f2 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -19,9 +19,9 @@ Partial Class General_SaldosIniciales 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) diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index d11bc08fb..cbfd3c09c 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -325,8 +325,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen 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 Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "") + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path + Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "") If Tipo = "EXCEL" Then Dim CveAlmacen As Integer = DdlAlmacenExcel.SelectedValue.ToEntero() Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}") diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 7eea03d5b..8b5dd2eca 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4724,8 +4724,8 @@ Partial Class Inventarios_EntradasSalidas If DdlAlmacen.SelectedValue.ToEntero > 0 Then 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 Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path + Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index bae47a480..f40c3cdac 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -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) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 826698cd6..c8d89bea7 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4729,7 +4729,7 @@ Partial Class Inventarios_RecepcionAlmacen Bitacora = "Documento Relacionado" 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 If archivoOriginal.filename <> "" Then Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivoOriginal.filename)) diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb index b9d589ecc..2e678fb2b 100644 --- a/Inventarios/RepMaximoMinimo.aspx.vb +++ b/Inventarios/RepMaximoMinimo.aspx.vb @@ -363,7 +363,7 @@ Partial Class Inventarios_RepMaximoMinimo Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing) 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 Else diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 2fb44a88f..86adbd457 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -921,8 +921,8 @@ Partial Class Inventarios_TrasladoSolicitud 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 = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path + 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) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 79fb8deaf..554f7e64a 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2817,7 +2817,7 @@ Partial Class Inventarios_TraspasoAlmacen Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs) If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then 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) RegistraScript("$('#DivCargaExcelConceptos').modal('hide');") Else diff --git a/MF/CargaLayout.aspx.cs b/MF/CargaLayout.aspx.cs index 97a0eea68..f3b2a7f31 100644 --- a/MF/CargaLayout.aspx.cs +++ b/MF/CargaLayout.aspx.cs @@ -31,7 +31,7 @@ public partial class MF_CargaLayout : ClsPaginas var File = TxtArchivo.getfiles().Archivos[0]; var Direct =File.FileUrl; var Fecha =System.IO.File.GetLastWriteTime(Direct); - if (!File.Extencion.Contiene("txt")) { Alert("Tiene que ser un archivo de texto", TipoMensaje.MsgAdvertencia); return; } + if (!File.Extension.Contiene("txt")) { Alert("Tiene que ser un archivo de texto", TipoMensaje.MsgAdvertencia); return; } CargarArchivo(Direct, File.filename ,Fecha); } else diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs index e6391f1ed..8c129d4e0 100644 --- a/OI/MinutaDetalle.aspx.cs +++ b/OI/MinutaDetalle.aspx.cs @@ -335,8 +335,8 @@ public partial class OI_MinutaDetalle : ClsPaginas foreach (Archivo item in TxtArchivo.getfiles().Archivos) { archivoname = item.filenameO; - ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename); } bool Continuar = true; @@ -490,8 +490,8 @@ public partial class OI_MinutaDetalle : ClsPaginas foreach (Archivo item in TxtTareaArchivo.getfiles().Archivos) { archivoname = item.filenameO; - ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + 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) { archivoname = item.filenameO; - ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + 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) { archivoname = item.filenameO; - ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename); } using (ClsOIEventos objoi = new ClsOIEventos()) { diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs index 2e6630d24..24749ecf1 100644 --- a/OI/Proyecto.aspx.cs +++ b/OI/Proyecto.aspx.cs @@ -134,8 +134,8 @@ public partial class OI_Proyecto : ClsPaginas //foreach (Archivo item in TxtArchivo.getfiles().Archivos) //{ // archivoname = item.filenameO; - // ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename); + // ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.path, item.filename); //} diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs index 640866951..4e142a81e 100644 --- a/OI/RepProyectos.aspx.cs +++ b/OI/RepProyectos.aspx.cs @@ -100,8 +100,8 @@ public partial class OI_RepProyectos : ClsPaginas //foreach (Archivo item in TxtArchivo.getfiles().Archivos) //{ // archivoname = item.filenameO; - // ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename); + // ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.path, item.filename); //} diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 58b263e8c..3ce6ffa2c 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -715,7 +715,7 @@ public partial class OI_TareaDetalle : ClsPaginas foreach (Archivo item in TxtArchivo.getfiles().Archivos) { 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); } @@ -1118,7 +1118,7 @@ public partial class OI_TareaDetalle : ClsPaginas foreach (Archivo item in Txtfilecomentario.getfiles().Archivos) { 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); } using (ClsOIEventos objoi = new ClsOIEventos()) @@ -1209,7 +1209,7 @@ public partial class OI_TareaDetalle : ClsPaginas foreach (Archivo item in txtActualizarArchivo.getfiles().Archivos) { 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); } string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta); diff --git a/PyME/Sistemas/WizardRegistro.aspx.vb b/PyME/Sistemas/WizardRegistro.aspx.vb index ebc8d5bd5..ca9193bc0 100644 --- a/PyME/Sistemas/WizardRegistro.aspx.vb +++ b/PyME/Sistemas/WizardRegistro.aspx.vb @@ -494,7 +494,7 @@ Partial Class Sistemas_WizardRegistro If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0) 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 My.Computer.FileSystem.DeleteFile(dirFormato) End If @@ -1940,7 +1940,7 @@ Partial Class Sistemas_WizardRegistro If TxtAddUnidadesMedida.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtAddUnidadesMedida.getfiles().Archivos(0) 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) Else 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 Dim file As Archivo = TxtAddProveedor.getfiles().Archivos(0) 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) Else 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 Dim file As Archivo = TxtAddClientes.getfiles().Archivos(0) 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) Else 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 Dim file As Archivo = TxtAddFactura.getfiles().Archivos(0) 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) Else Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb index 800133704..4251563ed 100644 --- a/RH/ActualizacionMasiva.aspx.vb +++ b/RH/ActualizacionMasiva.aspx.vb @@ -327,7 +327,7 @@ Partial Class RH_ActualizacionMasiva End If End Using 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 Else diff --git a/Sistemas/Librerias.aspx b/Sistemas/Librerias.aspx index 2477770a8..068e6a572 100644 --- a/Sistemas/Librerias.aspx +++ b/Sistemas/Librerias.aspx @@ -195,7 +195,7 @@ color:blue;mso-ansi-language:EN-US">:TextBox>

- 
 
'.VB
                'obtiene el listado de archivos cargados
                Dim Filesgral As List(Of Archivo) = TxtLogo.getfiles().Archivos
                'este if se puede reemplazar por un foreach en caso de que se dee agregar mas de un archivo
                If Filesgral.Count > 0 Then
                    Dim fileItem As Archivo = Filesgral(0)
                    Dim Path As String = HttpContext.Current.Request.ApplicationPath
                    Path = HttpContext.Current.Request.MapPath(Path)
                    Path = String.Format("{0}Imagenes\Empresas\", Path)
                    'aqui se elimina el archivo anterior en este caso particular se esta actualizando el archivo y para que no exista conflicto al reemplazar el archvio
                    If Not Directory.Exists(Path) Then
                        Directory.CreateDirectory(Path)
                    End If
                    'para poner el nombre del archivo esto te puede ayudar
                    'fileItem.filenameO : Nombre original del archivo sin tick
                    'fileItem.Extencion : extension del archivo
                    'fileItem.filename : este es el nombre del archivo con un tick el cual lo debe har unico en el servidor
                    Path = String.Format("{0}Logo_{1}.png", Path, idEmpresa)
                    If File.Exists(Path) Then
                        File.Delete(Path)
                    End If
                    'este es el paso  mas importante aqui se mueve el archivo de la carpeta temporal a nuestra carpeta deseada. fileItem.FileUrl es la ubicacion del archivo temporal en nuestro servidor
                    My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
                End If
                'no olvides limpiar el textvox para que no tenga archivos cargados cuando lo vuelvan a usar
                TxtLogo.Text = ""
+ 
 
'.VB
                'obtiene el listado de archivos cargados
                Dim Filesgral As List(Of Archivo) = TxtLogo.getfiles().Archivos
                'este if se puede reemplazar por un foreach en caso de que se dee agregar mas de un archivo
                If Filesgral.Count > 0 Then
                    Dim fileItem As Archivo = Filesgral(0)
                    Dim Path As String = HttpContext.Current.Request.ApplicationPath
                    Path = HttpContext.Current.Request.MapPath(Path)
                    Path = String.Format("{0}Imagenes\Empresas\", Path)
                    'aqui se elimina el archivo anterior en este caso particular se esta actualizando el archivo y para que no exista conflicto al reemplazar el archvio
                    If Not Directory.Exists(Path) Then
                        Directory.CreateDirectory(Path)
                    End If
                    'para poner el nombre del archivo esto te puede ayudar
                    'fileItem.filenameO : Nombre original del archivo sin tick
                    'fileItem.Extension : extension del archivo
                    'fileItem.filename : este es el nombre del archivo con un tick el cual lo debe har unico en el servidor
                    Path = String.Format("{0}Logo_{1}.png", Path, idEmpresa)
                    If File.Exists(Path) Then
                        File.Delete(Path)
                    End If
                    'este es el paso  mas importante aqui se mueve el archivo de la carpeta temporal a nuestra carpeta deseada. fileItem.FileUrl es la ubicacion del archivo temporal en nuestro servidor
                    My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
                End If
                'no olvides limpiar el textvox para que no tenga archivos cargados cuando lo vuelvan a usar
                TxtLogo.Text = ""
#ADS number diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs index b9640b9cc..1ce591d19 100644 --- a/UserControl/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -177,8 +177,8 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl foreach (Archivo item in TxtArchivo.getfiles().Archivos) { archivoname = item.filenameO; - ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); - rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename); } diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e6660992f..89f53ef8c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -5794,7 +5794,7 @@ Partial Class Clientes 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 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) @@ -7827,7 +7827,7 @@ Partial Class Clientes Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.FileUrl 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 If Not Directory.Exists(RutaDirectorio) Then diff --git a/reporteador.aspx.cs b/reporteador.aspx.cs index 5b0a79f08..a6d229997 100644 --- a/reporteador.aspx.cs +++ b/reporteador.aspx.cs @@ -16,10 +16,6 @@ public partial class reporteador : ClsPaginas return ViewState["rutaArchivo"].ToString(); } set { ViewState["rutaArchivo"] = value; } - } - protected void Page_PreInit(object sender, EventArgs e) - { - } protected void Page_Load(object sender, EventArgs e) { From fc1589ba1a7486236adbf4a0cce395043f14ad84 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Jul 2021 09:00:54 -0700 Subject: [PATCH 02/10] =?UTF-8?q?cambio=20en=20propiedad=20path,=20extensi?= =?UTF-8?q?=C3=B3n=20de=20"Archivo"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- Inventarios/RepAnomalias.aspx.vb | 10 ++++++---- OI/TareaDetalle.aspx.cs | 6 +++--- Ventas/ActualizarPrecios.aspx.vb | 2 +- Ventas/CatMetasVendedores.aspx | 4 ++-- Ventas/CatMetasVendedores.aspx.vb | 2 +- Ventas/Clientes.aspx.vb | 2 +- asmx/WSGPSApp.asmx | 1 - 8 files changed, 15 insertions(+), 14 deletions(-) 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 From 435590e90223930b59f605677aa04177c70e17c0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Jul 2021 09:01:15 -0700 Subject: [PATCH 03/10] cambio en propiedades, extension y path, de "Archivo" --- CRM/CatEmpresasCRM.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CRM/CatEmpresasCRM.aspx.cs b/CRM/CatEmpresasCRM.aspx.cs index 729929056..89eff8ed4 100644 --- a/CRM/CatEmpresasCRM.aspx.cs +++ b/CRM/CatEmpresasCRM.aspx.cs @@ -152,7 +152,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas if( TxtExcel.getfiles().Archivos.Count > 0 ) { Archivo file = TxtExcel.getfiles().Archivos[0]; - string Directorio = Server.MapPath("~") + file.patch; + string Directorio = Server.MapPath("~") + file.path; DataTable dt = ReadExcelFile(Directorio + file.filename, true); DataRowCollection Rows = dt.Rows; From cb2c11a996015bcdc6cc2e3a695080b83d6261fa Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Jul 2021 10:05:15 -0700 Subject: [PATCH 04/10] propiedad Extension y path, de objeto Archivo --- OC/OC.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index dae0fd7d6..427ea75c9 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -6355,8 +6355,8 @@ Partial Class OC 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 Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + 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 Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) @@ -7732,7 +7732,7 @@ Partial Class OC Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs) If TxtExcelCot.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0) - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path CargarArchivoCot(Directorio, file.filename) CargaCotizaciones(CveOrdenCompra) From c216bcfecb244ef0e64486580d6d0494c0839005 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Jul 2021 10:05:40 -0700 Subject: [PATCH 05/10] mejoras, en indirectos --- Contratos/ContratoObra.aspx | 132 +++++-------- Contratos/ContratoObra.aspx.vb | 330 +++++++++++++++++---------------- 2 files changed, 210 insertions(+), 252 deletions(-) diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 6092a9d45..357ef318a 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -302,18 +302,11 @@ - --%> - - - - - - + --%> + - - - +
@@ -810,7 +803,7 @@
@@ -824,13 +817,10 @@ - - - @@ -839,10 +829,8 @@ - - - - + + @@ -851,9 +839,7 @@ - - - + @@ -861,13 +847,13 @@ - + - + - + @@ -876,17 +862,12 @@ data-toggle="confirmation" data-popout="true" data-original-title="¿Habilitar el avance?" data-btn-ok-label="si" > - - + - + - - - - - + <%-- @@ -901,15 +882,13 @@ CssClass="btn btn-circle btn-sm green" Text="" /> --%> - + + - - - - +
@@ -972,7 +951,7 @@
@@ -986,13 +965,10 @@ - - - @@ -1001,7 +977,7 @@ - + @@ -1010,14 +986,14 @@ - + - + - + @@ -1031,24 +1007,18 @@ - + - + - - - - + + + - - - - - @@ -1147,7 +1117,7 @@ - @@ -1366,8 +1336,8 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
@@ -1375,12 +1345,12 @@
- +
- - - - + + + + <%-- --%> @@ -1389,12 +1359,12 @@ + CssClass="table table-striped table-hover Widthall" GridLines="None"> - + - + @@ -1403,27 +1373,15 @@ - + - + - -<%-- - - - - - - - - - - --%> - + @@ -2897,7 +2855,7 @@
Insumos - Insumos-Indirecto + Indirectos Mano de Obra Maquinaria Herramienta Flotilla @@ -2912,13 +2870,7 @@
- - -
- - -
- +
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 368397521..7b926f413 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -440,7 +440,7 @@ Partial Class Contratos_ContratoObra End If - CargaEstadoCueta() + CargaEstadoCuenta() TabEstadoCuenta.Visible = True @@ -497,17 +497,17 @@ Partial Class Contratos_ContratoObra If CveContrato > 0 Then If UsuarioActual.TienePermisoProceso(164) Then BtnEliminar.Visible = True - Gv.Columns(8).Visible = True + Gv.Columns(7).Visible = True GvInsumos.Columns(7).Visible = True Else BtnEliminar.Visible = False - Gv.Columns(8).Visible = False + Gv.Columns(7).Visible = False GvInsumos.Columns(7).Visible = False End If Else TabPres.Visible = False - Gv.Columns(8).Visible = True + Gv.Columns(7).Visible = True GvInsumos.Columns(7).Visible = True End If @@ -902,7 +902,7 @@ Partial Class Contratos_ContratoObra If TipoContrato = 4 Then TabPI.Visible = True End If - If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then + If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa, 2) Then TmpDT = ObjContratos.DtResultados If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then BtnAutorizar.Visible = False @@ -921,12 +921,11 @@ Partial Class Contratos_ContratoObra UpGVInsumos.Update() UPGVInt.Update() + TotalAvanceVentas = TmpDT.FiltraParametros("CveTipoPresupuesto=2 AND CveContratoDetalle > 0").SUM("Total").ToDecimal + TotalAvanceInterno = TmpDT.FiltraParametros("CveTipoPresupuesto=1 AND CveContratoDetalle > 0").SUM("Total").ToDecimal - TotalAvanceVentas = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").ToDecimal - TotalAvanceInterno = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").ToDecimal - - LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() - LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() + LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2 AND CveContratoDetalle > 0").SUM("Total").FormatoNumero() + LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1 AND CveContratoDetalle > 0").SUM("Total").FormatoNumero() LbTotalGeneralInt.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() 'LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() @@ -1354,9 +1353,9 @@ Partial Class Contratos_ContratoObra DdlClasificacionAdd.DataBind() DdlClasificacionAdd.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlClasificacionAddInsumos.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) ' GlobalDTClasificacionesPresupuestos(UsuarioActual.CveEmpresa) - DdlClasificacionAddInsumos.DataBind() - DdlClasificacionAddInsumos.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlClasificacionAddInsumos.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) ' GlobalDTClasificacionesPresupuestos(UsuarioActual.CveEmpresa) + 'DdlClasificacionAddInsumos.DataBind() + 'DdlClasificacionAddInsumos.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacionInt.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) 'GlobalDTSubFamilias(UsuarioActual.CveEmpresa) DdlClasificacionInt.DataBind() @@ -1418,9 +1417,9 @@ Partial Class Contratos_ContratoObra DdlUMInsumos.DataBind() UpTitulos.Update() End Sub - Protected Sub DdlClasificacionInsumos_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacionAddInsumos.SelectedIndexChanged - ChangeDdlProductoInsumos() - End Sub + 'Protected Sub DdlClasificacionInsumos_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacionAddInsumos.SelectedIndexChanged + ' ChangeDdlProductoInsumos() + 'End Sub Private Sub ChangeDdlProductoInsumos() If UsuarioActual.Empresa.Funcionalidad(105) = "" Then 'Dim filtro As String = "" @@ -1432,15 +1431,15 @@ Partial Class Contratos_ContratoObra ' filtro = String.Format("CveClasificacion={0}", DdlClasificacionAddInsumos.SelectedValue) ' End If 'End If - DdlProductowsInsumos.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionAddInsumos.SelectedValue.ToEntero).FiltraParametros("", "PSCodigo") - DdlProductowsInsumos.DataBind() - DdlProductowsInsumos.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) - Else - 'If isWhitFamily() Then - ' DdlProductowsInsumos.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacionAddInsumos.SelectedValue) - 'Else - DdlProductowsInsumos.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacionAddInsumos.SelectedValue) - 'End If + 'DdlProductowsInsumos.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionAddInsumos.SelectedValue.ToEntero).FiltraParametros("", "PSCodigo") + 'DdlProductowsInsumos.DataBind() + 'DdlProductowsInsumos.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + Else + 'If isWhitFamily() Then + ' DdlProductowsInsumos.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacionAddInsumos.SelectedValue) + 'Else + ' DdlProductowsInsumos.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacionAddInsumos.SelectedValue) + 'End If End If End Sub #End Region @@ -1503,15 +1502,11 @@ Partial Class Contratos_ContratoObra Row("NoIdentificacion") = "" 'TxtNoIdentificacionv.Text.Trim Row("OCInterna") = "" 'TxtOCInterna.Text.Trim Row("LimitarCantidad") = ChkLimitarCantidadAdd.Checked 'If(ChkLimitarVenta.Checked, 1, 0) - Row("Observacion") = "" 'TxtObservacionesDetalles.Text - - Row("CveRubro") = 1 - + Row("Observacion") = "" 'TxtObservacionesDetalles.Text + Row("CveRubro") = 2 Dim ObjContratos As New ClsContratos - - If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "", Observacion:=Row("Observacion").ToString, CveRubro:=1) Then If Autorizado Then @@ -1842,8 +1837,6 @@ Partial Class Contratos_ContratoObra End If - - If CveContratoDetalleEditar = -1 Then Dim Row As DataRow = TmpDT.NewRow() @@ -1901,8 +1894,8 @@ Partial Class Contratos_ContratoObra Row("CveUM") = DdlUMInsumos.SelectedValue.ToEntero Row("UM") = DdlUMInsumos.SelectedItem - Row("CveClasificacion") = DdlClasificacionAddInsumos.SelectedValue - Row("Clasificacion") = DdlClasificacionAddInsumos.SelectedItem + 'Row("CveClasificacion") = DdlClasificacionAddInsumos.SelectedValue + 'Row("Clasificacion") = DdlClasificacionAddInsumos.SelectedItem Row("CvePS") = DdlProductowsInsumos.SelectedValue.ToEntero Row("PS") = DdlProductowsInsumos.SelectedText Row("CodigoPS") = DdlProductowsInsumos.SelectedText @@ -1915,10 +1908,7 @@ Partial Class Contratos_ContratoObra Dim ObjContratos As New ClsContratos If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "", CveRubro:=Row("CveRubro").ToString.ToEntero, CveActividad:=Row("CveActividad").ToString.ToEntero, CveSubTipoActivoFijo:=Row("CveSubTipoActivoFijo").ToString.ToEntero, Dias:=Row("Dias").ToString.ToEntero) Then - 'If Autorizado Then - ' Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU")) - ' guardarBitacora(msj) - 'End If + Row("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle") TmpDT.Rows.Add(Row) @@ -2053,8 +2043,12 @@ Partial Class Contratos_ContratoObra Protected Sub GVInsumos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvInsumos.RowDataBound - If e.Row.RowIndex > -1 Then - + If e.Row.RowIndex > -1 Then + If e.Row.DBCampo("CveContratoDetalle") = "" Then + e.Row.CssClass = "SubTotales" + End If + + e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado 'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado If UsuarioActual.TienePermisoProceso(124) Then @@ -3266,70 +3260,6 @@ Partial Class Contratos_ContratoObra #End Region #Region "SUBIR EXCEL" - Public Sub DescargarFormato() - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoContrato.xlsx" - Dim Archivo As New IO.FileInfo(Directorio) - If Archivo.Exists Then - Response.Clear() - Response.ClearHeaders() - Response.ClearContent() - Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) - Response.AddHeader("Content-Length", Archivo.Length.ToString()) - Response.ContentType = "text/plain" - Response.Flush() - Response.TransmitFile(Archivo.FullName) - Response.End() - End If - End Sub - 'Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click - ' DescargarFormato() - '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 @@ -3353,8 +3283,8 @@ Partial Class Contratos_ContratoObra 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 Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") + 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 Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) @@ -3601,7 +3531,7 @@ Partial Class Contratos_ContratoObra #End Region #Region " IMPRIMIR DOCUMENTO - SABE " - Public Sub DescarFormato(documento As String) + Public Sub DescargarFormato(documento As String) Dim PathRoot As String = Server.MapPath("/") Dim PathSource As String @@ -4273,7 +4203,7 @@ Partial Class Contratos_ContratoObra TxtCantidadInsumos.Text = gvRow.DataKey("CantidadContratada").ToDouble.ToString - DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero) + ' DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero) DdlProductowsInsumos.ddl.SelectedValueExist(gvRow.DataKey("CvePS").ToString.ToEntero) @@ -4294,7 +4224,7 @@ Partial Class Contratos_ContratoObra DVActividadesRH.Visible = True DVSubTipoActivoFijo.Visible = False - DVClasificacion.Visible = False + ' DVClasificacion.Visible = False DVPS.Visible = False DVUM.Visible = False @@ -4310,7 +4240,7 @@ Partial Class Contratos_ContratoObra DVSubTipoActivoFijo.Visible = True - DVClasificacion.Visible = False + 'DVClasificacion.Visible = False DVPS.Visible = False DVUM.Visible = False @@ -4323,7 +4253,7 @@ Partial Class Contratos_ContratoObra DVActividadesRH.Visible = False DVSubTipoActivoFijo.Visible = False - DVClasificacion.Visible = True + 'DVClasificacion.Visible = True DVPS.Visible = True DVUM.Visible = True @@ -4334,7 +4264,6 @@ Partial Class Contratos_ContratoObra End If - ModalControlPSAdd = False ChkContinualAgregandoControl.Visible = False ChkContinualAgregandoControl.Checked = False @@ -4386,7 +4315,7 @@ Partial Class Contratos_ContratoObra TxtCantidadInsumos.Text = "" - DdlClasificacionAddInsumos.SelectedValueExist(-1) + ' DdlClasificacionAddInsumos.SelectedValueExist(-1) DdlProductowsInsumos.txtText.Value = "" DdlProductowsInsumos.txtValue.Value = "" DdlUMInsumos.SelectedValueExist(-1) @@ -4394,7 +4323,7 @@ Partial Class Contratos_ContratoObra DdlRubro.SelectedValue = "2" - DVClasificacion.Visible = True + ' DVClasificacion.Visible = True DVPS.Visible = True DVUM.Visible = True @@ -4450,6 +4379,7 @@ Partial Class Contratos_ContratoObra Dim DTCargaPresupuestoInsumos As New DataTable Dim DTCargaPresupuestoManoObra As New DataTable Dim DTCargaPresupuestoFlotillas As New DataTable + Dim DTCargaPresupuestoIndirectos As New DataTable If TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas Then @@ -4457,7 +4387,7 @@ Partial Class Contratos_ContratoObra DTCargaPresupuesto = CargaPreSupuestoExcel("Presupuesto") If DTCargaPresupuesto.Rows.Count > 0 Then - ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing) + ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing) Else Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia) End If @@ -4466,9 +4396,10 @@ Partial Class Contratos_ContratoObra DTCargaPresupuesto = CargaPreSupuestoExcel("Insumos") DTCargaPresupuestoManoObra = CargaPreSupuestoExcel("ManoObra") - DTCargaPresupuestoFlotillas = CargaPreSupuestoExcel("Maquinaria") + DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria") + DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos") - ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas) + ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos) End If @@ -4478,7 +4409,6 @@ Partial Class Contratos_ContratoObra Protected Sub BtnDecargaFormato_Click(sender As Object, e As EventArgs) - Dim FI As New IO.FileInfo($"{Extensiones.DirectorioBaseEmpresas}\Empresas\Grales\Formatos\FormatoPresupuestoObra.xlsx") If TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas Then @@ -4503,11 +4433,10 @@ Partial Class Contratos_ContratoObra End If - End Sub - Private Function CargaPreSupuestoExcel(Hoja As String) As DataTable + Private Function CargaPresupuestoExcel(Hoja As String) As DataTable Dim FileExtension As String = "-1" Dim Filesgral As List(Of Archivo) = TxtModalCargaPresupuesto.getfiles().Archivos @@ -4518,13 +4447,11 @@ Partial Class Contratos_ContratoObra FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") - If Not FileExtension.ToUpper.Contiene("XLSX", "XSL") Then Alert("El archivo no es una archivo de Excel", TipoMensaje.MsgAdvertencia) Exit For End If - Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) SpreadsheetInfo.SetLicense(Extensiones.SerialGemBoxSpreadsheet) @@ -4541,23 +4468,15 @@ Partial Class Contratos_ContratoObra Next - - RegistraScript("$('#ModalUploadPresupuesto').modal('hide')") - UpModalCargaPresupuesto.Update() - - DTPS = DTPS.FiltraParametros("Cantidad > 0") - Return DTPS - - End Function - Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable) + Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable) If Not DTPresupuesto Is Nothing Then @@ -4572,6 +4491,10 @@ Partial Class Contratos_ContratoObra DTCargaPresupuestoFlotillas.CaseSensitive = False End If + If Not DTCargaPresupuestoIndirectos Is Nothing Then + DTCargaPresupuestoIndirectos.CaseSensitive = False + End If + Dim ErrorProceso = False Dim DTPS = New DataTable @@ -4617,24 +4540,18 @@ Partial Class Contratos_ContratoObra Dim CvePS As Integer = -1 Dim CveUM As Integer = -1 Dim StrArray() As String - - StrArray = GetPS("Codigo", DrowPS("Codigo").ToString).Split("|"c) If StrArray.Length > 0 Then - If CBool(StrArray(0)) = True Then CvePS = StrArray(1).ToEntero - End If - End If If CvePS = -1 Then StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) - If StrArray.Length > 0 Then If CBool(StrArray(0)) = True Then CvePS = StrArray(1).ToEntero @@ -4852,13 +4769,117 @@ Partial Class Contratos_ContratoObra ErrorProceso = True RowNoEncontrados &= "Sub Tipo: " & DrowPS("SubTipoAF").ToString & "<\BR>" End If - - Next - - End If + If Not DTCargaPresupuestoIndirectos Is Nothing Then + + For Each DrowPS As DataRow In DTCargaPresupuestoIndirectos.Rows + + Dim CvePS As Integer = -1 + Dim CveUM As Integer = -1 + Dim StrArray() As String + StrArray = GetPS("Codigo", DrowPS("Codigo").ToString).Split("|"c) + + If StrArray.Length > 0 Then + If CBool(StrArray(0)) = True Then + CvePS = StrArray(1).ToEntero + End If + End If + + + If CvePS = -1 Then + + StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) + If StrArray.Length > 0 Then + If CBool(StrArray(0)) = True Then + CvePS = StrArray(1).ToEntero + End If + End If + + If CvePS = -1 Then + + Dim ObjPS As New ClsProductosServicios + + Dim CveClasificacion As Integer + If DrowPS.Table.Columns.Contains("Clasificacion") Then + CveClasificacion = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DrowPS("Clasificacion").ToString.Trim)).ToEntero + Else + CveClasificacion = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveClasificacion").ToString.ToEntero 'toma el primero + End If + + Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{ DrowPS("UnidadMedida").ToString}' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString}'").ToString.ToEntero + + If Not CveUnidadMedida > 0 Then + CveUnidadMedida = GlobalDTUnidadesMedida(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveUnidadMedida").ToString.ToEntero + End If + + If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, DrowPS("Codigo").ToString.Trim, "", "", DrowPS("Producto").ToString, DrowPS("PU").ToString.ToDouble, 0, 0, False, 0, False, If(TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas, True, False), + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, CveTipoPS:=2, CveSATPS:=-1, CveMarca:=-1, CveTamaño:=-1, CveMedida:=-1, CveRinTamaño:=-1, CveModelo:=-1, Litraje:=-1, IEPSPorcentaje:=-1, CveClasificacion2:=-1, CveClasificacionDetalle:=-1) > 0 Then + CvePS = ObjPS.CvePS + Else + CvePS = -1 + RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>" + End If + + ObjPS.Dispose() + + End If + + End If + + + If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then + + CveUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $" UnidadMedida = '{ DrowPS("UnidadMedida").ToString.Trim }' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString.Trim }'").ToEntero + + If CveUM <= 0 Then + CveUM = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveUnidadMedida", "").ToString.ToEntero + End If + + + Dim Row As DataRow = DTPS.NewRow() + + Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble + Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble + Row("CveUM") = CveUM + Row("UM") = "" + Row("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion", "").ToString.ToEntero + Row("Clasificacion") = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = '{ Row("CveClasificacion").ToString }'").ToString + Row("CvePS") = CvePS + Row("PS") = DrowPS("Producto").ToString + Row("CodigoPS") = DrowPS("Producto").ToString + Row("PU") = DrowPS("PU").ToString.ToDouble + Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble + + Select Case TipoCargaPresupuesto + Case EnumTipoCargaPresupuesto.Control + Row("CveTipoPresupuesto") = 1 + Row("CveRubro") = 5 + Row("CveActividad") = -1 + Row("CveSubTipoActivoFijo") = -1 + Row("Dias") = 0 + Exit Select + Case Else + Row("CveTipoPresupuesto") = 1 + Row("CveActividad") = -1 + Row("CveSubTipoActivoFijo") = -1 + Row("Dias") = 0 + End Select + + + Row("NoIdentificacion") = "" + Row("OCInterna") = "" + Row("LimitarCantidad") = 0 + Row("Observacion") = "" + + DTPS.Rows.Add(Row) + Else + ErrorProceso = True + End If + Next + + End If If Not ErrorProceso Then @@ -4888,13 +4909,8 @@ Partial Class Contratos_ContratoObra NrowTmpDT("Clasificacion") = Row("Clasificacion") NrowTmpDT("CvePS") = Row("CvePS") - NrowTmpDT("PS") = Row("PS") NrowTmpDT("CodigoPS") = Row("CodigoPS") - - - - NrowTmpDT("PU") = Row("PU") NrowTmpDT("Total") = Row("Total") NrowTmpDT("CveTipoPresupuesto") = Row("CveTipoPresupuesto") @@ -4956,22 +4972,14 @@ Partial Class Contratos_ContratoObra ObjContratos.Dispose() - End If - - If RowNoEncontrados.Length > 0 Then Alert($"Productos y Sub Tipos no encontrados
{RowNoEncontrados} ", TipoMensaje.MsgAdvertencia) End If - - - End Sub - - Protected Sub LnkHabilitaAvance_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) @@ -4990,10 +4998,8 @@ Partial Class Contratos_ContratoObra row("PermitirAvance") = IIf(PermitirAvance = 1, 0, 1).ToString.ToEntero - CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - Alert("Se ha permitido levantar avance", TipoMensaje.MsgInformacion) Else Alert("no se pudo permitir avance", TipoMensaje.MsgAdvertencia) @@ -5003,7 +5009,7 @@ Partial Class Contratos_ContratoObra End Sub - Private Sub CargaEstadoCueta() + Private Sub CargaEstadoCuenta() Dim ObjContratos As New ClsContratos @@ -5247,7 +5253,7 @@ Partial Class Contratos_ContratoObra DVDias.Visible = True DVActividadesRH.Visible = True - DVClasificacion.Visible = False + 'DVClasificacion.Visible = False DVPS.Visible = False DVUM.Visible = False @@ -5259,7 +5265,7 @@ Partial Class Contratos_ContratoObra DVDias.Visible = True DVActividadesRH.Visible = False - DVClasificacion.Visible = False + 'DVClasificacion.Visible = False DVPS.Visible = False DVUM.Visible = False @@ -5268,8 +5274,8 @@ Partial Class Contratos_ContratoObra Else DVDias.Visible = False DVActividadesRH.Visible = False - - DVClasificacion.Visible = True + ' + 'DVClasificacion.Visible = True DVPS.Visible = True DVUM.Visible = True From aeb87f309dc0b9f2baf76af469b1bce186ae7430 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Jul 2021 10:08:27 -0700 Subject: [PATCH 06/10] ajustes de contratos --- Compras/Compras.aspx | 10 +++++----- Compras/Compras.aspx.vb | 39 ++++++++++++++++++++------------------- 2 files changed, 25 insertions(+), 24 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 22040bb52..a96e8339d 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5359,8 +5359,8 @@
--%> -
Clasificación Contratado Avance Faltante Clasificación Contratado Avance Faltante Avance Por Facturar Anticipo
@@ -454,7 +455,7 @@
+ DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto" Width="100%" > Movimiento @@ -729,6 +730,10 @@ + + + +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 8c5ff6a36..222b9f505 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -331,7 +331,8 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("ContadoNumeroFolio", Type.GetType("System.String")) .Add("ContadoImporte", Type.GetType("System.Double")) .Add("ContadoBeneficiario", Type.GetType("System.String")) - .Add("ContadoObservaciones", Type.GetType("System.String")) + .Add("ContadoObservaciones", Type.GetType("System.String")) + .Add("PorcentajeImpuesto", Type.GetType("System.Double")) .Add("Modificado", Type.GetType("System.Boolean")) @@ -578,7 +579,9 @@ Partial Class ContabilidadC_RegPrePolizaS DdlConceptosContables.DataBind() End Sub - Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged + Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged + + If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then CargaProveedores() DdlProveedores.Visible = True @@ -1051,7 +1054,8 @@ Partial Class ContabilidadC_RegPrePolizaS row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True Exit For End If @@ -1065,7 +1069,7 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero) Then + CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal) Then OcurrioError = True Exit For End If @@ -1119,6 +1123,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveCuenta As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveCuenta").ToString.ToEntero Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDouble Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble + Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero CargaConceptosContablesE() DdlConceptosContablesE.SelectedValueExist(CveConceptoContable) @@ -1187,7 +1192,11 @@ Partial Class ContabilidadC_RegPrePolizaS DdlCuentaContableE.DataBind() DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub - Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged + Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged + Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("") + If dr IsNot Nothing Then + DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True" + End If If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then CargaProveedoresE() DdlProveedoresE.Visible = True @@ -1303,9 +1312,14 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero - dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) + If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString() + If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString() dr("Modificado") = True + If DdlPorcentajeIVAE.Visible Then + dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal + End If + DtMovimientos.Rows.Add(dr) DtMovimientos.AcceptChanges() From f9c174bf46eddfd2e14d89eaea15b24aa35e4eb7 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 29 Jul 2021 20:01:13 -0700 Subject: [PATCH 10/10] permite editar pu, relacionado en contrato --- OC/OC.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index 59056f36c..30dc72362 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -2781,7 +2781,7 @@ - +