Nivel de confianza al proveedor en requisiciones

App_Code/ClsCompProveedores.vb

@@ -419,7 +419,8 @@ Public Class ClsCompProveedores
             IdCtaContFondoGarantia As Integer, CtaContFondoGarantia As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaContRetISRAcreditable As Integer, CtaContRetISRACreditable As String,
             IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
             Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
-            Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "") As Boolean
+            Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
+            Optional CveConfianzaProveedor As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -520,6 +521,8 @@ Public Class ClsCompProveedores
             .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
             .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
 
+            .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
+
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
 
@@ -559,7 +562,8 @@ Public Class ClsCompProveedores
                                     IdCtaContFondoGarantia As Integer, CtaContFondoGarantia As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaContRetISRAcreditable As Integer, CtaContRetISRACreditable As String,
                                     IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
                                     Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
-                                    Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "") As Boolean
+                                    Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
+                                    Optional CveConfianzaProveedor As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorUpdate")
@@ -661,6 +665,8 @@ Public Class ClsCompProveedores
             .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
             .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
 
+            .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
+
         End With
 
         Try

Compras/Proveedores.aspx

@@ -340,16 +340,22 @@
                                                         <asp:DropDownList ID="DdlMonedaPrefente" runat="server" CssClass="form-control select2me input-sm" Width="206px" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
                                                     </td>
                                                 </tr>
-
+                                                <tr id="TrConfianzaProveedor" runat="server" visible="false">
+                                                    <td>Nivel de confianza al proveedor:</td>
+                                                    <td>
+                                                        <asp:DropDownList ID="DdlConfianzaProveedor" runat="server" CssClass="form-control select2me input-sm" Width="206px">
+                                                            <asp:ListItem Text="Seleccione" Selected="True" Value="-1"></asp:ListItem>
+                                                            <asp:ListItem Text="Proveedor dedicado" Value="1"></asp:ListItem>
+                                                            <asp:ListItem Text="Proveedor requiere cotización" Value="2"></asp:ListItem>
+                                                        </asp:DropDownList>
+                                                    </td>
+                                                </tr>
                                                 <tr style="display: none">
                                                     <td>Estatus SAT:</td>
                                                     <td>
                                                         <asp:Label ID="LblSituacionSAT" runat="server"></asp:Label>
                                                     </td>
                                                 </tr>
-
-
-
                                             </table>
                                         </div>
                                     </div>

Compras/Proveedores.aspx.vb

@@ -433,6 +433,10 @@ Partial Class Compras_Proveedores
                 UpEvaluaciones.Update()
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                TrConfianzaProveedor.Visible = True
+            End If
+
             If UsuarioActual.TienePermisoProceso(273) Then
                 GvA.Columns(5).Visible = True
             End If
@@ -718,12 +722,13 @@ Partial Class Compras_Proveedores
                 DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
                 DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
 
+                DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
+
                 DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
                 DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
                 DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
 
 
-
                 If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
 
                 If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
@@ -1377,7 +1382,8 @@ Partial Class Compras_Proveedores
                 DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
                 DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                 DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
-                AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text) Then
+                AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
+                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
 
                 Dim NuevoCveProveedor = ObjProveedores.CveProveedor
 
@@ -1530,7 +1536,8 @@ Partial Class Compras_Proveedores
                         DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
                         DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
                         DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
-                        DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text) Then
+                        DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
+                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
                 'CargaDatos()
 
 

OC/OC.aspx.vb

@@ -432,6 +432,22 @@ Partial Class OC
             ViewState("CveMovimientoAlmacenVenta") = value
         End Set
     End Property
+    Private Property CveConfianzaProveedor As Integer
+        Get
+            Return IfNull(ViewState("CveConfianzaProveedor"), -1).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveConfianzaProveedor") = value
+        End Set
+    End Property
+    Private Property CveEstatusSupervisada As Integer
+        Get
+            Return IfNull(ViewState("CveEstatusSupervisada"), -1).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstatusSupervisada") = value
+        End Set
+    End Property
 
 
     Private Property CveDireccionEnvio As Integer
