Began working on popup menu to add

kgOrdersClient/View.OrderList.dfm

@@ -48,8 +48,8 @@ object FOrderList: TFOrderList
     WidthPercent = 100.000000000000000000
   end
   object pnlMessage: TWebPanel
-    Left = 220
-    Top = 429
+    Left = 24
+    Top = 57
     Width = 121
     Height = 33
     ElementClassName = 'card'
@@ -91,8 +91,8 @@ object FOrderList: TFOrderList
     end
   end
   object WebDBTableControl: TWebDBTableControl
-    Left = 160
-    Top = 131
+    Left = 172
+    Top = 287
     Width = 530
     Height = 265
     ElementClassName = 'table-responsive'
@@ -102,7 +102,6 @@ object FOrderList: TFOrderList
     ColHeader = False
     ElementTableClassName = 'table table-striped table-bordered table-hover dataTable'
     Options.ResizeColumns = True
-    OnGetCellChildren = WebDBTableControlGetCellChildren
     Columns = <
       item
         DataField = 'ID'
@@ -124,6 +123,58 @@ object FOrderList: TFOrderList
       end>
     DataSource = wdsCustomers
   end
+  object cbCorrugatedPlate: TWebCheckBox
+    Left = 172
+    Top = 210
+    Width = 113
+    Height = 22
+    Caption = 'Corrugated Plate'
+    Checked = True
+    ChildOrder = 5
+    HeightPercent = 100.000000000000000000
+    State = cbChecked
+    WidthPercent = 100.000000000000000000
+    OnClick = cbCorrugatedPlateClick
+  end
+  object cbWebPlate: TWebCheckBox
+    Left = 304
+    Top = 210
+    Width = 113
+    Height = 22
+    Caption = 'Web Plate'
+    ChildOrder = 5
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = cbWebPlateClick
+  end
+  object edtCompanyName: TWebEdit
+    Left = 302
+    Top = 252
+    Width = 121
+    Height = 22
+    ChildOrder = 7
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtID: TWebEdit
+    Left = 172
+    Top = 252
+    Width = 121
+    Height = 22
+    ChildOrder = 8
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object btnConfirm: TWebButton
+    Left = 564
+    Top = 251
+    Width = 96
+    Height = 25
+    Caption = 'Confirm'
+    ChildOrder = 9
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
   object XDataWebClient1: TXDataWebClient
     Connection = DMConnection.ApiConnection
     Left = 88

kgOrdersClient/View.OrderList.pas

@@ -26,10 +26,17 @@ type
     xdwdsCustomersSHORT_NAME: TStringField;
     xdwdsCustomersADDRESS: TStringField;
     WebDBTableControl: TWebDBTableControl;
+    cbCorrugatedPlate: TWebCheckBox;
+    cbWebPlate: TWebCheckBox;
+    edtCompanyName: TWebEdit;
+    edtID: TWebEdit;
+    btnConfirm: TWebButton;
     procedure WebFormShow(Sender: TObject);
     procedure WebDBTableControlGetCellChildren(Sender: TObject; ACol,
       ARow: Integer; AField: TField; AValue: string;
       AElement: TJSHTMLElementRecord);
+    procedure cbCorrugatedPlateClick(Sender: TObject);
+    procedure cbWebPlateClick(Sender: TObject);
   private
     //FJSONProc: TJSONProc;
     procedure AddRowToTable();
@@ -73,6 +80,16 @@ begin
  getCustomers();
 end;
 
+procedure TFOrderList.cbCorrugatedPlateClick(Sender: TObject);
+begin
+  cbWebPlate.Checked := false;
+end;
+
+procedure TFOrderList.cbWebPlateClick(Sender: TObject);
+begin
+  cbCorrugatedPlate.Checked := false;
+end;
+
 procedure TFOrderList.ClearTable();
 // clears the table
 var
@@ -96,43 +113,9 @@ begin
     customerList :=  TJSObject(xdcResponse.Result);
     data := TJSArray(customerList['data']);
     count := integer(customerList['count']);
-   // ClearTable();
-   //customerGrid.col
     xdwdsCustomers.Close;
     xdwdsCustomers.SetJsonData(customerList['data']);
     xdwdsCustomers.Open;
-    console.log(xdwdsCustomersID);
-    {for i := 0 to data.Length - 1 do
-    begin
-      customer := TJSObject(data[i]);
-      //AddRowToTable();
-      xdwdsCustomers.Next;
-    end;}
-    {TotalPages := (callListLength + PageSize - 1) div PageSize;
-    if callListLength = 0 then
-    begin
-      lblEntries.Caption := 'No entries found';
-      lblEntries2.Caption := 'No entries found';
-    end
-    else if (PageNumber * PageSize) < callListLength then
-    begin
-      lblEntries.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
-                            ' - ' + IntToStr(PageNumber * PageSize) +
-                             ' of ' + IntToStr(callListLength);
-      lblEntries2.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
-                            ' - ' + IntToStr(PageNumber * PageSize) +
-                             ' of ' + IntToStr(callListLength);
-    end
-    else if (PageNumber * PageSize) >= callListLength then
-    begin
-       lblEntries.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
-                            ' - ' + IntToStr(callListLength) +
-                             ' of ' + IntToStr(callListLength);
-      lblEntries2.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
-                            ' - ' + IntToStr(callListLength) +
-                             ' of ' + IntToStr(callListLength);
-    end;
-    //GeneratePagination(TotalPages);}
 end;
 
 procedure TFOrderList.AddRowToTable();

kgOrdersServer/Source/Lookup.Service.pas

@@ -88,6 +88,8 @@ type
   Public
     NAME: string;
     ID: integer;
+    SHORT_NAME: string;
+    ADDRESS: string;
   end;
 
   TCustomerList = class

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -62,10 +62,10 @@ end;
 
 function TLookupService.GetCustomers: TCustomerList;
 var
-  SQL: string;
+  SQL, ADDRESS: string;
   customer: TCustomerItem;
 begin
-  SQL := 'select NAME, CUSTOMER_ID from customers';
+  SQL := 'select NAME, CUSTOMER_ID, SHORT_NAME, BILL_ADDRESS, BILL_CITY, BILL_STATE, BILL_ZIP from customers';
   doQuery(ordersDB.UniQuery1, SQL);
 
   result := TCustomerList.Create;
@@ -79,6 +79,10 @@ begin
     TXDataOperationContext.Current.Handler.ManagedObjects.Add( customer );
     customer.NAME := ordersDB.UniQuery1.FieldByName('NAME').AsString;
     customer.ID := ordersDB.UniQuery1.FieldByName('CUSTOMER_ID').AsInteger;
+    customer.SHORT_NAME := ordersDB.UniQuery1.FieldByName('SHORT_NAME').AsString;
+    customer.ADDRESs := ordersDB.UniQuery1.FieldByName('BILL_ADDRESS').AsString +
+                        ', ' + ordersDB.UniQuery1.FieldByName('BILL_CITY').AsString +
+                        ' ' + ordersDB.UniQuery1.FieldByName('BILL_ZIP').AsString;
     result.data.Add(customer);
     result.count := result.count + 1;
     ordersDB.UniQuery1.Next;

kgOrdersServer/kgOrdersServer.ini

 [Options]
 
-LogFileNum=221
+LogFileNum=223
 
 UpdateTimerLength=0