Finished Item Page Changes. Cannot test one feature due to deployed version

cant interfere with deployed version's access token so this cannot be tested right now

kgOrdersClient/View.Items.dfm

@@ -9,10 +9,9 @@ object FViewItems: TFViewItems
   Font.Name = 'Tahoma'
   Font.Style = []
   ParentFont = False
-  OnCreate = WebFormCreate
   object lblEntries: TWebLabel
-    Left = 0
-    Top = 336
+    Left = 16
+    Top = 292
     Width = 77
     Height = 13
     Caption = 'Showing 0 of ...'
@@ -42,8 +41,8 @@ object FViewItems: TFViewItems
       '50')
   end
   object btnAdd: TWebButton
-    Left = 565
-    Top = 318
+    Left = 567
+    Top = 442
     Width = 96
     Height = 25
     Caption = 'Add'
@@ -55,50 +54,9 @@ object FViewItems: TFViewItems
     WidthPercent = 100.000000000000000000
     OnClick = btnAddClick
   end
-  object edtName: TWebEdit
-    Left = 342
-    Top = 0
-    Width = 121
-    Height = 22
-    ChildOrder = 10
-    ElementClassName = 'form-control'
-    ElementID = 'edtname'
-    ElementFont = efCSS
-    HeightStyle = ssAuto
-    HeightPercent = 100.000000000000000000
-    WidthPercent = 100.000000000000000000
-  end
-  object edtDescription: TWebEdit
-    Left = 478
-    Top = 0
-    Width = 121
-    Height = 22
-    ChildOrder = 10
-    ElementClassName = 'form-control'
-    ElementID = 'edtdescription'
-    ElementFont = efCSS
-    HeightStyle = ssAuto
-    HeightPercent = 100.000000000000000000
-    WidthPercent = 100.000000000000000000
-  end
-  object cbStatus: TWebCheckBox
-    Left = 354
-    Top = 52
-    Width = 113
-    Height = 22
-    ChildOrder = 5
-    ElementClassName = 'custom-control custom-checkbox'
-    ElementButtonClassName = 'custom-control-input'
-    ElementLabelClassName = 'custom-control-label'
-    ElementID = 'cbstatus'
-    ElementFont = efCSS
-    HeightStyle = ssAuto
-    HeightPercent = 100.000000000000000000
-    WidthPercent = 100.000000000000000000
-  end
   object btnSave: TWebButton
-    Left = 565
-    Top = 228
+    Left = 567
+    Top = 352
     Width = 96
     Height = 25
     Caption = 'Save'
@@ -114,8 +72,8 @@ object FViewItems: TFViewItems
     OnClick = btnSaveClick
   end
   object btnCancel: TWebButton
-    Left = 565
-    Top = 256
+    Left = 567
+    Top = 380
     Width = 96
     Height = 25
     Caption = 'Cancel'
@@ -131,8 +89,8 @@ object FViewItems: TFViewItems
     OnClick = btnCancelClick
   end
   object btnDelete: TWebButton
-    Left = 565
-    Top = 197
+    Left = 567
+    Top = 321
     Width = 96
     Height = 25
     Caption = 'Delete'
@@ -146,8 +104,8 @@ object FViewItems: TFViewItems
     OnClick = btnDeleteClick
   end
   object btnEdit: TWebButton
-    Left = 565
-    Top = 287
+    Left = 567
+    Top = 411
     Width = 96
     Height = 25
     Caption = 'Edit'
@@ -160,13 +118,131 @@ object FViewItems: TFViewItems
     WidthPercent = 100.000000000000000000
     OnClick = btnEditClick
   end
