From 472c228ef6d7c8d877558ff90051b1fdb35ffb5c Mon Sep 17 00:00:00 2001 From: renhao <renhui.hao@capgemini.com> Date: 星期二, 10 十月 2023 14:05:34 +0800 Subject: [PATCH] Merge branch 'dev' --- _Main/UI/MacroPlannerWebApp/Component_FrmAuthorizeAndCountersign_Material/Response_OnCreated.def | 23 ++++++++++------------- 1 files changed, 10 insertions(+), 13 deletions(-) diff --git a/_Main/UI/MacroPlannerWebApp/Component_FrmAuthorizeAndCountersign_Material/Response_OnCreated.def b/_Main/UI/MacroPlannerWebApp/Component_FrmAuthorizeAndCountersign_Material/Response_OnCreated.def index a76472b..0b8df6f 100644 --- a/_Main/UI/MacroPlannerWebApp/Component_FrmAuthorizeAndCountersign_Material/Response_OnCreated.def +++ b/_Main/UI/MacroPlannerWebApp/Component_FrmAuthorizeAndCountersign_Material/Response_OnCreated.def @@ -17,22 +17,19 @@ SelectItem := select( MacroPlan,H_MessagePassing,Obj,Obj.FKey()="FrmMaterial" and Obj.ItemKey()="ListSelect"); if(not isnull( SelectItem)) { - if(SelectItem.Value().Length()>0) + if(SelectItem.ValueJsonString().Length()>0) { - StrValue := SelectItem.Value().Tokenize( ";"); - lb_SUK_FAACM.Text(StrValue.Element( 0)); - lb_MaterialCode_FAACM.Text(StrValue.Element( 1)); - lb_Unit_FAACM.Text(StrValue.Element( 2)); + JInfo := JSON::Parse( SelectItem.ValueJsonString()); + lb_SUK_FAACM.Text(JInfo.Get( "ParentSKU").GetString()); + lb_SKUName_FAACM.Text(JInfo.Get( "ParentSKUName").GetString()); + lb_MaterialCode_FAACM.Text(JInfo.Get( "SKU").GetString()); + lb_MaterialName.Text(JInfo.Get( "MaterialName").GetString()); + lb_Unit_FAACM.Text(JInfo.Get( "Unit").GetString()); lb_Operator_FAACM.Text(ApplicationMacroPlanner.GetUserName()); + lb_MaterialType_FAACM.Text(JInfo.Get( "MaterialType").GetString()); + txt_CustomID_FAACM.Text(JInfo.Get( "CustomCode").GetString()); + txt_CustomName_FAACM.Text(JInfo.Get( "CustomName").GetString()); } - } - // 鑾峰彇閫夋嫨鍚庣殑SKU - SelectItem := select( MacroPlan,H_MessagePassing,Obj,Obj.FKey()="FrmOrderForecast" and Obj.ItemKey()="ListSelect"); - if(not isnull( SelectItem) and SelectItem.Value().Length()>0) - { - StrValue := SelectItem.Value().Tokenize( ";"); - txt_CustomID_FAACM.Text(StrValue.Element( 2)); - txt_CustomName_FAACM.Text(StrValue.Element( 3)); } *] GroupServerCalls: false -- Gitblit v1.9.3