List Page Interaction classe Ax 2012

class SPLPayLeaveEncashListPageInteraction extends ListPageInteraction
{
    SPLPayLeaveEncash   SPLPayLeaveEncash;
}

=======================================================================
public void selectionChanged()
    {

        SPLPayLeaveEncash = this.listPage().activeRecord(queryDataSourceStr(SPLPayLeaveEncashListPage, SPLPayLeaveEncash));

        super();

            if(SPLPayLeaveEncash.Approved == NoYes::Yes || SPLPayLeaveEncash.ProcessWithSalary == NoYes::Yes  )
        {
            this.listPage().actionPaneControlEnabled(formControlStr(SPLPayLeaveEncashListPage, DeleteCommandButton), false);
        }
        else
        {
            this.listPage().actionPaneControlEnabled(formControlStr(SPLPayLeaveEncashListPage, DeleteCommandButton), true);
        }
    }