+  object wdbtcItems: TWebDBTableControl
+    Left = 16
+    Top = 86
+    Width = 631
+    Height = 200
+    ElementClassName = 'table'
+    ElementId = 'tblPhoneGrid'
+    BorderColor = clSilver
+    ChildOrder = 11
+    ElementFont = efCSS
+    ElementHeaderClassName = 'thead-light sticky-top bg-light border-light'
+    ElementPosition = epRelative
+    ElementTableClassName = 'table table-striped table-hover table-bordered text-sm'
+    Footer.ButtonActiveElementClassName = 'btn btn-primary'
+    Footer.ButtonElementClassName = 'btn btn-light'
+    Footer.DropDownElementClassName = 'form-control'
+    Footer.InputElementClassName = 'form-control'
+    Footer.LinkActiveElementClassName = 'link-primary'
+    Footer.LinkElementClassName = 'link-secondary'
+    Footer.ListElementClassName = 'pagination'
+    Footer.ListItemElementClassName = 'page-item'
+    Footer.ListLinkElementClassName = 'page-link'
+    Header.ButtonActiveElementClassName = 'btn btn-primary'
+    Header.ButtonElementClassName = 'btn btn-light'
+    Header.DropDownElementClassName = 'form-control'
+    Header.InputElementClassName = 'form-control'
+    Header.LinkActiveElementClassName = 'link-primary'
+    Header.LinkElementClassName = 'link-secondary'
+    Header.ListElementClassName = 'pagination'
+    Header.ListItemElementClassName = 'page-item'
+    Header.ListLinkElementClassName = 'page-link'
+    WordWrap = True
+    Columns = <
+      item
+        DataField = 'ID'
+        Title = 'KG Orders ID'
+      end
+      item
+        DataField = 'name'
+        Title = 'Name'
+      end
+      item
+        DataField = 'description'
+        Title = 'Description'
+      end
+      item
+        DataField = 'status'
+        Title = 'Status'
+      end>
+    DataSource = wdsItems
+  end
+  object edtName: TWebDBEdit
+    Left = 352
+    Top = 0
+    Width = 121
+    Height = 22
+    ChildOrder = 8
+    ElementClassName = 'form-control'
+    ElementID = 'edtname'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    DataField = 'name'
+    DataSource = wdsItems
+  end
+  object edtDescription: TWebDBEdit
+    Left = 488
+    Top = 0
+    Width = 121
+    Height = 22
+    ChildOrder = 8
+    ElementClassName = 'form-control'
+    ElementID = 'edtdescription'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    DataField = 'description'
+    DataSource = wdsItems
+  end
+  object cbStatus: TWebCheckBox
+    Left = 352
+    Top = 36
+    Width = 113
+    Height = 22
+    Caption = 'Active?'
+    ChildOrder = 10
+    ElementClassName = 'custom-control custom-checkbox'
+    ElementButtonClassName = 'custom-control-input'
+    ElementLabelClassName = 'custom-control-label'
+    ElementID = 'cbstatus'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
   object XDataWebClient1: TXDataWebClient
     Connection = DMConnection.ApiConnection
-    Left = 426
-    Top = 240
+    Left = 294
+    Top = 356
   end
-  object XDataWebDataSet1: TXDataWebDataSet
+  object xdwdsItems: TXDataWebDataSet
     Left = 440
     Top = 300
+    object xdwdsItemsstatus: TStringField
+      FieldName = 'status'
+    end
+    object xdwdsItemsqb_items_qb_id: TStringField
+      FieldName = 'qb_items_qb_id'
+      Size = 0
+    end
+    object xdwdsItemsID: TStringField
+      FieldName = 'ID'
+    end
+    object xdwdsItemsname: TStringField
+      FieldName = 'name'
+    end
+    object xdwdsItemsdescription: TStringField
+      FieldName = 'description'
+    end
+  end
+  object wdsItems: TWebDataSource
+    DataSet = xdwdsItems
+    Left = 268
+    Top = 300
   end
 end

kgOrdersClient/View.Items.html

@@ -54,20 +54,22 @@
                         </div>
                     </form>
 
-                    <table class="table table-responsive table-striped table-hover table-bordered" id="tblPhoneGrid">
-                        <thead class="thead-dark">
-                            <tr>
-                                <th scope="col">ID</th>
-                                <th scope="col">Name</th>
-                                <th scope="col">Description</th>
-                                <th scope="col">Status</th>
-                            </tr>
-                        </thead>
-                        <tbody>
-                            <!-- Rows will be added dynamically via Delphi code -->
-                        </tbody>
-                    </table>
+                    <!-- Table Section -->
+                    <div id="order_table_section" class="overflow-auto mt-2"
+                         style="max-height: calc(100vh - 250px); padding-bottom: 0; width: 100%;">
+                        <table id="tblPhoneGrid" class="table table-striped table-bordered border-light" style="width: 100%;">
+                            <thead class="sticky-top thead-light">
+                                <tr style="font-size: 0.875rem;">
+                                    <!-- Table headers are dynamically generated -->
+                                </tr>
+                            </thead>
+                            <tbody id="orderTableBody" class="align-middle">
+                                <!-- Table rows are dynamically generated -->
+                            </tbody>
+                        </table>
+                    </div>
                     <label id="lblentries"></label>
