Ruta personalizada por Empresa

Ventas/Clientes.aspx.vb

@@ -2121,7 +2121,7 @@ Partial Class Clientes
             If HdnCveVenta.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then
 
                 Dim ObjMail As New ClsSisMail()
-                Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+                Dim Ruta As String = UsuarioActual.Empresa.Ruta
 
                 Dim Cuerpo As String = TxtBody.Text
                 Dim Asunto As String = ""
@@ -5310,7 +5310,7 @@ Partial Class Clientes
             If HdnCveVenta2.Value <> "-1" AndAlso HdnFolioVenta2.Value <> "-1" Then
 
                 Dim ObjMail As New ClsSisMail()
-                Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+                Dim Ruta As String = UsuarioActual.Empresa.Ruta
 
                 Dim Cuerpo As String = TxtBody2.Text
                 Dim Asunto As String = ""
@@ -5793,8 +5793,8 @@ Partial Class Clientes
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
-            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path
+            Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else
             Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -7116,13 +7116,13 @@ Partial Class Clientes
 
         If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
 
-            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa)
+            stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx"
             TxtDireccionAval.Text = ""
             TxtAval.Text = ""
             RegistraScript("$('#ModalDivPagare').modal('show')")
 
         Else
-            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
+            stringDescargaDocumento = UsuarioActual.Empresa.Ruta & String.Format("DocElectronica\Clientes\{0}\{1}", CveCliente, Adjunto)
 
             linkDescargaPagare = stringDescargaDocumento
 
@@ -7827,7 +7827,7 @@ Partial Class Clientes
                 Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
                 filemove = fileItem.FileUrl
                 RutaArchivo = String.Format("{0}{1}_{2}", RutaDirectorio, CveCliente, _CveDocumentacion)
-                RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extencion)
+                RutaArchivo = String.Format("{0}.{1}", RutaArchivo, fileItem.Extension)
 
                 Try
                     If Not Directory.Exists(RutaDirectorio) Then

Ventas/ClientesAbonar.aspx.vb

@@ -776,7 +776,7 @@ Partial Class Ventas_ClientesAbonar
 
                 'Guardar archivo 
                 If filemove <> "" Then
-                    filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta))
+                    filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta))
                 End If
 
 
@@ -2507,8 +2507,8 @@ Partial Class Ventas_ClientesAbonar
 
             PDFReciboDePagos(-1, -1, ObjBancos.CveComplementoPago, False)
 
-            Dim LigaDescargaXML = $"../Empresas/{UsuarioActual.CveEmpresa}/XML/Pag/{ObjBancos.ComplementoSerieFolio}.xml"
-            Dim LigaDescargaPDF = $"../Empresas/{UsuarioActual.CveEmpresa}/PDF/Pag/{ObjBancos.ComplementoSerieFolio}.pdf"
+            'Dim LigaDescargaXML = $"../Empresas/{UsuarioActual.CveEmpresa}/XML/Pag/{ObjBancos.ComplementoSerieFolio}.xml"
+            'Dim LigaDescargaPDF = $"../Empresas/{UsuarioActual.CveEmpresa}/PDF/Pag/{ObjBancos.ComplementoSerieFolio}.pdf"
             Retorno.AppendFormat("  Complemento de pago  <strong>{0}</strong>  <br>", ObjBancos.ComplementoSerieFolio)
             Retorno.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class=""fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE)))
             Retorno.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class=""fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", ObjBancos.ComplementoSerieFolio, ObjBancos.CveComplementoPago, CveIE)))

Ventas/PV.aspx.vb

@@ -227,7 +227,7 @@ Partial Class PV
 
     Private ReadOnly Property Ruta As String
         Get
-            Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+            Return UsuarioActual.Empresa.Ruta
         End Get
     End Property
 

Ventas/PopUpBuscarFolio.aspx.vb

@@ -7,7 +7,7 @@ Partial Class PopUpBuscarFolio
 
     Private ReadOnly Property Ruta As String
         Get
-            Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+            Return UsuarioActual.Empresa.Ruta
         End Get
     End Property
 

Ventas/PopUpImprimir.aspx.vb

@@ -64,7 +64,7 @@ Partial Class PopUpImprimir
                     RegistraScript("$get('tdContenido').style.height='520px'")
 
                 Else
-                    Dim Path As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\" & Ext & "\" & CveVenta & "." & Ext
+                    Dim Path As String = UsuarioActual.Empresa.Ruta & Ext & "\" & CveVenta & "." & Ext
                     Dim Archivo As New System.IO.FileInfo(Path)
 
                     If Archivo.Exists Then

Ventas/ProductosServicios.aspx.vb

@@ -2434,7 +2434,7 @@ Partial Class ProductosyServicios
         Dim Archivo = ""
         Dim DirectorioTemporal = ""
 
-        Dim DirectorioDestino = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\Ecommerce\Productos\Imagenes\"
+        Dim DirectorioDestino = $"{UsuarioActual.Empresa.Ruta}\Ecommerce\Productos\Imagenes\"
         If Not Directory.Exists(DirectorioDestino) Then
             Directory.CreateDirectory(DirectorioDestino)
         End If
