From 3b5a99bec48b3356d8f4d036b14c55d376809b86 Mon Sep 17 00:00:00 2001
From: admin <admin@admin.com>
Date: 星期五, 17 一月 2025 08:17:33 +0800
Subject: [PATCH] sap接口优化
---
_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def | 24 ++++++++++++++++++------
1 files changed, 18 insertions(+), 6 deletions(-)
diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def
index 9287f6e..659b1a1 100644
--- a/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def
+++ b/_Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def
@@ -6,12 +6,24 @@
Body:
[*
Form.ApplyChanges();
- componentmds := ApplicationScope.ComponentMDS();
- mdsinstance := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlMacroPlan.Data().DatasetMDSID() );
- handle := mdsinstance.GetMDSHandle()
- macroplan := handle.AsMacroPlan();
- AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, efFactory.Text(), macroplan, dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
-
+ 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() );
+ 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' );
+ }
+ }
Form.Close();
*]
}
--
Gitblit v1.9.3