批量创建不可用事件的新建日期校验可能存在没有Unit为day的

lazhen

2024-09-02 e924a0cb23f0b1577e36fdd5dd055aea4bdc510f

 _Main/BL/Type_LibCal_Event/StaticMethod_ValidDate.qbl

@@ -16,7 +16,7 @@
        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() );
      maxdate      := maxobject( owner, Period_MP, period, not period.IsHistorical(), period.StartDate() );
    
      if( startdate.Date() < mindate or endtime.Date() > maxdate.StartDate() ){
        feedback_o := Translations::MP_LibCal_Event_ValidDate();