@@ -2469,7 +2469,7 @@ Partial Class ProductosyServicios
         If (CveImagenActivoFijo > 0) Then
             Dim ObjEcommerce As New ClsECommerce
             If ObjEcommerce.ProductosImagenesRemove(CveImagenActivoFijo, UsuarioActual.CveEmpresa) Then
-                File.Delete(String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ObjEcommerce.DtResultados.Rows(0)("URL")))
+                File.Delete(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjEcommerce.DtResultados.Rows(0)("URL")))
                 CargarGaleriaImagenesEcommerce()
                 RegistraScript("initcarusel();")
             End If

Ventas/RepPS.aspx.vb

@@ -226,8 +226,8 @@ Partial Class Ventas_RepPS
             End If
             params.Add(New ReportParameter("Parametros", SbParametros.ToString()))
 
-            If System.IO.File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}/Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc") Then
-                ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
+            If System.IO.File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc") Then
+                ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
             Else
                 ImprimirPDF($"Empresas/Grales/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
             End If

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -341,7 +341,7 @@ Partial Class Ventas_RepRecuperacionDetalle
             If DdlClienteSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente Sucursal</b>: {0}", DdlClienteSucursal.SelectedItem.Text)
 
             Dim RutaPDF As String
-            Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
+            Dim Ruta As String = UsuarioActual.Empresa.Ruta '$"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
             RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc"
             If Not File.Exists(RutaPDF) Then
                 RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"

Ventas/Ventas.aspx

@@ -1060,7 +1060,7 @@
                                         <%--</asp:Panel>--%>
 
                                         <asp:GridView ID="GvPS" GridLines="None" runat="server" data-tableheader="#tbps" ShowHeader="true" AutoGenerateColumns="False"
-                                            DataKeyNames="Consec,CvePS,Total, IEPS, CveClasificacion,CveUM,CveProyecto,CveSubProyecto,TipoDocto,PS,Obs,Cantidad,PU,Descuento,IVA,CantidadInventario,CantidadFacturadaRem,CveVentaDetalle"
+                                            DataKeyNames="Consec,CvePS,Total, IEPS, CveClasificacion,CveUM,CveProyecto,CveSubProyecto,TipoDocto,PS,Obs,Cantidad,PU,Descuento,IVA,CantidadInventario,CantidadFacturadaRem,CveVentaDetalle,CvePromocionDetalle"
                                             CssClass="table table-striped table-advance table-hover Widthall Sortable mysmallbtn ScrollAD" Style="min-width: 980px;">
                                             <Columns>
                                                 <%--0--%>

Ventas/Ventas.aspx.vb

@@ -6949,6 +6949,11 @@ Partial Class Ventas
             GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlUnidadMedida").Enabled = False
             GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlClasificacion").Enabled = False
         End If
+
+        If GvPS.Rows(e.NewEditIndex).DataKey("CvePromocionDetalle").ToString().ToEntero() > 0 Then
+            GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
+            GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").ToolTip = "No se puede editar el descuento porque viene de una promoción"
+        End If
     End Sub
     Protected Sub GvPS_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvPS.RowCancelingEdit
         GvPS.EditIndex = -1
@@ -6971,7 +6976,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If UsuarioActual.CveEmpresa = 140 Then
+        If UsuarioActual.CveEmpresa = 140 OrElse DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
             ObjDescuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero(), Cantidad, PU)
         End If
 
@@ -7214,6 +7219,10 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR
             TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial
 
+            If ObjDescuento IsNot Nothing Then
+                TmpDT.Rows(e.RowIndex)("CvePromocionDetalle") = ObjDescuento.CvePromocionDetalle
+            End If
+
             If GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").Items.Count = 0 Then
                 TmpDT.Rows(e.RowIndex)("Proyecto") = "Sin Proyecto Asignado"
                 TmpDT.Rows(e.RowIndex)("CveSubProyecto") = -1
@@ -8442,7 +8451,7 @@ Partial Class Ventas
 
 
                         Try
-                            Dim DirectoriArchivoXML As String = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas", UsuarioActual.CveEmpresa.ToString(), ObjFactura.TipoDocto)
+                            Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine()
                             If Not Directory.Exists(DirectoriArchivoXML) Then
                                 Directory.CreateDirectory(DirectoriArchivoXML)
                             End If
@@ -13727,7 +13736,7 @@ Partial Class Ventas
         End If
 
         If UsuarioActual.Empresa.CvePlataforma = 2 Then
-            PdfFacturaPyME(ObjFactura, TmpDT)
+            PdfFacturaPyME(ObjFactura, TmpDT, False)
         Else
 
             'REINICIA VALORES DE CONVERSION DE MONEDA
@@ -13779,7 +13788,7 @@ Partial Class Ventas
 
             End Select
 
-            ImprimirbytesPDF(PdfFactura(ObjFactura), "Factura", "PDF")
+            ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False), "Factura", "PDF")
 
             Select Case ConversionRemision
                 Case "*"
