Quintiq file version 2.0
|
#parent: #root
|
Method ClearSalesDemands (
|
MacroPlan macroplan
|
) as stream[Void]
|
{
|
Description: 'Delete all the sales demands( Forecast and CustomerOrders )'
|
TextBody:
|
[*
|
run := this.Run()
|
run
|
->UI_CustomerOrder::MenuDelete( macroplan, UTF_UnitTestMPBase::All() )
|
->|run->UI_CustomerOrder::VerifyNrOfRecords( macroplan, 0 )
|
->|run->UI_Forecast::MenuDelete( macroplan, UTF_UnitTestMPBase::All() )
|
->|run->UI_Forecast::VerifyNrOfRecords( macroplan, 0 )
|
->Exception()
|
->( e )
|
{
|
this.Run().RegisterFailure( e.Message() );
|
}
|
return Transaction::GetCurrentTask().OnFinish();
|
*]
|
InterfaceProperties { Accessibility: 'Module' }
|
}
|
