Quintiq file version 2.0 
 | 
#parent: ListFulfillmentRestriction 
 | 
Response OnClick () id:Response_ListFulfillmentRestriction_MenuCreate_OnClick 
 | 
{ 
 | 
  #keys: '[135040.0.186419311]' 
 | 
  CanBindMultiple: false 
 | 
  DefinitionID => /ListFulfillmentRestriction/Responsedef_ListFulfillmentRestriction_WebMenu_OnClick 
 | 
  Initiator: 'MenuCreate' 
 | 
  Precondition: 
 | 
  [* 
 | 
    ssegments   := ifexpr( DataHolderSelectedSalesSegmentFrmSalesSegment.Data().Size() >0,  
 | 
                           DataHolderSelectedSalesSegmentFrmSalesSegment.Data(),  
 | 
                           DataHolderSalesSegment.Data() ); 
 | 
     
 | 
    products    := DataHolderProduct.Data(); 
 | 
     
 | 
    return MacroPlan::HasMacroPlan( MacroPlan, feedback ) 
 | 
           and FulfillmentRestriction::CanCreate( MacroPlan, feedback ) 
 | 
           and FulfillmentRestriction::CanCreateWeb( feedback, ssegments, products ); 
 | 
  *] 
 | 
  UserRequiresReadWrite: true 
 | 
  QuillAction 
 | 
  { 
 | 
    Body: 
 | 
    [* 
 | 
      // New fulfillment restriction 
 | 
      ssegments   := ifexpr( DataHolderSelectedSalesSegmentFrmSalesSegment.Data().Size() >0,  
 | 
                             DataHolderSelectedSalesSegmentFrmSalesSegment.Data(),  
 | 
                             DataHolderSalesSegment.Data() ); 
 | 
      products := DataHolderProduct.Data(); 
 | 
       
 | 
      dlg := construct( DialogCreateEditFulfillmentRestriction ); 
 | 
      dlg.New( ssegments, products );  //create new fulfillment restriction with the selected SalesSegments + children 
 | 
    *] 
 | 
    GroupServerCalls: false 
 | 
  } 
 | 
} 
 |