Changeset 53 for trunk/Client/Application

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:

• trunk/Client/Application/UChronisModule.pas (modified) (5 diffs)

trunk/Client/Application/UChronisModule.pas

@@ -45 +45 @@
   List := TListProxy.Create;
   List.Client := TChronisBase(System).Client;
-  List.SchemaName := TChronisBase(System).Client.Schema;
+  List.Path := TChronisBase(System).Client.Schema;
   List.ObjectName := SystemModuleObject;
   List.Condition := '(SysName="' + SysName + '") AND (Installed=1)';
@@ -60 +60 @@
   List := TListProxy.Create;
   List.Client := TChronisBase(System).Client;
-  List.SchemaName := TChronisBase(System).Client.Schema;
+  List.Path := TChronisBase(System).Client.Schema;
   List.ObjectName := SystemModuleObject;
   List.Condition := 'SysName="' + SysName + '"';
@@ -68 +68 @@
     NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id']);
     NewObject.Client := TChronisBase(System).Client;
-    NewObject.SchemaName := TChronisBase(System).Client.Schema;
+    NewObject.Path := TChronisBase(System).Client.Schema;
     NewObject.ObjectName := SystemModuleObject;
     NewObject.Properties.Add('Installed', '1');
@@ -84 +84 @@
   List := TListProxy.Create;
   List.Client := TChronisBase(System).Client;
-  List.SchemaName := TChronisBase(System).Client.Schema;
+  List.Path := TChronisBase(System).Client.Schema;
   List.ObjectName := SystemModuleObject;
   List.Condition := 'SysName="' + SysName + '"';
@@ -92 +92 @@
     NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id']);
     NewObject.Client := TChronisBase(System).Client;
-    NewObject.SchemaName := TChronisBase(System).Client.Schema;
+    NewObject.Path := TChronisBase(System).Client.Schema;
     NewObject.ObjectName := SystemModuleObject;
     NewObject.Properties.Add('Installed', '0');