Two missing files from last commit

kgOrdersClient/AddCustomer.dfm

@@ -465,7 +465,7 @@ object FViewAddCustomer: TFViewAddCustomer
     DataField = 'REP_USER_ID'
     DataSource = WebDataSource1
     KeyField = 'userID'
-    ListField = 'full_name'
+    ListField = 'representative'
     ListSource = wdsUsers
   end
   object XDataWebClient1: TXDataWebClient
@@ -579,5 +579,9 @@ object FViewAddCustomer: TFViewAddCustomer
       FieldName = 'full_name'
       Size = 0
     end
+    object xdwdsUsersrepresentative: TStringField
+      FieldName = 'representative'
+      Size = 0
+    end
   end
 end

kgOrdersClient/AddCustomer.pas

@@ -79,7 +79,8 @@ type
     XDataWebDataSet1REP_USER_ID: TStringField;
     xdwdsUsersfull_name: TStringField;
     lblFormState: TWebLabel;
-    [async] procedure btnSaveClick(Sender: TObject);
+    [async]
+    xdwdsUsersrepresentative: TStringField; procedure btnSaveClick(Sender: TObject);
     procedure btnCancelClick(Sender: TObject);
     procedure btnCloseClick(Sender: TObject);
     procedure btnEditClick(Sender: TObject);
@@ -103,6 +104,7 @@ type
     [async] procedure SendCustomerToServer();
     [async] procedure SendAddressToServer();
     [async] procedure DelAddress();
+    [async] procedure Save();
     function VerifyCustomer(): boolean;
     function VerifyAddress(): boolean;
     procedure Clear();
@@ -425,12 +427,17 @@ procedure TFViewAddCustomer.btnSaveClick(Sender: TObject);
 begin
   if VerifyCustomer() then
   begin
-    await(sendCustomerToServer());
-    await(GetCustomer());
-    ViewMode();
+    Save();
   end;
 end;
 
+procedure TFViewAddCustomer.Save;
+begin
+  await(sendCustomerToServer());
+  await(GetCustomer());
+  ViewMode();
+end;
+
 procedure TFViewAddCustomer.btnShipAddClick(Sender: TObject);
 // Sets the form to address edit mode and allows the user to add a shipping address.
 begin