@@ -480,11 +496,6 @@ Partial Class OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
-
-                'PnlProveedor.Visible = True
-                'UPProv.Update()
-
-                'NUEVO
             Else
                 EsNuevo = True
                 InicializarValores()
@@ -575,15 +586,6 @@ Partial Class OC
                 'ASIGNA ESTATUS OC
                 CboE_SelectedIndexChanged(New Object, New EventArgs)
 
-                ''SI REQUIERE COTIZACION 
-                'If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero <> CveEstatusFinalOK Then
-                '    PnlProveedor.Visible = False : UPProv.Update()
-                '    DdlIVA.Visible = False
-                'ElseIf ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalOK Then
-                '    PnlProveedor.Visible = True : UPProv.Update()
-                '    DdlIVA.Visible = True
-                'End If
-
             End If
 
 
@@ -1152,6 +1154,10 @@ Partial Class OC
             CveCompra = objOC.CveCompra
             CveMovimientoAlmacenVenta = objOC.CveMovimientoAlmacenVenta
 
+            If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero
+            End If
+
             'Anticipos
             CargarOptionAnticipos()
             Dim objbancos As New ClsBancos
@@ -1214,6 +1220,9 @@ Partial Class OC
 
             DdlPrioridad.SelectedValueExist(objOC.Prioridad.ToString)
             ChkCotizacion.Checked = objOC.RequiereCotizacion
+            If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                ChkCotizacion.Enabled = False
+            End If
             tabCotizaciones.Enabled = objOC.RequiereCotizacion
             tabCotizaciones.UpdatePanelID = uppOpciones.ID
             TxtGuia.Text = objOC.Guia
@@ -1436,7 +1445,11 @@ Partial Class OC
             'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS
             If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then
                 GvD.Columns(9).Visible = True 'No permitir la edicion
+                If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                    ChkCotizacion.Enabled = False
+                Else
                     ChkCotizacion.Enabled = True
+                End If
                 TxtDescrip.Enabled = True
                 TxtJustificacion.Enabled = True
                 TxtFechaEstimadaEntrega.Enabled = True
@@ -1560,7 +1573,7 @@ Partial Class OC
         'CARGA MOVTOS DE ALMACEN
         InicializaMovtosAlmacen()
 
-
+        uppEstatus.Update()
     End Sub
 
     Protected Sub CargaHistorial()
@@ -1735,10 +1748,14 @@ Partial Class OC
         Dim drInicial As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 3 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 3 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
         Dim drFinalOK As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 1 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 1 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
         Dim drFinalError As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 2 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 2 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
+        Dim drSupervisada As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 0 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 0 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
+
 
         If Not drInicial Is Nothing Then CveEstatusInicial = drInicial("CveEstatus").ToString.ToEntero : EstatusInicial = drInicial("Estatus").ToString Else CveEstatusInicial = -1 : EstatusInicial = ""
         If Not drFinalOK Is Nothing Then CveEstatusFinalOK = drFinalOK("CveEstatus").ToString.ToEntero : EstatusFinalOK = drFinalOK("Estatus").ToString Else CveEstatusFinalOK = -1 : EstatusFinalOK = ""
         If Not drFinalError Is Nothing Then CveEstatusFinalError = drFinalError("CveEstatus").ToString.ToEntero : EstatusFinalError = drFinalError("Estatus").ToString Else CveEstatusFinalError = -1 : EstatusFinalError = ""
+        If Not drSupervisada Is Nothing Then CveEstatusSupervisada = drSupervisada("CveEstatus").ToString.ToEntero
+
     End Sub
     Private Sub CargaComboCFDI()
         DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI
@@ -2167,24 +2184,45 @@ Partial Class OC
             TieneError = True
         End If
 
