TDBPLanner - Undisplayed events

VCL TMS VCL UI Pack
1

I have an interesting problem. Among others.
I have data in DB for May. Two records.
OK
MultiDay, MultiMonth, ActiveDay
They are not displayed
Period, HalfDayPeriod, Month, TimeLine, ActiveDayPeriod

I see no reason for that

2

So that I don't start another topic.
When I first view any scheduler, I don't usually see all the events. Appears on the second view.
How can this be fixed?

  try
    GetItemSource;
    FRolePlanner.SetPlannerProperies;  //  Sets the TDBPlanner properties
  finally
    TDBItemSource(dbplDay.ItemSource).DataSource.DataSet.Refresh;
    dbplDay.Update;
  end;

procedure TfrmPlannerRole.GetItemSource;
begin
  case TViews(FIdxSource) of
    vwMultiDay: dbplDay.ItemSource := dbdysrMultiDay;
    vwPeriod: dbplDay.ItemSource := dbprsrPeriod;
    vwHalfDayPeriod: dbplDay.ItemSource := dbhldyprsrHalfDayPeriod;
    vwMonth: dbplDay.ItemSource := dbmnsrMonth;
    vwMultiMonth: dbplDay.ItemSource := dbmlmnsrMultiMonth;
    vwTimeLine: dbplDay.ItemSource := dbtmlnsrTimeLine;
    vwActiveDay: dbplDay.ItemSource := dbacdysrActiveDay;
    vwActiveDayPeriod: dbplDay.ItemSource := dbacdyprsrActiveDayPeriod;
  end;
end;
3

I've already discovered it

  FPlannerDay.ItemSource.Active := False;
  FPlannerDay.ItemSource.Active := True;  // FI:W508