@@ -16694,11 +16703,11 @@ Partial Class Ventas
 
         Dim dr As DataRow = Nothing
         If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {3} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc ")
+            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {3} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc ")
             If dr Is Nothing Then
 
                 'verifica marca, si tiene asignada la promocion
-                dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc")
+                dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc")
 
             End If
         End If
@@ -16714,7 +16723,7 @@ Partial Class Ventas
             TipoAplicacion = dr("TipoAplicacion").ToString().ToEntero()
 
             If CantMinima > 0 Then
-                Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero()
+                Cant = Math.Floor(Cantidad / CantMinima).ToEntero()
             End If
 
         End If
@@ -21517,7 +21526,7 @@ Partial Class Ventas
         Dim RFC As String = ""
 
         Dim XMLDoc As New XmlDocument
-        Dim Archivo As String = String.Format("{0}Empresas\{1}\Ventas\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Request("RFC"), $"{Request("CveFactura")}.xml")
+        Dim Archivo As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), $"{Request("CveFactura")}.xml")
         If IO.File.Exists(Archivo) Then
 
             Dim Validada As Boolean = True
@@ -22987,7 +22996,7 @@ Partial Class Ventas
                 RequiereAlmacenOrigen = True
                 DdlAlmacenOrigen.Items.Clear()
                 DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                DdlAlmacenOrigen.SelectedValue = "-1"
+                DdlAlmacenOrigen.SelectedValueExist("-1")
                 DdlAlmacenOrigen.DataBind()
                 DdlAlmacenOrigen.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoDestino").ToString()))
                 DdlAlmacenOrigen.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoDestino").ToString())
@@ -30052,7 +30061,7 @@ Partial Class Ventas
 
             For Each drow As DataRow In factura.DtDetalle.Rows
                 If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then
-                    If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, CveConcepto, factura.CveVenta, UsuarioActual.CveUsuario,
+                    If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, drow("Cantidad").ToString.ToDecimal, drow("CveTamaño").ToString.ToEntero, CveConcepto, factura.CveVenta, UsuarioActual.CveUsuario,
                                                          UsuarioActual.CveEmpresa, 0D, "") Then
                         Resultado = False
                         Exit For
@@ -31939,8 +31948,7 @@ Partial Class Ventas
             Adjunto = String.Format("{0}-{1}.{2}", LblSerie.Text, TxtFolio.Text, FileExtension)
             Dim objVentas As New ClsVentas
             Dim Path As String
-            Path = Extensiones.DirectorioBaseEmpresas
-            Path += String.Format("Empresas/{0}/Ventas", UsuarioActual.CveEmpresa)
+            Path = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)
             If Not Directory.Exists(Path) Then
                 Directory.CreateDirectory(Path)
             End If
@@ -31967,8 +31975,7 @@ Partial Class Ventas
 
     Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click
         Dim ruta As String = HttpContext.Current.Request.ApplicationPath
-        ruta = Extensiones.DirectorioBaseEmpresas
-        ruta += String.Format("Empresas/{0}/Ventas", UsuarioActual.CveEmpresa)
+        ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta)
         ruta += $"/{Adjunto}"
 
         Dim Archivo As New System.IO.FileInfo(ruta)
@@ -32003,7 +32010,7 @@ Partial Class Ventas
     Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click
         Dim objVentas As New ClsVentas
         Dim Path As String
-        Path = String.Format("{0}Empresas/{1}/Ventas/{2}", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Adjunto)
+        Path = String.Format("{0}Ventas/{1}", UsuarioActual.Empresa.Ruta, Adjunto)
         If File.Exists(Path) Then
             File.Delete(Path)
         End If

Ventas/eFacturas.aspx.vb

@@ -48,7 +48,7 @@ Partial Class Ventas_eFacturas
 
             txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
 
-            Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\"
+            Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta)
             Ejecutable = String.Format("{0}\Utilerias\eeeFacturas.exe", AppDomain.CurrentDomain.BaseDirectory)
             Form.DefaultButton = BtnConsultar.UniqueID
 
@@ -354,7 +354,7 @@ Partial Class Ventas_eFacturas
 
     Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs) Handles LnkNoRecibias.Click
         Dim dt As New DataTable
-        Dim Ruta As String = String.Format("{0}\Empresas\{1}\Compras\NoRecibidas-{1}.xml", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+        Dim Ruta As String = String.Format("{0}Compras\NoRecibidas-{1}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa)
         Dim Str As New StringBuilder
         If IO.File.Exists(Ruta) Then
             dt.ReadXml(Ruta)
@@ -464,7 +464,7 @@ Partial Class Ventas_eFacturas
         Dim ObjProcess As Process = Nothing
         Dim Mensajes As String = ""
         Dim EjecutableUtilerias = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\ADSUtilerias.exe")
-        Dim Folder = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\")
+        Dim Folder = UsuarioActual.Empresa.Ruta.Replace($"{UsuarioActual.CveEmpresa.ToString()}\", "") 'Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\")
         Dim error1 As Boolean = False
         Dim en As New CultureInfo("en-US")
         Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en)