+        'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
+        If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+            If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
+                TieneError = True
+            End If
+        End If
+
+        'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER
+        If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0 AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then
+            If CveConfianzaProveedor > 0 Then
+
+                If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones < 1 Then
+                    Alert("Para el proveedor seleccionado es necesario terner al menos 1 cotización.", TipoMensaje.MsgAdvertencia)
+                    TieneError = True
+                ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones < 2 Then
+                    Alert("Para el proveedor seleccionado es necesario terner al menos 2 cotizaciones", TipoMensaje.MsgAdvertencia)
+                    TieneError = True
+                End If
+
+            End If
+        End If
+
+        If Not UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
             If ChkCotizacion.Checked And DtDetalle.FiltraParametros("ISNULL(CveProveedor,0) <= 0", "CveProveedor").Rows.Count > 0 Then
                 Alert("Todos los conceptos de la Requisición deben tener proveedor ganador seleccionado.", TipoMensaje.MsgAdvertencia)
                 TieneError = True
             End If
+        End If
 
 
         Return TieneError
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
-        'If CveEmpresaActual = 66 AndAlso notienepresupuesto() Then
-        '    Exit Sub
-        'End If
-
 
         'VALIDACIONES PARA GUARDAR
         If ValidaGuardar() Then Exit Sub
 
-
+        Dim MsgError As String = "Hubo un error al registrar"
         'VARIABLES
         Dim CveProveedorSucursal As Integer = -1
         Dim CveProveedorContacto As Integer = -1
@@ -2226,7 +2264,7 @@ Partial Class OC
             End If
 
             'siempre se esta guardando el proveedor
-            If Not ChkCotizacion.Checked Then
+            If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
                 CveProveedor = DdlProveedores.SelectedValue.ToEntero
                 CveProveedorSucursal = DdlProveedorSucursal.SelectedValue.ToEntero
                 CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero
@@ -2386,7 +2424,9 @@ Partial Class OC
             Dim FueModificada As Boolean = False
 
             'siempre se esta guardando el proveedor
-            If Not ChkCotizacion.Checked Then CveProveedor = DdlProveedores.SelectedValue.ToEntero
+            If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
+                CveProveedor = DdlProveedores.SelectedValue.ToEntero
+            End If
 
             If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                     LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.SelectedValue.ToEntero,
@@ -2683,7 +2723,25 @@ Partial Class OC
             'SI requiere Cotizacion y el estatus a el que se actualizo es el FinalOK, generar las ordenes de compra
             If Not TieneError Then
                 If TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero Then
+
+                    If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                        If CveConfianzaProveedor > 0 Then
+
+                            If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones >= 1 Then
                                 TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
+                            ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones >= 2 Then
+                                TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
+                            Else
+                                TieneError = True
+                            End If
+
+                        Else
+                            TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
+                        End If
+                    Else
+                        TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
+                    End If
+
                 End If
             End If
 
@@ -2726,7 +2784,7 @@ Partial Class OC
             Else
                 OC.RollBack()
                 If Conta IsNot Nothing Then Conta.RollBack()
-                Alert("Hubo un error al registrar", TipoMensaje.MsgError)
+                Alert(MsgError, TipoMensaje.MsgError)
             End If
 
         End If
@@ -4826,10 +4884,15 @@ Partial Class OC
     Protected Sub VerificaSiRequiereCotizacion()
         If TipoOC = "REQ" Then
             If ChkCotizacion.Checked Then
+                If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                    If CveOrdenCompra > 0 AndAlso CveEstatus.Contiene(CveEstatusSupervisada, CveEstatusFinalOK) Then
+                        DdlProveedores.Attributes.Add("disabled", "disabled")
+                        DdlProveedores.Enabled = False
+                        ImgCambiaProv.Visible = False
+                    End If
+                Else
                     PnlProveedor.Visible = False
-
-                '12/04/2018
-                'DdlIVA.Visible = False
+                End If
 
                 UPProv.Update() : UPPEmp.Update()
                 BtnGuardar.Text = "Guardar"
