finished all QB links needed to update Dave's database

kgOrdersClient/View.AddItem.dfm

@@ -261,6 +261,9 @@ object fViewAddItem: TfViewAddItem
     object xdwdsCustomersstatus: TStringField
       FieldName = 'status'
     end
+    object xdwdsCustomersqb_items_qb_id: TStringField
+      FieldName = 'qb_items_qb_id'
+    end
   end
   object wdsCustomers: TWebDataSource
     DataSet = xdwdsCustomers

kgOrdersClient/View.AddItem.pas

@@ -29,6 +29,7 @@ type
     xdwdsCustomersqb_item_name: TStringField;
     xdwdsCustomersitem_desc: TStringField;
     xdwdsCustomersstatus: TStringField;
+    xdwdsCustomersqb_items_qb_id: TStringField;
     procedure WebFormCreate(Sender: TObject);
     procedure WebFormShow(Sender: TObject);
     procedure TMSFNCGrid1CellClick(Sender: TObject; ACol, ARow: Integer);
@@ -157,6 +158,7 @@ begin
   ItemJSON.AddPair('qb_item_name', xdwdsCustomers.FieldByName('qb_item_name').AsString);
   ItemJSON.AddPair('item_desc', xdwdsCustomers.FieldByName('item_desc').AsString);
   ItemJSON.AddPair('status', xdwdsCustomers.FieldByName('status').AsString);
+  ItemJSON.AddPair('qb_items_qb_id', xdwdsCustomers.FieldByName('qb_items_qb_id').AsString);
   ItemJSON.AddPair('mode', 'ADD');
 
 

kgOrdersClient/View.Items.pas

@@ -12,7 +12,7 @@ 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, WebAudio;
+  XData.Web.Dataset, XData.Web.Connection, Vcl.Forms, DateUtils;
 
 type
   TFViewItems = class(TWebForm)
@@ -404,7 +404,7 @@ var
 begin
   newform := TFViewAddItem.CreateNew;
 
-  newform.Caption := 'Select Customer and Order Type';
+  newform.Caption := 'Select Item to Add';
   newForm.Popup := True;
   newForm.position:= poScreenCenter;
   newForm.Border := fbDialog;

kgOrdersClient/View.OrderEntryCorrugated.dfm

@@ -1271,6 +1271,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     Top = 256
   end
   object XDataWebDataSet1: TXDataWebDataSet
+    BeforePost = XDataWebDataSet1BeforePost
     Connection = DMConnection.ApiConnection
     Left = 1060
     Top = 182

kgOrdersClient/View.OrderEntryCorrugated.pas

@@ -237,6 +237,7 @@ type
     procedure ShowAddAddressForm();
     [async] procedure SendAddressToServer(AddressJSON: TJSONObject);
     procedure edtJobNameChange(Sender: TObject);
+    procedure XDataWebDataSet1BeforePost(DataSet: TDataSet);
   private
     FModalAction: string;
     FAgencyCode: string;
@@ -878,6 +879,8 @@ begin
     XDataWebDataSet1.Close;
     XDataWebDataSet1.SetJsonData(order);
     XDataWebDataSet1.Open;
+    XDataWebDataSet1.Edit;
+
     if XDataWebDataSet1colors_colors.Value <> '' then
     begin
     colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1colors_colors.Value));
@@ -1075,6 +1078,12 @@ begin
 end;
 
 
+procedure TFOrderEntryCorrugated.XDataWebDataSet1BeforePost(DataSet: TDataSet);
+begin
+  if not (DataSet.State in [dsEdit, dsInsert]) then
+    DataSet.Edit; // Force edit mode if autofill tries to post
+end;
+
 procedure TFOrderEntryCorrugated.xdwdsQBItemAfterEdit(DataSet: TDataSet);
 begin
   EditMode();

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -2009,6 +2009,8 @@ begin
       else
         ordersDB.UniQuery1.FieldByName('status').AsString := 'INACTIVE';
 
+      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
@@ -2656,6 +2658,7 @@ begin
     else
       ParsedItem.AddPair('item_desc', 'N/A');
     ParsedItem.AddPair('status', item.GetValue<string>('Active'));
+    ParsedItem.AddPair('qb_items_qb_id', item.GetValue<string>('Id'));
 
     Result.AddElement(ParsedItem);
   end;

kgOrdersServer/Source/qbAPI.dfm

@@ -69,9 +69,9 @@ object fQB: TfQB
   end
   object Memo1: TMemo
     Left = 0
-    Top = 53
+    Top = 63
     Width = 982
-    Height = 228
+    Height = 218
     Align = alBottom
     Lines.Strings = (
       '')
@@ -239,7 +239,7 @@ object fQB: TfQB
       SortSettings.HeaderColorTo = clWhite
       SortSettings.HeaderMirrorColor = clWhite
       SortSettings.HeaderMirrorColorTo = clWhite
