Add Create/Update Method For SRMHeader

yanweiyuan3

2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Quintiq file version 2.0
#parent: #root
Method DeleteAllCustomerOrder (
  MacroPlan macroplan
)
{
  TextBody:
  [*
    if ( not isnull( macroplan ) )
    {
     customerorders := selectset( macroplan, SalesDemand.astype( CustomerOrder ), co, true );
     CustomerOrder::Delete( customerorders );   
      
    }
    else
    {
      key := DatasetController::Find( DatasetFindOptions::Construct( this.GetUTFDatasetname() ) );
      if ( key.Size() =0 )
      {
         wait := stream[Void]::Wait( Duration::Seconds( 10 ) );
         this->After( wait )->DeleteAllCustomerOrder( null( MacroPlan ))
      }
      else
      { 
        opt := DatasetFindOptions::Construct( this.GetUTFDatasetname() );
        mp := MDSMacroPlan::Find( opt );
        mp->( macroplan )
        {
          this.DeleteAllCustomerOrder( macroplan );  
        }
      } 
    }
  *]
  InterfaceProperties { Accessibility: 'Module' }
}