mORMot Open Source

  TSchedulerIntervall = class; // forward deklarations
  TSchedulerInstanz = class;
  TSchedulerWorkInfo = class;

  TSchedulerPivot = Class(TSQLRecordMany)
  private
    FSource: TSchedulerInstanz;
    FDest: TSchedulerIntervall;
  published
    property Source: TSchedulerInstanz read FSource; // map Source column // feste namen
    property Dest: TSchedulerIntervall read FDest; // map Dest column // feste namen
  End;

  TSchedulerWorkInfoPivot = Class(TSQLRecordMany)
  private
    FSource: TSchedulerIntervall;
    FDest: TSchedulerWorkInfo;
  published
    property Source: TSchedulerIntervall read FSource; // map Source column // feste namen
    property Dest: TSchedulerWorkInfo read FDest; // map Dest column // feste namen
  End;

TSchedulerInstanz = class(TSQLRecord)
  private
    FInstanzName: RawUTF8;
    FIntervall: TSchedulerPivot;
  published
    property InstanzName: RawUTF8 read FInstanzName write FInstanzName stored AS_UNIQUE;
    property Intervalls: TSchedulerPivot read FIntervall;  // Many to many Lösung Cascading Delete über den Namen TXToBeDeleted
  end;

  TSchedulerIntervall = class(TSQLRecord)
  private
    FName: RawUTF8;
    FWorkInfos: TSchedulerWorkInfoPivot;
  published
    property Name: RawUTF8 read FName write FName stored AS_UNIQUE;
    property WorkInfos: TSchedulerWorkInfoPivot read FWorkInfos write FWorkInfos;
  end;

  TSchedulerWorkInfo = Class(TSqlRecord)
  private
    FEnde: TTime;
    FStart: TTime;
  published
    property Start: TTime read FStart write FStart;
    property Ende: TTime read FEnde write FEnde;
  End;


procedure DoWork;
var
  SQLDataInstanz: TSchedulerInstanz;
begin
  SQLDataInstanz := TSchedulerInstanz.CreateAndFillPrepareMany(GlobalVar.IService.GetDbServer
    , StringToUTF8(''), [], []);    // Fills one Level of data in the Loop. 

    ///SQLDataInstanz.Intervalls.Dest is fille. But deeper: SQLDataInstanz.Intervalls.Dest.Workinfos is not filled. How to fill SQLDataInstanz.Intervalls.Dest.Workinfos correct?


  while SQLDataInstanz.FillOne do // How to design this loop or in my case the loops?
  begin
    CallOtherFunctionsWorkingOn(SQLDataInstanz);
    GetDbServer.Update(SQLDataInstanz);
  end;
end;

procedure DoWorkWithone;
var
  SQLDataInstanz: TSchedulerInstanz;
  SQLDataIntervall: TSchedulerIntervall;
begin
  SQLDataInstanz := TSchedulerInstanz.CreateAndFillPrepareMany(GlobalVar.IService.GetDbServer
    , StringToUTF8(''), [], []);
  try
    while SQLDataInstanz.FillOne do
    begin

      SQLDataIntervall := TSchedulerIntervall.CreateAndFillPrepareMany(GlobalVar.IService.GetDbServer
        , StringToUTF8('WorkInfos.Source=?'), [], [SQLDataInstanz.Intervalls.Dest.ID]);
      try
        while SQLDataIntervall.FillOne do
        begin
          SQLDataInstanz.Intervalls.Dest.WorkInfos := SQLDataIntervall.WorkInfos;

          Do_Something_with_the_whole_Datamodell(SQLDataInstanz);

          //Save Changes
          GlobalVar.IService.GetDbServer.Update(SQLDataInstanz); 
          GlobalVar.IService.GetDbServer.Update(SQLDataInstanz.Intervalls.Dest);
          GlobalVar.IService.GetDbServer.Update(SQLDataInstanz.Intervalls.Dest.WorkInfos.Dest);

          SQLDataInstanz.Intervalls.Dest.WorkInfos := nil; // try to minimize Memory Problems...
        end;
      finally
        SQLDataIntervall.Free;
      end;
    end;
  finally
    SQLDataInstanz.Free;
  end;
end;