-- cambio concepto 205

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)