diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fb5b5faab..5f8f19a96 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6489,7 +6489,15 @@ Partial Class Compras_Compras
                                                                     End If
                                                                     Dim UsaComplementariaFleteImportaciones As Boolean = False
 
+                                                                    'DEBE METER EL CONCEPTO DE COMPRAS SI EL TIPO ES GASTO CON ALMACEN
+                                                                    If DdlTipoCompra.SelectedValue = "10" Then
+                                                                        ConceptoContabilizacion = 6
+                                                                    End If
+
                                                                     Select Case ConceptoContabilizacion
+                                                                        Case 6
+                                                                            importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"))
+                                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
                                                                         Case 176
                                                                             ConceptoContabilizacionME = 228
                                                                             ConceptoContabilizacionMEComp = 229
@@ -6510,8 +6518,14 @@ Partial Class Compras_Compras
                                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
                                                                     End Select
 
-                                                                    If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                    If ConceptoContabilizacion = 6 Then
+                                                                        If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+                                                                        End If
+                                                                    Else
+                                                                        If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                        End If
                                                                     End If
 
                                                                     If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
@@ -6605,6 +6619,26 @@ Partial Class Compras_Compras
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             End If
+                                                                        Case 6
+                                                                            Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+
+                                                                            For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
+
+                                                                                If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then
+                                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+                                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
+                                                                                    End If
+                                                                                End If
+
+                                                                                If importeMN <> 0 Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual,
+                                                                                                                         CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                End If
+                                                                            Next
+
                                                                     End Select
                                                                     'End If
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 03d0415ca..a3d970573 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1663,7 +1663,10 @@ Partial Class OC
         InicializaMovtosAlmacen()
 
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" And pCveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
-            RowCotizaciones.Visible = True
+            'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO
+            If CveConfianzaProveedor = 1 Then
+                RowCotizaciones.Visible = True
+            End If
             UpIvas.Update()
         End If
 
@@ -1823,6 +1826,8 @@ Partial Class OC
             DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
             DdlProveedores.SelectedText = "Seleccione"
             DdlProveedores.SelectedValue = "-1"
+            DdlProveedores.ddl.AutoPostBack = True
+
             DdlProveedorCot.setEsWebService(True)
             DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores")
         Else
@@ -1830,6 +1835,7 @@ Partial Class OC
             DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
             DdlProveedores.DataBind()
             DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlProveedores.ddl.AutoPostBack = True
 
             DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
             DdlProveedorCot.DataBind()
@@ -5352,6 +5358,14 @@ Partial Class OC
 
         VerificaSiRequiereCotizacion()
 
+        If UsuarioActual.Empresa.Funcionalidad(565) = "1" And CveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
+            'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO
+            If CveConfianzaProveedor = 1 Then
+                RowCotizaciones.Visible = True
+            End If
+            UpIvas.Update()
+        End If
+
         DdlProveedorSucursal.DataBind()
         UPProv.Update() : UPPEmp.Update()
         UPPDetalle.Update()