From 01f7975b466807ce627f40f9abe45a6d99580325 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Oct 2023 13:13:34 -0700
Subject: [PATCH] -- cambio concepto 205

---
 Compras/Compras.aspx.vb | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7ca21003d..ea507a976 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -13718,7 +13718,10 @@ Partial Class Compras_Compras
                 End If
             Next
             ObjOC.Dispose()
-            Dim CveConceptoAlmacenSugerido As String = "205"
+            Dim CveConceptoAlmacenSugerido As String = "-1"
+            If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es empresa citrícola
+                CveConceptoAlmacenSugerido = "205"
+            End If
             'MOVIMIENTOS DE ALMACÉN
             Dim ObjInventarios As New ClsInventarios
             Dim FoliosOCAlmacen As String = ""
@@ -13726,7 +13729,11 @@ Partial Class Compras_Compras
                 If ObjInventarios.GetMovimientosOC(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) Then
                     If ObjInventarios.DtResultados.Rows.Count > 0 Then
                         FoliosOCAlmacen = $"{ObjInventarios.DtResultados.FiltroPrimeroValor("FolioOC")},"
-                        CveConceptoAlmacenSugerido = "176"
+                        ''
+                        If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es empresa citrícola
+                            CveConceptoAlmacenSugerido = "176"
+                        End If
+
                     End If
                 Else
                     Alert("Ocurrió un error al cargar los movimientos de almacén de la orden de compra", TipoMensaje.MsgError)