AX / Dynamics 365 For Finance and Operations blog

This is a runnable class that extensds Runbase thet we want to obtain :

class ABJ_RunnableClassUnpostPayrollPayStatement extends RunBase
{
PayrollPayStatement payrollPayStatement;
PayrollPayStatementRecId payrollPayStatementRecId;
DialogField fldPayrollPayStatement;

public container pack()
{
return conNull();
}

public boolean unpack(container packedClass)
{
return true;
}

public Object dialog()
{
Dialog dialog = super();

dialog.caption(‘Unpost Payroll Pay Statement’);
fldPayrollPayStatement = dialog.addField(extendedTypeStr(PayrollPayStatementRecId), ‘Payroll Pay Statement’);
return dialog;
}

public boolean getFromDialog()
{
payrollPayStatementRecId = fldPayrollPayStatement.value();
return super();
}

public void run()
{
ttsbegin;
select forupdate payrollPayStatement
where payrollPayStatement.RecId == payrollPayStatementRecId ;

if (payrollPayStatement)
{
payrollPayStatement.PostedStatus = PayrollPayStatementPostedStatus::None;
payrollPayStatement.update();
}
ttscommit;
}

public static void main(Args _args)
{
ABJ_RunnableClassUnpostPayrollPayStatement unpostPayrollPayStatement = new ABJ_RunnableClassUnpostPayrollPayStatement();

if (unpostPayrollPayStatement.prompt())
{
unpostPayrollPayStatement.run();
}
}

}