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(),
                                                               dhProducts.Data() );
      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' );
        WebMessageBox::Success( ApplicationMacroPlanner, Translations::A_VWED_Success() );
      }
    }
    Form.Close();
  *]
}