Forgot two files in the previous commit

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -1011,6 +1011,7 @@ var
   UserID: string;
   SQL: string;
 begin
+  logger.Log(1, 'Set Status Hit');
   params := TStringList.Create;
   // parse the statusOptions
   params.Delimiter := '&';
@@ -1023,7 +1024,8 @@ begin
 
   SQL := 'select * from orders_status where ORDER_ID = ' + OrderID + ' AND ' +
           'ORDER_STATUS = ' + quotedStr(Status);
-
+  try
+    logger.Log(1, 'Trying to Set Status');
     doQuery(ordersDB.UniQuery1, SQL);
 
     if ordersDB.UniQuery1.IsEmpty then
@@ -1047,7 +1049,14 @@ begin
     end;
 
     ordersDB.UniQuery1.Post;
+    logger.Log(1, 'Status Successfully set');
     result := 'success';
+  except
+  on E: Exception do
+    // This block will catch any exception derived from the Exception class
+    logger.Log(5, 'An error occurred when setting status: ' + E.Message);
+  end;
+
 end;
 
 function TLookupService.AddUser(userInfo:string): string;

kgOrdersServer/kgOrdersServer.ini

 [Settings]
 MemoLogLevel=4
 FileLogLevel=5
-LogFileNum=110
+LogFileNum=111
 webClientVersion=1.0.0
 
 [Database]