1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| 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 := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
| WebMessageBox::Success( msg );
| }
| Form.Close();
| *]
| }
|
|
