Ruta personalizada por Empresa

This commit is contained in:
2021-07-31 09:54:05 -07:00
parent d59dc01317
commit fbde0a2e58
79 changed files with 2710 additions and 2685 deletions

View File

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