Ignore:
Timestamp:
Apr 3, 2012, 8:31:39 AM (13 years ago)
Author:
chronos
Message:
  • Opraveno: Aktualizace seznamu modulů do databáze a použití příznaku modulů "Instalován" pro zjištění, zda vytvářet znova strukturu.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Client/Application/UChronisModule.pas

    r52 r53  
    4545  List := TListProxy.Create;
    4646  List.Client := TChronisBase(System).Client;
    47   List.SchemaName := TChronisBase(System).Client.Schema;
     47  List.Path := TChronisBase(System).Client.Schema;
    4848  List.ObjectName := SystemModuleObject;
    4949  List.Condition := '(SysName="' + SysName + '") AND (Installed=1)';
    … …  
    6060  List := TListProxy.Create;
    6161  List.Client := TChronisBase(System).Client;
    62   List.SchemaName := TChronisBase(System).Client.Schema;
     62  List.Path := TChronisBase(System).Client.Schema;
    6363  List.ObjectName := SystemModuleObject;
    6464  List.Condition := 'SysName="' + SysName + '"';
    … …  
    6868    NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id']);
    6969    NewObject.Client := TChronisBase(System).Client;
    70     NewObject.SchemaName := TChronisBase(System).Client.Schema;
     70    NewObject.Path := TChronisBase(System).Client.Schema;
    7171    NewObject.ObjectName := SystemModuleObject;
    7272    NewObject.Properties.Add('Installed', '1');
    … …  
    8484  List := TListProxy.Create;
    8585  List.Client := TChronisBase(System).Client;
    86   List.SchemaName := TChronisBase(System).Client.Schema;
     86  List.Path := TChronisBase(System).Client.Schema;
    8787  List.ObjectName := SystemModuleObject;
    8888  List.Condition := 'SysName="' + SysName + '"';
    … …  
    9292    NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id']);
    9393    NewObject.Client := TChronisBase(System).Client;
    94     NewObject.SchemaName := TChronisBase(System).Client.Schema;
     94    NewObject.Path := TChronisBase(System).Client.Schema;
    9595    NewObject.ObjectName := SystemModuleObject;
    9696    NewObject.Properties.Add('Installed', '0');
Note: See TracChangeset for help on using the changeset viewer.