1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Quintiq file version 2.0
| #parent: #root
| Method OnOk () id:Method_DialogZEDPPSMS64_OnOk
| {
| #keys: '[415136.0.1043064582]'
| Body:
| [*
| Form.ApplyChanges();
|
| if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
| currentuser := QuintiqUser::CurrentUser().DisplayName();
| msg := '';
| loginfo := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser, msg );
| sucproduct := selectuniquevalues( loginfo, SAPResponseLoginfo, e, e.IsSuccess(), e.Msg() );
| // info( '--------------', sucproduct.Size(), loginfo.SAPResponseLoginfo( relsize ), sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) );
| if( sucproduct.Size() = loginfo.SAPResponseLoginfo( relsize ) ){
| WebMessageBox::Success( ApplicationMacroPlanner, '推送成功' );
| }else{
| WebMessageBox::Warning( ApplicationMacroPlanner, msg, 'Yes|No' );
| }
| }
| Form.Close();
| *]
| }
|
|
