Fixed issue where reports folder wasnt being properly created causing a timeout

kgOrdersServer/Source/Auth.ServiceImpl.pas

@@ -91,9 +91,13 @@ begin
     end;
     if clientVersion <> webClientVersion then
     begin
+      //Result.AddPair('error',
+        //'Your browser is running version' + webClientVersion + ' when it should be running ' +
+        //clientVersion + sLineBreak + 'Please click below to reload.');
       Result.AddPair('error',
-        'Your browser is running version' + webClientVersion + ' when it should be running ' +
-        clientVersion + sLineBreak + 'Please click below to reload.');
+        'Version mismatch' + sLineBreak + '  Client version: ' + clientVersion  +
+         sLineBreak + '  Server version: ' + webClientVersion +
+         sLineBreak + 'Please click button to clear cache and reload.');
     end;
   finally
     iniFile.Free;

kgOrdersServer/Source/rOrderCorrugated.pas

@@ -200,10 +200,10 @@ var
 begin
   ReportDir := ServerConfig.reportsFolder;
 
-  if not DirectoryExists(ReportDir) then
+  if not DirectoryExists(ReportDir + 'reports\') then
   begin
-    ForceDirectories(ReportDir);
-    Logger.Log(1, 'Reports directory created: ' + ReportDir);
+    ForceDirectories(ReportDir + 'reports\');
+    Logger.Log(1, 'Reports directory created: ' + ReportDir + 'reports\');
   end;
 
   reportURL :=  'reports/' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf';

kgOrdersServer/Source/rOrderCutting.pas

@@ -98,11 +98,12 @@ var
 begin
   ReportDir := ServerConfig.reportsFolder;
 
-  if not DirectoryExists(ReportDir) then
+  if not DirectoryExists(ReportDir + 'reports\') then
   begin
-    ForceDirectories(ReportDir);
-    Logger.Log(1, 'Reports directory created: ' + ReportDir);
+    ForceDirectories(ReportDir + 'reports\');
+    Logger.Log(1, 'Reports directory created: ' + ReportDir + 'reports\');
   end;
+
   reportURL :=  'reports\' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf';
 
   ReportFileName := reportDir + reportUrl;

kgOrdersServer/Source/rOrderList.pas

@@ -201,11 +201,12 @@ var
 begin
   ReportDir := ServerConfig.reportsFolder;
 
-  if not DirectoryExists(ReportDir) then
+  if not DirectoryExists(ReportDir + 'reports\') then
   begin
-    ForceDirectories(ReportDir);
-    Logger.Log(1, 'Reports directory created: ' + ReportDir);
+    ForceDirectories(ReportDir + 'reports\');
+    Logger.Log(1, 'Reports directory created: ' + ReportDir + 'reports\');
   end;
+
   reportURL :=  'reports/' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf';
 
   ReportFileName := reportDir + reportUrl;

kgOrdersServer/Source/rOrderWeb.pas

@@ -200,11 +200,12 @@ var
 begin
   ReportDir := ServerConfig.reportsFolder;
 
-  if not DirectoryExists(ReportDir) then
+  if not DirectoryExists(ReportDir + 'reports\') then
   begin
-    ForceDirectories(ReportDir);
-    Logger.Log(1, 'Reports directory created: ' + ReportDir);
+    ForceDirectories(ReportDir + 'reports\');
+    Logger.Log(1, 'Reports directory created: ' + ReportDir + 'reports\');
   end;
+
   reportURL :=  'reports\' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf';
 
   ReportFileName := reportDir + reportUrl;

kgOrdersServer/bin/kgOrdersServer.ini

@@ -2,7 +2,7 @@
 MemoLogLevel=4
 FileLogLevel=4
 webClientVersion=0.9.11
-LogFileNum=175
+LogFileNum=183
 
 [Database]
 --Server=192.168.116.132