Ruta dinamica de carpeta "Empresas" asignar valor desde el web config

2020-05-12 00:29:19 -07:00
parent 701eec057e
commit 4dd49e29f5
133 changed files with 3971 additions and 3886 deletions
--- a/PyME/Sistemas/WizardRegistro.aspx.vb
+++ b/PyME/Sistemas/WizardRegistro.aspx.vb
@@ -368,7 +368,7 @@ Partial Class Sistemas_WizardRegistro
            objPS.Dispose()
            objInv.Dispose()

-            Dim DirFactura = AppDomain.CurrentDomain.BaseDirectory + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa)
+            Dim DirFactura = ModExtensiones.DirectorioBaseEmpresas + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa)
            Dim Factura As New FileInfo(DirFactura)
            RblFormatoFactura.Items.Item(1).Enabled = Factura.Exists
            RblFormatoFactura.Items.Item(1).Selected = Factura.Exists
@@ -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 = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\Formatos\"
+                            Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\"
                            Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extencion)
                            If File.Exists(dirFormato) Then
                                My.Computer.FileSystem.DeleteFile(dirFormato)
@@ -549,7 +549,7 @@ Partial Class Sistemas_WizardRegistro
        Dim ObjEmpresas As New ClsSisEmpresas
        ObjEmpresas.IniciaTransacSQL()
        Try
-            Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\Certificados"
+            Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados"
            DirectoryExistsCreate(Path)
            Dim ArchivoDestino As String = String.Format("{0}\{1}", Path, ArchivoFiel.filename)
            If File.Exists(ArchivoDestino) Then
@@ -589,7 +589,7 @@ Partial Class Sistemas_WizardRegistro
        Dim ObjEmpresas As New ClsSisEmpresas
        ObjEmpresas.IniciaTransacSQL()
        Try
-            Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\Certificados"
+            Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados"
            DirectoryExistsCreate(Path)
            Dim ArchivoDestino As String = String.Format("{0}\{1}", Path, ArchivoCSD.filenameO)
            If File.Exists(ArchivoDestino) Then
@@ -889,7 +889,7 @@ Partial Class Sistemas_WizardRegistro
            Dim ArchivoLogo As Archivo = TextLogo.getfiles().Archivos(0)
            If ArchivoLogo.filenameO.Length <= 114 Then
                Try
-                    Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}"
+                    Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}"
                    DirectoryExistsCreate(Path)
                    Dim ArchivoDestino As String = String.Format("{0}\Logo.{1}", Path, ArchivoLogo.Extencion)
                    If File.Exists(ArchivoDestino) Then
@@ -923,7 +923,7 @@ Partial Class Sistemas_WizardRegistro
    End Sub
    Protected Sub RblFormatoFactura_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblFormatoFactura.SelectedIndexChanged
        Dim StrParams As New StringBuilder
-        Dim Directorio = AppDomain.CurrentDomain.BaseDirectory + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa)
+        Dim Directorio = ModExtensiones.DirectorioBaseEmpresas + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa)
        Dim Archivo As New FileInfo(Directorio)
        RblFormatoFactura.Items.Item(1).Enabled = Archivo.Exists
        DivSubirFactura.Visible = (RblFormatoFactura.SelectedValue = "2")
@@ -943,7 +943,7 @@ Partial Class Sistemas_WizardRegistro
        UpFormatoFactura.Update()
    End Sub
    Private Sub VerEditarFactura()
-        Dim Directorio = AppDomain.CurrentDomain.BaseDirectory + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa)
+        Dim Directorio = ModExtensiones.DirectorioBaseEmpresas + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa)
        Dim Archivo As New FileInfo(Directorio)
        RblFormatoFactura.Items.Item(1).Enabled = Archivo.Exists
        If Archivo.Exists Then
@@ -1620,7 +1620,7 @@ Partial Class Sistemas_WizardRegistro
    Protected Sub BtnClasificacion_Click(sender As Object, e As EventArgs) Handles btnClasificacion.Click
        If TxtAddClasificacion.getfiles().Archivos.Count > 0 Then
            Dim file As Archivo = TxtAddClasificacion.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
            CargarExcelClasificaciones(Directorio, file.filename, Tipo)
        Else
@@ -1629,10 +1629,10 @@ Partial Class Sistemas_WizardRegistro

        'If TxtAddClasificacion.getfiles().Archivos.Count > 0 Then
        'Dim file As Archivo = TxtAddClasificacion.getfiles().Archivos(0)
-        'Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch & file.filename
+        'Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch & file.filename
        'CargarExcelClasificaciones(Directorio)
        ' Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
-        '    ' CargarArchivoClasificaciones(AppDomain.CurrentDomain.BaseDirectory & file.patch, file.filename, Tipo)
+        '    ' CargarArchivoClasificaciones(ModExtensiones.DirectorioBaseEmpresas & file.patch, file.filename, Tipo)
        'Else
        '    Alert("No existe el archivo.Favor de subir un archivo de excel a la plataforma", TipoMensaje.MsgError)
        'End If
