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 );
  *]
}