Ну, и для комплекта, код для Axapta 2.5 SP3.
Правда, просто копировать было не интересно, поэтому сделал несколько модификаций
- Единый многоуровневый ProgressBar
- Удаление выполняется прямыми командами SQL
- По окончании работы процедуры выводится Infolog с результатами работы (если было, что удалять)
- Добавлена краткая справка, вызываемая по F1 при открытой форме
- Добавлена опциональная возможность удаление во всех компаниях
- Добавлена опциональная возможность удалить складские остатки (InventSum) по окончании удаления складских аналитик