diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 99ab5f5f1..9b8d3599d 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2788,7 +2788,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs)
         If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcelConceptos.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             CargarArchivoConceptos(Directorio, file.filename)
             RegistraScript("$('#DivCargaExcelConceptos').modal('hide');")
         Else
@@ -2873,20 +2873,18 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
                     If RowExcel("Codigo").ToString() <> "" Then
-
+                        Dim Valido As Boolean = True
 
                         Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
-                        Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
-                        Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
+                        If RowPS IsNot Nothing Then
 
-                        Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
-                        Dim SerieLote As String = RowExcel("SerieLote").ToString()
-                        Dim Observaciones As String = RowExcel("Observaciones").ToString()
+                            Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
+                            Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
 
-                        If CveProducto > 0 Then
-
-                            Dim Valido As Boolean = True
+                            Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
+                            Dim SerieLote As String = RowExcel("SerieLote").ToString()
+                            Dim Observaciones As String = RowExcel("Observaciones").ToString()
 
                             Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero()
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index b3456153b..0d37f9306 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -4811,7 +4811,7 @@ Partial Class OC
         Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
 
         For Each fileItem As Archivo In Filesgral
-            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             Filename = fileItem.filename
         Next
 
@@ -6102,7 +6102,7 @@ Partial Class OC
     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 = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else
@@ -7509,7 +7509,7 @@ Partial Class OC
     Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
         If TxtExcelCot.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             CargarArchivoCot(Directorio, file.filename)
 
             CargaCotizaciones(CveOrdenCompra)