| | |
| | | [* |
| | | // 获取选择后的SKU |
| | | SelectItem := select( MacroPlan,H_MessagePassing,Obj,Obj.FKey()="FrmMaterial" and Obj.ItemKey()="ListSelect"); |
| | | if(not isnull( SelectItem) and SelectItem.Value().Length()>0) |
| | | if(not isnull( SelectItem)) |
| | | { |
| | | 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)); |
| | | lb_Operator_FAACM.Text(ApplicationMacroPlanner.GetUserName()); |
| | | if(SelectItem.Value().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)); |
| | | lb_Operator_FAACM.Text(ApplicationMacroPlanner.GetUserName()); |
| | | } |
| | | } |
| | | // 获取选择后的SKU |
| | | SelectItem := select( MacroPlan,H_MessagePassing,Obj,Obj.FKey()="FrmOrderForecast" and Obj.ItemKey()="ListSelect"); |