OC. aspx. E13.si el proveedor es dedicado, solo debe de mostrarse la opcion de Cotizacion Rapida

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()