Changeset 146 for trunk/Modules/Finance/ModuleFinance.pas

Timestamp:

Dec 29, 2023, 11:44:26 PM (11 months ago)

Author:

chronos

Message:

• Modified: Unit names without U prefix.

File:

• trunk/Modules/Finance/ModuleFinance.pas (moved) (moved from trunk/Modules/Finance/UModuleFinance.pas ) (9 diffs)

trunk/Modules/Finance/ModuleFinance.pas

@@ -1 @@
-unit UModuleFinance;
+unit ModuleFinance;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, UModuleBase, UWebPage;
+  Classes, SysUtils, UModularSystem, ModuleBase, UWebPage;
 
 type
@@ -26 +26 @@
 
 uses
-  UCore, UPageFinance, USqlDatabase;
+  Core, PageFinance, USqlDatabase;
 
 { TModuleFinance }
@@ -67 +67 @@
     DbRows := TDbRows.Create;
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `FinanceTariff` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -84 +84 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `FinanceYear` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -93 +93 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `DocumentLine` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -102 +102 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; ');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `DocumentLineSequence` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -114 +114 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `FinanceBankAccount` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -123 +123 @@
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; ');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `FinanceBillingPeriod` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -144 +144 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBillingPeriod`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBankAccount`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLine`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLineSequence`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceTariff`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceYear`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBillingPeriod`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBankAccount`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLine`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLineSequence`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceTariff`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceYear`');
   finally
     DbRows.Free;