From aa30b45d5f8a8fa1794561e8f06c160ad06a962d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:07:18 -0700 Subject: [PATCH] =?UTF-8?q?--=20se=20agreg=C3=B3=20parametro=20empresa,=20?= =?UTF-8?q?al=20actualiza=20estatus=20de=20efactura?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index b86aee900..0ae3f3774 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1711,7 +1711,7 @@ Partial Class Compras_Compras If Valida.EsValida = 2 Then Validada = False - If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura) Then + If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura, UsuarioActual.CveEmpresa) Then End If @@ -4707,7 +4707,7 @@ Partial Class Compras_Compras If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero End If - If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido + If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido CveConceptoContableAlmacen = 205 End If Else