[Eldar9x]

В ValidateField точно также два раза вызывается диалог...

public boolean validateField(fieldId _fieldIdToCheck)
{
    boolean ret;

    ret = super(_fieldIdToCheck);

    switch (_fieldIdToCheck)
    {
    case fieldnum(DiscountCard_Cards, CardType):
        if (this.RecId && this.CardType != this.orig().CardType)
            ret = ret && this.canModifyCardType() && Box::okCancel("Будет удалена ссылка на сотрудника или клиента.", DialogButton::Ok) == DialogButton::Ok;
        break;
    default:
        break;
    }

    return ret;
}