procedure Tfrm1CTimeSheet.CtrlFillMemoryTable;
var
  oldPodr, oldWorker, DataFieldIndex, TrigFieldIndex, ColumnIndex, i, lastDayInMonth :Integer;
  dw : DayMonday..DaySunday;
  dt :TDate;
  DataField :TField;
  TrigField :TByteField;
  TitlColor, ColumnColor :TColor;
  DayFlags, MonthFlags :TCtrlFlags;
  s :string;
  function CtrlGroupChanged :Boolean;
  begin
    Result := (oldPodr <> fdqCtrlDatapr_podr_id.Value) or (oldWorker <> fdqCtrlDatapr_worker_id.Value);
  end;
begin
  mtCtrlCross.EmptyTable; // <- MemoryTable отображаемый в гриде
  mtCtrlCross.Close;
  mtCtrlCross.AfterScroll := nil;
  mtCtrlCross.TreeList.Active := False;
  mtCtrlCross.Filter := '';
  mtCtrlCross.Filtered := False;
  mtCtrlCross.Open;
  mtCtrlCross.DisableControls;
  try
    if not fdqCtrlData.IsEmpty then
    begin
      oldPodr := fdqCtrlDatapr_podr_id.Value;
      oldWorker := fdqCtrlDatapr_worker_id.Value;
      mtCtrlCross.Append;
      
      mtCtrlCrossWorker.Value := fdqCtrlDatapr_worker_id.Value;
      mtCtrlCrossPodr.Value := fdqCtrlDatapr_podr_id.Value;
      mtCtrlCrossPodr4TreeId.AsVariant := Null;
      mtCtrlCrossPodr4TreeAncestor.Value := fdqCtrlDatapr_podr_id.Value;
      DataFieldIndex := DayOf(fdqCtrlDatapr_date.AsDateTime) + 3; // Определяем в какую колонку записывать данные
      DataField := mtCtrlCross.Fields[DataFieldIndex];
      
      if not fdqCtrlDataplan_id.IsNull then
      begin
        if (fdqCtrlDataplan_pr_absence.Value = 'Я') and (fdqCtrlDatapr_graveyard.Value = 1) then // Ночная смена
          DataField.AsString := fdqCtrlDataplan_pr_absence.Value + '(Н)'
        else
          DataField.AsString := fdqCtrlDataplan_pr_absence.Value;
      end;
      fdqCtrlData.Next;

      while not fdqCtrlData.Eof do
      begin
        if CtrlGroupChanged then
        begin
          mtCtrlCross.Post;
          mtCtrlCross.Append;
          oldPodr := fdqCtrlDatapr_podr_id.Value;
          oldWorker := fdqCtrlDatapr_worker_id.Value;
        end;
        mtCtrlCrossWorker.Value := fdqCtrlDatapr_worker_id.Value;
        mtCtrlCrossPodr.Value := fdqCtrlDatapr_podr_id.Value;
        mtCtrlCrossPodr4TreeId.AsVariant := Null;
        mtCtrlCrossPodr4TreeAncestor.Value := fdqCtrlDatapr_podr_id.Value;
        DataFieldIndex := DayOf(fdqCtrlDatapr_date.AsDateTime) + 3;
        DataField := mtCtrlCross.Fields[DataFieldIndex];
        if not fdqCtrlDataplan_id.IsNull then
        begin
          if (fdqCtrlDataplan_pr_absence.Value = 'Я') and (fdqCtrlDatapr_graveyard.Value = 1) then
            DataField.AsString := fdqCtrlDataplan_pr_absence.Value + '(Н)'
          else
            DataField.AsString := fdqCtrlDataplan_pr_absence.Value;
        end;
        fdqCtrlData.Next;
      end;
      if mtCtrlCross.State in [dsInsert, dsEdit] then mtCtrlCross.Post;
    end;
    // Добавляем строки подразделений
    dm3.fdq.Open;
    while not dm3.fdq.Eof do
    begin
      mtCtrlCross.Append;
      mtCtrlCrossPodr4TreeId.Value := dm3.fdq.Fields[0].Value;
      mtCtrlCrossPodr.Value := dm3.fdq.Fields[0].Value;
      mtCtrlCrossPodr4TreeAncestor.Value := dm3.fdq.Fields[1].Value;
      dm3.fdq.Next;
    end;
    dm3.fdq.Close;
    if mtCtrlCross.State in [dsInsert, dsEdit] then mtCtrlCross.Post;
    mtCtrlCross.First;
    mtCtrlCross.TreeList.Active := True;
    // Оформление заголовка
	lastDayInMonth := System.DateUtils.DaysInMonth(dteCtrlStart.Value);
    for i := 1 to lastDayInMonth do
    begin
      DataFieldIndex := i + 3;
      ColumnIndex := i + 1;
      dt := RecodeDay(dteCtrlStart.Value, i);
      dw := DayOfTheWeek(dt);
      TitlColor := clWindowText;
      ColumnColor := clWindow;
      case dw of
        DayMonday : s := 'пн';
        DayTuesday : s := 'вт';
        DayWednesday : s := 'ср';
        DayThursday : s := 'чт';
        DayFriday : s := 'пт';
        DaySaturday :
          begin
            s := 'сб';
            TitlColor := clRed;
            ColumnColor := gclLightYellow;
          end;
        DaySunday :
          begin
            s := 'вс';
            TitlColor := clRed;
            ColumnColor := gclLightYellow;
          end;
      end;
      mtCtrlCross.Fields[DataFieldIndex].DisplayLabel := IntToStr(i) + sLineBreak + s;
      //dbgCtrl.Columns[ColumnIndex].Title.Caption := IntToStr(i) + #13 + s;
      dbgCtrl.Columns[ColumnIndex].Title.Font.Color := TitlColor;
      dbgCtrl.Columns[ColumnIndex].Color := ColumnColor;
      dbgCtrl.Columns[ColumnIndex].Visible := True;
      dbgCtrl.Columns[ColumnIndex].DynProps[cstdvDateColumn].AsDateTime := dt;
    end;
    for i := lastDayInMonth + 1 to 31 do
    begin
      ColumnIndex := i + 1;
      dbgCtrl.Columns[ColumnIndex].Visible := False;
    end;
  finally
    mtCtrlCross.EnableControls;
  end;
  SetCtrlDataFilter;
  mtCtrlCross.AfterScroll := mtCtrlCrossAfterScrollEv;
  dbgCtrlCellSelectionChanged;
end;