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
28
29
| 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,
| InterfaceDataset.IsPushSAP_PIR() );
| 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();
| *]
| }
|
|
