Ну, а чем не подходит обычная переменная типа NoYes errorMine
добавить ее в Classes\InventUpd_Physical\classDeclaration
Или, если уж не получится через класс - то всегда можно сделать доп. галочку на таблице - PurchTable, я так понимаю, в вашем случае. И ставить туда галку программно, если ошибка происходит.
