From 63dcf47d0c960241af0382b08a72e8b0aed4c99d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Apr 2021 21:34:28 -0700 Subject: [PATCH] =?UTF-8?q?funcionalidad=20128,.=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ac7337fa9..d090cd757 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1355,7 +1355,7 @@ Partial Class Compras_Compras GvInv.Visible = True CargaProveedor(-1, RFC) - If Not DdlTipoComprobante.SelectedValue = "NC" Then + 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 @@ -4060,13 +4060,15 @@ Partial Class Compras_Compras ' DtNoEncontrados.Dispose() 'End If - 'Verifica funcionalidad 702 "Require orden de compra para factura de compra" + 'Verifica funcionalidad 128 "Require orden de compra para factura de compra" - If UsuarioActual.Empresa.Funcionalidad(128) <> "" Then - If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then - If Not CompraEstaVinculadaOC Then - Alert("Debe de vincular una orden de compra para registrar la factura") - Exit Sub + 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 CompraEstaVinculadaOC Then + Alert("Debe de vincular una orden de compra para registrar la factura") + Exit Sub + End If End If End If End If