From f2317747e6c62902f02786a88e35757375ed0b9b Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 May 2023 11:59:33 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20de=20salidas=20de=20=20g?= =?UTF-8?q?arant=C3=ADa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 552ac743b..eb1cb8e32 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5490,7 +5490,7 @@ Partial Class Compras_Compras Dim ImporteConcepto As Decimal = 0 Dim CveConceptoMovimiento As Integer = 2 'apoyo logistico/garantia - If UsuarioActual.CveEmpresa = 140 AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then CveConceptoMovimiento = 13 End If If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then