@@ -4839,19 +4902,13 @@ Partial Class OC
                 ''temporal, si es nueva, le podras mover el proveedor, pero si ya esta registrada, debes de tener permisos para hacerlo
                 If CveOrdenCompra = 0 OrElse (CveOrdenCompra > 0 AndAlso UsuarioActual.TienePermisoProceso(106) AndAlso ChkCotizacion.Checked = False) Then
                     PnlProveedor.Visible = True : UPProv.Update() : UPPEmp.Update()
-
-                    '12/04/2018
-                    'DdlIVA.Visible = True
-
-                    'CVPU.Enabled = True
+                    DdlProveedores.Enabled = True
                 End If
                 BtnGuardar.Enabled = True
                 If CveEstatus = CveEstatusFinalOK Then
                     BtnGuardar.Text = String.Format("Guardar{0}", If(CboE.SelectedValue.ToEntero = CveEstatusFinalOK, " y Generar OC", ""))
                     PnlProveedor.Visible = True
-
-                    '12/04/2018
-                    'DdlIVA.Visible = True
+                    DdlProveedores.Enabled = True
 
                     UPProv.Update() : UPPEmp.Update()
                 End If
@@ -4953,14 +5010,19 @@ Partial Class OC
                 End If
             End If
 
-            'MONEDA PREFERENTE
-            If CveOrdenCompra <= 0 Then
             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
+                End If
+            End If
+
+            'MONEDA PREFERENTE
+            If CveOrdenCompra <= 0 Then
                 DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente)
             End If
-                End If
-            End If
 
             'MUESTRA IVA PROVEEDOR EXTRANJERO
             If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
@@ -4979,9 +5041,13 @@ Partial Class OC
         End If
 
         Objeto.Dispose()
+
+        VerificaSiRequiereCotizacion()
+
         DdlProveedorSucursal.DataBind()
         UPProv.Update() : UPPEmp.Update()
         UPPDetalle.Update()
+        uppEstatus.Update()
 
     End Sub
 
@@ -4999,14 +5065,8 @@ Partial Class OC
 
             If ChkCotizacion.Checked = False Then
                 PnlProveedor.Visible = True : UPProv.Update()
-
-                '12/04/2018
-                'DdlIVA.Visible = True
             Else
-                PnlProveedor.Visible = False : UPProv.Update()
-
-                '12/04/2018
-                'DdlIVA.Visible = False
+                PnlProveedor.Visible = UsuarioActual.Empresa.Funcionalidad(565) = "1" : UPProv.Update()
             End If
 
             If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then
@@ -5030,24 +5090,9 @@ Partial Class OC
                 uppOpciones.Update()
             End If
 
-            'temporal
-            If ChkCotizacion.Checked = False AndAlso CveEstatus <> CveEstatusFinalOK Then
-                '   PnlProveedor.Visible = True : UPProv.Update() : UPPEmp.Update()
-
-                '12/04/2018
-                'DdlIVA.Visible = True
-
-                'CVPU.Enabled = True
-            End If
 
             If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalError AndAlso TipoOS = False Then
                 BtnGuardar.Text = "Guardar" : uppOpciones.Update()
-                'PnlProveedor.Visible = False : UPProv.Update() : UPPEmp.Update()
-
-                '12/04/2018
-                'DdlIVA.Visible = False
-
-                'CVPU.Enabled = True
                 If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ")
             End If
         Else
@@ -5060,13 +5105,6 @@ Partial Class OC
         End If
 
         UPPEmp.Update()
-
-        'If TipoOC.ToUpper = "REQ" AndAlso ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalOK Then
-        '    trProveedor.Visible = True
-        '    UPPEmp.Update()
-        'End If
-        'Si NO requiere cotizacion y el estatus siguiente es el final, el Boton Guardar sera Guardar Y Generar Orden
-        '   If CveOrdenCompra > 0 AndAlso ChkCotizacion.Checked = False AndAlso CveEstatusSiguiente = CveEstatusFinalOK Then BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update()
     End Sub
 
 #Region "  DATOS DE VENTA (PORLET)  "