Quintiq file version 2.0 
 | 
#parent: ToolbarMain/LabelNewCalendarExport 
 | 
Response OnTextChanged () id:Response_ToolbarMain_LabelNewCalendarExport_OnTextChanged 
 | 
{ 
 | 
  #keys: '[136682.2.1572674199]' 
 | 
  Body: 
 | 
  [* 
 | 
    //Workaround to export Calendars.xlsx 
 | 
    if ( this.Text() = LabelExportID.Text() ) 
 | 
    { 
 | 
      bindata := MacroPlan.CalendarImportExport().GetExportData().AsBinaryData(); 
 | 
      path := ScenarioManager.GetUserSetting().ImportExportPath(); 
 | 
       
 | 
      exportpath:= path +"\" + LibCal_ImportExport::DEFAULT_EXPORT_FILENAME();  
 | 
      Application.WriteBinaryFile( exportpath, bindata ); 
 | 
      //clean up the path 
 | 
      LabelExportID.Text(""); 
 | 
    } 
 | 
  *] 
 | 
  CanBindMultiple: false 
 | 
  DefinitionID: 'Responsedef_Label_OnTextChanged' 
 | 
  Precondition: 
 | 
  [* 
 | 
    return not isnull( MacroPlan ); 
 | 
  *] 
 | 
} 
 |