@@ -1939,7 +1939,7 @@ Partial Class Sistemas_WizardRegistro
    Protected Sub BtnDivAddUnidadesMedida_Click(sender As Object, e As EventArgs) Handles BtnDivAddUnidadesMedida.Click
        If TxtAddUnidadesMedida.getfiles().Archivos.Count > 0 Then
            Dim file As Archivo = TxtAddUnidadesMedida.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
            CargarExcelUnidadesMedida(Directorio, file.filename, Tipo)
        Else
@@ -2240,7 +2240,7 @@ Partial Class Sistemas_WizardRegistro
    Protected Sub BtnDivAddPS_Click(sender As Object, e As EventArgs) Handles BtnDivAddPS.Click
        If TxtAddPS.getfiles().Archivos.Count > 0 Then
            Dim ArchivoExcel As Archivo = TxtAddPS.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & ArchivoExcel.patch & ArchivoExcel.filename
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & ArchivoExcel.patch & ArchivoExcel.filename
            Dim Tipo As String = If(ArchivoExcel.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "OTRO")
            CargarExcelPS(Directorio, Tipo)
        Else
@@ -2432,7 +2432,7 @@ Partial Class Sistemas_WizardRegistro
    Protected Sub BtnCargaExcelProveedor_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelProveedor.Click
        If TxtAddProveedor.getfiles().Archivos.Count > 0 Then
            Dim file As Archivo = TxtAddProveedor.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
            CargarArchivoProveedor(Directorio, file.filename, Tipo)
        Else
@@ -2614,7 +2614,7 @@ Partial Class Sistemas_WizardRegistro
    Protected Sub BtnCargaExcelCliente_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelCliente.Click
        If TxtAddClientes.getfiles().Archivos.Count > 0 Then
            Dim file As Archivo = TxtAddClientes.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
            CargarArchivoCliente(Directorio, file.filename, Tipo)
        Else
@@ -2806,7 +2806,7 @@ Partial Class Sistemas_WizardRegistro
    Private Sub BtnCargaExcelFacturas_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelFacturas.Click
        If TxtAddFactura.getfiles().Archivos.Count > 0 Then
            Dim file As Archivo = TxtAddFactura.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
            CargarArchivoFactura(Directorio, file.filename, Tipo)
        Else
@@ -3182,21 +3182,21 @@ Partial Class Sistemas_WizardRegistro
        Dim Directorio As String = ""
        Select Case Tipo
            Case "Clasi"
-                Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\FormatoClasificaciones.xlsx"
+                Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoClasificaciones.xlsx"
            Case "UM"
-                Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\FormatoUnidadesMedida.xlsx"
+                Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoUnidadesMedida.xlsx"
            Case "PS"
-                Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoPS.xlsx"
+                Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoPS.xlsx"
            Case "Prove"
-                Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoProveedores.xlsx"
+                Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoProveedores.xlsx"
            Case "Cli"
-                Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
+                Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
            Case "Fact"
                If RblFormato.SelectedValue = "1" Then
-                    Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoProveedores-Facturas.xlsx"
+                    Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoProveedores-Facturas.xlsx"
                End If
                If RblFormato.SelectedValue = "2" Then
-                    Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas.xlsx"
+                    Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas.xlsx"
                End If


@@ -3368,7 +3368,7 @@ Partial Class Sistemas_WizardRegistro
    '            Try
    '                If TxtModalFielArchivo.getfiles().Archivos.Count > 0 Then
    '                    Dim ArchivoFiel As Archivo = TxtModalFielArchivo.getfiles().Archivos(0)
-    '                    Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\Certificados"
+    '                    Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados"
    '                    If Not Directory.Exists(Path) Then
    '                        Directory.CreateDirectory(Path)
    '                    End If
@@ -3381,7 +3381,7 @@ Partial Class Sistemas_WizardRegistro

    '                If TxtCSD.getfiles().Archivos.Count > 0 Then
    '                    Dim ArchivoCSD As Archivo = TxtCSD.getfiles().Archivos(0)
-    '                    Dim PathCSD As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\Certificados"
+    '                    Dim PathCSD As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados"
    '                    Dim dirCSD As String = String.Format("{0}\{1}.{2}", PathCSD, CSD, ArchivoCSD.Extencion)
    '                    If File.Exists(dirCSD) Then
    '                        My.Computer.FileSystem.DeleteFile(dirCSD)
@@ -3391,7 +3391,7 @@ Partial Class Sistemas_WizardRegistro

    '                If TextLogo.getfiles().Archivos().Count > 0 Then
    '                    Dim Logo As Archivo = TextLogo.getfiles().Archivos(0)
-    '                    Dim PathLogo As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\"
+    '                    Dim PathLogo As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\"
    '                    Dim dirLogo As String = String.Format("{0}\logo.{1}", PathLogo, Logo.Extencion)
    '                    If File.Exists(dirLogo) Then
    '                        My.Computer.FileSystem.DeleteFile(dirLogo)
@@ -3401,7 +3401,7 @@ Partial Class Sistemas_WizardRegistro

    '                If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then
    '                    Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0)
-    '                    Dim PathFormato = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{CveEmpresa}\Formatos\"
+    '                    Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\"
    '                    Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extencion)
    '                    If File.Exists(dirFormato) Then
    '                        My.Computer.FileSystem.DeleteFile(dirFormato)