+
                     <nav aria-label="Page navigation">
                         <ul class="pagination justify-content-center" id="pagination">
                             <!-- Pagination items will be added dynamically via Delphi code -->

kgOrdersClient/View.Items.pas

@@ -12,23 +12,29 @@ uses
   System.SysUtils, System.Classes, Web, WEBLib.Graphics, WEBLib.Forms, WEBLib.Dialogs,
   Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.Controls, WEBLib.Grids, WebLib.Lists,
   XData.Web.Client, WEBLib.ExtCtrls, DB, XData.Web.JsonDataset,
-  XData.Web.Dataset, XData.Web.Connection, Vcl.Forms, DateUtils;
+  XData.Web.Dataset, XData.Web.Connection, Vcl.Forms, DateUtils, WEBLib.DBCtrls;
 
 type
   TFViewItems = class(TWebForm)
     XDataWebClient1: TXDataWebClient;
-    XDataWebDataSet1: TXDataWebDataSet;
+    xdwdsItems: TXDataWebDataSet;
     lblEntries: TWebLabel;
     wcbPageSize: TWebComboBox;
     btnAdd: TWebButton;
-    edtName: TWebEdit;
-    edtDescription: TWebEdit;
-    cbStatus: TWebCheckBox;
     btnSave: TWebButton;
     btnCancel: TWebButton;
     btnDelete: TWebButton;
     btnEdit: TWebButton;
-    procedure WebFormCreate(Sender: TObject);
+    wdbtcItems: TWebDBTableControl;
+    wdsItems: TWebDataSource;
+    xdwdsItemsstatus: TStringField;
+    xdwdsItemsqb_items_qb_id: TStringField;
+    xdwdsItemsID: TStringField;
+    xdwdsItemsname: TStringField;
+    xdwdsItemsdescription: TStringField;
+    edtName: TWebDBEdit;
+    edtDescription: TWebDBEdit;
+    cbStatus: TWebCheckBox;
     procedure btnAddClick(Sender: TObject);
     procedure wcbPageSizeChange(Sender: TObject);
     procedure btnEditClick(Sender: TObject);
@@ -45,6 +51,7 @@ type
     procedure EditMode();
     [async] procedure GetItems(searchOptions: string);
     [async] procedure AddItem(itemOptions: string);
+    [async] procedure InitializeForm;
     var
       PageNumber: integer;
       PageSize: integer;
@@ -53,7 +60,9 @@ type
       EndDate: string;
       OrderBy: string;
       Caller: string;
-  public
+      notification: string;
+   public
+    class function CreateForm(AElementID: string): TWebForm;
 
   end;
 
@@ -68,7 +77,20 @@ uses
 
 {$R *.dfm}
 
-procedure TFViewItems.WebFormCreate(Sender: TObject);
+class function TFViewItems.CreateForm(AElementID: string): TWebForm;
+begin
+  Application.CreateForm(TFViewItems, AElementID, Result,
+    procedure(AForm: TObject)
+    begin
+      with TFViewItems(AForm) do
+      begin
+        InitializeForm;
+      end;
+    end
+  );
+end;
+
+[async] procedure TFViewItems.InitializeForm;
 // Initializes important values:
 // PageNumber: What page number the user is on IE 1: 1-10, 2: 11-20 etc
 // TotalPages: Total number of pages returned from the search.
@@ -78,7 +100,7 @@ begin
   PageNumber := 1;
   TotalPages := 1; // Initial total pages
   wcbPageSize.Text := '10';
-  getItems(GenerateSearchOptions());
+  await(getItems(GenerateSearchOptions()));
 end;
 
 procedure TFViewItems.ViewMode();
@@ -367,13 +389,12 @@ begin
       itemList :=  TJSObject(xdcResponse.Result);
       data := TJSArray(itemList['data']);
       itemListLength := integer(itemList['count']);