-      Version = '9.1.4.1'
+      Version = '9.1.4.5'
       ColWidths = (
         64
         64
@@ -394,7 +394,7 @@ object fQB: TfQB
       SortSettings.HeaderColorTo = clWhite
       SortSettings.HeaderMirrorColor = clWhite
       SortSettings.HeaderMirrorColorTo = clWhite
-      Version = '9.1.4.1'
+      Version = '9.1.4.5'
       ColWidths = (
         64
         64
@@ -423,6 +423,42 @@ object fQB: TfQB
     TabOrder = 10
     OnClick = Button8Click
   end
+  object Button9: TButton
+    Left = 121
+    Top = 32
+    Width = 95
+    Height = 25
+    Caption = 'Get Estimate'
+    TabOrder = 11
+    OnClick = Button9Click
+  end
+  object Button10: TButton
+    Left = 222
+    Top = 32
+    Width = 75
+    Height = 25
+    Caption = 'Update QB ID'
+    TabOrder = 12
+    OnClick = Button10Click
+  end
+  object Button11: TButton
+    Left = 316
+    Top = 32
+    Width = 113
+    Height = 25
+    Caption = 'update QB Items'
+    TabOrder = 13
+    OnClick = Button11Click
+  end
+  object Button12: TButton
+    Left = 435
+    Top = 32
+    Width = 190
+    Height = 25
+    Caption = 'Delete Customers without orders'
+    TabOrder = 14
+    OnClick = Button12Click
+  end
   object uq: TUniQuery
     Connection = ApiDatabase.ucKG
     SQL.Strings = (

kgOrdersServer/kgOrdersServer.ini

@@ -2,10 +2,10 @@
 MemoLogLevel=3
 FileLogLevel=5
 webClientVersion=0.9.6
-LogFileNum=758
+LogFileNum=819
 
 [Database]
-Server=192.168.159.153
+Server=192.168.159.144
 --Server=192.168.102.130
 --Server=192.168.75.133
 Database=kg_order_entry
@@ -17,6 +17,6 @@ Password=emsys01
 CompanyID=9341454272655710 
 ClientID=ABgO14uvjh8XqLud7spQ8lkb98AUpcdA7HbyMJfCAtl65sQ5yy
 ClientSecret=bQ06TRemHeAGFzVHRaTUvUoBU9jpU9itK6MOMgqN
-RefreshToken=RT1-251-H0-1759499151mghzkhn74tjkqi2vg5c0
-AccessToken=eyJhbGciOiJkaXIiLCJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwieC5vcmciOiJIMCJ9..BPFIXN1xTjdWuZGjkh1jUQ.IghcYUEoPWx47KnmuIbgZBNm1EhInMZjAXUi68M-l6zZkuKnlQYmbYq6gC3gIyTd66cx85t7pMmdBAH_q-v3qkUKx2ZqVSRZyYVKSrxYWFl0Vafzbj_BY-4kjrGEqZRFtR4dfQfbFmmlDW215Vjn8MO9v3tvgAVbWO9kafJ3Frv4KtNRgJQPmC01nz4ixF5RD91EnCSo-q4DuuRtCERkjjIiEW9D8ODt1GexshbHxam7dWCDGM2yHX_V0trWi37X5jBBrWgTYRogXhTPfpvlfkCQKTrNmKWhVDuVUxJB3aPREI43IMlW6h3hf445quAjINvgK5wokDCnmVPW3XvIDvnckgAaa9qOLzpl5UktpjqDRRiI4zVNs6BXP7kCsZs9ez0Ai5oeWgj0_j0NKbuVW1exkLcrinmYrMny-s8XpADNDslW8XCmJnHPsOWqZZL5bEXFJXPcYfPkGkV7rt-ln84gRD9413Ji05cmOzO1X5ClhrRhFRwjT3dbrgh88Dro-vMNs3weRdYOVpYFvA5aDXs9xkmHx8auphCdZo5a3sB8n9iKiM618HR-mSeYwCIU3aF2xE8kx0ljH8qVgX1bI2w9ByfM-mNBkasu3uKDH3HcpfqJBKWNOkG692JjzBoy.6H4UaInosVyqlMSCqGMAaA
-LastRefresh=6/24/2025 10:51:36 AM
+RefreshToken=RT1-10-H0-1760618473k44t73jittvqlr4wynn6
+AccessToken=eyJhbGciOiJkaXIiLCJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwieC5vcmciOiJIMCJ9..IwosInYT2Am8LdNGXuY-zQ._QdW6AZ0up2uAna580wQy7qAZPo3nkfHo0eeSpKllcJ_s69nh33Ld41MnTkxeAv1v1bxhvkDxEvkevfNGnggNHU3XSqIqb6tTKcAqR4zPf14JYgOkn82tw_q2VXWLgboMMpP6CfcBHeZPIbJcEOkmX5g4CY0NOum1-_beYmDHE2sxAxnKxcg3rhjBo33BTFjXSg1xknvkTO_GVbyAWdyZmQOpFRfdXAeUDnPAEZhYNVfACFkEDubdK7PyfcAs_7un_E0NZf270tMc2W0HTyk24wCSLbfeeH2Su-G2wi21JszcNsXSNt9ayGtHEXNcWG6A54k1M8U7o_mvpCXLPEXDtJkx8HnBvTz_ZXrFaztQf0_c8DLld5zW8FC1wn-SzHyoCbYbR2M6tBjVLiK80_FlAal_YjBI8fk9BX7nBab6LbCBIcunt7hRsLWCPiRI8_fwM_Nj8rlvxtIoClcyV7_VpIpxCVUgmxKmgf7zuWD3fYc3i8Bg-DpgGgWPVATXSlfNKhOWIDZfyy0YOlkreXPlNdQwCJ1Su3_3yzu_DioV76C5orqoeWk25NiopiAqJ7cBMj15EiuFx-w3jaqCv6ovzEc5r3by510TNu6msjUh2RQ-nxVqLjyLt6VIp3O00e_.2itJJ0rFwI-foW2v1hDSrw
+LastRefresh=7/7/2025 1:49:30 PM