Удалить всех пользователей которые не делали заказов в магазине 1С-Битрикс

Получаем список пользователей и заказ пользователя

Сначала нужно получить список всех пользователей и определитть есть ли у пользователя хотя бы один заказ. Если ни одного заказа нет, удаляем пользователя.

CModule::IncludeModule('sale');
global $USER;

$rsUsers = CUser::GetList(
    ($by = "ID"),
    ($order = "desc"),
    false
);
while ($arUser = $rsUsers->Fetch()) {
    $dbOrders = CSaleOrder::GetList(
        false,
        array(
            'USER_ID' => $arUser['ID']
        ),
        false,
        array (
            'nTopCount' => '1'
        )
    );
    while ($arOrder = $dbOrders->Fetch()){
        $userHasOrder = $arOrder['ID'];
    }
    if (!$userHasOrder) {
        CUser::Delete($arUser['ID']);
    }
    unset($userHasOrder);
}

Внимание! Проверки на группу пользователя нет, удалятся все пользователи (включая администраторов- кроме пользователя ID=1) если у них нет заказов. Что бы исключить определенные группы, воспользуйтесь заметкой ORM UserTable в 1С-Битрикс.
Или перейдите к комментариям - там есть вариант для удаления из определенной группы пользователей.

• CModule::IncludeModule('sale'); - подключили модуль sale
• С помощью CUser::GetList получили список всех пользователей
• Внутри цикла перебора пользователей использовали CSaleOrder::GetList, что бы получить список заказов пользователя (фильтр 'USER_ID' => $arUser['ID']).
• Достачтоно знать хотя бы об одном заказе, что бы скрипт отрабатал быстрее, поэтому используем ограничение выборки nTopCount => '1'
• Если у пользователя есть заказ, в переменную $userHasOrder передаем ID заказа (не обязательно, можно просто создать эту переменную $userHasOrder = true)
• Если переменная $userHasOrder не существует, значит у пользователя нет заказов, удаляем пользователя методом CUser::Delete
• Удаляем переменную $userHasOrder с помощью unset, что бы не передалась дальше по циклу перебора пользователей.

Таким образом, после отработки скрипта, на сайте осталось всего 5 000 пользователей вместо 360 000 мертвых душ.