Ruta personalizada por Empresa
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user