添加确认对话框

lazhen

2024-11-27 1ba69c3cf5c9e88d36db217bcc84ec8cda5d29b7

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def

@@ -15,10 +15,12 @@
    //handleT         := mdsinstanceT.GetMDSHandle()
    //macroplanT      := handleT.AsMacroPlan();
    
    if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
    currentuser     := QuintiqUser::CurrentUser().DisplayName();
    
    AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
    WebMessageBox::Success( "推送成功！" );
    }
    Form.Close();
  *]
}