Quintiq file version 2.0 
 | 
#parent: PanelOrderLockHeader_545/DateSelectorOrderLockHeaderPlanDeliver 
 | 
Response OnChanged () id:Response_PanelOrderLockHeader_545_DateSelectorOrderLockHeaderPlanDeliver_OnChanged 
 | 
{ 
 | 
  #keys: '[412960.0.221842649]' 
 | 
  CanBindMultiple: false 
 | 
  DefinitionID: 'Responsedef_WebDateTimeFieldBase_OnChanged' 
 | 
  GroupServerCalls: true 
 | 
  QuillAction 
 | 
  { 
 | 
    Body: 
 | 
    [* 
 | 
      existfilter := DataExtractorOrderLock.FixedFilter(); 
 | 
      if( existfilter = "true" ){ 
 | 
        existfilter := ""; 
 | 
        } 
 | 
      existfilterlist := existfilter.Tokenize( " and " ); 
 | 
       
 | 
      newfilter := ""; 
 | 
      findcount := 0; 
 | 
      traverse( existfilterlist, Elements, filter ){ 
 | 
        if( filter.FindString( "End()", 0 ) >= 0 and filter.FindString( "EndDate()", 0 ) < 0 ){ 
 | 
          if( newfilter = "" ){ 
 | 
            newfilter := "( object.First().AsPlanningBaseSalesDemandInPeriod().End().Date() = " + this.Date().AsQUILL() + " )"; 
 | 
            }else{ 
 | 
              newfilter := newfilter + " and " + "( object.First().AsPlanningBaseSalesDemandInPeriod().End().Date() = " + this.Date().AsQUILL() + " )"; 
 | 
              } 
 | 
          findcount := 1; 
 | 
          }else{ 
 | 
            if( newfilter = "" ){ 
 | 
              newfilter := filter; 
 | 
              }else{ 
 | 
                newfilter := newfilter + " and " + filter; 
 | 
                } 
 | 
            } 
 | 
        } 
 | 
       
 | 
      if( findcount = 0 ){ 
 | 
        if( newfilter = "" ){ 
 | 
          newfilter := "( object.First().AsPlanningBaseSalesDemandInPeriod().End().Date() = " + this.Date().AsQUILL() + " )"; 
 | 
          }else{ 
 | 
            newfilter := newfilter + " and " + "( object.First().AsPlanningBaseSalesDemandInPeriod().End().Date() = " + this.Date().AsQUILL() + " )"; 
 | 
            } 
 | 
        } 
 | 
       
 | 
      info( newfilter ); 
 | 
       
 | 
      DataExtractorOrderLock.FixedFilter( newfilter ); 
 | 
    *] 
 | 
  } 
 | 
} 
 |