minor cleanup

kgOrdersClient/View.AddOrder.pas

@@ -51,7 +51,6 @@ implementation
 {$R *.dfm}
 
 
-
 class function TFAddOrder.CreateForm(AElementID: string): TWebForm;
 begin
   Application.CreateForm(TFAddOrder, AElementID, Result,
@@ -72,7 +71,7 @@ begin
 end;
 
 
-[async] procedure TFAddOrder.getCustomers();
+[async] procedure TFAddOrder.GetCustomers();
 var
   xdcResponse: TXDataClientResponse;
   customerList: TJSObject;
@@ -131,6 +130,7 @@ begin
   end;
 end;
 
+
 procedure TFAddOrder.TMSFNCGrid1SelectedCell(Sender: TObject; ACol,
   ARow: Integer);
 begin
@@ -167,12 +167,12 @@ begin
 end;
 
 
-
 procedure TFAddOrder.cbCorrugatedPlateClick(Sender: TObject);
 begin
   cbWebPlate.Checked := False;
 end;
 
+
 procedure TFAddOrder.cbWebPlateClick(Sender: TObject);
 begin
   cbCorrugatedPlate.Checked := False;
@@ -184,19 +184,13 @@ begin
   window.location.reload(true);
 end;
 
+
 procedure TFAddOrder.btnCancelClick(Sender: TObject);
-var
-  PanelElement: TJSHTMLElement;
 begin
   edtID.Text := '';
   Close;
 end;
 
 
-
-
-
-
-
 end.
 

kgOrdersClient/View.Orders.dfm

@@ -82,7 +82,7 @@ object FViewOrders: TFViewOrders
     TabOrder = 1
     WidthPercent = 100.000000000000000000
   end
-  object btnaddOrder: TWebButton
+  object btnAddOrder: TWebButton
     Left = 59
     Top = 79
     Width = 96
@@ -96,7 +96,7 @@ object FViewOrders: TFViewOrders
     TabOrder = 6
     TabStop = False
     WidthPercent = 100.000000000000000000
-    OnClick = btnaddOrderClick
+    OnClick = btnAddOrderClick
   end
   object btnFilters: TWebButton
     Left = 462

kgOrdersClient/View.Orders.pas

@@ -39,7 +39,7 @@ type
     XDataWebDataSet1ID: TStringField;
     XDataWebDataSet1qbRefNum: TStringField;
     XDataWebDataSet1colors: TStringField;
-    btnaddOrder: TWebButton;
+    btnAddOrder: TWebButton;
     btnFilters: TWebButton;
     dtpStartDate: TWebDateTimePicker;
     dtpEndDate: TWebDateTimePicker;
@@ -63,7 +63,7 @@ type
     procedure WebFormCreate(Sender: TObject);
     procedure btnApplyClick(Sender: TObject);
     procedure btnSearchClick(Sender: TObject);
-    procedure btnaddOrderClick(Sender: TObject);
+    procedure btnAddOrderClick(Sender: TObject);
     procedure btnFiltersClick(Sender: TObject);
     procedure btnCloseNotificationClick(Sender: TObject);
     procedure WebFormShow(Sender: TObject);
@@ -625,9 +625,8 @@ begin
   end;
 end;
 
-procedure TFViewOrders.btnaddOrderClick(Sender: TObject);
+procedure TFViewOrders.btnAddOrderClick(Sender: TObject);
 begin
-  //getCustomers();
   ShowOrderListForm();
 end;
 

kgOrdersServer/Source/Auth.Database.dfm

@@ -23,7 +23,7 @@ object AuthDatabase: TAuthDatabase
     LoginPrompt = False
     Left = 67
     Top = 131
-    EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
+    EncryptedPassword = '9AFF92FF8CFF86FF8CFFDEFFCFFFCEFFCDFF'
   end
   object MySQLUniProvider1: TMySQLUniProvider
     Left = 230

kgOrdersServer/Source/Database.dfm

@@ -9,7 +9,7 @@ object FDatabaseModule: TFDatabaseModule
     LoginPrompt = False
     Left = 75
     Top = 139
-    EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
+    EncryptedPassword = '9AFF92FF8CFF86FF8CFFDEFFCFFFCEFFCDFF'
   end
   object UniQuery1: TUniQuery
     Connection = ucKG

kgOrdersServer/kgOrdersServer.ini

 [Options]
-LogFileNum=31
+LogFileNum=25
 
 [Database]
 --Server=192.168.159.132
---Server=192.168.198.129
-Server=192.168.102.130
+Server=192.168.198.131
+--Server=192.168.102.130