From b50831e667122167c0c516300d2afd844560955a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 26 Aug 2020 17:58:11 -0700
Subject: [PATCH] OC. aspx. E13.si el proveedor es dedicado, solo debe de
 mostrarse la opcion de Cotizacion Rapida

---
 OC/OC.aspx.vb | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

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