commented out placeholders in rOrders declarations

kgOrdersServer/Source/rOrders.dfm

@@ -26,8 +26,8 @@ object rptOrders: TrptOrders
       'begin'
       ''
       'end.')
-    Left = 282
-    Top = 158
+    Left = 278
+    Top = 186
     Datasets = <>
     Variables = <>
     Style = <>

kgOrdersServer/Source/rOrders.pas

@@ -9,11 +9,11 @@ uses
 
 type
   TrptOrders = class(TDataModule)
-    frxReport: TfrxReport;
-    frxPDFExport: TfrxPDFExport;
-    frxDBDataset: TfrxDBDataset;
-    DataSource: TDataSource;
-    UniQuery: TUniQuery;
+//    frxReport: TfrxReport;
+//    frxPDFExport: TfrxPDFExport;
+//    frxDBDataset: TfrxDBDataset;
+//    DataSource: TDataSource;
+//    UniQuery: TUniQuery;
     frxReport1: TfrxReport;
     frxPDFExport1: TfrxPDFExport;
   private
@@ -38,26 +38,26 @@ procedure TrptOrders.PrepareReport(OrderID: string);
 var
   SQL: string;
 begin
-  try
-    // 1. **Prepare the Query**
-    SQL := 'SELECT * FROM orders WHERE ORDER_ID = :OrderID';
-    UniQuery.Close;
-    UniQuery.SQL.Text := SQL;
-    UniQuery.ParamByName('OrderID').AsString := OrderID;
-    UniQuery.Open;
-
-    // 2. **Connect the Query to the Report**
-    frxDBDataset.DataSet := UniQuery;
-
-    // 3. **Set Report Variables (if needed)**
-    frxReport.Variables['OrderID'] := QuotedStr(OrderID);
-
-    // 4. **Prepare the Report**
-    frxReport.PrepareReport(True);
-  except
-    on E: Exception do
-      raise Exception.Create('Error preparing the report: ' + E.Message);
-  end;
+//  try
+//    // 1. **Prepare the Query**
+//    SQL := 'SELECT * FROM orders WHERE ORDER_ID = :OrderID';
+//    UniQuery.Close;
+//    UniQuery.SQL.Text := SQL;
+//    UniQuery.ParamByName('OrderID').AsString := OrderID;
+//    UniQuery.Open;
+//
+//    // 2. **Connect the Query to the Report**
+//    frxDBDataset.DataSet := UniQuery;
+//
+//    // 3. **Set Report Variables (if needed)**
+//    frxReport.Variables['OrderID'] := QuotedStr(OrderID);
+//
+//    // 4. **Prepare the Report**
+//    frxReport.PrepareReport(True);
+//  except
+//    on E: Exception do
+//      raise Exception.Create('Error preparing the report: ' + E.Message);
+//  end;
 end;
 
 end.

kgOrdersServer/kgOrdersServer.ini

 [Settings]
 MemoLogLevel=5
 FileLogLevel=5
-LogFileNum=25
+LogFileNum=26
 webClientVersion=1.0.0
 
 [Database]