IE subir comprobante

Bancos/IE.aspx.vb

@@ -5058,8 +5058,14 @@ Partial Class Bancos_IE
             Dim fileItem As Archivo = Filesgral(0)
             Dim Path As String = HttpContext.Current.Request.ApplicationPath
             Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
-            Path = HttpContext.Current.Request.MapPath(Path)
+
+            Path = Extensiones.DirectorioBaseEmpresas
             Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa)
+
+            If UsuarioActual.CveRol = 1 Then
+                Alert(Path)
+            End If
+
             If Not Directory.Exists(Path) Then
                 Directory.CreateDirectory(Path)
             End If

Contratos/ContratoObra.aspx.vb

@@ -5203,10 +5203,8 @@ Partial Class Contratos_ContratoObra
     End Sub
 
 
-
     Protected Sub BtnModalMaquinariaAdd_Click(sender As Object, e As EventArgs)
 
-
         Dim CveContratoDetalle As Integer = 0
 
         Dim Separador As Char() = {"-"c}