Ruta personalizada por Empresa

2021-07-31 09:54:05 -07:00
parent d59dc01317
commit fbde0a2e58
79 changed files with 2710 additions and 2685 deletions
--- 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)