不可用日历事件批量创建日期格式处理

lazhen

2024-08-29 87a49b64c6dd45bb9801c7b6eb7c9d05924abbe6

不可用日历事件批量创建日期格式处理

 _Main/BL/Type_LibCal_Event/StaticMethod_ValidDate.qbl

@@ -11,17 +11,24 @@
  [*
    // 甄兰鸽 Jul-26-2024 (created)
    feedback_o := '';
    if( startdate > endtime ){
      feedback_o := Translations::MP_LibCal_Event_ValidDatePeriod();
    }
    if( startdate.IsFinite() and endtime.IsFinite() ){
      if( startdate > endtime ){
        feedback_o := Translations::MP_LibCal_Event_ValidDatePeriod();
      }
      mindate      := owner.StartOfPlanning().Date();
      maxdate      := maxobject( owner, Period_MP, period, not period.IsHistorical() and period.TimeUnit() = Translations::MP_GlobalParameters_Day() , period.StartDate() );
    
    if( not exists( owner, Period_MP, period, not period.IsHistorical() 
                and period.TimeUnit() = Translations::MP_GlobalParameters_Day() 
                and period.StartDate() = startdate.Date() 
                and ( period.EndDate() = endtime.Date() or period.StartDate() = endtime.Date() ) ) ){
      feedback_o := Translations::MP_LibCal_Event_ValidDate();
      if( startdate.Date() < mindate or endtime.Date() > maxdate.StartDate() ){
        feedback_o := Translations::MP_LibCal_Event_ValidDate();
      }
    
      if( ( endtime - startdate ).Days() > 1 ){
        feedback_o := Translations::MP_LibCal_Event_ValidDateInterval();
      }
    
    }else{
      feedback_o := "日期非法";
    }
    return feedback_o = '';
    //return true;
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_LibCal_dlgMultipleEvent/Response_PanelCreate_ButtonCreate_OnClick#338.def

@@ -5,7 +5,6 @@
  #keys: '[415136.0.1066371836]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  GroupServerCalls: true
  Precondition:
  [*
    return LibCal_Event::ValidDate( feedback, MacroPlan, dhStartDate.Data() + durStartTimeOfDay.Duration(), dhEndDate.Data() + durEndTimeOfDay.Duration() );
@@ -16,5 +15,6 @@
    [*
      Form.OnOK();
    *]
    GroupServerCalls: false
  }
}