From 7447dec7deaa90bb8c0860c838bcc36f6269df44 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Apr 2024 11:45:32 -0700 Subject: [PATCH] -- no mande a inventario EMD --- Compras/Compras.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f2dfcfd8d..c2bbe5fb2 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6284,8 +6284,9 @@ Partial Class Compras_Compras Case 6 'Compra Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then AgregaMercanciaInventario = False - Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") + Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Dim Insertado205 As Boolean = False @@ -6319,7 +6320,7 @@ Partial Class Compras_Compras 'COSTO ALMACEN Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa) - If UsuarioActual.Empresa.UsaInventarios Then + If AgregaMercanciaInventario Then DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN 'SI LA COMPRA ES DE TIPO GASTO CON ALMACEN DEBE REGISTRAR MOVIMIENTO @@ -6812,7 +6813,7 @@ Partial Class Compras_Compras End If Dim tTipoMovimiento As Boolean = TipoMovimiento - If DTDistinct.Rows.Count > 0 AndAlso Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145, 13, 83) Then + If DTDistinct.Rows.Count > 0 AndAlso Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then For Each Row2 As DataRow In DTDistinct.Rows tTipoMovimiento = TipoMovimiento 'DETERMINA IMPORTE