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

Ruta personalizada por Empresa

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-07-31 09:54:05 -07:00
parent d59dc01317
commit fbde0a2e58
79 changed files with 2710 additions and 2685 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ventas/Clientes.aspx.vb
View File

@@ -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