fixed issue where web and corrugated plate werent copying correctly

also cleaned up qbAPI page on server side

kgOrdersClient/View.OrderEntryCorrugated.pas

@@ -330,7 +330,7 @@ end;
 procedure TFOrderEntryCorrugated.btnCopyClick(Sender: TObject);
 begin
   mode := 'ADD';
-  window.scrollTo(0, 0);
+  xdwdsOrder.Edit;
   xdwdsOrder.FieldByName('staff_fields_order_date').AsDateTime := 0;
   xdwdsOrder.FieldByName('staff_fields_proof_date').AsDateTime := 0;
   xdwdsOrder.FieldByName('staff_fields_art_due').AsDateTime := 0;
@@ -342,6 +342,7 @@ begin
   xdwdsOrder.FieldByName('IN_QB').AsString := 'F';
   xdwdsOrder.FieldByName('QB_ORDER_NUM').AsString := '';
   xdwdsOrder.FieldByName('ORDER_ID').AsString := '';
+  xdwdsOrder.Post;
   EditMode();
   ShowToast('Success: Order Successfully Copied');
   window.scrollTo(0, 0);

kgOrdersClient/View.OrderEntryWeb.pas

@@ -385,7 +385,26 @@ end;
 procedure TFOrderEntryWeb.btnCopyClick(Sender: TObject);
 begin
   mode := 'ADD';
-  edtOrderNum.Text := '';
+  xdwdsOrder.Edit;
+  xdwdsOrder.FieldByName('staff_fields_order_date').AsDateTime := 0;
+  xdwdsOrder.FieldByName('staff_fields_proof_date').AsDateTime := 0;
+  xdwdsOrder.FieldByName('staff_fields_art_due').AsDateTime := 0;
+  xdwdsOrder.FieldByName('staff_fields_plate_due').AsDateTime := 0;
+  xdwdsOrder.FieldByName('staff_fields_ship_date').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_pdf_date_1').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_pdf_date_2').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_pdf_date_3').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_ink_jet_date_1').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_ink_jet_date_2').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_ink_jet_date_3').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_color_contrac_date_1').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_color_contrac_date_2').AsDateTime := 0;
+  xdwdsOrder.FieldByName('proofing_digital_color_date_1').AsDateTime := 0;
+
+  xdwdsOrder.FieldByName('IN_QB').AsString := 'F';
+  xdwdsOrder.FieldByName('QB_ORDER_NUM').AsString := '';
+  xdwdsOrder.FieldByName('ORDER_ID').AsString := '';
+  xdwdsOrder.Post;
   EditMode();
   ShowToast('Success: Order Successfully Copied');
   window.scrollTo(0, 0);

kgOrdersServer/Source/qbAPI.pas

@@ -105,8 +105,6 @@ type
     uqstaff_fields_art_location: TStringField;
     Splitter1: TSplitter;
     Splitter2: TSplitter;
-    AdvPanel1: TAdvPanel;
-    asgData: TAdvStringGrid;
     Panel1: TPanel;
     Button2: TButton;
     Button3: TButton;
@@ -132,6 +130,8 @@ type
     Button13: TButton;
     Panel3: TPanel;
     Button14: TButton;
+    AdvPanel1: TAdvPanel;
+    asgData: TAdvStringGrid;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -619,7 +619,7 @@ var
   ShipMethodRef: TJSONObject;
   unitPrice: double;
 begin
-  Memo1.Clear
+  Memo1.Clear;
   Memo1.Lines.Add('Adding Order ' + orderInfo + ' to QB');
   BillAddrJSON := TJSONObject.Create;
   ShipAddrJSON := TJSONObject.Create;
@@ -1404,6 +1404,7 @@ var
   i, j: integer;
   row: integer;
 begin
+  asgData.FixedRowAlways := true;
   Memo1.Lines.Add( '---------------------------------------------------------------' );
   Memo1.Lines.Add( 'LoadJsonArray into asgData' );
 

kgOrdersServer/kgOrdersServer.ini

@@ -2,7 +2,7 @@
 MemoLogLevel=3
 FileLogLevel=5
 webClientVersion=0.9.7
-LogFileNum=950
+LogFileNum=961
 
 [Database]
 Server=192.168.159.155
@@ -17,6 +17,6 @@ Password=emsys01
 CompanyID=9341454336461805 
 ClientID=ABYqlDx1EsacZYXvHIJ7RDB7zmnQdwABU3fwQLIZPmBgU0VW1P
 ClientSecret=PM7OnvQWsgOqjWfDpZAnyRttDN9446Am6d85pDxr
-RefreshToken=RT1-239-H0-1763040466igs14r2e4bjybwf86uzy
+RefreshToken=RT1-103-H0-1763213066r9617yglhu5jm7fm11jh
 AccessToken=eyJhbGciOiJkaXIiLCJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwieC5vcmciOiJIMCJ9..lXW-FVFOPPAtm-tzjyrE3Q.vWV5cCaLiP03iXblbK5VbosURDrUNsJT5uaKPzzv2S3Nujulxp57ss--nKRVmFBYuwIXxz6VDwh6SqxaECJrR5yysauOcKuz7m22qjOOTPJyaeEhm0u2FLvAODSUpaHN5NDQSgHqBd6_-E-B8gEJeHqDpO3UqxDi9yxy6Px3kyZWXs7InUWYEHtROsPOR_HeJ2vFMhXA5fkifbxCb5bkJOEABoAzrBoLm2QSD6VbV5ydfdrSwfuV--oZ0nvabPS88JurJSbaJyDKCUSmOEt2bnZadhEq88dHMNcOPfqELYSU0dKrzMs-TPYgqeg5wOx_MO0cKkRnSaACCevj-LCYo2YKgxXyYoiNgFIf6Gf4TfLO5is0nh3I0IT14112DBUc7lFwaBCS5m3d_4SCv6sH41rkr01wIPs2o45vGStSgUCuzHQos1UtrEvX96S2NDFt1sYQcNXpFexiTB5Z9WCJgmEH3xuUrkW_d6wzVCD-Src.ZmSj6RCCiDipsvEli9fdLg
 LastRefresh=8/4/2025 9:27:46 AM