1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Quintiq file version 2.0
| #parent: #root
| Method OnOk () id:Method_DialogZEDPPSPIR_OnOk
| {
| #keys: '[415136.0.1044120442]'
| Body:
| [*
| Form.ApplyChanges();
| if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
| msg := '';
| loginfo := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, MacroPlan, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName(), msg );
| sucproduct := selectuniquevalues( loginfo, SAPResponseLoginfo, e, e.IsSuccess(), e.Msg_v1() );
| if( sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) ){
| WebMessageBox::Success( ApplicationMacroPlanner, '推送成功' );
| }else{
| WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' );
| }
| }
| Form.Close();
| *]
| }
|
|