-      ClearTable();
-      for i := 0 to data.Length - 1 do
-      begin
-        item := TJSObject(data[i]);
-        AddRowToTable(string(item['ID']), string(item['name']), string(item['description']),
-        string(item['status']));
-      end;
+      console.log(data);
+      xdwdsItems.Close;
+      xdwdsItems.SetJsonData(data);
+      xdwdsItems.Open;
+
+
       TotalPages := (itemListLength + PageSize - 1) div PageSize;
       if (PageNumber * PageSize) < itemListLength then
       begin
@@ -449,10 +470,19 @@ procedure TFViewItems.AddItem(itemOptions: string);
 // adds an item to the database.
 var
   xdcResponse: TXDataClientResponse;
+  item: TJSObject;
 begin
   try
     xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.AddItem', [itemOptions]));
     getItems(GenerateSearchOptions());
+    item := TJSObject(xdcResponse.Result);
+    edtName.Text := string(item['name']);
+    edtDescription.Text := string(item['description']);
+    if item['status'] = 'ACTIVE' then
+      cbStatus.Checked := true
+    else
+      cbStatus.Checked := false;
+
   except
     on E: EXDataClientRequestException do
       Utils.ShowErrorModal('Could not add item: ' + E.ErrorResult.ErrorMessage);

kgOrdersClient/View.Main.pas

@@ -171,7 +171,9 @@ procedure TFViewMain.lblItemsListClick(Sender: TObject);
 begin
   if ( not ( change ) ) then
   begin
-    ShowForm(TFViewItems);
+    if Assigned(FChildForm) then
+      FChildForm.Free;
+    TFViewItems.CreateForm(WebPanel1.ElementID);
     lblAppTitle.Caption := 'Koehler-Gibson Items';
     setActive('Items');
   end

kgOrdersClient/View.OrderEntryCorrugated.dfm

@@ -227,6 +227,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 92
     Width = 300
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtcompanyname'
@@ -244,6 +245,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 120
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtaccountcompanyname'
@@ -259,6 +261,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 148
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtinquickbooks'
@@ -274,6 +277,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 314
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtshipvia'
@@ -289,6 +293,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 346
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtquantity'
@@ -304,6 +309,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 374
     Width = 121
     Height = 22
+    TabStop = False
     ChildOrder = 79
     ElementID = 'edtprice'
     ElementPosition = epRelative
@@ -318,6 +324,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 402
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtinvoiceto'
@@ -333,6 +340,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 458
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtponumber'
@@ -348,6 +356,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 486
     Width = 200
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtjobname'
@@ -363,6 +372,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 348
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtother'
@@ -378,6 +388,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 207
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtcadfile'
@@ -393,6 +404,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 179
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtaroundno'
@@ -408,6 +420,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 151
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtacrossno'
@@ -423,6 +436,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 123
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtdiecutno'
@@ -438,6 +452,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 95
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtrscd'
@@ -453,6 +468,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 64
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtrscw'
@@ -468,6 +484,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 39
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtrscl'
@@ -483,6 +500,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 506
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtcustomadhesive'
@@ -499,6 +517,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 478
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtcustombacking'
@@ -514,6 +533,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 450
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtstandardsetup'
@@ -529,6 +549,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 430
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtstripmount'
@@ -544,6 +565,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 334
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtloose'
@@ -559,6 +581,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 261
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtrscstyle'
@@ -676,6 +699,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 117
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtclemson'
@@ -692,6 +716,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 89
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtcrosshairs'
@@ -708,6 +733,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 64
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtmachineindent'
@@ -724,6 +750,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 39
     Width = 121
     Height = 22
+    TabStop = False
     AutoSize = True
     ChildOrder = 79
     ElementID = 'edtcylindersize'
@@ -1220,6 +1247,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 194
     Width = 121
     Height = 22
+    TabStop = False
     ChildOrder = 81
     ElementID = 'edtordernum'
     Enabled = False
@@ -1269,7 +1297,6 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 44
   end
   object XDataWebDataSet1: TXDataWebDataSet
-    BeforePost = XDataWebDataSet1BeforePost
     Connection = DMConnection.ApiConnection
     Left = 1060
     Top = 182

kgOrdersClient/View.OrderEntryCorrugated.pas

@@ -1122,3 +1122,4 @@ initialization
 
 end.
 
