diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index d2779e6d3..5c2f76690 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -877,7 +877,7 @@ Partial Class AF_AF Filename = fileItem.filename Next - Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Licencias\{1}", ModExtensiones.DirectorioBaseEmpresas, Filename)) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Licencias\{1}", UsuarioActual.Empresa.Ruta, Filename)) If Archivo.Exists() Then Archivo.Delete() End If @@ -940,7 +940,7 @@ Partial Class AF_AF extencion = array(array.Length - 1) End If - If Adjunto.Trim.Length > 0 Then + If Adjunto.Trim.Length > 0 Then Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extencion Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extencion @@ -1030,13 +1030,13 @@ Partial Class AF_AF Filename = fileItem.filename Next - Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Polizas\{1}", AppDomain.CurrentDomain.BaseDirectory, Filename)) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Polizas\{1}", UsuarioActual.Empresa.Ruta, Filename)) If Archivo.Exists() Then Archivo.Delete() End If If Filename <> "" Then - Filename.FilesMove(String.Format("{0}", Archivo.Name), String.Format("Empresas\{0}\AF\Polizas", UsuarioActual.CveEmpresa)) + Filename.FilesMove(String.Format("{0}", Archivo.Name), String.Format("{0}AF\Polizas", UsuarioActual.Empresa.Ruta)) End If If HdnModalidadPoliza.Value = "A" Then @@ -2022,7 +2022,7 @@ Partial Class AF_AF Dim DirectorioOld As New StringBuilder Dim DirectorioNew As New StringBuilder DirectorioOld.AppendFormat("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, FileMove) - DirectorioNew.AppendFormat("{0}Empresas\{1}\AF\", ModExtensiones.DirectorioBaseEmpresas, CveEmpresaActual) + DirectorioNew.AppendFormat("{0}AF\", UsuarioActual.Empresa.Ruta) If Not Directory.Exists(DirectorioNew.ToString) Then Directory.CreateDirectory(DirectorioNew.ToString) End If @@ -2054,7 +2054,7 @@ Partial Class AF_AF If (CveImagenActivoFijo > 0) Then Dim ObjActivoFijo As New ClsAF If ObjActivoFijo.RemoveActivosFijosImagenes(CveImagenActivoFijo) Then - File.Delete(String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresaActual, ObjActivoFijo.DtResultados.Rows(0)("URL"))) + File.Delete(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjActivoFijo.DtResultados.Rows(0)("URL"))) CargarArchivo() RegistraScript("initcarusel();") End If diff --git a/AF/ResguardoAF.aspx.vb b/AF/ResguardoAF.aspx.vb index 5f48d7542..86984d0f8 100644 --- a/AF/ResguardoAF.aspx.vb +++ b/AF/ResguardoAF.aspx.vb @@ -542,10 +542,10 @@ Partial Class AF_ResguardoAF If EsLiberacion Then If objAF.UpdateActivosFijosResguardosURL($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then If filemove <> "" Then - If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then - File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) + If File.Exists(String.Format("{0}\AF\Resguardos\AFR{1}.{2}", UsuarioActual.Empresa.Ruta, CveResguardoPadre, FileExtension)) Then + File.Delete(String.Format("{0}AF\Resguardos\AFR{1}.{2}", UsuarioActual.Empresa.Ruta, CveResguardoPadre, FileExtension)) End If - If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then + If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("{0}AF\Resguardos", UsuarioActual.Empresa.Ruta)) Then HuboError = False Else HuboError = True @@ -558,10 +558,10 @@ Partial Class AF_ResguardoAF If EsURL2 Then If objAF.UpdateActivosFijosResguardosURLGpo("-1", $"AFT{CveResguardoPadre}.{FileExtension}", CveResguardoPadre) Then If filemove <> "" Then - If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then - File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) + If File.Exists(String.Format("{0}AF\Resguardos\AFR{1}.{2}", UsuarioActual.Empresa.Ruta, CveResguardoPadre, FileExtension)) Then + File.Delete(String.Format("{0}AF\Resguardos\AFR{1}.{2}", UsuarioActual.Empresa.Ruta, CveResguardoPadre, FileExtension)) End If - If filemove.FilesMove(String.Format("AFT{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then + If filemove.FilesMove(String.Format("AFT{0}", CveResguardoPadre), String.Format("{0}AF\Resguardos", UsuarioActual.Empresa.Ruta)) Then HuboError = False Else HuboError = True @@ -575,10 +575,10 @@ Partial Class AF_ResguardoAF If objAF.UpdateActivosFijosResguardosURLGpo($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then If filemove <> "" Then - If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then - File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) + If File.Exists(String.Format("{0}AF\Resguardos\AFR{1}.{2}", UsuarioActual.Empresa.Ruta, CveResguardoPadre, FileExtension)) Then + File.Delete(String.Format("{0}AF\Resguardos\AFR{1}.{2}", UsuarioActual.Empresa.Ruta, CveResguardoPadre, FileExtension)) End If - If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then + If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("{0}AF\Resguardos", UsuarioActual.Empresa.Ruta)) Then HuboError = False Else HuboError = True diff --git a/AIMMGM/ConsultaCliente.aspx.vb b/AIMMGM/ConsultaCliente.aspx.vb index 29c856863..1264906e2 100644 --- a/AIMMGM/ConsultaCliente.aspx.vb +++ b/AIMMGM/ConsultaCliente.aspx.vb @@ -648,14 +648,14 @@ Partial Class AIMMGM_ConsultaCliente End If Dim AIM As New ClsAIMMGM - If Not IO.Directory.Exists(String.Format("{0}\Empresas\{1}\Documentos", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) Then - IO.Directory.CreateDirectory(String.Format("{0}\Empresas\{1}\Documentos", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) + If Not IO.Directory.Exists(String.Format("{0}Documentos", UsuarioActual.Empresa.Ruta)) Then + IO.Directory.CreateDirectory(String.Format("{0}Documentos", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa)) End If Dim Cve As Integer = AIM.AddPago(CveCliente, CveVentaDetalle, TxtImporte.Text.ToDouble, 1, TxtFecha.Text.ToDate, IO.Path.GetExtension(FUComprobante.FileName), TxtObservaciones.Text.Trim, 9999, TxtAprobacion.Text.ToEntero) If Cve > 0 Then - FUComprobante.SaveAs(String.Format("{0}/Empresas/{1}/Documentos/{2}{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Cve, IO.Path.GetExtension(FUComprobante.FileName))) + FUComprobante.SaveAs(String.Format("{0}Documentos/{1}{2}", UsuarioActual.Empresa.Ruta, Cve, IO.Path.GetExtension(FUComprobante.FileName))) Alert("Pago ingresado correctamente", TipoMensaje.MsgInformacion) End If AIM.Dispose() @@ -669,8 +669,8 @@ Partial Class AIMMGM_ConsultaCliente Exit Sub End If 'obtengo la clave de la publicidad - If Not IO.Directory.Exists(String.Format("{0}\Empresas\{1}\Documentos", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) Then - IO.Directory.CreateDirectory(String.Format("{0}\Empresas\{1}\Documentos", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) + If Not IO.Directory.Exists(String.Format("{0}Documentos", UsuarioActual.Empresa.Ruta)) Then + IO.Directory.CreateDirectory(String.Format("{0}Documentos", UsuarioActual.Empresa.Ruta)) End If Dim Logo As String @@ -680,10 +680,10 @@ Partial Class AIMMGM_ConsultaCliente If AIM.DtResultados.Rows.Count > 0 Then CvePublicidad = AIM.DtResultados.Rows(0)("CvePublicidad").ToString.ToEntero Logo = String.Format("Logo{0}{1}", CvePublicidad, IO.Path.GetExtension(FULogo.FileName)) - FULogo.SaveAs(String.Format("{0}/Empresas/{1}/Documentos/{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Logo)) + FULogo.SaveAs(String.Format("{0}Documentos/{2}", UsuarioActual.Empresa.Ruta, Logo)) AIM.UpdateLogo(CvePublicidad, Logo) - ImgLogo.ImageUrl = String.Format("/Empresas/{0}/Documentos/{1}", UsuarioActual.CveEmpresa, Logo) + ImgLogo.ImageUrl = String.Format("{0}/Documentos/{1}", UsuarioActual.Empresa.Ruta, Logo) End If End If diff --git a/AIMMGM/Pagos.aspx.vb b/AIMMGM/Pagos.aspx.vb index 37f0c54a4..24ccdebfd 100644 --- a/AIMMGM/Pagos.aspx.vb +++ b/AIMMGM/Pagos.aspx.vb @@ -161,7 +161,7 @@ Partial Class AIMMGM_Pagos Next Next - Dim Archivoxlsx As String = String.Format("{0}/Empresas/{1}/Documentos/{2}.xlsx", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, NombreArchivoXLSX) + Dim Archivoxlsx As String = String.Format("{0}Documentos/{1}.xlsx", UsuarioActual.Empresa.Ruta, NombreArchivoXLSX) Using wb As New XLWorkbook() wb.Worksheets.Add(dtt) wb.SaveAs(Archivoxlsx) diff --git a/AIMMGM/Registro.aspx.vb b/AIMMGM/Registro.aspx.vb index cc37fbe2f..b0b5a6a05 100644 --- a/AIMMGM/Registro.aspx.vb +++ b/AIMMGM/Registro.aspx.vb @@ -125,7 +125,7 @@ Partial Class AIMMGM_Registro Private Sub CargaReCompra(ClavePago As String, CveCliente As Integer) Dim tmp As New DataTable - Dim Carpeta As String = String.Format("{0}AIMMGM/ePagos", ModExtensiones.DirectorioBaseEmpresas) + Dim Carpeta As String = String.Format("{0}AIMMGM/ePagos", UsuarioActual.Empresa.Ruta) Dim Archivo As String = String.Format("{0}/{1}.xml", Carpeta, ClavePago) Dim Archivo2 As String = String.Format("{0}/C{1}.xml", Carpeta, ClavePago) diff --git a/AIMMGM/ePagos.aspx.vb b/AIMMGM/ePagos.aspx.vb index 75fc0b45a..1e498a877 100644 --- a/AIMMGM/ePagos.aspx.vb +++ b/AIMMGM/ePagos.aspx.vb @@ -90,7 +90,7 @@ Partial Class AIMMGM_ePagos Private Sub CargaCompra() Dim tmp As New DataTable - Dim Carpeta As String = String.Format("{0}AIMMGM/ePagos", ModExtensiones.DirectorioBaseEmpresas) + Dim Carpeta As String = String.Format("{0}AIMMGM/ePagos", UsuarioActual.Empresa.Ruta) Dim Archivo As String = String.Format("{0}/{1}.xml", Carpeta, ClavePago) Dim Archivo2 As String = String.Format("{0}/C{1}.xml", Carpeta, ClavePago) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 9e898f86c..1d8d75be2 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5565,20 +5565,31 @@ Public Class ClsPaginas sw.Start() Dim Bytes As Byte() = Nothing + Dim CveUsuario As Integer = 0 + Dim CveEmpresa As Integer = 0 + Dim RutaEmpresa As String = "" + + If Context.Session("UsuarioSIG") IsNot Nothing Then + CveUsuario = UsuarioActual.CveUsuario + CveEmpresa = UsuarioActual.CveEmpresa + RutaEmpresa = UsuarioActual.Empresa.RutaArchivos + End If + Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) + + 'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA + If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") Then + bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "") + End If + RutaReporte.Replace("/", "\") + If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then RutaReporte = String.Format("{0}{1}", bdir, RutaReporte) End If If EsProduccion Then - Dim CveUsuario As Integer = 0 - Dim CveEmpresa As Integer = 0 - If Context.Session("UsuarioSIG") IsNot Nothing Then - CveUsuario = UsuarioActual.CveUsuario - CveEmpresa = UsuarioActual.CveEmpresa - End If Dim wsreport As New WSRDLC.WebServiceSoapClient Dim params As New List(Of WSRDLC.ReportParameter) Dim ds As New DataSet @@ -5963,11 +5974,11 @@ Public Class ClsPaginas #End Region #Region "IMPRIMIR FACTURA" - Public Sub PdfFacturaPyME(ByRef Vta As Modelos.Factura, DT As DataTable) + Public Sub PdfFacturaPyME(ByRef Vta As Modelos.Factura, DT As DataTable, Optional Guardar As Boolean = True) Dim retorno As Byte() = Nothing 'DATOS GENERALES - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim PathXML As String = $"{Ruta}XML\{Vta.TipoDocto}\{Vta.SerieFolio}.xml" Dim NombreArchivo As String = "" Dim NombreArchivoDescarga As String = "" @@ -6456,26 +6467,27 @@ Public Class ClsPaginas DataSet.Tables.Add(Vta.DtDeduccion.Copy) If Archivo.Exists Then - - ImprimirbytesPDF(ImprimirPDFPyME(RutaFormato, DataSet, params, NombreArchivo, "PDF", MR:=Nothing), "Factura") - Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) - If Not ArchivoPDF.Exists Then - Try - DirectoryExistsCreate(String.Format("{0}PDF", UsuarioActual.Empresa.Ruta)) - DirectoryExistsCreate(String.Format("{0}PDF\{1}", UsuarioActual.Empresa.Ruta, Vta.TipoDocto)) - File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) - Catch ex As Exception - Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - End Try - Else - Try - ArchivoPDF.Delete() - File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) - Catch ex As Exception - Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - End Try + If Guardar Then + Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) + If Not ArchivoPDF.Exists Then + Try + DirectoryExistsCreate(String.Format("{0}PDF", UsuarioActual.Empresa.Ruta)) + DirectoryExistsCreate(String.Format("{0}PDF\{1}", UsuarioActual.Empresa.Ruta, Vta.TipoDocto)) + File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) + Catch ex As Exception + Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) + End Try + Else + Try + ArchivoPDF.Delete() + File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) + Catch ex As Exception + Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) + End Try + End If End If + Else params.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New CrystalParametro("RFC", UsuarioActual.Empresa.RFC)) @@ -6493,7 +6505,7 @@ Public Class ClsPaginas ' Dim ObjVentas As New ClsVentas 'DATOS GENERALES - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim PathXML As String = $"{Ruta}XML\{Vta.TipoDocto}\{Vta.SerieFolio}.xml" Dim NombreArchivo As String = "" Dim NombreArchivoDescarga As String = "" @@ -7913,7 +7925,7 @@ Public Class ClsPaginas Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\" + Dim Ruta As String = RutaEmpresa Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml" Dim FechaEmision, FechaCertificacion As DateTime Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String @@ -8278,7 +8290,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) 'DATOS GENERALES - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim PathXML As String = $"{Ruta}XML\Pag\{Serie}-{Folio}.xml" Dim PathPDF As String = $"{Ruta}PDF\Pag\{Serie}-{Folio}.pdf" SerieFolio = $"{Serie}-{Folio}" @@ -8413,8 +8425,8 @@ Public Class ClsPaginas End If - If File.Exists($"{UsuarioActual.Empresa.Ruta}\Formatos\ReciboDePago.rdlc") Then - rutaArchivo = $"Empresas\{UsuarioActual.CveEmpresa}\Formatos\ReciboDePago.rdlc" + If File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos\ReciboDePago.rdlc") Then + rutaArchivo = $"{UsuarioActual.Empresa.Ruta}Formatos\ReciboDePago.rdlc" Else rutaArchivo = " \Empresas\Grales\Formatos\ReciboDePago.rdlc" End If diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 0e5c9d088..8712432be 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -465,7 +465,9 @@ Public Class ClsSisEmpresas _Empresa.CveEncuestaCRM = Data.Rows(0)("CveEncuestaCRM").ToString.ToEntero _Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString - _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString + _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString + + _Empresa.RutaArchivos = Data.Rows(0)("RutaArchivos").ToString Else diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 3e8120dd8..aeb1ff7b7 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -99,10 +99,15 @@ Public Class Empresa Public Property Soporte_USR As String Public Property Soporte_PWD As String Public Property Soporte_Tipo As String - Public Property Timbres As Integer + Public Property Timbres As Integer + Public Property RutaArchivos As String Public ReadOnly Property Ruta As String Get - Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) + If Not String.IsNullOrEmpty(RutaArchivos) Then + Return RutaArchivos + Else + Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) + End If End Get End Property Public Property IdCuentaIVAxTrasladar As Integer diff --git a/Ashx/SIGCRM.ashx b/Ashx/SIGCRM.ashx index dacdc1843..77aefdf0e 100644 --- a/Ashx/SIGCRM.ashx +++ b/Ashx/SIGCRM.ashx @@ -56,7 +56,7 @@ Public Class SIGCRM : Implements IHttpHandler, IRequiresSessionState Dim Usuario As Usuario = UsuarioActual(context) If Not IsNothing(Usuario) Then - Dim Url = String.Format("{0}\Empresas\{1}\Acercamientos\{2}\Imagenes\{3}", ModExtensiones.DirectorioBaseEmpresas, Usuario.CveEmpresa, CveAcercamiento, Archivo) + Dim Url = String.Format("{0}Acercamientos\{1}\Imagenes\{2}", Usuario.Empresa.Ruta, CveAcercamiento, Archivo) If File.Exists(Url) Then context.Response.ContentType = String.Format("image/{0}", Extension) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index e0ef0f2ee..b2f5d6555 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5028,8 +5028,8 @@ Partial Class Bancos_IE #Region " CARGAR - COMPROBANTE " Protected Sub BtnConfirmaComprobante_Click(sender As Object, e As EventArgs) - Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) - Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("FileUpload").ToString) + Dim DirectorioGuardar = String.Format("{0}IE", UsuarioActual.Empresa.Ruta) + Dim ArchivoTemporal = String.Format("{0}Temp\{1}", UsuarioActual.Empresa.Ruta, Session("FileUpload").ToString) If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ArchivoTemporal) Then Dim Extension As String = Path.GetExtension(ArchivoTemporal) @@ -5084,8 +5084,7 @@ Partial Class Bancos_IE Dim Path As String = HttpContext.Current.Request.ApplicationPath Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") - Path = Extensiones.DirectorioBaseEmpresas - Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa) + Path = String.Format("{0}IE", UsuarioActual.Empresa.Ruta) diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index fc91d55d9..0220112e6 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -321,7 +321,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta)); } decimal Importe; decimal ImporteMN; @@ -744,7 +744,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta)); } if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteMN, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index e96343893..9176dded2 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -355,7 +355,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta)); } // SI ES DOLARES @@ -699,7 +699,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta)); } //GUARDA PREPOLIZAS DETALLE diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index ef2889275..ff500fbfe 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -1021,7 +1021,7 @@ Partial Class Bancos_PolizaCheque 'If Conta IsNot Nothing Then Conta.Commit() If filemove <> "" Then - filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)) + filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta)) End If GeneraChequePDF(CveIE, UsuarioActual.Empresa, IDPoliza) diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 9f38b7a6d..94c1ebf6f 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -3467,8 +3467,6 @@ Partial Class Bancos_PopIEVentas PDFReciboDePagos(-1, -1, ObjBancos.CveComplementoPago, False) - Dim LigaDescargaXML = $"../Empresas/{UsuarioActual.CveEmpresa}/XML/Pag/{ObjBancos.ComplementoSerieFolio}.xml" - Dim LigaDescargaPDF = $"../Empresas/{UsuarioActual.CveEmpresa}/PDF/Pag/{ObjBancos.ComplementoSerieFolio}.pdf" Retorno.AppendFormat(" Complemento de pago {0}
", ObjBancos.ComplementoSerieFolio) Retorno.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE))) Retorno.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE))) diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index 2ecb1b234..083e605c0 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -296,7 +296,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta)); } decimal Importe; decimal ImporteMN; @@ -590,7 +590,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas //GUARDA COMPROBANTE if (!filemove.Equals("")) { - filemove.FilesMove(CveIE.ToString(), string.Format(@"Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)); + filemove.FilesMove(CveIE.ToString(), string.Format(@"{0}IE", UsuarioActual.Empresa.Ruta)); } if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancosPrestamo, -1, CveIE, CvePersonal: DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), ImporteMX: ImporteMN, TipoCambio: TC, TipoCambioPago:TC)) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 056bb2fd1..55b03dca0 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -888,7 +888,7 @@ Partial Class Bancos_ProveedoresAbonar 'guardo el archivo If filemove <> "" Then - filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)) + filemove.FilesMove(CveIE.ToString, String.Format("{0}\IE", UsuarioActual.Empresa.Ruta)) End If Anexo.Text = "" diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb index 970fbe2e9..27bab7d10 100644 --- a/Bancos/RepCobrado.aspx.vb +++ b/Bancos/RepCobrado.aspx.vb @@ -134,7 +134,7 @@ Partial Class Ventas_RepRecuperacion If DdlCuentaBancaria.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cuenta Bancaria: {0}", DdlCuentaBancaria.SelectedItem.Text) Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta RutaPDF = $"{Ruta}\Formatos\RepRecuperacion.rdlc" If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc" diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb index 16ad3e3ca..06560f929 100644 --- a/Bancos/RepCobradoDetalle.aspx.vb +++ b/Bancos/RepCobradoDetalle.aspx.vb @@ -193,7 +193,7 @@ Partial Class Ventas_RepRecuperacionDetalle If DdlProveedorSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Proveedor Sucursal: {0}", DdlProveedorSucursal.SelectedItem.Text) Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc" If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc" diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 9abca51fc..79f1f35ea 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -535,7 +535,7 @@ Partial Class Bancos_RepIE End Sub Private Sub Imprimir(Formato As String) - Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) + Dim LogoRutaFisica As String = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index ad05f2e5d..03abe16fb 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -1448,7 +1448,7 @@ public partial class CRM_Acercamiento : ClsPaginas if ((CveArchivo > 0)) { string NombreNuevo = string.Format("{0}{1}", CveArchivo, FileExtension); - string DirectorioNuevo = string.Format("{0}\\Empresas\\{1}\\Acercamientos\\{2}\\Imagenes\\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CveAcercamiento); + string DirectorioNuevo = string.Format("{0}Acercamientos\\{1}\\Imagenes\\", UsuarioActual.Empresa.Ruta, CveAcercamiento); if (!Directory.Exists(DirectorioNuevo)) { Directory.CreateDirectory(DirectorioNuevo); diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f65919d08..7dc209b2e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -580,12 +580,6 @@ Partial Class Compras_Compras End Set End Property - 'Private ReadOnly Property Ruta As String - ' Get - ' Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" - ' End Get - 'End Property - Public Class Anticipos Public Property TipoMovto As String @@ -1636,7 +1630,7 @@ Partial Class Compras_Compras Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML")) + Dim Archivo As String = String.Format("{0}Compras\{2}\{3}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML")) If IO.File.Exists(Archivo) Then Dim Validada As Boolean = True diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 1cb659ebc..3a4a65a77 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -69,11 +69,7 @@ Partial Class PopUpVerFactura ViewState("TmpDTMaterialesOS") = value End Set End Property - Private ReadOnly Property Ruta As String - Get - Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" - End Get - End Property + Private ReadOnly Property DomicilioFiscalCompu As String Get Dim SisEmpresa As New ClsSisEmpresas() @@ -4369,7 +4365,7 @@ Partial Class PopUpVerFactura ' 04/05/2018 - Pruebas de impresion de factura PyME Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF") - Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) + Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta) Dim File As FileInfo = New FileInfo(Directorio1) If File.Exists Then diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index ea3a19572..3d6f80da9 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -709,7 +709,7 @@ Partial Class Compras_Proveedores Try Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) - XMLDoc.Load(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & dr("CveEmpresa").ToString & "\Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString) + XMLDoc.Load(UsuarioActual.Empresa.Ruta & "Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString) Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) @@ -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/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index 0d78f1e74..e8de3702b 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -332,7 +332,7 @@ Partial Class Compras_RepComprasAFDetalle Dim ObjTareas As New ClsOIEventos Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta RutaPDF = $"{Ruta}\Formatos\RepComprasAFDetalle.rdlc" If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas\Grales\Formatos\RepComprasAFDetalle.rdlc" diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs index bd3e49f7a..5b9f2a458 100644 --- a/Compras/RepCxPPeriodo.aspx.cs +++ b/Compras/RepCxPPeriodo.aspx.cs @@ -247,7 +247,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas StrFiltro.AppendFormat(" Registro: {0}", DdlUsuarioRegistro.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = UsuarioActual.Empresa.Ruta; RutaPDF = $"{Ruta}/Formatos/RepCxPPeriodo.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/RepGastosFijos.aspx.cs b/Compras/RepGastosFijos.aspx.cs index 92265c1dc..2e41a8983 100644 --- a/Compras/RepGastosFijos.aspx.cs +++ b/Compras/RepGastosFijos.aspx.cs @@ -215,9 +215,9 @@ public partial class Compras_RepGastosFijos : ClsPaginas protected void ImprimiReporte(string Formato = "PDF") { string FechaInicio = DateTime.Parse(TxtFechaI.Text).ToShortDateString(); - string FechaFinal = DateTime.Parse(TxtFechaF.Text).ToShortDateString(); - - string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa); + string FechaFinal = DateTime.Parse(TxtFechaF.Text).ToShortDateString(); + + string Ruta = UsuarioActual.Empresa.Ruta; string RutaPDF = string.Format("{0}/Formatos/RepGastosFijos.rdlc", Ruta); if (!File.Exists(RutaPDF)) diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs index d2faa08d1..b5dafa73c 100644 --- a/Compras/RepPagado.aspx.cs +++ b/Compras/RepPagado.aspx.cs @@ -243,7 +243,7 @@ public partial class Compras_RepPagado : ClsPaginas StrFiltro.AppendFormat(" Moneda: {0}", DdlMoneda.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = UsuarioActual.Empresa.Ruta; RutaPDF = $"{Ruta}/Formatos/RepRecuperacion.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index a5bded5ec..326d99ed8 100644 --- a/Compras/RepPagadoDetalle.aspx.cs +++ b/Compras/RepPagadoDetalle.aspx.cs @@ -274,7 +274,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas StrFiltro.AppendFormat(" Moneda: {0}", DdlMoneda.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = UsuarioActual.Empresa.Ruta; RutaPDF = $"{Ruta}/Formatos/RepPagadoDetalle.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs index 7de9ab3b3..c514e6827 100644 --- a/Compras/RepPagadoPeriodo.aspx.cs +++ b/Compras/RepPagadoPeriodo.aspx.cs @@ -292,7 +292,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas StrFiltro.AppendFormat(" Moneda: {0}", DdlMoneda.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = UsuarioActual.Empresa.Ruta; RutaPDF = $"{Ruta}/Formatos/RepPagadoPeriodo.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 2ee5e8db2..aa2e004dd 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -697,7 +697,7 @@ Partial Class Compras_eFacturas txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString - Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\" + Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta) Ejecutable = "C:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe" Form.DefaultButton = BtnConsultar.UniqueID @@ -1300,7 +1300,7 @@ Partial Class Compras_eFacturas End Sub Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click Dim DtNoRecibidas As New DataTable - Dim Ruta As String = String.Format("{0}\Empresas\{1}\Compras\NoRecibidas-{1}.xml", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) + Dim Ruta As String = String.Format("{0}Compras\NoRecibidas-{1}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa) Dim Str As New StringBuilder If IO.File.Exists(Ruta) Then DtNoRecibidas.ReadXml(Ruta) @@ -1428,7 +1428,7 @@ Partial Class Compras_eFacturas If filemove <> "" Then 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta)) - filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa)) + filemove.FilesMove("", String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta)) 'AGREGA XML A LA LISTA If FileExtension.ToUpper = "XML" Or FileExtension.ToUpper = "PDF" Then ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) @@ -1438,7 +1438,7 @@ Partial Class Compras_eFacturas Next - Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) + Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta)) Dim ListaDirectoriosTemporales As New List(Of String) Dim ListaComprimidos As New List(Of String) @@ -1749,7 +1749,7 @@ Partial Class Compras_eFacturas DirectoryExistsCreate(String.Format("{0}Compras\{1}", UsuarioActual.Empresa.Ruta, RFC.ToUpper)) Try - File.Move(PathArchivo, String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, RFC.ToUpper, NombreArchivo)) + File.Move(PathArchivo, String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, RFC.ToUpper, NombreArchivo)) Catch ex As Exception Alert("Error") End Try @@ -2787,7 +2787,7 @@ Partial Class Compras_eFacturas XMLNodosPagosModalCount = 0 Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) + Dim Archivo As String = String.Format("{0}Compras\{2}\{3}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) If IO.File.Exists(Archivo) Then @@ -3669,7 +3669,7 @@ Partial Class Compras_eFacturas Dim strRFCde As String = gvrow.DataKey("RFCde") Dim strXml As String Dim strPDF As String - Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) + Dim dirbase As String = String.Format("{0}{1}{2}\", UsuarioActual.Empresa.Ruta, "Compras\", strRFCde) If Directory.Exists(dirbase) Then strXml = String.Format("{0}{1}", dirbase, gvrow.DataKey("XML")) strPDF = String.Format("{0}{1}", dirbase, gvrow.DataKey("PDF")) @@ -3704,7 +3704,7 @@ Partial Class Compras_eFacturas Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim strRFCde As String = gvrow.DataKey("RFCde") Dim strPDF As String - Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) + Dim dirbase As String = String.Format("{0}{1}{2}\", UsuarioActual.Empresa.Ruta, "Compras\", strRFCde) strPDF = String.Format("{0}{1}", dirbase, gvrow.DataKey("PDF")) If File.Exists(strPDF) Then Dim file As New System.IO.FileInfo(strPDF) @@ -3728,7 +3728,7 @@ Partial Class Compras_eFacturas Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim strRFCde As String = gvrow.DataKey("RFCde") Dim strXml As String - Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) + Dim dirbase As String = String.Format("{0}{1}{2}\", UsuarioActual.Empresa.Ruta, "Compras\", strRFCde) strXml = String.Format("{0}{1}", dirbase, gvrow.DataKey("XML")) If File.Exists(strXml) Then Dim file As New System.IO.FileInfo(strXml) @@ -3949,7 +3949,7 @@ Partial Class Compras_eFacturas Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) + Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) If IO.File.Exists(Archivo) Then diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 6fd47f81b..8630e7aa5 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) @@ -2359,10 +2359,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim Path As String = HttpContext.Current.Request.ApplicationPath Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") - Path = Extensiones.DirectorioBaseEmpresas - Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa) - - + Path = String.Format("{0}IE", UsuarioActual.Empresa.Ruta) If Not Directory.Exists(Path) Then Directory.CreateDirectory(Path) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 31f16c46a..35ab2b146 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1304,10 +1304,10 @@ Partial Class Contratos_Default 'Renombrar archivo If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Contratos") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Contratos") End If - Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = UsuarioActual.Empresa.Ruta & "Contratos\" 'ViewState("extencion") = FileExtension 'ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", ViewState("FName").ToString) @@ -1420,10 +1420,10 @@ Partial Class Contratos_Default If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Contratos") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Contratos") End If - Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = UsuarioActual.Empresa.Ruta & "Contratos\" Try If File.Exists(String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Then @@ -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..105e62cfc 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -597,10 +597,10 @@ Partial Class Contratos_Default 'Renombrar archivo If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Contratos") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Contratos") End If - Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = UsuarioActual.Empresa.Ruta & "Contratos\" 'ViewState("extencion") = FileExtension 'ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", ViewState("FName").ToString) @@ -643,10 +643,10 @@ Partial Class Contratos_Default If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Contratos") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Contratos") End If - Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = UsuarioActual.Empresa.Ruta & "Contratos\" Try If File.Exists(String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Then diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 368397521..c62a5b68e 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -9,8 +9,8 @@ Imports System.Globalization Imports GemBox.Spreadsheet Partial Class Contratos_ContratoObra - Inherits ClsPaginas - + Inherits ClsPaginas + #Region " PROPIEDADES " Private Property CveContrato As Integer Get @@ -340,68 +340,68 @@ Partial Class Contratos_ContratoObra Set(ByVal value As DataSet) ViewState("DsDatosPedDev") = value End Set - End Property - + End Property + Private Property CveSubProyecto As Integer Get - If ViewState("CveSubProyecto") Is Nothing Then - Return -1 - Else - Return CType(ViewState("CveSubProyecto"), Integer) - End If + If ViewState("CveSubProyecto") Is Nothing Then + Return -1 + Else + Return CType(ViewState("CveSubProyecto"), Integer) + End If End Get Set(value As Integer) ViewState("CveSubProyecto") = value - End Set - End Property - - - + End Set + End Property + + + Property TotalAvanceVentas As Decimal Get - If ViewState("TotalAvanceVentas") Is Nothing Then - Return 0D - Else - Return ViewState("TotalAvanceVentas").ToString.ToDecimal - End If + If ViewState("TotalAvanceVentas") Is Nothing Then + Return 0D + Else + Return ViewState("TotalAvanceVentas").ToString.ToDecimal + End If End Get Set(value As Decimal) ViewState("TotalAvanceVentas") = value - End Set - End Property - - - + End Set + End Property + + + Property TotalAvanceInterno As Decimal Get - If ViewState("TotalAvanceInterno") Is Nothing Then - Return 0D - Else - Return ViewState("TotalAvanceInterno").ToString.ToDecimal - End If + If ViewState("TotalAvanceInterno") Is Nothing Then + Return 0D + Else + Return ViewState("TotalAvanceInterno").ToString.ToDecimal + End If End Get Set(value As Decimal) ViewState("TotalAvanceInterno") = value - End Set - End Property - - - - + End Set + End Property + + + + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CargaValoresIniciales() - CreaDtTmpFianzas() - - - cargaClientes() - - + CreaDtTmpFianzas() + + + cargaClientes() + + If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then ViewState("CveContrato") = Request("CveContrato") @@ -430,30 +430,30 @@ Partial Class Contratos_ContratoObra If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - If CveContrato > 0 Then - - LnkModalAddPSVentas.Visible = True - LnkModalAddPSControl.Visible = True - LnkModalAddPresupuestoVentas.Visible = True - LnkModalAddPresupuestoControl.Visible = True - LnkModalAddMaquinariaFlotilla.Visible = True - + If CveContrato > 0 Then + + LnkModalAddPSVentas.Visible = True + LnkModalAddPSControl.Visible = True + LnkModalAddPresupuestoVentas.Visible = True + LnkModalAddPresupuestoControl.Visible = True + LnkModalAddMaquinariaFlotilla.Visible = True + End If - CargaEstadoCueta() + CargaEstadoCuenta() + + TabEstadoCuenta.Visible = True + + + If TxtLimiteGastos.Text.ToDecimal > 0 Then + TabGastos.Visible = True + LnkModalAddGastos.Visible = True + CargaGastos() + + End If + + Indicadores() - TabEstadoCuenta.Visible = True - - - If TxtLimiteGastos.Text.ToDecimal > 0 Then - TabGastos.Visible = True - LnkModalAddGastos.Visible = True - CargaGastos() - - End If - - Indicadores() - Else 'Configuración de Modalidad Insert LblFechaCaptura.Text = Now.ToShortDateString() @@ -466,10 +466,10 @@ Partial Class Contratos_ContratoObra TabReporteAvance.Visible = False TabAvanveDocumento.Visible = False - TAB.ActiveTabIndex = 0 - - - + TAB.ActiveTabIndex = 0 + + + End If 'carga combos @@ -477,12 +477,12 @@ Partial Class Contratos_ContratoObra CargaPS() CargaPSInsumos() ConfiguraTipos() - 'CargaDatosEncabezado() - - - CargaDLLCargaGVCentrosConsto() - tabalCentrosdecotso() - + 'CargaDatosEncabezado() + + + CargaDLLCargaGVCentrosConsto() + tabalCentrosdecotso() + End If @@ -497,28 +497,28 @@ 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 - + End If + Else TabPres.Visible = False - Gv.Columns(8).Visible = True + Gv.Columns(7).Visible = True GvInsumos.Columns(7).Visible = True End If - TabAvanveDocumento.Visible = False - TabContratosGastos.Visible = False - TabPed.Visible = False - - End Sub - + TabAvanveDocumento.Visible = False + TabContratosGastos.Visible = False + TabPed.Visible = False + + End Sub + #Region " CARGA VALORES INICIALES " Private Sub CargaValoresIniciales() CveContrato = -1 @@ -534,26 +534,26 @@ Partial Class Contratos_ContratoObra FolioSugerido = "" CargaProyecto() - CargaContratista() - - + CargaContratista() + + DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) DdlUM.DataBind() DdlMoneda.DataSource = GlobalDTMonedas - DdlMoneda.DataBind() - - - + DdlMoneda.DataBind() + + + CargaContratosEstatus() - CreaDT() - - + CreaDT() + + If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False - End Sub - - - + End Sub + + + Protected Sub DdlMoneda_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMoneda.SelectedIndexChanged If DdlMoneda.SelectedIndex = 0 Then @@ -568,10 +568,10 @@ Partial Class Contratos_ContratoObra End Sub Public Function isWithFamily() As Boolean Return UsuarioActual.CveEmpresa = 66 - End Function - - Private Sub cargaClientes() - DdlCliente.setEsWebService(True) + End Function + + Private Sub cargaClientes() + DdlCliente.setEsWebService(True) DdlCliente.Attributes.Add("data-metodo", "getcliente") End Sub @@ -599,20 +599,20 @@ Partial Class Contratos_ContratoObra TmpDT.Columns.Add("NoIdentificacion", GetType(String)) TmpDT.Columns.Add("LimitarCantidad", GetType(Integer)) TmpDT.Columns.Add("OCInterna", GetType(String)) - TmpDT.Columns.Add("Observacion", GetType(String)) - - + TmpDT.Columns.Add("Observacion", GetType(String)) + + TmpDT.Columns.Add("CveRubro", GetType(Integer)) TmpDT.Columns.Add("CveActividad", GetType(Integer)) TmpDT.Columns.Add("CveSubTipoActivoFijo", GetType(Integer)) TmpDT.Columns.Add("Rubro", GetType(String)) TmpDT.Columns.Add("Actividad", GetType(String)) - TmpDT.Columns.Add("SubTipoActivoFijo", GetType(String)) - - TmpDT.Columns.Add("Dias", GetType(Integer)) - - + TmpDT.Columns.Add("SubTipoActivoFijo", GetType(String)) + + TmpDT.Columns.Add("Dias", GetType(Integer)) + + End Sub Protected Sub Limpiar() TxtNumeroContrato.Text = "" @@ -621,55 +621,55 @@ Partial Class Contratos_ContratoObra DdlCliente.SelectedValue = "-1" TxtFechaInicial.Text = "" TxtFechaFinal.Text = "" - TxtPorIVA.Text = "" - - 'DdlProyecto.SelectedValue = "-1" - + TxtPorIVA.Text = "" + + 'DdlProyecto.SelectedValue = "-1" + TxtCantidad.Text = "" TxtPU.Text = "" TmpDT.Clear() CargaGVPresupuestos(TmpDT) CargaGVPresupuestosInsumos(TmpDT) LbTotalGeneral.Text = "0.00" - End Sub + End Sub #End Region - + #Region " CONFIGURA TIPOS CONTRATO " - + Private Sub ConfiguraTipos() If Not TipoContrato.Contiene({7, 9, 13, 16, 18, 21}) Then TabAF.Visible = False - End If - - - - 'DONDE OCUPA ALMACEN + End If + + + + 'DONDE OCUPA ALMACEN Dim CveTipoAlmacenOrigen = "12,15" - Dim CveTipoAlmacenDestino = "11,12" - - - + Dim CveTipoAlmacenDestino = "11,12" + + + + End Sub + + Private Sub MuestraPermiteAvance() + + End Sub - Private Sub MuestraPermiteAvance() - - - End Sub - #End Region - - - + + + #Region " INICIO DE PAGINA " - - - + + + Private Sub modalidades(modalidadDetalleInt As Integer) If modalidadDetalleInt = 1 Then - ModalidadDetalle = 1 - - + ModalidadDetalle = 1 + + DvTotal.Visible = True @@ -677,43 +677,43 @@ Partial Class Contratos_ContratoObra ' TableDatosCabecera.Visible = True 'End If - If CveTipoContrato = 25 Then - - DvTotal.Visible = False - - + If CveTipoContrato = 25 Then + + DvTotal.Visible = False + + End If ElseIf modalidadDetalleInt = 2 Then - ModalidadDetalle = 2 - - - DvTotal.Visible = True - - + ModalidadDetalle = 2 + + + DvTotal.Visible = True + + 'If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then ' TableDatosCabecera.Visible = True - 'End If - - - + 'End If + + + End If UpGral.Update() - End Sub - - - + End Sub + + + #End Region - + #Region " CARGA DATOS " Private Sub CargaDatos() Dim ObjContratos As New ClsContratos() - Dim Ruta = Request.ApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" - 'DivTipoContrato.Visible = False - - + Dim Ruta = Request.ApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + 'DivTipoContrato.Visible = False + + If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then If ObjContratos.DtResultados.Rows.Count > 0 Then @@ -733,63 +733,63 @@ Partial Class Contratos_ContratoObra TxtDescripcionContrato.Text = ObjContratos.DescripcionContrato TxtNumeroContrato.Text = ObjContratos.NumeroContrato TxtNumeroLicitacion.Text = ObjContratos.NumeroLicitacion - TipoContrato = ObjContratos.CveContratoTipo + TipoContrato = ObjContratos.CveContratoTipo CveTipoContrato = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero - TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString - DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString - DdlCliente.SelectedText = ObjContratos.NombreComercial.ToString - - If ObjContratos.CveProveedor > 0 Then - ' TrProveedor.Visible = True + TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString + DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString + DdlCliente.SelectedText = ObjContratos.NombreComercial.ToString + + If ObjContratos.CveProveedor > 0 Then + ' TrProveedor.Visible = True TrCliente.Visible = False CargaContratista() DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString DdlContratista.SelectedText = ObjContratos.RazonSocial.ToString Else - cargaClientes() - DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString - UpCliente.Update() + cargaClientes() + DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString + UpCliente.Update() UpGral.Update() CargaSucursalCliente() DdlSucursalCliente.SelectedValue = ObjContratos.CveSucursalCliente.ToString - End If - + End If + CargaContratoAddendum() - If ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero = 14 Then - RFVEstatus.ValidationGroup = "" - DvTotal.Visible = True - RowEstatus.Visible = False - CargaPlantillas() + If ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero = 14 Then + RFVEstatus.ValidationGroup = "" + DvTotal.Visible = True + RowEstatus.Visible = False + CargaPlantillas() TabPres.HeaderText = "Partidas" End If If ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero = 25 Then trLicitacion.Visible = False - divResponsable.Visible = False + divResponsable.Visible = False trIva.Visible = False trAnticipo.Visible = False trAmortizacion.Visible = False - trPorGarantia.Visible = False + trPorGarantia.Visible = False DvTotal.Visible = False TabPVInsumos.Visible = False RowEstatus.Visible = False - TabPres.HeaderText = "Partidas" + TabPres.HeaderText = "Partidas" 'TableDatosCabecera.Visible = False TabAvanveDocumento.Visible = False - TabSistema.Visible = False - TabContratosGastos.Visible = False - TDAvance.Style.Add("display", "none") - 'TxtNoIdentificacionv.Visible = False - DvObservaciones.Visible = True + TabSistema.Visible = False + TabContratosGastos.Visible = False + TDAvance.Style.Add("display", "none") + 'TxtNoIdentificacionv.Visible = False + DvObservaciones.Visible = True TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString - Gv.Columns(3).Visible = True - - End If - - - + Gv.Columns(3).Visible = True + + End If + + + FechaF = ObjContratos.FechaFinal FechaI = ObjContratos.FechaInicial TxtFechaFinal.Text = ObjContratos.FechaFinal.ToShortDateString @@ -803,33 +803,33 @@ Partial Class Contratos_ContratoObra 'DdlProyecto.SelectedValue = ObjContratos.CveProyecto.ToString LblSubProyecto.Text = ObjContratos.SubProyectoContrato DdlTipoContratoObra.SelectedValueExist(ObjContratos.CveContratoTipo) - 'CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) - + 'CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) + 'DdlSubProyectoContrato.SelectedValue = ObjContratos.CveSubProyecto.ToString - TxtPorIVA.Text = ObjContratos.PorIVA.ToString - TxtLimiteGastos.Text = ObjContratos.LimiteDeGasto.ToString - TxtTotal.Text = ObjContratos.Importe.FormatoNumero - - + TxtPorIVA.Text = ObjContratos.PorIVA.ToString + TxtLimiteGastos.Text = ObjContratos.LimiteDeGasto.ToString + TxtTotal.Text = ObjContratos.Importe.FormatoNumero + + DdlEstatus.SelectedValueExist(ObjContratos.CveContratosEstatus.ToString) CargarFianzas() If ObjContratos.TipoEstatus = 2 Then - DdlEstatus.Enabled = False + DdlEstatus.Enabled = False Else DdlEstatus.Items.Clear() 'Se esta ocultando concluido' DdlEstatus.DataSource = CType(DdlEstatus.DataSource, DataTable).FiltraParametros("TipoEstatus NOT IN (2)") - DdlEstatus.DataBind() - - + DdlEstatus.DataBind() + + End If TxtTipoCambio.Text = ObjContratos.TipoCambio.ToString - ModalidadDetalle = ObjContratos.ModalidadDetalle + ModalidadDetalle = ObjContratos.ModalidadDetalle modalidades(ModalidadDetalle) CargaGVGastos() @@ -844,27 +844,27 @@ Partial Class Contratos_ContratoObra Contratante = ObjContratos.RazonSocial.ToString Else Contratante = ObjContratos.NombreComercial.ToString - End If - - LblFechaCaptura.Text = ObjContratos.FechaIng.ToShortDateString - - CargaPresupuesto() - + End If + + LblFechaCaptura.Text = ObjContratos.FechaIng.ToShortDateString + + CargaPresupuesto() + cargarBitacora() If LblImporte.Text.ToDecimal <= 0 Then LblImporte.Text = ObjContratos.ImporteTotal.ToString.FormatoNumero End If If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then - ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) - + ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) + BtnDescargar.Visible = True Else BtnDescargar.Visible = False A1.Visible = True - End If - - + End If + + DVSubProyecto.Visible = True DVddlproyecto.Visible = False @@ -880,8 +880,8 @@ Partial Class Contratos_ContratoObra End If UpGral.Update() UPAFUL.Update() - UpProyecto.Update() - ' UpImpuestos.Update() + UpProyecto.Update() + ' UpImpuestos.Update() UpTitulos.Update() ObjContratos.Dispose() End Sub @@ -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 @@ -919,50 +919,49 @@ Partial Class Contratos_ContratoObra UpGV.Update() UpGVInsumos.Update() - UPGVInt.Update() - - - 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() + UPGVInt.Update() + + TotalAvanceVentas = TmpDT.FiltraParametros("CveTipoPresupuesto=2 AND CveContratoDetalle > 0").SUM("Total").ToDecimal + TotalAvanceInterno = TmpDT.FiltraParametros("CveTipoPresupuesto=1 AND CveContratoDetalle > 0").SUM("Total").ToDecimal + + 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() End If End Sub - Private Sub CargarFianzas() - - + Private Sub CargarFianzas() + + Dim ObjContrato As ClsContratos = New ClsContratos() If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then - DtTmpFianzas = ObjContrato.DtResultados - - + DtTmpFianzas = ObjContrato.DtResultados + + DtTmpFianzasInicial = DtTmpFianzas.Copy() End If - ObjContrato.Dispose() - - - End Sub + ObjContrato.Dispose() + + + End Sub #End Region - + #Region " GUARDAR " - Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - - If DdlContratista.SelectedValue.ToEntero = -1 And DdlCliente.SelectedValue.ToEntero = -1 Then - Alert("Debe seleccionar con quién está haciendo el contrato. Proveedor o Cliente", TipoMensaje.MsgAdvertencia) - Exit Sub + Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + + If DdlContratista.SelectedValue.ToEntero = -1 And DdlCliente.SelectedValue.ToEntero = -1 Then + Alert("Debe seleccionar con quién está haciendo el contrato. Proveedor o Cliente", TipoMensaje.MsgAdvertencia) + Exit Sub End If - If TxtPorAmortizacionAnticipo.Text.ToDecimal < TxtPorAnticipo.Text.ToDecimal Then - Alert("El porcentaje de amortización no debe de ser menor al porcentaje de anticipo.", TipoMensaje.MsgAdvertencia) - Exit Sub + If TxtPorAmortizacionAnticipo.Text.ToDecimal < TxtPorAnticipo.Text.ToDecimal Then + Alert("El porcentaje de amortización no debe de ser menor al porcentaje de anticipo.", TipoMensaje.MsgAdvertencia) + Exit Sub End If @@ -973,36 +972,36 @@ Partial Class Contratos_ContratoObra Dim Archivo = Session("FileUpload").ToString Dim Ruta = Session("FileFolder").ToString - Dim Minimo, Maximo, Total As Double - - Minimo = 0 'txtMinimo.Text.ToDouble - Maximo = 0 'txtMaximo.Text.ToDouble - Total = TxtTotal.Text.ToDouble - - - + Dim Minimo, Maximo, Total As Double + + Minimo = 0 'txtMinimo.Text.ToDouble + Maximo = 0 'txtMaximo.Text.ToDouble + Total = TxtTotal.Text.ToDouble + + + If DdlMoneda.SelectedIndex > 0 Then If TxtTipoCambio.Text.Trim.Length = 0 Or TxtTipoCambio.Text.Trim.ToDouble = 0.0 Then Alert("Cuando seleccione una moneda diferente a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia) Exit Sub End If - End If - - If CveContrato > 0 Then + End If + + If CveContrato > 0 Then If DdlContratista.SelectedValue.ToEntero = -1 And DdlCliente.SelectedValue.ToEntero = -1 Then Alert("Debe seleccionar con quién está haciendo el contrato. Proveedor o Cliente", TipoMensaje.MsgAdvertencia) Exit Sub - End If - End If - + End If + End If + Dim ObjContratos As New ClsContratos Dim ObjInventarios As New ClsInventarios(ObjContratos.IniciaTransacSQL) TipoContrato = DdlTipoContratoObra.SelectedValue.ToEntero 'Crear Contrato - If Not CveContrato > 0 Then - + If Not CveContrato > 0 Then + Dim EstatusContrato As Integer = 1 CveContrato = ObjContratos.AddContratosObra(TxtNumeroContrato.Text, TxtDescripcionContrato.Text, TxtNumeroLicitacion.Text.Trim, DdlContratista.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, -1, TxtFechaInicial.Text.ToDate, TxtFechaFinal.Text.ToDate, @@ -1022,8 +1021,8 @@ Partial Class Contratos_ContratoObra 'Renombrar archivo If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Contratos") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Contratos") End If Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" @@ -1036,23 +1035,23 @@ Partial Class Contratos_ContratoObra System.IO.File.Move(ViewState("FUrl").ToString, String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Catch ex As Exception - End Try + End Try End If - End If - - - + End If + + + If TxtNumeroContrato.Text = FolioSugerido Then - Dim ObjFolios As New ClsGralFolios - + Dim ObjFolios As New ClsGralFolios + If Not ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then TieneError = True End If ObjFolios.Dispose() - End If - - + End If + + Else TieneError = True End If @@ -1081,16 +1080,16 @@ Partial Class Contratos_ContratoObra TieneError = Not GuardaFianzas(ObjContratos) 'Renombrar archivo - If Not TieneError Then - - + If Not TieneError Then + + If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Contratos") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Contratos") End If - Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = UsuarioActual.Empresa.Ruta & "Contratos\" Try If File.Exists(String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Then @@ -1099,11 +1098,11 @@ Partial Class Contratos_ContratoObra System.IO.File.Move(ViewState("FUrl").ToString, String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Catch ex As Exception - End Try - + End Try + End If - End If - + End If + End If Else TieneError = True @@ -1131,9 +1130,9 @@ Partial Class Contratos_ContratoObra UpGral.Update() ObjContratos.Dispose() - End Sub + End Sub #End Region - + #Region " ELIMINAR " Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim objContratos As New ClsContratos @@ -1143,9 +1142,9 @@ Partial Class Contratos_ContratoObra Else ' Alert("Ocurrio un error al eliminar el contrato", TipoMensaje.MsgError) End If - End Sub + End Sub #End Region - + #Region " TERMINAR/CANCELAR CONTRATO " Protected Sub LBTerminarContrato_Click(sender As Object, e As EventArgs) Dim ObjContratos As New ClsContratos @@ -1169,33 +1168,33 @@ Partial Class Contratos_ContratoObra Alert("El Contrato fue cancelado Correctamente.", TipoMensaje.MsgInformacion, String.Format("document.location.href=""/Contratos/Contrato.aspx?CveContrato={0}""", CveContrato)) End If ObjContratos.Dispose() - End Sub + End Sub #End Region - + #Region " TABS " - + #Region " TAB: INFORMACION GENERAL" - + #Region "COMBOS - INFO GENERAL" - Private Sub CargaProyecto() - - 'trddlproyecto.Visible = LblProyecto.Visible - CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectoTitulo) - - DdlProyecto.Visible = True - LblProyecto.Visible = True - - - 'LblCentroCosto.Text = LblSubProyectoTitulo.Text - LblSubProyectoTitulo.Text = LblSubProyectoTitulo.Text & ":" - - 'If UsuarioActual.Empresa.GralSoloProyecto Then - ' CargaSubProyectoContrato(-1) - ' lblsubproyecto.Text = "Proyecto" - 'Else - ' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) - ' DdlProyecto.DataBind() - 'End If + Private Sub CargaProyecto() + + 'trddlproyecto.Visible = LblProyecto.Visible + CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectoTitulo) + + DdlProyecto.Visible = True + LblProyecto.Visible = True + + + 'LblCentroCosto.Text = LblSubProyectoTitulo.Text + LblSubProyectoTitulo.Text = LblSubProyectoTitulo.Text & ":" + + 'If UsuarioActual.Empresa.GralSoloProyecto Then + ' CargaSubProyectoContrato(-1) + ' lblsubproyecto.Text = "Proyecto" + 'Else + ' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) + ' DdlProyecto.DataBind() + 'End If End Sub 'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged ' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) @@ -1207,7 +1206,7 @@ Partial Class Contratos_ContratoObra ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) 'End Sub Private Sub CargaContratista() - DdlContratista.setEsWebService(True) + DdlContratista.setEsWebService(True) DdlContratista.Attributes.Add("data-metodo", "getproveedores") End Sub @@ -1229,8 +1228,8 @@ Partial Class Contratos_ContratoObra ObjContratos.Dispose() End Sub Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaSucursalCliente() - ' CargaDireccionesEnvios(DdlCliente.SelectedValue.ToEntero) + CargaSucursalCliente() + ' CargaDireccionesEnvios(DdlCliente.SelectedValue.ToEntero) UPPDatos.Update() End Sub Private Sub CargaSucursalCliente() @@ -1245,8 +1244,8 @@ Partial Class Contratos_ContratoObra If ObjCliente.DtResultados.Rows.Count > 0 Then TrClienteSucursal.Visible = True End If - DdlSucursalCliente.DataBind() - ' DdlTipoContrato.Items.Insert(0, New ListItem("Matriz", "-1")) + DdlSucursalCliente.DataBind() + ' DdlTipoContrato.Items.Insert(0, New ListItem("Matriz", "-1")) End If 'If UsuarioActual.Empresa.CvePlataforma = 3 Then ' QUITAR ' CargaCuentasEquipos() @@ -1257,20 +1256,20 @@ Partial Class Contratos_ContratoObra 'CargaContratoPadre() UpProyecto.Update() - End Sub - - - - - - - - - + End Sub + + + + + + + + + #End Region - + #Region " ARCHIVO " - + Private Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click DescargarArchivo() End Sub @@ -1337,13 +1336,13 @@ Partial Class Contratos_ContratoObra If Not FileExtension = "-1" Then BtnDescargar.Visible = True End If - End Sub + End Sub #End Region - + #End Region - + #Region " TAB: PRESUPUESTOS " - + #Region "C O M B O S - PRESUPUESTOS" Private Function isWhitFamily() As Boolean Return (UsuarioActual.CveEmpresa = 66) @@ -1354,15 +1353,15 @@ 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() DdlClasificacionInt.Items.Insert(0, New ListItem("Seleccione", "-1")) - End Sub - + End Sub + #Region " FUNCIONALIDAD 105 " Private Sub CargaPS() DdlProductows.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") @@ -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,30 +1431,30 @@ 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")) + '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) + ' DdlProductowsInsumos.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacionAddInsumos.SelectedValue) 'End If End If - End Sub + End Sub #End Region - + #End Region - + #Region " TAB PRESUPUESTOS VENTAS " Private Sub CargaGVPresupuestos(DtTemp As DataTable) Gv.DataSource = DtTemp DtPresupuestos = DtTemp Gv.DataBind() - If CveTipoContrato = 25 Then - ' Gv.Columns(0).Visible = False - Gv.Columns(1).Visible = False - ' Gv.Columns(3).Visible = False + If CveTipoContrato = 25 Then + ' Gv.Columns(0).Visible = False + Gv.Columns(1).Visible = False + ' Gv.Columns(3).Visible = False Gv.Columns(6).Visible = False End If 'If (Gv.Rows.Count > 0) Then @@ -1485,125 +1484,121 @@ Partial Class Contratos_ContratoObra Protected Sub BtnAgregarDetalle_Click(sender As Object, e As EventArgs) - If CveContratoDetalleEditar = -1 Then - - Dim Row As DataRow = TmpDT.NewRow() - Row("Cantidad") = TxtCantidad.Text.ToDouble.FormatoNumero - Row("CantidadContratada") = TxtCantidad.Text.ToDouble.FormatoNumero - Row("CveUM") = DdlUM.SelectedValue.ToEntero - Row("UM") = DdlUM.SelectedItem - Row("CveClasificacion") = DdlClasificacionAdd.SelectedValue - Row("Clasificacion") = DdlClasificacionAdd.SelectedItem - Row("CvePS") = DdlProductows.SelectedValue.ToEntero - Row("PS") = DdlProductows.SelectedText - Row("CodigoPS") = DdlProductows.SelectedText - Row("PU") = TxtPU.Text.ToDouble.FormatoNumero - Row("Total") = (TxtCantidad.Text.ToDouble * TxtPU.Text.ToDouble).FormatoNumero - Row("CveTipoPresupuesto") = 2 - 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 - - - - 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 - 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) - TmpDT.AcceptChanges() - Dim TotalRow = Row("Total").ToString.ToDouble - - CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - - UpGV.Update() - LimpiarModalVentas() - - LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero - LblImporte.Text = LbTotalGeneral.Text - TxtCantidad.Focus() - UpGral.Update() - - - If Not ChkContinualAgregandoVentas.Checked Then - RegistraScript("$('#ModalVentasAddPS').modal('hide')") - End If - - Else - Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) - End If - - ObjContratos.Dispose() - Else - - - Dim Cantidad, PU As Double : Dim CvePS, CveUM As Integer - Dim NoIdentificacion As String = "" - 'Dim OCInterna As String = "" - ' Dim LimitarCantidad As Boolean - Dim Observaciones As String = "" - - Cantidad = TxtCantidad.Text.ToDouble - PU = TxtPU.Text.ToDouble - CvePS = DdlProductows.SelectedValue.ToEntero - CveUM = DdlUM.SelectedValue.ToEntero - 'NoIdentificacion = TxtNoIdentificacionv.Text.Trim - 'OCInterna = TxtOCInterna.Text.Trim - 'LimitarCantidad = If(ChkLimitarVenta.Checked, True, False) - Observaciones = "" - Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked - - - Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0) - Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True" - - - Dim ObjContratos As New ClsContratos - If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, limitarCantidad, "", Observaciones, CveRubro:=1) Then - - If Autorizado Then - Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}", - row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU) - guardarBitacora(msj) - End If - - row("Cantidad") = Cantidad - row("CantidadContratada") = Cantidad - row("PU") = PU - row("Total") = Cantidad * PU - row("CveUM") = CveUM - row("UM") = DdlUM.SelectedItem.Text - row("NoIdentificacion") = NoIdentificacion - row("OCInterna") = "" - row("LimitarCantidad") = limitarCantidad - row("Observacion") = Observaciones - - TmpDT.AcceptChanges() - Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion) - RegistraScript("$('#ModalVentasAddPS').modal('hide')") - Else - Alert("Error al Actualizar Detalle", TipoMensaje.MsgError) - End If - ObjContratos.Dispose() - - - Gv.EditIndex = -1 - LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero - LblImporte.Text = LbTotalGeneral.Text - CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - - End If - CveContratoDetalleEditar = -1 + If CveContratoDetalleEditar = -1 Then + + Dim Row As DataRow = TmpDT.NewRow() + Row("Cantidad") = TxtCantidad.Text.ToDouble.FormatoNumero + Row("CantidadContratada") = TxtCantidad.Text.ToDouble.FormatoNumero + Row("CveUM") = DdlUM.SelectedValue.ToEntero + Row("UM") = DdlUM.SelectedItem + Row("CveClasificacion") = DdlClasificacionAdd.SelectedValue + Row("Clasificacion") = DdlClasificacionAdd.SelectedItem + Row("CvePS") = DdlProductows.SelectedValue.ToEntero + Row("PS") = DdlProductows.SelectedText + Row("CodigoPS") = DdlProductows.SelectedText + Row("PU") = TxtPU.Text.ToDouble.FormatoNumero + Row("Total") = (TxtCantidad.Text.ToDouble * TxtPU.Text.ToDouble).FormatoNumero + Row("CveTipoPresupuesto") = 2 + 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") = 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 + 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) + TmpDT.AcceptChanges() + Dim TotalRow = Row("Total").ToString.ToDouble + + CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) + + UpGV.Update() + LimpiarModalVentas() + + LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero + LblImporte.Text = LbTotalGeneral.Text + TxtCantidad.Focus() + UpGral.Update() + + + If Not ChkContinualAgregandoVentas.Checked Then + RegistraScript("$('#ModalVentasAddPS').modal('hide')") + End If + + Else + Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) + End If + + ObjContratos.Dispose() + Else + + + Dim Cantidad, PU As Double : Dim CvePS, CveUM As Integer + Dim NoIdentificacion As String = "" + 'Dim OCInterna As String = "" + ' Dim LimitarCantidad As Boolean + Dim Observaciones As String = "" + + Cantidad = TxtCantidad.Text.ToDouble + PU = TxtPU.Text.ToDouble + CvePS = DdlProductows.SelectedValue.ToEntero + CveUM = DdlUM.SelectedValue.ToEntero + 'NoIdentificacion = TxtNoIdentificacionv.Text.Trim + 'OCInterna = TxtOCInterna.Text.Trim + 'LimitarCantidad = If(ChkLimitarVenta.Checked, True, False) + Observaciones = "" + Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked + + + Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0) + Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True" + + + Dim ObjContratos As New ClsContratos + If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, limitarCantidad, "", Observaciones, CveRubro:=1) Then + + If Autorizado Then + Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}", + row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU) + guardarBitacora(msj) + End If + + row("Cantidad") = Cantidad + row("CantidadContratada") = Cantidad + row("PU") = PU + row("Total") = Cantidad * PU + row("CveUM") = CveUM + row("UM") = DdlUM.SelectedItem.Text + row("NoIdentificacion") = NoIdentificacion + row("OCInterna") = "" + row("LimitarCantidad") = limitarCantidad + row("Observacion") = Observaciones + + TmpDT.AcceptChanges() + Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion) + RegistraScript("$('#ModalVentasAddPS').modal('hide')") + Else + Alert("Error al Actualizar Detalle", TipoMensaje.MsgError) + End If + ObjContratos.Dispose() + + + Gv.EditIndex = -1 + LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero + LblImporte.Text = LbTotalGeneral.Text + CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) + + End If + CveContratoDetalleEditar = -1 End Sub Private Sub CargaDatosPresup() @@ -1622,10 +1617,10 @@ Partial Class Contratos_ContratoObra ContratosSecciones.Dispose() UpGral.Update() - End Sub - + End Sub + #Region "GV PRESUPUESTOS" - + Protected Sub EstClick(sender As Object, e As System.EventArgs) 'Get the button that raised the event Dim btn As CheckBox = DirectCast(sender, CheckBox) @@ -1665,14 +1660,14 @@ Partial Class Contratos_ContratoObra End Sub Protected Sub GV_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles Gv.RowDataBound - If e.Row.RowIndex > -1 Then - - Dim LnkHabilitaAvance As LinkButton = e.Row.FCLinkButton("LnkHabilitaAvance") - ' e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado - 'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado + If e.Row.RowIndex > -1 Then + + Dim LnkHabilitaAvance As LinkButton = e.Row.FCLinkButton("LnkHabilitaAvance") + ' e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado + 'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado If UsuarioActual.TienePermisoProceso(124) Then e.Row.FCCheckBox("CHKPAvance").Enabled = True - LnkHabilitaAvance.Enabled = True + LnkHabilitaAvance.Enabled = True End If If e.Row.DBCampo("PermitirAvance").ToString = "1" Then @@ -1683,24 +1678,24 @@ Partial Class Contratos_ContratoObra If e.Row.DBCampo("PermitirEstimacion").ToString = "1" Then ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True End If - If Autorizado Then - ' e.Row.FCLinkButton("imgE").Visible = False + If Autorizado Then + ' e.Row.FCLinkButton("imgE").Visible = False 'e.Row.FCLinkButton("imgD").Visible = False End If If CveTipoContrato = 25 Then e.Row.Cells(1).Width = Unit.Pixel(10) e.Row.Cells(6).Width = Unit.Pixel(250) - End If - - - - - If e.Row.DBCampo("PermitirAvance").ToString = "1" Then - LnkHabilitaAvance.Text = "" - LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Deshabilitar avance?") - Else - LnkHabilitaAvance.Text = "" - LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Habilitar avance?") + End If + + + + + If e.Row.DBCampo("PermitirAvance").ToString = "1" Then + LnkHabilitaAvance.Text = "" + LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Deshabilitar avance?") + Else + LnkHabilitaAvance.Text = "" + LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Habilitar avance?") End If @@ -1790,7 +1785,7 @@ Partial Class Contratos_ContratoObra If ObjContratos.RemoveContratosDetalle(CveContratoDetalle, CveContrato) Then TmpDT.Rows.Remove(DbRow) CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - LbTotalGeneral.Text = Gv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCLabel("LtTotal").Text.ToDouble).ToString.FormatoNumero + LbTotalGeneral.Text = Gv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCLabel("LtTotal").Text.ToDouble).ToString.FormatoNumero Alert("Detalle eliminado eliminado correctamente.") Else Alert("Ocurrió un error al eliminar el detalle (Producto/Servicio). Por favor vuelva a intentar", TipoMensaje.MsgError) @@ -1803,12 +1798,12 @@ Partial Class Contratos_ContratoObra ' Seleccionado = e.CommandArgument.ToString Gv.SelectRow(e.CommandArgument.ToString.ToEntero - 1) End If - End Sub + End Sub #End Region - - + + #End Region - + #Region " TAB PRESUPUESTOS INSUMOS " Private Sub CargaGVPresupuestosInsumos(DtTemp As DataTable) GvInsumos.DataSource = DtTemp @@ -1822,238 +1817,237 @@ Partial Class Contratos_ContratoObra UpGVInsumos.Update() End Sub - Protected Sub BtnAgregarDetalleInsumos_Click(sender As Object, e As EventArgs) - - + Protected Sub BtnAgregarDetalleInsumos_Click(sender As Object, e As EventArgs) + + 'DdlProductowsInsumos.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") - If Not DdlProductowsInsumos.UsaWebService Then - If DdlRubro.SelectedValue.ToEntero = 2 And DdlProductowsInsumos.SelectedValue.ToEntero <= 0 Then - Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Else - - - If DdlRubro.SelectedValue.ToEntero = 1 And DdlProductowsInsumos.txtValue.Value.ToEntero <= 0 Then - Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia) - Exit Sub + If Not DdlProductowsInsumos.UsaWebService Then + If DdlRubro.SelectedValue.ToEntero = 2 And DdlProductowsInsumos.SelectedValue.ToEntero <= 0 Then + Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia) + Exit Sub End If - End If - - - - If CveContratoDetalleEditar = -1 Then - - Dim Row As DataRow = TmpDT.NewRow() - Row("Cantidad") = TxtCantidadInsumos.Text.ToDouble.FormatoNumero - Row("CantidadContratada") = TxtCantidadInsumos.Text.ToDouble.FormatoNumero - - Row("PU") = TxtPUInsumos.Text.ToDouble.FormatoNumero - Row("Total") = (TxtCantidadInsumos.Text.ToDouble * TxtPUInsumos.Text.ToDouble).FormatoNumero - Row("CveTipoPresupuesto") = 1 - Row("NoIdentificacion") = "" 'TxtNoIdentificacionvInsumos.Text.Trim - Row("LimitarCantidad") = ChkLimitarCantidad.Checked - - Row("CveRubro") = DdlRubro.SelectedValue.ToEntero - Row("Rubro") = DdlRubro.SelectedItem.Text - - If DdlRubro.SelectedValue.ToEntero = 3 Then - - Row("CveActividad") = DdlActividades.SelectedValue.ToEntero - Row("Actividad") = DdlActividades.SelectedItem.Text - Row("Dias") = TxtDias.Text.ToEntero - Row("CveSubTipoActivoFijo") = -1 - - - Row("CveUM") = -1 - Row("UM") = "" - Row("CveClasificacion") = -1 - Row("Clasificacion") = "" - Row("CvePS") = -1 - Row("PS") = DdlActividades.SelectedItem.Text - Row("CodigoPS") = DdlActividades.SelectedItem.Text - - - ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then - - Row("CveActividad") = -1 - Row("Actividad") = "" - Row("Dias") = TxtDias.Text.ToEntero - Row("CveSubTipoActivoFijo") = DdlSubTipoActivoFijo.SelectedValue.ToEntero - - - Row("CveUM") = -1 - Row("UM") = "" - Row("CveClasificacion") = -1 - Row("Clasificacion") = "" - Row("CvePS") = -1 - Row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text - Row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text - - Else - Row("CveActividad") = -1 - Row("Actividad") = "" - Row("CveSubTipoActivoFijo") = -1 - Row("Dias") = 0 - - - Row("CveUM") = DdlUMInsumos.SelectedValue.ToEntero - Row("UM") = DdlUMInsumos.SelectedItem - Row("CveClasificacion") = DdlClasificacionAddInsumos.SelectedValue - Row("Clasificacion") = DdlClasificacionAddInsumos.SelectedItem - Row("CvePS") = DdlProductowsInsumos.SelectedValue.ToEntero - Row("PS") = DdlProductowsInsumos.SelectedText - Row("CodigoPS") = DdlProductowsInsumos.SelectedText - - - - End If - - - 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) - Dim TotalRow = Row("Total").ToString.ToDouble - - CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) - - UpGVInsumos.Update() - LimpiarModalControl() - LbTotalGeneralInsumos.Text = (LbTotalGeneralInsumos.Text.ToDouble + TotalRow).ToString.FormatoNumero - 'LblImporte.Text = LbTotalGeneral.Text - TxtCantidadInsumos.Focus() - UpGral.Update() - - - If Not ChkContinualAgregandoControl.Checked Then - RegistraScript("$('#ModalControlAddPS').modal('hide')") - End If - - Else - Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) - End If - - ObjContratos.Dispose() - - Else - - Dim Cantidad, PU As Double - Dim CvePS, CveUM As Integer - - Dim CveRubro As Integer = DdlRubro.SelectedValue.ToEntero - - Dim CveActividad As Integer = -1 - Dim CveSubTipoActivoFijo As Integer = -1 - Dim Dias As Integer = 0 - - If CveRubro = 3 Then - - CveSubTipoActivoFijo = -1 - CveActividad = DdlActividades.SelectedValue.ToEntero - Dias = TxtDias.Text.ToEntero - - CvePS = -1 - CveUM = -1 - - ElseIf CveRubro = 4 Then - - CveSubTipoActivoFijo = DdlSubTipoActivoFijo.SelectedValue.ToEntero - CveActividad = -1 - Dias = TxtDias.Text.ToEntero - - CvePS = -1 - CveUM = -1 - - Else - CvePS = DdlProductowsInsumos.SelectedValue.ToEntero - CveUM = DdlUMInsumos.SelectedValue.ToEntero - End If - - - Cantidad = TxtCantidadInsumos.Text.ToDouble - PU = TxtPUInsumos.Text.ToDouble - Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked - - - - Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0) - - Dim ObjContratos As New ClsContratos - If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", limitarCantidad, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then - - 'If Autorizado Then - ' Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}", - ' row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU) - ' guardarBitacora(msj) - 'End If - - - - row("Cantidad") = Cantidad - row("CantidadContratada") = Cantidad - row("PU") = PU - row("Total") = Cantidad * PU - row("CveUM") = CveUM - - row("NoIdentificacion") = "" 'NoIdentificacion - row("LimitarCantidad") = limitarCantidad - - row("CveActividad") = CveActividad - row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo - row("Dias") = Dias - - - If CveRubro = 3 Then - row("PS") = DdlActividades.SelectedItem.Text - row("CodigoPS") = DdlActividades.SelectedItem.Text - row("UM") = "" - ElseIf CveRubro = 4 Then - row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text - row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text - row("UM") = "" - Else - row("UM") = DdlUMInsumos.SelectedItem.Text - End If - - TmpDT.AcceptChanges() - - Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion) - RegistraScript("$('#ModalControlAddPS').modal('hide')") - - Else - Alert("Error al Actualizar Detalle", TipoMensaje.MsgError) - End If - ObjContratos.Dispose() - - GvInsumos.EditIndex = -1 - LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero - CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) - CveContratoDetalleEditar = -1 - - - End If - - + Else + + + If DdlRubro.SelectedValue.ToEntero = 1 And DdlProductowsInsumos.txtValue.Value.ToEntero <= 0 Then + Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + + If CveContratoDetalleEditar = -1 Then + + Dim Row As DataRow = TmpDT.NewRow() + Row("Cantidad") = TxtCantidadInsumos.Text.ToDouble.FormatoNumero + Row("CantidadContratada") = TxtCantidadInsumos.Text.ToDouble.FormatoNumero + + Row("PU") = TxtPUInsumos.Text.ToDouble.FormatoNumero + Row("Total") = (TxtCantidadInsumos.Text.ToDouble * TxtPUInsumos.Text.ToDouble).FormatoNumero + Row("CveTipoPresupuesto") = 1 + Row("NoIdentificacion") = "" 'TxtNoIdentificacionvInsumos.Text.Trim + Row("LimitarCantidad") = ChkLimitarCantidad.Checked + + Row("CveRubro") = DdlRubro.SelectedValue.ToEntero + Row("Rubro") = DdlRubro.SelectedItem.Text + + If DdlRubro.SelectedValue.ToEntero = 3 Then + + Row("CveActividad") = DdlActividades.SelectedValue.ToEntero + Row("Actividad") = DdlActividades.SelectedItem.Text + Row("Dias") = TxtDias.Text.ToEntero + Row("CveSubTipoActivoFijo") = -1 + + + Row("CveUM") = -1 + Row("UM") = "" + Row("CveClasificacion") = -1 + Row("Clasificacion") = "" + Row("CvePS") = -1 + Row("PS") = DdlActividades.SelectedItem.Text + Row("CodigoPS") = DdlActividades.SelectedItem.Text + + + ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then + + Row("CveActividad") = -1 + Row("Actividad") = "" + Row("Dias") = TxtDias.Text.ToEntero + Row("CveSubTipoActivoFijo") = DdlSubTipoActivoFijo.SelectedValue.ToEntero + + + Row("CveUM") = -1 + Row("UM") = "" + Row("CveClasificacion") = -1 + Row("Clasificacion") = "" + Row("CvePS") = -1 + Row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text + Row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text + + Else + Row("CveActividad") = -1 + Row("Actividad") = "" + Row("CveSubTipoActivoFijo") = -1 + Row("Dias") = 0 + + + Row("CveUM") = DdlUMInsumos.SelectedValue.ToEntero + Row("UM") = DdlUMInsumos.SelectedItem + 'Row("CveClasificacion") = DdlClasificacionAddInsumos.SelectedValue + 'Row("Clasificacion") = DdlClasificacionAddInsumos.SelectedItem + Row("CvePS") = DdlProductowsInsumos.SelectedValue.ToEntero + Row("PS") = DdlProductowsInsumos.SelectedText + Row("CodigoPS") = DdlProductowsInsumos.SelectedText + + + + End If + + + 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 + + + Row("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle") + TmpDT.Rows.Add(Row) + Dim TotalRow = Row("Total").ToString.ToDouble + + CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) + + UpGVInsumos.Update() + LimpiarModalControl() + LbTotalGeneralInsumos.Text = (LbTotalGeneralInsumos.Text.ToDouble + TotalRow).ToString.FormatoNumero + 'LblImporte.Text = LbTotalGeneral.Text + TxtCantidadInsumos.Focus() + UpGral.Update() + + + If Not ChkContinualAgregandoControl.Checked Then + RegistraScript("$('#ModalControlAddPS').modal('hide')") + End If + + Else + Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) + End If + + ObjContratos.Dispose() + + Else + + Dim Cantidad, PU As Double + Dim CvePS, CveUM As Integer + + Dim CveRubro As Integer = DdlRubro.SelectedValue.ToEntero + + Dim CveActividad As Integer = -1 + Dim CveSubTipoActivoFijo As Integer = -1 + Dim Dias As Integer = 0 + + If CveRubro = 3 Then + + CveSubTipoActivoFijo = -1 + CveActividad = DdlActividades.SelectedValue.ToEntero + Dias = TxtDias.Text.ToEntero + + CvePS = -1 + CveUM = -1 + + ElseIf CveRubro = 4 Then + + CveSubTipoActivoFijo = DdlSubTipoActivoFijo.SelectedValue.ToEntero + CveActividad = -1 + Dias = TxtDias.Text.ToEntero + + CvePS = -1 + CveUM = -1 + + Else + CvePS = DdlProductowsInsumos.SelectedValue.ToEntero + CveUM = DdlUMInsumos.SelectedValue.ToEntero + End If + + + Cantidad = TxtCantidadInsumos.Text.ToDouble + PU = TxtPUInsumos.Text.ToDouble + Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked + + + + Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0) + + Dim ObjContratos As New ClsContratos + If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", limitarCantidad, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then + + 'If Autorizado Then + ' Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}", + ' row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU) + ' guardarBitacora(msj) + 'End If + + + + row("Cantidad") = Cantidad + row("CantidadContratada") = Cantidad + row("PU") = PU + row("Total") = Cantidad * PU + row("CveUM") = CveUM + + row("NoIdentificacion") = "" 'NoIdentificacion + row("LimitarCantidad") = limitarCantidad + + row("CveActividad") = CveActividad + row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo + row("Dias") = Dias + + + If CveRubro = 3 Then + row("PS") = DdlActividades.SelectedItem.Text + row("CodigoPS") = DdlActividades.SelectedItem.Text + row("UM") = "" + ElseIf CveRubro = 4 Then + row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text + row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text + row("UM") = "" + Else + row("UM") = DdlUMInsumos.SelectedItem.Text + End If + + TmpDT.AcceptChanges() + + Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion) + RegistraScript("$('#ModalControlAddPS').modal('hide')") + + Else + Alert("Error al Actualizar Detalle", TipoMensaje.MsgError) + End If + ObjContratos.Dispose() + + GvInsumos.EditIndex = -1 + LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero + CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) + CveContratoDetalleEditar = -1 + + + End If - End Sub - + + + End Sub + #Region "GV PRESUPUESTOS" - + Protected Sub GVInsumos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvInsumos.RowDataBound 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 @@ -2073,13 +2067,13 @@ Partial Class Contratos_ContratoObra 'e.Row.FCLinkButton("imgE").Visible = False 'e.Row.FCLinkButton("imgD").Visible = False End If - If e.Row.FCLabel("LtlLimitarCantidad").Text.ToString = "True" Then - e.Row.FCLabel("LtlLimitarCantidad").Text = "Si" - Else - e.Row.FCLabel("LtlLimitarCantidad").Text = "No" - End If - - End If + If e.Row.FCLabel("LtlLimitarCantidad").Text.ToString = "True" Then + e.Row.FCLabel("LtlLimitarCantidad").Text = "Si" + Else + e.Row.FCLabel("LtlLimitarCantidad").Text = "No" + End If + + End If If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then e.Row.FCDropDownList("DdlUMEdit").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DataKey("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlUMEdit").DataBind() @@ -2174,14 +2168,14 @@ Partial Class Contratos_ContratoObra ' Seleccionado = e.CommandArgument.ToString GvInsumos.SelectRow(e.CommandArgument.ToString.ToEntero - 1) End If - End Sub + End Sub #End Region - - + + #End Region - + #Region " TAB PRESUPUESTOS INTERNOS" - + Protected Sub AgregarInt_Click(sender As Object, e As EventArgs) Handles AgregarInt.Click Dim Row As DataRow = TmpDT.NewRow() Row("Cantidad") = TxtCantidadInt.Text.ToDouble.FormatoNumero @@ -2221,12 +2215,12 @@ Partial Class Contratos_ContratoObra 'Alert("No se pudo agregar el detalle") End If ObjContratos.Dispose() - End Sub - - + End Sub + + #Region "GVInternos" - - + + Protected Sub GVInt_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvInt.RowEditing GvInt.EditIndex = e.NewEditIndex GvInt.DataSource = TmpDT.FiltraParametros("CveTipoPresupuesto=1") @@ -2308,13 +2302,13 @@ Partial Class Contratos_ContratoObra ' Seleccionado = e.CommandArgument.ToString GvInt.SelectRow(e.CommandArgument.ToString.ToEntero - 1) End If - End Sub + End Sub #End Region - + #End Region - + #End Region - + #Region " TAB: REPORTE AVANCES " Private Sub CargaDatosAvance() If CveContrato <= 0 Then @@ -2348,22 +2342,22 @@ Partial Class Contratos_ContratoObra GvDatosAvance.UseAccessibleHeader = True GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader RegistraScript("OrdenarGV();") - End If - - - If ObjContratos.GetReporteContratosAvancesDetalleControl(CveContrato, UsuarioActual.CveEmpresa) Then - - GvDatosAvanceControl.DataSource = ObjContratos.DtResultados + End If + + + If ObjContratos.GetReporteContratosAvancesDetalleControl(CveContrato, UsuarioActual.CveEmpresa) Then + + GvDatosAvanceControl.DataSource = ObjContratos.DtResultados Else Alert("Ocurrió un Error al obtener el Reporte de Avances de control. Por favor vuelva a intentar", TipoMensaje.MsgError) - End If - - - GvDatosAvanceControl.DataBind() - - ObjContratos.Dispose() - UpGral.Update() - + End If + + + GvDatosAvanceControl.DataBind() + + ObjContratos.Dispose() + UpGral.Update() + End Sub Protected Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound @@ -2384,11 +2378,11 @@ Partial Class Contratos_ContratoObra e.Row.FCLinkButton("LBAvanceXFacturarImporte").CommandArgument = Liga2 End If - End Sub - - - Protected Sub GvDatosAvanceControl_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvanceControl.RowDataBound - + End Sub + + + Protected Sub GvDatosAvanceControl_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvanceControl.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CveClasificacion").ToString.ToEntero = 0 Then @@ -2408,24 +2402,24 @@ Partial Class Contratos_ContratoObra End If End Sub - Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs) - - Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) - - GvDatosVentasAvance.Visible = True - GvDatosVentasAvanceInterno.Visible = False - GvDatosVentasAvanceInternoRH.Visible = False - GvDatosVentasAvanceInternoMaquinaria.Visible = False - - 'Dim Btn = CType(sender, LinkButton) - 'Dim Parametros = Btn.CommandArgument.Split("|"c) - - - Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero - Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero - Dim CodigoPS As String = GvRow.DataKey("CodigoPS") - Dim Clasificacion As String = GvRow.DataKey("Clasificacion") - + Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + + GvDatosVentasAvance.Visible = True + GvDatosVentasAvanceInterno.Visible = False + GvDatosVentasAvanceInternoRH.Visible = False + GvDatosVentasAvanceInternoMaquinaria.Visible = False + + 'Dim Btn = CType(sender, LinkButton) + 'Dim Parametros = Btn.CommandArgument.Split("|"c) + + + Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero + Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + Dim CodigoPS As String = GvRow.DataKey("CodigoPS") + Dim Clasificacion As String = GvRow.DataKey("Clasificacion") + Dim ObjContratos As New ClsContratos If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1, -1, UsuarioActual.CveEmpresa) Then @@ -2436,54 +2430,54 @@ Partial Class Contratos_ContratoObra End If ObjContratos.Dispose() - GvDatosVentasAvance.DataBind() - - LbTituloModalVentasAvance.Text = "Ventas de Avance" - + GvDatosVentasAvance.DataBind() + + LbTituloModalVentasAvance.Text = "Ventas de Avance" + LbClasificacionVentasAvance.Text = Clasificacion LbPSVentasAvance.Text = CodigoPS UpVentasAvance.Update() - End Sub - - - Protected Sub MuestaModalVentasAvanceInterno(sender As Object, e As EventArgs) - - Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) - - Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero - Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero - Dim CodigoPS As String = GvRow.DataKey("CodigoPS") - Dim Clasificacion As String = GvRow.DataKey("Clasificacion") - Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero - - GvDatosVentasAvance.Visible = False - - If CveRubro = 3 Then - GvDatosVentasAvanceInterno.Visible = False - GvDatosVentasAvanceInternoRH.Visible = True - GvDatosVentasAvanceInternoMaquinaria.Visible = False - ElseIf CveRubro = 4 Then - GvDatosVentasAvanceInterno.Visible = False - GvDatosVentasAvanceInternoRH.Visible = False - GvDatosVentasAvanceInternoMaquinaria.Visible = True - Else - GvDatosVentasAvanceInterno.Visible = True - GvDatosVentasAvanceInternoRH.Visible = False - GvDatosVentasAvanceInternoMaquinaria.Visible = False - End If - + End Sub + + + Protected Sub MuestaModalVentasAvanceInterno(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + + Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero + Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + Dim CodigoPS As String = GvRow.DataKey("CodigoPS") + Dim Clasificacion As String = GvRow.DataKey("Clasificacion") + Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero + + GvDatosVentasAvance.Visible = False + + If CveRubro = 3 Then + GvDatosVentasAvanceInterno.Visible = False + GvDatosVentasAvanceInternoRH.Visible = True + GvDatosVentasAvanceInternoMaquinaria.Visible = False + ElseIf CveRubro = 4 Then + GvDatosVentasAvanceInterno.Visible = False + GvDatosVentasAvanceInternoRH.Visible = False + GvDatosVentasAvanceInternoMaquinaria.Visible = True + Else + GvDatosVentasAvanceInterno.Visible = True + GvDatosVentasAvanceInternoRH.Visible = False + GvDatosVentasAvanceInternoMaquinaria.Visible = False + End If + Dim ObjContratos As New ClsContratos - If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then - - If CveRubro = 3 Then - GvDatosVentasAvanceInternoRH.DataSource = ObjContratos.DtResultados - ElseIf CveRubro = 4 Then - GvDatosVentasAvanceInternoMaquinaria.DataSource = ObjContratos.DtResultados - Else - GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados + If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then + + If CveRubro = 3 Then + GvDatosVentasAvanceInternoRH.DataSource = ObjContratos.DtResultados + ElseIf CveRubro = 4 Then + GvDatosVentasAvanceInternoMaquinaria.DataSource = ObjContratos.DtResultados + Else + GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados End If RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;") @@ -2491,28 +2485,28 @@ Partial Class Contratos_ContratoObra Alert("Ocurrió un error al obtener el Listado de Ventas de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError) End If - ObjContratos.Dispose() - - If CveRubro = 3 Then - GvDatosVentasAvanceInternoRH.DataBind() - ElseIf CveRubro = 4 Then - GvDatosVentasAvanceInternoMaquinaria.DataBind() - Else - GvDatosVentasAvanceInterno.DataBind() - End If - - - LbTituloModalVentasAvance.Text = "Compras de Avance" - + ObjContratos.Dispose() + + If CveRubro = 3 Then + GvDatosVentasAvanceInternoRH.DataBind() + ElseIf CveRubro = 4 Then + GvDatosVentasAvanceInternoMaquinaria.DataBind() + Else + GvDatosVentasAvanceInterno.DataBind() + End If + + + LbTituloModalVentasAvance.Text = "Compras de Avance" + LbClasificacionVentasAvance.Text = Clasificacion LbPSVentasAvance.Text = CodigoPS UpVentasAvance.Update() - End Sub - + End Sub + #End Region - + #Region " TAB: REPORTE AVANCES POR DOCUMENTO " Protected Sub RBLTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs) CargaDatosAvancePorDocumento() @@ -2529,8 +2523,8 @@ Partial Class Contratos_ContratoObra DtAvanceDocumento = ObjContratos.DtResultados If DtAvanceDocumento.Rows.Count > 0 Then 'LBImprimir.Visible = True - End If - ' LBImprimirInformacionG.Visible = True + End If + ' LBImprimirInformacionG.Visible = True Else Alert("Ocurrió un error al obtener el Reporte de Avances por Documento. Por favor vuelva a intentar", TipoMensaje.MsgError) End If @@ -2556,10 +2550,10 @@ Partial Class Contratos_ContratoObra e.Row.CssClass = "Totales" End If End If - End Sub - + End Sub + #End Region - + #Region " TAB: CONTRATO GASTOS " Private Sub MandaCorreo(Para As String, Asunto As String, Body As String) Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para) @@ -2785,9 +2779,9 @@ Partial Class Contratos_ContratoObra Protected Sub LnkDescargar_Click1(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CONG&CVECONTRATO={0}&CVECONTRATOGASTO={1}", CveContrato, gvRow.DataKey("CveContratoGasto").ToString))}'") - End Sub + End Sub #End Region - + #Region "TAB: PEDIDOS / DEVOLUCIONES" Private Sub CargaDatosPedDev() Dim ObjContratos As New ClsContratos @@ -2897,10 +2891,10 @@ Partial Class Contratos_ContratoObra End If End If - End Sub - + End Sub + #End Region - + #Region " TAB: ALMACEN - ACTIVOS FIJBtnAlmacenEsInterno_ClickOS " Private Sub CargaInventarios() @@ -3063,28 +3057,28 @@ Partial Class Contratos_ContratoObra GvDatosAlmacen.Columns(6).Visible = False CargaInventarios() - UPHajusteAF.Update() - ' UpHajusteAcciones.Update() - + UPHajusteAF.Update() + ' UpHajusteAcciones.Update() + End Sub - Protected Sub LnkAjusteAF_Click(sender As Object, e As EventArgs) - - ' LnkAjusteAF.Visible = False + Protected Sub LnkAjusteAF_Click(sender As Object, e As EventArgs) + + ' LnkAjusteAF.Visible = False DivHajusteAF.Visible = True GvDatosAlmacen.Columns(6).Visible = True CargaInventarios() - UPHajusteAF.Update() - ' UpHajusteAcciones.Update() + UPHajusteAF.Update() + ' UpHajusteAcciones.Update() UpAlmacen.Update() - End Sub - - - + End Sub + + + #Region " DEVOLUCION ALMACEN " Protected Sub BtnDevolucionAlmacen_Click(sender As Object, e As EventArgs) Dim ObjVentas As New ClsVentas @@ -3107,26 +3101,26 @@ Partial Class Contratos_ContratoObra End If ObjVentas.Dispose() - End Sub - - - - - 'Public Sub CargaDatosEncabezado() - - ' TablaUtilidad.Visible = True - ' LblUtilidad.Text = $"$ {(SumaAvance - SumaGasto).ToString.FormatoNumero()}" - - ' If (SumaAvance - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red - ' LblFacturado.Text = SumaAvance.FormatoNumero - ' LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero - - 'End Sub - + End Sub + + + + + 'Public Sub CargaDatosEncabezado() + + ' TablaUtilidad.Visible = True + ' LblUtilidad.Text = $"$ {(SumaAvance - SumaGasto).ToString.FormatoNumero()}" + + ' If (SumaAvance - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red + ' LblFacturado.Text = SumaAvance.FormatoNumero + ' LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero + + 'End Sub + #End Region - + #End Region - + #Region "TAB SISTEMA" Protected Sub ChkPermitirAvance_CheckedChanged(sender As Object, e As EventArgs) Dim ObjContrato As New ClsContratos @@ -3144,11 +3138,11 @@ Partial Class Contratos_ContratoObra ObjContrato.Dispose() Alert("Se ha permitido estimar en la sección", TipoMensaje.MsgInformacion) CargaDatos() - End Sub + End Sub #End Region - + #End Region - + #Region " BITACORA " Private Sub guardarBitacora(Descripcion As String) Dim ObjEventoBitacora As New ClsOIEventos @@ -3261,80 +3255,16 @@ Partial Class Contratos_ContratoObra txtFileBit.getfiles().Archivos.Clear() txtFileBit.Text = "" - End Sub - -#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) +#End Region - For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 +#Region "SUBIR EXCEL" - 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 + Private Function GetPS(Opt As String, Valor As String) As String - 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 Function GetPS(Opt As String, Valor As String) As String - Dim StrReturn As String = String.Empty Dim CvePS As Integer = 0 @@ -3353,25 +3283,25 @@ 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") - ' CargarArchivo(Directorio, file.filename, Tipo) + 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) End If - End Sub - - + End Sub + + #End Region - - - + + + #Region " IMPRESION " - + #Region " IMPRIMIR AVANCE POR DOCUMENTO " - 'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LBImprimir.Click - ' GenerarPDF() - 'End Sub + 'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LBImprimir.Click + ' GenerarPDF() + 'End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3397,24 +3327,24 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) - End Sub - - - - + End Sub + + + + #End Region - + #Region "I M P R E S I O N D E G A S T O S" - 'Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click - ' GenerarPDFGastos() - 'End Sub + 'Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click + ' GenerarPDFGastos() + 'End Sub Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString - - + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + ' Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString + + Dim dt As DataTable = DtGastos Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3427,9 +3357,9 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("FechaInicio", TxtFechaInicial.Text.Trim)) params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) - params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - ' params.Add(New ReportParameter("Utilidad", UtilidadGastos)) - + params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) + ' params.Add(New ReportParameter("Utilidad", UtilidadGastos)) + If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else @@ -3437,22 +3367,22 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoGastos.rdlc", dt, params, $"{Nombre}-Gastos", Formato:=Formato) - End Sub - - 'Private Sub LBAgregarGasto_Click(sender As Object, e As EventArgs) Handles LBAgregarGasto.Click - ' TxtDescripcion.Text = "" - ' TxtImporteC.Text = "" - ' TxtFecha.Text = "" - ' UpAgregarGastos.Update() - ' RegistraScript("$('#ModalAgregarGastos').modal();") - 'End Sub - + End Sub + + 'Private Sub LBAgregarGasto_Click(sender As Object, e As EventArgs) Handles LBAgregarGasto.Click + ' TxtDescripcion.Text = "" + ' TxtImporteC.Text = "" + ' TxtFecha.Text = "" + ' UpAgregarGastos.Update() + ' RegistraScript("$('#ModalAgregarGastos').modal();") + 'End Sub + #End Region - + #Region "I M P R E S I O N D E S U M I N I S T R O S" - 'Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click - ' GenerarPDFSuministros() - 'End Sub + 'Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click + ' GenerarPDFSuministros() + 'End Sub Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3477,13 +3407,13 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoSuministros.rdlc", dt, params, $"{Nombre}-Suministros", Formato:=Formato) - End Sub + End Sub #End Region - + #Region "I M P R E S I O N D E A V A N C E " - 'Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click - ' GenerarPDFAvance() - 'End Sub + 'Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click + ' GenerarPDFAvance() + 'End Sub Private Sub GenerarPDFAvance(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3509,13 +3439,13 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/ContratoAvance.rdlc", dt, params, $"{Nombre}-Avance", Formato:=Formato) - End Sub + End Sub #End Region - + #Region "I M P R E S I O N D E P R E S U P U E S T O " - 'Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click - ' GenerarPDFPPresupuesto() - 'End Sub + 'Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click + ' GenerarPDFPPresupuesto() + 'End Sub Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3541,16 +3471,16 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoPresupuestos.rdlc", dt, params, $"{Nombre}-Presupuestos", Formato:=Formato) - End Sub + End Sub #End Region - + #Region "I M P R E S I O N D E A C T I V O S F I J O S " - 'Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click - ' GenerarPDFActivosFijos() - 'End Sub - 'Private Sub LbImprmirAFExcel_Click(sender As Object, e As EventArgs) Handles LbImprmirAFExcel.Click - ' GenerarPDFActivosFijos("Excel") - 'End Sub + 'Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click + ' GenerarPDFActivosFijos() + 'End Sub + 'Private Sub LbImprmirAFExcel_Click(sender As Object, e As EventArgs) Handles LbImprmirAFExcel.Click + ' GenerarPDFActivosFijos("Excel") + 'End Sub Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3595,13 +3525,13 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoActivosFijos.rdlc", dt, params, $"{Nombre}-ActivosFijos", Formato:=Formato) - End Sub - - + End Sub + + #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 @@ -3663,26 +3593,26 @@ Partial Class Contratos_ContratoObra Private Sub CargaPlantillas() Dim ObjGral As New ClsGenerales If ObjGral.ContratosPlantillaGet(-1, UsuarioActual.CveEmpresa) Then - DtPlantillasContratos = ObjGral.DtResultados.FiltraParametros("Tipo = 'Con'") - ' DdlPlantillaContrato.DataSource = DtPlantillasContratos + DtPlantillasContratos = ObjGral.DtResultados.FiltraParametros("Tipo = 'Con'") + ' DdlPlantillaContrato.DataSource = DtPlantillasContratos Else DtPlantillasContratos = Nothing End If ObjGral.Dispose() 'DdlPlantillaContrato.DataSource = DtPlantillasContratos 'DdlPlantillaContrato.DataBind() - End Sub - - 'Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click - ' ' Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}") - ' ' DescarFormato(docx) - 'End Sub - + End Sub + + 'Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click + ' ' Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}") + ' ' DescarFormato(docx) + 'End Sub + #End Region - - + + #End Region - + #Region "CREAR A PARTIR DE" Private Sub BtnAgregarContratoHijo_Click(sender As Object, e As EventArgs) Handles BtnAgregarContratoHijo.Click Dim TieneError = False @@ -3692,10 +3622,10 @@ Partial Class Contratos_ContratoObra Try Dim CveContratoHijo As Integer = -1 - Dim Minimo, Maximo, Total As Double - - Minimo = -1 - Maximo = -1 + Dim Minimo, Maximo, Total As Double + + Minimo = -1 + Maximo = -1 Total = -1 'If txtMinimo.Text.ToDouble > 0 And chkDetalleContrato.Checked Then Minimo = txtMinimo.Text.ToDouble Else Minimo = -1 @@ -3819,97 +3749,97 @@ Partial Class Contratos_ContratoObra End If Return TieneError - End Function - - 'Private Sub AgregarMovimientosAFHijo(CveContratoHijo As Integer) - ' 'BUSCA LOS ACTIVOS FIJOS VIGENTES - ' Dim Dt As DataTable = DtMovimientos.FiltraParametros($"(CodigoPS IS NULL AND Cantidad - CantidadDevolucion > 0) OR (CodigoPS IS NOT NULL AND SerieFolioDevolucion IS NULL)") - - - ' Dim DtVentas As DataTable = Dt.FiltraParametros($"No = 0") - - ' Dim CveAlmacenOrigen As Integer = DdlAlmacenOrigen.SelectedValue.ToEntero - ' Dim CveAlmacenDestino As Integer = DdlAlmacenDestino.SelectedValue.ToEntero - ' Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero - - ' Dim CveConceptoSalida As Integer = 8 - ' Dim CveConceptoEntrada As Integer = 9 - ' Dim CveCliente As Integer = If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, DdlCliente.SelectedValue.ToEntero) - - ' Dim ObjInv As New ClsInventarios() - ' Try - ' ObjInv.IniciaTransacSQL() - ' Dim TieneError As Boolean = False - - ' For Each Dr As DataRow In DtVentas.Rows - - ' Dim CveVentaAlmacen As Integer = Dr("CveVenta").ToString.ToEntero - - ' 'Movimiento de salida por traspaso al almacen destino - ' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen) - - ' If CveMovimientoSalida > 0 Then - ' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows - - ' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble - ' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero - ' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero - ' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero - ' Dim PU As Double = Row("PU").ToString.ToDouble - - ' If Not ObjInv.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then - ' TieneError = True - ' Exit For - ' End If - ' Next - ' Else - ' TieneError = True - ' Exit For - ' End If - - ' 'Movimeinto de entrada por traspaso al almacen origen - ' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino) - - ' If CveMovimientoEntrada > 0 Then - ' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows - - ' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble - ' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero - ' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero - ' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero - ' Dim PU As Double = Row("PU").ToString.ToDouble - - ' If Not ObjInv.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then - ' TieneError = True - ' Exit For - ' End If - ' Next - ' Else - ' TieneError = True - ' Exit For - ' End If - - ' Next - ' If TieneError Then - ' Alert("Ocurrió un error al traspasar los activos fijos", TipoMensaje.MsgAdvertencia) - ' ObjInv.RollBack() - ' Else - ' ObjInv.Commit() - ' End If - - ' Catch ex As Exception - ' ObjInv.RollBack() - ' OnError("Ocurrió un error al traspasar los activos fijos", ex) - ' End Try - ' ObjInv.Dispose() - - - 'End Sub - - - + End Function + + 'Private Sub AgregarMovimientosAFHijo(CveContratoHijo As Integer) + ' 'BUSCA LOS ACTIVOS FIJOS VIGENTES + ' Dim Dt As DataTable = DtMovimientos.FiltraParametros($"(CodigoPS IS NULL AND Cantidad - CantidadDevolucion > 0) OR (CodigoPS IS NOT NULL AND SerieFolioDevolucion IS NULL)") + + + ' Dim DtVentas As DataTable = Dt.FiltraParametros($"No = 0") + + ' Dim CveAlmacenOrigen As Integer = DdlAlmacenOrigen.SelectedValue.ToEntero + ' Dim CveAlmacenDestino As Integer = DdlAlmacenDestino.SelectedValue.ToEntero + ' Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero + + ' Dim CveConceptoSalida As Integer = 8 + ' Dim CveConceptoEntrada As Integer = 9 + ' Dim CveCliente As Integer = If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, DdlCliente.SelectedValue.ToEntero) + + ' Dim ObjInv As New ClsInventarios() + ' Try + ' ObjInv.IniciaTransacSQL() + ' Dim TieneError As Boolean = False + + ' For Each Dr As DataRow In DtVentas.Rows + + ' Dim CveVentaAlmacen As Integer = Dr("CveVenta").ToString.ToEntero + + ' 'Movimiento de salida por traspaso al almacen destino + ' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen) + + ' If CveMovimientoSalida > 0 Then + ' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows + + ' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble + ' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero + ' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero + ' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero + ' Dim PU As Double = Row("PU").ToString.ToDouble + + ' If Not ObjInv.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' Else + ' TieneError = True + ' Exit For + ' End If + + ' 'Movimeinto de entrada por traspaso al almacen origen + ' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino) + + ' If CveMovimientoEntrada > 0 Then + ' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows + + ' Dim Cantidad As Double = Row("Cantidad").ToString.ToDouble + ' Dim CvePS As Integer = Row("CvePS").ToString.ToEntero + ' Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero + ' Dim CveUnidadMedida As Integer = Row("CveUnidadMedida").ToString.ToEntero + ' Dim PU As Double = Row("PU").ToString.ToDouble + + ' If Not ObjInv.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUnidadMedida, CvePS, PU, -1) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' Else + ' TieneError = True + ' Exit For + ' End If + + ' Next + ' If TieneError Then + ' Alert("Ocurrió un error al traspasar los activos fijos", TipoMensaje.MsgAdvertencia) + ' ObjInv.RollBack() + ' Else + ' ObjInv.Commit() + ' End If + + ' Catch ex As Exception + ' ObjInv.RollBack() + ' OnError("Ocurrió un error al traspasar los activos fijos", ex) + ' End Try + ' ObjInv.Dispose() + + + 'End Sub + + + #End Region - + #Region "FIANZAS" Protected Sub LimpiarCamposModalFianzas() txtFolioFianza.Text = "" @@ -3925,12 +3855,12 @@ Partial Class Contratos_ContratoObra LnkDescargar.Visible = False 'BtnGuardarFianza.Text = "Guardar" UPModalFianza.Update() - Me.RegistraScript("$('#DvModalFianza').modal();") - - End Sub - - - + Me.RegistraScript("$('#DvModalFianza').modal();") + + End Sub + + + Private Sub GuardaAdjunto(FolioFechaVencimiento As String) If Not TxtModalAdjuntoArchivo.getfiles.Archivos.Count > 0 Then Exit Sub @@ -3952,13 +3882,13 @@ Partial Class Contratos_ContratoObra Catch ex As Exception Alert("Ocurrió un error al guardar el archivo Adjunto. Por favor vuelva a intentar.", TipoMensaje.MsgError) End Try - End Sub - - + End Sub + + Protected Sub LnkDescargar_Click(sender As Object, e As EventArgs) 'DescargarAdjunto() - End Sub - + End Sub + Protected Sub imgEFianzaGv_Click(sender As Object, e As EventArgs) LimpiarCamposModalFianzas() EsEditarFianza = True @@ -3972,11 +3902,11 @@ Partial Class Contratos_ContratoObra txtFechaVenFianza.Text = GvRow.DataKey("FechaVencimiento").ToString() LnkDescargar.Visible = GvRow.DataKey("Adjunto").ToString <> "" - txth4Fianza.InnerText = "Editar Fianza" - + txth4Fianza.InnerText = "Editar Fianza" + UPModalFianza.Update() - Me.RegistraScript("$('#DvModalFianza').modal();") - + Me.RegistraScript("$('#DvModalFianza').modal();") + End Sub Protected Sub CreaDtTmpFianzas() DtTmpFianzas = New DataTable() @@ -3989,8 +3919,8 @@ Partial Class Contratos_ContratoObra DtTmpFianzas.Columns.Add("FechaVencimiento", GetType(String)) DtTmpFianzas.Columns.Add("Adjunto", GetType(String)) - DtTmpFianzasInicial = DtTmpFianzas.Copy - + DtTmpFianzasInicial = DtTmpFianzas.Copy + End Sub Protected Function GuardaFianzas(ObjContrato As ClsContratos) As Boolean @@ -4037,8 +3967,8 @@ Partial Class Contratos_ContratoObra Protected Sub LnkDescargaAdjunto_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) - IndexFianzaEditar = GvRow.DataItemIndex - ' DescargarAdjunto() + IndexFianzaEditar = GvRow.DataItemIndex + ' DescargarAdjunto() End Sub Protected Sub GvFianzas_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then @@ -4048,10 +3978,10 @@ Partial Class Contratos_ContratoObra ScriptManager.GetCurrent(Me).RegisterPostBackControl(lb) End If End If - End Sub - + End Sub + #End Region - + #Region "CONVENIO DE PRECIO FIJO" Protected Sub CargaConvenioPrecioFijo() '12/04/2018 - oculta campo de licitacion, portlet finanzas y campo tipo de garantia @@ -4060,9 +3990,9 @@ Partial Class Contratos_ContratoObra 'DivTipoGarantia.Visible = False UpGral.Update() - End Sub + End Sub #End Region - + #Region "NOMENCLATURA CONTRATOS" Protected Sub GetNoContratoNuevo() Dim ObjContratos As New ClsContratos() @@ -4092,488 +4022,481 @@ Partial Class Contratos_ContratoObra End If ObjContratos.Dispose() - End Sub + End Sub #End Region - + #Region "IMPUESOS LOCALES" - 'Protected Sub ChkImpuestosLocales_CheckedChanged(sender As Object, e As EventArgs) - ' If ChkImpuestosLocales.Checked Then - ' GvImpuestosLocales.Visible = True - ' Else - ' GvImpuestosLocales.Visible = False - ' End If - 'End Sub - 'Public Sub CargaImpuestosLocales() - ' Dim ObjContratos As New ClsContratos - ' If ObjContratos.GetContratoImpuestosLocales(CveContrato, UsuarioActual.CveEmpresa) Then - ' GvImpuestosLocales.DataSource = ObjContratos.DtResultados - ' End If - ' ObjContratos.Dispose() - ' GvImpuestosLocales.DataBind() - ' UpImpuestos.Update() - 'End Sub - - + 'Protected Sub ChkImpuestosLocales_CheckedChanged(sender As Object, e As EventArgs) + ' If ChkImpuestosLocales.Checked Then + ' GvImpuestosLocales.Visible = True + ' Else + ' GvImpuestosLocales.Visible = False + ' End If + 'End Sub + 'Public Sub CargaImpuestosLocales() + ' Dim ObjContratos As New ClsContratos + ' If ObjContratos.GetContratoImpuestosLocales(CveContrato, UsuarioActual.CveEmpresa) Then + ' GvImpuestosLocales.DataSource = ObjContratos.DtResultados + ' End If + ' ObjContratos.Dispose() + ' GvImpuestosLocales.DataBind() + ' UpImpuestos.Update() + 'End Sub + + #End Region - - - - Property ModalVentasPSAdd As Boolean - Get - If ViewState("ModalVentasAdd") Is Nothing Then - Return False - Else - Return Boolean.Parse(ViewState("ModalVentasAdd").ToString) - End If - End Get - Set(value As Boolean) - ViewState("ModalVentasAdd") = value - End Set - End Property - - - Property ModalControlPSAdd As Boolean - Get - If ViewState("ModalControlPSAdd") Is Nothing Then - Return False - Else - Return Boolean.Parse(ViewState("ModalControlPSAdd").ToString) - End If - End Get - Set(value As Boolean) - ViewState("ModalControlPSAdd") = value - End Set - End Property - - Property Carga As Boolean - Get - If ViewState("ModalControlPSAdd") Is Nothing Then - Return False - Else - Return Boolean.Parse(ViewState("ModalControlPSAdd").ToString) - End If - End Get - Set(value As Boolean) - ViewState("ModalControlPSAdd") = value - End Set - End Property - - Enum EnumTipoCargaPresupuesto - Ventas - Control - End Enum - - Property TipoCargaPresupuesto As EnumTipoCargaPresupuesto - Get - If ViewState("TipoCargaPresupuesto") Is Nothing Then - Return EnumTipoCargaPresupuesto.Ventas - Else - Return DirectCast(ViewState("TipoCargaPresupuesto"), EnumTipoCargaPresupuesto) - End If - End Get - Set(value As EnumTipoCargaPresupuesto) - ViewState("TipoCargaPresupuesto") = value - End Set - End Property - - - Property CveContratoDetalleEditar As Integer - Get - - If ViewState("CveContratoDetalleEditar") Is Nothing Then - Return -1 - Else - Return ViewState("CveContratoDetalleEditar").ToString.ToEntero - End If - - End Get - Set(value As Integer) - ViewState("CveContratoDetalleEditar") = value - End Set - End Property - - Protected Sub LnkModalAddPresupuestoVentas_Click(sender As Object, e As EventArgs) - - LnlModalcargaPresupuestoTitulo.Text = "Carga Presupuesto Ventas" - UpModalCargaPresupuesto.Update() - RegistraScript("$('#ModalUploadPresupuesto').modal('show')") - TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas - - End Sub - - Protected Sub LnkModalAddPresupuestoControl_Click(sender As Object, e As EventArgs) - - LnlModalcargaPresupuestoTitulo.Text = "Carga Presupuesto Control" - UpModalCargaPresupuesto.Update() - RegistraScript("$('#ModalUploadPresupuesto').modal('show')") - TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Control - - End Sub - - Protected Sub LnkModalAddPSVentas_Click(sender As Object, e As EventArgs) - CveContratoDetalleEditar = -1 - ModalVentasPSAdd = True - ChkContinualAgregandoVentas.Visible = True - ChkContinualAgregandoVentas.Checked = True - LimpiarModalVentas() - RegistraScript("$('#ModalVentasAddPS').modal('show')") - - End Sub - - Protected Sub LnkModalAddPSControl_Click(sender As Object, e As EventArgs) - CveContratoDetalleEditar = -1 - ModalControlPSAdd = True - ChkContinualAgregandoControl.Visible = True - ChkContinualAgregandoControl.Checked = True - LimpiarModalControl() - RegistraScript("$('#ModalControlAddPS').modal('show')") - - End Sub - - - Protected Sub LnkEditarPresupuestoVentaDetalle_Click(sender As Object, e As EventArgs) - - Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - LimpiarModalVentas() - - CveContratoDetalleEditar = GvRow.DataKey("CveContratoDetalle").ToEntero - - TxtCantidad.Text = GvRow.DataKey("CantidadContratada").ToDouble.ToString - - DdlClasificacionAdd.SelectedValueExist(GvRow.DataKey("CveClasificacion").ToEntero) - - DdlProductows.txtText.Value = GvRow.DataKey("PS").ToString - DdlProductows.txtValue.Value = GvRow.DataKey("CvePS").ToString - - DdlUM.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductows.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) - DdlUM.DataBind() - DdlUM.SelectedValueExist(GvRow.DataKey("CveUM").ToDouble.ToString) - - TxtPU.Text = GvRow.DataKey("PU").ToDouble.ToString - - - - ModalVentasPSAdd = False - ChkContinualAgregandoVentas.Visible = False - ChkContinualAgregandoVentas.Checked = False - - - RegistraScript("$('#ModalVentasAddPS').modal('show')") - End Sub - Protected Sub LnkEditarPresupuestoControlDetalle_Click(sender As Object, e As EventArgs) - - Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - - Dim CveRubro As Integer = gvRow.DataKey("CveRubro").ToEntero - - LimpiarModalControl() - - CveContratoDetalleEditar = gvRow.DataKey("CveContratoDetalle").ToEntero - - TxtCantidadInsumos.Text = gvRow.DataKey("CantidadContratada").ToDouble.ToString - - - DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero) - - DdlProductowsInsumos.ddl.SelectedValueExist(gvRow.DataKey("CvePS").ToString.ToEntero) - - - DdlUMInsumos.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductowsInsumos.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) - DdlUMInsumos.DataBind() - DdlUMInsumos.SelectedValueExist(gvRow.DataKey("CveUM").ToDouble.ToString) - - TxtPUInsumos.Text = gvRow.DataKey("PU").ToDouble.ToString - Dim limitarCantidad As String = gvRow.DataKey("LimitarCantidad").ToString - ChkLimitarCantidad.Checked = limitarCantidad = "True" - - DdlRubro.SelectedValueExist(gvRow.DataKey("CveRubro").ToString) - - If CveRubro = 3 Then - - DVDias.Visible = True - DVActividadesRH.Visible = True - DVSubTipoActivoFijo.Visible = False - - DVClasificacion.Visible = False - DVPS.Visible = False - DVUM.Visible = False - - DdlActividades.SelectedValueExist(gvRow.DataKey("CveActividad")) - DdlSubTipoActivoFijo.SelectedValueExist(-1) - TxtDias.Text = gvRow.DataKey("Dias") - - ElseIf CveRubro = 4 Then - - - DVDias.Visible = True - DVActividadesRH.Visible = False - DVSubTipoActivoFijo.Visible = True - - - DVClasificacion.Visible = False - DVPS.Visible = False - DVUM.Visible = False - - DdlActividades.SelectedValueExist(-1) - DdlSubTipoActivoFijo.SelectedValueExist(gvRow.DataKey("CveSubTipoActivoFijo")) - TxtDias.Text = gvRow.DataKey("Dias") - - Else - DVDias.Visible = False - DVActividadesRH.Visible = False - DVSubTipoActivoFijo.Visible = False - - DVClasificacion.Visible = True - DVPS.Visible = True - DVUM.Visible = True - - DdlActividades.SelectedValueExist(-1) - DdlSubTipoActivoFijo.SelectedValueExist(-1) - TxtDias.Text = "0" - - End If - - - - ModalControlPSAdd = False - ChkContinualAgregandoControl.Visible = False - ChkContinualAgregandoControl.Checked = False - - UpModalControlAddPS.Update() - - RegistraScript("$('#ModalControlAddPS').modal('show')") - End Sub - - - Private Sub LimpiarModalVentas() - - 'TxtOCInterna.Text = "" - TxtCantidad.Text = "" - 'ChkLimitarVenta.Checked = False - 'TxtNoIdentificacionv.Text = "" - DdlClasificacionAdd.SelectedValueExist(-1) - DdlProductows.txtText.Value = "" - DdlProductows.txtValue.Value = "" - DdlUM.SelectedValueExist(-1) - TxtPU.Text = "" - ChkLimitarCantidad.Checked = False - - - If ModalVentasPSAdd = True Then - LtlModalVentasPSTitulo.Text = "Agregar Producto Presupuesto de Ventas" - Else - LtlModalVentasPSTitulo.Text = "Editar Producto Presupuesto de Ventas" - End If - - - UpModalVentasAddPS.Update() - - End Sub - - Private Sub LimpiarModalControl() - - DdlActividades.Items.Clear() - DdlSubTipoActivoFijo.Items.Clear() - - - DdlActividades.DataSource = GlobalDTRHActividades(UsuarioActual.CveEmpresa) - DdlActividades.DataBind() - DdlActividades.Items.Insert(0, New ListItem("Seleccione una", "-1")) - - DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) - DdlSubTipoActivoFijo.DataBind() - DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - - TxtCantidadInsumos.Text = "" - - DdlClasificacionAddInsumos.SelectedValueExist(-1) - DdlProductowsInsumos.txtText.Value = "" - DdlProductowsInsumos.txtValue.Value = "" - DdlUMInsumos.SelectedValueExist(-1) - TxtPUInsumos.Text = "" - - DdlRubro.SelectedValue = "2" - - DVClasificacion.Visible = True - DVPS.Visible = True - DVUM.Visible = True - - DVDias.Visible = False - DVActividadesRH.Visible = False - - TxtDias.Text = "" - DdlActividades.SelectedValueExist(-1) - - - - If ModalControlPSAdd = True Then - LtlModalControlPSTitulo.Text = "Agregar Producto Presupuesto Control" - Else - LtlModalControlPSTitulo.Text = "Editar Producto Presupuesto Control" - End If - - UpModalControlAddPS.Update() - - End Sub - - Private Sub LimpiarModalMaquinaria() - - DdlPersonal.Items.Clear() - - - - - DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) - DdlPersonal.DataBind() - DdlPersonal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - - Dim Objcontratos As New ClsContratos - If Objcontratos.GetContratosMaquinariaFlotillaSubTipoAF(CveContrato, UsuarioActual.CveEmpresa) Then - DdlSubTipoAF.DataSource = Objcontratos.DtResultados - End If - Objcontratos.Dispose() - DdlSubTipoAF.DataBind() - DdlSubTipoAF.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - - - TxtFechaMaquinaria.Text = "" - - - - UpModalMaquinariaFlotilla.Update() - - End Sub - - Protected Sub BtnCargaPresupuesto_Click(sender As Object, e As EventArgs) - - Dim DTCargaPresupuesto As New DataTable - Dim DTCargaPresupuestoInsumos As New DataTable - Dim DTCargaPresupuestoManoObra As New DataTable - Dim DTCargaPresupuestoFlotillas As New DataTable - - - If TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas Then - - DTCargaPresupuesto = CargaPreSupuestoExcel("Presupuesto") - - If DTCargaPresupuesto.Rows.Count > 0 Then - ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing) - Else - Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia) - End If - - Else - - DTCargaPresupuesto = CargaPreSupuestoExcel("Insumos") - DTCargaPresupuestoManoObra = CargaPreSupuestoExcel("ManoObra") - DTCargaPresupuestoFlotillas = CargaPreSupuestoExcel("Maquinaria") - - ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas) - - End If - - TxtModalCargaPresupuesto.Text = "" - - End Sub - - 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 - FI = New IO.FileInfo($"{Extensiones.DirectorioBaseEmpresas}\Empresas\Grales\Formatos\FormatoPresupuestoObra.xlsx") - Else - FI = New IO.FileInfo($"{Extensiones.DirectorioBaseEmpresas}\Empresas\Grales\Formatos\FormatoPresupuestoObraInterno.xlsx") - End If - - - If FI.Exists Then - - Response.ContentType = "application/octet-stream" - - If TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas Then - Response.AppendHeader("Content-Disposition", $"attachment; filename=FormatoPresupuestoObra.xlsx") - Else - Response.AppendHeader("Content-Disposition", $"attachment; filename=FormatoPresupuestoObraInterno.xlsx") - End If - - Response.TransmitFile(FI.FullName) - Response.End() - - End If - - - End Sub - - - Private Function CargaPreSupuestoExcel(Hoja As String) As DataTable - + + + + Property ModalVentasPSAdd As Boolean + Get + If ViewState("ModalVentasAdd") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("ModalVentasAdd").ToString) + End If + End Get + Set(value As Boolean) + ViewState("ModalVentasAdd") = value + End Set + End Property + + + Property ModalControlPSAdd As Boolean + Get + If ViewState("ModalControlPSAdd") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("ModalControlPSAdd").ToString) + End If + End Get + Set(value As Boolean) + ViewState("ModalControlPSAdd") = value + End Set + End Property + + Property Carga As Boolean + Get + If ViewState("ModalControlPSAdd") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("ModalControlPSAdd").ToString) + End If + End Get + Set(value As Boolean) + ViewState("ModalControlPSAdd") = value + End Set + End Property + + Enum EnumTipoCargaPresupuesto + Ventas + Control + End Enum + + Property TipoCargaPresupuesto As EnumTipoCargaPresupuesto + Get + If ViewState("TipoCargaPresupuesto") Is Nothing Then + Return EnumTipoCargaPresupuesto.Ventas + Else + Return DirectCast(ViewState("TipoCargaPresupuesto"), EnumTipoCargaPresupuesto) + End If + End Get + Set(value As EnumTipoCargaPresupuesto) + ViewState("TipoCargaPresupuesto") = value + End Set + End Property + + + Property CveContratoDetalleEditar As Integer + Get + + If ViewState("CveContratoDetalleEditar") Is Nothing Then + Return -1 + Else + Return ViewState("CveContratoDetalleEditar").ToString.ToEntero + End If + + End Get + Set(value As Integer) + ViewState("CveContratoDetalleEditar") = value + End Set + End Property + + Protected Sub LnkModalAddPresupuestoVentas_Click(sender As Object, e As EventArgs) + + LnlModalcargaPresupuestoTitulo.Text = "Carga Presupuesto Ventas" + UpModalCargaPresupuesto.Update() + RegistraScript("$('#ModalUploadPresupuesto').modal('show')") + TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas + + End Sub + + Protected Sub LnkModalAddPresupuestoControl_Click(sender As Object, e As EventArgs) + + LnlModalcargaPresupuestoTitulo.Text = "Carga Presupuesto Control" + UpModalCargaPresupuesto.Update() + RegistraScript("$('#ModalUploadPresupuesto').modal('show')") + TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Control + + End Sub + + Protected Sub LnkModalAddPSVentas_Click(sender As Object, e As EventArgs) + CveContratoDetalleEditar = -1 + ModalVentasPSAdd = True + ChkContinualAgregandoVentas.Visible = True + ChkContinualAgregandoVentas.Checked = True + LimpiarModalVentas() + RegistraScript("$('#ModalVentasAddPS').modal('show')") + + End Sub + + Protected Sub LnkModalAddPSControl_Click(sender As Object, e As EventArgs) + CveContratoDetalleEditar = -1 + ModalControlPSAdd = True + ChkContinualAgregandoControl.Visible = True + ChkContinualAgregandoControl.Checked = True + LimpiarModalControl() + RegistraScript("$('#ModalControlAddPS').modal('show')") + + End Sub + + + Protected Sub LnkEditarPresupuestoVentaDetalle_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + LimpiarModalVentas() + + CveContratoDetalleEditar = GvRow.DataKey("CveContratoDetalle").ToEntero + + TxtCantidad.Text = GvRow.DataKey("CantidadContratada").ToDouble.ToString + + DdlClasificacionAdd.SelectedValueExist(GvRow.DataKey("CveClasificacion").ToEntero) + + DdlProductows.txtText.Value = GvRow.DataKey("PS").ToString + DdlProductows.txtValue.Value = GvRow.DataKey("CvePS").ToString + + DdlUM.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductows.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) + DdlUM.DataBind() + DdlUM.SelectedValueExist(GvRow.DataKey("CveUM").ToDouble.ToString) + + TxtPU.Text = GvRow.DataKey("PU").ToDouble.ToString + + + + ModalVentasPSAdd = False + ChkContinualAgregandoVentas.Visible = False + ChkContinualAgregandoVentas.Checked = False + + + RegistraScript("$('#ModalVentasAddPS').modal('show')") + End Sub + Protected Sub LnkEditarPresupuestoControlDetalle_Click(sender As Object, e As EventArgs) + + Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + Dim CveRubro As Integer = gvRow.DataKey("CveRubro").ToEntero + + LimpiarModalControl() + + CveContratoDetalleEditar = gvRow.DataKey("CveContratoDetalle").ToEntero + + TxtCantidadInsumos.Text = gvRow.DataKey("CantidadContratada").ToDouble.ToString + + + ' DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero) + + DdlProductowsInsumos.ddl.SelectedValueExist(gvRow.DataKey("CvePS").ToString.ToEntero) + + + DdlUMInsumos.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductowsInsumos.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) + DdlUMInsumos.DataBind() + DdlUMInsumos.SelectedValueExist(gvRow.DataKey("CveUM").ToDouble.ToString) + + TxtPUInsumos.Text = gvRow.DataKey("PU").ToDouble.ToString + Dim limitarCantidad As String = gvRow.DataKey("LimitarCantidad").ToString + ChkLimitarCantidad.Checked = limitarCantidad = "True" + + DdlRubro.SelectedValueExist(gvRow.DataKey("CveRubro").ToString) + + If CveRubro = 3 Then + + DVDias.Visible = True + DVActividadesRH.Visible = True + DVSubTipoActivoFijo.Visible = False + + ' DVClasificacion.Visible = False + DVPS.Visible = False + DVUM.Visible = False + + DdlActividades.SelectedValueExist(gvRow.DataKey("CveActividad")) + DdlSubTipoActivoFijo.SelectedValueExist(-1) + TxtDias.Text = gvRow.DataKey("Dias") + + ElseIf CveRubro = 4 Then + + + DVDias.Visible = True + DVActividadesRH.Visible = False + DVSubTipoActivoFijo.Visible = True + + + 'DVClasificacion.Visible = False + DVPS.Visible = False + DVUM.Visible = False + + DdlActividades.SelectedValueExist(-1) + DdlSubTipoActivoFijo.SelectedValueExist(gvRow.DataKey("CveSubTipoActivoFijo")) + TxtDias.Text = gvRow.DataKey("Dias") + + Else + DVDias.Visible = False + DVActividadesRH.Visible = False + DVSubTipoActivoFijo.Visible = False + + 'DVClasificacion.Visible = True + DVPS.Visible = True + DVUM.Visible = True + + DdlActividades.SelectedValueExist(-1) + DdlSubTipoActivoFijo.SelectedValueExist(-1) + TxtDias.Text = "0" + + End If + + + ModalControlPSAdd = False + ChkContinualAgregandoControl.Visible = False + ChkContinualAgregandoControl.Checked = False + + UpModalControlAddPS.Update() + + RegistraScript("$('#ModalControlAddPS').modal('show')") + End Sub + + + Private Sub LimpiarModalVentas() + + 'TxtOCInterna.Text = "" + TxtCantidad.Text = "" + 'ChkLimitarVenta.Checked = False + 'TxtNoIdentificacionv.Text = "" + DdlClasificacionAdd.SelectedValueExist(-1) + DdlProductows.txtText.Value = "" + DdlProductows.txtValue.Value = "" + DdlUM.SelectedValueExist(-1) + TxtPU.Text = "" + ChkLimitarCantidad.Checked = False + + + If ModalVentasPSAdd = True Then + LtlModalVentasPSTitulo.Text = "Agregar Producto Presupuesto de Ventas" + Else + LtlModalVentasPSTitulo.Text = "Editar Producto Presupuesto de Ventas" + End If + + + UpModalVentasAddPS.Update() + + End Sub + + Private Sub LimpiarModalControl() + + DdlActividades.Items.Clear() + DdlSubTipoActivoFijo.Items.Clear() + + + DdlActividades.DataSource = GlobalDTRHActividades(UsuarioActual.CveEmpresa) + DdlActividades.DataBind() + DdlActividades.Items.Insert(0, New ListItem("Seleccione una", "-1")) + + DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) + DdlSubTipoActivoFijo.DataBind() + DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + TxtCantidadInsumos.Text = "" + + ' DdlClasificacionAddInsumos.SelectedValueExist(-1) + DdlProductowsInsumos.txtText.Value = "" + DdlProductowsInsumos.txtValue.Value = "" + DdlUMInsumos.SelectedValueExist(-1) + TxtPUInsumos.Text = "" + + DdlRubro.SelectedValue = "2" + + ' DVClasificacion.Visible = True + DVPS.Visible = True + DVUM.Visible = True + + DVDias.Visible = False + DVActividadesRH.Visible = False + + TxtDias.Text = "" + DdlActividades.SelectedValueExist(-1) + + + + If ModalControlPSAdd = True Then + LtlModalControlPSTitulo.Text = "Agregar Producto Presupuesto Control" + Else + LtlModalControlPSTitulo.Text = "Editar Producto Presupuesto Control" + End If + + UpModalControlAddPS.Update() + + End Sub + + Private Sub LimpiarModalMaquinaria() + + DdlPersonal.Items.Clear() + + + + + DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) + DdlPersonal.DataBind() + DdlPersonal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + Dim Objcontratos As New ClsContratos + If Objcontratos.GetContratosMaquinariaFlotillaSubTipoAF(CveContrato, UsuarioActual.CveEmpresa) Then + DdlSubTipoAF.DataSource = Objcontratos.DtResultados + End If + Objcontratos.Dispose() + DdlSubTipoAF.DataBind() + DdlSubTipoAF.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + + TxtFechaMaquinaria.Text = "" + + + + UpModalMaquinariaFlotilla.Update() + + End Sub + + Protected Sub BtnCargaPresupuesto_Click(sender As Object, e As EventArgs) + + Dim DTCargaPresupuesto As New DataTable + 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 + + DTCargaPresupuesto = CargaPreSupuestoExcel("Presupuesto") + + If DTCargaPresupuesto.Rows.Count > 0 Then + ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing) + Else + Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia) + End If + + Else + + DTCargaPresupuesto = CargaPreSupuestoExcel("Insumos") + DTCargaPresupuestoManoObra = CargaPreSupuestoExcel("ManoObra") + DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria") + DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos") + + ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos) + + End If + + TxtModalCargaPresupuesto.Text = "" + + End Sub + + 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 + FI = New IO.FileInfo($"{Extensiones.DirectorioBaseEmpresas}\Empresas\Grales\Formatos\FormatoPresupuestoObra.xlsx") + Else + FI = New IO.FileInfo($"{Extensiones.DirectorioBaseEmpresas}\Empresas\Grales\Formatos\FormatoPresupuestoObraInterno.xlsx") + End If + + + If FI.Exists Then + + Response.ContentType = "application/octet-stream" + + If TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas Then + Response.AppendHeader("Content-Disposition", $"attachment; filename=FormatoPresupuestoObra.xlsx") + Else + Response.AppendHeader("Content-Disposition", $"attachment; filename=FormatoPresupuestoObraInterno.xlsx") + End If + + Response.TransmitFile(FI.FullName) + Response.End() + + End If + + End Sub + + + Private Function CargaPresupuestoExcel(Hoja As String) As DataTable + Dim FileExtension As String = "-1" Dim Filesgral As List(Of Archivo) = TxtModalCargaPresupuesto.getfiles().Archivos - Dim Filename As String = "" - Dim DTPS = New DataTable - + Dim Filename As String = "" + Dim DTPS = New DataTable + For Each fileItem As Archivo In Filesgral 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 - 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) - Dim workbook = ExcelFile.Load(fileItem.FileUrl) - Dim worksheet = workbook.Worksheets(Hoja) - DTPS = worksheet.CreateDataTable(New CreateDataTableOptions() With - { - .ColumnHeaders = True, - .StartRow = 0, - .NumberOfColumns = 6, - .NumberOfRows = worksheet.Rows.Count, - .Resolution = ColumnTypeResolution.AutoPreferStringCurrentCulture - }) - - 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) - - - If Not DTPresupuesto Is Nothing Then - DTPresupuesto.CaseSensitive = False - End If - - If Not DTCargaPresupuestoManoObra Is Nothing Then - DTCargaPresupuestoManoObra.CaseSensitive = False - End If - - If Not DTCargaPresupuestoFlotillas Is Nothing Then - DTCargaPresupuestoFlotillas.CaseSensitive = False - End If - - Dim ErrorProceso = False - + tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) + SpreadsheetInfo.SetLicense(Extensiones.SerialGemBoxSpreadsheet) + Dim workbook = ExcelFile.Load(fileItem.FileUrl) + Dim worksheet = workbook.Worksheets(Hoja) + DTPS = worksheet.CreateDataTable(New CreateDataTableOptions() With + { + .ColumnHeaders = True, + .StartRow = 0, + .NumberOfColumns = 6, + .NumberOfRows = worksheet.Rows.Count, + .Resolution = ColumnTypeResolution.AutoPreferStringCurrentCulture + }) + + 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, DTCargaPresupuestoIndirectos As DataTable) + + + If Not DTPresupuesto Is Nothing Then + DTPresupuesto.CaseSensitive = False + End If + + If Not DTCargaPresupuestoManoObra Is Nothing Then + DTCargaPresupuestoManoObra.CaseSensitive = False + End If + + If Not DTCargaPresupuestoFlotillas Is Nothing Then + DTCargaPresupuestoFlotillas.CaseSensitive = False + End If + + If Not DTCargaPresupuestoIndirectos Is Nothing Then + DTCargaPresupuestoIndirectos.CaseSensitive = False + End If + + Dim ErrorProceso = False + Dim DTPS = New DataTable DTPS.Columns.Add("CveContratoDetalle", GetType(Integer)) DTPS.Columns.Add("Cantidad", GetType(Double)) @@ -4597,843 +4520,926 @@ Partial Class Contratos_ContratoObra DTPS.Columns.Add("NoIdentificacion", GetType(String)) DTPS.Columns.Add("LimitarCantidad", GetType(Integer)) DTPS.Columns.Add("OCInterna", GetType(String)) - DTPS.Columns.Add("Observacion", GetType(String)) - - DTPS.Columns.Add("CveRubro", GetType(Integer)) - DTPS.Columns.Add("CveActividad", GetType(Integer)) - DTPS.Columns.Add("CveSubTipoActivoFijo", GetType(Integer)) - - DTPS.Columns.Add("Rubro", GetType(String)) - DTPS.Columns.Add("Actividad", GetType(String)) - DTPS.Columns.Add("SubTipoActivoFijo", GetType(String)) - DTPS.Columns.Add("Dias", GetType(Integer)) - - Dim RowNoEncontrados As String = "" - - If Not DTPresupuesto Is Nothing Then - - For Each DrowPS As DataRow In DTPresupuesto.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.Ventas - - Row("CveTipoPresupuesto") = 2 - Row("CveRubro") = 1 - Row("CveActividad") = -1 - Row("CveSubTipoActivoFijo") = -1 - Row("Dias") = 0 - - Exit Select - Case EnumTipoCargaPresupuesto.Control - Row("CveTipoPresupuesto") = 1 - Row("CveRubro") = 2 - 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 DTCargaPresupuestoManoObra Is Nothing And Not ErrorProceso Then - - - For Each DrowPS As DataRow In DTCargaPresupuestoManoObra.Rows - - Dim CveActividad As Integer = 0 - Dim Actividad As String - - - If DrowPS("Actividad").ToString.Trim.Length > 0 Then - GlobalDTRHActividades(UsuarioActual.CveEmpresa) = Nothing - CveActividad = GlobalDTRHActividades(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActividad", $" Actividad = '{ DrowPS("Actividad").ToString.Trim }'").ToEntero - - If CveActividad <= 0 Then - - - Dim ObjRH As New ClsRH() - - If ObjRH.AddActividades(DrowPS("Actividad").ToString.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - - CveActividad = ObjRH.CveActividad - - If CveActividad <= 0 Then - ErrorProceso = True - End If - - GlobalDTRHActividades(UsuarioActual.CveEmpresa) = Nothing - - Else - ErrorProceso = True - End If - - ObjRH.Dispose() - - End If - - - If CveActividad > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 And Not ErrorProceso Then - - Actividad = GlobalDTRHActividades(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Actividad", $" CveActividad = {CveActividad}") - - Dim Row As DataRow = DTPS.NewRow() - Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble - Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble - Row("CveUM") = -1 - Row("UM") = "Actividad RH" - Row("CveClasificacion") = -1 - Row("Clasificacion") = "" - Row("CvePS") = -1 - Row("PS") = Actividad - Row("CodigoPS") = Actividad - Row("PU") = DrowPS("PU").ToString.ToDouble - Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble - - Row("CveTipoPresupuesto") = 1 - Row("CveRubro") = 3 - Row("CveActividad") = CveActividad - Row("CveSubTipoActivoFijo") = -1 - Row("Dias") = DrowPS("Dias").ToString.ToEntero - - Row("NoIdentificacion") = "" - Row("OCInterna") = "" - Row("LimitarCantidad") = 0 - Row("Observacion") = "" - - DTPS.Rows.Add(Row) - Else - ErrorProceso = True - End If - End If - - - Next - - End If - - If Not DTCargaPresupuestoFlotillas Is Nothing Then - - For Each DrowPS As DataRow In DTCargaPresupuestoFlotillas.Rows - - Dim CveSubTipoActivoFijo As Integer = 0 - Dim SubTipoActivoFijo As String = DrowPS("SubTipoAF").ToString - - CveSubTipoActivoFijo = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $" SubTipoActivoFijo = '{DrowPS("SubTipoAF").ToString }'").ToEntero - - If CveSubTipoActivoFijo > 0 Then - - Dim Row As DataRow = DTPS.NewRow() - Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble - Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble - Row("CveUM") = -1 - Row("UM") = "Maquinaria Flotilla" - Row("CveClasificacion") = -1 - Row("Clasificacion") = "" - Row("CvePS") = -1 - Row("PS") = SubTipoActivoFijo - Row("CodigoPS") = SubTipoActivoFijo - Row("PU") = DrowPS("PU").ToString.ToDouble - Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble - - Row("CveTipoPresupuesto") = 1 - Row("CveRubro") = 3 - Row("CveActividad") = -1 - Row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo - Row("Dias") = DrowPS("Horas").ToString.ToEntero - - Row("NoIdentificacion") = "" - Row("OCInterna") = "" - Row("LimitarCantidad") = 0 - Row("Observacion") = "" - - DTPS.Rows.Add(Row) - Else - ErrorProceso = True - RowNoEncontrados &= "Sub Tipo: " & DrowPS("SubTipoAF").ToString & "<\BR>" - End If - - - Next - - - End If - - - If Not ErrorProceso Then - - Dim ObjContratos As New ClsContratos - Dim TotalRow As Double = 0 - ObjContratos.IniciaTransacSQL() - - For Each Row As DataRow In DTPS.Rows - - 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")), Row("OCInterna").ToString, Observacion:=Row("Observacion").ToString, 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 rubro {4} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"), Row("CveRubro")) - guardarBitacora(msj) - End If - - Dim NrowTmpDT As DataRow = TmpDT.NewRow - - - NrowTmpDT("Cantidad") = Row("Cantidad") - NrowTmpDT("CantidadContratada") = Row("CantidadContratada") - NrowTmpDT("CveUM") = Row("CveUM") - NrowTmpDT("UM") = Row("UM") - NrowTmpDT("CveClasificacion") = Row("CveClasificacion") - 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") - NrowTmpDT("NoIdentificacion") = Row("NoIdentificacion") - NrowTmpDT("OCInterna") = Row("OCInterna") - NrowTmpDT("LimitarCantidad") = Row("LimitarCantidad") - NrowTmpDT("Observacion") = Row("Observacion") - - NrowTmpDT("CveRubro") = Row("CveRubro") - NrowTmpDT("CveActividad") = Row("CveActividad") - NrowTmpDT("CveSubTipoActivoFijo") = Row("CveSubTipoActivoFijo") - - NrowTmpDT("Rubro") = Row("Rubro") - NrowTmpDT("Actividad") = Row("Actividad") - NrowTmpDT("SubTipoActivoFijo") = Row("SubTipoActivoFijo") - NrowTmpDT("Dias") = Row("Dias") - - - NrowTmpDT("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle") - - TmpDT.Rows.Add(NrowTmpDT) - TmpDT.AcceptChanges() - - TotalRow = TotalRow + NrowTmpDT("Total").ToString.ToDouble - Else - ErrorProceso = True - Exit For - End If - Next - - - If ErrorProceso Then - ObjContratos.RollBack() - Alert("Se presento un error al cargar el presupuesto.", TipoMensaje.MsgError) - Else - - ObjContratos.Commit() - Alert("Presupuesto Cargado correctamente") - - - Select Case TipoCargaPresupuesto - Case EnumTipoCargaPresupuesto.Ventas - CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - UpGV.Update() - Exit Select - Case EnumTipoCargaPresupuesto.Control - CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) - UpGVInsumos.Update() - Exit Select - Case Else - - End Select - - LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero - LblImporte.Text = LbTotalGeneral.Text - UpGral.Update() - - End If - - 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) - - Dim PermitirAvance As Integer = GvRow.DataKey("PermitirAvance").ToEntero - - 'Get the button that raised the event - 'Dim btn As CheckBox = DirectCast(sender, CheckBox) - 'Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow) - + DTPS.Columns.Add("Observacion", GetType(String)) + + DTPS.Columns.Add("CveRubro", GetType(Integer)) + DTPS.Columns.Add("CveActividad", GetType(Integer)) + DTPS.Columns.Add("CveSubTipoActivoFijo", GetType(Integer)) + + DTPS.Columns.Add("Rubro", GetType(String)) + DTPS.Columns.Add("Actividad", GetType(String)) + DTPS.Columns.Add("SubTipoActivoFijo", GetType(String)) + DTPS.Columns.Add("Dias", GetType(Integer)) + + Dim RowNoEncontrados As String = "" + + If Not DTPresupuesto Is Nothing Then + + For Each DrowPS As DataRow In DTPresupuesto.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.Ventas + + Row("CveTipoPresupuesto") = 2 + Row("CveRubro") = 1 + Row("CveActividad") = -1 + Row("CveSubTipoActivoFijo") = -1 + Row("Dias") = 0 + + Exit Select + Case EnumTipoCargaPresupuesto.Control + Row("CveTipoPresupuesto") = 1 + Row("CveRubro") = 2 + 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 DTCargaPresupuestoManoObra Is Nothing And Not ErrorProceso Then + + + For Each DrowPS As DataRow In DTCargaPresupuestoManoObra.Rows + + Dim CveActividad As Integer = 0 + Dim Actividad As String + + + If DrowPS("Actividad").ToString.Trim.Length > 0 Then + GlobalDTRHActividades(UsuarioActual.CveEmpresa) = Nothing + CveActividad = GlobalDTRHActividades(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActividad", $" Actividad = '{ DrowPS("Actividad").ToString.Trim }'").ToEntero + + If CveActividad <= 0 Then + + + Dim ObjRH As New ClsRH() + + If ObjRH.AddActividades(DrowPS("Actividad").ToString.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + + CveActividad = ObjRH.CveActividad + + If CveActividad <= 0 Then + ErrorProceso = True + End If + + GlobalDTRHActividades(UsuarioActual.CveEmpresa) = Nothing + + Else + ErrorProceso = True + End If + + ObjRH.Dispose() + + End If + + + If CveActividad > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 And Not ErrorProceso Then + + Actividad = GlobalDTRHActividades(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Actividad", $" CveActividad = {CveActividad}") + + Dim Row As DataRow = DTPS.NewRow() + Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble + Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble + Row("CveUM") = -1 + Row("UM") = "Actividad RH" + Row("CveClasificacion") = -1 + Row("Clasificacion") = "" + Row("CvePS") = -1 + Row("PS") = Actividad + Row("CodigoPS") = Actividad + Row("PU") = DrowPS("PU").ToString.ToDouble + Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble + + Row("CveTipoPresupuesto") = 1 + Row("CveRubro") = 3 + Row("CveActividad") = CveActividad + Row("CveSubTipoActivoFijo") = -1 + Row("Dias") = DrowPS("Dias").ToString.ToEntero + + Row("NoIdentificacion") = "" + Row("OCInterna") = "" + Row("LimitarCantidad") = 0 + Row("Observacion") = "" + + DTPS.Rows.Add(Row) + Else + ErrorProceso = True + End If + End If + + + Next + + End If + + If Not DTCargaPresupuestoFlotillas Is Nothing Then + + For Each DrowPS As DataRow In DTCargaPresupuestoFlotillas.Rows + + Dim CveSubTipoActivoFijo As Integer = 0 + Dim SubTipoActivoFijo As String = DrowPS("SubTipoAF").ToString + + CveSubTipoActivoFijo = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $" SubTipoActivoFijo = '{DrowPS("SubTipoAF").ToString }'").ToEntero + + If CveSubTipoActivoFijo > 0 Then + + Dim Row As DataRow = DTPS.NewRow() + Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble + Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble + Row("CveUM") = -1 + Row("UM") = "Maquinaria Flotilla" + Row("CveClasificacion") = -1 + Row("Clasificacion") = "" + Row("CvePS") = -1 + Row("PS") = SubTipoActivoFijo + Row("CodigoPS") = SubTipoActivoFijo + Row("PU") = DrowPS("PU").ToString.ToDouble + Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble + + Row("CveTipoPresupuesto") = 1 + Row("CveRubro") = 3 + Row("CveActividad") = -1 + Row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo + Row("Dias") = DrowPS("Horas").ToString.ToEntero + + Row("NoIdentificacion") = "" + Row("OCInterna") = "" + Row("LimitarCantidad") = 0 + Row("Observacion") = "" + + DTPS.Rows.Add(Row) + Else + 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 + + Dim ObjContratos As New ClsContratos + Dim TotalRow As Double = 0 + ObjContratos.IniciaTransacSQL() + + For Each Row As DataRow In DTPS.Rows + + 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")), Row("OCInterna").ToString, Observacion:=Row("Observacion").ToString, 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 rubro {4} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"), Row("CveRubro")) + guardarBitacora(msj) + End If + + Dim NrowTmpDT As DataRow = TmpDT.NewRow + + + NrowTmpDT("Cantidad") = Row("Cantidad") + NrowTmpDT("CantidadContratada") = Row("CantidadContratada") + NrowTmpDT("CveUM") = Row("CveUM") + NrowTmpDT("UM") = Row("UM") + NrowTmpDT("CveClasificacion") = Row("CveClasificacion") + 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") + NrowTmpDT("NoIdentificacion") = Row("NoIdentificacion") + NrowTmpDT("OCInterna") = Row("OCInterna") + NrowTmpDT("LimitarCantidad") = Row("LimitarCantidad") + NrowTmpDT("Observacion") = Row("Observacion") + + NrowTmpDT("CveRubro") = Row("CveRubro") + NrowTmpDT("CveActividad") = Row("CveActividad") + NrowTmpDT("CveSubTipoActivoFijo") = Row("CveSubTipoActivoFijo") + + NrowTmpDT("Rubro") = Row("Rubro") + NrowTmpDT("Actividad") = Row("Actividad") + NrowTmpDT("SubTipoActivoFijo") = Row("SubTipoActivoFijo") + NrowTmpDT("Dias") = Row("Dias") + + + NrowTmpDT("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle") + + TmpDT.Rows.Add(NrowTmpDT) + TmpDT.AcceptChanges() + + TotalRow = TotalRow + NrowTmpDT("Total").ToString.ToDouble + Else + ErrorProceso = True + Exit For + End If + Next + + + If ErrorProceso Then + ObjContratos.RollBack() + Alert("Se presento un error al cargar el presupuesto.", TipoMensaje.MsgError) + Else + + ObjContratos.Commit() + Alert("Presupuesto Cargado correctamente") + + + Select Case TipoCargaPresupuesto + Case EnumTipoCargaPresupuesto.Ventas + CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) + UpGV.Update() + Exit Select + Case EnumTipoCargaPresupuesto.Control + CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) + UpGVInsumos.Update() + Exit Select + Case Else + + End Select + + LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero + LblImporte.Text = LbTotalGeneral.Text + UpGral.Update() + + End If + + 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) + + Dim PermitirAvance As Integer = GvRow.DataKey("PermitirAvance").ToEntero + + 'Get the button that raised the event + 'Dim btn As CheckBox = DirectCast(sender, CheckBox) + 'Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow) + Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToString.ToEntero - Dim objContrato As New ClsContratos - + Dim objContrato As New ClsContratos + If objContrato.UpdateContratosDetalleAvance(CveContratoDetalle, IIf(PermitirAvance = 1, 0, 1).ToString.ToEntero) Then - Dim row = TmpDT.Select(String.Format("CveContratoDetalle={0}", CveContratoDetalle))(0) - + Dim row = TmpDT.Select(String.Format("CveContratoDetalle={0}", CveContratoDetalle))(0) + 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) End If - objContrato.Dispose() - - End Sub - - Private Sub CargaEstadoCueta() - - - Dim ObjContratos As New ClsContratos - - If ObjContratos.GetContratosObraEstadoCuenta(CveContrato, UsuarioActual.CveEmpresa, 1) Then - GvEstadoCuentaAnticipos.DataSource = ObjContratos.DtResultados - Else - GvEstadoCuentaAnticipos.DataSource = Nothing - End If - - If ObjContratos.GetContratosObraEstadoCuenta(CveContrato, UsuarioActual.CveEmpresa, 2) Then - GvEstadoCuentaFacturas.DataSource = ObjContratos.DtResultados - Else - GvEstadoCuentaFacturas.DataSource = Nothing - End If - - - ObjContratos.Dispose() - - GvEstadoCuentaAnticipos.DataBind() - GvEstadoCuentaFacturas.DataBind() - - - - UpEstoCuenta.Update() - - End Sub - - - - - Private Sub CargaGastos() - - Dim GastosCompras As Double = 0 - Dim GastosVeiculos As Double = 0 - Dim GatosNominas As Double = 0 - Dim GastosProcentaje As Double = 0 - - - Dim ObjContratos As New ClsContratos - - If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then - GvGastosVeiculos.DataSource = ObjContratos.DtResultados - GastosVeiculos = ObjContratos.DtResultados.SUM("Importe", " CveContratoGasto > 0 ") - - Else - GvGastosVeiculos.DataSource = Nothing - End If - - If ObjContratos.GetContratosObragGastosCompras(CveContrato, UsuarioActual.CveEmpresa) Then - GvGastosCompras.DataSource = ObjContratos.DtResultados - GastosCompras = ObjContratos.DtResultados.SUM("Importe", "CveContrato > 0") - Else - GvGastosCompras.DataSource = Nothing - End If - - If ObjContratos.GetContratosObragGastosNomina(CveContrato, UsuarioActual.CveEmpresa) Then - GvGastosNomina.DataSource = ObjContratos.DtResultados - GatosNominas = ObjContratos.DtResultados.SUM("Importe", "CveContrato > 0") - Else - GvGastosNomina.DataSource = Nothing - End If - - ObjContratos.Dispose() - - GvGastosVeiculos.DataBind() - GvGastosCompras.DataBind() - GvGastosNomina.DataBind() - - LblGastoContrato.Text = LblImporte.Text - LblGastoNomina.Text = "$ " & GatosNominas.ToString("###,###,###.00") - LblGastoGastos.Text = "$ " & GastosCompras.ToString("###,###,###.00") - LblGastoIndirectos.Text = "$ " & GastosVeiculos.ToString("###,###,###.00") - - UpGastos.Update() - - GastosProcentaje = (GastosVeiculos + GatosNominas + GastosCompras) * 100 / (LblGastoContrato.Text.ToDecimal) - LblGastoPorcentaje.Text = GastosProcentaje.ToString("###.00") & " %" - - End Sub - - - Private Sub GvGastosVeiculos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosVeiculos.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.DataKey("ORDEN").ToEntero = 1 Then - e.Row.CssClass = "Totales" - e.Row.Cells(1).Text = "Total" - Dim LnkEliminarGasto As LinkButton = e.Row.FCLinkButton("LnkEliminarGasto") - LnkEliminarGasto.Visible = False - - - End If - - End If - End Sub - - - Private Sub GvGastosCompras_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosCompras.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.DataKey("CveContrato").ToEntero > 0 Then - e.Row.CssClass = "Totales" - e.Row.Cells(1).Text = "Total" - - ElseIf e.Row.DataKey("CveContrato").ToEntero = 0 And e.Row.DataKey("CveClasificacion").ToEntero > 0 And e.Row.DataKey("ORDEN").ToEntero = 1 Then - e.Row.CssClass = "SubTotales" - e.Row.Cells(0).Text = e.Row.DataKey("Clasificacion") - e.Row.Cells(0).Width = 250 - End If - - End If - - - End Sub - - Private Sub GvGastosNomina_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosNomina.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.DataKey("CvePersonal").ToEntero = 0 Then - e.Row.CssClass = "Totales" - e.Row.Cells(1).Text = "Total" - End If - - End If - - End Sub - - Protected Sub LnkModalAddGastos_Click(sender As Object, e As EventArgs) - - - RegistraScript("$('#ModalControlAddGastoVeiculo').modal('show');") - - End Sub - - Protected Sub LnkEliminarGasto_Click(sender As Object, e As EventArgs) - - Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - - Dim CveContratoGasto As Integer = GvRow.DataKey("CveContratoGasto").ToString.ToEntero - - Dim ObjContratos As New ClsContratos - Dim ErrorProceso As Boolean = True - - - If ObjContratos.RemoveContratoGasto(CveContratoGasto) Then - ErrorProceso = False - End If - - If Not ErrorProceso Then - CargaGastos() - Alert("Gasto eliminado correctamente.") - End If - - - ObjContratos.Dispose() - - - End Sub - - Protected Sub BtnModalAgreagrGasto_Click(sender As Object, e As EventArgs) - - Dim ErrorProceso As Boolean = True - - Dim ObjContratos As New ClsContratos - - If ObjContratos.AddContratoGasto(CveContrato, TxtGastosDescripcion.Text, TxtGastosImporte.Text.ToDecimal, Now, UsuarioActual.CveUsuario) Then - ErrorProceso = False - End If - - ObjContratos.Dispose() - - If Not ErrorProceso Then - CargaGastos() - RegistraScript("$('#ModalControlAddGastoVeiculo').modal('hide');") - End If - - - End Sub - - Private Sub Indicadores() - - - + objContrato.Dispose() + + End Sub + + Private Sub CargaEstadoCuenta() + + + Dim ObjContratos As New ClsContratos + + If ObjContratos.GetContratosObraEstadoCuenta(CveContrato, UsuarioActual.CveEmpresa, 1) Then + GvEstadoCuentaAnticipos.DataSource = ObjContratos.DtResultados + Else + GvEstadoCuentaAnticipos.DataSource = Nothing + End If + + If ObjContratos.GetContratosObraEstadoCuenta(CveContrato, UsuarioActual.CveEmpresa, 2) Then + GvEstadoCuentaFacturas.DataSource = ObjContratos.DtResultados + Else + GvEstadoCuentaFacturas.DataSource = Nothing + End If + + + ObjContratos.Dispose() + + GvEstadoCuentaAnticipos.DataBind() + GvEstadoCuentaFacturas.DataBind() + + + + UpEstoCuenta.Update() + + End Sub + + + + + Private Sub CargaGastos() + + Dim GastosCompras As Double = 0 + Dim GastosVeiculos As Double = 0 + Dim GatosNominas As Double = 0 + Dim GastosProcentaje As Double = 0 + + + Dim ObjContratos As New ClsContratos + + If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then + GvGastosVeiculos.DataSource = ObjContratos.DtResultados + GastosVeiculos = ObjContratos.DtResultados.SUM("Importe", " CveContratoGasto > 0 ") + + Else + GvGastosVeiculos.DataSource = Nothing + End If + + If ObjContratos.GetContratosObragGastosCompras(CveContrato, UsuarioActual.CveEmpresa) Then + GvGastosCompras.DataSource = ObjContratos.DtResultados + GastosCompras = ObjContratos.DtResultados.SUM("Importe", "CveContrato > 0") + Else + GvGastosCompras.DataSource = Nothing + End If + + If ObjContratos.GetContratosObragGastosNomina(CveContrato, UsuarioActual.CveEmpresa) Then + GvGastosNomina.DataSource = ObjContratos.DtResultados + GatosNominas = ObjContratos.DtResultados.SUM("Importe", "CveContrato > 0") + Else + GvGastosNomina.DataSource = Nothing + End If + + ObjContratos.Dispose() + + GvGastosVeiculos.DataBind() + GvGastosCompras.DataBind() + GvGastosNomina.DataBind() + + LblGastoContrato.Text = LblImporte.Text + LblGastoNomina.Text = "$ " & GatosNominas.ToString("###,###,###.00") + LblGastoGastos.Text = "$ " & GastosCompras.ToString("###,###,###.00") + LblGastoIndirectos.Text = "$ " & GastosVeiculos.ToString("###,###,###.00") + + UpGastos.Update() + + GastosProcentaje = (GastosVeiculos + GatosNominas + GastosCompras) * 100 / (LblGastoContrato.Text.ToDecimal) + LblGastoPorcentaje.Text = GastosProcentaje.ToString("###.00") & " %" + + End Sub + + + Private Sub GvGastosVeiculos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosVeiculos.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("ORDEN").ToEntero = 1 Then + e.Row.CssClass = "Totales" + e.Row.Cells(1).Text = "Total" + Dim LnkEliminarGasto As LinkButton = e.Row.FCLinkButton("LnkEliminarGasto") + LnkEliminarGasto.Visible = False + + + End If + + End If + End Sub + + + Private Sub GvGastosCompras_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosCompras.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("CveContrato").ToEntero > 0 Then + e.Row.CssClass = "Totales" + e.Row.Cells(1).Text = "Total" + + ElseIf e.Row.DataKey("CveContrato").ToEntero = 0 And e.Row.DataKey("CveClasificacion").ToEntero > 0 And e.Row.DataKey("ORDEN").ToEntero = 1 Then + e.Row.CssClass = "SubTotales" + e.Row.Cells(0).Text = e.Row.DataKey("Clasificacion") + e.Row.Cells(0).Width = 250 + End If + + End If + + + End Sub + + Private Sub GvGastosNomina_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosNomina.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("CvePersonal").ToEntero = 0 Then + e.Row.CssClass = "Totales" + e.Row.Cells(1).Text = "Total" + End If + + End If + + End Sub + + Protected Sub LnkModalAddGastos_Click(sender As Object, e As EventArgs) + + + RegistraScript("$('#ModalControlAddGastoVeiculo').modal('show');") + + End Sub + + Protected Sub LnkEliminarGasto_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + Dim CveContratoGasto As Integer = GvRow.DataKey("CveContratoGasto").ToString.ToEntero + + Dim ObjContratos As New ClsContratos + Dim ErrorProceso As Boolean = True + + + If ObjContratos.RemoveContratoGasto(CveContratoGasto) Then + ErrorProceso = False + End If + + If Not ErrorProceso Then + CargaGastos() + Alert("Gasto eliminado correctamente.") + End If + + + ObjContratos.Dispose() + + + End Sub + + Protected Sub BtnModalAgreagrGasto_Click(sender As Object, e As EventArgs) + + Dim ErrorProceso As Boolean = True + + Dim ObjContratos As New ClsContratos + + If ObjContratos.AddContratoGasto(CveContrato, TxtGastosDescripcion.Text, TxtGastosImporte.Text.ToDecimal, Now, UsuarioActual.CveUsuario) Then + ErrorProceso = False + End If + + ObjContratos.Dispose() + + If Not ErrorProceso Then + CargaGastos() + RegistraScript("$('#ModalControlAddGastoVeiculo').modal('hide');") + End If + + + End Sub + + Private Sub Indicadores() + + + Dim Con As New ClsContratos Dim DTDatos As New DataTable - If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, CveContrato, UsuarioActual.CveEmpresa) Then - DTDatos = Con.DtResultados + If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, CveContrato, UsuarioActual.CveEmpresa) Then + DTDatos = Con.DtResultados End If - Con.Dispose() - - - Try - If DTDatos.Rows.Count > 0 Then - - Dim CantidadAvance As Decimal = DTDatos.Rows(0)("Cantidad").ToString.ToDecimal - Dim ImporteAvance As Decimal = DTDatos.Rows(0)("AvanceImporte").ToString.ToDecimal - Dim TotalAvancePorcentaje As Decimal = If(ImporteAvance > 0, (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2), 0) - - Dim CantidadInterno As Decimal = DTDatos.Rows(0)("CantidadInterno").ToString.ToDecimal - Dim ImporteInterno As Decimal = DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal - Dim TotalFaltantePorcentaje As Decimal = If(ImporteInterno > 0, (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2), 0) - - - LtlAvanceImporte.Text = $"$ { ImporteAvance.ToString("###,###,###.00") }" - LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %" - LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%" - SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") - - - LtlAvanceInternoImporte.Text = $"$ {DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal.ToString("###,###,###.00")}" - LtlAvanceInternoImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %" - LtlAvanceInternoImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%" - SPFaltante.Attributes.Add("style", $"width:{TotalFaltantePorcentaje.ToString.ToEntero}%") - - End If - - Catch ex As Exception - - End Try - - - DVGraficas.Visible = True - - UpGrafica.Update() - - End Sub - - - - - Protected Sub DdlRubro_SelectedIndexChanged(sender As Object, e As EventArgs) - - - If DdlRubro.SelectedValue.ToEntero = 3 Then 'Rubro RH - DVDias.Visible = True - DVActividadesRH.Visible = True - - DVClasificacion.Visible = False - DVPS.Visible = False - DVUM.Visible = False - - DVSubTipoActivoFijo.Visible = False - - - ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then 'Rubro Maquinaria florilla herramienta - - DVDias.Visible = True - DVActividadesRH.Visible = False - - DVClasificacion.Visible = False - DVPS.Visible = False - DVUM.Visible = False - - DVSubTipoActivoFijo.Visible = True - - Else - DVDias.Visible = False - DVActividadesRH.Visible = False - - DVClasificacion.Visible = True - DVPS.Visible = True - DVUM.Visible = True - - DVSubTipoActivoFijo.Visible = False - - End If - - UpModalControlAddPS.Update() - - End Sub - - Protected Sub LnkModalAddMaquinariaFlotilla_Click(sender As Object, e As EventArgs) - - LimpiarModalMaquinaria() - RegistraScript("$('#ModalMaquinaria').modal('show');") - - End Sub - - - Protected Sub DdlSubTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoAF.SelectedIndexChanged - - DdlAF.Items.Clear() - - If DdlSubTipoAF.SelectedIndex > 0 Then - - - Dim CveSubTipoActivoFijo As Integer = 0 - - Dim Separador As Char() = {"-"c} - - Try - CveSubTipoActivoFijo = DdlSubTipoAF.SelectedValue.Split(Separador)(0).ToEntero - Catch ex As Exception - CveSubTipoActivoFijo = 0 - End Try - - If CveSubTipoActivoFijo > 0 Then - DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1).FiltraParametros(String.Format("CveSubTipoActivoFijo IN ({0})", CveSubTipoActivoFijo)) - End If - - Else - DdlAF.DataSource = Nothing - - End If - - DdlAF.DataBind() - - - + Con.Dispose() + + + Try + If DTDatos.Rows.Count > 0 Then + + Dim CantidadAvance As Decimal = DTDatos.Rows(0)("Cantidad").ToString.ToDecimal + Dim ImporteAvance As Decimal = DTDatos.Rows(0)("AvanceImporte").ToString.ToDecimal + Dim TotalAvancePorcentaje As Decimal = If(ImporteAvance > 0, (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2), 0) + + Dim CantidadInterno As Decimal = DTDatos.Rows(0)("CantidadInterno").ToString.ToDecimal + Dim ImporteInterno As Decimal = DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal + Dim TotalFaltantePorcentaje As Decimal = If(ImporteInterno > 0, (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2), 0) + + + LtlAvanceImporte.Text = $"$ { ImporteAvance.ToString("###,###,###.00") }" + LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %" + LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%" + SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") + + + LtlAvanceInternoImporte.Text = $"$ {DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal.ToString("###,###,###.00")}" + LtlAvanceInternoImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %" + LtlAvanceInternoImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%" + SPFaltante.Attributes.Add("style", $"width:{TotalFaltantePorcentaje.ToString.ToEntero}%") + + End If + + Catch ex As Exception + + End Try + + + DVGraficas.Visible = True + + UpGrafica.Update() + + End Sub + + + + + Protected Sub DdlRubro_SelectedIndexChanged(sender As Object, e As EventArgs) + + + If DdlRubro.SelectedValue.ToEntero = 3 Then 'Rubro RH + DVDias.Visible = True + DVActividadesRH.Visible = True + + 'DVClasificacion.Visible = False + DVPS.Visible = False + DVUM.Visible = False + + DVSubTipoActivoFijo.Visible = False + + + ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then 'Rubro Maquinaria florilla herramienta + + DVDias.Visible = True + DVActividadesRH.Visible = False + + 'DVClasificacion.Visible = False + DVPS.Visible = False + DVUM.Visible = False + + DVSubTipoActivoFijo.Visible = True + + Else + DVDias.Visible = False + DVActividadesRH.Visible = False + ' + 'DVClasificacion.Visible = True + DVPS.Visible = True + DVUM.Visible = True + + DVSubTipoActivoFijo.Visible = False + + End If + + UpModalControlAddPS.Update() + + End Sub + + Protected Sub LnkModalAddMaquinariaFlotilla_Click(sender As Object, e As EventArgs) + + LimpiarModalMaquinaria() + RegistraScript("$('#ModalMaquinaria').modal('show');") + + End Sub + + + Protected Sub DdlSubTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoAF.SelectedIndexChanged + + DdlAF.Items.Clear() + + If DdlSubTipoAF.SelectedIndex > 0 Then + + + Dim CveSubTipoActivoFijo As Integer = 0 + + Dim Separador As Char() = {"-"c} + + Try + CveSubTipoActivoFijo = DdlSubTipoAF.SelectedValue.Split(Separador)(0).ToEntero + Catch ex As Exception + CveSubTipoActivoFijo = 0 + End Try + + If CveSubTipoActivoFijo > 0 Then + DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1).FiltraParametros(String.Format("CveSubTipoActivoFijo IN ({0})", CveSubTipoActivoFijo)) + End If + + Else + DdlAF.DataSource = Nothing + + End If + + DdlAF.DataBind() + + + DdlAF.Items.Insert(0, New ListItem("Todos", "-1")) UpModalMaquinariaFlotilla.Update() - End Sub - - - Protected Sub BtnModalMaquinariaAdd_Click(sender As Object, e As EventArgs) - - Dim CveContratoDetalle As Integer = 0 - - Dim Separador As Char() = {"-"c} - - Try - CveContratoDetalle = DdlSubTipoAF.SelectedValue.Split(Separador)(1).ToEntero - Catch ex As Exception - CveContratoDetalle = 0 - End Try - - Dim ObjContrato As New ClsContratos - - If ObjContrato.AddContratosMaquinariaFlotilla(DdlAF.SelectedValue.ToEntero, TxtFechaMaquinaria.Text.ToDate, DdlPersonal.SelectedValue.ToEntero, TxtMaquinariaImporte.Text.ToDecimal, CveContratoDetalle) Then - - - If Not ChkModalMaquinaria.Checked Then - RegistraScript("$('#ModalMaquinaria').modal('hide');") - End If - - Alert("Registro agregado correctamente.") - - End If - - ObjContrato.Dispose() - - End Sub - - - - Property DTCentrosCostoGB As DataTable - - Get - If ViewState("DTCentrosCosto") Is Nothing Then - Return New DataTable - Else - Return DirectCast(ViewState("DTCentrosCosto"), DataTable) - End If - End Get - Set(value As DataTable) - ViewState("DTCentrosCosto") = value - End Set - - End Property - - - Private Sub tabalCentrosdecotso() - - Dim DTCentrosCosto As New DataTable - DTCentrosCosto.Columns.Add("CveSubProyecto", GetType(Integer)) - DTCentrosCosto.Columns.Add("SubProyecto", GetType(String)) - DTCentrosCosto.Columns.Add("Porcentaje", GetType(Decimal)) - DTCentrosCostoGB = DTCentrosCosto - - End Sub - - - Private Sub AddtabalCentrosdecotso(CveSubProyecto As Integer, SubProyecto As String, porcentaje As Decimal) - - Dim drow As DataRow = DTCentrosCostoGB.NewRow - - drow("CveSubProyecto") = CveSubProyecto - drow("SubProyecto") = SubProyecto - drow("Porcentaje") = porcentaje - - DTCentrosCostoGB.Rows.Add(drow) - - - - TxtCentroCostosPorcentaje.Text = "" - - CargaGVCentrosConsto() - - End Sub - Private Sub RemovetabalCentrosdecotso(Indice As Integer) - - - - CargaGVCentrosConsto() - End Sub - - - - - Private Sub CargaGVCentrosConsto() - - GVCentrosConsto.DataSource = DTCentrosCostoGB - GVCentrosConsto.DataBind() - UpGVCentrosConsto.Update() - - End Sub - - - Private Sub CargaDLLCargaGVCentrosConsto() - - DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) - DdlCentroCostos.DataBind() - DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - - End Sub - - - Protected Sub LnkAgregarCentroCostosPorcentaj_Click(sender As Object, e As EventArgs) - - AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal) - - End Sub + End Sub + + + Protected Sub BtnModalMaquinariaAdd_Click(sender As Object, e As EventArgs) + + Dim CveContratoDetalle As Integer = 0 + + Dim Separador As Char() = {"-"c} + + Try + CveContratoDetalle = DdlSubTipoAF.SelectedValue.Split(Separador)(1).ToEntero + Catch ex As Exception + CveContratoDetalle = 0 + End Try + + Dim ObjContrato As New ClsContratos + + If ObjContrato.AddContratosMaquinariaFlotilla(DdlAF.SelectedValue.ToEntero, TxtFechaMaquinaria.Text.ToDate, DdlPersonal.SelectedValue.ToEntero, TxtMaquinariaImporte.Text.ToDecimal, CveContratoDetalle) Then + + + If Not ChkModalMaquinaria.Checked Then + RegistraScript("$('#ModalMaquinaria').modal('hide');") + End If + + Alert("Registro agregado correctamente.") + + End If + + ObjContrato.Dispose() + + End Sub + + + + Property DTCentrosCostoGB As DataTable + + Get + If ViewState("DTCentrosCosto") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTCentrosCosto"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DTCentrosCosto") = value + End Set + + End Property + + + Private Sub tabalCentrosdecotso() + + Dim DTCentrosCosto As New DataTable + DTCentrosCosto.Columns.Add("CveSubProyecto", GetType(Integer)) + DTCentrosCosto.Columns.Add("SubProyecto", GetType(String)) + DTCentrosCosto.Columns.Add("Porcentaje", GetType(Decimal)) + DTCentrosCostoGB = DTCentrosCosto + + End Sub + + + Private Sub AddtabalCentrosdecotso(CveSubProyecto As Integer, SubProyecto As String, porcentaje As Decimal) + + Dim drow As DataRow = DTCentrosCostoGB.NewRow + + drow("CveSubProyecto") = CveSubProyecto + drow("SubProyecto") = SubProyecto + drow("Porcentaje") = porcentaje + + DTCentrosCostoGB.Rows.Add(drow) + + + + TxtCentroCostosPorcentaje.Text = "" + + CargaGVCentrosConsto() + + End Sub + Private Sub RemovetabalCentrosdecotso(Indice As Integer) + + + + CargaGVCentrosConsto() + End Sub + + + + + Private Sub CargaGVCentrosConsto() + + GVCentrosConsto.DataSource = DTCentrosCostoGB + GVCentrosConsto.DataBind() + UpGVCentrosConsto.Update() + + End Sub + + + Private Sub CargaDLLCargaGVCentrosConsto() + + DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) + DdlCentroCostos.DataBind() + DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + End Sub + + + Protected Sub LnkAgregarCentroCostosPorcentaj_Click(sender As Object, e As EventArgs) + + AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal) + + End Sub End Class diff --git a/CxC/RepCxCPeriodo.aspx.cs b/CxC/RepCxCPeriodo.aspx.cs index ea4952923..35de41dd3 100644 --- a/CxC/RepCxCPeriodo.aspx.cs +++ b/CxC/RepCxCPeriodo.aspx.cs @@ -287,7 +287,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas StrFiltro.AppendFormat(" Clasificación Cliente: {0}", DdlClienteClasificacion.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = UsuarioActual.Empresa.Ruta; RutaPDF = $"{Ruta}/Formatos/RepCxCPeriodo.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/GPS/CatDistribuidoresMaster.aspx.vb b/GPS/CatDistribuidoresMaster.aspx.vb index 4c21ac38b..6c532482b 100644 --- a/GPS/CatDistribuidoresMaster.aspx.vb +++ b/GPS/CatDistribuidoresMaster.aspx.vb @@ -98,11 +98,11 @@ Partial Class GPS_CatDistribuidoresMaster 'Dim CveSucursal = objSucursales.AddSucursal("MATRIZ", "M", 0.16, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", "", "", "", "", "", "", "", "", 1) 'If CveSucursal < 0 Then HuboError = True End If - If Not HuboError Then - If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) Then - IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) - End If - Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion) + If Not HuboError Then + If Not IO.Directory.Exists(String.Format("{0}", UsuarioActual.Empresa.Ruta)) Then + IO.Directory.CreateDirectory(String.Format("{0}", UsuarioActual.Empresa.Ruta)) + End If + Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion) End If ElseIf EsEditar = 1 Then If objEmpresa.UpdateDistribuidorMaster(TxtRFC.Text, TxtEmpresa.Text, TxtTelefono.Text, TxtContacto.Text, TxtMail.Text, UsuarioActual.CveUsuario, chkEstatus.Checked, CveEmpresa) Then diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 51a8138da..cb7120051 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -854,7 +854,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas string FechIngaFinal = TxtFechaFinalIngreso.Text; - string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa); + string Ruta = UsuarioActual.Empresa.Ruta; string RutaPDF = string.Format("{0}/Formatos/RepPaqueteriasGuias.rdlc", Ruta); if (!File.Exists(RutaPDF)) diff --git a/Inventarios/PopUpBuscarMovto.aspx.vb b/Inventarios/PopUpBuscarMovto.aspx.vb index 3880f05ec..6765c901f 100644 --- a/Inventarios/PopUpBuscarMovto.aspx.vb +++ b/Inventarios/PopUpBuscarMovto.aspx.vb @@ -9,7 +9,7 @@ Partial Class PopUpBuscarFolio #Region "PROPIEDADES" Private ReadOnly Property Ruta As String Get - Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Return UsuarioActual.Empresa.Ruta End Get End Property #End Region diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 826698cd6..a2750203c 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4495,7 +4495,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim Compra As String = DdlFolio.SelectedItem.Text Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta RutaPDF = $"{Ruta}\Formatos\EntradaAlmacen.rdlc" If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas/Grales/Formatos/EntradaAlmacen.rdlc" @@ -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/RepConsumoInterno.aspx.cs b/Inventarios/RepConsumoInterno.aspx.cs index 5dd00883e..0268d9c13 100644 --- a/Inventarios/RepConsumoInterno.aspx.cs +++ b/Inventarios/RepConsumoInterno.aspx.cs @@ -177,7 +177,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas string FechaFin = DateTime.Parse(TxtFechaF.Text).ToShortDateString(); - string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa); + string Ruta = UsuarioActual.Empresa.Ruta; string RutaPDF = string.Format("{0}/Formatos/RepConsumoInterno.rdlc", Ruta); if (!File.Exists(RutaPDF)) diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 6d03bc17b..0765352a7 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -368,7 +368,7 @@ Partial Class Inventarios_ReporteEntradasSalidas FechaF = Now End If Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim NombreArchivoDescarga = "ReporteEntradas-Salidas" If UsuarioActual.CveEmpresa.Contiene(119) Then diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb index 23cb7c449..0e3044a3c 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -721,7 +721,7 @@ Partial Class Inventarios_RepEntregasForaneas Dim Tipo As String = DdlTipo.SelectedItem.Text Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta RutaPDF = $"{Ruta}\Formatos\RepEntregasForaneas.rdlc" If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas/Grales/Formatos/RepEntregasForaneas.rdlc" diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 39df74d49..fb3677356 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -762,7 +762,7 @@ public partial class Nomina_Finiquito : ClsPaginas //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); - string urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, string.Format("Empresas/{0}/Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.CveEmpresa)); + string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.Empresa.Ruta)); if (!System.IO.File.Exists(urlfile)) { urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreReciboFiniquito.rdlc"); diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 5fb57800d..83f8726f9 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -1367,7 +1367,7 @@ public partial class Nomina_Nomina2 : ClsPaginas Archivo fileItem = continuar ? Filesgral[0] : null; if (continuar) { - string FileExtension = fileItem.Extencion.ToUpper(); + string FileExtension = fileItem.Extension.ToUpper(); if (FileExtension == "XLS" | FileExtension == "XLSX" | FileExtension == "CSV") { } @@ -2346,7 +2346,7 @@ public partial class Nomina_Nomina2 : ClsPaginas //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); - string urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, string.Format("Empresas/{0}/Formatos/SobreRecibo.rdlc", UsuarioActual.CveEmpresa)); + string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreRecibo.rdlc", UsuarioActual.Empresa.Ruta)); if (!System.IO.File.Exists(urlfile)) { urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc"); @@ -6203,7 +6203,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa)) { - Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\\{UsuarioActual.CveEmpresa}\\"; + Ruta = UsuarioActual.Empresa.Ruta; PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; Xmlname = ObjNomina.SerieFolio; diff --git a/OC/CotizacionEnLinea.aspx.vb b/OC/CotizacionEnLinea.aspx.vb index 3390f9e6d..bb512cde4 100644 --- a/OC/CotizacionEnLinea.aspx.vb +++ b/OC/CotizacionEnLinea.aspx.vb @@ -299,10 +299,10 @@ Partial Class OC_CotizacionEnLinea If FUArchivo.HasFile Then 'verificar que exista el directorio - If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa)) Then - System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa)) + If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", Empresa.Ruta)) Then + System.IO.Directory.CreateDirectory(String.Format("{0}Cotizaciones/", Empresa.Ruta)) End If - FUArchivo.SaveAs(String.Format("{0}/Empresas/{1}/Cotizaciones/{2}{3}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, CveCotizacion, IO.Path.GetExtension(FUArchivo.FileName))) + FUArchivo.SaveAs(String.Format("{0}Cotizaciones/{1}{2}", Empresa.Ruta, CveCotizacion, IO.Path.GetExtension(FUArchivo.FileName))) End If For Each dr As GridViewRow In GvD.Rows diff --git a/OC/ListaRequisicion.aspx.cs b/OC/ListaRequisicion.aspx.cs index 36b8d6b66..447ef0980 100644 --- a/OC/ListaRequisicion.aspx.cs +++ b/OC/ListaRequisicion.aspx.cs @@ -102,7 +102,7 @@ public partial class OC_ListaRequisicion : ClsPaginas protected void ImprimiReporte(string Formato = "PDF") { - string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa); + string Ruta = UsuarioActual.Empresa.Ruta; string RutaPDF = string.Format("{0}/Formatos/ListaRequisicion.rdlc", Ruta); if (!File.Exists(RutaPDF)) diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index 1290d66c0..60be97147 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -19,7 +19,7 @@ Partial Class OC_PopUpBuscarReq End Property Private ReadOnly Property Ruta As String Get - Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Return UsuarioActual.Empresa.Ruta End Get End Property #End Region diff --git a/OC/RepCotizacionesDetalle.aspx.vb b/OC/RepCotizacionesDetalle.aspx.vb index e519b2935..31fdadb22 100644 --- a/OC/RepCotizacionesDetalle.aspx.vb +++ b/OC/RepCotizacionesDetalle.aspx.vb @@ -199,12 +199,12 @@ Partial Class PopOCCotizacionesDetalle TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario) Then 'verificar que exista el directorio - If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) Then - System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) + If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) Then + System.IO.Directory.CreateDirectory(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) End If If Filename <> "" Then - Filename.FilesMove(objCotizacion.CveCotizacion.ToString(), String.Format("Empresas\{0}\Cotizaciones", UsuarioActual.CveEmpresa)) + Filename.FilesMove(objCotizacion.CveCotizacion.ToString(), String.Format("{0}Cotizaciones", UsuarioActual.Empresa.Ruta)) End If For Each dr As GridViewRow In GvDC.Rows @@ -220,12 +220,12 @@ Partial Class PopOCCotizacionesDetalle If objCotizacion.UpdateCotizacion(CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then 'verificar que exista el directorio - If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) Then - System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) + If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) Then + System.IO.Directory.CreateDirectory(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) End If If Filename <> "" Then - Filename.FilesMove(CveCotizacion.ToString(), String.Format("Empresas\{0}\Cotizaciones", UsuarioActual.CveEmpresa)) + Filename.FilesMove(CveCotizacion.ToString(), String.Format("{0}Cotizaciones", UsuarioActual.Empresa.Ruta)) End If For Each dr As GridViewRow In GvDC.Rows diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb index 0931f4078..e5a6ed498 100644 --- a/OI/CircularDetalle.aspx.vb +++ b/OI/CircularDetalle.aspx.vb @@ -162,7 +162,7 @@ Partial Class OI_CircularDetalle End Function Private Function TituloAnterior() As String - Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) + Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Formatos/", UsuarioActual.Empresa.Ruta)) Dim ArchivosArreglo As IO.FileInfo() = Directorio.GetFiles() Dim patronRegEx As String = String.Format("^{0}_.*", CveCircular) Dim archivoEncontrado As String = "" diff --git a/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs index 690fef2d1..84886f3f2 100644 --- a/OI/CircularDetalleB.aspx.cs +++ b/OI/CircularDetalleB.aspx.cs @@ -208,7 +208,7 @@ public partial class OI_CircularDetalleB : ClsPaginas private string TituloAnterior() { - System.IO.DirectoryInfo Directorio = new System.IO.DirectoryInfo(string.Format("{0}Empresas/{1}/Formatos/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)); + System.IO.DirectoryInfo Directorio = new System.IO.DirectoryInfo(string.Format("{0}Formatos/", UsuarioActual.Empresa.Ruta)); System.IO.FileInfo[] ArchivosArreglo = Directorio.GetFiles(); string patronRegEx = string.Format("^{0}_.*", CveCircular); string archivoEncontrado = ""; diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs index ebd3aed72..027218fbe 100644 --- a/OI/DocumentoDetalle.aspx.cs +++ b/OI/DocumentoDetalle.aspx.cs @@ -680,7 +680,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas int CveUsuario = GvRow.DataKey("CveUsuario").ToEntero(); DataRow UsuarioSeleccionado = GetUsuarioParticipante(CveUsuario); string Propuesta = UsuarioSeleccionado["Adjunto"] == null ? "" : UsuarioSeleccionado["Adjunto"].ToString(); - string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, this.CveDocumento, Propuesta); + string Ruta = string.Format("{0}DocumentosRepo/{1}/{2}", UsuarioActual.Empresa.Ruta, this.CveDocumento, Propuesta); if (File.Exists(Ruta)) { byte[] archivoBytes = File.ReadAllBytes(Ruta); diff --git a/OI/Documentos.aspx.cs b/OI/Documentos.aspx.cs index 7a085368f..d55cbd28c 100644 --- a/OI/Documentos.aspx.cs +++ b/OI/Documentos.aspx.cs @@ -46,7 +46,7 @@ public partial class OI_Documentos : ClsPaginas string CveDocumento = GvRow.DataKey("CveDocumento"); //string NombreArchivo = ArchivoFisico.Split('_')[1]; - string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CveDocumento, ArchivoFisico); + string Ruta = string.Format("{0}DocumentosRepo/{1}/{2}", UsuarioActual.Empresa.Ruta, CveDocumento, ArchivoFisico); if (File.Exists(Ruta)) { byte[] archivoBytes = File.ReadAllBytes(Ruta); diff --git a/OI/EventoComentario.aspx.vb b/OI/EventoComentario.aspx.vb index 5d71becb9..78112c2b5 100644 --- a/OI/EventoComentario.aspx.vb +++ b/OI/EventoComentario.aspx.vb @@ -94,21 +94,21 @@ Partial Class OI_EventoComentario Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click 'Preguntar si existe en temporales - If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then - Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos") - If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension) Then - File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension) - File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension) + If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString) Then + Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString) + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "OI\Eventos") Then Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "OI\Eventos") + If File.Exists(UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension) Then + File.Delete(UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension) + File.Move(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString, UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension) Else - File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension) - End If - - Else - 'Imagen Default - 'If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then - ' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg" - 'End If - End If + File.Move(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString, UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension) + End If + + Else + 'Imagen Default + 'If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then + ' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg" + 'End If + End If End Sub End Class \ No newline at end of file diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb index 7292474e9..39af5e7be 100644 --- a/OI/PopUpAgenda.aspx.vb +++ b/OI/PopUpAgenda.aspx.vb @@ -785,18 +785,18 @@ Partial Class OI_PopUpAgenda ObjEventos.Dispose() End Sub Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click - If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then - Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos") - File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\" & CveEvento & "_" & ArchConsecutivo & Extension) + If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString) Then + Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString) + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos") Then Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Eventos\Archivos") + File.Move(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString, UsuarioActual.Empresa.Ruta & "Eventos\" & CveEvento & "_" & ArchConsecutivo & Extension) Session("FileUpload") = "" - If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then + If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then 'CargarArchivo() Else - File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) + File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) End If ObjActivosFijos.Dispose() @@ -840,8 +840,8 @@ Partial Class OI_PopUpAgenda 'End Sub Protected Sub BtnAddObs_Click(sender As Object, e As EventArgs) Handles BtnAddObs.Click - Dim RutaGuardar As String = String.Format("{0}Empresas\{1}\OI\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) - Dim RutaArchivo As String = String.Format("{0}Empresas\{1}\OI\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("Eventos")) + Dim RutaGuardar As String = String.Format("OI\", UsuarioActual.Empresa.Ruta) + Dim RutaArchivo As String = String.Format("OI\Temp\{2}", UsuarioActual.Empresa.Ruta, Session("Eventos")) Dim tCveSeguimiento As Integer Dim Archivo As String = "" diff --git a/Planeacion/CargarArchivo.aspx.vb b/Planeacion/CargarArchivo.aspx.vb index 929ee65a1..f4ea6329e 100644 --- a/Planeacion/CargarArchivo.aspx.vb +++ b/Planeacion/CargarArchivo.aspx.vb @@ -17,10 +17,10 @@ Partial Class CargarArchivo Protected Sub AFU_UploadedComplete(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs) Handles AFU.UploadedComplete If AFU.HasFile Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Temp") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Temp") End If - Dim UploadFolder As String = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" + Dim UploadFolder As String = UsuarioActual.Empresa.Ruta & "Temp\" Dim Extension As String = System.IO.Path.GetExtension(AFU.PostedFile.FileName) If System.IO.File.Exists(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) Then diff --git a/Planeacion/CargarImagen.aspx.vb b/Planeacion/CargarImagen.aspx.vb index 96af0e798..4a4114b00 100644 --- a/Planeacion/CargarImagen.aspx.vb +++ b/Planeacion/CargarImagen.aspx.vb @@ -13,10 +13,10 @@ Partial Class CargarImagen Protected Sub AFU_UploadedComplete(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs) Handles AFU.UploadedComplete If AFU.HasFile Then - If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") Then - Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") + If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Temp") Then + Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Temp") End If - Dim UploadFolder As String = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" + Dim UploadFolder As String = UsuarioActual.Empresa.Ruta & "Temp\" Dim Extension As String = System.IO.Path.GetExtension(AFU.PostedFile.FileName) If System.IO.File.Exists(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) Then diff --git a/Planeacion/Sucursal.aspx.vb b/Planeacion/Sucursal.aspx.vb index 69d00a738..2e9702867 100644 --- a/Planeacion/Sucursal.aspx.vb +++ b/Planeacion/Sucursal.aspx.vb @@ -62,7 +62,7 @@ Partial Class Sucursal Else Matriz.Checked = False End If - If System.IO.File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\" & DT.Rows(0)("FormatoFactura").ToString) Then + If System.IO.File.Exists(UsuarioActual.Empresa.Ruta & "Formatos\" & DT.Rows(0)("FormatoFactura").ToString) Then 'DirectCast("HLVer", HtmlLink). = "Ver" End If diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index e6245a911..471ed5960 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -363,7 +363,7 @@ Partial Class Ventas_PortalCliente 'Dim ObjEmprea As New ClsEmpresas() 'If ObjEmprea.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then Dim ObjMail As New ClsSisMail() - Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") AndAlso File.Exists(Ruta & "XML\" & HdnFolioVenta.Value & ".xml") Then Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf" @@ -1309,7 +1309,7 @@ Partial Class Ventas_PortalCliente If e.Row.RowIndex >= 0 Then e.Row.Cells(0).Width = Unit.Pixel(100) 'CARGAR IMAGENES DE PERSONAL - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & e.Row.DBCampo("URL") & ".png") Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & e.Row.DBCampo("URL") & ".png") Then e.Row.FCImage("ImgPersonal").ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & e.Row.DBCampo("URL") & ".png" End If diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index 093cdb5ec..1c935a145 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -594,7 +594,7 @@ Partial Class Portal_PortalProveedor Protected Sub GvBancos_comprobante(sender As Object, e As EventArgs) Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim Path As String = String.Format("{0}{1}{2}{3}{4}{5}", ModExtensiones.DirectorioBaseEmpresas, "Empresas\", UsuarioActual.CveEmpresa, "\IE\", Gvr.FCHiddenField("CveIe").Value, ".png") + Dim Path As String = String.Format("{0}{1}{2}{3}", UsuarioActual.Empresa.Ruta, "IE\", Gvr.FCHiddenField("CveIe").Value, ".png") Dim Archivo As New System.IO.FileInfo(Path) If Archivo.Exists Then diff --git a/Proveedores/PortalProveedor.aspx.vb b/Proveedores/PortalProveedor.aspx.vb index 2a3a50e6d..ad4ae37f7 100644 --- a/Proveedores/PortalProveedor.aspx.vb +++ b/Proveedores/PortalProveedor.aspx.vb @@ -412,7 +412,7 @@ Partial Class Portal_PortalProveedor Protected Sub GvBancos_comprobante(sender As Object, e As EventArgs) Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim Path As String = String.Format("{0}{1}{2}{3}{4}{5}", ModExtensiones.DirectorioBaseEmpresas, "Empresas\", UsuarioActual.CveEmpresa, "\IE\", Gvr.FCHiddenField("CveIe").Value, ".png") + Dim Path As String = String.Format("{0}{1}{2}{3}", UsuarioActual.Empresa.Ruta, "IE\", Gvr.FCHiddenField("CveIe").Value, ".png") Dim Archivo As New System.IO.FileInfo(Path) If Archivo.Exists Then diff --git a/PyME/Sistemas/WizardRegistro.aspx.vb b/PyME/Sistemas/WizardRegistro.aspx.vb index ebc8d5bd5..f1e9aaa76 100644 --- a/PyME/Sistemas/WizardRegistro.aspx.vb +++ b/PyME/Sistemas/WizardRegistro.aspx.vb @@ -493,7 +493,7 @@ Partial Class Sistemas_WizardRegistro Case 4 If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0) - Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\" + Dim PathFormato = $"{UsuarioActual.Empresa.Ruta}Formatos\" Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extencion) If File.Exists(dirFormato) Then My.Computer.FileSystem.DeleteFile(dirFormato) diff --git a/RH/CatCursos.aspx.vb b/RH/CatCursos.aspx.vb index cf3b85c55..461c691fe 100644 --- a/RH/CatCursos.aspx.vb +++ b/RH/CatCursos.aspx.vb @@ -327,9 +327,9 @@ Partial Class RH_CatCursos Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/CursosInvitados.rdlc" + Dim Archivo As String = $"{UsuarioActual.Empresa.Ruta}Formatos/CursosInvitados.rdlc" - If Not File.Exists($"{Extensiones.DirectorioBaseEmpresas}/{Archivo}") Then + If Not File.Exists(Archivo) Then Archivo = "Empresas/Grales/Formatos/CursosInvitados.rdlc" End If diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb index b2793709e..9fe5b2b49 100644 --- a/RH/MiPerfil.aspx.vb +++ b/RH/MiPerfil.aspx.vb @@ -467,7 +467,7 @@ Partial Class RH_MiPerfil puestoProp = "" End If - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.URL) Then ImgPersonal.ImageUrl = $"/Empresas/{UsuarioActual.CveEmpresa}/RH/Personal/{ObjPersonal.URL}" End If diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index da16a8d97..84a2daf1d 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1470,17 +1470,17 @@ Partial Class RH_Personal End If - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".jpg") Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg") Then Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) ImgPersonal.ImageUrl = logouri - ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".png") Then + ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png") Then Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) ImgPersonal.ImageUrl = logouri - ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".bmp") Then + ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".bmp") Then Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) @@ -1689,9 +1689,9 @@ Partial Class RH_Personal Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL()) Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL()) - Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\RH\" & ViewState("Archivo").ToString()) + Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString()) Dim URL As String = CvePersonal & Extension - Dim Ruta = String.Format("{0}Empresas\{1}\Temp\RH\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ViewState("Archivo").ToString()) + Dim Ruta = String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, ViewState("Archivo").ToString()) Dim Archivo As New System.IO.FileInfo(Ruta) @@ -3405,7 +3405,7 @@ Partial Class RH_Personal - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL & ".png") Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.URL & ".png") Then params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png")) Else params.Add(New ReportParameter("LogoUri", "")) @@ -3507,7 +3507,7 @@ Partial Class RH_Personal - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL & ".png") Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.URL & ".png") Then params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png")) Else params.Add(New ReportParameter("LogoUri", "")) @@ -3553,7 +3553,7 @@ Partial Class RH_Personal - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.CvePersonal & ".png") Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & ObjPersonal.CvePersonal & ".png") Then params.Add(New ReportParameter("LogoUri", String.Format("{0}://{1}:{2}/Empresas/{3}/RH/Personal/{4}.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, ObjPersonal.CvePersonal))) Else params.Add(New ReportParameter("LogoUri", "")) @@ -5348,9 +5348,9 @@ Partial Class RH_Personal FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename - Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) - Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) - Dim yaExistenteBMP As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.bmp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) + Dim yaExistente As String = String.Format("{0}RH\Personal\{1}.jpg", UsuarioActual.Empresa.Ruta, CvePersonal) + Dim yaExistentePNG As String = String.Format("{0}RH\Personal\{1}.png", UsuarioActual.Empresa.Ruta, CvePersonal) + Dim yaExistenteBMP As String = String.Format("{0}RH\Personal\{1}.bmp", UsuarioActual.Empresa.Ruta, CvePersonal) If File.Exists(yaExistente) Then File.Delete(yaExistente) @@ -5365,7 +5365,7 @@ Partial Class RH_Personal End If ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString(), FileExtension) Next - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & "." & FileExtension) Then + If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & "." & FileExtension) Then Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now) ImgPersonal.ImageUrl = logouri @@ -5596,7 +5596,7 @@ Partial Class RH_Personal Protected Sub GenerarPDFConsumo(Optional Formato As String = "PDF") Dim CodigoP As String = "" Dim NombreCompletoP As String = "" - Dim Ruta As String = String.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim RutaPDF As String = String.Format("{0}/Formatos/RepConsumoPersonal.rdlc", Ruta) If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas/Grales/Formatos/RepConsumoPersonal.rdlc" diff --git a/RH/RepBuzonCalidad.aspx.vb b/RH/RepBuzonCalidad.aspx.vb index 85ec18f65..a4ee140d9 100644 --- a/RH/RepBuzonCalidad.aspx.vb +++ b/RH/RepBuzonCalidad.aspx.vb @@ -66,7 +66,7 @@ Partial Class RH_RepBuzonCalidad e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left Else ' - If System.IO.File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & e.Row.DBCampo("CvePersonal") & ".png") Then + If System.IO.File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & e.Row.DBCampo("CvePersonal") & ".png") Then e.Row.FCImage("ImgPersonal").ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & e.Row.DBCampo("CvePersonal") & ".png" End If e.Row.Cells(0).Visible = False diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index bf1c5fadc..66b11a5ce 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -1467,8 +1467,17 @@ Partial Class Sistemas_Empresa Dim Archivopfx As String Dim Archivokey As Archivo = Nothing Dim Archivocer As Archivo = Nothing - Dim dirbase = String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) - Dim dirbasepfx = String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + + Dim dirbase = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + Dim dirbasepfx = "" ' String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + If EmpresaEditar IsNot Nothing Then + dirbase = String.Format("{0}Certificados\Fiel\", EmpresaEditar.Ruta) + dirbasepfx = String.Format("{0}Certificados\", EmpresaEditar.Ruta) + Else + dirbase = String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + dirbasepfx = String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + End If + If (Not Directory.Exists(dirbase)) Then Directory.CreateDirectory(dirbase) End If diff --git a/Site.master.vb b/Site.master.vb index 5f9de4168..a6f63e6b8 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -500,7 +500,7 @@ Partial Class Site Private Function ConvertCER() As String Try - Dim Archivo As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.ArchivoCer) + Dim Archivo As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer) If File.Exists(Archivo) Then Dim CerFile As New FileStream(Archivo, FileMode.Open, FileAccess.Read) Dim Size As Integer = CerFile.Length.ToString().ToEntero() diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e6660992f..a45fdff33 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2121,7 +2121,7 @@ Partial Class Clientes If HdnCveVenta.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then Dim ObjMail As New ClsSisMail() - Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim Cuerpo As String = TxtBody.Text Dim Asunto As String = "" @@ -5310,7 +5310,7 @@ Partial Class Clientes If HdnCveVenta2.Value <> "-1" AndAlso HdnFolioVenta2.Value <> "-1" Then Dim ObjMail As New ClsSisMail() - Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim Cuerpo As String = TxtBody2.Text Dim Asunto As String = "" @@ -5793,8 +5793,8 @@ 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 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 csv o excel a la plataforma", TipoMensaje.MsgError) @@ -7116,13 +7116,13 @@ Partial Class Clientes If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then - stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa) + stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx" TxtDireccionAval.Text = "" TxtAval.Text = "" RegistraScript("$('#ModalDivPagare').modal('show')") Else - stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto) + stringDescargaDocumento = UsuarioActual.Empresa.Ruta & String.Format("DocElectronica\Clientes\{0}\{1}", CveCliente, Adjunto) linkDescargaPagare = stringDescargaDocumento @@ -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/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 17b13577e..c6374fedd 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -776,7 +776,7 @@ Partial Class Ventas_ClientesAbonar 'Guardar archivo If filemove <> "" Then - filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)) + filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta)) End If @@ -2507,8 +2507,8 @@ Partial Class Ventas_ClientesAbonar PDFReciboDePagos(-1, -1, ObjBancos.CveComplementoPago, False) - Dim LigaDescargaXML = $"../Empresas/{UsuarioActual.CveEmpresa}/XML/Pag/{ObjBancos.ComplementoSerieFolio}.xml" - Dim LigaDescargaPDF = $"../Empresas/{UsuarioActual.CveEmpresa}/PDF/Pag/{ObjBancos.ComplementoSerieFolio}.pdf" + 'Dim LigaDescargaXML = $"../Empresas/{UsuarioActual.CveEmpresa}/XML/Pag/{ObjBancos.ComplementoSerieFolio}.xml" + 'Dim LigaDescargaPDF = $"../Empresas/{UsuarioActual.CveEmpresa}/PDF/Pag/{ObjBancos.ComplementoSerieFolio}.pdf" Retorno.AppendFormat(" Complemento de pago {0}
", ObjBancos.ComplementoSerieFolio) Retorno.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE))) Retorno.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE))) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 1c5db7aa7..96dfaf3ed 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -227,7 +227,7 @@ Partial Class PV Private ReadOnly Property Ruta As String Get - Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Return UsuarioActual.Empresa.Ruta End Get End Property diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb index 960074304..f6ecdce33 100644 --- a/Ventas/PopUpBuscarFolio.aspx.vb +++ b/Ventas/PopUpBuscarFolio.aspx.vb @@ -7,7 +7,7 @@ Partial Class PopUpBuscarFolio Private ReadOnly Property Ruta As String Get - Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" + Return UsuarioActual.Empresa.Ruta End Get End Property diff --git a/Ventas/PopUpImprimir.aspx.vb b/Ventas/PopUpImprimir.aspx.vb index bf9706395..5148fd881 100644 --- a/Ventas/PopUpImprimir.aspx.vb +++ b/Ventas/PopUpImprimir.aspx.vb @@ -64,7 +64,7 @@ Partial Class PopUpImprimir RegistraScript("$get('tdContenido').style.height='520px'") Else - Dim Path As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" & Ext & "\" & CveVenta & "." & Ext + Dim Path As String = UsuarioActual.Empresa.Ruta & Ext & "\" & CveVenta & "." & Ext Dim Archivo As New System.IO.FileInfo(Path) If Archivo.Exists Then diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index bc7e20c47..8dbe4521d 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -2434,7 +2434,7 @@ Partial Class ProductosyServicios Dim Archivo = "" Dim DirectorioTemporal = "" - Dim DirectorioDestino = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\Ecommerce\Productos\Imagenes\" + Dim DirectorioDestino = $"{UsuarioActual.Empresa.Ruta}\Ecommerce\Productos\Imagenes\" If Not Directory.Exists(DirectorioDestino) Then Directory.CreateDirectory(DirectorioDestino) End If @@ -2469,7 +2469,7 @@ Partial Class ProductosyServicios If (CveImagenActivoFijo > 0) Then Dim ObjEcommerce As New ClsECommerce If ObjEcommerce.ProductosImagenesRemove(CveImagenActivoFijo, UsuarioActual.CveEmpresa) Then - File.Delete(String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ObjEcommerce.DtResultados.Rows(0)("URL"))) + File.Delete(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjEcommerce.DtResultados.Rows(0)("URL"))) CargarGaleriaImagenesEcommerce() RegistraScript("initcarusel();") End If diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index 47208fa02..cd2ca327a 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -226,8 +226,8 @@ Partial Class Ventas_RepPS End If params.Add(New ReportParameter("Parametros", SbParametros.ToString())) - If System.IO.File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}/Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc") Then - ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS") + If System.IO.File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc") Then + ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc", DtReporte, params, "ReportePS") Else ImprimirPDF($"Empresas/Grales/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS") End If diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb index bbbb91a97..1c99eed8e 100644 --- a/Ventas/RepRecuperacionDetalle.aspx.vb +++ b/Ventas/RepRecuperacionDetalle.aspx.vb @@ -341,7 +341,7 @@ Partial Class Ventas_RepRecuperacionDetalle If DdlClienteSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente Sucursal: {0}", DdlClienteSucursal.SelectedItem.Text) Dim RutaPDF As String - Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" + Dim Ruta As String = UsuarioActual.Empresa.Ruta '$"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\" RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc" If Not File.Exists(RutaPDF) Then RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc" diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index c54c6f784..2a85b6ce7 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1060,7 +1060,7 @@ <%----%> <%--0--%> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 68d69336d..72e383ea8 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6949,6 +6949,11 @@ Partial Class Ventas GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlUnidadMedida").Enabled = False GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlClasificacion").Enabled = False End If + + If GvPS.Rows(e.NewEditIndex).DataKey("CvePromocionDetalle").ToString().ToEntero() > 0 Then + GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False + GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").ToolTip = "No se puede editar el descuento porque viene de una promoción" + End If End Sub Protected Sub GvPS_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvPS.RowCancelingEdit GvPS.EditIndex = -1 @@ -6971,7 +6976,7 @@ Partial Class Ventas Exit Sub End If - If UsuarioActual.CveEmpresa = 140 Then + If UsuarioActual.CveEmpresa = 140 OrElse DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then ObjDescuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero(), Cantidad, PU) End If @@ -7214,6 +7219,10 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial + If ObjDescuento IsNot Nothing Then + TmpDT.Rows(e.RowIndex)("CvePromocionDetalle") = ObjDescuento.CvePromocionDetalle + End If + If GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").Items.Count = 0 Then TmpDT.Rows(e.RowIndex)("Proyecto") = "Sin Proyecto Asignado" TmpDT.Rows(e.RowIndex)("CveSubProyecto") = -1 @@ -8442,7 +8451,7 @@ Partial Class Ventas Try - Dim DirectoriArchivoXML As String = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas", UsuarioActual.CveEmpresa.ToString(), ObjFactura.TipoDocto) + Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine() If Not Directory.Exists(DirectoriArchivoXML) Then Directory.CreateDirectory(DirectoriArchivoXML) End If @@ -13727,7 +13736,7 @@ Partial Class Ventas End If If UsuarioActual.Empresa.CvePlataforma = 2 Then - PdfFacturaPyME(ObjFactura, TmpDT) + PdfFacturaPyME(ObjFactura, TmpDT, False) Else 'REINICIA VALORES DE CONVERSION DE MONEDA @@ -13779,7 +13788,7 @@ Partial Class Ventas End Select - ImprimirbytesPDF(PdfFactura(ObjFactura), "Factura", "PDF") + ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False), "Factura", "PDF") Select Case ConversionRemision Case "*" @@ -16694,11 +16703,11 @@ Partial Class Ventas Dim dr As DataRow = Nothing If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then - dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {3} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc ") + dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {3} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc ") If dr Is Nothing Then 'verifica marca, si tiene asignada la promocion - dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc") + dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc") End If End If @@ -16714,7 +16723,7 @@ Partial Class Ventas TipoAplicacion = dr("TipoAplicacion").ToString().ToEntero() If CantMinima > 0 Then - Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero() + Cant = Math.Floor(Cantidad / CantMinima).ToEntero() End If End If @@ -21517,7 +21526,7 @@ Partial Class Ventas Dim RFC As String = "" Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Empresas\{1}\Ventas\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Request("RFC"), $"{Request("CveFactura")}.xml") + Dim Archivo As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), $"{Request("CveFactura")}.xml") If IO.File.Exists(Archivo) Then Dim Validada As Boolean = True @@ -22987,7 +22996,7 @@ Partial Class Ventas RequiereAlmacenOrigen = True DdlAlmacenOrigen.Items.Clear() DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) - DdlAlmacenOrigen.SelectedValue = "-1" + DdlAlmacenOrigen.SelectedValueExist("-1") DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoDestino").ToString())) DdlAlmacenOrigen.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoDestino").ToString()) @@ -30052,7 +30061,7 @@ Partial Class Ventas For Each drow As DataRow In factura.DtDetalle.Rows If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then - If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, CveConcepto, factura.CveVenta, UsuarioActual.CveUsuario, + If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, drow("Cantidad").ToString.ToDecimal, drow("CveTamaño").ToString.ToEntero, CveConcepto, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0D, "") Then Resultado = False Exit For @@ -31939,8 +31948,7 @@ Partial Class Ventas Adjunto = String.Format("{0}-{1}.{2}", LblSerie.Text, TxtFolio.Text, FileExtension) Dim objVentas As New ClsVentas Dim Path As String - Path = Extensiones.DirectorioBaseEmpresas - Path += String.Format("Empresas/{0}/Ventas", UsuarioActual.CveEmpresa) + Path = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta) If Not Directory.Exists(Path) Then Directory.CreateDirectory(Path) End If @@ -31967,8 +31975,7 @@ Partial Class Ventas Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click Dim ruta As String = HttpContext.Current.Request.ApplicationPath - ruta = Extensiones.DirectorioBaseEmpresas - ruta += String.Format("Empresas/{0}/Ventas", UsuarioActual.CveEmpresa) + ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta) ruta += $"/{Adjunto}" Dim Archivo As New System.IO.FileInfo(ruta) @@ -32003,7 +32010,7 @@ Partial Class Ventas Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click Dim objVentas As New ClsVentas Dim Path As String - Path = String.Format("{0}Empresas/{1}/Ventas/{2}", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Adjunto) + Path = String.Format("{0}Ventas/{1}", UsuarioActual.Empresa.Ruta, Adjunto) If File.Exists(Path) Then File.Delete(Path) End If diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb index 2fe02e10e..92b66a211 100644 --- a/Ventas/eFacturas.aspx.vb +++ b/Ventas/eFacturas.aspx.vb @@ -48,7 +48,7 @@ Partial Class Ventas_eFacturas txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString - Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\" + Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta) Ejecutable = String.Format("{0}\Utilerias\eeeFacturas.exe", AppDomain.CurrentDomain.BaseDirectory) Form.DefaultButton = BtnConsultar.UniqueID @@ -354,7 +354,7 @@ Partial Class Ventas_eFacturas Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs) Handles LnkNoRecibias.Click Dim dt As New DataTable - Dim Ruta As String = String.Format("{0}\Empresas\{1}\Compras\NoRecibidas-{1}.xml", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) + Dim Ruta As String = String.Format("{0}Compras\NoRecibidas-{1}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa) Dim Str As New StringBuilder If IO.File.Exists(Ruta) Then dt.ReadXml(Ruta) @@ -464,7 +464,7 @@ Partial Class Ventas_eFacturas Dim ObjProcess As Process = Nothing Dim Mensajes As String = "" Dim EjecutableUtilerias = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\ADSUtilerias.exe") - Dim Folder = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\") + Dim Folder = UsuarioActual.Empresa.Ruta.Replace($"{UsuarioActual.CveEmpresa.ToString()}\", "") 'Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\") Dim error1 As Boolean = False Dim en As New CultureInfo("en-US") Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en)