Quintiq file version 2.0 #parent: #root Response OnCreated () id:Response_FrmAuthorizeAndCountersign_OnCreated { #keys: '[414724.0.80341563]' CanBindMultiple: false DefinitionID: 'Responsedef_WebComponent_OnCreated' QuillAction { Body: [* /**********************获取下一个周5的日期*******************/ //定义下一个星期 nTargetWeenNum := 5; nTodayWeekNum := Date::ActualDate().DayOfWeek(); nAddDays := 0; if( nTodayWeekNum <= nTargetWeenNum) { nAddDays := nTargetWeenNum-nTodayWeekNum; } else { nAddDays := 7 - nTodayWeekNum+nTargetWeenNum; } // 下一个星期的日期 dtNeedDate := Date::ActualDate() + nAddDays; /******************************获取下一个周5的日期 结束***********************/ ds_NeedDate.Date(dtNeedDate); // 获取选择后的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( ";"); lb_SKUCode_FAAC.Text(StrValue.Element( 0)); lb_SKUName_FAAC.Text("产品"); lb_Operator_FAAC.Text(""); lb_Util_FAAC.Text(StrValue.Element( 1)); txt_CustomID_FAAC.Text(StrValue.Element( 2)); txt_CustomName_FAAC.Text(StrValue.Element( 3)); lb_Operator_FAAC.Text(ApplicationMacroPlanner.GetUserName()); } *] GroupServerCalls: false } }