+

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -1985,40 +1985,49 @@ var
   SQL: string;
 
 begin
-  result := TJSONObject.Create;
-  JSONData := TJSONObject.ParseJSONValue(itemInfo) as TJSONObject;
-  if JSONData = nil then
-    raise Exception.Create('Invalid JSON format');  // If parsing fails, raise an exception
-  mode := JSONData.GetValue<string>('mode');
+  try
+    logger.Log(1, 'Add Item Hit');
+    result := TJSONObject.Create;
+    JSONData := TJSONObject.ParseJSONValue(itemInfo) as TJSONObject;
+    if JSONData = nil then
+      raise Exception.Create('Invalid JSON format');  // If parsing fails, raise an exception
+    mode := JSONData.GetValue<string>('mode');
 
-  Name := JSONData.GetValue<string>('qb_item_name');
-  Description := JSONData.GetValue<string>('item_desc');
-  Status := StrToBool(JSONData.GetValue<string>('status'));
+    Name := JSONData.GetValue<string>('qb_item_name');
+    Description := JSONData.GetValue<string>('item_desc');
+    Status := StrToBool(JSONData.GetValue<string>('status'));
 
-    SQL := 'select * from qb_items where qb_item_name = ' + QuotedStr(Name);
+      SQL := 'select * from qb_items where qb_item_name = ' + QuotedStr(Name);
 
-  if mode = 'ADD' then
-  begin
-    doQuery(ordersDB.UniQuery1, SQL);
-    if true then //ordersDB.UniQuery1.IsEmpty then
+    if mode = 'ADD' then
     begin
-      ordersDB.UniQuery1.Insert;
+      doQuery(ordersDB.UniQuery1, SQL);
+      if true then //ordersDB.UniQuery1.IsEmpty then
+      begin
+        ordersDB.UniQuery1.Insert;
 
-      ordersDB.UniQuery1.FieldByName('qb_item_name').AsString := Name;
-      ordersDB.UniQuery1.FieldByName('item_desc').AsString := Description;
-      if status then
-        ordersDB.UniQuery1.FieldByName('status').AsString := 'ACTIVE'
-      else
-        ordersDB.UniQuery1.FieldByName('status').AsString := 'INACTIVE';
+        ordersDB.UniQuery1.FieldByName('qb_item_name').AsString := Name;
+        ordersDB.UniQuery1.FieldByName('item_desc').AsString := Description;
+        if status then
+          ordersDB.UniQuery1.FieldByName('status').AsString := 'ACTIVE'
+        else
+          ordersDB.UniQuery1.FieldByName('status').AsString := 'INACTIVE';
 
-      ordersDB.UniQuery1.FieldByName('qb_items_qb_id').AsString := JSONData.GetValue<string>('qb_items_qb_id');
+        ordersDB.UniQuery1.FieldByName('qb_items_qb_id').AsString := JSONData.GetValue<string>('qb_items_qb_id');
 
-      ordersDB.UniQuery1.Post;
-      Result.AddPair('msg', 'Success: Item successfully added');
-    end
-    else
-      Result.AddPair('msg', 'Failure: Item already exists');
-  end;
+        ordersDB.UniQuery1.Post;
+        Result.AddPair('msg', 'Success: Item successfully added');
+        Result.AddPair('description', ordersDB.UniQuery1.FieldByName('item_desc').AsString);
+        Result.AddPair('name', ordersDB.UniQuery1.FieldByName('qb_item_name').AsString);
+        Result.AddPair('status', ordersDB.UniQuery1.FieldByName('status').AsString);
+      end
+      else
+        Result.AddPair('msg', 'Failure: Item already exists');
+    end;
+  except
+    on E: Exception do
+      logger.Log(5, 'An error occurred when adding an item: ' + E.Message);
+    end;
 end;
 
 

kgOrdersServer/kgOrdersServer.ini

@@ -2,11 +2,11 @@
 MemoLogLevel=3
 FileLogLevel=5
 webClientVersion=0.9.6
-LogFileNum=819
+LogFileNum=826
 
 [Database]
---Server=192.168.159.153
-Server=192.168.102.130
+Server=192.168.159.144
+--Server=192.168.102.130
 --Server=192.168.75.133
 Database=kg_order_entry
 Username=root