From e39864726f212a00ca7b1bbd6a154fad5e7851af Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Sep 2023 07:15:38 -0700 Subject: [PATCH] =?UTF-8?q?--=20verificaion=20de=20cotizaci=C3=B3n=20en=20?= =?UTF-8?q?E119?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index a68e38494..7ac3bc202 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2377,6 +2377,10 @@ Partial Class OC_OC Private Function ValidaGuardar() As Boolean Dim TieneError As Boolean = False + If UsuarioActual.CveEmpresa.Contiene(119) Then + ChkCotizacion.Checked = False + End If + If CboE.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then Alert("Las ordenes de compra no puede tener el estatus 'Pre Solicitud'. Debe ser una requisición", TipoMensaje.MsgAdvertencia) Return True @@ -2608,10 +2612,6 @@ Partial Class OC_OC 'VALIDACIONES PARA GUARDAR If ValidaGuardar() Then Exit Sub - If UsuarioActual.CveEmpresa.Contiene(119) Then - ChkCotizacion.Checked = False - End If - Dim MsgError As String = "Hubo un error al registrar" 'VARIABLES Dim CveProveedorSucursal As Integer = -1