From 069d344f345f05f5619b315198b6aa1e4f87157d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 5 May 2021 10:41:14 -0700 Subject: [PATCH] Compras no bloquear Boton de guardar al solicitar OC --- Compras/Compras.aspx.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index bd1247c18..468820bed 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1358,7 +1358,7 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then If TmpDT.MAX("CvePS").ToEntero > 0 Then - BtnGuardar.Enabled = False + 'BtnGuardar.Enabled = False RegistraScript("$('#ImgBtnBuscarOC').click()") End If End If @@ -4083,9 +4083,15 @@ Partial Class Compras_Compras 'Verifica funcionalidad 128 "Require orden de compra para factura de compra" + Dim EsViatico As Boolean = False + + If RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 AndAlso DdlPersonalReembolso.SelectedValue.ToEntero > 0 Then + EsViatico = True + End If + If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then - If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then + If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal And Not EsViatico Then If Not CompraEstaVinculadaOC Then Alert("Debe de vincular una orden de compra para registrar la factura") Exit Sub