Auto stash before merge of "master" and "origin/master"

kgOrdersClient/View.OrderEntryCorrugated.pas

@@ -652,6 +652,7 @@ var
   xdcResponse: TXDataClientResponse;
   customer : TJSObject;
   address: string;
+  items: TJSObject;
 begin
   xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer',
         [customerID]));
@@ -666,6 +667,11 @@ begin
   xdwdsShipTo.SetJSONData(customer['ADDRESS_LIST']);
   xdwdsShipTo.Open;
 
+  xdwdsQBItem.Close;
+  items := TJSObject(customer['ITEMS']);
+  xdwdsQBItem.SetJsonData(items['data']);
+  xdwdsQBITEM.Open;
+
 end;
 
 procedure TFOrderEntryCorrugated.WebFormShow(Sender: TObject);

kgOrdersClient/View.OrderEntryCuttingDie.pas

@@ -277,6 +277,7 @@ var
   xdcResponse: TXDataClientResponse;
   customer : TJSObject;
   address: string;
+  items: TJSObject;
 begin
 
   xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer',
@@ -292,6 +293,11 @@ begin
   xdwdsShipTo.SetJSONData(customer['ADDRESS_LIST']);
   xdwdsShipTo.Open;
 
+  xdwdsQBItem.Close;
+  items := TJSObject(customer['ITEMS']);
+  xdwdsQBItem.SetJsonData(items['data']);
+  xdwdsQBITEM.Open;
+
 end;
 
 procedure TFOrderEntryCuttingDie.WebFormShow(Sender: TObject);

kgOrdersClient/View.OrderEntryWeb.pas

@@ -582,6 +582,7 @@ var
   xdcResponse: TXDataClientResponse;
   customer : TJSObject;
   address: string;
+  items: TJSObject;
 begin
   xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCustomer',
         [customerID]));
@@ -596,6 +597,11 @@ begin
   xdwdsShipTo.SetJSONData(customer['ADDRESS_LIST']);
   xdwdsShipTo.Open;
 
+  xdwdsQBItem.Close;
+  items := TJSObject(customer['ITEMS']);
+  xdwdsQBItem.SetJsonData(items['data']);
+  xdwdsQBITEM.Open;
+
 end;
 
 procedure TFOrderEntryWeb.WebFormShow(Sender: TObject);

kgOrdersServer/Source/Lookup.Service.pas

@@ -117,6 +117,7 @@ type
     SHORT_NAME: string;
     staff_fields_invoice_to: string;
     ADDRESS_LIST: TList<TAddressItem>;
+    ITEMS: TItemList;
   end;
 
   TCustomerList = class

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -145,6 +145,7 @@ begin
 
   ordersDB.UniQuery1.Close;
 
+  result.ITEMS := GetItems('');
 end;
 
 function TLookupService.GenerateOrderListPDF(searchOptions: string): string;

kgOrdersServer/kgOrdersServer.ini

 [Settings]
 MemoLogLevel=3
 FileLogLevel=5
-LogFileNum=345
 webClientVersion=0.9.2
+LogFileNum=345
 
 [Database]
 --Server=192.168.159.132