Quintiq file version 2.0
|
#parent: pnlToolbar/lblExportID
|
Response OnTextChanged () id:Response_pnlToolbar_lblExportID_OnTextChanged
|
{
|
#keys: '[131094.0.2122155904]'
|
Body:
|
[*
|
// In this case, the calendar is the exportSource (instead of type ImportExport).
|
exportSource := Dialog.Data();
|
if( not isnull( exportSource ) )
|
{
|
// Only do something if the current Client has triggered the export.
|
if( vhExportID.Data() <> Key::ZeroKey() and
|
this.Text() = [String]vhExportID.Data() )
|
{
|
// Get the ExportData right away to prevent that it might be overwritten by next export-action
|
// while the user is selecting a file.
|
binData := exportSource.GetExportData().AsBinaryData();
|
|
// Ask the user for the filename.
|
fileName := Application.GetSaveFileName( LibCal_ImportExport::DEFAULT_EXPORT_FILENAME(), "xlsx", "XLSX-files" );
|
|
if( fileName <> "" )
|
{
|
// Write the data to a file on the Client-machine.
|
Application.WriteBinaryFile( fileName, binData );
|
|
// Check if the file has been written succesfully.
|
if( not Application.ClientFileExists( fileName ) )
|
{
|
LibCal_Util::Info( "something went wrong while writing file '" + fileName + "'." );
|
}
|
}
|
|
// Reset
|
vhExportID.Data( Key::ZeroKey() );
|
}
|
}
|
*]
|
CanBindMultiple: false
|
DefinitionID: 'Responsedef_Label_OnTextChanged'
|
}
|
