PR

yypsybs

2023-09-13 795184402d79c6c4ce7bb7cb0babfcb175c51982

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Quintiq file version 2.0
#parent: mbMainMenu/MenuExportMPSPlan
Response OnClick () id:Response_mbMainMenu_MenuExportMPSPlan_OnClick
{
  #keys: '[139394.1.905678296]'
  Body:
  [*
    // Export planned orders to destination folder
    filepath := Application.GetOpenFolderName();
    data := BinaryValue::Construct();       
    brokername := typeof( MP_ExportMPSPlanBroker ).Name();
    broker := select( Domain, EDIDefinitionManager.BrokerDefinitions, broker, broker.Name() = brokername );
    if( not isnull( broker ) )
    { 
      filename := broker.Destination().astype( EDIXLSLinkDefinition ).FileName();
      MacroPlan.ExportToMPSync( MPSync, data );
      filepath := filepath + "/" + filename + ".xlsx";
      Application.WriteBinaryFile( filepath, data.AsBinaryData() );
    }
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_Menu_OnClick'
  Precondition:
  [*
    return MacroPlan::HasMacroPlan( MacroPlan, feedback );
  *]
}