From 1ba69c3cf5c9e88d36db217bcc84ec8cda5d29b7 Mon Sep 17 00:00:00 2001 From: lazhen <17772815105@139.com> Date: 星期三, 27 十一月 2024 12:10:01 +0800 Subject: [PATCH] 添加确认对话框 --- _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def index f948597..05d0b9e 100644 --- a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def +++ b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def @@ -6,8 +6,10 @@ Body: [* Form.ApplyChanges(); - AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() ); - WebMessageBox::Success( "鎺ㄩ�佹垚鍔燂紒" ); + if( WebMessageBox::Question( this, '鏄惁纭鎺ㄩ��', 'OK|Cancel' ) = 0 ){ + AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() ); + WebMessageBox::Success( "鎺ㄩ�佹垚鍔燂紒" ); + } Form.Close(); *] } -- Gitblit v1.9.3