diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 1ea810334..45ff1f778 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4645,7 +4645,7 @@ Namespace Modelos
                                                         Dim TotalCostoAcumulado As Decimal = 0
                                                         Dim cont As Integer = 1
 
-                                                        Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                        Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                                                         'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
                                                         For Each RowInv As DataRow In tmpCostos.Rows
                                                             ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
@@ -5350,7 +5350,7 @@ Namespace Modelos
             End If
 
 
-            CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             FacturaDevolucion.CveVenta = CveVenta
             FacturaDevolucion.CvePrePoliza = CvePrePoliza
 
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 46040fdab..7acdada23 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -14,7 +14,7 @@ Partial Class Inventarios_KardexAlmacen
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
             pnlOrden.Visible = False
-            If UsuarioActual.CveEmpresa = 141 Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 pnlOrden.Visible = True
                 DdlOrden.SelectedValue = 2
             End If
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index fe3846255..7b394c0fd 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1234,6 +1234,10 @@ Partial Class OC
 
             If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                 CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero
+                'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                If CveConfianzaProveedor <= 0 Then
+                    CveConfianzaProveedor = 2
+                End If
             End If
 
             'Anticipos
@@ -5335,9 +5339,17 @@ Partial Class OC
             If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                 If Objeto.DtResultados.Rows.Count > 0 Then
 
-                    Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
-                    ChkCotizacion.Checked = CveConfianzaProveedor > 0
-                    ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
+                    If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                        Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                        'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                        If CveConfianzaProveedor <= 0 Then
+                            CveConfianzaProveedor = 2
+                        End If
+
+                        ChkCotizacion.Checked = CveConfianzaProveedor > 0
+                        ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
+                    End If
+
                 End If
             End If
 
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 963dfcda5..51997adf9 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2607,10 +2607,10 @@ Partial Class ProductosyServicios
     End Sub
 
     Protected Sub BtnAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then
-            Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then
+        '    Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
 
         Dim Row As DataRow = Nothing
         Row = DtSeccionAlmacen.NewRow