Initial Commit

.gitignore

+kgOrdersClient/__history/
+kgOrdersClient/__recovery/
+kgOrdersClient/TMSWeb
+kgOrdersClient/Win32
+kgOrdersClient/template/css/__history/
+kgOrdersServer/__history
+kgOrdersServer/__recovery
+kgOrdersServer/doc/
+kgOrdersServer/Win32/
+kgOrdersServer/*.log
+kgOrdersServer/*.txt
+kgOrdersServer/Source/__history
+kgOrdersServer/Source/__recovery/
+
+*.local
+*.exe
+*.identcache
+*.res
+*.tvsconfig

kgOrdersClient/App.Config.pas

+unit App.Config;
+
+interface
+
+uses
+  JS,
+  XData.Web.Connection,
+  XData.Web.Request,
+  XData.Web.Response;
+
+type
+  TAppConfig = class
+  private
+    FAuthUrl: string;
+    FApiUrl: string;
+    FAppUrl: string;
+  public
+    constructor Create;
+    property AuthUrl: string read FAuthUrl write FAuthUrl;
+    property ApiUrl: string read FApiUrl write FApiUrl;
+    property AppUrl: string read FAppUrl write FAppUrl;
+  end;
+
+  TConfigLoadedProc = reference to procedure(Config: TAppConfig);
+
+  procedure LoadConfig(LoadProc: TConfigLoadedProc);
+
+implementation
+
+procedure LoadConfig(LoadProc: TConfigLoadedProc);
+
+  procedure OnSuccess(Response: IHttpResponse);
+  var
+    Obj: TJSObject;
+    Config: TAppConfig;
+  begin
+    Config := TAppConfig.Create;
+    try
+      if Response.StatusCode = 200 then
+      begin
+        Obj := TJSObject(TJSJSON.parse(Response.ContentAsText));
+
+        if JS.toString(Obj['AuthUrl']) <> '' then
+          Config.AuthUrl := JS.toString(Obj['AuthUrl']);
+
+        if JS.toString(Obj['ApiUrl']) <> '' then
+          Config.ApiUrl := JS.toString(Obj['ApiUrl']);
+
+        if JS.toString(Obj['AppUrl']) <> '' then
+          Config.AppUrl := JS.toString(Obj['AppUrl']);
+
+      end;
+    finally
+      LoadProc(Config);
+      Config.Free;
+    end;
+  end;
+
+  procedure OnError;
+  var
+    Config: TAppConfig;
+  begin
+    Config := TAppConfig.Create;
+    try
+      LoadProc(Config);
+    finally
+      Config.Free;
+    end;
+  end;
+
+var
+  Conn: TXDataWebConnection;
+begin
+  Conn := TXDataWebConnection.Create(nil);
+  try
+    Conn.SendRequest(THttpRequest.Create('config/config.json'), @OnSuccess, @OnError);
+  finally
+    Conn.Free;
+  end;
+end;
+
+{ TAppConfig }
+
+constructor TAppConfig.Create;
+begin
+  FAuthUrl := '';
+  FApiUrl := '';
+  FAppUrl := '';
+end;
+
+end.

kgOrdersClient/App.Types.pas

+unit App.Types;
+
+interface
+
+uses
+  Bcl.Rtti.Common;
+
+type
+  TProc = reference to procedure;
+
+  TSuccessProc = reference to procedure;
+  TLogoutProc = reference to procedure(AMessage: string = '');
+  TUnauthorizedAccessProc = reference to procedure(AMessage: string);
+
+  TListProc = reference to procedure;
+  TSelectProc = reference to procedure(AParam: string);
+  TSelectProc2 = reference to procedure(AParam: string; BParam: string);
+  TSelectProc3 = reference to procedure(AParam: string; BParam: string; CParam: Boolean);
+  TSelectProc4 = reference to procedure(AParam: string; BParam: string; CParam: string; DParam: Boolean);
+  TSearchProc = reference to procedure(AParam: string; BParam: string; CParam: Integer; DParam: Boolean);
+  TReportProc = reference to procedure(AParam: string);
+
+implementation
+
+
+end.

kgOrdersClient/Auth.Service.pas

+unit Auth.Service;
+
+interface
+
+uses
+  SysUtils, Web, JS,
+  XData.Web.Client;
+
+const
+  TOKEN_NAME = 'WEBENVOYCALLS_TOKEN';
+
+type
+  TOnLoginSuccess = reference to procedure;
+  TOnLoginError = reference to procedure(AMsg: string);
+  TOnProfileSuccess = reference to procedure;
+  TOnProfileError = reference to procedure(AMsg: string);
+
+  TAuthService = class
+  private
+    FClient: TXDataWebClient;
+    procedure SetToken(AToken: string);
+    procedure DeleteToken;
+  public
+    constructor Create; reintroduce;
+    destructor Destroy; override;
+    procedure Login(AUser, APassword: string; ASuccess: TOnLoginSuccess;
+      AError: TOnLoginError);
+    procedure Logout;
+    function GetToken: string;
+    function Authenticated: Boolean;
+    function TokenExpirationDate: TDateTime;
+    function TokenExpired: Boolean;
+    function TokenPayload: JS.TJSObject;
+  end;
+
+  TJwtHelper = class
+  private
+    class function HasExpirationDate(AToken: string): Boolean;
+  public
+    class function TokenExpirationDate(AToken: string): TJSDate;
+    class function TokenExpired(AToken: string): Boolean;
+    class function DecodePayload(AToken: string): string;
+  end;
+
+  function AuthService: TAuthService;
+
+implementation
+
+uses
+  ConnectionModule;
+
+var
+  _AuthService: TAuthService;
+
+function AuthService: TAuthService;
+begin
+  if not Assigned(_AuthService) then
+  begin
+    _AuthService := TAuthService.Create;
+  end;
+  Result := _AuthService;
+end;
+
+{ TAuthService }
+
+function TAuthService.Authenticated: Boolean;
+begin
+  Result := not isNull(window.localStorage.getItem(TOKEN_NAME)) and
+            (window.localStorage.getItem(TOKEN_NAME) <> '');
+end;
+
+constructor TAuthService.Create;
+begin
+  FClient := TXDataWebClient.Create(nil);
+  FClient.Connection := DMConnection.AuthConnection;
+end;
+
+procedure TAuthService.DeleteToken;
+begin
+  window.localStorage.removeItem(TOKEN_NAME);
+end;
+
+destructor TAuthService.Destroy;
+begin
+  FClient.Free;
+  inherited;
+end;
+
+function TAuthService.GetToken: string;
+begin
+  Result := window.localStorage.getItem(TOKEN_NAME);
+end;
+
+procedure TAuthService.Login(AUser, APassword: string; ASuccess: TOnLoginSuccess;
+  AError: TOnLoginError);
+
+  procedure OnLoad(Response: TXDataClientResponse);
+  var
+    Token: JS.TJSObject;
+  begin
+    Token := JS.TJSObject(Response.Result);
+    SetToken(JS.toString(Token.Properties['value']));
+    ASuccess;
+  end;
+
+  procedure OnError(Error: TXDataClientError);
+  begin
+    AError(Format('%s: %s', [Error.ErrorCode, Error.ErrorMessage]));
+  end;
+
+begin
+  if (AUser = '') or (APassword = '') then
+  begin
+    AError('Please enter a username and a password');
+    Exit;
+  end;
+
+  FClient.RawInvoke(
+    'IAuthService.Login', [AUser, APassword],
+    @OnLoad, @OnError
+  );
+end;
+
+procedure TAuthService.Logout;
+begin
+  DeleteToken;
+end;
+
+procedure TAuthService.SetToken(AToken: string);
+begin
+  window.localStorage.setItem(TOKEN_NAME, AToken);
+end;
+
+function TAuthService.TokenExpirationDate: TDateTime;
+var
+  ExpirationDate: TJSDate;
+begin
+  if not Authenticated then
+    Exit(Now);
+
+  ExpirationDate := TJwtHelper.TokenExpirationDate(GetToken);
+
+  Result := EncodeDate(
+              ExpirationDate.FullYear,
+              ExpirationDate.Month + 1,
+              ExpirationDate.Date
+            ) +
+            EncodeTime(
+              ExpirationDate.Hours,
+              ExpirationDate.Minutes,
+              ExpirationDate.Seconds,
+              0
+            );
+end;
+
+function TAuthService.TokenExpired: Boolean;
+begin
+  if not Authenticated then
+    Exit(False);
+  Result := TJwtHelper.TokenExpired(GetToken);
+end;
+
+function TAuthService.TokenPayload: JS.TJSObject;
+begin
+  if not Authenticated then
+    Exit(nil);
+  Result := TJSObject(TJSJSON.parse(TJwtHelper.DecodePayload(GetToken)));
+end;
+
+{ TJwtHelper }
+
+class function TJwtHelper.DecodePayload(AToken: string): string;
+begin
+  if Trim(AToken) = '' then
+    Exit('');
+  Result := '';
+  asm
+    var Token = AToken.split('.');
+    if (Token.length = 3) {
+      Result = Token[1];
+      Result = atob(Result);
+    }
+  end;
+end;
+
+class function TJwtHelper.HasExpirationDate(AToken: string): Boolean;
+var
+  Payload: string;
+  Obj: TJSObject;
+begin
+  Payload := DecodePayload(AToken);
+  Obj := TJSObject(TJSJSON.parse(Payload));
+  Result := Obj.hasOwnProperty('exp');
+end;
+
+class function TJwtHelper.TokenExpirationDate(AToken: string): TJSDate;
+var
+  Payload: string;
+  Obj: TJSObject;
+  Epoch: NativeInt;
+begin
+  if not HasExpirationDate(AToken) then
+    raise Exception.Create('Token has no expiration date');
+
+  Payload := DecodePayload(AToken);
+  Obj := TJSObject(TJSJSON.parse(Payload));
+  Epoch := toInteger(Obj.Properties['exp']);
+  Result := TJSDate.New(Epoch * 1000);
+end;
+
+class function TJwtHelper.TokenExpired(AToken: string): Boolean;
+begin
+  if not HasExpirationDate(AToken) then
+    Exit(False);
+  Result := TJSDate.now > toInteger(TokenExpirationDate(AToken).valueOf);
+end;
+
+end.

kgOrdersClient/ConnectionModule.dfm

+object DMConnection: TDMConnection
+  Height = 264
+  Width = 395
+  object ApiConnection: TXDataWebConnection
+    URL = 'http://localhost:2004/emsys/envoy/api/'
+    OnError = ApiConnectionError
+    OnRequest = ApiConnectionRequest
+    OnResponse = ApiConnectionResponse
+    Left = 48
+    Top = 80
+  end
+  object AuthConnection: TXDataWebConnection
+    URL = 'http://localhost:2004/emsys/envoycalls/auth/'
+    OnError = AuthConnectionError
+    Left = 48
+    Top = 16
+  end
+end

kgOrdersClient/ConnectionModule.pas

+unit ConnectionModule;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, WEBLib.Modules, XData.Web.Connection,
+  App.Types, App.Config;
+
+type
+  TDMConnection = class(TWebDataModule)
+    ApiConnection: TXDataWebConnection;
+    AuthConnection: TXDataWebConnection;
+    procedure ApiConnectionError(Error: TXDataWebConnectionError);
+    procedure ApiConnectionRequest(Args: TXDataWebConnectionRequest);
+    procedure ApiConnectionResponse(Args: TXDataWebConnectionResponse);
+    procedure AuthConnectionError(Error: TXDataWebConnectionError);
+  private
+    FUnauthorizedAccessProc: TUnauthorizedAccessProc;
+  public
+    procedure InitApp(SuccessProc: TSuccessProc;
+      UnauthorizedAccessProc: TUnauthorizedAccessProc);
+  end;
+
+var
+  DMConnection: TDMConnection;
+
+implementation
+
+uses
+  JS, Web,
+  XData.Web.Request,
+  XData.Web.Response,
+  Auth.Service,
+  View.ErrorPage;
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+procedure TDMConnection.ApiConnectionError(Error: TXDataWebConnectionError);
+begin
+  TFViewErrorPage.DisplayConnectionError(Error);
+end;
+
+procedure TDMConnection.ApiConnectionRequest(Args: TXDataWebConnectionRequest);
+begin
+  if AuthService.Authenticated then
+    Args.Request.Headers.SetValue('Authorization', 'Bearer ' + AuthService.GetToken);
+end;
+
+procedure TDMConnection.ApiConnectionResponse(
+  Args: TXDataWebConnectionResponse);
+begin
+  if Args.Response.StatusCode = 401 then
+    FUnauthorizedAccessProc(Format('%d: %s',[Args.Response.StatusCode, Args.Response.ContentAsText]));
+end;
+
+procedure TDMConnection.AuthConnectionError(Error: TXDataWebConnectionError);
+begin
+  TFViewErrorPage.DisplayConnectionError(Error);
+end;
+
+procedure TDMConnection.InitApp(SuccessProc: TSuccessProc;
+  UnauthorizedAccessProc: TUnauthorizedAccessProc);
+
+  procedure ConfigLoaded(Config: TAppConfig);
+  begin
+    if Config.AuthUrl <> '' then
+      AuthConnection.URL := Config.AuthUrl;
+
+    if Config.ApiUrl <> '' then
+      ApiConnection.URL := Config.ApiUrl;
+
+    AuthConnection.Open(SuccessProc);
+  end;
+
+begin
+  FUnauthorizedAccessProc := UnauthorizedAccessProc;
+  LoadConfig(@ConfigLoaded);
+end;
+
+end.

kgOrdersClient/Paginator.Plugins.pas

+unit Paginator.Plugins;
+
+interface
+
+uses
+  SysUtils, WEBLib.Lists;
+
+type
+  TPaginatorPlugin = class;
+
+  TOnItemClick = reference to procedure(APaginatorPlugin: TPaginatorPlugin);
+
+  TPaginatorPlugin = class
+  const
+    VISIBLE_PAGES = 7;
+    ITEM_CLASS_NAME = 'pagination_button';
+  strict private
+    FPaginator: TWebListControl;
+    FActivePage: integer;
+    function CreateItem: TListItem;
+    procedure InitPaginator(AActivePage: Integer; APageCount: Integer;
+      AVisiblePages: integer);
+    function GetActivePage: integer;
+  private
+    FOnItemClick: TOnItemClick;
+    FOriginalOnItemClick: TListItemEvent;
+    procedure InternalItemClick(Sender: TObject; AListItem: TListItem);
+  public
+    constructor Create(APaginator: TWebListControl;
+      AItemClickCallback: TOnItemClick);
+    procedure Init(AActivePage: Integer; APageCount: Integer);
+    property ActivePage: Integer read GetActivePage;
+  end;
+
+implementation
+
+{ TPaginatorPlugin }
+
+constructor TPaginatorPlugin.Create(APaginator: TWebListControl;
+  AItemClickCallback: TOnItemClick);
+begin
+  FPaginator := APaginator;
+  FOnItemClick := AItemClickCallback;
+  FOriginalOnItemClick := APaginator.OnItemClick;
+  APaginator.OnItemClick := InternalItemClick;
+end;
+
+function TPaginatorPlugin.CreateItem: TListItem;
+begin
+  Result := FPaginator.Items.Add;
+  Result.ItemClassName := ITEM_CLASS_NAME;
+end;
+
+function TPaginatorPlugin.GetActivePage: integer;
+begin
+  Result := FActivePage;
+end;
+
+procedure TPaginatorPlugin.Init(AActivePage, APageCount: Integer);
+begin
+  FActivePage := AActivePage;
+  InitPaginator(FActivePage, APageCount, VISIBLE_PAGES);
+end;
+
+procedure TPaginatorPlugin.InitPaginator(AActivePage, APageCount,
+  AVisiblePages: integer);
+var
+  Item: TListItem;
+  I, ButtonNumber, Idx: integer;
+  HasLeftSeparator: Boolean;
+  HasRightSeparator: Boolean;
+begin
+  FPaginator.Items.Clear;
+
+  HasLeftSeparator := (AVisiblePages < APageCount) and (AActivePage > AVisiblePages - 2);
+  HasRightSeparator := (AVisiblePages < APageCount) and (AActivePage < APageCount - AVisiblePages + 3);
+
+  // first page
+  ButtonNumber := 1;
+  Item := CreateItem;
+  Item.Active := AActivePage = 1;
+  Item.Text := IntToStr(ButtonNumber);
+
+  if HasLeftSeparator then
+  begin
+    Item := CreateItem;
+    Item.Active := False;
+    Item.Enabled := False;
+    Item.Text := '...';
+  end;
+
+  if HasRightSeparator and HasLeftSeparator then
+  begin
+    Idx := (AVisiblePages - 2) div 2;
+    for I := AActivePage - Idx to AActivePage + Idx do
+    begin
+      ButtonNumber := I;
+      Item := CreateItem;
+      Item.Active := ButtonNumber = AActivePage;
+      Item.Text := IntToStr(ButtonNumber);
+    end;
+  end
+  else
+    for I := 2 to AVisiblePages - 1 do
+    begin
+      if I > APageCount - 1 then
+        Break;
+
+      ButtonNumber := I;
+      if (not HasRightSeparator) and HasLeftSeparator then
+        ButtonNumber := APageCount - AVisiblePages + I;
+
+      Item := CreateItem;
+      Item.Active := ButtonNumber = AActivePage;
+      Item.Text := IntToStr(ButtonNumber);
+    end;
+
+  if APageCount > 1 then
+  begin
+    // last page
+    if HasRightSeparator then
+    begin
+      Item := CreateItem;
+      Item.Active := False;
+      Item.Enabled := False;
+      Item.Text := '...';
+    end;
+    ButtonNumber := APageCount;
+    Item := CreateItem;
+    Item.Active := AActivePage = APageCount;
+    Item.Text := IntToStr(ButtonNumber);
+  end;
+end;
+
+procedure TPaginatorPlugin.InternalItemClick(Sender: TObject;
+  AListItem: TListItem);
+var
+  ActivePage: integer;
+begin
+  if TryStrToInt(AListItem.Text, ActivePage) then
+  begin
+    FActivePage := ActivePage;
+    if Assigned(FOnItemClick) then
+      FOnItemClick(Self);
+    if Assigned(FOriginalOnItemClick) then
+      FOriginalOnItemClick(Sender, AListItem);
+  end;
+end;
+
+end.

kgOrdersClient/View.Calls.dfm

+object FViewCalls: TFViewCalls
+  Width = 676
+  Height = 480
+  CSSLibrary = cssBootstrap
+  ElementFont = efCSS
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  ParentFont = False
+  OnCreate = WebFormCreate
+  object lblEntries: TWebLabel
+    Left = 0
+    Top = 336
+    Width = 77
+    Height = 13
+    Caption = 'Showing 0 of ...'
+    ElementID = 'lblentries'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object wcbLocation: TWebLookupComboBox
+    Left = 154
+    Top = 0
+    Width = 145
+    Height = 22
+    ElementID = 'wcblocation'
+    ElementFont = efCSS
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    ItemIndex = -1
+    LookupValues = <
+      item
+        DisplayText = 'All'
+      end
+      item
+        Value = '(716) 681-8820'
+        DisplayText = 'Galleria'
+      end
+      item
+        Value = '(716) 297-4654'
+        DisplayText = 'NF Outlet'
+      end
+      item
+        Value = '(585) 445-8911'
+        DisplayText = 'Rochester'
+      end
+      item
+        Value = '(315) 565-4138'
+        DisplayText = 'Syracuse'
+      end>
+  end
+  object wcbPageSize: TWebComboBox
+    Left = 0
+    Top = 0
+    Width = 145
+    Height = 21
+    ElementClassName = 'custom-select'
+    ElementID = 'wcbpagesize'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    Text = '10'
+    WidthPercent = 100.000000000000000000
+    ItemIndex = -1
+    Items.Strings = (
+      '10'
+      '25'
+      '50')
+  end
+  object wcbSortBy: TWebComboBox
+    Left = 442
+    Top = 52
+    Width = 145
+    Height = 21
+    ElementClassName = 'custom-select'
+    ElementID = 'wcbsortby'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    Text = 'Date'
+    WidthPercent = 100.000000000000000000
+    ItemIndex = -1
+    Items.Strings = (
+      'Date'
+      'Phone Number')
+  end
+  object btnApply: TWebButton
+    Left = 478
+    Top = 128
+    Width = 96
+    Height = 25
+    Caption = 'Apply'
+    ChildOrder = 7
+    ElementClassName = 'btn btn-light'
+    ElementID = 'btnapply'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = btnApplyClick
+  end
+  object edtSearch: TWebEdit
+    Left = 48
+    Top = 382
+    Width = 121
+    Height = 22
+    HelpType = htKeyword
+    ChildOrder = 8
+    ElementClassName = 'form-control'
+    ElementID = 'edtsearch'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    HideSelection = False
+    TextHint = 'Format: (XXX) XXX-XXXX'
+    WidthPercent = 100.000000000000000000
+  end
+  object dtpStartDate: TWebEdit
+    Left = 342
+    Top = 0
+    Width = 121
+    Height = 22
+    ChildOrder = 10
+    ElementClassName = 'form-control'
+    ElementID = 'dtpstartdate'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object dtpEndDate: TWebEdit
+    Left = 478
+    Top = 0
+    Width = 121
+    Height = 22
+    ChildOrder = 10
+    ElementClassName = 'form-control'
+    ElementID = 'dtpenddate'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object XDataWebClient1: TXDataWebClient
+    Connection = DMConnection.ApiConnection
+    Left = 426
+    Top = 240
+  end
+  object XDataWebDataSet1: TXDataWebDataSet
+    Left = 440
+    Top = 300
+  end
+end

kgOrdersClient/View.Calls.html

+<div class="row">
+    <div class="col-12">
+        <h1 class="page-header pt-3" id="view.calls.title" style="font-size: 24px;">Calls</h1>
+        <div class="container mt-4">
+            <div class="row justify-content-center">
+                <div class="col-12 col-md-8">
+                    <form class="form-inline">
+                        <div class="col-sm py-2">
+                            <label class='pe-2'style="font-weight: 700;">Location:</label>
+                            <select class="custom-select" id="wcblocation" style="font-size: 1.00rem;"></select>
+                        </div>
+                        <div class="row">
+                            <div class="col-sm-6">
+                                <label class='pe-2'style="font-weight: 700;">Phone Number:</label>
+                                <input class="form-control input-sm" id="edtsearch">
+                            </div>
+                        </div>
+                    </form>
+                    <form class="form-inline">
+                        <div class="row">
+                            <div class="col-sm-6">
+                                <label style="font-weight: 700;">Start Date:</label>
+                                <input class="form-control input-sm" id="dtpstartdate" type="date">
+                            </div>
+                            <div class="col-sm-6">
+                                <label class= 'pe-2'style="font-weight: 700;">End Date:</label>
+                                <input class="form-control input-sm" id="dtpenddate" type="date">
+                            </div>
+                        </div>
+                    </form>
+                    <form class="form-inline">
+                        <div class= "row">
+                            <div class="col-sm-5">
+                                <label class="py-2" style="font-weight: 700;">Show <select class="custom-select" id="wcbpagesize" style="font-size: 1.00rem;"></select> entries</label>
+                            </div>
+                            <div class="col-sm-5">
+                                <label class="py-2" style="font-weight: 700;">Sorted by:</label>
+                                <select class="custom-select" id="wcbsortby" style="font-size: 1.00rem;"></select>
+                            </div>
+                            <div class="col-sm-2">
+                                <button class= "ps-3" id="btnapply"></button>
+                            </div>
+                        </div>
+                    </form>
+
+                    <table class="table table-responsive table-striped table-bordered" id="tblPhoneGrid">
+                        <thead class="thead-dark">
+                            <tr>
+                                <th scope="col">Phone Number</th>
+                                <th scope="col">Caller</th>
+                                <th scope="col">Time</th>
+                                <th scope="col">Duration</th>
+                                <th scope="col">Transcript</th>
+                                <th scope="col">Listen</th>
+                            </tr>
+                        </thead>
+                        <tbody>
+                            <!-- Rows will be added dynamically via Delphi code -->
+                        </tbody>
+                    </table>
+                    <label id="lblentries"></label>
+                    <nav aria-label="Page navigation">
+                        <ul class="pagination justify-content-center" id="pagination">
+                            <!-- Pagination items will be added dynamically via Delphi code -->
+                        </ul>
+                    </nav>
+                </div>
+            </div>
+        </div>
+    </div>
+</div>
+<!-- Modal -->
+<div class="modal fade" id="audioModal" tabindex="-1" aria-labelledby="audioModalLabel" aria-hidden="true">
+  <div class="modal-dialog">
+    <div class="modal-content">
+      <div class="modal-header">
+        <h5 class="modal-title" id="audioModalLabel">Audio Player</h5>
+        <button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close" onclick="stopAudio()"></button>
+      </div>
+      <div class="modal-body">
+        <audio controls id="audioPlayer">
+          <source src="" type="audio/mp3" id="audioSource">
+          Your browser does not support the audio element.
+        </audio>
+      </div>
+    </div>
+  </div>
+</div>
+
+<script>
+  // JavaScript function to stop audio
+  function stopAudio() {
+    var audioPlayer = document.getElementById('audioPlayer');
+    audioPlayer.pause(); // Pause the audio
+    audioPlayer.currentTime = 0; // Reset audio to beginning
+  }
+</script>

kgOrdersClient/View.Calls.pas

+// Displays calls and their associated recordings in the grid. Allows the user
+// to sort the entries, filter their search, and search for a specific person.
+// Authors:
+// Cameron Hayes
+// Mac ...
+
+unit View.Calls;
+
+interface
+
+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;
+
+type
+  TFViewCalls = class(TWebForm)
+    wcbLocation: TWebLookupComboBox;
+    XDataWebClient1: TXDataWebClient;
+    XDataWebDataSet1: TXDataWebDataSet;
+    lblEntries: TWebLabel;
+    wcbPageSize: TWebComboBox;
+    wcbSortBy: TWebComboBox;
+    btnApply: TWebButton;
+    edtSearch: TWebEdit;
+    dtpStartDate: TWebEdit;
+    dtpEndDate: TWebEdit;
+    procedure WebFormCreate(Sender: TObject);
+    procedure btnApplyClick(Sender: TObject);
+    procedure btnSearchClick(Sender: TObject);
+  private
+    FChildForm: TWebForm;
+    procedure AddRowToTable(PhoneNumber, Caller, Time, Duration, Transcript, MediaUrl: string);
+    procedure ClearTable();
+    procedure GeneratePagination(TotalPages: Integer);
+    function GenerateSearchOptions(): string;
+    [async] procedure Search(searchOptions: string);
+    [async] procedure GetCalls(searchOptions: string);
+    [async] procedure getUser();
+    var
+      PageNumber: integer;
+      PageSize: integer;
+      TotalPages: integer;
+      StartDate: string;
+      EndDate: string;
+      OrderBy: string;
+      Caller: string;
+  public
+
+  end;
+
+var
+  FViewCalls: TFViewCalls;
+
+implementation
+
+uses
+  JS, XData.Model.Classes,
+  ConnectionModule, Auth.Service;
+
+{$R *.dfm}
+
+procedure TFViewCalls.WebFormCreate(Sender: TObject);
+// Initializes important values:
+// PageNumber: What page number the user is on IE 1: 1-10, 2: 11-20 etc
+// TotalPages: Total number of pages returned from the search.
+// PageSize: Number of entries per page.
+begin
+  DMConnection.ApiConnection.Connected := True;
+  PageNumber := 1;
+  TotalPages := 1; // Initial total pages
+  wcbPageSize.Text := '10';
+  getUser();
+  wcbSortBy.Text := 'Date';
+end;
+
+procedure TFViewCalls.getUser();
+var
+  xdcResponse: TXDataClientResponse;
+  userList, user: TJSObject;
+  data: TJSArray;
+begin
+  xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetUsers',
+        [JS.toString(AuthService.TokenPayload.Properties['user_name'])]));
+  userList :=  TJSObject(xdcResponse.Result);
+  data := TJSArray(userList['data']);
+  user := TJSObject(data[0]);
+  wcbLocation.DisplayText := string(user['location']);
+end;
+
+
+procedure TFViewCalls.AddRowToTable(PhoneNumber, Caller, Time, Duration, Transcript, MediaUrl: string);
+// Adds rows to the table
+// PhoneNumber: phone number of the location
+// Caller: phone number of the caller
+// Duration: duration of the call
+// Transcript: transcription of the recording
+// MediaUrl: Link to the recording
+var
+  NewRow, Cell, P, Button, Audio: TJSHTMLElement;
+begin
+  NewRow := TJSHTMLElement(document.createElement('tr'));
+
+  // Phone Number Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Phone Number');
+  Cell.innerText := PhoneNumber;
+  NewRow.appendChild(Cell);
+
+  // Caller Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Caller');
+  Cell.innerText := Caller;
+  NewRow.appendChild(Cell);
+
+  // Time Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Time');
+  Cell.innerText := DateTimeToStr(IncHour(StrToDateTime(Time), -4));;
+  NewRow.appendChild(Cell);
+
+  // Duration Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Duration');
+  Cell.innerText := Duration;
+  NewRow.appendChild(Cell);
+
+  // Transcript Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Transcript');
+  P := TJSHTMLElement(document.createElement('p'));
+  P.className := 'transcript';
+  P.innerText := Transcript;
+  Cell.appendChild(P);
+  NewRow.appendChild(Cell);
+
+  // Listen Button Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Listen');
+  Button := TJSHTMLElement(document.createElement('button'));
+  Button.className := 'btn btn-primary';
+  Button.innerHTML := '<i class="fa fa-play"></i>';
+  Button.addEventListener('click', procedure(Event: TJSMouseEvent)
+  begin
+    Audio := TJSHTMLElement(document.createElement('audio'));
+     {Button.disabled = true;
+      Audio.id = 'myAudio';
+      Audio.src = MediaUrl; // Replace with your audio file URL
+      Audio.preload = 'auto';
+      Audio.play();}
+      { var playerWindow = window.open('', 'audioPlayer', 'width=400,height=200');
+        var playerContent = `
+          <div class="player-container">
+          <audio controls>
+          <source src=` + MediaUrl +  `>
+          Your browser does not support the audio element.
+          </audio>
+          </div>
+          `;
+        playerWindow.document.body.innerHTML = playerContent;}
+    asm
+      var confirmationModal = new bootstrap.Modal(document.getElementById('audioModal'), {
+        keyboard: false });
+      confirmationModal.show();
+      var audioPlayer = document.getElementById('audioPlayer');
+      var sourceElement = document.getElementById('audioSource');
+
+      sourceElement.src = MediaUrl;
+      audioPlayer.load();
+    end;
+    Audio.addEventListener('ended', procedure
+    begin
+      asm
+        Button.disabled = false;
+      end;
+    end);
+  end);
+  Cell.appendChild(Button);
+  NewRow.appendChild(Cell);
+
+  // Appends new rows to the table body
+  TJSHTMLElement(document.getElementById('tblPhoneGrid').getElementsByTagName('tbody')[0]).appendChild(NewRow);
+end;
+
+procedure TFViewCalls.GeneratePagination(TotalPages: Integer);
+// Generates pagination for the table.
+// TotalPages: Total amount of pages generated by the search
+var
+  PaginationElement, PageItem, PageLink: TJSHTMLElement;
+  I, Start, Finish: Integer;
+begin
+  PaginationElement := TJSHTMLElement(document.getElementById('pagination'));
+  PaginationElement.innerHTML := ''; // Clear existing pagination
+
+  // Previous Button
+  PageItem := TJSHTMLElement(document.createElement('li'));
+  PageItem.className := 'page-item';
+  if PageNumber = 1 then
+    PageItem.classList.add('disabled');
+  PageLink := TJSHTMLElement(document.createElement('a'));
+  PageLink.className := 'page-link';
+  PageLink.innerText := 'Previous';
+  PageLink.setAttribute('href', 'javascript:void(0)');
+  PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+  begin
+    if PageNumber > 1 then
+    begin
+      Dec(PageNumber);
+      GetCalls(GenerateSearchOptions());
+    end;
+  end);
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+  // Page Numbers
+
+  if PageNumber <= 4 then
+  // If page number is low enough no early elipsis needed
+  Begin
+    Start := 2;
+    Finish := 5;
+  End
+  else if (PageNumber >= (TotalPages - 3)) then
+  // If page number is high enough no late elipsis needed
+  begin
+    Start := TotalPages - 3;
+    Finish := TotalPages - 1;
+  end
+  else
+  begin
+    Start := PageNumber - 1;
+    Finish := PageNumber + 1;
+  end;
+
+  PageItem := TJSHTMLElement(document.createElement('li'));
+  PageItem.className := 'page-item';
+  if 1 = PageNumber then
+    PageItem.classList.add('selected-number'); // Add the selected-number class
+  PageLink := TJSHTMLElement(document.createElement('a'));
+  PageLink.className := 'page-link';
+  PageLink.innerText := '1';
+  PageLink.setAttribute('href', 'javascript:void(0)');
+  PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+  var
+    PageNum: Integer;
+  begin
+    PageNum := StrToInt((Event.currentTarget as TJSHTMLElement).innerText);
+    PageNumber := PageNum;
+    GetCalls(GenerateSearchOptions());
+  end);
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+  // Adds Elipse to pagination if page number is too big
+  if PageNumber > 4 then
+  begin
+    PageItem := TJSHTMLElement(document.createElement('li'));
+    PageItem.className := 'page-item';
+    PageItem.classList.add('disabled');
+    PageLink := TJSHTMLElement(document.createElement('a'));
+    PageLink.className := 'page-link';
+    PageLink.innerText := '...';
+    PageLink.setAttribute('href', 'javascript:void(0)');
+    PageItem.appendChild(PageLink);
+    PaginationElement.appendChild(PageItem);
+  end;
+
+
+  // Adds Page, page - 1, and page + 1 to pagination
+  for I := Start  to Finish do
+  begin
+    if ( I > 1) and (I < TotalPages) then
+    begin
+      PageItem := TJSHTMLElement(document.createElement('li'));
+      PageItem.className := 'page-item';
+      if I = PageNumber then
+        PageItem.classList.add('selected-number'); // Add the selected-number class
+      PageLink := TJSHTMLElement(document.createElement('a'));
+      PageLink.className := 'page-link';
+      PageLink.innerText := IntToStr(I);
+      PageLink.setAttribute('href', 'javascript:void(0)');
+      PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+      var
+        PageNum: Integer;
+      begin
+        PageNum := StrToInt((Event.currentTarget as TJSHTMLElement).innerText);
+        PageNumber := PageNum;
+        GetCalls(GenerateSearchOptions());
+      end);
+      PageItem.appendChild(PageLink);
+      PaginationElement.appendChild(PageItem);
+    end;
+  end;
+
+  // adds ellipse if number is too small
+  if PageNumber < TotalPages - 4 then
+  begin
+    PageItem := TJSHTMLElement(document.createElement('li'));
+    PageItem.className := 'page-item';
+    PageItem.classList.add('disabled');
+    PageLink := TJSHTMLElement(document.createElement('a'));
+    PageLink.className := 'page-link';
+    PageLink.innerText := '...';
+    PageLink.setAttribute('href', 'javascript:void(0)');
+    PageItem.appendChild(PageLink);
+    PaginationElement.appendChild(PageItem);
+  end;
+
+  if TotalPages <> 1 then
+  begin
+    PageItem := TJSHTMLElement(document.createElement('li'));
+    PageItem.className := 'page-item';
+    if TotalPages = PageNumber then
+          PageItem.classList.add('selected-number');
+    PageLink := TJSHTMLElement(document.createElement('a'));
+    PageLink.className := 'page-link';
+    PageLink.innerText := IntToStr(TotalPages);
+    PageLink.setAttribute('href', 'javascript:void(0)');
+    PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+    var
+      PageNum: Integer;
+    begin
+      PageNum := StrToInt((Event.currentTarget as TJSHTMLElement).innerText);
+      PageNumber := PageNum;
+      GetCalls(generateSearchOptions());
+    end);
+  end;
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+  // Next Button
+  PageItem := TJSHTMLElement(document.createElement('li'));
+  PageItem.className := 'page-item';
+  if PageNumber = TotalPages then
+    PageItem.classList.add('disabled');
+  PageLink := TJSHTMLElement(document.createElement('a'));
+  PageLink.className := 'page-link';
+  PageLink.innerText := 'Next';
+  PageLink.setAttribute('href', 'javascript:void(0)');
+  PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+  begin
+    if PageNumber < TotalPages then
+    begin
+      Inc(PageNumber);
+      GetCalls(GenerateSearchOptions());
+    end;
+  end);
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+end;
+
+
+procedure TFViewCalls.GetCalls(searchOptions: string);
+// Retrieves list of calls from the server that meet the criteria searchOptions
+// searchOptions: information about how to generate the SQL statement based on
+// user input.
+var
+  xdcResponse: TXDataClientResponse;
+  callList : TJSObject;
+  i: integer;
+  data: TJSArray;
+  call: TJSObject;
+  callListLength: integer;
+
+begin
+  if PageNumber > 0 then
+  begin
+    asm
+      startSpinner();
+    end;
+    xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetCalls',
+        [searchOptions]));
+    callList :=  TJSObject(xdcResponse.Result);
+    data := TJSArray(callList['data']);
+    callListLength := integer(callList['count']);
+    ClearTable();
+    asm
+      setTimeout(endSpinner, 2000);
+    end;
+    for i := 0 to data.Length - 1 do
+    begin
+      call := TJSObject(data[i]);
+      AddRowToTable(string(call['toNumber']), string(call['fromNumber']), string(call['dateCreated']),
+      string(call['duration']), string(call['transcription']), string(call['mediaUrl']));
+    end;
+    TotalPages := (callListLength + PageSize - 1) div PageSize;
+    if (PageNumber * PageSize) < callListLength then
+    begin
+      lblEntries.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
+                            ' - ' + IntToStr(PageNumber * PageSize) +
+                             ' of ' + IntToStr(callListLength);
+    end
+    else
+    begin
+       lblEntries.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
+                            ' - ' + IntToStr(callListLength) +
+                             ' of ' + IntToStr(callListLength);
+    end;
+    GeneratePagination(TotalPages);
+  end;
+end;
+
+procedure TFViewCalls.btnApplyClick(Sender: TObject);
+// Button that effectively functions as a GetCalls() button
+var
+searchOptions: string;
+begin
+  PageNumber := 1;
+  PageSize := StrToInt(wcbPageSize.Text);
+  StartDate := dtpStartDate.Text;
+  EndDate := dtpEndDate.Text;
+  OrderBy := wcbSortBy.Text;
+  Caller := edtSearch.Text;
+  searchOptions := '&phonenumber=' + wcbLocation.Value +
+                    '&pagenumber=' + IntToStr(PageNumber) +
+                    '&pagesize=' + IntToStr(PageSize) +
+                    '&startdate=' + StartDate +
+                    '&enddate=' + EndDate +
+                    '&orderby=' + OrderBy +
+                    '&caller=' + Caller;
+  GetCalls(searchOptions);
+end;
+
+procedure TFViewCalls.Search(searchOptions: string);
+// Search method that searches the database for a specific phone number
+var
+  xdcResponse: TXDataClientResponse;
+  callList : TJSObject;
+  i: integer;
+  data: TJSArray;
+  call: TJSObject;
+  callListLength: integer;
+
+begin
+  if PageNumber > 0 then
+  begin
+    xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.Search',
+        [searchOptions]));
+    callList :=  TJSObject(xdcResponse.Result);
+    data := TJSArray(callList['data']);
+    callListLength := integer(callList['count']);
+    ClearTable();
+    for i := 0 to data.Length - 1 do
+    begin
+      call := TJSObject(data[i]);
+      AddRowToTable(string(call['toNumber']), string(call['fromNumber']), string(call['dateCreated']),
+      string(call['duration']), string(call['transcription']), string(call['mediaUrl']));
+    end;
+    TotalPages := (callListLength + PageSize - 1) div PageSize;
+    lblEntries.Caption := 'Showing entries for phone number: ' + searchOptions;
+  end;
+end;
+
+procedure TFViewCalls.btnSearchClick(Sender: TObject);
+// calls Search method
+begin
+  Search(edtSearch.Text);
+end;
+
+procedure TFViewCalls.ClearTable();
+// clears the table
+var
+  tbody: TJSHTMLElement;
+begin
+  tbody := TJSHTMLElement(document.getElementById('tblPhoneGrid').getElementsByTagName('tbody')[0]);
+  tbody.innerHTML := '';
+end;
+
+function TFViewCalls.GenerateSearchOptions(): string;
+// Generates searchOptions for get calls.
+var
+searchOptions: string;
+begin
+  PageSize := StrToInt(wcbPageSize.Text);
+  StartDate := dtpStartDate.Text;
+  EndDate := dtpEndDate.Text;
+  OrderBy := wcbSortBy.Text;
+  searchOptions := '&phonenumber=' + wcbLocation.Value +
+                    '&pagenumber=' + IntToStr(PageNumber) +
+                    '&pagesize=' + IntToStr(PageSize) +
+                    '&startdate=' + StartDate +
+                    '&enddate=' + EndDate +
+                    '&orderby=' + OrderBy +
+                    '&caller=' + Caller;
+  Result := searchOptions;
+end;
+
+end.
+

kgOrdersClient/View.EditUser.dfm

+object FViewEditUser: TFViewEditUser
+  Width = 640
+  Height = 480
+  OnShow = WebFormCreate
+  object WebLabel1: TWebLabel
+    Left = 8
+    Top = 125
+    Width = 73
+    Height = 15
+    Caption = 'Make Admin?'
+    Color = clBtnFace
+    ElementID = 'lblAdmin'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel2: TWebLabel
+    Left = 16
+    Top = 8
+    Width = 57
+    Height = 15
+    Caption = 'Full Name:'
+    Color = clBtnFace
+    ElementID = 'lblfullname'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel3: TWebLabel
+    Left = 14
+    Top = 37
+    Width = 53
+    Height = 15
+    Caption = 'Password:'
+    Color = clBtnFace
+    ElementID = 'lblpassword'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel4: TWebLabel
+    Left = 6
+    Top = 62
+    Width = 84
+    Height = 15
+    Caption = 'Phone Number:'
+    Color = clBtnFace
+    ElementID = 'lblphone'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel5: TWebLabel
+    Left = 256
+    Top = 8
+    Width = 56
+    Height = 15
+    Caption = 'Username:'
+    Color = clBtnFace
+    ElementID = 'lblusername'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel6: TWebLabel
+    Left = 240
+    Top = 41
+    Width = 100
+    Height = 15
+    Caption = 'Confirm Password:'
+    Color = clBtnFace
+    ElementID = 'lblconfirm'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel7: TWebLabel
+    Left = 252
+    Top = 69
+    Width = 32
+    Height = 15
+    Caption = 'Email:'
+    Color = clBtnFace
+    ElementID = 'lblemail'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object lblactive: TWebLabel
+    Left = 291
+    Top = 125
+    Width = 38
+    Height = 15
+    Caption = 'Active?'
+    Color = clBtnFace
+    ElementID = 'lblactive'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object lblLocation: TWebLabel
+    Left = 3
+    Top = 96
+    Width = 87
+    Height = 15
+    Caption = 'Default Location'
+    ElementID = 'lbllocation'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtPhoneNumber: TWebEdit
+    Left = 96
+    Top = 62
+    Width = 121
+    Height = 22
+    ChildOrder = 7
+    ElementID = 'edtphonenumber'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtConfirmPassword: TWebEdit
+    Left = 348
+    Top = 34
+    Width = 121
+    Height = 22
+    ChildOrder = 7
+    ElementID = 'edtconfirmpassword'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtEmail: TWebEdit
+    Left = 348
+    Top = 62
+    Width = 121
+    Height = 22
+    ChildOrder = 7
+    ElementID = 'edtemail'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtPassword: TWebEdit
+    Left = 96
+    Top = 34
+    Width = 121
+    Height = 22
+    ChildOrder = 13
+    ElementID = 'edtpassword'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object cbAdmin: TWebCheckBox
+    Left = 96
+    Top = 124
+    Width = 107
+    Height = 20
+    Caption = 'Make Admin?'
+    ChildOrder = 12
+    ElementID = 'cbadminuser'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    HeightPercent = 100.000000000000000000
+    ParentFont = False
+    WidthPercent = 100.000000000000000000
+  end
+  object btnConfirm: TWebButton
+    Left = 96
+    Top = 170
+    Width = 96
+    Height = 25
+    Caption = 'Confirm'
+    ChildOrder = 9
+    ElementClassName = 'btn btn-light'
+    ElementID = 'btnconfirm'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -20
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    HeightPercent = 100.000000000000000000
+    ParentFont = False
+    WidthPercent = 100.000000000000000000
+    OnClick = btnConfirmClick
+  end
+  object edtFullname: TWebEdit
+    Left = 96
+    Top = 4
+    Width = 121
+    Height = 22
+    ChildOrder = 14
+    ElementID = 'edtfullname'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtUsername: TWebEdit
+    Left = 346
+    Top = 4
+    Width = 121
+    Height = 22
+    ChildOrder = 14
+    ElementID = 'edtusername'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object btnCancel: TWebButton
+    Left = 237
+    Top = 170
+    Width = 96
+    Height = 25
+    Caption = 'Cancel'
+    ChildOrder = 9
+    ElementClassName = 'btn btn-light'
+    ElementID = 'btncancel'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -20
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    HeightPercent = 100.000000000000000000
+    ParentFont = False
+    WidthPercent = 100.000000000000000000
+    OnClick = btnCancelClick
+  end
+  object btnConfirmChanges: TWebButton
+    Left = 100
+    Top = 330
+    Width = 96
+    Height = 25
+    Caption = 'Confirm'
+    ChildOrder = 16
+    ElementID = 'btn_confirm_changes'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = btnConfirmChangesClick
+  end
+  object pnlMessage: TWebPanel
+    Left = 482
+    Top = 4
+    Width = 121
+    Height = 33
+    ElementID = 'view.login.message'
+    ChildOrder = 17
+    TabOrder = 10
+    object lblMessage: TWebLabel
+      Left = 16
+      Top = 11
+      Width = 46
+      Height = 15
+      Caption = 'Message'
+      ElementID = 'view.login.message.label'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+    end
+    object btnCloseNotification: TWebButton
+      Left = 96
+      Top = 3
+      Width = 22
+      Height = 25
+      ChildOrder = 1
+      ElementID = 'view.login.message.button'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+      OnClick = btnCloseNotificationClick
+    end
+  end
+  object cbActive: TWebCheckBox
+    Left = 346
+    Top = 124
+    Width = 107
+    Height = 20
+    Caption = 'Active?'
+    ChildOrder = 12
+    ElementID = 'cbactive'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    HeightPercent = 100.000000000000000000
+    ParentFont = False
+    WidthPercent = 100.000000000000000000
+  end
+  object wcbLocation: TWebLookupComboBox
+    Left = 96
+    Top = 96
+    Width = 145
+    Height = 22
+    ElementID = 'wcblocation'
+    ElementFont = efCSS
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    ItemIndex = -1
+    LookupValues = <
+      item
+        DisplayText = 'All'
+      end
+      item
+        Value = '(716) 681-8820'
+        DisplayText = 'Galleria'
+      end
+      item
+        Value = '(716) 297-4654'
+        DisplayText = 'NF Outlet'
+      end
+      item
+        Value = '(585) 445-8911'
+        DisplayText = 'Rochester'
+      end
+      item
+        Value = '(315) 565-4138'
+        DisplayText = 'Syracuse'
+      end>
+  end
+  object XDataWebClient1: TXDataWebClient
+    Connection = DMConnection.ApiConnection
+    Left = 462
+    Top = 164
+  end
+  object WebTimer1: TWebTimer
+    Enabled = False
+    Interval = 500
+    OnTimer = WebTimer1Timer
+    Left = 236
+    Top = 194
+  end
+end

kgOrdersClient/View.EditUser.html

+<div class="row">
+    <div class="col-12">
+        <h1 class="page-header pt-3" id="view.calls.title" style="font-size: 24px;">Users</h1>
+        <div class="container mt-4">
+            <div class="row justify-content-center">
+                <div class="col-12 col-md-8">
+                    <div class="row">
+                        <div class=col-sm>
+                            <div id="view.login.message" class="alert alert-danger">
+                                <button id="view.login.message.button" type="button" class="btn-close" aria-label="Close"></button>
+                                <span id="view.login.message.label"></span>
+                            </div>
+                        </div>
+                    </div>
+                    <form class="form-inline">
+                        <div class="row">
+                            <div class="col-sm">
+                                <label class= 'pe-2' style="font-weight: 700;font-size: 15px;"id="lblfullname">Full Name:</label>
+                                <input id="edtfullname" class= "form-control input-sm" width='50%'/>
+                            </div>
+                            <div class="col-sm">
+                                <label class= 'pe-2' style="font-weight: 700;font-size: 15px"id="lblusername">Username:</label>
+                                <input id="edtusername" class="form-control input-sm" width='50%'>
+                            </div>
+                        </div>
+                    </form>
+                    <form class="form-inline">
+                        <div class="row">
+                            <div class="col-sm">
+                                <label class='pe-2' style="font-weight: 700;font-size: 15px;"id="lblpassword">Password:</label>
+                                <input id="edtpassword" class= "form-control input-sm" width='50%'/>
+                            </div>
+                            <div class="col-sm">
+                                <label class= 'pe-2' style="font-weight: 700;font-size: 15px"id="lblconfirm">Confirm Password:</label>
+                                <input class="form-control input-sm" id="edtconfirmpassword">
+                            </div>
+                        </div>
+                    </form>
+                    <form class="form-inline">
+                        <div class="row">
+                            <div class="col-sm">
+                                <label class='pe-2' style="font-weight: 700;font-size: 15px;" id="lblphone">Phone Number:</label>
+                                <input id="edtphonenumber" class= "form-control input-sm" width='50%'/>
+                            </div>
+                            <div class="col-sm">
+                                <label class= 'pe-2' style="font-weight: 700;font-size: 15px"id="lblemail">Email Address:</label>
+                                <input class="form-control input-sm" id="edtemail">
+                            </div>
+                        </div>
+                    </form>
+                    <div class="row">
+                        <div class="col-sm">
+                            <label class= 'pe-2' style="font-weight: 700;font-size: 15px"id="lbllocation">Location:</label>
+                            <select class="custom-select-large" id="wcblocation" style="font-size: 1.00rem;"></select>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-sm">
+                            <form class='form-inline'>
+                                <div class="col-sm">
+                                    <div class="form-cells"><input type="checkbox" id="cbadminuser"></div>
+                                    <div class="form-cells ps-1 py-2"><label style="font-weight: 700;font-size: 15px" id="lblAdmin">Make Admin?</label></div>
+                                </div>
+                                <div class="col-sm">
+                                    <div class="form-cells"><input type="checkbox" id="cbactive"></div>
+                                    <div class="form-cells ps-1 py-2"><label style="font-weight: 700;font-size: 15px" id="lblactive">Active></label></div>
+                                </div>
+                            </form>
+                        </div>
+                        <div class="col-sm-12 py-2">
+                            <button class="py-2" id="btnconfirm" style="font-weight: 700;font-size: 15px";>Confirm</button>
+                            <button class="py-2" id="btncancel" style="font-weight: 700;font-size: 15px";>Cancel</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
+</div>
+<div class="modal fade" id="confirmation_modal" tabindex="-1" aria-labelledby="confirmation_modal_label" aria-hidden="true">
+  <div class="modal-dialog">
+    <div class="modal-content">
+      <div class="modal-header">
+        <h5 class="modal-title" id="confirmation_modal_label">Confirm</h5>
+        <button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close"></button>
+      </div>
+      <div class="modal-body">
+        Are you sure you want to make these changes?
+      </div>
+      <div class="modal-footer">
+        <button type="button" class="btn btn-secondary" data-bs-dismiss="modal">Cancel</button>
+        <button type="button" class="btn btn-primary" data-bs-dismiss="modal" id="btn_confirm_changes">Confirm</button>
+      </div>
+    </div>
+  </div>
+</div>

kgOrdersClient/View.EditUser.pas

+// Form that functions as both a way to edit or add users to the database
+// Author: Cameron Hayes
+
+unit View.EditUser;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
+  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,
+  WEBLib.DBCtrls, XData.Web.Client, WEBLib.ExtCtrls, Vcl.Menus, WEBLib.Menus;
+
+type
+  TFViewEditUser = class(TWebForm)
+    WebLabel1: TWebLabel;
+    WebLabel2: TWebLabel;
+    WebLabel3: TWebLabel;
+    WebLabel4: TWebLabel;
+    WebLabel5: TWebLabel;
+    WebLabel6: TWebLabel;
+    WebLabel7: TWebLabel;
+    edtPhoneNumber: TWebEdit;
+    edtConfirmPassword: TWebEdit;
+    edtEmail: TWebEdit;
+    edtPassword: TWebEdit;
+    cbAdmin: TWebCheckBox;
+    btnConfirm: TWebButton;
+    edtFullname: TWebEdit;
+    edtUsername: TWebEdit;
+    XDataWebClient1: TXDataWebClient;
+    btnCancel: TWebButton;
+    WebTimer1: TWebTimer;
+    btnConfirmChanges: TWebButton;
+    pnlMessage: TWebPanel;
+    lblMessage: TWebLabel;
+    btnCloseNotification: TWebButton;
+    lblactive: TWebLabel;
+    cbActive: TWebCheckBox;
+    lblLocation: TWebLabel;
+    wcbLocation: TWebLookupComboBox;
+    procedure WebFormCreate(Sender: TObject);
+    procedure btnConfirmClick(Sender: TObject);
+    procedure btnCancelClick(Sender: TObject);
+    procedure WebTimer1Timer(Sender: TObject);
+    procedure btnConfirmChangesClick(Sender: TObject);
+    procedure btnCloseNotificationClick(Sender: TObject);
+  private
+    { Private declarations }
+    FMessage: string;
+    Mode: string;
+    Username: string;
+    FullName: string;
+    Phone: string;
+    Email: string;
+    Location: string;
+    Admin: boolean;
+    Active: boolean;
+    [async] procedure EditUser();
+    [async] function AddUser(): string;
+    procedure HideNotification();
+    procedure ShowNotification(notification: string);
+  public
+    { Public declarations }
+    Info: string;
+    class function CreateForm(AElementID, Mode, Username, FullName, Phone, Email, Location: string; Admin, Active: boolean): TWebForm;
+  end;
+
+var
+  FViewEditUser: TFViewEditUser;
+
+implementation
+
+uses
+Windows,
+View.Main,
+View.Users,
+VCL.Dialogs,
+ConnectionModule;
+
+procedure TFViewEditUser.btnCancelClick(Sender: TObject);
+// Cancels the edit or addition
+begin
+  Info := 'Failure:Changes discarded!';
+  FViewMain.ShowUserForm(Info);
+end;
+
+procedure TFViewEditUser.btnCloseNotificationClick(Sender: TObject);
+begin
+  HideNotification;
+end;
+
+procedure TFViewEditUSer.btnConfirmChangesClick(Sender: TObject);
+begin
+  if Mode = 'Edit' then
+    EditUser()
+  else
+    AddUser();
+  WebTimer1.Enabled := true;
+  asm
+    startSpinner();
+  end;
+end;
+
+function TFViewEditUser.AddUser(): string;
+// Sends UserInfo over to the server so it can be added to the database
+var
+  userInfo: string;
+  xdcResponse: TXDataClientResponse;
+  responseString: TJSObject;
+begin
+  userInfo := '&username=' + string(edtUsername.Text).ToLower +
+              '&password=' + edtPassword.Text +
+              '&fullname=' + edtFullName.Text +
+              '&phonenumber=' +  edtPhoneNumber.Text +
+              '&email=' + edtEmail.Text +
+              '&admin=' + BoolToStr(cbAdmin.Checked) +
+              '&location=' + wcbLocation.Value;
+
+  xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.AddUser',
+                      [userInfo]));
+  responseString :=  TJSObject(xdcResponse.Result);
+  Info := string(responseString['value']);
+end;
+
+procedure TFViewEditUser.HideNotification;
+begin
+  pnlMessage.ElementHandle.hidden := True;
+end;
+
+procedure TFViewEditUser.ShowNotification(Notification: string);
+begin
+  if Notification <> '' then
+  begin
+    lblMessage.Caption := Notification;
+    pnlMessage.ElementHandle.hidden := False;
+  end;
+end;
+
+procedure TFViewEditUser.EditUser();
+// Sends EditOptions over to the server so the given user can be editted
+var
+  editOptions: string;
+  xdcResponse: TXDataClientResponse;
+  responseString: TJSObject;
+begin
+
+  editOptions := 'username=' + Username +
+                  '&fullname=' + edtFullName.Text +
+                  '&phonenumber=' + edtPhoneNumber.Text +
+                  '&email=' + edtEmail.Text +
+                  '&admin=' + BoolToStr(cbAdmin.Checked) +
+                  '&newuser=' + edtUsername.Text +
+                  '&password=' + edtPassword.Text +
+                  '&active=' + BoolToStr(cbActive.Checked) +
+                  '&location=' + wcbLocation.DisplayText;
+
+  console.log(editOptions);
+
+  xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.EditUser',
+        [editOptions]));
+  responseString :=  TJSObject(xdcResponse.Result);
+  Info := string(responseString['value']);
+
+end;
+
+class function TFViewEditUser.CreateForm(AElementID, Mode, Username, FullName, Phone, Email, Location: string; Admin, Active: boolean): TWebForm;
+// Autofills known information about a user on create
+  procedure AfterCreate(AForm: TObject);
+  begin
+    TFViewEditUser(AForm).Mode := Mode;
+    TFViewEditUser(AForm).Username := Username;
+    TFViewEditUser(AForm).FullName := FullName;
+    TFViewEditUser(AForm).Phone := Phone;
+    TFViewEditUser(AForm).Email:= Email;
+    TFViewEditUser(AForm).Location:= Location;
+    TFViewEditUser(AForm).Admin := Admin;
+    TFViewEditUser(AForm).Active := Active;
+  end;
+
+{$R *.dfm}
+begin
+  Application.CreateForm(TFViewEditUser, AElementID, Result, @AfterCreate);
+end;
+
+
+
+procedure TFViewEditUser.WebFormCreate(Sender: TObject);
+// Autofills known information about a user on create
+begin
+  if FMessage <> '' then
+    ShowNotification(FMessage)
+  else
+    HideNotification;
+  edtUsername.Text := Username;
+  edtFullName.Text := FullName;
+  if Mode = 'Edit' then
+  begin
+    edtPassword.Text := 'hidden';
+    edtConfirmPassword.Text := 'hidden';
+  end
+  else
+    cbAdmin.Enabled := False;
+  wcbLocation.DisplayText := Location;
+  edtPhoneNumber.Text := Phone;
+  edtEmail.Text :=  Email;
+  cbAdmin.checked := Admin;
+  cbActive.Checked := Active;
+end;
+
+procedure TFViewEditUser.WebTimer1Timer(Sender: TObject);
+begin
+  WebTimer1.Enabled := False;
+  asm
+    endSpinner();
+  end;
+  if (not Info.Contains('Failure')) then
+  begin
+    FViewMain.ShowUserForm(Info);
+  end
+  else
+    showNotification(Info);
+  console.log('Info at Timer:' + Info);
+end;
+
+procedure TFViewEditUser.btnConfirmClick(Sender: TObject);
+// Confirms the edit or addition
+var
+  checkString: string;
+  charIndex: integer;
+  phoneNum: string;
+begin
+  checkString := edtFullName.Text + edtUsername.Text + edtPassword.Text
+                + edtConfirmPassword.Text + edtPhoneNumber.Text + edtEmail.Text;
+  if string(edtFullName.Text).IsEmpty then
+  begin
+    ShowNotification('Full Name field is blank!');
+    exit;
+  end;
+
+  if string(edtUsername.Text).IsEmpty then
+  begin
+    ShowNotification('Username field is blank!');
+    exit;
+  end;
+
+  if string(edtPassword.Text).IsEmpty then
+  begin
+    ShowNotification('Password field is blank!');
+    exit;
+  end;
+
+  if string(edtConfirmPassword.Text).IsEmpty then
+  begin
+    ShowNotification('Please confirm your password!');
+    exit;
+  end;
+
+  if string(edtPhoneNumber.Text).IsEmpty then
+  begin
+    ShowNotification('Phone Number field is blank!');
+    exit;
+  end;
+
+  if string(edtEmail.Text).IsEmpty then
+  begin
+    ShowNotification('Email field is blank!');
+    exit;
+  end;
+
+  if checkString.Contains('&') then
+  begin
+    ShowNotification('No fields may contain "&&"!');
+    exit;
+  end;
+
+  if string(edtEmail.Text).Contains('@') = false then
+  begin
+    ShowNotification('Please enter a valid email address');
+    exit;
+  end;
+
+  if (length(string(edtEmail.Text).Split(['@'])) <> 2) or (string(edtEmail.text).CountChar('@') > 1) then
+  begin
+    ShowNotification('Please enter a valid email address');
+    exit;
+  end;
+
+  phoneNum := edtPhoneNumber.Text;
+
+  if (not phoneNum.Contains('(')) or (not phoneNum.Contains(')')) or (not phoneNum.Contains('-')) then
+  begin
+    ShowNotification('Please enter a valid phone number');
+    exit;
+  end;
+
+  if (phoneNum.CountChar('(') <> 1) or (phoneNum.CountChar(')') <> 1) or (phoneNum.CountChar('-') <> 1) or (phoneNum.CountChar(' ') > 1) then
+  begin
+    ShowNotification('Please enter a valid phone number');
+    exit;
+  end;
+
+  phoneNum := phoneNum.Replace('(', '');
+  phoneNum := phoneNum.Replace(')', '');
+  phoneNum := phoneNum.Replace('-', '');
+  phoneNum := phoneNum.Replace(' ', '');
+
+  if(length(phoneNum) <> 10) then
+  begin
+    ShowNotification('Please enter a valid phone number');
+    exit;
+  end;
+
+  for CharIndex := 1 to Length(phoneNum) do
+  begin
+    if not (phoneNum[CharIndex] in ['0' .. '9']) then
+    begin
+      console.log('here');
+      ShowNotification('Please enter a valid phone number');
+      exit;
+    end;
+  end;
+
+  if edtPassword.Text <> edtConfirmPassword.Text then
+  begin
+    ShowNotification('Passwords must match!');
+    exit;
+  end;
+
+  if (length(edtPassword.Text) > 20) or (length(edtPassword.Text) < 6) then
+  begin
+    ShowNotification('Passwords must be between 6-20 characters!');
+    exit;
+  end;
+
+  asm
+    var confirmationModal = new bootstrap.Modal(document.getElementById('confirmation_modal'), {
+    keyboard: false });
+    confirmationModal.show();
+  end;
+end;
+
+end.

kgOrdersClient/View.ErrorPage.dfm

+object FViewErrorPage: TFViewErrorPage
+  Left = 0
+  Top = 0
+  Width = 534
+  Height = 426
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  TabOrder = 1
+  object lbTitle: TWebLabel
+    Left = 24
+    Top = 24
+    Width = 128
+    Height = 13
+    Caption = 'Oops... an error occurred!'
+    ElementID = 'view.errorpage.title'
+    Transparent = False
+  end
+  object lbMessage: TWebLabel
+    Left = 24
+    Top = 56
+    Width = 42
+    Height = 13
+    Caption = 'Message'
+    ElementID = 'view.errorpage.message'
+    Transparent = False
+  end
+end

kgOrdersClient/View.ErrorPage.html

+<div class="container">
+    <br />
+
+    <div class="panel panel-red">
+        <div id="view.errorpage.title" class="panel-heading">
+            Error Page
+        </div>
+
+        <div id="view.errorpage.message" class="panel-body">
+            Message
+        </div>
+
+        <div class="panel-footer">
+            <a href=".">Reload web application</a>
+        </div>
+    </div>
+</div>

kgOrdersClient/View.ErrorPage.pas

+unit View.ErrorPage;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, WEBLib.Graphics, WEBLib.Controls, WEBLib.Forms, WEBLib.Dialogs,
+  Vcl.Controls, Vcl.StdCtrls,
+
+  XData.Web.Connection, WEBLib.StdCtrls;
+
+type
+  TFViewErrorPage = class(TWebForm)
+    lbTitle: TWebLabel;
+    lbMessage: TWebLabel;
+  public
+    class procedure Display(AErrorMessage: string);
+    class procedure DisplayConnectionError(AError: TXDataWebConnectionError);
+  end;
+
+var
+  FViewErrorPage: TFViewErrorPage;
+
+implementation
+
+{$R *.dfm}
+
+{ TFViewErrorPage }
+
+class procedure TFViewErrorPage.Display(AErrorMessage: string);
+
+  procedure AfterCreateProc(AForm: TObject);
+  begin
+    TFViewErrorPage(AForm).lbMessage.Caption := AErrorMessage;
+  end;
+
+begin
+  if Assigned(FViewErrorPage) then
+    FViewErrorPage.Free;
+  FViewErrorPage := TFViewErrorPage.CreateNew(@AfterCreateProc);
+end;
+
+class procedure TFViewErrorPage.DisplayConnectionError(
+  AError: TXDataWebConnectionError);
+begin
+  Display(AError.ErrorMessage + ': ' + AError.RequestUrl);
+end;
+
+end.

kgOrdersClient/View.Home.dfm

+object FViewHome: TFViewHome
+  Width = 640
+  Height = 480
+  object WebLabel1: TWebLabel
+    Left = 24
+    Top = 43
+    Width = 33
+    Height = 15
+    Caption = 'Home'
+    ElementID = 'view.home.title'
+    HeightPercent = 100.000000000000000000
+    Transparent = False
+    WidthPercent = 100.000000000000000000
+  end
+  object WebMemo1: TWebMemo
+    Left = 24
+    Top = 62
+    Width = 471
+    Height = 329
+    ElementID = 'view.home.notesmemo'
+    HeightPercent = 100.000000000000000000
+    Lines.Strings = (
+      'KG Orders Alpha Version')
+    ReadOnly = True
+    SelLength = 0
+    SelStart = 25
+    WidthPercent = 100.000000000000000000
+  end
+end

kgOrdersClient/View.Home.html

+<div class="row">
+    <div class="col-12">
+      <h1 class="page-header pt-3" id="view.home.title" style="font-size: 24px;">Home</h1>
+      <div class="row card-body">
+        <div class="form-outline mb-4">
+          <textarea class="form-control" id="view.home.notesmemo" rows="20"></textarea>
+        </div>
+      </div>
+    </div>
+</div>

kgOrdersClient/View.Home.pas

+unit View.Home;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, WEBLib.Graphics, WEBLib.Forms, WEBLib.Dialogs,
+  Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.Controls, WEBLib.Grids,
+  XData.Web.Client, WEBLib.ExtCtrls, DB;
+
+type
+  TFViewHome = class(TWebForm)
+    WebLabel1: TWebLabel;
+    WebMemo1: TWebMemo;
+    procedure WebFormCreate(Sender: TObject);
+  end;
+
+var
+  FViewHome: TFViewHome;
+
+implementation
+
+uses
+  JS, XData.Model.Classes,
+  ConnectionModule;
+
+{$R *.dfm}
+
+
+procedure TFViewHome.WebFormCreate(Sender: TObject);
+begin
+  WebLabel1.Caption := 'Please select a menu option to continue!';
+end;
+
+end.

kgOrdersClient/View.Login.dfm

+object FViewLogin: TFViewLogin
+  Width = 640
+  Height = 480
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  ParentFont = False
+  OnCreate = WebFormCreate
+  object WebLabel1: TWebLabel
+    Left = 240
+    Top = 112
+    Width = 67
+    Height = 13
+    Caption = 'Please Sign In'
+    ElementID = 'view.login.title'
+    HeightPercent = 100.000000000000000000
+    Transparent = False
+    WidthPercent = 100.000000000000000000
+  end
+  object edtUsername: TWebEdit
+    Left = 240
+    Top = 136
+    Width = 121
+    Height = 21
+    ElementID = 'view.login.edtusername'
+    HeightPercent = 100.000000000000000000
+    TextHint = 'Username'
+    WidthPercent = 100.000000000000000000
+  end
+  object edtPassword: TWebEdit
+    Left = 240
+    Top = 163
+    Width = 121
+    Height = 21
+    ElementID = 'view.login.edtpassword'
+    HeightPercent = 100.000000000000000000
+    PasswordChar = '*'
+    TabOrder = 1
+    TextHint = 'Password'
+    WidthPercent = 100.000000000000000000
+  end
+  object btnLogin: TWebButton
+    Left = 240
+    Top = 190
+    Width = 121
+    Height = 25
+    Caption = 'Login'
+    ElementID = 'view.login.btnlogin'
+    HeightPercent = 100.000000000000000000
+    TabOrder = 2
+    WidthPercent = 100.000000000000000000
+    OnClick = btnLoginClick
+  end
+  object pnlMessage: TWebPanel
+    Left = 240
+    Top = 65
+    Width = 121
+    Height = 33
+    ElementID = 'view.login.message'
+    TabOrder = 3
+    object lblMessage: TWebLabel
+      Left = 16
+      Top = 11
+      Width = 42
+      Height = 13
+      Caption = 'Message'
+      ElementID = 'view.login.message.label'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+    end
+    object btnCloseNotification: TWebButton
+      Left = 96
+      Top = 3
+      Width = 22
+      Height = 25
+      ElementID = 'view.login.message.button'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+      OnClick = btnCloseNotificationClick
+    end
+  end
+  object XDataWebClient: TXDataWebClient
+    Connection = DMConnection.AuthConnection
+    Left = 492
+    Top = 102
+  end
+end

kgOrdersClient/View.Login.html

+<nav class="navbar navbar-light bg-light login-navbar">
+        <div class="container-fluid">
+            <a class="navbar-brand" href="#">Envoy Calls</a>
+        </div>
+    </nav>
+    <div class="container mt-5">
+        <div class="row justify-content-center">
+            <div class="col-md-6 col-lg-4">
+                <div class="card login-card">
+                    <div class="card-header">
+                        <h3 id="view.login.title" class="fs-6 card-title">Please Sign In</h3>
+                    </div>
+                    <div class="card-body">
+                        <div role="form">
+                            <div id="view.login.message" class="alert alert-danger">
+                                <button id="view.login.message.button" type="button" class="btn-close" aria-label="Close"></button>
+                                <span id="view.login.message.label"></span>
+                            </div>
+                            <fieldset>
+                                <div class="mb-3">
+                                    <input id="view.login.edtusername" class="form-control" type="text" autofocus placeholder="Username">
+                                </div>
+                                <div class="mb-3">
+                                    <input id="view.login.edtpassword" class="form-control" type="password" placeholder="Password">
+                                </div>
+                                <div class="mb-3">
+                                    <button id="view.login.btnlogin" class="btn btn-primary w-100">Login</button>
+                                </div>
+                            </fieldset>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
+

kgOrdersClient/View.Login.pas

+unit View.Login;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, Web, WEBLib.Graphics, WEBLib.Controls, WEBLib.Forms, WEBLib.Dialogs,
+  Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.JSON,
+  JS, XData.Web.Connection, WEBLib.ExtCtrls,
+  App.Types, ConnectionModule, XData.Web.Client;
+
+type
+  TFViewLogin = class(TWebForm)
+    WebLabel1: TWebLabel;
+    edtUsername: TWebEdit;
+    edtPassword: TWebEdit;
+    btnLogin: TWebButton;
+    pnlMessage: TWebPanel;
+    lblMessage: TWebLabel;
+    btnCloseNotification: TWebButton;
+    XDataWebClient: TXDataWebClient;
+    procedure btnLoginClick(Sender: TObject);
+    procedure btnCloseNotificationClick(Sender: TObject);
+    procedure WebFormCreate(Sender: TObject);
+  private
+    FLoginProc: TSuccessProc;
+    FMessage: string;
+    procedure ShowNotification(Notification: string);
+    procedure HideNotification;
+    [async] procedure VerifyVersion();
+  public
+    class procedure Display(LoginProc: TSuccessProc); overload;
+    class procedure Display(LoginProc: TSuccessProc; AMsg: string); overload;
+  end;
+
+var
+  FViewLogin: TFViewLogin;
+
+implementation
+
+uses
+  Auth.Service,
+  View.ErrorPage;
+
+{$R *.dfm}
+
+procedure TFViewLogin.btnLoginClick(Sender: TObject);
+
+  procedure LoginSuccess;
+  begin
+    FLoginProc;
+  end;
+
+  procedure LoginError(AMsg: string);
+  begin
+    ShowNotification('Login Error: ' + AMsg);
+  end;
+
+begin
+  AuthService.Login(
+    edtUsername.Text, edtPassword.Text,
+    @LoginSuccess,
+    @LoginError
+  );
+end;
+
+class procedure TFViewLogin.Display(LoginProc: TSuccessProc);
+begin
+  TFViewLogin.Display(LoginProc, '');
+end;
+
+class procedure TFViewLogin.Display(LoginProc: TSuccessProc; AMsg: string);
+
+  procedure FormCreate(AForm: TObject);
+  begin
+    TFViewLogin(AForm).FMessage := AMsg;
+  end;
+
+begin
+  if Assigned(FViewLogin) then
+    FViewLogin.Free;
+  FViewLogin := TFViewLogin.CreateNew(@FormCreate);
+  FViewLogin.FLoginProc := LoginProc;
+end;
+
+procedure TFViewLogin.HideNotification;
+begin
+  pnlMessage.ElementHandle.hidden := True;
+end;
+
+procedure TFViewLogin.ShowNotification(Notification: string);
+begin
+  if Notification <> '' then
+  begin
+    lblMessage.Caption := Notification;
+    pnlMessage.ElementHandle.hidden := False;
+  end;
+end;
+
+procedure TFViewLogin.btnCloseNotificationClick(Sender: TObject);
+begin
+  HideNotification;
+end;
+
+procedure TFViewLogin.VerifyVersion();
+var
+  xdcResponse: TXDataClientResponse;
+begin
+  xdcResponse := await(XDataWebClient.RawInvokeAsync('IAuthService.VerifyVersion',
+        ['1.0.0']));
+  ShowNotification(string(TJSObject(xdcResponse.Result)['value']));
+end;
+
+procedure TFViewLogin.WebFormCreate(Sender: TObject);
+begin
+//  lblAppTitle.Caption := 'EM Systems - webCharms App ver 0.9.2.22';
+  VerifyVersion();
+  if FMessage <> '' then
+    ShowNotification(FMessage)
+  else
+    HideNotification;
+end;
+
+end.

kgOrdersClient/View.Main.dfm

+object FViewMain: TFViewMain
+  Width = 640
+  Height = 586
+  CSSLibrary = cssBootstrap
+  ElementFont = efCSS
+  OnCreate = WebFormCreate
+  object lblUsername: TWebLabel
+    Left = 529
+    Top = 4
+    Width = 66
+    Height = 15
+    Caption = 'lblUsername'
+    ElementID = 'view.main.username'
+    HeightPercent = 100.000000000000000000
+    Transparent = False
+    WidthPercent = 100.000000000000000000
+  end
+  object wllblUserProfile: TWebLinkLabel
+    Left = 529
+    Top = 21
+    Width = 63
+    Height = 15
+    ElementID = 'dropdown.menu.userprofile'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = wllblUserProfileClick
+    Caption = ' User Profile'
+  end
+  object wllblLogout: TWebLinkLabel
+    Left = 551
+    Top = 85
+    Width = 41
+    Height = 15
+    ElementID = 'dropdown.menu.logout'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = wllblLogoutClick
+    Caption = ' Logout'
+  end
+  object lblHome: TWebLinkLabel
+    Left = 556
+    Top = 38
+    Width = 33
+    Height = 15
+    ElementID = 'dropdown.menu.home'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = lblHomeClick
+    Caption = 'Home'
+  end
+  object lblAppTitle: TWebLabel
+    Left = 57
+    Top = 31
+    Width = 60
+    Height = 15
+    Caption = 'Envoy Calls'
+    ElementID = 'view.main.apptitle'
+    HeightPercent = 100.000000000000000000
+    Transparent = False
+    WidthPercent = 100.000000000000000000
+  end
+  object lblCallsList: TWebLinkLabel
+    Left = 564
+    Top = 56
+    Width = 25
+    Height = 15
+    ElementID = 'dropdown.menu.callslist'
+    ElementFont = efCSS
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = lblCallsListClick
+    Caption = 'Calls'
+  end
+  object lblUsers: TWebLinkLabel
+    Left = 561
+    Top = 70
+    Width = 28
+    Height = 15
+    ElementID = 'dropdown.menu.users'
+    ElementFont = efCSS
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = lblUsersClick
+    Caption = 'Users'
+  end
+  object WebPanel1: TWebPanel
+    Left = 136
+    Top = 110
+    Width = 471
+    Height = 369
+    ElementID = 'main.webpanel'
+    ChildOrder = 3
+    TabOrder = 0
+  end
+  object WebMessageDlg1: TWebMessageDlg
+    Left = 47
+    Top = 232
+    Width = 24
+    Height = 24
+    Buttons = []
+    CustomButtons = <>
+    Opacity = 0.200000000000000000
+  end
+  object WebMemo1: TWebMemo
+    Left = 136
+    Top = 467
+    Width = 471
+    Height = 83
+    ElementID = 'main.debugmemo'
+    HeightPercent = 100.000000000000000000
+    Lines.Strings = (
+      'WebMemo1')
+    SelLength = 0
+    SelStart = 0
+    Visible = False
+    WidthPercent = 100.000000000000000000
+  end
+  object XDataWebClient: TXDataWebClient
+    Connection = DMConnection.ApiConnection
+    Left = 44
+    Top = 280
+  end
+end

kgOrdersClient/View.Main.html

+<div id="wrapper">
+    <nav class="navbar navbar-expand navbar-light bg-light" style="margin-bottom: 0px;">
+        <div class="container-fluid">
+            <a id="view.main.apptitle" class="navbar-brand" href="index.html">Envoy Calls</a>
+            <div class="collapse navbar-collapse show" id="navbarNavDropdown">
+                <ul class="navbar-nav ms-auto">
+                    <li class="nav-item dropdown">
+                        <a class="nav-link dropdown-toggle" id="navbarDropdownMenuLink" role="button" data-bs-toggle="dropdown" aria-expanded="false">
+                            <i class="fa fa-user fa-fw"></i><span class="panel-title" id="view.main.username"> Username </span>
+                        </a>
+                        <ul class="dropdown-menu dropdown-menu-end" aria-labelledby="navbarDropdownMenuLink">
+                            <li>
+                                <a class="dropdown-item" id="dropdown.menu.home" href="#"><i class="fa fa-home fa-fw"></i><span> Home</span></a>
+                            </li>
+                            <li>
+                                <a class="dropdown-item" id="dropdown.menu.userprofile" href="#"><i class="fa fa-user fa-fw"></i><span> User Profile</span></a>
+                            </li>
+                            <li>
+                                <a class="dropdown-item" id="dropdown.menu.callslist" href="#"><i class="fa fa-phone fa-fw"></i><span> Calls</span></a>
+                            </li>
+                            <li>
+                                <a class="dropdown-item" id="dropdown.menu.users" href="#"><i class="fas fa-address-book fa-fw"></i><span> Users</span></abbr></a>
+                            </li>
+                            <li>
+                                <hr class="dropdown-divider">
+                            </li>
+                            <li>
+                                <a class="dropdown-item" id="dropdown.menu.logout" href="#"><i class="fa fa-sign-out fa-fw"></i><span> Logout</span></a>
+                            </li>
+                        </ul>
+                    </li>
+                </ul>
+            </div>
+        </div>
+    </nav>
+
+    <div id="page-wrapper" class="container-fluid">
+        <div class="row">
+            <div id="main.webpanel" class="col-12"></div>
+        </div>
+        <div class="row">
+            <div class="col-12">
+                <div class="form-outline mb-4">
+                    <textarea class="form-control" id="main.debugmemo" rows="4"></textarea>
+                </div>
+            </div>
+        </div>
+    </div>
+</div>
+

kgOrdersClient/View.Main.pas

+unit View.Main;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
+  WEBLib.Forms, WEBLib.Dialogs, WEBLib.ExtCtrls, Vcl.Controls, Vcl.StdCtrls,
+  WEBLib.StdCtrls, Data.DB, XData.Web.JsonDataset, XData.Web.Dataset,
+  App.Types, ConnectionModule, XData.Web.Client;
+
+type
+  TFViewMain = class(TWebForm)
+    lblUsername: TWebLabel;
+    wllblUserProfile: TWebLinkLabel;
+    wllblLogout: TWebLinkLabel;
+    WebPanel1: TWebPanel;
+    lblHome: TWebLinkLabel;
+    WebMessageDlg1: TWebMessageDlg;
+    lblAppTitle: TWebLabel;
+    WebMemo1: TWebMemo;
+    XDataWebClient: TXDataWebClient;
+    lblCallsList: TWebLinkLabel;
+    lblUsers: TWebLinkLabel;
+    procedure WebFormCreate(Sender: TObject);
+    procedure mnuLogoutClick(Sender: TObject);
+    procedure wllblUserProfileClick(Sender: TObject);
+    procedure wllblLogoutClick(Sender: TObject);
+    procedure lblHomeClick(Sender: TObject);
+    procedure lblCallsListClick(Sender: TObject);
+    procedure lblUsersClick(Sender: TObject);
+  private
+    { Private declarations }
+    FUserInfo: string;
+    FSearchSettings: string;
+    FChildForm: TWebForm;
+    FLogoutProc: TLogoutProc;
+    FSearchProc: TSearchProc;
+    procedure ShowCrudForm( AFormClass: TWebFormClass );
+    //procedure EditUser( AParam, BParam, CParam, DParam, EParam: string);
+    function GetUserInfo: string;
+  public
+    { Public declarations }
+    class procedure Display(LogoutProc: TLogoutProc);
+    procedure ShowForm( AFormClass: TWebFormClass );
+    procedure EditUser( Mode, FullName, Username, Phone, Email, Location: string; admin, active: boolean);
+    procedure ShowUserForm(Info: string);
+  end;
+
+var
+  FViewMain: TFViewMain;
+
+implementation
+
+uses
+  Auth.Service,
+  View.Login,
+  View.UserProfile,
+  View.Home,
+  View.Calls,
+  View.Admin,
+  View.Users,
+  View.EditUser;
+
+{$R *.dfm}
+
+procedure TFViewMain.WebFormCreate(Sender: TObject);
+var
+  userName: string;
+begin
+  FUserInfo := GetUserInfo;
+  userName := JS.toString(AuthService.TokenPayload.Properties['user_name']);
+  lblUsername.Caption := ' ' + userName.ToLower + ' ';
+  FChildForm := nil;
+  if (not (JS.toBoolean(AuthService.TokenPayload.Properties['user_admin'])))  then
+    lblUsers.Visible := false;
+
+  //Change this later
+  lblUsers.Visible := true;
+  ShowForm(TFViewHome);
+end;
+
+
+
+
+procedure TFViewMain.lblHomeClick(Sender: TObject);
+begin
+  ShowForm(TFViewHome);
+end;
+
+procedure TFViewMain.lblUsersClick(Sender: TObject);
+begin
+  ShowForm(TFViewUsers);
+end;
+
+procedure TFViewMain.lblCallsListClick(Sender: TObject);
+begin
+  ShowForm(TFViewCalls);
+end;
+
+procedure TFViewMain.mnuLogoutClick(Sender: TObject);
+begin
+  FLogoutProc;
+end;
+
+
+procedure TFViewMain.wllblLogoutClick(Sender: TObject);
+begin
+  FLogoutProc;
+end;
+
+
+procedure TFViewMain.wllblUserProfileClick(Sender: TObject);
+begin
+    ShowCrudForm(TFViewUserProfile);
+end;
+
+
+function TFViewMain.GetUserInfo: string;
+var
+  userStr: string;
+begin
+  userStr := '?username=' + JS.toString(AuthService.TokenPayload.Properties['user_name']);
+  userStr := userStr + '&fullname=' + JS.toString(AuthService.TokenPayload.Properties['user_fullname']);
+  userStr := userStr + '&agency=' + JS.toString(AuthService.TokenPayload.Properties['user_agency']);
+  userStr := userStr + '&badge=' + JS.toString(AuthService.TokenPayload.Properties['user_badge']);
+  userStr := userStr + '&userid=' + JS.toString(AuthService.TokenPayload.Properties['user_id']);
+  userStr := userStr + '&personnelid=' + JS.toString(AuthService.TokenPayload.Properties['user_personnelid']);
+
+  Result := userStr;
+end;
+
+
+class procedure TFViewMain.Display(LogoutProc: TLogoutProc);
+begin
+  if Assigned(FViewMain) then
+    FViewMain.Free;
+  FViewMain := TFViewMain.CreateNew;
+  FViewMain.FLogoutProc := LogoutProc;
+end;
+
+
+procedure TFViewMain.ShowCrudForm(AFormClass: TWebFormClass);
+begin
+  ShowForm(AFormClass);
+end;
+
+
+procedure TFViewMain.ShowForm(AFormClass: TWebFormClass);
+begin
+  if Assigned(FChildForm) then
+    FChildForm.Free;
+  Application.CreateForm(AFormClass, WebPanel1.ElementID, FChildForm);
+end;
+
+procedure TFViewMain.EditUser( Mode, FullName, Username, Phone, Email, Location: string; Admin, Active: boolean);
+begin
+  if Assigned(FChildForm) then
+    FChildForm.Free;
+  FChildForm := TFViewEditUser.CreateForm(WebPanel1.ElementID, Mode, FullName, Username, Phone, Email, Location, Admin, Active);
+end;
+
+procedure TFViewMain.ShowUserForm(Info: string);
+begin
+  if Assigned(FChildForm) then
+    FChildForm.Free;
+  FChildForm := TFViewUsers.CreateForm(WebPanel1.ElementID, Info);
+end;
+
+end.

kgOrdersClient/View.UserProfile.dfm

+object FViewUserProfile: TFViewUserProfile
+  Width = 604
+  Height = 434
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  ParentFont = False
+  OnShow = WebFormShow
+  object WebLabel1: TWebLabel
+    Left = 24
+    Top = 24
+    Width = 55
+    Height = 13
+    Caption = 'User Profile'
+    ElementID = 'view.userprofile.title'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel3: TWebLabel
+    Left = 39
+    Top = 59
+    Width = 40
+    Height = 13
+    Caption = 'User ID:'
+    ElementID = 'view.userprofile.form.lblUserID'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel2: TWebLabel
+    Left = 13
+    Top = 157
+    Width = 70
+    Height = 13
+    Caption = 'Email Address:'
+    ElementID = 'view.userprofile.form.lblEmail'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel4: TWebLabel
+    Left = 29
+    Top = 83
+    Width = 52
+    Height = 13
+    Caption = 'Username:'
+    ElementID = 'view.userprofile.form.lblUserName'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel5: TWebLabel
+    Left = 29
+    Top = 107
+    Width = 50
+    Height = 13
+    Caption = 'Full Name:'
+    ElementID = 'view.userprofile.form.lblFullName'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object WebLabel6: TWebLabel
+    Left = 5
+    Top = 133
+    Width = 74
+    Height = 13
+    Caption = 'Phone Number:'
+    ElementID = 'view.userprofile.form.lblPhone'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object lblResult: TWebLabel
+    Left = 85
+    Top = 246
+    Width = 3
+    Height = 13
+    ElementID = 'view.userprofile.form.lblresult'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtUsername: TWebEdit
+    Left = 85
+    Top = 80
+    Width = 121
+    Height = 21
+    ElementID = 'view.userprofile.form.edtUsername'
+    Enabled = False
+    HeightPercent = 100.000000000000000000
+    ReadOnly = True
+    WidthPercent = 100.000000000000000000
+  end
+  object edtUserId: TWebEdit
+    Left = 85
+    Top = 56
+    Width = 121
+    Height = 21
+    ElementID = 'view.userprofile.form.edtUserID'
+    Enabled = False
+    HeightPercent = 100.000000000000000000
+    ReadOnly = True
+    TabOrder = 1
+    WidthPercent = 100.000000000000000000
+  end
+  object edtFullName: TWebEdit
+    Left = 85
+    Top = 104
+    Width = 121
+    Height = 21
+    ChildOrder = 5
+    ElementID = 'view.userprofile.form.edtFullName'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtPhone: TWebEdit
+    Left = 85
+    Top = 128
+    Width = 121
+    Height = 21
+    ChildOrder = 7
+    ElementID = 'view.userprofile.form.edtPhone'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object chkAdminUser: TWebCheckBox
+    Left = 85
+    Top = 179
+    Width = 113
+    Height = 22
+    Caption = 'chkAdminUser'
+    ChildOrder = 9
+    ElementID = 'view.userprofile.form.chkAdminUser'
+    Enabled = False
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object edtEmail: TWebEdit
+    Left = 85
+    Top = 152
+    Width = 121
+    Height = 21
+    ChildOrder = 7
+    ElementID = 'view.userprofile.form.edtEmail'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object btnConfirm: TWebButton
+    Left = 85
+    Top = 210
+    Width = 96
+    Height = 25
+    Caption = 'Confirm Changes'
+    ChildOrder = 12
+    ElementID = 'view.userprofile.form.btnconfirm'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = btnConfirmClick
+  end
+  object WebButton1: TWebButton
+    Left = 208
+    Top = 210
+    Width = 96
+    Height = 25
+    Caption = 'Cancel Changes'
+    ChildOrder = 14
+    ElementID = 'view.userprofile.form.btncancel'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = WebButton1Click
+  end
+  object pnlMessage: TWebPanel
+    Left = 236
+    Top = 4
+    Width = 121
+    Height = 33
+    ElementID = 'view.login.message'
+    ChildOrder = 17
+    TabOrder = 8
+    object lblMessage: TWebLabel
+      Left = 16
+      Top = 11
+      Width = 42
+      Height = 13
+      Caption = 'Message'
+      ElementID = 'view.login.message.label'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+    end
+    object btnCloseNotification: TWebButton
+      Left = 96
+      Top = 3
+      Width = 22
+      Height = 25
+      ChildOrder = 1
+      ElementID = 'view.login.message.button'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+      OnClick = btnCloseNotificationClick
+    end
+  end
+  object XDataWebClient1: TXDataWebClient
+    Connection = DMConnection.ApiConnection
+    Left = 359
+    Top = 52
+  end
+end

kgOrdersClient/View.UserProfile.html

+<div class="row">
+    <div class="col-lg-12">
+        <h1 class="page-header" id="view.userprofile.title">User Profile</h1>
+        <div class="row">
+            <div class=col-sm>
+                <div id="view.login.message" class="alert alert-danger">
+                <button id="view.login.message.button" type="button" class="btn-close" aria-label="Close"></button>
+                <span id="view.login.message.label"></span>
+            </div>
+        </div>
+        <div role="form">
+            <div class="form-group">
+                <label id="view.userprofile.form.lblUserID">User ID:</label>
+                <input id="view.userprofile.form.edtUserID" class="form-control">
+            </div>
+            <div class="form-group">
+                <label id="view.userprofile.form.lblUserName">Username:</label>
+                <input id="view.userprofile.form.edtUsername" class="form-control">
+            </div>
+            <div class="form-group">
+                <label id="view.userprofile.form.lblFullName">Full Name:</label>
+                <input id="view.userprofile.form.edtFullName" class="form-control">
+            </div>
+            <div class="form-group">
+                <label id="view.userprofile.form.lblPhone">Phone Number:</label>
+                <input id="view.userprofile.form.edtPhone" class="form-control">
+            </div>
+            <div class="form-group">
+                <label id="view.userprofile.form.lblEmail">Email Address:</label>
+                <input id="view.userprofile.form.edtEmail" class="form-control">
+            </div>
+            <div class="custom-control custom-checkbox">
+                <input type="checkbox" class="custom-control-input" id="view.userprofile.form.chkAdminUser">
+                <label class="custom-control-label" for="view.userprofile.form.chkAdminUser">Admin User</label>
+            </div>
+            <div class="form-group">
+                <button class="btn btn-primary" id="view.userprofile.form.btnconfirm">Confirm Changes</button>
+                <button class="btn btn-primary" id="view.userprofile.form.btncancel">Xancel Changes</button>
+            </div>
+            <div class="form-group">
+                <label id="view.userprofile.form.lblresult"></label>
+            </div>
+        </div>
+
+    </div>
+</div>

kgOrdersClient/View.UserProfile.pas

+unit View.UserProfile;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
+  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,
+  XData.Web.Client, WEBLib.ExtCtrls, DB, XData.Web.JsonDataset,
+  XData.Web.Dataset, XData.Web.Connection, Vcl.Forms;
+
+type
+  TFViewUserProfile = class(TWebForm)
+    WebLabel1: TWebLabel;
+    WebLabel3: TWebLabel;
+    edtUsername: TWebEdit;
+    WebLabel2: TWebLabel;
+    edtUserId: TWebEdit;
+    edtFullName: TWebEdit;
+    WebLabel4: TWebLabel;
+    edtPhone: TWebEdit;
+    WebLabel5: TWebLabel;
+    chkAdminUser: TWebCheckBox;
+    edtEmail: TWebEdit;
+    WebLabel6: TWebLabel;
+    btnConfirm: TWebButton;
+    lblResult: TWebLabel;
+    XDataWebClient1: TXDataWebClient;
+    WebButton1: TWebButton;
+    pnlMessage: TWebPanel;
+    lblMessage: TWebLabel;
+    btnCloseNotification: TWebButton;
+    procedure WebFormShow(Sender: TObject);
+    procedure btnConfirmClick(Sender: TObject);
+    [async] procedure EditUser();
+    [async] procedure GetUser();
+    procedure WebButton1Click(Sender: TObject);
+    procedure HideNotification();
+    procedure ShowNotification(Notification: string);
+    procedure btnCloseNotificationClick(Sender: TObject);
+    function CheckInputs(): boolean;
+  end;
+
+var
+  FViewUserProfile: TFViewUserProfile;
+
+implementation
+
+uses
+  Auth.Service,
+  XData.Model.Classes,
+  ConnectionModule;
+
+{$R *.dfm}
+
+procedure TFViewUserProfile.btnCloseNotificationClick(Sender: TObject);
+begin
+  HideNotification;
+end;
+
+procedure TFViewUserProfile.btnConfirmClick(Sender: TObject);
+var
+  resultString: string;
+begin
+  asm
+    var messageDiv = document.getElementById('view.login.message');
+    messageDiv.classList.remove('alert-success');
+    messageDiv.classList.add('alert-danger');
+  end;
+  if CheckInputs() then
+  begin
+    EditUser();
+  end
+end;
+
+procedure TFViewUserProfile.EditUser();
+var
+  xdcResponse: TXDataClientResponse;
+  responseString: TJSObject;
+  editOptions: string;
+begin
+  if(checkInputs()) then
+  begin
+    console.log(edtFullName.Text);
+    editOptions := '&username=' + edtUsername.Text +
+                  '&fullname=' + edtFullName.Text +
+                  '&phonenumber=' + edtPhone.Text +
+                  '&email=' + edtEmail.Text;
+
+    xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.EditUser',
+        [editOptions]));
+    responseString :=  TJSObject(xdcResponse.Result);
+      asm
+        var messageDiv = document.getElementById('view.login.message');
+        messageDiv.classList.remove('alert-danger');
+        messageDiv.classList.add('alert-success');
+    end;
+    ShowNotification(string(responseString['value']));
+  end;
+end;
+
+procedure TFViewUserProfile.WebButton1Click(Sender: TObject);
+var
+  xdcResponse: TXDataClientResponse;
+  userList: TJSObject;
+  data: TJSArray;
+  user: TJSObject;
+begin
+  GetUser();
+  showNotification('Failure:Changes discarded');
+end;
+
+procedure TFViewUserProfile.WebFormShow(Sender: TObject);
+var
+  xdcResponse: TXDataClientResponse;
+  userList: TJSObject;
+  data: TJSArray;
+  user: TJSObject;
+begin
+  HideNotification;
+  GetUser();
+
+  //edtJwt.Text := TJSJSON.stringify(AuthService.TokenPayload);
+  chkAdminUser.Checked := JS.toBoolean(AuthService.TokenPayload.Properties['user_admin']);
+end;
+
+procedure TFViewUserProfile.GetUser;
+var
+  xdcResponse: TXDataClientResponse;
+  userList: TJSObject;
+  data: TJSArray;
+  user: TJSObject;
+begin
+  xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetUsers',
+        [JS.toString(AuthService.TokenPayload.Properties['user_name'])]));
+  userList :=  TJSObject(xdcResponse.Result);
+  data := TJSArray(userList['data']);
+  user := TJSObject(data[0]);
+  edtUsername.Text := string(user['username']);
+  edtFullName.Text := string(user['full_name']);
+  edtPhone.Text := string(user['phone_number']);
+  edtEmail.Text := string(user['email_address']);
+  edtUserId.Text := string(user['userID']);
+  chkAdminUser.Checked := boolean(user['admin']);
+end;
+
+procedure TFViewUserProfile.HideNotification;
+begin
+  pnlMessage.ElementHandle.hidden := True;
+end;
+
+procedure TFViewUserProfile.ShowNotification(Notification: string);
+var
+  splitNotification: TArray<string>;
+begin
+  if Notification <> '' then
+  begin
+    splitNotification := Notification.Split([':']);
+    if(splitNotification[0] = 'Success') then
+    begin
+      asm
+        var messageDiv = document.getElementById('view.login.message');
+        messageDiv.classList.remove('alert-danger');
+        messageDiv.classList.add('alert-success');
+      end;
+    end
+    else
+    begin
+      asm
+        var messageDiv = document.getElementById('view.login.message');
+        messageDiv.classList.remove('alert-success');
+        messageDiv.classList.add('alert-danger');
+      end;
+    end;
+    lblMessage.Caption := splitNotification[1];
+    pnlMessage.ElementHandle.hidden := False;
+  end;
+end;
+
+function TFViewUserProfile.CheckInputs(): boolean;
+  var
+  checkString: string;
+  charIndex: integer;
+  phoneNum: string;
+begin
+  Result := false;
+  checkString := edtFullName.Text + edtUsername.Text + edtPhone.Text + edtEmail.Text;
+  if string(edtFullName.Text).IsEmpty then
+  begin
+    ShowNotification('Failure:Full Name field is blank!');
+    exit;
+  end;
+
+  if string(edtUsername.Text).IsEmpty then
+  begin
+    ShowNotification('Failure:Username field is blank!');
+    exit;
+  end;
+
+  if string(edtPhone.Text).IsEmpty then
+  begin
+    ShowNotification('Failure:Phone Number field is blank!');
+    exit;
+  end;
+
+  if string(edtEmail.Text).IsEmpty then
+  begin
+    ShowNotification('Failure:Email field is blank!');
+    exit;
+  end;
+
+  if checkString.Contains('&') then
+  begin
+    ShowNotification('Failure:No fields may contain "&&"!');
+    exit;
+  end;
+
+  if string(edtEmail.Text).Contains('@') = false then
+  begin
+    ShowNotification('Failure:Please enter a valid email address');
+    exit;
+  end;
+
+  if (length(string(edtEmail.Text).Split(['@'])) <> 2) or (string(edtEmail.text).CountChar('@') > 1) then
+  begin
+    ShowNotification('Failure:Please enter a valid email address');
+    exit;
+  end;
+
+  phoneNum := edtPhone.Text;
+
+  if (not phoneNum.Contains('(')) or (not phoneNum.Contains(')')) or (not phoneNum.Contains('-')) then
+  begin
+    ShowNotification('Failure:Please enter a valid phone number');
+    exit;
+  end;
+
+  if (phoneNum.CountChar('(') <> 1) or (phoneNum.CountChar(')') <> 1) or (phoneNum.CountChar('-') <> 1) or (phoneNum.CountChar(' ') > 1) then
+  begin
+    ShowNotification('Failure:Please enter a valid phone number');
+    exit;
+  end;
+
+  phoneNum := phoneNum.Replace('(', '');
+  phoneNum := phoneNum.Replace(')', '');
+  phoneNum := phoneNum.Replace('-', '');
+  phoneNum := phoneNum.Replace(' ', '');
+  console.log(phoneNum);
+  console.log(length(phoneNum));
+
+  if(length(phoneNum) <> 10) then
+  begin
+    ShowNotification('Failure:Please enter a valid phone number');
+    exit;
+  end;
+
+  for CharIndex := 1 to Length(phoneNum) do
+  begin
+    if not (phoneNum[CharIndex] in ['0' .. '9']) then
+    begin
+      console.log('here');
+      ShowNotification('Failure:Please enter a valid phone number');
+      exit;
+    end;
+  end;
+  result := true;
+end;
+
+end.

kgOrdersClient/View.Users.dfm

+object FViewUsers: TFViewUsers
+  Width = 640
+  Height = 480
+  OnShow = WebFormCreate
+  object lblEntries: TWebLabel
+    Left = 8
+    Top = 433
+    Width = 81
+    Height = 15
+    Caption = 'Showing 0 of ...'
+    ElementID = 'lblentries'
+    ElementFont = efCSS
+    HeightStyle = ssAuto
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
+  object btnAddUser: TWebButton
+    Left = 346
+    Top = 90
+    Width = 96
+    Height = 25
+    Caption = 'Add User'
+    ChildOrder = 9
+    ElementClassName = 'btn btn-light'
+    ElementID = 'btnadduser'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -20
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    HeightPercent = 100.000000000000000000
+    ParentFont = False
+    WidthPercent = 100.000000000000000000
+    OnClick = btnAddUserClick
+  end
+  object btnConfirmDelete: TWebButton
+    Left = 506
+    Top = 174
+    Width = 96
+    Height = 25
+    Caption = 'Confirm'
+    ChildOrder = 16
+    ElementID = 'btn_confirm_delete'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = btnConfirmDeleteClick
+  end
+  object pnlMessage: TWebPanel
+    Left = 12
+    Top = 16
+    Width = 121
+    Height = 33
+    ElementID = 'view.login.message'
+    ChildOrder = 17
+    TabOrder = 2
+    object lblMessage: TWebLabel
+      Left = 16
+      Top = 11
+      Width = 46
+      Height = 15
+      Caption = 'Message'
+      ElementID = 'view.login.message.label'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+    end
+    object btnCloseNotification: TWebButton
+      Left = 96
+      Top = 3
+      Width = 22
+      Height = 25
+      ChildOrder = 1
+      ElementID = 'view.login.message.button'
+      HeightPercent = 100.000000000000000000
+      WidthPercent = 100.000000000000000000
+      OnClick = btnCloseNotificationClick
+    end
+  end
+  object XDataWebClient1: TXDataWebClient
+    Connection = DMConnection.ApiConnection
+    Left = 462
+    Top = 242
+  end
+  object XDataWebDataSet1: TXDataWebDataSet
+    Connection = DMConnection.ApiConnection
+    Left = 462
+    Top = 300
+    object XDataWebDataSet1userID: TStringField
+      FieldName = 'userID'
+    end
+    object XDataWebDataSet1username: TStringField
+      FieldName = 'username'
+    end
+    object XDataWebDataSet1password: TStringField
+      FieldName = 'password'
+    end
+    object XDataWebDataSet1full_name: TStringField
+      FieldName = 'full_name'
+    end
+    object XDataWebDataSet1status: TStringField
+      FieldName = 'status'
+    end
+    object XDataWebDataSet1email_address: TStringField
+      FieldName = 'email_address'
+    end
+    object XDataWebDataSet1Atype: TStringField
+      FieldName = 'Atype'
+    end
+    object XDataWebDataSet1rights: TIntegerField
+      FieldName = 'rights'
+    end
+    object XDataWebDataSet1perspectiveID: TStringField
+      FieldName = 'perspectiveID'
+    end
+    object XDataWebDataSet1QBID: TStringField
+      FieldName = 'QBID'
+    end
+  end
+  object WebDataSource1: TWebDataSource
+    DataSet = XDataWebDataSet1
+    Left = 436
+    Top = 376
+  end
+end

kgOrdersClient/View.Users.html

+<div class="row">
+    <div class="col-12">
+        <h1 class="page-header pt-3" id="view.calls.title" style="font-size: 24px;">Users</h1>
+        <div class="container mt-4">
+            <div class="row justify-content-center">
+                <div class="col-12 col-md-8">
+                    <div class="row">
+                        <div class=col-sm>
+                            <div id="view.login.message" class="alert alert-danger">
+                                <button id="view.login.message.button" type="button" class="btn-close" aria-label="Close"></button>
+                                <span id="view.login.message.label"></span>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="row justify-content-center py-2">
+                        <div class="col-sm">
+                            <button id="btnadduser" class="btn btn-primary">Add User></button>
+                        </div>
+                    </div class="table-user-responsive">
+                     <table class="table table-striped table-bordered" id="tblPhoneGrid">
+                        <thead class="thead-dark">
+                            <tr>
+                                <th scope="col">UserID</th>
+                                <th scope="col">Username</th>
+                                <th scope="col">Password</th>
+                                <th scope="col">Full Name</th>
+                                <th scope="col">Status</th>
+                                <th scope="col">Email Address</th>
+                                <th scope="col">Access Type</th>
+                                <th scope="col">System Rights</th>
+                                <th scope="col">Perspective ID</th>
+                                <th scope="col">QB ID</th>
+                            </tr>
+                        </thead>
+                        <tbody>
+                            <!-- Rows will be added dynamically via Delphi code -->
+                        </tbody>
+                    </table>
+                    <label id="lblentries"></label>
+
+                    <nav aria-label="Page navigation">
+                        <ul class="pagination justify-content-center" id="pagination">
+                            <!-- Pagination items will be added dynamically via Delphi code -->
+                        </ul>
+                    </nav>
+                </div>
+            </div>
+        </div>
+    </div>
+</div>
+<!--</div>   -->
+<div class="modal fade" id="confirmation_modal" tabindex="-1" aria-labelledby="confirmation_modal_label" aria-hidden="true">
+  <div class="modal-dialog">
+    <div class="modal-content">
+      <div class="modal-header">
+        <h5 class="modal-title" id="confirmation_modal_label">Confirm</h5>
+        <button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close"></button>
+      </div>
+      <div class="modal-body">
+        Are you sure you want to make these changes?
+      </div>
+      <div class="modal-footer">
+        <button type="button" class="btn btn-secondary" data-bs-dismiss="modal">Cancel</button>
+        <button type="button" class="btn btn-primary" data-bs-dismiss="modal" id="btn_confirm_delete" >Confirm</button>
+      </div>
+    </div>
+  </div>
+</div>

kgOrdersClient/View.Users.pas

+unit View.Users;
+
+interface
+
+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, WEBLib.DBCtrls, JS;
+
+type
+  TFViewUsers = class(TWebForm)
+    XDataWebClient1: TXDataWebClient;
+    XDataWebDataSet1: TXDataWebDataSet;
+    lblEntries: TWebLabel;
+    btnAddUser: TWebButton;
+    WebDataSource1: TWebDataSource;
+    btnConfirmDelete: TWebButton;
+    pnlMessage: TWebPanel;
+    lblMessage: TWebLabel;
+    btnCloseNotification: TWebButton;
+    XDataWebDataSet1userID: TStringField;
+    XDataWebDataSet1username: TStringField;
+    XDataWebDataSet1full_name: TStringField;
+    XDataWebDataSet1password: TStringField;
+    XDataWebDataSet1status: TStringField;
+    XDataWebDataSet1email_address: TStringField;
+    XDataWebDataSet1Atype: TStringField;
+    XDataWebDataSet1rights: TIntegerField;
+    XDataWebDataSet1perspectiveID: TStringField;
+    XDataWebDataSet1QBID: TStringField;
+    procedure WebFormCreate(Sender: TObject);
+    //procedure tblPhoneGridGetCellChildren(Sender: TObject; ACol, ARow: Integer;
+      //AField: TField; AValue: string; AElement: TJSHTMLElementRecord);
+    procedure btnConfirmDeleteClick(Sender: TObject);
+    procedure btnAddUserClick(Sender: TObject);
+    procedure btnCloseNotificationClick(Sender: TObject);
+    //procedure btnApplyClick(Sender: TObject);
+    //procedure btnSearchClick(Sender: TObject);
+  private
+    FChildForm: TWebForm;
+    procedure ClearTable();
+    procedure GeneratePagination(TotalPages: Integer);
+    //function GenerateSearchOptions(): string;
+    //[async] procedure Search(searchOptions: string);
+    [async] procedure DelUser(username: string);
+    [async] procedure EditUser(row: TJSHTMLElement);
+    [async] procedure GetUsers(searchOptions: string);
+    procedure HideNotification;
+    procedure ShowNotification(Notification: string);
+    procedure AddRowToTable(UserID, Username, Password, Full_Name, Status,
+                        Email, AType, PID, QBID: string; Rights: integer);
+    //[async] procedure addUser();
+    var
+      PageNumber: integer;
+      PageSize: integer;
+      TotalPages: integer;
+      StartDate: string;
+      EndDate: string;
+      OrderBy: string;
+      cur_user: string;
+      Info: string;
+  public
+  class function CreateForm(AElementID, Info: string): TWebForm;
+  end;
+
+var
+  FViewUsers: TFViewUsers;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  XData.Model.Classes,
+  ConnectionModule,
+  View.Main;
+
+{$R *.dfm}
+
+class function TFViewUsers.CreateForm(AElementID, Info: string): TWebForm;
+// Autofills known information about a user on create
+  procedure AfterCreate(AForm: TObject);
+  begin
+    TFViewUsers(AForm).Info := Info;
+  end;
+
+{$R *.dfm}
+begin
+  Application.CreateForm(TFViewUsers, AElementID, Result, @AfterCreate);
+end;
+
+procedure TFViewUsers.WebFormCreate(Sender: TObject);
+begin
+  DMConnection.ApiConnection.Connected := True;
+  PageNumber := 1;
+  TotalPages := 1; // Initial total pages
+  PageSize := 10;
+  GetUsers('');
+  if Info <> '' then
+    ShowNotification(Info)
+  else
+    HideNotification();
+
+end;
+
+procedure TFViewUsers.DelUser(username: string);
+var
+  xdcResponse: TXDataClientResponse;
+  responseString: TJSObject;
+begin
+    xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.DelUser',
+        [username]));
+    responseString :=  TJSObject(xdcResponse.Result);
+    ShowNotification(string(responseString['value']));
+    getUsers('');
+end;
+
+procedure TFViewUsers.EditUser(row: TJSHTMLElement);
+var
+  cells: TJSHTMLCollection;
+  UserID: TJSNode;
+  Username: TJSNode;
+  FullName: TJSNode;
+  PhoneNum: TJSNode;
+  Email: TJSNode;
+  Admin: TJSNode;
+  Password: TJSNode;
+  Location: TJSNode;
+  isAdmin: boolean;
+  isActive: boolean;
+  ButtonCancel: TJSHTMLElement;
+  splitNames: TArray<string>;
+  firstName: string;
+  lastName: string;
+  xdcResponse: TXDataClientResponse;
+  responseString: TJSObject;
+  editOptions: string;
+
+begin
+  cells := row.getElementsByTagName('td');
+  UserID := cells[0];
+  Username := cells[1];
+  Password := cells[2];
+  FullName := cells[3];
+  PhoneNum := cells[4];
+  Email := cells[5];
+  Location := cells[6];
+  if TJSHTMLElement(cells[7].childNodes.item(0).childNodes.item(0)).attributes.Attrs['checked'] = nil then
+    isAdmin := false
+  else
+    isAdmin := true;
+  if TJSHTMLElement(cells[8].childNodes.item(0).childNodes.item(0)).attributes.Attrs['checked'] = nil then
+    isActive := false
+  else
+    isActive := true;
+  FViewMain.EditUser('Edit', Username.innerText, FullName.innerText, PhoneNum.innerText, Email.innerText, Location.innerText, isAdmin, isActive);
+
+end;
+
+procedure TFViewUsers.GeneratePagination(TotalPages: Integer);
+var
+  PaginationElement, PageItem, PageLink: TJSHTMLElement;
+  I, Start, Finish: Integer;
+begin
+  PaginationElement := TJSHTMLElement(document.getElementById('pagination'));
+  PaginationElement.innerHTML := ''; // Clear existing pagination
+
+  // Previous Button
+  PageItem := TJSHTMLElement(document.createElement('li'));
+  PageItem.className := 'page-item';
+  if PageNumber = 1 then
+    PageItem.classList.add('disabled');
+  PageLink := TJSHTMLElement(document.createElement('a'));
+  PageLink.className := 'page-link';
+  PageLink.innerText := 'Previous';
+  PageLink.setAttribute('href', 'javascript:void(0)');
+  PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+  begin
+    if PageNumber > 1 then
+    begin
+      Dec(PageNumber);
+      GetUsers('');
+    end;
+  end);
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+  // Page Numbers
+
+  if PageNumber <= 4 then
+  Begin
+    Start := 2;
+    Finish := 5;
+  End
+  else if (PageNumber >= (TotalPages - 3)) then
+  begin
+    Start := TotalPages - 3;
+    Finish := TotalPages - 1;
+  end
+  else
+  begin
+    Start := PageNumber - 1;
+    Finish := PageNumber + 1;
+  end;
+
+  PageItem := TJSHTMLElement(document.createElement('li'));
+  PageItem.className := 'page-item';
+  if 1 = PageNumber then
+    PageItem.classList.add('selected-number'); // Add the selected-number class
+  PageLink := TJSHTMLElement(document.createElement('a'));
+  PageLink.className := 'page-link';
+  PageLink.innerText := '1';
+  PageLink.setAttribute('href', 'javascript:void(0)');
+  PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+  var
+    PageNum: Integer;
+  begin
+    PageNum := StrToInt((Event.currentTarget as TJSHTMLElement).innerText);
+    PageNumber := PageNum;
+    GetUsers('');
+  end);
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+  // Adds Elipse to pagination if page number is too big
+  if PageNumber > 4 then
+  begin
+    PageItem := TJSHTMLElement(document.createElement('li'));
+    PageItem.className := 'page-item';
+    PageItem.classList.add('disabled');
+    PageLink := TJSHTMLElement(document.createElement('a'));
+    PageLink.className := 'page-link';
+    PageLink.innerText := '...';
+    PageLink.setAttribute('href', 'javascript:void(0)');
+    PageItem.appendChild(PageLink);
+    PaginationElement.appendChild(PageItem);
+  end;
+
+
+  // Adds Page, page - 1, and page + 1 to pagination
+  for I := Start  to Finish do
+  begin
+    if ( I > 1) and (I < TotalPages) then
+    begin
+      PageItem := TJSHTMLElement(document.createElement('li'));
+      PageItem.className := 'page-item';
+      if I = PageNumber then
+        PageItem.classList.add('selected-number'); // Add the selected-number class
+      PageLink := TJSHTMLElement(document.createElement('a'));
+      PageLink.className := 'page-link';
+      PageLink.innerText := IntToStr(I);
+      PageLink.setAttribute('href', 'javascript:void(0)');
+      PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+      var
+        PageNum: Integer;
+      begin
+        PageNum := StrToInt((Event.currentTarget as TJSHTMLElement).innerText);
+        PageNumber := PageNum;
+        GetUsers('');
+      end);
+      PageItem.appendChild(PageLink);
+      PaginationElement.appendChild(PageItem);
+    end;
+  end;
+
+  if PageNumber < TotalPages - 4 then
+  begin
+    PageItem := TJSHTMLElement(document.createElement('li'));
+    PageItem.className := 'page-item';
+    PageItem.classList.add('disabled');
+    PageLink := TJSHTMLElement(document.createElement('a'));
+    PageLink.className := 'page-link';
+    PageLink.innerText := '...';
+    PageLink.setAttribute('href', 'javascript:void(0)');
+    PageItem.appendChild(PageLink);
+    PaginationElement.appendChild(PageItem);
+  end;
+
+  if TotalPages <> 1 then
+  begin
+    PageItem := TJSHTMLElement(document.createElement('li'));
+    PageItem.className := 'page-item';
+    if TotalPages = PageNumber then
+          PageItem.classList.add('selected-number');
+    PageLink := TJSHTMLElement(document.createElement('a'));
+    PageLink.className := 'page-link';
+    PageLink.innerText := IntToStr(TotalPages);
+    PageLink.setAttribute('href', 'javascript:void(0)');
+    PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+    var
+      PageNum: Integer;
+    begin
+      PageNum := StrToInt((Event.currentTarget as TJSHTMLElement).innerText);
+      PageNumber := PageNum;
+      GetUsers('');
+    end);
+    PageItem.appendChild(PageLink);
+    PaginationElement.appendChild(PageItem);
+  end;
+
+  // Next Button
+  PageItem := TJSHTMLElement(document.createElement('li'));
+  PageItem.className := 'page-item';
+  if PageNumber = TotalPages then
+    PageItem.classList.add('disabled');
+  PageLink := TJSHTMLElement(document.createElement('a'));
+  PageLink.className := 'page-link';
+  PageLink.innerText := 'Next';
+  PageLink.setAttribute('href', 'javascript:void(0)');
+  PageLink.addEventListener('click', procedure(Event: TJSMouseEvent)
+  begin
+    if PageNumber < TotalPages then
+    begin
+      Inc(PageNumber);
+      GetUsers('');
+    end;
+  end);
+  PageItem.appendChild(PageLink);
+  PaginationElement.appendChild(PageItem);
+
+end;
+
+
+procedure TFViewUsers.GetUsers(searchOptions: string);
+var
+  xdcResponse: TXDataClientResponse;
+  userList : TJSObject;
+  i: integer;
+  data: TJSArray;
+  user: TJSObject;
+  userListLength: integer;
+
+begin
+  if PageNumber > 0 then
+  begin
+    xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetUsers',
+        [searchOptions]));
+
+    userList :=  TJSObject(xdcResponse.Result);
+    data := TJSArray(userList['data']);
+    userListLength := integer(userList['count']);
+    ClearTable();
+    XDataWebDataSet1.Close;
+    XDataWebDataSet1.SetJsonData(userList['data']);
+    XDataWebDataSet1.Open;
+    for i := 0 to data.Length - 1 do
+    begin
+      console.log(user);
+      user := TJSObject(data[i]);
+      AddRowToTable(XDataWebDataSet1userID.AsString, XDataWebDataSet1username.AsString,
+                    XDataWebDataSet1full_name.AsString, XDataWebDataSet1password.AsString,
+                    XDataWebDataSet1status.AsString, XDataWebDataSet1email_address.AsString,
+                     XDataWebDataSet1Atype.AsString, XDataWebDataSet1perspectiveID.AsString,
+                     XDataWebDataSet1QBID.AsString, XDataWebDataSet1rights.AsInteger);
+      XDataWebDataSet1.Next;
+    end;
+    TotalPages := (userListLength + PageSize - 1) div PageSize;
+    if (PageNumber * PageSize) < userListLength then
+    begin
+      lblEntries.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
+                            ' - ' + IntToStr(PageNumber * PageSize) +
+                             ' of ' + IntToStr(userListLength);
+    end
+    else
+    begin
+       lblEntries.Caption := 'Showing entries ' + IntToStr((PageNumber - 1) * PageSize + 1) +
+                            ' - ' + IntToStr(userListLength) +
+                             ' of ' + IntToStr(userListLength);
+    end;
+    GeneratePagination(TotalPages);
+  end;
+end;
+
+procedure TFViewUsers.AddRowToTable(UserID, Username, Password, Full_Name, Status,
+                        Email, AType, PID, QBID: string; Rights: integer);
+// Adds rows to the table
+// PhoneNumber: phone number of the location
+// Caller: phone number of the caller
+// Duration: duration of the call
+// Transcript: transcription of the recording
+// MediaUrl: Link to the recording
+var
+  NewRow, Cell, P, Button, cbAdmin: TJSHTMLElement;
+begin
+  NewRow := TJSHTMLElement(document.createElement('tr'));
+
+  // UserID  Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'UserID');
+  Cell.innerText := UserID;
+  NewRow.appendChild(Cell);
+
+  // Username Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Username');
+  Cell.innerText := Username;
+  NewRow.appendChild(Cell);
+
+  // Password Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Password');
+  Cell.innerText := Password;
+  NewRow.appendChild(Cell);
+
+  // Full Name Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Full Name');
+  Cell.innerText := Full_Name;
+  NewRow.appendChild(Cell);
+
+  // Phone Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Status');
+  Cell.innerText := Status;
+  NewRow.appendChild(Cell);
+
+  // Email Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Email Address');
+  Cell.innerText := Email;
+  NewRow.appendChild(Cell);
+
+  //Access Type Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Access Type');
+  Cell.innerText := AType;
+  NewRow.appendChild(Cell);
+
+
+  // System Rights Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'System Rights');
+  Cell.innerText := IntToStr(Rights);
+  NewRow.appendChild(Cell);
+
+  // Perspective ID Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'Perspective ID');
+  Cell.innerText := PID;
+  NewRow.appendChild(Cell);
+
+  // QB ID Cell
+  Cell := TJSHTMLElement(document.createElement('td'));
+  Cell.setAttribute('data-label', 'QB ID');
+  Cell.innerText := QBID;
+  NewRow.appendChild(Cell);
+
+  // Appends new rows to the table body
+  TJSHTMLElement(document.getElementById('tblPhoneGrid').getElementsByTagName('tbody')[0]).appendChild(NewRow);
+end;
+
+procedure TFViewUsers.btnAddUserClick(Sender: TObject);
+begin
+  //Info := '';
+  FViewMain.EditUser('Add', '', '', '', '', 'All', false, true);
+end;
+
+procedure TFViewUsers.btnCloseNotificationClick(Sender: TObject);
+begin
+  HideNotification;
+end;
+
+procedure TFViewUsers.HideNotification;
+begin
+  pnlMessage.ElementHandle.hidden := True;
+end;
+
+procedure TFViewUsers.ShowNotification(Notification: string);
+var
+  splitNotification: TArray<string>;
+begin
+  if Notification <> '' then
+  begin
+    splitNotification := Notification.Split([':']);
+    if(splitNotification[0] = 'Success') then
+    begin
+      asm
+        var messageDiv = document.getElementById('view.login.message');
+        messageDiv.classList.remove('alert-danger');
+        messageDiv.classList.add('alert-success');
+      end;
+    end
+    else
+    begin
+      asm
+        var messageDiv = document.getElementById('view.login.message');
+        messageDiv.classList.remove('alert-success');
+        messageDiv.classList.add('alert-danger');
+      end;
+    end;
+    lblMessage.Caption := splitNotification[1];
+    pnlMessage.ElementHandle.hidden := False;
+  end;
+end;
+
+procedure TFViewUsers.btnConfirmDeleteClick(Sender: TObject);
+begin
+  DelUser(cur_user);
+end;
+
+procedure TFViewUsers.ClearTable();
+var
+  tbody: TJSHTMLElement;
+begin
+  tbody := TJSHTMLElement(document.getElementById('tblPhoneGrid').getElementsByTagName('tbody')[0]);
+  tbody.innerHTML := '';
+end;
+
+end.

kgOrdersClient/config.json

+{
+    "AuthUrl": "hhttp://localhost:2004/emsys/envoy/auth/",
+    "ApiUrl": "http://localhost:2004/emsys/envoy/api/",
+    "AppUrl": "http://localhost:2004/emsys/envoy/app/"
+  }
\ No newline at end of file

kgOrdersClient/config/config.json

+{
+  "AuthUrl" : "http://144.71.200.57:2004/emsys/envoy/auth/", 
+  "ApiUrl" : "http://144.71.200.57:2004/emsys/envoy/api/", 
+  "AppUrl" : "http://144.71.200.57:2004/emsys/envoy/app/"
+}
\ No newline at end of file

kgOrdersClient/index.html

+<html><head>
+  <meta http-equiv="Content-type" content="text/html; charset=utf-8">
+  <meta name="viewport" content="width=device-width, initial-scale=1">
+  <noscript>Your browser does not support JavaScript!</noscript>
+  <link rel="icon" href="data:;base64,=">
+  <title>TMS Web Project</title>
+  <link href="template/css/app.css" rel="stylesheet" type="text/css">
+  <link href="https://cdnjs.cloudflare.com/ajax/libs/flag-icon-css/2.3.1/css/flag-icon.min.css" rel="stylesheet">
+  <link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet">
+  <link href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.15.0/css/all.min.css" rel="stylesheet">
+  <link crossorigin="anonymous" href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/css/bootstrap.min.css" rel="stylesheet">
+  <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/js/bootstrap.bundle.min.js" type="text/javascript"></script>
+  <script   src="https://code.jquery.com/jquery-3.7.1.js"   integrity="sha256-eKhayi8LEQwp4NKxN+CfCh+3qOVUtJn3QNZ0TciWLP4="   crossorigin="anonymous"></script>
+  <script type="text/javascript" src="$(ProjectName).js"></script>
+  <script>
+      function startSpinner() {
+        //window.scrollTo(0, 0);
+        document.body.style.setProperty('--spinner-top', window.scrollY+'px');
+        $(".hide-scene").addClass("scene");
+      }
+
+      function endSpinner() {
+        $(".hide-scene").removeClass("scene");
+      }
+  </script>
+
+
+  <title>EM Systems webCharms App</title>
+    <script type="text/javascript" src="$(ProjectName).js"></script>
+    <style>
+      /*-----svg loader styles-------*/
+      :root {
+          --spinner-top: 0px;
        }
+
+      .hide-scene {
+        display:none;
+      }
+
+      .scene {
+        position: absolute;
+        z-index: 9999999;
+        top: var(--spinner-top);
+        width: 100%;
+        height: 100%;
+        perspective: 600;
+        display: -webkit-box;
+        display: -moz-box;
+        display: -ms-flexbox;
+        display: -webkit-flex;
+        display: flex;
+        align-items: center;
+        justify-content: center;
+      }
+
+      .scene svg {
+        width: 165px;
+        height: 165px;
+        /* background-color: lavender; */
+      }
+
+      @keyframes arrow-spin {
+        50% {
+          transform: rotateY(360deg);
+        }
+      }
+      /*-------------------------------------------*/
+    </style>
+  </head>
+  <body>
+  </body>
+  <script type="text/javascript">
+    rtl.run();
+  </script>
+
+  <div class="hide-scene">
+    <svg
+      version="1.1"
+      id="dc-spinner"
+      xmlns="http://www.w3.org/2000/svg"
+      x="0px" y="0px"
+      width:"38"
+      height:"38"
+      viewBox="0 0 38 38"
+      preserveAspectRatio="xMinYMin meet">
+
+      <circle cx="20" cy="20" r="16" fill="#D3D3D3"></circle>
+
+      <text x="55%" y="54%" font-family="Monaco" font-size="2px" text-anchor="middle" dy=".3em" style="letter-spacing:0.6">PROCESSING
+        <animate
+          attributeName="opacity"
+          values="0;1;0" dur="1.8s"
+          repeatCount="indefinite"/>
+      </text>
+
+      <path fill="#373a42" d="M20,35c-8.271,0-15-6.729-15-15S11.729,5,20,5s15,6.729,15,15S28.271,35,20,35z M20,5.203
+        C11.841,5.203,5.203,11.841,5.203,20c0,8.159,6.638,14.797,14.797,14.797S34.797,28.159,34.797,20
+        C34.797,11.841,28.159,5.203,20,5.203z">
+      </path>
+
+      <path fill="#373a42" d="M20,33.125c-7.237,0-13.125-5.888-13.125-13.125S12.763,6.875,20,6.875S33.125,12.763,33.125,20
+        S27.237,33.125,20,33.125z M20,7.078C12.875,7.078,7.078,12.875,7.078,20c0,7.125,5.797,12.922,12.922,12.922
+        S32.922,27.125,32.922,20C32.922,12.875,27.125,7.078,20,7.078z">
+      </path>
+
+      <path fill="#2AA198" stroke="#2AA198" stroke-width="0.6027" stroke-miterlimit="10" d="M5.203,20
+	    c0-8.159,6.638-14.797,14.797-14.797V5C11.729,5,5,11.729,5,20s6.729,15,15,15v-0.203C11.841,34.797,5.203,28.159,5.203,20z">
+
+        <animateTransform
+          attributeName="transform"
+          type="rotate"
+          from="0 20 20"
+          to="360 20 20"
+          calcMode="spline"
+          keySplines="0.4, 0, 0.2, 1"
+          keyTimes="0;1"
+          dur="2s"
+          repeatCount="indefinite" />
+      </path>
+
+      <path fill="#859900" stroke="#859900" stroke-width="0.2027" stroke-miterlimit="10" d="M7.078,20
+        c0-7.125,5.797-12.922,12.922-12.922V6.875C12.763,6.875,6.875,12.763,6.875,20S12.763,33.125,20,33.125v-0.203
+        C12.875,32.922,7.078,27.125,7.078,20z">
+
+        <animateTransform
+          attributeName="transform"
+          type="rotate"
+          from="0 20 20"
+          to="360 20 20"
+          dur="1.8s"
+          repeatCount="indefinite" />
+      </path>
+    </svg>
+  </div>
+
+</html>

kgOrdersClient/template/css/app.css

+.login-card {
+    display: inline-block;
+    width: 300px; /* Adjust width as needed */
+    padding: 0;
+    border-radius: 10px;
+    box-shadow: 0 4px 8px rgba(0, 0, 0, 0.1);
+    background-color: #fff;
+}
+
+.card-header {
+    width: 100%;
+    text-align: left; /* Align text to the left */
+    background-color: #f8f9fa; /* Match the card background */
+    padding: 0.75rem 1.25rem;
+    border-bottom: 1px solid rgba(0, 0, 0, 0.125);
+    border-top-left-radius: 10px;
+    border-top-right-radius: 10px;
+    margin: 0; /* Remove any margin */
+    box-sizing: border-box; /* Ensure padding is included in the element's total width and height */
+}
+
+.mr-2 {
+    margin-right: 0.5rem;
+}
+
+.custom-select-large {
+        font-size: 1.25rem;
+        padding: 0.5rem;
+        height: 2.5rem;
+}
+
+.player-container {
+  position: fixed;
+  top: 50%;
+  left: 50%;
+  transform: translate(-50%, -50%);
+  background-color: #fff;
+  border: 1px solid #ccc;
+  padding: 20px;
+  box-shadow: 0 0 10px rgba(0, 0, 0, 0.1);
+  z-index: 1000;
+}
+
+.player-container audio {
+  width: 100%;
+}
+
+.close-btn {
+  position: absolute;
+  top: 10px;
+  right: 10px;
+  cursor: pointer;
+}
+
+.card-title {
+    margin: 0;
+    font-size: 1.25rem; /* Adjust font size as needed */
+}
+
+
+.card-body {
+    padding: 2rem;
+}
+
+.table tbody tr:hover {
+    background-color: #d1e7fd; /* Light blue color for hover effect */
+    cursor: pointer;
+}
+
+.form-input{
+    display: table;
+}
+
+.form-cells{
+    display: table-cell
+}
+
+.table tbody tr {
+    transition: background-color 0.3s ease;
+}
+
+.table {
+    box-shadow: 0 4px 8px rgba(0, 0, 0, 0.1);
+    border-radius: 5px;
+}
+
+.navbar-nav {
+    margin-left: auto; /* Align the dropdown to the right */
+}
+
+.container {
+    margin-top: 50px; /* Adjust the top margin as needed */
+}
+
+@media (max-width: 1200px) {
+    .table-responsive {
+        display: block;
+        width: 100%;
+        overflow-x: auto;
+        -webkit-overflow-scrolling: touch;
+    }
+
+    .table thead {
+        display: none;
+    }
+
+    .table tbody, .table tr, .table td {
+        display: block;
+        width: 100%;
+    }
+
+    .table tr {
+        margin-bottom: 1rem;
+    }
+
+    .table td {
+        text-align: right;
+        padding-left: 50%; /* Adjust padding to accommodate the data-label */
+        position: relative;
+    }
+
+    .table td::before {
+        content: attr(data-label);
+        position: absolute;
+        left: 0;
+        width: 50%;
+        padding-left: 15px; /* Adjust as necessary */
+        font-weight: bold;
+        text-align: left;
+    }
+
+    .table td .transcript {
+        margin-top: 20px; /* Set top margin to 20px */
+        text-align: left; /* Ensure text alignment is left */
+        margin-left: 8px;
+        white-space: normal; /* Prevent text from being cut off */
+    }
+}
+
+.btn-primary {
+    background-color: #286090 !important;
+    border-color: #286090 !important;
+    color: #fff !important;
+}
+
+.btn-primary:hover {
+    background-color: #204d74 !important;
+    border-color: #204d74 !important;
+}
+
+.login-navbar {
+    max-width: 1200px; /* Set the max-width to match a medium screen */
+    margin: auto;
+    border-bottom-left-radius: 10px; /* Round the bottom left corner */
+    border-bottom-right-radius: 10px; /* Round the bottom right corner */
+    border: 1px solid #d3d3d3;
+}
+
+.navbar-toggler {
+    display: none;
+}
+
+.dropdown-menu a {
+    display: flex;           /* Use flexbox for alignment */
+    align-items: center;     /* Vertically center the content */
+    width: 100%;             /* Ensure they take up the full width */
+    padding: 0.5rem 1rem;    /* Add padding to make them clickable */
+    color: #000;             /* Adjust the text color if necessary */
+    text-decoration: none;   /* Remove underlines */
+}
+
+.dropdown-menu a:hover {
+    background-color: #204d74;
+    color: #fff;
+}
+
+.dropdown-menu a span {
+    flex-grow: 1;            /* Make the span take up the remaining space */
+}
+
+/* Style for the selected number */
+.selected-number .page-link {
+    background-color: #204d74;
+    color: #fff !important;
+}
+
+/* Style for the unselected numbers and text (previous/next) */
+.pagination .page-item a,
+.pagination .page-item span {
+    color: #204d74;
+}
+
+.pagination .page-item.active .page-link,
+.pagination .page-item.active .page-link:hover,
+.pagination .page-item.active .page-link:focus {
+    background-color: #204d74;
+    border-color: #204d74;
+    color: #fff !important;
+}
+
+
+
+

kgOrdersClient/webKGOrders.dpr

+program webKGOrders;
+
+
+
+uses
+  Vcl.Forms,
+  XData.Web.Connection,
+  Auth.Service in 'Auth.Service.pas',
+  App.Types in 'App.Types.pas',
+  ConnectionModule in 'ConnectionModule.pas' {DMConnection: TWebDataModule},
+  View.Login in 'View.Login.pas' {FViewLogin: TWebForm} {*.html},
+  View.UserProfile in 'View.UserProfile.pas' {FViewUserProfile: TWebForm} {*.html},
+  View.ErrorPage in 'View.ErrorPage.pas' {FViewErrorPage: TWebForm} {*.html},
+  App.Config in 'App.Config.pas',
+  Paginator.Plugins in 'Paginator.Plugins.pas',
+  View.Calls in 'View.Calls.pas' {FViewCalls: TWebForm} {*.html},
+  View.Main in 'View.Main.pas' {FViewMain: TWebForm} {*.html},
+  View.Home in 'View.Home.pas' {FViewHome: TWebForm} {*.html},
+  View.Admin in 'View.Admin.pas' {FViewAdmin: TWebForm} {*.html},
+  View.Users in 'View.Users.pas' {FViewUsers: TWebForm} {*.html},
+  View.EditUser in 'View.EditUser.pas' {FViewEditUser: TWebForm} {*.html};
+
+{$R *.res}
+
+procedure DisplayLoginView(AMessage: string = ''); forward;
+
+procedure DisplayMainView;
+
+  procedure ConnectProc;
+  begin
+    if Assigned(FViewLogin) then
+      FViewLogin.Free;
+    TFViewMain.Display(@DisplayLoginView);
+  end;
+
+begin
+  if not DMConnection.ApiConnection.Connected then
+    DMConnection.ApiConnection.Open(@ConnectProc)
+  else
+    ConnectProc;
+end;
+
+procedure DisplayLoginView(AMessage: string);
+begin
+  AuthService.Logout;
+  DMConnection.ApiConnection.Connected := False;
+  if Assigned(FViewMain) then
+    FViewMain.Free;
+  TFViewLogin.Display(@DisplayMainView, AMessage);
+end;
+
+procedure UnauthorizedAccessProc(AMessage: string);
+begin
+  DisplayLoginView(AMessage);
+end;
+
+procedure StartApplication;
+begin
+  if (not AuthService.Authenticated) or AuthService.TokenExpired then
+    DisplayLoginView
+  else
+    DisplayMainView;
+end;
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TDMConnection, DMConnection);
+  Application.Run;
+  DMConnection.InitApp(@StartApplication, @UnauthorizedAccessProc);
+end.

kgOrdersClient/webKGOrders.dproj

+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{DB6F5DBF-7E4B-45DA-AFFA-6C8DF15BA740}</ProjectGuid>
+        <ProjectVersion>20.1</ProjectVersion>
+        <FrameworkType>VCL</FrameworkType>
+        <MainSource>webKGOrders.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Application</AppType>
+        <ProjectName Condition="'$(ProjectName)'==''">webKGOrders</ProjectName>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_UsePackage>RESTComponents;emsclientfiredac;DataSnapFireDAC;FireDACIBDriver;xdata;emsclient;FireDACCommon;RESTBackendComponents;soapserver;CloudService;FireDACCommonDriver;inet;FireDAC;FireDACSqliteDriver;soaprtl;soapmidas;aurelius;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+        <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
+        <SanitizedProjectName>webKGOrders</SanitizedProjectName>
+        <VerInfo_Locale>1046</VerInfo_Locale>
+        <TMSWebProject>2</TMSWebProject>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.802;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;LastCompiledTime=2018/07/25 12:57:53</VerInfo_Keys>
+        <TMSWebHTMLFile>index.html</TMSWebHTMLFile>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;svnui;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;Intraweb;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;fmxdae;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;DataSnapConnectors;VCLRESTComponents;vclie;TMSWEBCorePkgDXE11;bindengine;DBXMySQLDriver;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;DataSnapClient;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;TMSWEBCorePkgLibDXE11;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;emshosting;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;vclwinx;ibxbindings;rtl;FireDACDSDriver;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;IndyProtocols;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;Intraweb;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;fmxdae;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;DataSnapConnectors;VCLRESTComponents;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;DataSnapClient;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;emshosting;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;vclwinx;ibxbindings;rtl;FireDACDSDriver;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;IndyProtocols;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+        <TMSWebDebugInfo>2</TMSWebDebugInfo>
+        <TMSWebDefines>DEBUG</TMSWebDefines>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;LastCompiledTime=2018/08/27 15:18:29</VerInfo_Keys>
+        <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
+        <VerInfo_MinorVer>3</VerInfo_MinorVer>
+        <TMSUseJSDebugger>2</TMSUseJSDebugger>
+        <TMSWebSingleInstance>1</TMSWebSingleInstance>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <TMSWebOptimization>2</TMSWebOptimization>
+        <TMSWebDefines>RELEASE</TMSWebDefines>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <VerInfo_Build>8</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.8;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;LastCompiledTime=2018/08/22 16:25:56</VerInfo_Keys>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="Auth.Service.pas"/>
+        <DCCReference Include="App.Types.pas"/>
+        <DCCReference Include="ConnectionModule.pas">
+            <Form>DMConnection</Form>
+            <DesignClass>TWebDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.Login.pas">
+            <Form>FViewLogin</Form>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.UserProfile.pas">
+            <Form>FViewUserProfile</Form>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.ErrorPage.pas">
+            <Form>FViewErrorPage</Form>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="App.Config.pas"/>
+        <DCCReference Include="Paginator.Plugins.pas"/>
+        <DCCReference Include="View.Calls.pas">
+            <Form>FViewCalls</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.Main.pas">
+            <Form>FViewMain</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.Home.pas">
+            <Form>FViewHome</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.Admin.pas">
+            <Form>FViewAdmin</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.Users.pas">
+            <Form>FViewUsers</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <DCCReference Include="View.EditUser.pas">
+            <Form>FViewEditUser</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TWebForm</DesignClass>
+        </DCCReference>
+        <None Include="index.html"/>
+        <None Include="template\css\app.css"/>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">webKGOrders.dpr</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp290.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Deployment Version="4">
+                <DeployFile LocalName="Win32\Debug\webCharms.exe" Configuration="Debug" Class="ProjectOutput"/>
+                <DeployFile LocalName="Win32\Debug\webKGOrders.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>webKGOrders.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="index.html" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="index.html" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="template\bootstrap\bootstrap.min.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\bootstrap\bootstrap.min.js" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\bootstrap\dataTables.bootstrap.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\css\app.css" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="template\css\emsys.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\css\metisMenu.min.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\css\morris.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\css\sb-admin-2.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\font-awesome\font-awesome.min.css" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\font-awesome\fonts\fontawesome-webfont.ttf" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\font-awesome\fonts\fontawesome-webfont.woff2" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\font-awesome\fonts\fontawesome-webfont.woff" Configuration="Debug" Class="ProjectFile"/>
+                <DeployFile LocalName="template\jquery\jquery.min.js" Configuration="Debug" Class="ProjectFile"/>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClasses">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidFileProvider">
+                    <Platform Name="Android">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiv7aFile">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDefV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV31">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v26</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v26</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconBackground">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconForeground">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconMonochrome">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconV33">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v33</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v33</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Colors">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_ColorsDark">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-night-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-night-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon192">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon24">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Strings">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedNotificationIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v24</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v24</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplash">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplashDark">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplashV31">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplashV31Dark">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXDebug">
+                    <Platform Name="OSX64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXEntitlements">
+                    <Platform Name="OSX32">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXInfoPList">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Linux64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectUWPManifest">
+                    <Platform Name="Win32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64x">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSInfoPList">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSLaunchScreen">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo150">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo44">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iOS_AppStore1024">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_AppIcon152">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_AppIcon167">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_LaunchDark2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Notification40">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Setting58">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_SpotLight80">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_AppIcon120">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_AppIcon180">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch3x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_LaunchDark2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_LaunchDark3x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Notification40">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Notification60">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Setting58">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Setting87">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Spotlight120">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Spotlight80">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimARM64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
+            </Deployment>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+            <ModelSupport>False</ModelSupport>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

kgOrdersServer/Source/Api.Server.Module.dfm

+object ApiServerModule: TApiServerModule
+  Height = 273
+  Width = 230
+  object SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher
+    Active = True
+    Left = 84
+    Top = 30
+  end
+  object XDataServer: TXDataServer
+    BaseUrl = 'http://localhost:2004/emsys/envoy/api/'
+    Dispatcher = SparkleHttpSysDispatcher
+    EntitySetPermissions = <>
+    SwaggerOptions.Enabled = True
+    SwaggerOptions.AuthMode = Jwt
+    SwaggerUIOptions.Enabled = True
+    SwaggerUIOptions.ShowFilter = True
+    SwaggerUIOptions.TryItOutEnabled = True
+    Left = 85
+    Top = 110
+    object XDataServerLogging: TSparkleGenericMiddleware
+      OnMiddlewareCreate = XDataServerLoggingMiddlewareCreate
+    end
+    object XDataServerCORS: TSparkleCorsMiddleware
+    end
+    object XDataServerCompress: TSparkleCompressMiddleware
+    end
+    object XDataServerJWT: TSparkleJwtMiddleware
+      OnGetSecret = XDataServerJWTGetSecret
+    end
+  end
+end

kgOrdersServer/Source/Api.Server.Module.pas

+// Server Module for the API part of the project.
+
+unit Api.Server.Module;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, System.Generics.Collections,
+  Aurelius.Drivers.SQLite,
+  Aurelius.Comp.Connection,
+  Aurelius.Drivers.Interfaces,
+  XData.Aurelius.ConnectionPool, XData.Server.Module, Sparkle.Comp.Server,
+  XData.Comp.Server, XData.Comp.ConnectionPool, Sparkle.Comp.HttpSysDispatcher,
+  Sparkle.Comp.JwtMiddleware, Sparkle.Middleware.Jwt, Aurelius.Criteria.Linq,
+  Sparkle.HttpServer.Module, Sparkle.HttpServer.Context,
+  Sparkle.Comp.CompressMiddleware, Sparkle.Comp.CorsMiddleware,
+  Sparkle.Comp.GenericMiddleware, Aurelius.Drivers.UniDac, UniProvider,
+  Data.DB, DBAccess, Uni;
+
+type
+  TApiServerModule = class(TDataModule)
+    SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher;
+    XDataServer: TXDataServer;
+    XDataServerLogging: TSparkleGenericMiddleware;
+    XDataServerCORS: TSparkleCorsMiddleware;
+    XDataServerCompress: TSparkleCompressMiddleware;
+    XDataServerJWT: TSparkleJwtMiddleware;
+    procedure XDataServerLoggingMiddlewareCreate(Sender: TObject;
+      var Middleware: IHttpServerMiddleware);
+    procedure XDataServerJWTGetSecret(Sender: TObject; var Secret: string);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure StartApiServer(ABaseUrl: string);
+  end;
+
+const
+  SERVER_PATH_SEGMENT = 'api';
+
+var
+  ApiServerModule: TApiServerModule;
+
+implementation
+
+uses
+  Sparkle.HttpServer.Request,
+  Sparkle.Middleware.Cors,
+  Sparkle.Middleware.Compress,
+  XData.OpenApi.Service,
+  XData.Sys.Exceptions,
+  Common.Logging,
+  Common.Middleware.Logging,
+  Common.Config, Vcl.Forms, IniFiles;
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+{ TApiServerModule }
+
+function IsAdmin(Request: THttpServerRequest): Boolean;
+var
+  User: IUserIdentity;
+begin
+  User := Request.User;
+  Result := (User <> nil) and User.Claims.Exists('admin') and User.Claims['admin'].AsBoolean;
+end;
+
+procedure TApiServerModule.StartApiServer(ABaseUrl: string);
+var
+  Url: string;
+begin
+  RegisterOpenApiService;
+
+  Url := ABaseUrl;
+  if not Url.EndsWith('/') then
+    Url := Url + '/';
+  Url := Url + SERVER_PATH_SEGMENT;
+
+  XDataServer.BaseUrl := Url;
+
+  SparkleHttpSysDispatcher.Start;
+  Logger.Log(1, Format('Api server module listening at "%s"', [Url]));
+end;
+
+procedure TApiServerModule.XDataServerLoggingMiddlewareCreate(Sender: TObject;
+  var Middleware: IHttpServerMiddleware);
+begin
+  Middleware := TLoggingMiddleware.Create(Logger);
+end;
+
+procedure TApiServerModule.XDataServerJWTGetSecret(Sender: TObject;
+  var Secret: string);
+begin
+  Secret := serverConfig.jwtTokenSecret;
+end;
+
+end.

kgOrdersServer/Source/App.Server.Module.dfm

+object AppServerModule: TAppServerModule
+  Height = 173
+  Width = 218
+  object SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher
+    Left = 88
+    Top = 16
+  end
+  object SparkleStaticServer: TSparkleStaticServer
+    BaseUrl = 'http://localhost:2004/emsys/envoy/app/'
+    Dispatcher = SparkleHttpSysDispatcher
+    Left = 88
+    Top = 88
+    object SparkleStaticServerCompress: TSparkleCompressMiddleware
+    end
+    object SparkleStaticServerLogging: TSparkleLoggingMiddleware
+      FormatString = ':method :url :statuscode - :responsetime ms'
+      ExceptionFormatString = '(%1:s: %4:s) %0:s - %2:s'
+      ErrorResponseOptions.ErrorCode = 'ServerError'
+      ErrorResponseOptions.ErrorMessageFormat = 'Internal server error: %4:s'
+    end
+  end
+end

kgOrdersServer/Source/App.Server.Module.pas

+unit App.Server.Module;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, System.Generics.Collections,
+  Sparkle.Comp.Server, Sparkle.Comp.StaticServer, Sparkle.Comp.HttpSysDispatcher,
+  Sparkle.Module.Static, Sparkle.Comp.CompressMiddleware,
+  Sparkle.HttpServer.Module, Sparkle.HttpServer.Context,
+  Sparkle.Comp.LoggingMiddleware;
+
+type
+  TAppServerModule = class(TDataModule)
+    SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher;
+    SparkleStaticServer: TSparkleStaticServer;
+    SparkleStaticServerCompress: TSparkleCompressMiddleware;
+    SparkleStaticServerLogging: TSparkleLoggingMiddleware;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure StartAppServer(ABaseUrl: string);
+  end;
+
+const
+  SERVER_PATH_SEGMENT = 'app';
+
+var
+  AppServerModule: TAppServerModule;
+
+implementation
+
+uses
+  Sparkle.Middleware.Compress,
+  Common.Logging,
+  Common.Config;
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+{ TAppServerModule }
+
+procedure TAppServerModule.StartAppServer(ABaseUrl: string);
+var
+  url: string;
+begin
+  url := ABaseUrl;
+  if not url.EndsWith('/') then
+    url := url + '/';
+  url := url + SERVER_PATH_SEGMENT;
+
+  SparkleStaticServer.BaseUrl := url;
+  SparkleStaticServer.RootDir := serverConfig.webAppFolder;
+
+  SparkleHttpSysDispatcher.Start;
+  Logger.Log(1, Format('App server module listening at "%s", rootDir: %s', [url, serverConfig.webAppFolder]));
+end;
+
+end.

kgOrdersServer/Source/Auth.Database.dfm

+object AuthDatabase: TAuthDatabase
+  OnCreate = DataModuleCreate
+  OnDestroy = DataModuleDestroy
+  Height = 249
+  Width = 433
+  object uq: TUniQuery
+    Connection = ucKG
+    SQL.Strings = (
+      'select * from users')
+    FetchRows = 100
+    Left = 162
+    Top = 45
+  end
+  object uqMisc: TUniQuery
+    FetchRows = 100
+    Left = 249
+    Top = 45
+  end
+  object ucKG: TUniConnection
+    ProviderName = 'MySQL'
+    Database = 'kg_order_entry'
+    SpecificOptions.Strings = (
+      'PostgreSQL.Schema=envoy')
+    Username = 'root'
+    Server = '192.168.159.132'
+    Connected = True
+    LoginPrompt = False
+    Left = 67
+    Top = 131
+    EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
+  end
+  object MySQLUniProvider1: TMySQLUniProvider
+    Left = 230
+    Top = 140
+  end
+end

kgOrdersServer/Source/Auth.Database.pas

+// Auth Database to verify logins
+
+unit Auth.Database;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, IniFiles, Vcl.Forms, MemDS,
+  Data.DB, DBAccess, Uni, UniProvider, PostgreSQLUniProvider, MySQLUniProvider;
+
+type
+  TAuthDatabase = class(TDataModule)
+    uq: TUniQuery;
+    uqMisc: TUniQuery;
+    ucKG: TUniConnection;
+    MySQLUniProvider1: TMySQLUniProvider;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure SetLoginAuditEntry( userStr: string );
+  end;
+
+var
+  AuthDatabase: TAuthDatabase;
+
+implementation
+
+uses
+  System.JSON,
+  Common.Config,
+  Common.Logging,
+  uLibrary;
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+procedure TAuthDatabase.DataModuleCreate(Sender: TObject);
+var
+  IniFile: TIniFile;
+  iniStr: string;
+begin
+  IniFile := TIniFile.Create( ChangeFileExt(Application.ExeName, '.ini') );
+  try
+    iniStr := IniFile.ReadString( 'Database', 'Server', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Database->Server: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Database->Server: ' + iniStr );
+      ucKG.Server := iniStr;
+    end;
+
+    iniStr := IniFile.ReadString( 'Twilio', 'AccountSID', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AccountSID: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AccountSID: ' + iniStr );
+      //accountSID := iniStr;
+    end;
+
+    iniStr := IniFile.ReadString( 'Twilio', 'AuthHeader', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AuthHeader: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AuthHeader: ' + iniStr );
+      //authHeader := iniStr;
+    end;
+    Logger.Log(1, '');
+  finally
+    IniFile.Free;
+  end;
+end;
+
+procedure TAuthDatabase.DataModuleDestroy(Sender: TObject);
+begin
+  ucKG.Connected := false;
+end;
+
+procedure TAuthDatabase.SetLoginAuditEntry( userStr: string );
+var
+  auditMasterId: string;
+  userInfo: TStringList;
+  entry: string;
+  username: string;
+  fullname: string;
+  agency: string;
+  userid: string;
+  personnelid: string;
+  admin: boolean;
+  i: Integer;
+begin
+  Logger.Log( 3, 'TAuthDatabase.SetLoginAuditEntry - start' );
+
+  userInfo := TStringList.Create;
+  try
+    userInfo.Delimiter := '&';
+    userInfo.StrictDelimiter := True;
+    userInfo.DelimitedText := userStr;
+    username := userInfo.Values['username'];
+    fullname := userInfo.Values['fullname'];
+    userid := userInfo.Values['userId'];
+    personnelid := userInfo.Values['personnelid'];
+  finally
+    userInfo.Free;
+  end;
+end;
+
+
+end.

kgOrdersServer/Source/Auth.Server.Module.dfm

+object AuthServerModule: TAuthServerModule
+  Height = 273
+  Width = 230
+  object SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher
+    Left = 88
+    Top = 16
+  end
+  object XDataServer: TXDataServer
+    BaseUrl = 'http://localhost:2004/emsys/envoy/auth/'
+    Dispatcher = SparkleHttpSysDispatcher
+    ModelName = 'Auth'
+    EntitySetPermissions = <>
+    SwaggerOptions.Enabled = True
+    SwaggerUIOptions.Enabled = True
+    SwaggerUIOptions.ShowFilter = True
+    SwaggerUIOptions.TryItOutEnabled = True
+    Left = 91
+    Top = 92
+    object XDataServerLogging: TSparkleGenericMiddleware
+      OnMiddlewareCreate = XDataServerLoggingMiddlewareCreate
+    end
+    object XDataServerCORS: TSparkleCorsMiddleware
+    end
+    object XDataServerCompress: TSparkleCompressMiddleware
+    end
+  end
+end

kgOrdersServer/Source/Auth.Server.Module.pas

+// Auth Server Module for the project
+
+unit Auth.Server.Module;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, System.Generics.Collections,
+  Aurelius.Comp.Connection,
+  Aurelius.Drivers.Interfaces,
+  XData.Aurelius.ConnectionPool, XData.Server.Module, XData.Comp.ConnectionPool,
+  Sparkle.Comp.Server, Sparkle.Comp.JwtMiddleware, XData.Comp.Server,
+  Sparkle.Comp.HttpSysDispatcher, Sparkle.Comp.CompressMiddleware,
+  Sparkle.Comp.CorsMiddleware, Sparkle.HttpServer.Module,
+  Sparkle.HttpServer.Context, Sparkle.Comp.GenericMiddleware;
+
+type
+  TAuthServerModule = class(TDataModule)
+    SparkleHttpSysDispatcher: TSparkleHttpSysDispatcher;
+    XDataServer: TXDataServer;
+    XDataServerLogging: TSparkleGenericMiddleware;
+    XDataServerCORS: TSparkleCorsMiddleware;
+    XDataServerCompress: TSparkleCompressMiddleware;
+    procedure XDataServerLoggingMiddlewareCreate(Sender: TObject;
+      var Middleware: IHttpServerMiddleware);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure StartAuthServer(ABaseUrl: string; AModelName: string);
+  end;
+
+const
+  SERVER_PATH_SEGMENT = 'auth';
+
+var
+  AuthServerModule: TAuthServerModule;
+
+implementation
+
+uses
+  Sparkle.Middleware.Cors,
+  Sparkle.Middleware.Compress,
+  XData.OpenApi.Service,
+  Common.Logging,
+  Common.Middleware.Logging;
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+{ TAuthServerModule }
+
+procedure TAuthServerModule.StartAuthServer(ABaseUrl: string;
+  AModelName: string);
+var
+  Url: string;
+begin
+  RegisterOpenApiService;
+
+  Url := ABaseUrl;
+  if not Url.EndsWith('/') then
+    Url := Url + '/';
+  Url := Url + SERVER_PATH_SEGMENT;
+
+  XDataServer.BaseUrl := Url;
+  XDataServer.ModelName := AModelName;
+
+  SparkleHttpSysDispatcher.Start;
+  Logger.Log(1, Format('Auth server module listening at "%s"', [Url]));
+end;
+
+procedure TAuthServerModule.XDataServerLoggingMiddlewareCreate(Sender: TObject;
+  var Middleware: IHttpServerMiddleware);
+begin
+  Middleware := TLoggingMiddleware.Create(Logger);
+end;
+
+end.

kgOrdersServer/Source/Auth.Service.pas

+// Auth Interface service declaration
+
+unit Auth.Service;
+
+interface
+
+uses
+  XData.Service.Common,
+  Aurelius.Mapping.Attributes,
+  System.Generics.Collections;
+
+const
+  AUTH_MODEL = 'Auth';
+
+type
+
+  [ServiceContract, Model(AUTH_MODEL)]
+  IAuthService = interface(IInvokable)
+  ['{9CFD59B2-A832-4F82-82BB-9A25FC93F305}']
+    function Login(const user, password: string): string;
+    function VerifyVersion(version: string): string;
+  end;
+
+implementation
+
+
+end.

kgOrdersServer/Source/Auth.ServiceImpl.pas

+// Implementation of Auth Serice that will eventually retrieve login information
+// from the auth database.
+
+unit Auth.ServiceImpl;
+
+interface
+
+uses
+  XData.Service.Common,
+  XData.Server.Module,
+  Auth.Service,
+  Auth.Database,
+  Uni, Data.DB, System.Hash;
+
+type
+  [ServiceImplementation]
+  TAuthService = class(TInterfacedObject, IAuthService)
+  strict private
+    authDB: TAuthDatabase;
+    function GetQuery: TUniQuery;
+  private
+    userName: string;
+    userFullName: string;
+    userId: string;
+    userAdmin: boolean;
+    userPhone: string;
+    userEmail: string;
+    procedure AfterConstruction; override;
+    procedure BeforeDestruction; override;
+    property Query: TUniQuery read GetQuery;
+    function CheckUser(const user, password: string): Integer;
+  public
+    function Login(const user, password: string): string;
+    function VerifyVersion(version: string): string;
+  end;
+
+implementation
+
+uses
+  System.SysUtils,
+  System.DateUtils,
+  System.Generics.Collections,
+  Bcl.JOSE.Core.Builder,
+  Bcl.JOSE.Core.JWT,
+  Aurelius.Global.Utils,
+  XData.Sys.Exceptions,
+  Common.Logging,
+  Common.Config,
+  uLibrary;
+
+{ TLoginService }
+
+procedure TAuthService.AfterConstruction;
+begin
+  inherited;
+  authDB := TAuthDatabase.Create(nil);
+end;
+
+procedure TAuthService.BeforeDestruction;
+begin
+  authDB.Free;
+  inherited;
+end;
+
+function TAuthService.GetQuery: TUniQuery;
+begin
+  Result := authDB.uq;
+end;
+
+function TAuthService.VerifyVersion(version: string): string;
+begin
+  if( version <> '1.0.0' ) then
+  begin
+    Logger.Log( 2, 'TLoginService.GetAgenciesConfigList - Error: wrong ver!' );
+    result := 'Error - You have the wrong version! Please clear your cache and refresh!';
+    Exit;
+  end;
+  result := '';
+end;
+
+function TAuthService.Login(const user, password: string): string;
+// Login verification: currently checks if logins are the same or if the user
+// is admin, checks for admin password. Eventually will do a database lookup
+// instead. If the user has a JWT token they do not need to login.
+// Potential error occuring when logging in after you have already logged in
+// webcharms.
+var
+  userState: Integer;
+  JWT: TJWT;
+begin
+  Logger.Log(1, Format( 'AuthService.Login - User: "%s"', [User]));
+  userState := CheckUser( user, password );
+
+  if userState = 0 then
+    raise EXDataHttpUnauthorized.Create('Invalid username or password');
+  if userState = 1 then
+    raise EXDataHttpUnauthorized.Create('User does not exist!');
+  if userState = 2 then
+    raise EXDataHttpUnauthorized.Create('User not active!');
+
+  JWT := TJWT.Create;
+  try
+    JWT.Claims.JWTId := LowerCase(Copy(TUtils.GuidToVariant(TUtils.NewGuid), 2, 36));
+    JWT.Claims.IssuedAt := Now;
+    JWT.Claims.Expiration := IncHour(Now, 24);
+    JWT.Claims.SetClaimOfType<string>('user_name', userName);
+    JWT.Claims.SetClaimOfType<string>('user_fullname', userFullName);
+    JWT.Claims.SetClaimOfType<string>('user_id', userId);
+    JWT.Claims.SetClaimOfType<boolean>('user_admin', userAdmin);
+    JWT.Claims.SetClaimOfType<string>('user_phone', userPhone);
+    JWT.Claims.SetClaimOfType<string>('user_email', userEmail);
+    Result := TJOSE.SHA256CompactToken(serverConfig.jwtTokenSecret, JWT);
+  finally
+    JWT.Free;
+  end;
+end;
+
+function TAuthService.CheckUser(const user, password: string): Integer;
+var
+  userStr: string;
+  SQL: string;
+  date_created: string;
+  checkString: string;
+begin
+  //authDB := TAuthDatabase.Create(nil);
+  Result := 0;
+  //Logger.Log( 3, Format('AuthService.CheckUser - User: "%s"', [user]) );
+  SQL := 'select * from users where USER_NAME = ' + QuotedStr(user);
+  DoQuery(authDB.uq, SQL);
+  if authDB.uq.IsEmpty then
+  begin
+      Result := 1;   //user does not exist, replace this with 0 for more security
+  end
+  else if ( authDB.uq.FieldByName('STATUS').AsString <> 'ACTIVE' ) then
+    Result := 2 // user is not active
+  else
+  begin
+    //date_created := authDB.uq.FieldByName('date_created').AsString;
+    //checkString := THashSHA2.GetHashString(date_created + password, THashSHA2.TSHA2Version.SHA512).ToUpper;
+    if password = authDB.uq.FieldByName('PASSWORD').AsString then
+    begin
+      {userName := user;
+      userFullName:= authDB.uq.FieldByName('full_name').AsString;;
+      userId := authDB.uq.FieldByName('user_id').AsString;
+      userAdmin := authDB.uq.FieldByName('admin').AsBoolean;
+      userPhone := authDB.uq.FieldByName('phone_number').AsString;
+      userEmail := authDB.uq.FieldByName('email').AsString;
+
+      userStr := '?username=' + userName;
+      userStr := userStr + '&fullname=' + userFullName;
+      userStr := userStr + '&userid=' + userId;
+      userStr := userStr + '&useradmin=' + BoolToStr(userAdmin);}
+      //Logger.Log( 3, Format('AuthDB.SetLoginAuditEntry: "%s"', [user]) );
+      //AuthDB.SetLoginAuditEntry( userStr );
+      Result := 3; // Succcess
+    end
+    else
+      Result := 0; // invalid password
+  end;
+end;
+
+initialization
+  RegisterServiceType(TAuthService);
+end.

kgOrdersServer/Source/Common.Config.pas

+// The configuartion file for the program. Contains important info like the admin
+// password and the secret token. Should likely move this to the ini file..
+
+unit Common.Config;
+
+interface
+
+const
+  defaultServerUrl = 'http://localhost:2004/emsys/envoycalls/';
+
+type
+  TServerConfig = class
+  private
+    Furl: string;
+    FJWTTokenSecret: string;
+    FAdminPassword: string;
+    FWebAppFolder: string;
+    FMemoLogLevel: Integer;
+    FFileLogLevel: Integer;
+  public
+    constructor Create;
+    property url: string read FUrl write FUrl;
+    property jwtTokenSecret: string read FJWTTokenSecret write FJWTTokenSecret;
+    property adminPassword: string read FAdminPassword write FAdminPassword;
+    property webAppFolder: string read FWebAppFolder write FWebAppFolder;
+    property memoLogLevel: Integer read FMemoLogLevel write FMemoLogLevel;
+    property fileLogLevel: Integer read FFileLogLevel write FFileLogLevel;
+  end;
+
+procedure LoadServerConfig;
+
+var
+  serverConfig: TServerConfig;
+
+implementation
+
+uses
+  Bcl.Json, System.SysUtils, System.IOUtils,
+  Common.Logging;
+
+procedure LoadServerConfig;
+var
+  configFile: string;
+  localConfig: TServerConfig;
+begin
+  Logger.Log( 1, '--LoadServerConfig - start' );
+  configFile := TPath.ChangeExtension( ParamStr(0), '.json' );
+  Logger.Log( 1, '-- Config file: ' + ConfigFile );
+  if TFile.Exists(ConfigFile) then
+  begin
+    Logger.Log( 1, '-- Config file found.' );
+    localConfig := TJson.Deserialize<TServerConfig>(TFile.ReadAllText(configFile));
+    Logger.Log( 1, '-- localConfig loaded from config file' );
+    serverConfig.Free;
+    Logger.Log( 1, '-- serverConfig.Free - called' );
+    serverConfig := localConfig;
+    Logger.Log( 1, '-- serverConfig := localConfig - called' );
+  end
+  else
+  begin
+    Logger.Log( 1, '-- Config file not found.' );
+  end;
+  Logger.Log( 1, '-------------------------------------------------------------' );
+  Logger.Log( 1, '-- serverConfig.Server url: ' + serverConfig.url );
+  Logger.Log( 1, '-- serverConfig.adminPassword: ' + serverConfig.adminPassword );
+  Logger.Log( 1, '-- serverConfig.jwtTokenSecret: ' + serverConfig.jwtTokenSecret );
+  Logger.Log( 1, '-- serverConfig.webAppFolder: ' + serverConfig.webAppFolder );
+  Logger.Log( 1, '-- serverConfig.memoLogLevel: ' + IntToStr(serverConfig.memoLogLevel) );
+  Logger.Log( 1, '-- serverConfig.fileLogLevel: ' + IntToStr(serverConfig.fileLogLevel) );
+  Logger.Log( 1, '--LoadServerConfig - end' );
+end;
+
+{ TServerConfig }
+
+constructor TServerConfig.Create;
+//var
+//  ConfigFile: string;
+//  ServerConfigStr: string;
+begin
+  Logger.Log( 1, '--TServerConfig.Create - start' );
+  url := defaultServerUrl;
+  adminPassword := 'whatisthisusedfor';
+  jwtTokenSecret := 'super_secret0123super_secret4567';
+  webAppFolder := 'static';
+  memoLogLevel := 3;
+  fileLogLevel := 4;
+//  ServerConfigStr := Bcl.Json.TJson.Serialize( ServerConfig );
+//  ConfigFile := 'serverconfig.json';
+//  TFile.WriteAllText( ConfigFile, ServerConfigStr );
+//  Logger.Log( 1, 'ServerConfig saved to file: ' + ConfigFile );
+  Logger.Log( 1, '--TServerConfig.Create - end' );
+end;
+
+
+end.

kgOrdersServer/Source/Common.Logging.pas

+unit Common.Logging;
+
+interface
+
+uses
+  Generics.Collections;
+
+type
+  ILog = interface;
+  ILogAppender = interface;
+
+  ILogger = interface
+    ['{4D667DD2-BE11-496B-B92A-C47E03520BD6}']
+    procedure Log(logLevel: integer; Msg: string); overload;
+    procedure Log(logLevel: integer; Log: ILog); overload;
+    procedure AddAppender(ALogAppender: ILogAppender);
+    function Appenders: TArray<ILogAppender>;
+  end;
+
+  ILogAppender = interface
+    ['{A3B7D6FB-C75F-4BEF-8797-907B6FDAD5D2}']
+    procedure Send(logLevel: integer; Log: ILog);
+  end;
+
+  ILog = interface
+    ['{8E9C6580-C099-47C0-8B1B-6D7A28EC4FA3}']
+    function GetMessage: string;
+  end;
+
+  TLogger = class( TInterfacedObject, ILogger )
+  strict private
+    FAppenders: TList<ILogAppender>;
+  public
+    constructor Create; overload;
+    constructor Create(ALogger: ILogger); overload;
+    destructor Destroy; override;
+    procedure Log(logLevel: integer; Msg: string); overload;
+    procedure Log(logLevel: integer; Log: ILog); overload;
+    procedure AddAppender(ALogAppender: ILogAppender);
+    function Appenders: TArray<ILogAppender>;
+  end;
+
+  TLogMessage = class( TInterfacedObject, ILog )
+  private
+    FMsg: string;
+  public
+    constructor Create(AMsg: string);
+    function GetMessage: string;
+  end;
+
+  function Logger: ILogger;
+
+implementation
+
+var
+  _Logger: ILogger;
+
+function Logger: ILogger;
+begin
+  Result := _Logger;
+end;
+
+{ TLogMessage }
+
+constructor TLogMessage.Create(AMsg: string);
+begin
+  FMsg := AMsg;
+end;
+
+function TLogMessage.GetMessage: string;
+begin
+  Result := FMsg;
+end;
+
+{ TLogger }
+
+procedure TLogger.AddAppender(ALogAppender: ILogAppender);
+begin
+  FAppenders.Add(ALogAppender);
+end;
+
+function TLogger.Appenders: TArray<ILogAppender>;
+var
+  I: integer;
+begin
+  SetLength(Result, FAppenders.Count);
+  for I := 0 to FAppenders.Count - 1 do
+    Result[I] := FAppenders[I];
+end;
+
+constructor TLogger.Create(ALogger: ILogger);
+var
+  Appender: ILogAppender;
+begin
+  FAppenders := TList<ILogAppender>.Create;
+  if ALogger <> nil then
+    for Appender in ALogger.Appenders do
+      AddAppender(Appender);
+end;
+
+constructor TLogger.Create;
+begin
+  Create(nil);
+end;
+
+destructor TLogger.Destroy;
+begin
+  FAppenders.Free;
+  inherited;
+end;
+
+procedure TLogger.Log(logLevel: integer; Log: ILog);
+var
+  Appender: ILogAppender;
+begin
+  for Appender in FAppenders do
+    Appender.Send(logLevel, Log);
+end;
+
+procedure TLogger.Log(logLevel: integer; Msg: string);
+begin
+  Log(logLevel, TLogMessage.Create(Msg));
+end;
+
+initialization
+  _Logger := TLogger.Create;
+
+end.

kgOrdersServer/Source/Common.Middleware.Logging.pas

+unit Common.Middleware.Logging;
+
+interface
+
+uses
+  System.Classes, System.SysUtils,
+
+  Sparkle.HttpServer.Module,
+  Sparkle.HttpServer.Context,
+  Sparkle.Http.Headers,
+
+  Common.Logging;
+
+type
+  TLoggingMiddleware = class(THttpServerMiddleware, IHttpServerMiddleware)
+  private
+    FLogger: ILogger;
+    function GetNewHttpRequestLog(Request: THttpServerRequest): ILog;
+  protected
+    procedure ProcessRequest(Context: THttpServerContext; Next: THttpServerProc); override;
+  public
+    constructor Create(ALogger: ILogger);
+  end;
+
+  THttpRequestLog = class( TInterfacedObject, ILog )
+  strict private
+    FMethod: string;
+    FUriPath: string;
+    FUriQuery: string;
+    FProtocol: string;
+    FRemoteIp: string;
+    FHeaders: string;
+    FContent: string;
+    FContentLength: Int64;
+  public
+    constructor Create(AMethod: string; AUriPath: string; AUriQuery: string;
+      AProtocol: string; ARemoteIp: string; AHeaders: string; AContent: string;
+      AContentLength: Int64);
+    function GetMessage: string;
+  end;
+
+//  THttpResponseLog = class( TInterfacedObject, ILog )
+//  strict private
+//    FMethod: string;
+//    FUriPath: string;
+//    FUriQuery: string;
+//    FProtocol: string;
+//    FRemoteIp: string;
+//    FHeaders: string;
+//    FContent: string;
+//    FContentLength: Int64;
+//  public
+//    constructor Create(AMethod: string; AUriPath: string; AUriQuery: string;
+//      AProtocol: string; ARemoteIp: string; AHeaders: string; AContent: string;
+//      AContentLength: Int64);
+//    function GetMessage: string;
+//  end;
+
+implementation
+
+{ TLoggingMiddleware }
+
+constructor TLoggingMiddleware.Create(ALogger: ILogger);
+begin
+  FLogger := TLogger.Create(ALogger);
+end;
+
+function TLoggingMiddleware.GetNewHttpRequestLog(
+  Request: THttpServerRequest): ILog;
+var
+  Msg: TStrings;
+  Header: THttpHeaderInfo;
+  StringStream: TStringStream;
+  Headers, Content: string;
+begin
+  Result := nil;
+  Msg := TStringList.Create;
+  try
+    if Length(Request.Headers.AllHeaders.ToArray) = 0 then
+      Headers := ''
+    else
+      begin
+        for Header in Request.Headers.AllHeaders do
+          Msg.Add(Header.Name + ': ' + Header.Value);
+        Headers := Msg.Text;
+      end;
+  finally
+    Msg.Free;
+  end;
+
+  StringStream := TStringStream.Create(Request.Content);
+  try
+    Content := StringStream.DataString
+  finally
+    StringStream.Free;
+  end;
+
+  Result := THttpRequestLog.Create(
+    Request.Method,
+    Request.Uri.Path,
+    Request.Uri.Query,
+    Request.Protocol,
+    Request.RemoteIp,
+    Headers,
+    Content,
+    Request.ContentLength
+  );
+end;
+
+procedure TLoggingMiddleware.ProcessRequest(Context: THttpServerContext;
+  Next: THttpServerProc);
+var
+  RequestLogMessage: string;
+begin
+  Context.Response.OnHeaders(
+    procedure(Resp: THttpServerResponse)
+    begin
+      if (Resp.StatusCode >= 400) and (Resp.StatusCode <= 499) then
+        FLogger.Log(5, Format('%d %s on %s', [Resp.StatusCode, Resp.StatusReason, RequestLogMessage]));
+    end
+  );
+  RequestLogMessage := GetNewHttpRequestLog(Context.Request).GetMessage;
+  FLogger.Log(5, RequestLogMessage);
+  Next(Context);
+end;
+
+{ THttpRequestLog }
+
+constructor THttpRequestLog.Create(AMethod, AUriPath, AUriQuery,
+  AProtocol, ARemoteIp, AHeaders, AContent: string; AContentLength: Int64);
+begin
+  FMethod := AMethod;
+  FUriPath := AUriPath;
+  FUriQuery := AUriQuery;
+  FProtocol := AProtocol;
+  FRemoteIp := ARemoteIp;
+  FHeaders := AHeaders;
+  FContent := AContent;
+  FContentLength := AContentLength;
+end;
+
+function THttpRequestLog.GetMessage: string;
+var
+  Msg: TStrings;
+begin
+  Result := '';
+  Msg := TStringList.Create;
+  try
+    Msg.Add(Format('%s %s %s',
+       [
+          FMethod,
+          FUriPath + FUriQuery,
+          FProtocol,
+          FRemoteIp
+       ]));
+
+//    if Not FHeaders.IsEmpty then
+//      Msg.Add(FHeaders);
+//    if (Not FContent.IsEmpty) then
+//      Msg.Add(FContent);
+    Result := Trim(Msg.Text);
+  finally
+    Msg.Free;
+  end;
+end;
+
+end.

kgOrdersServer/Source/Data.dfm

+object FData: TFData
+  Left = 0
+  Top = 0
+  ActiveControl = DBAdvGrid1
+  Caption = 'FData'
+  ClientHeight = 522
+  ClientWidth = 1002
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  OnCreate = FormCreate
+  TextHeight = 15
+  object lblHash: TLabel
+    Left = 644
+    Top = 232
+    Width = 3
+    Height = 15
+  end
+  object lblHash2: TLabel
+    Left = 644
+    Top = 278
+    Width = 3
+    Height = 15
+  end
+  object btnFind: TButton
+    Left = 112
+    Top = 38
+    Width = 75
+    Height = 25
+    Caption = 'Find'
+    TabOrder = 0
+    OnClick = btnFindClick
+  end
+  object Memo1: TMemo
+    Left = 0
+    Top = 433
+    Width = 1002
+    Height = 89
+    Align = alBottom
+    Lines.Strings = (
+      'Memo1')
+    TabOrder = 1
+  end
+  object DBAdvGrid1: TDBAdvGrid
+    Left = 6
+    Top = 84
+    Width = 632
+    Height = 154
+    ColCount = 11
+    DrawingStyle = gdsClassic
+    FixedColor = clWhite
+    RowCount = 2
+    FixedRows = 1
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goFixedRowDefAlign]
+    TabOrder = 2
+    ActiveCellFont.Charset = DEFAULT_CHARSET
+    ActiveCellFont.Color = 4474440
+    ActiveCellFont.Height = -12
+    ActiveCellFont.Name = 'Segoe UI'
+    ActiveCellFont.Style = [fsBold]
+    ActiveCellColor = 11565130
+    ActiveCellColorTo = 11565130
+    BorderColor = 11250603
+    ControlLook.FixedGradientFrom = clWhite
+    ControlLook.FixedGradientTo = clWhite
+    ControlLook.FixedGradientHoverFrom = clGray
+    ControlLook.FixedGradientHoverTo = clWhite
+    ControlLook.FixedGradientHoverMirrorFrom = clWhite
+    ControlLook.FixedGradientHoverMirrorTo = clWhite
+    ControlLook.FixedGradientHoverBorder = 11645361
+    ControlLook.FixedGradientDownFrom = clWhite
+    ControlLook.FixedGradientDownTo = clWhite
+    ControlLook.FixedGradientDownMirrorFrom = clWhite
+    ControlLook.FixedGradientDownMirrorTo = clWhite
+    ControlLook.FixedGradientDownBorder = 11250603
+    ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
+    ControlLook.DropDownHeader.Font.Color = clWindowText
+    ControlLook.DropDownHeader.Font.Height = -11
+    ControlLook.DropDownHeader.Font.Name = 'Segoe UI'
+    ControlLook.DropDownHeader.Font.Style = []
+    ControlLook.DropDownHeader.Visible = True
+    ControlLook.DropDownHeader.Buttons = <>
+    ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
+    ControlLook.DropDownFooter.Font.Color = clWindowText
+    ControlLook.DropDownFooter.Font.Height = -11
+    ControlLook.DropDownFooter.Font.Name = 'Segoe UI'
+    ControlLook.DropDownFooter.Font.Style = []
+    ControlLook.DropDownFooter.Visible = True
+    ControlLook.DropDownFooter.Buttons = <>
+    ControlLook.ToggleSwitch.BackgroundBorderWidth = 1.000000000000000000
+    ControlLook.ToggleSwitch.ButtonBorderWidth = 1.000000000000000000
+    ControlLook.ToggleSwitch.CaptionFont.Charset = DEFAULT_CHARSET
+    ControlLook.ToggleSwitch.CaptionFont.Color = clWindowText
+    ControlLook.ToggleSwitch.CaptionFont.Height = -12
+    ControlLook.ToggleSwitch.CaptionFont.Name = 'Segoe UI'
+    ControlLook.ToggleSwitch.CaptionFont.Style = []
+    ControlLook.ToggleSwitch.Shadow = False
+    Filter = <>
+    FilterDropDown.Font.Charset = DEFAULT_CHARSET
+    FilterDropDown.Font.Color = clWindowText
+    FilterDropDown.Font.Height = -12
+    FilterDropDown.Font.Name = 'Segoe UI'
+    FilterDropDown.Font.Style = []
+    FilterDropDown.TextChecked = 'Checked'
+    FilterDropDown.TextUnChecked = 'Unchecked'
+    FilterDropDownClear = '(All)'
+    FilterEdit.TypeNames.Strings = (
+      'Starts with'
+      'Ends with'
+      'Contains'
+      'Not contains'
+      'Equal'
+      'Not equal'
+      'Larger than'
+      'Smaller than'
+      'Clear')
+    FixedColWidth = 20
+    FixedRowHeight = 22
+    FixedFont.Charset = DEFAULT_CHARSET
+    FixedFont.Color = clWindowText
+    FixedFont.Height = -11
+    FixedFont.Name = 'Segoe UI'
+    FixedFont.Style = [fsBold]
+    FloatFormat = '%.2f'
+    HoverButtons.Buttons = <>
+    HTMLSettings.ImageFolder = 'images'
+    HTMLSettings.ImageBaseName = 'img'
+    Look = glCustom
+    PrintSettings.DateFormat = 'dd/mm/yyyy'
+    PrintSettings.Font.Charset = DEFAULT_CHARSET
+    PrintSettings.Font.Color = clWindowText
+    PrintSettings.Font.Height = -12
+    PrintSettings.Font.Name = 'Segoe UI'
+    PrintSettings.Font.Style = []
+    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
+    PrintSettings.FixedFont.Color = clWindowText
+    PrintSettings.FixedFont.Height = -12
+    PrintSettings.FixedFont.Name = 'Segoe UI'
+    PrintSettings.FixedFont.Style = []
+    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
+    PrintSettings.HeaderFont.Color = clWindowText
+    PrintSettings.HeaderFont.Height = -12
+    PrintSettings.HeaderFont.Name = 'Segoe UI'
+    PrintSettings.HeaderFont.Style = []
+    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
+    PrintSettings.FooterFont.Color = clWindowText
+    PrintSettings.FooterFont.Height = -12
+    PrintSettings.FooterFont.Name = 'Segoe UI'
+    PrintSettings.FooterFont.Style = []
+    PrintSettings.PageNumSep = '/'
+    SearchFooter.ColorTo = clNone
+    SearchFooter.FindNextCaption = 'Find &next'
+    SearchFooter.FindPrevCaption = 'Find &previous'
+    SearchFooter.Font.Charset = DEFAULT_CHARSET
+    SearchFooter.Font.Color = clWindowText
+    SearchFooter.Font.Height = -12
+    SearchFooter.Font.Name = 'Segoe UI'
+    SearchFooter.Font.Style = []
+    SearchFooter.HighLightCaption = 'Highlight'
+    SearchFooter.HintClose = 'Close'
+    SearchFooter.HintFindNext = 'Find next occurrence'
+    SearchFooter.HintFindPrev = 'Find previous occurrence'
+    SearchFooter.HintHighlight = 'Highlight occurrences'
+    SearchFooter.MatchCaseCaption = 'Match case'
+    SearchFooter.ResultFormat = '(%d of %d)'
+    SelectionColor = 13744549
+    SelectionTextColor = clWindowText
+    SortSettings.HeaderColor = clWhite
+    SortSettings.HeaderColorTo = clWhite
+    SortSettings.HeaderMirrorColor = clWhite
+    SortSettings.HeaderMirrorColorTo = clWhite
+    Version = '2.8.3.1'
+    AutoCreateColumns = True
+    AutoRemoveColumns = True
+    Columns = <
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 20
+      end
+      item
+        Alignment = taRightJustify
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'USER_ID'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 84
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 56
+        FieldName = 'USER_NAME'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 56
+        FieldName = 'PASSWORD'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 40
+        FieldName = 'NAME'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 7
+        FieldName = 'STATUS'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 50
+        FieldName = 'EMAIL'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 5
+        FieldName = 'ACCESS_TYPE'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Alignment = taRightJustify
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'SYSTEM_RIGHTS'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 128
+        FieldName = 'PERSPECTIVE_ID'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        EditLength = 45
+        FieldName = 'QB_ID'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end>
+    DataSource = dsUsers
+    InvalidPicture.Data = {
+      055449636F6E0000010001002020200000000000A81000001600000028000000
+      2000000040000000010020000000000000100000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000006A6A6B256A6A6B606A6A6B946A6A6BC06A6A6BE1
+      6A6A6BF86A6A6BF86A6A6BE16A6A6BC06A6A6B946A6A6B606A6A6B2500000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000006A6A6B407575769E787879F19F9F9FF6C0C0C0FDDADADAFFEDEDEEFF
+      FBFBFBFFFBFBFBFFEDEDEEFFDADADAFFC0C0C0FD9F9F9FF6787879F17575769E
+      6A6A6B4000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000006A6A6B22
+      7C7C7C98888889F0BDBDBDFCE9E9EBFED9D9E9FEB5B5DDFE8B8BCDFE595AB7FF
+      3739A8FF2B2CA4FF4A49B1FF7171C1FFA1A2D7FFD3D3E8FFEAEAEBFEBEBEBFFC
+      888889F07C7C7C986A6A6B220000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000006A6A6B43838383D8
+      B7B7B8FAECECEFFEC0C0DFFF7977C4FF2221A0FF12129BFF1010A4FF0C0CA8FF
+      0A0AACFF0A0AB4FF0A0AB9FF0D0DBEFF0F0FB1FF1111A6FF5656B8FFAEADDCFF
+      ECECEFFEB7B7B8FA838383D86A6A6B4300000000000000000000000000000000
+      00000000000000000000000000000000000000006A6A6B4E878788EAD3D3D3FE
+      CACAE8FF4443B0FF171799FF11119CFF0C0C98FF0B0B9BFF0B0BA0FF0A0AA6FF
+      0909ACFF0909B2FF0808BAFF0707BFFF0B09C8FF0D0DCEFF1111CCFF1010AFFF
+      4A49B2FFCFCFEBFFD3D3D3FE878788EA6A6A6B4E000000000000000000000000
+      000000000000000000000000000000006A6A6B43878788EAE1E1E1FFA8A8DAFF
+      2323A0FF15159CFF0D0D92FF0C0C95FF0C0C99FF0B0B9EFF0B0BA0FF0A0AA6FF
+      0909ACFF0909B2FF0808B8FF0808BCFF0808C3FF0C0CC9FF0C0CD0FF0D0DD6FF
+      1313CFFF2222A9FFAFAFDEFFE1E1E1FF878788EA6A6A6B430000000000000000
+      0000000000000000000000006A6A6B22838383D8D3D3D3FEA8A8D9FF2020A4FF
+      13139BFF0C0C92FF0C0C95FF0C0C97FF0C0C99FF0B0B9EFF0B0BA0FF0A0AA4FF
+      0A0AA9FF0909B0FF0808B4FF0808BBFF0707C0FF0A0AC6FF0909CCFF0C0CD3FF
+      0D0DD8FF1313D3FF1A1AA8FFAEADDEFFD4D4D4FE838383D86A6A6B2200000000
+      0000000000000000000000007C7C7C98B7B7B8FACACAE8FF2524A3FF13139FFF
+      0C0C97FF0C0C95FF0C0C95FF0C0C91FF0C0C95FF0B0B9EFF0B0BA0FF0A0AA4FF
+      0A0AA8FF0909ADFF0909B2FF0808B8FF0808BCFF0707C0FF0808BCFF0707C5FF
+      0C0CD3FF0D0DD7FF1212D1FF2020A7FFCDCDEBFFB8B8B9FA7C7C7C9800000000
+      00000000000000006A6A6B40888889F0ECECEFFE4545B1FF1616A4FF0B0B9BFF
+      0C0C99FF0C0C96FF3333A2FFB9B9D0FF393A9BFF0C0C95FF0B0BA1FF0A0AA4FF
+      0A0AA7FF0A0AABFF0909B0FF0808B4FF0808B7FF2F2FC2FFAEAEE2FF4B4BBFFF
+      0707BEFF0B0BD1FF0C0CD3FF1413CCFF4848B1FFECECEFFE888889F06A6A6B40
+      00000000000000007575769EBFBFBFFD9B9BD5FF1C1CA6FF0C0CA1FF0B0B9FFF
+      0B0B9AFF3535A7FFB5B5BEFFE6E6DFFFEDEDEFFF3C3C9CFF0C0C97FF0A0AA4FF
+      0A0AA6FF0A0AA9FF0909ADFF0909B0FF2626B5FFCECEDEFFFFFFFBFFEEEEF1FF
+      4848BAFF0808BCFF0A0ACDFF0B0BCEFF1111ABFFBEC0E0FFBFC0BFFD7575769E
+      000000006A6A6B25787879F1E3E3E5FE4646B2FF1414A8FF0A0AA4FF0B0BA0FF
+      2121A9FFBDBDCAFFD0D0C8FFC5C5C5FFE3E3E1FFEDEDEFFF3E3E9EFF0C0C98FF
+      0A0AA6FF0A0AA8FF0A0AA9FF2B2BB0FFC0C0CDFFEAEAE2FFEBEBEBFFFEFEF8FF
+      EDEDEEFF2828BDFF0707C4FF0809C7FF0F0FC4FF8788CBFFEBEBECFE79797AF1
+      6A6A6B256A6A6B609D9E9DF6D6D7E4FF3A3AB3FF1212ADFF0A0AA8FF0A0AA4FF
+      1313AAFFABABCFFFD6D6CBFFCACACAFFC6C6C6FFE4E4E0FFEEEEEFFF3F3FA0FF
+      0C0C99FF0A0AA6FF2828ABFFB2B2BFFFD8D8CEFFD6D6D8FFE0E0E0FFF6F5EDFF
+      D1D1EDFF1E1CC0FF0707BEFF0707BFFF0707C0FF2120AAFFD3D5E9FE9FA0A0F6
+      6A6A6B606A6A6B94BDBDBDFBBABBDCFF3A39B7FF2F2FB8FF0909ADFF0A0AA9FF
+      0A0AA6FF1515ACFFADADCFFFD6D6CBFFCBCBCAFFC6C6C6FFE4E4E1FFEEEEEFFF
+      3838A1FF2222A2FFACABB8FFC8C8C0FFC7C7C8FFCDCDCDFFE1E1D9FFC8CAE1FF
+      2424BCFF0808B4FF0808B9FF0808BAFF0808BBFF0F0EABFFA1A2D5FEC0C0C0FC
+      6A6A6B946A6A6BC0D9D8D7FE9999D1FF3838BBFF3636BCFF2C2CB7FF0909ADFF
+      0A0AA9FF0A0AA4FF1C1CAFFFB1B1CFFFD6D6CBFFCCCCCBFFC7C7C7FFE4E4E1FF
+      ECECEEFFACACB7FFC2C2BCFFBEBEBFFFC0C0C0FFCFCFC6FFC1C1D5FF2727B8FF
+      0909ACFF0909B2FF0909B2FF0909B4FF0808B4FF0E0EB5FF6E6EBFFFD9D9D9FE
+      6A6A6BC06A6A6BE1EBEAEBFF7D7CC7FF3838BFFF3434BEFF3536BEFF2A2AB8FF
+      0909B0FF0909ACFF0A0AA8FF1C1CB1FFB2B2D0FFD7D7CCFFCBCBCBFFC7C7C8FF
+      C8C8C3FFC6C6C3FFBFBFC1FFBDBDBDFFC5C5BCFFB8B8CEFF2929B5FF0A0AA8FF
+      0909ACFF0909ADFF0909AFFF0909AFFF0909AFFF0C0CB0FF4747AFFFECECEDFF
+      6A6A6BE16A6A6BF8F9F9F9FF6666C1FF3838C4FF3535C2FF3434C0FF3535BEFF
+      3030BCFF1313B4FF0909ADFF0A0AA8FF1E1EB3FFAAAAD0FFD3D3CDFFCCCCCCFF
+      C8C8C8FFC3C3C3FFC2C2C1FFC4C4BFFFB2B2CBFF2B2BB4FF0A0AA4FF0A0AA8FF
+      0A0AA8FF0A0AA9FF0A0AA9FF0A0AA9FF0A0AA9FF0B0BA9FF3131A6FFFAFAFAFF
+      6A6A6BF86A6A6BF8FBFBFBFF5959BEFF3B3BCAFF3A3AC8FF3737C4FF3535C2FF
+      3636C0FF3636BEFF2323B8FF0909B1FF0A0AA7FF4949BEFFD6D6D4FFD3D3D1FF
+      CDCDCDFFC8C8C8FFC4C4C3FFEDEDEDFF5F5FB3FF0C0C98FF0A0AA7FF0A0AA6FF
+      0A0AA6FF0A0AA6FF0A0AA4FF0A0AA6FF0A0AA4FF0B0BA4FF2D2DA6FFFBFBFBFF
+      6A6A6BF86A6A6BE1EDEDEEFF7F80CBFF4041CCFF3C3CCAFF3A3AC8FF383AC8FF
+      3838C4FF3636C2FF3939C0FF2123B7FF4A4AC2FFCBCBDEFFE0E0DCFFD6D6D6FF
+      D2D2D3FFCDCDCEFFC9C9C9FFE2E2E1FFF1F1F2FF4242A3FF0C0C99FF0A0AA4FF
+      0A0AA4FF0A0AA4FF0B0BA3FF0B0BA3FF0B0BA1FF0E0EA1FF4443B0FFEDEDEEFF
+      6A6A6BE16A6A6BC0DADADAFF9C9BD5FE4949CDFF3E3DD0FF3C3DCEFF3C3CCAFF
+      3A3AC8FF3B39C7FF2828BDFF5C5CCCFFE5E5EDFFF4F4EDFFE5E5E6FFDEDEDEFF
+      DCDCD9FFD9D9D3FFCDCDCDFFC8C8C8FFE5E5E1FFF1F1F3FF3F3FA0FF0C0C99FF
+      0A0AA4FF0B0BA1FF0B0BA0FF0B0BA0FF0B0B9FFF1313A2FF6B6BC0FFDADADAFF
+      6A6A6BC06A6A6B94C0C0C0FDBDBAE1FE5655CFFF4141D4FF3F3FD2FF3F3FCEFF
+      3D3DCCFF2C2AC3FF5E5ED3FFEBEBF6FFFFFFFAFFF1F1F1FFEDEDEEFFF0F0E9FF
+      D2D2E6FFBDBDD6FFDADAD3FFCFCFCFFFC9C9CAFFE5E5E2FFF1F1F3FF3A3AA0FF
+      0C0C98FF0B0BA3FF0B0B9FFF0B0B9EFF0B0B9EFF1C1CA4FF9C9CD3FFC1C1C1FD
+      6A6A6B946A6A6B609F9F9FF6DAD9EAFF6B6BCFFF4444D7FF4143D6FF4242D3FF
+      3434CDFF6464DBFFEFEFFFFFFFFFFFFFFCFCFCFFF6F6F6FFFCFCF4FFE2E1F0FF
+      5050CCFF4040C1FFC3C3DBFFE1E1D8FFD4D4D5FFCFCFCFFFE8E8E5FFF2F2F4FF
+      4040A2FF0C0C99FF0F0FA2FF0F0FA0FF0F0F9DFF302FA9FFD1D1E8FEA0A0A0F6
+      6A6A6B606A6A6B25787879F1E9E9EBFEA7A7DAFF6060DBFF4547DBFF3C3CD6FF
+      5857DEFFF2F2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE8E8F8FF5B5BD4FF
+      2828BDFF2A2BBDFF4949C5FFC3C3DBFFE4E4DAFFD5D5D5FFCECED0FFE8E8E5FF
+      F4F4F4FF4949AFFF2121A6FF2A2AA6FF2C2BA9FF5557B8FFEAEAECFE787879F1
+      6A6A6B25000000007575769EBEBEBEFDC9CAE6FF7A79DBFF4C4CDFFF4141DBFF
+      5757E0FFEAEAFFFFFFFFFFFFFFFFFFFFFFFFFFFFE8E7FFFF5B5BD7FF2E2EC6FF
+      3E3EC9FF3A3AC5FF2C2EC1FF4A49C8FFC2C2DDFFE3E3DAFFD5D5D4FFDADAD3FF
+      CACBD9FF4747BBFF2525ADFF2C2BACFF3332AEFFA5A4D8FFBFBFBFFD7575769E
+      00000000000000006A6A6B40888889F0ECECEFFE9696D6FF7B7BE3FF4D4BE0FF
+      4141DBFF5F5FE6FFE7E7FFFFFFFFFFFFE9E9FFFF5A5ADCFF3333CAFF4242CFFF
+      4040CBFF3D3DC9FF3D3EC8FF3030C2FF4848C9FFC0C0DDFFECEEDEFFD0D0E0FF
+      5554C7FF2828B3FF3232B4FF3434B1FF5453B7FFECECEFFE888889F06A6A6B40
+      0000000000000000000000007C7C7C98B7B7B8FAD0D0ECFF8F8FDBFF6868E3FF
+      4E4EE2FF3E40DBFF6565E9FFB2B2F7FF6565E4FF393BD2FF4646D7FF4343D4FF
+      4343D1FF4242CFFF4040CBFF3F3FCAFF3333C4FF4E4ECBFF9E9EE2FF5C5BCFFF
+      292ABAFF3636BCFF3938B8FF3F3EB1FFCBCBE9FFB7B7B8FA7C7C7C9800000000
+      0000000000000000000000006A6A6B22838383D8D3D3D3FEB5B5E2FF9E9EE4FF
+      6766E2FF4E50E6FF4646E0FF3D3DDAFF4444DCFF4B4BDCFF4848DBFF4847D9FF
+      4646D5FF4443D3FF4343D1FF4242CFFF4143CDFF3A3AC8FF312FC5FF3535C3FF
+      3C3CC3FF3D3DBEFF403FB5FFACACDCFFD3D3D3FE838383D86A6A6B2200000000
+      000000000000000000000000000000006A6A6B43878788EAE1E1E1FFB5B5E2FF
+      A7A6E4FF7877E5FF5151E5FF4F4FE4FF4E4EE2FF4D4DE0FF4C4CDEFF4B4BDCFF
+      4949DBFF4848D7FF4747D5FF4545D3FF4545D1FF4343CFFF4242CCFF3F3FCBFF
+      4343C2FF4645B6FFADADDCFFE1E1E1FF878788EA6A6A6B430000000000000000
+      00000000000000000000000000000000000000006A6A6B4E878788EAD3D3D3FE
+      D0D0ECFFAAA9DFFFA2A2ECFF6565E3FF5151E6FF4F4FE4FF4F4DE4FF4D4DE0FF
+      4D4DDFFF4D4DDCFF4C49DBFF4A4AD8FF4749D6FF4747D4FF4949CBFF4B4BC3FF
+      8E8ED0FFCDCCE8FFD3D3D3FE878788EA6A6A6B4E000000000000000000000000
+      0000000000000000000000000000000000000000000000006A6A6B43838383D8
+      B7B7B8FAECECEFFEC3C2E5FFADAEE1FF9E9DE8FF6F6FE0FF5C5CE1FF5452E2FF
+      5051E1FF4F4FDFFF4F4FDBFF5150D6FF5151CFFF5F5FC8FFA1A1D3FEC7C8E0FE
+      E4E4E7FEB7B7B8FA838383D86A6A6B4300000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000006A6A6B22
+      7C7C7C98888889F0BFBFBFFDEBEBECFED8D9EBFEBDBDE4FEA8A7DCFF9695D7FF
+      8886D4FF7F7DCEFF8C8BD2FFA1A2D9FFC0BEE1FED9D9EAFEEAEAECFEBFBFBFFD
+      888889F07C7C7C986A6A6B220000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000006A6A6B407575769E787879F19F9F9FF6C0C0C0FDDADADAFFEDEDEEFF
+      FBFBFBFFFBFBFBFFEDEDEEFFDADADAFFC0C0C0FD9F9F9FF6787879F17575769E
+      6A6A6B4000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000006A6A6B256A6A6B606A6A6B946A6A6BC06A6A6BE1
+      6A6A6BF86A6A6BF86A6A6BE16A6A6BC06A6A6B946A6A6B606A6A6B2500000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000FFC003FFFF0000FFFC00003FF800001FF000000FE0000007C0000003
+      C000000380000001800000010000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000080000001
+      80000001C0000003C0000003E0000007F000000FF800001FFC00003FFF0000FF
+      FFC003FF}
+    ShowUnicode = False
+    ColWidths = (
+      20
+      84
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64)
+    RowHeights = (
+      22
+      22)
+  end
+  object DBAdvGrid2: TDBAdvGrid
+    Left = 6
+    Top = 237
+    Width = 631
+    Height = 199
+    ColCount = 20
+    DrawingStyle = gdsClassic
+    FixedColor = clWhite
+    RowCount = 2
+    FixedRows = 1
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goFixedRowDefAlign]
+    TabOrder = 3
+    ActiveCellFont.Charset = DEFAULT_CHARSET
+    ActiveCellFont.Color = 4474440
+    ActiveCellFont.Height = -12
+    ActiveCellFont.Name = 'Segoe UI'
+    ActiveCellFont.Style = [fsBold]
+    ActiveCellColor = 11565130
+    ActiveCellColorTo = 11565130
+    BorderColor = 11250603
+    ControlLook.FixedGradientFrom = clWhite
+    ControlLook.FixedGradientTo = clWhite
+    ControlLook.FixedGradientHoverFrom = clGray
+    ControlLook.FixedGradientHoverTo = clWhite
+    ControlLook.FixedGradientHoverMirrorFrom = clWhite
+    ControlLook.FixedGradientHoverMirrorTo = clWhite
+    ControlLook.FixedGradientHoverBorder = 11645361
+    ControlLook.FixedGradientDownFrom = clWhite
+    ControlLook.FixedGradientDownTo = clWhite
+    ControlLook.FixedGradientDownMirrorFrom = clWhite
+    ControlLook.FixedGradientDownMirrorTo = clWhite
+    ControlLook.FixedGradientDownBorder = 11250603
+    ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
+    ControlLook.DropDownHeader.Font.Color = clWindowText
+    ControlLook.DropDownHeader.Font.Height = -11
+    ControlLook.DropDownHeader.Font.Name = 'Segoe UI'
+    ControlLook.DropDownHeader.Font.Style = []
+    ControlLook.DropDownHeader.Visible = True
+    ControlLook.DropDownHeader.Buttons = <>
+    ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
+    ControlLook.DropDownFooter.Font.Color = clWindowText
+    ControlLook.DropDownFooter.Font.Height = -11
+    ControlLook.DropDownFooter.Font.Name = 'Segoe UI'
+    ControlLook.DropDownFooter.Font.Style = []
+    ControlLook.DropDownFooter.Visible = True
+    ControlLook.DropDownFooter.Buttons = <>
+    ControlLook.ToggleSwitch.BackgroundBorderWidth = 1.000000000000000000
+    ControlLook.ToggleSwitch.ButtonBorderWidth = 1.000000000000000000
+    ControlLook.ToggleSwitch.CaptionFont.Charset = DEFAULT_CHARSET
+    ControlLook.ToggleSwitch.CaptionFont.Color = clWindowText
+    ControlLook.ToggleSwitch.CaptionFont.Height = -12
+    ControlLook.ToggleSwitch.CaptionFont.Name = 'Segoe UI'
+    ControlLook.ToggleSwitch.CaptionFont.Style = []
+    ControlLook.ToggleSwitch.Shadow = False
+    Filter = <>
+    FilterDropDown.Font.Charset = DEFAULT_CHARSET
+    FilterDropDown.Font.Color = clWindowText
+    FilterDropDown.Font.Height = -12
+    FilterDropDown.Font.Name = 'Segoe UI'
+    FilterDropDown.Font.Style = []
+    FilterDropDown.TextChecked = 'Checked'
+    FilterDropDown.TextUnChecked = 'Unchecked'
+    FilterDropDownClear = '(All)'
+    FilterEdit.TypeNames.Strings = (
+      'Starts with'
+      'Ends with'
+      'Contains'
+      'Not contains'
+      'Equal'
+      'Not equal'
+      'Larger than'
+      'Smaller than'
+      'Clear')
+    FixedColWidth = 20
+    FixedRowHeight = 22
+    FixedFont.Charset = DEFAULT_CHARSET
+    FixedFont.Color = clWindowText
+    FixedFont.Height = -11
+    FixedFont.Name = 'Segoe UI'
+    FixedFont.Style = [fsBold]
+    FloatFormat = '%.2f'
+    HoverButtons.Buttons = <>
+    HTMLSettings.ImageFolder = 'images'
+    HTMLSettings.ImageBaseName = 'img'
+    Look = glCustom
+    PrintSettings.DateFormat = 'dd/mm/yyyy'
+    PrintSettings.Font.Charset = DEFAULT_CHARSET
+    PrintSettings.Font.Color = clWindowText
+    PrintSettings.Font.Height = -12
+    PrintSettings.Font.Name = 'Segoe UI'
+    PrintSettings.Font.Style = []
+    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
+    PrintSettings.FixedFont.Color = clWindowText
+    PrintSettings.FixedFont.Height = -12
+    PrintSettings.FixedFont.Name = 'Segoe UI'
+    PrintSettings.FixedFont.Style = []
+    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
+    PrintSettings.HeaderFont.Color = clWindowText
+    PrintSettings.HeaderFont.Height = -12
+    PrintSettings.HeaderFont.Name = 'Segoe UI'
+    PrintSettings.HeaderFont.Style = []
+    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
+    PrintSettings.FooterFont.Color = clWindowText
+    PrintSettings.FooterFont.Height = -12
+    PrintSettings.FooterFont.Name = 'Segoe UI'
+    PrintSettings.FooterFont.Style = []
+    PrintSettings.PageNumSep = '/'
+    SearchFooter.ColorTo = clNone
+    SearchFooter.FindNextCaption = 'Find &next'
+    SearchFooter.FindPrevCaption = 'Find &previous'
+    SearchFooter.Font.Charset = DEFAULT_CHARSET
+    SearchFooter.Font.Color = clWindowText
+    SearchFooter.Font.Height = -12
+    SearchFooter.Font.Name = 'Segoe UI'
+    SearchFooter.Font.Style = []
+    SearchFooter.HighLightCaption = 'Highlight'
+    SearchFooter.HintClose = 'Close'
+    SearchFooter.HintFindNext = 'Find next occurrence'
+    SearchFooter.HintFindPrev = 'Find previous occurrence'
+    SearchFooter.HintHighlight = 'Highlight occurrences'
+    SearchFooter.MatchCaseCaption = 'Match case'
+    SearchFooter.ResultFormat = '(%d of %d)'
+    SelectionColor = 13744549
+    SelectionTextColor = clWindowText
+    SortSettings.HeaderColor = clWhite
+    SortSettings.HeaderColorTo = clWhite
+    SortSettings.HeaderMirrorColor = clWhite
+    SortSettings.HeaderMirrorColorTo = clWhite
+    Version = '2.8.3.1'
+    AutoCreateColumns = True
+    AutoRemoveColumns = True
+    Columns = <
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 20
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'account_sid'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'api_version'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'call_sid'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'conference_sid'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'date_created'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'date_updated'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'start_time'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'duration'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'sid'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'price'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'price_unit'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'status'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'channels'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'source'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'error_code'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'uri'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'encryption_details'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'media_url'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end
+      item
+        Borders = []
+        BorderPen.Color = clSilver
+        ButtonHeight = 18
+        CheckFalse = 'N'
+        CheckTrue = 'Y'
+        Color = clWindow
+        FieldName = 'transcription'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeaderFont.Charset = DEFAULT_CHARSET
+        HeaderFont.Color = 3881787
+        HeaderFont.Height = -12
+        HeaderFont.Name = 'Segoe UI'
+        HeaderFont.Style = []
+        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
+        PrintFont.Charset = DEFAULT_CHARSET
+        PrintFont.Color = clWindowText
+        PrintFont.Height = -12
+        PrintFont.Name = 'Segoe UI'
+        PrintFont.Style = []
+        Width = 64
+      end>
+    DataSource = dsRecordings
+    InvalidPicture.Data = {
+      055449636F6E0000010001002020200000000000A81000001600000028000000
+      2000000040000000010020000000000000100000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000006A6A6B256A6A6B606A6A6B946A6A6BC06A6A6BE1
+      6A6A6BF86A6A6BF86A6A6BE16A6A6BC06A6A6B946A6A6B606A6A6B2500000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000006A6A6B407575769E787879F19F9F9FF6C0C0C0FDDADADAFFEDEDEEFF
+      FBFBFBFFFBFBFBFFEDEDEEFFDADADAFFC0C0C0FD9F9F9FF6787879F17575769E
+      6A6A6B4000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000006A6A6B22
+      7C7C7C98888889F0BDBDBDFCE9E9EBFED9D9E9FEB5B5DDFE8B8BCDFE595AB7FF
+      3739A8FF2B2CA4FF4A49B1FF7171C1FFA1A2D7FFD3D3E8FFEAEAEBFEBEBEBFFC
+      888889F07C7C7C986A6A6B220000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000006A6A6B43838383D8
+      B7B7B8FAECECEFFEC0C0DFFF7977C4FF2221A0FF12129BFF1010A4FF0C0CA8FF
+      0A0AACFF0A0AB4FF0A0AB9FF0D0DBEFF0F0FB1FF1111A6FF5656B8FFAEADDCFF
+      ECECEFFEB7B7B8FA838383D86A6A6B4300000000000000000000000000000000
+      00000000000000000000000000000000000000006A6A6B4E878788EAD3D3D3FE
+      CACAE8FF4443B0FF171799FF11119CFF0C0C98FF0B0B9BFF0B0BA0FF0A0AA6FF
+      0909ACFF0909B2FF0808BAFF0707BFFF0B09C8FF0D0DCEFF1111CCFF1010AFFF
+      4A49B2FFCFCFEBFFD3D3D3FE878788EA6A6A6B4E000000000000000000000000
+      000000000000000000000000000000006A6A6B43878788EAE1E1E1FFA8A8DAFF
+      2323A0FF15159CFF0D0D92FF0C0C95FF0C0C99FF0B0B9EFF0B0BA0FF0A0AA6FF
+      0909ACFF0909B2FF0808B8FF0808BCFF0808C3FF0C0CC9FF0C0CD0FF0D0DD6FF
+      1313CFFF2222A9FFAFAFDEFFE1E1E1FF878788EA6A6A6B430000000000000000
+      0000000000000000000000006A6A6B22838383D8D3D3D3FEA8A8D9FF2020A4FF
+      13139BFF0C0C92FF0C0C95FF0C0C97FF0C0C99FF0B0B9EFF0B0BA0FF0A0AA4FF
+      0A0AA9FF0909B0FF0808B4FF0808BBFF0707C0FF0A0AC6FF0909CCFF0C0CD3FF
+      0D0DD8FF1313D3FF1A1AA8FFAEADDEFFD4D4D4FE838383D86A6A6B2200000000
+      0000000000000000000000007C7C7C98B7B7B8FACACAE8FF2524A3FF13139FFF
+      0C0C97FF0C0C95FF0C0C95FF0C0C91FF0C0C95FF0B0B9EFF0B0BA0FF0A0AA4FF
+      0A0AA8FF0909ADFF0909B2FF0808B8FF0808BCFF0707C0FF0808BCFF0707C5FF
+      0C0CD3FF0D0DD7FF1212D1FF2020A7FFCDCDEBFFB8B8B9FA7C7C7C9800000000
+      00000000000000006A6A6B40888889F0ECECEFFE4545B1FF1616A4FF0B0B9BFF
+      0C0C99FF0C0C96FF3333A2FFB9B9D0FF393A9BFF0C0C95FF0B0BA1FF0A0AA4FF
+      0A0AA7FF0A0AABFF0909B0FF0808B4FF0808B7FF2F2FC2FFAEAEE2FF4B4BBFFF
+      0707BEFF0B0BD1FF0C0CD3FF1413CCFF4848B1FFECECEFFE888889F06A6A6B40
+      00000000000000007575769EBFBFBFFD9B9BD5FF1C1CA6FF0C0CA1FF0B0B9FFF
+      0B0B9AFF3535A7FFB5B5BEFFE6E6DFFFEDEDEFFF3C3C9CFF0C0C97FF0A0AA4FF
+      0A0AA6FF0A0AA9FF0909ADFF0909B0FF2626B5FFCECEDEFFFFFFFBFFEEEEF1FF
+      4848BAFF0808BCFF0A0ACDFF0B0BCEFF1111ABFFBEC0E0FFBFC0BFFD7575769E
+      000000006A6A6B25787879F1E3E3E5FE4646B2FF1414A8FF0A0AA4FF0B0BA0FF
+      2121A9FFBDBDCAFFD0D0C8FFC5C5C5FFE3E3E1FFEDEDEFFF3E3E9EFF0C0C98FF
+      0A0AA6FF0A0AA8FF0A0AA9FF2B2BB0FFC0C0CDFFEAEAE2FFEBEBEBFFFEFEF8FF
+      EDEDEEFF2828BDFF0707C4FF0809C7FF0F0FC4FF8788CBFFEBEBECFE79797AF1
+      6A6A6B256A6A6B609D9E9DF6D6D7E4FF3A3AB3FF1212ADFF0A0AA8FF0A0AA4FF
+      1313AAFFABABCFFFD6D6CBFFCACACAFFC6C6C6FFE4E4E0FFEEEEEFFF3F3FA0FF
+      0C0C99FF0A0AA6FF2828ABFFB2B2BFFFD8D8CEFFD6D6D8FFE0E0E0FFF6F5EDFF
+      D1D1EDFF1E1CC0FF0707BEFF0707BFFF0707C0FF2120AAFFD3D5E9FE9FA0A0F6
+      6A6A6B606A6A6B94BDBDBDFBBABBDCFF3A39B7FF2F2FB8FF0909ADFF0A0AA9FF
+      0A0AA6FF1515ACFFADADCFFFD6D6CBFFCBCBCAFFC6C6C6FFE4E4E1FFEEEEEFFF
+      3838A1FF2222A2FFACABB8FFC8C8C0FFC7C7C8FFCDCDCDFFE1E1D9FFC8CAE1FF
+      2424BCFF0808B4FF0808B9FF0808BAFF0808BBFF0F0EABFFA1A2D5FEC0C0C0FC
+      6A6A6B946A6A6BC0D9D8D7FE9999D1FF3838BBFF3636BCFF2C2CB7FF0909ADFF
+      0A0AA9FF0A0AA4FF1C1CAFFFB1B1CFFFD6D6CBFFCCCCCBFFC7C7C7FFE4E4E1FF
+      ECECEEFFACACB7FFC2C2BCFFBEBEBFFFC0C0C0FFCFCFC6FFC1C1D5FF2727B8FF
+      0909ACFF0909B2FF0909B2FF0909B4FF0808B4FF0E0EB5FF6E6EBFFFD9D9D9FE
+      6A6A6BC06A6A6BE1EBEAEBFF7D7CC7FF3838BFFF3434BEFF3536BEFF2A2AB8FF
+      0909B0FF0909ACFF0A0AA8FF1C1CB1FFB2B2D0FFD7D7CCFFCBCBCBFFC7C7C8FF
+      C8C8C3FFC6C6C3FFBFBFC1FFBDBDBDFFC5C5BCFFB8B8CEFF2929B5FF0A0AA8FF
+      0909ACFF0909ADFF0909AFFF0909AFFF0909AFFF0C0CB0FF4747AFFFECECEDFF
+      6A6A6BE16A6A6BF8F9F9F9FF6666C1FF3838C4FF3535C2FF3434C0FF3535BEFF
+      3030BCFF1313B4FF0909ADFF0A0AA8FF1E1EB3FFAAAAD0FFD3D3CDFFCCCCCCFF
+      C8C8C8FFC3C3C3FFC2C2C1FFC4C4BFFFB2B2CBFF2B2BB4FF0A0AA4FF0A0AA8FF
+      0A0AA8FF0A0AA9FF0A0AA9FF0A0AA9FF0A0AA9FF0B0BA9FF3131A6FFFAFAFAFF
+      6A6A6BF86A6A6BF8FBFBFBFF5959BEFF3B3BCAFF3A3AC8FF3737C4FF3535C2FF
+      3636C0FF3636BEFF2323B8FF0909B1FF0A0AA7FF4949BEFFD6D6D4FFD3D3D1FF
+      CDCDCDFFC8C8C8FFC4C4C3FFEDEDEDFF5F5FB3FF0C0C98FF0A0AA7FF0A0AA6FF
+      0A0AA6FF0A0AA6FF0A0AA4FF0A0AA6FF0A0AA4FF0B0BA4FF2D2DA6FFFBFBFBFF
+      6A6A6BF86A6A6BE1EDEDEEFF7F80CBFF4041CCFF3C3CCAFF3A3AC8FF383AC8FF
+      3838C4FF3636C2FF3939C0FF2123B7FF4A4AC2FFCBCBDEFFE0E0DCFFD6D6D6FF
+      D2D2D3FFCDCDCEFFC9C9C9FFE2E2E1FFF1F1F2FF4242A3FF0C0C99FF0A0AA4FF
+      0A0AA4FF0A0AA4FF0B0BA3FF0B0BA3FF0B0BA1FF0E0EA1FF4443B0FFEDEDEEFF
+      6A6A6BE16A6A6BC0DADADAFF9C9BD5FE4949CDFF3E3DD0FF3C3DCEFF3C3CCAFF
+      3A3AC8FF3B39C7FF2828BDFF5C5CCCFFE5E5EDFFF4F4EDFFE5E5E6FFDEDEDEFF
+      DCDCD9FFD9D9D3FFCDCDCDFFC8C8C8FFE5E5E1FFF1F1F3FF3F3FA0FF0C0C99FF
+      0A0AA4FF0B0BA1FF0B0BA0FF0B0BA0FF0B0B9FFF1313A2FF6B6BC0FFDADADAFF
+      6A6A6BC06A6A6B94C0C0C0FDBDBAE1FE5655CFFF4141D4FF3F3FD2FF3F3FCEFF
+      3D3DCCFF2C2AC3FF5E5ED3FFEBEBF6FFFFFFFAFFF1F1F1FFEDEDEEFFF0F0E9FF
+      D2D2E6FFBDBDD6FFDADAD3FFCFCFCFFFC9C9CAFFE5E5E2FFF1F1F3FF3A3AA0FF
+      0C0C98FF0B0BA3FF0B0B9FFF0B0B9EFF0B0B9EFF1C1CA4FF9C9CD3FFC1C1C1FD
+      6A6A6B946A6A6B609F9F9FF6DAD9EAFF6B6BCFFF4444D7FF4143D6FF4242D3FF
+      3434CDFF6464DBFFEFEFFFFFFFFFFFFFFCFCFCFFF6F6F6FFFCFCF4FFE2E1F0FF
+      5050CCFF4040C1FFC3C3DBFFE1E1D8FFD4D4D5FFCFCFCFFFE8E8E5FFF2F2F4FF
+      4040A2FF0C0C99FF0F0FA2FF0F0FA0FF0F0F9DFF302FA9FFD1D1E8FEA0A0A0F6
+      6A6A6B606A6A6B25787879F1E9E9EBFEA7A7DAFF6060DBFF4547DBFF3C3CD6FF
+      5857DEFFF2F2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE8E8F8FF5B5BD4FF
+      2828BDFF2A2BBDFF4949C5FFC3C3DBFFE4E4DAFFD5D5D5FFCECED0FFE8E8E5FF
+      F4F4F4FF4949AFFF2121A6FF2A2AA6FF2C2BA9FF5557B8FFEAEAECFE787879F1
+      6A6A6B25000000007575769EBEBEBEFDC9CAE6FF7A79DBFF4C4CDFFF4141DBFF
+      5757E0FFEAEAFFFFFFFFFFFFFFFFFFFFFFFFFFFFE8E7FFFF5B5BD7FF2E2EC6FF
+      3E3EC9FF3A3AC5FF2C2EC1FF4A49C8FFC2C2DDFFE3E3DAFFD5D5D4FFDADAD3FF
+      CACBD9FF4747BBFF2525ADFF2C2BACFF3332AEFFA5A4D8FFBFBFBFFD7575769E
+      00000000000000006A6A6B40888889F0ECECEFFE9696D6FF7B7BE3FF4D4BE0FF
+      4141DBFF5F5FE6FFE7E7FFFFFFFFFFFFE9E9FFFF5A5ADCFF3333CAFF4242CFFF
+      4040CBFF3D3DC9FF3D3EC8FF3030C2FF4848C9FFC0C0DDFFECEEDEFFD0D0E0FF
+      5554C7FF2828B3FF3232B4FF3434B1FF5453B7FFECECEFFE888889F06A6A6B40
+      0000000000000000000000007C7C7C98B7B7B8FAD0D0ECFF8F8FDBFF6868E3FF
+      4E4EE2FF3E40DBFF6565E9FFB2B2F7FF6565E4FF393BD2FF4646D7FF4343D4FF
+      4343D1FF4242CFFF4040CBFF3F3FCAFF3333C4FF4E4ECBFF9E9EE2FF5C5BCFFF
+      292ABAFF3636BCFF3938B8FF3F3EB1FFCBCBE9FFB7B7B8FA7C7C7C9800000000
+      0000000000000000000000006A6A6B22838383D8D3D3D3FEB5B5E2FF9E9EE4FF
+      6766E2FF4E50E6FF4646E0FF3D3DDAFF4444DCFF4B4BDCFF4848DBFF4847D9FF
+      4646D5FF4443D3FF4343D1FF4242CFFF4143CDFF3A3AC8FF312FC5FF3535C3FF
+      3C3CC3FF3D3DBEFF403FB5FFACACDCFFD3D3D3FE838383D86A6A6B2200000000
+      000000000000000000000000000000006A6A6B43878788EAE1E1E1FFB5B5E2FF
+      A7A6E4FF7877E5FF5151E5FF4F4FE4FF4E4EE2FF4D4DE0FF4C4CDEFF4B4BDCFF
+      4949DBFF4848D7FF4747D5FF4545D3FF4545D1FF4343CFFF4242CCFF3F3FCBFF
+      4343C2FF4645B6FFADADDCFFE1E1E1FF878788EA6A6A6B430000000000000000
+      00000000000000000000000000000000000000006A6A6B4E878788EAD3D3D3FE
+      D0D0ECFFAAA9DFFFA2A2ECFF6565E3FF5151E6FF4F4FE4FF4F4DE4FF4D4DE0FF
+      4D4DDFFF4D4DDCFF4C49DBFF4A4AD8FF4749D6FF4747D4FF4949CBFF4B4BC3FF
+      8E8ED0FFCDCCE8FFD3D3D3FE878788EA6A6A6B4E000000000000000000000000
+      0000000000000000000000000000000000000000000000006A6A6B43838383D8
+      B7B7B8FAECECEFFEC3C2E5FFADAEE1FF9E9DE8FF6F6FE0FF5C5CE1FF5452E2FF
+      5051E1FF4F4FDFFF4F4FDBFF5150D6FF5151CFFF5F5FC8FFA1A1D3FEC7C8E0FE
+      E4E4E7FEB7B7B8FA838383D86A6A6B4300000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000006A6A6B22
+      7C7C7C98888889F0BFBFBFFDEBEBECFED8D9EBFEBDBDE4FEA8A7DCFF9695D7FF
+      8886D4FF7F7DCEFF8C8BD2FFA1A2D9FFC0BEE1FED9D9EAFEEAEAECFEBFBFBFFD
+      888889F07C7C7C986A6A6B220000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000006A6A6B407575769E787879F19F9F9FF6C0C0C0FDDADADAFFEDEDEEFF
+      FBFBFBFFFBFBFBFFEDEDEEFFDADADAFFC0C0C0FD9F9F9FF6787879F17575769E
+      6A6A6B4000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000006A6A6B256A6A6B606A6A6B946A6A6BC06A6A6BE1
+      6A6A6BF86A6A6BF86A6A6BE16A6A6BC06A6A6B946A6A6B606A6A6B2500000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000FFC003FFFF0000FFFC00003FF800001FF000000FE0000007C0000003
+      C000000380000001800000010000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000080000001
+      80000001C0000003C0000003E0000007F000000FF800001FFC00003FFF0000FF
+      FFC003FF}
+    ShowUnicode = False
+    ColWidths = (
+      20
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64
+      64)
+    RowHeights = (
+      22
+      22)
+  end
+  object edtUsername: TEdit
+    Left = 696
+    Top = 10
+    Width = 121
+    Height = 23
+    TabOrder = 4
+    TextHint = 'Username'
+  end
+  object edtPassword: TEdit
+    Left = 696
+    Top = 39
+    Width = 121
+    Height = 23
+    TabOrder = 5
+    TextHint = 'Password'
+  end
+  object btnAddUser: TButton
+    Left = 866
+    Top = 29
+    Width = 75
+    Height = 25
+    Caption = 'Add User'
+    TabOrder = 6
+  end
+  object cbAdmin: TCheckBox
+    Left = 696
+    Top = 158
+    Width = 97
+    Height = 17
+    Caption = 'Make Admin?'
+    TabOrder = 7
+  end
+  object edtFullName: TEdit
+    Left = 696
+    Top = 68
+    Width = 121
+    Height = 23
+    TabOrder = 8
+    TextHint = 'Full Name'
+  end
+  object edtPhoneNumber: TEdit
+    Left = 696
+    Top = 97
+    Width = 121
+    Height = 23
+    TabOrder = 9
+    TextHint = 'Phone Number'
+  end
+  object edtEmailAddress: TEdit
+    Left = 696
+    Top = 129
+    Width = 121
+    Height = 23
+    TabOrder = 10
+    TextHint = 'Email Address'
+  end
+  object dsUsers: TDataSource
+    DataSet = uqUsers
+    Left = 482
+    Top = 459
+  end
+  object dsRecordings: TDataSource
+    Left = 348
+    Top = 472
+  end
+  object uqUsers: TUniQuery
+    Connection = FDatabaseModule.ucKG
+    SQL.Strings = (
+      'select * from users')
+    Left = 669
+    Top = 456
+  end
+end

kgOrdersServer/Source/Data.pas

+// Uses Twilio.Data.Module for the rest api calls. Simply for testing querys.
+// Visual aspect is for testing purposes only and has no affect on the client.
+// Authors:
+// Cameron Hayes
+// Elias Serraf
+// Mac ...
+unit Data;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AdvUtil, Data.DB, Vcl.Grids, AdvObj,
+  BaseGrid, AdvGrid, DBAdvGrid, MemDS, DBAccess, Uni, Vcl.StdCtrls, Vcl.Mask,
+  vcl.wwdbedit, vcl.wwdotdot, vcl.wwdbcomb, REST.Client, REST.Types, System.JSON,
+  System.Generics.Collections, AdvEdit, vcl.wwdblook, vcl.wwdbdatetimepicker,
+  System.Hash;
+
+type
+  TFData = class(TForm)
+    dsUsers: TDataSource;
+    btnFind: TButton;
+    Memo1: TMemo;
+    DBAdvGrid1: TDBAdvGrid;
+    DBAdvGrid2: TDBAdvGrid;
+    dsRecordings: TDataSource;
+    edtUsername: TEdit;
+    edtPassword: TEdit;
+    lblHash: TLabel;
+    btnAddUser: TButton;
+    lblHash2: TLabel;
+    uqUsers: TUniQuery;
+    cbAdmin: TCheckBox;
+    edtFullName: TEdit;
+    edtPhoneNumber: TEdit;
+    edtEmailAddress: TEdit;
+    procedure FormCreate(Sender: TObject);
+    procedure btnFindClick(Sender: TObject);
+  private
+    { Private declarations }
+    accountSID: string;
+    authHeader: string;
+  public
+    { Public declarations }
+  end;
+
+var
+  FData: TFData;
+
+implementation
+
+{$R *.dfm}
+
+uses Database, uLibrary;
+
+procedure TFData.FormCreate(Sender: TObject);
+begin
+  FDatabaseModule := TFDatabaseModule.Create(Self);
+end;
+
+procedure TFData.btnFindClick(Sender: TObject);
+// Retrieves calls from a specific number from the database.
+// SQL: SQL statement to retrieve calls from the database
+// whereSQL: where section of the SQL that is built in the function
+var
+  SQL: string;
+  whereSQL: string;
+begin
+  Memo1.Lines.Add(uqUsers.Connection.Server);
+  SQL := 'select * from users';
+  uqUsers.Close;
+  uqUsers.SQL.Text := sql;
+  uqUsers.Open;
+
+  DBAdvGrid1.AutoSizeColumns(true);
+end;
+
+
+end.

kgOrdersServer/Source/Database.dfm

+object FDatabaseModule: TFDatabaseModule
+  OnCreate = DataModuleCreate
+  Height = 480
+  Width = 640
+  object ucKG: TUniConnection
+    ProviderName = 'MySQL'
+    Database = 'kg_order_entry'
+    SpecificOptions.Strings = (
+      'PostgreSQL.Schema=envoy')
+    Username = 'root'
+    Server = '192.168.159.132'
+    Connected = True
+    LoginPrompt = False
+    Left = 75
+    Top = 139
+    EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
+  end
+  object UniQuery1: TUniQuery
+    Connection = ucKG
+    SQL.Strings = (
+      '')
+    Left = 363
+    Top = 138
+  end
+  object MySQLUniProvider1: TMySQLUniProvider
+    Left = 220
+    Top = 134
+  end
+end

kgOrdersServer/Source/Database.pas

+// Where the database is kept. Only used by Lookup.ServiceImpl to retrieve info
+// from the data base and send it to the client.
+// Author: ???
+unit Database;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, Data.DB, MemDS, DBAccess, Uni, UniProvider,
+  PostgreSQLUniProvider, System.Variants, System.Generics.Collections, System.IniFiles,
+  Common.Logging, Vcl.Forms, MySQLUniProvider;
+
+type
+  TFDatabaseModule = class(TDataModule)
+    ucKG: TUniConnection;
+    UniQuery1: TUniQuery;
+    MySQLUniProvider1: TMySQLUniProvider;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    class procedure ExecSQL(const SQL: string);
+  end;
+
+var
+  FDatabaseModule: TFDatabaseModule;
+
+implementation
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+
+{$R *.dfm}
+
+procedure TFDatabaseModule.DataModuleCreate(Sender: TObject);
+// Sets the database connection to the ini file IP
+// TODO: clean up unnecessary reads from the ini file
+var
+  IniFile: TIniFile;
+  iniStr: string;
+begin
+  IniFile := TIniFile.Create( ChangeFileExt(Application.ExeName, '.ini') );
+  try
+    iniStr := IniFile.ReadString( 'Database', 'Server', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Database->Server: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Database->Server: ' + iniStr );
+      ucKG.Server := iniStr;
+    end;
+
+    iniStr := IniFile.ReadString( 'Twilio', 'AccountSID', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AccountSID: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AccountSID: ' + iniStr );
+      //accountSID := iniStr;
+    end;
+
+    iniStr := IniFile.ReadString( 'Twilio', 'AuthHeader', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AuthHeader: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, 'iniFile: ' + ChangeFileExt(Application.ExeName, '.ini') +
+                  ' Twilio->AuthHeader: ' + iniStr );
+      //authHeader := iniStr;
+    end;
+    Logger.Log(1, '');
+  finally
+    IniFile.Free;
+  end;
+end;
+
+class procedure TFDatabaseModule.ExecSQL(const SQL: string);
+var
+  DB: TFDatabaseModule;
+begin
+  DB := TFDatabaseModule.Create(nil);
+  try
+    DB.UniQuery1.SQL.Text := SQL;
+    DB.UniQuery1.ExecSQL;
+  finally
+    DB.Free;
+  end;
+end;
+
+end.

kgOrdersServer/Source/Lookup.Service.pas

+// Lookup Service interface which retrieves information from the database
+// which is then sent to the client.
+// Authors:
+// Cameron Hayes
+// Mac ...
+// Elias Sarraf
+
+unit Lookup.Service;
+
+interface
+
+uses
+  XData.Service.Common,
+  Aurelius.Mapping.Attributes,
+  System.JSON,
+  System.Generics.Collections,
+  System.Classes;
+
+const
+  API_MODEL = 'Api';
+
+type
+  TCallItem = class
+  // Class of the info we want from the database from a specific call.
+  // callSid: SID of the call, 34 digit string.
+  // fromNumber: Who the phone call was from. (xxx) xxx-xxxx
+  // toNumber: Who the phone call was to. (xxx) xxx-xxxx
+  // dateCreated: Date the phone call was created. mm/dd/yyyy hh:nn:ss am/pm
+  // mediaURL: Link to the recording audio
+  // duration: Length of the entire call and recording.
+  // transcription: Transcription of the recording. Not always present due to
+  // the call being answerered or caller did not leave a message.
+  public
+    callSid: string;
+    fromNumber: string;
+    toNumber: string;
+    dateCreated: string;
+    mediaUrl: string;
+    duration: string;
+    transcription: string;
+  end;
+
+  // List of call items
+  // count: Total amount of records that fit the SQL query
+  // data: List of retrieved calls
+  TCallList = class
+  public
+    count: integer;
+    data: TList<TCallItem>;
+  end;
+
+  TUserItem = class
+  public
+    userID: string;
+    username: string;
+    password: string;
+    full_name: string;
+    status: string;
+    email_address: string;
+    Atype: string;
+    rights: integer;
+    perspectiveID: string;
+    QBID: string;
+  end;
+
+  TUserList = class
+  public
+    count: integer;
+    data: TList<TUserItem>;
+  end;
+
+
+type
+  [ServiceContract]
+  ILookupService = interface(IInvokable)
+    ['{F24E1468-5279-401F-A877-CD48B44F4416}']
+    [HttpGet] function GetCalls(searchOptions: string): TCallList;
+    [HttpGet] function Search(phoneNum: string): TCallList;
+    [HttpGet] function GetUsers(searchOptions: string): TUserList;
+    function AddUser(userInfo: string): string;
+    function DelUser(username: string): string;
+    function EditUser(const editOptions: string): string;
+  end;
+
+implementation
+
+initialization
+  RegisterServiceType(TypeInfo(ILookupService));
+
+end.

kgOrdersServer/Source/Lookup.ServiceImpl.pas

+// Implementation of the Lookup Service interface used to send call information
+// to the client.
+// Authors:
+// Cameron Hayes
+// Mac ...
+// Elias Sarraf
+unit Lookup.ServiceImpl;
+
+interface
+
+uses
+  XData.Server.Module,
+  XData.Service.Common,
+  Database, Data.DB,
+  Lookup.Service, System.Hash, System.Classes;
+
+
+type
+  [ServiceImplementation]
+  TLookupService = class(TInterfacedObject, ILookupService)
+  strict private
+  callsDB: TFDatabaseModule;
+  private
+    function GetUsers(searchOptions: string): TUserList;
+    function GetCalls(searchOptions: string): TCallList;
+    function EditUser(const editOptions: string): string;
+    function Search(phoneNum: string): TCallList;
+    function AddUser(userInfo: string): string;
+    function DelUser(username: string): string;
+    procedure AfterConstruction; override;
+    procedure BeforeDestruction; override;
+  end;
+
+implementation
+
+uses
+  System.SysUtils,
+  System.Generics.Collections,
+  XData.Sys.Exceptions, uLibrary;
+
+procedure TLookupService.AfterConstruction;
+begin
+  inherited;
+  callsDB := TFDatabaseModule.Create(nil);
+
+end;
+
+procedure TLookupService.BeforeDestruction;
+begin
+  callsDB.Free;
+  inherited;
+end;
+
+function TLookupService.Search(phoneNum: string): TCallList;
+// Searchs the database for a specific from phone number then returns a list of
+// calls from said number
+// SQL: String of the sql query used to retrieve info from the database
+// call: object representing the call information we want to send to the client
+// Return: A list of calls
+var
+SQL: string;
+call: TCallItem;
+begin
+  SQL := 'select * ' +
+          'from calls inner join recordings on calls.sid = recordings.call_sid ' +
+         'where from_formatted = ' + QuotedStr(PhoneNum)  + ' order by calls.date_created desc';
+
+  doQuery(callsDB.UniQuery1, SQL);
+
+  Result:= TCallList.Create;
+  Result.data := TList<TCallItem>.Create;
+  TXDataOperationContext.Current.Handler.ManagedObjects.Add( Result.data );
+
+  while not callsDB.UniQuery1.Eof do
+    begin
+      call := TCallItem.Create;
+      TXDataOperationContext.Current.Handler.ManagedObjects.Add( call );
+      Result.data.Add( call );
+      call.callSid := callsDB.UniQuery1.FieldByName('sid').AsString;
+      call.fromNumber := callsDB.UniQuery1.FieldByName('from_formatted').AsString;
+      call.ToNumber := callsDB.UniQuery1.FieldByName('to_formatted').AsString;
+      call.dateCreated := callsDB.UniQuery1.FieldByName('date_created').AsString;
+      call.mediaUrl := callsDB.UniQuery1.FieldByName('media_url').AsString;
+      call.duration := callsDB.UniQuery1.FieldByName('duration').AsString;
+      call.transcription := callsDB.UniQuery1.FieldByName('transcription').AsString;
+      callsDB.UniQuery1.Next;
+    end;
+    callsDB.UniQuery1.Close;
+    SQL:= 'select count(*) as total_count from calls inner join ' +
+    'recordings on calls.sid = recordings.call_sid where ' +
+    'from_formatted = ' + QuotedStr(PhoneNum);
+
+    doQuery(callsDB.UniQuery1, SQL);
+
+    Result.count := callsDB.UniQuery1.FieldByName('total_count').AsInteger;
+
+end;
+
+function TLookupService.GetCalls(searchOptions: string): TCallList;
+// Retrieves a list of calls from the database then sends it to the client.
+// searchOptions: csv string representing all the search options the client sent.
+// Format: Phone Number, Page Number, Page Size, Start Date, End Date, SortBy.
+// Returns a TCallList containing PageSize amount of entries.
+var
+params: TStringList;
+SQL: string;
+DBString: string;
+call: TCallItem;
+offset: string;
+limit: string;
+PhoneNum: string;
+PageNum: integer;
+PageSize: integer;
+StartDate: string;
+EndDate: string;
+OrderBy: string;
+whereSQL: string;
+orderBySQL: string;
+Caller: string;
+begin
+  params := TStringList.Create;
+  params.StrictDelimiter := true;
+  // parse the searchOptions
+  params.Delimiter := '&';
+  params.DelimitedText := searchOptions;
+  PhoneNum := params.Values['phonenumber'];
+  PageNum := StrToInt(params.Values['pagenumber']);
+  PageSize := StrToInt(params.Values['pagesize']);
+  StartDate := params.Values['startdate'];
+  EndDate := params.Values['enddate'];
+  OrderBy := params.Values['orderby'];
+  Caller := params.Values['caller'];
+
+  // We want entries for the "page" the client is on.
+  offset := IntToStr((PageNum - 1) * PageSize);
+  limit := IntToStr(PageSize);
+
+  whereSQL := 'where ';
+
+  if PhoneNum <> '' then
+    whereSQL := whereSQL + 'to_formatted = ' + QuotedStr(PhoneNum);
+
+  if StartDate <> '' then
+    if whereSQL = 'where ' then
+      whereSQL := whereSQL + 'calls.date_created > ' + QuotedStr(StartDate)
+    else
+      whereSQL := whereSQL + 'AND calls.date_created > ' + QuotedStr(StartDate);
+
+  if EndDate <> '' then
+    if whereSQL = 'where ' then
+      whereSQL := whereSQL + 'calls.date_created < ' + QuotedStr(EndDate)
+    else
+      whereSQL := whereSQL + 'AND calls.date_created < ' + QuotedStr(EndDate);
+
+  if Caller <> '' then
+    if whereSQL = 'where ' then
+      whereSQL := whereSQL + 'from_formatted = ' + QuotedStr(Caller)
+    else
+      whereSQL := whereSQL + 'AND from_formatted = ' + QuotedStr(Caller);
+
+  if whereSQL = 'where ' then
+    whereSQL := '';
+
+  if (OrderBy = '') or (OrderBy = 'Date') then
+    orderBySQL :=  'order by calls.date_created desc'
+  else
+    orderBySQL := 'order by calls.from_formatted desc';
+
+  //this SQL will enventually be modifed for more generic work
+  SQL := 'select * ' +
+          'from calls inner join recordings on calls.sid = recordings.call_sid ' +
+          whereSQL + ' ' + orderBySQL + ' ' + 'limit ' + limit + ' offset ' + offset;
+
+  doQuery(callsDB.UniQuery1, SQL);
+
+  Result:= TCallList.Create;
+  Result.data := TList<TCallItem>.Create;
+  TXDataOperationContext.Current.Handler.ManagedObjects.Add( Result.data );
+
+  while not callsDB.UniQuery1.Eof do
+    begin
+      call := TCallItem.Create;
+      TXDataOperationContext.Current.Handler.ManagedObjects.Add( call );
+      Result.data.Add( call );
+      call.callSid := callsDB.UniQuery1.FieldByName('sid').AsString;
+      call.fromNumber := callsDB.UniQuery1.FieldByName('from_formatted').AsString;
+      call.ToNumber := callsDB.UniQuery1.FieldByName('to_formatted').AsString;
+      call.dateCreated := callsDB.UniQuery1.FieldByName('date_created').AsString;
+      call.mediaUrl := callsDB.UniQuery1.FieldByName('media_url').AsString;
+      call.duration := callsDB.UniQuery1.FieldByName('duration').AsString;
+      call.transcription := callsDB.UniQuery1.FieldByName('transcription').AsString;
+      callsDB.UniQuery1.Next;
+    end;
+    callsDB.UniQuery1.Close;
+    SQL:= 'select count(*) as total_count from calls inner join recordings on calls.sid = recordings.call_sid ' +
+          whereSQL;
+    doQuery(callsDB.UniQuery1, SQL);
+    Result.count := callsDB.UniQuery1.FieldByName('total_count').AsInteger;
+    callsDB.UniQuery1.Close;
+end;
+
+function TLookupService.GetUsers(searchOptions: string): TUserList;
+var
+SQL: string;
+user: TUserItem;
+begin
+  if searchOptions = '' then
+    SQL := 'select * from users order by NAME ASC'
+  else
+    SQL := 'select * from users where username=' + quotedStr(searchOptions);
+  doQuery(callsDB.UniQuery1, SQL);
+
+  Result:= TUserList.Create;
+  Result.data := TList<TUserItem>.Create;
+  TXDataOperationContext.Current.Handler.ManagedObjects.Add( Result.data );
+
+  while not callsDB.UniQuery1.Eof do
+    begin
+      user := TUserItem.Create;
+      TXDataOperationContext.Current.Handler.ManagedObjects.Add( user );
+      Result.data.Add( user );
+      user.userID := callsDB.UniQuery1.FieldByName('USER_ID').AsString;
+      user.username := callsDB.UniQuery1.FieldByName('USER_NAME').AsString;
+      user.password := callsDB.UniQuery1.FieldByName('PASSWORD').AsString;
+      user.full_name := callsDB.UniQuery1.FieldByName('NAME').AsString;
+      user.status := callsDB.UniQuery1.FieldByName('STATUS').AsString;
+      user.email_address := callsDB.UniQuery1.FieldByName('EMAIL').AsString;
+      user.AType := callsDB.UniQuery1.FieldByName('ACCESS_TYPE').AsString;
+      user.rights := callsDB.UniQuery1.FieldByName('SYSTEM_RIGHTS').AsInteger;
+      user.perspectiveID := callsDB.UniQuery1.FieldByName('PERSPECTIVE_ID').AsString;
+      user.QBID := callsDB.UniQuery1.FieldByName('QB_ID').AsString;
+      callsDB.UniQuery1.Next;
+    end;
+    callsDB.UniQuery1.Close;
+    SQL:= 'select count(*) as total_count from users';
+    doQuery(callsDB.UniQuery1, SQL);
+    Result.count := callsDB.UniQuery1.FieldByName('total_count').AsInteger;
+    callsDB.UniQuery1.Close;
+end;
+
+function TLookupService.EditUser(const editOptions: string): string;
+var
+params: TStringList;
+user: string;
+first_name: string;
+last_name: string;
+full_name: string;
+email: string;
+phone: string;
+SQL: string;
+Admin: string;
+newUser: string;
+location: string;
+hashString: string;
+hashPW: string;
+password: string;
+active: string;
+
+begin
+  params := TStringList.Create;
+  // parse the searchOptions
+  params.Delimiter := '&';
+  params.StrictDelimiter := true;
+  params.DelimitedText := editOptions;
+  user := params.Values['username'];
+  full_name := params.Values['fullname'];
+  phone := params.Values['phonenumber'];
+  email := params.Values['email'];
+  Admin := params.Values['admin'];
+  newUser := params.Values['newuser'];
+  password := params.Values['password'];
+  active := params.Values['active'];
+  location := params.Values['location'];
+
+  SQL := 'select * from users where username = ' + QuotedStr(user);
+  doQuery(callsDB.UniQuery1, SQL);
+
+  if callsDB.UniQuery1.IsEmpty then
+    Result := 'No such user found'
+  else
+  begin
+    callsDB.UniQuery1.Edit;
+
+    if (not (newUser.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('username').AsString := newUser;
+
+    if (not (full_name.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('full_name').AsString := full_name;
+
+    if (not (phone.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('phone_number').AsString := phone;
+
+    if (not (email.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('email').AsString := email;
+
+    if(not (Admin.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('admin').AsBoolean := StrToBool(Admin);
+
+    if (not (Active.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('active').AsBoolean := StrToBool(Active);
+
+    if (not (Location.IsEmpty)) then
+      callsDB.UniQuery1.FieldByName('default_location').asString := location;
+
+    if((not (Password = 'hidden')) and (not (Password.IsEmpty))) then
+    begin
+      hashString :=  callsDB.UniQuery1.FieldByName('date_created').AsString + password;
+      hashPW := THashSHA2.GetHashString(hashString, THashSHA2.TSHA2Version.SHA512).ToUpper;
+      callsDB.UniQuery1.FieldByName('password').AsString := hashPW;
+    end;
+
+    callsDB.UniQuery1.Post;
+    Result := 'Success:Edit Successful';
+  end;
+  callsDB.UniQuery1.Close;
+end;
+
+
+function TLookupService.AddUser(userInfo:string): string;
+var
+dateCreated: TDateTime;
+hashString: string;
+SQL: string;
+hashPW: string;
+params: TStringList;
+begin
+  params := TStringList.Create;
+  params.StrictDelimiter := true;
+  // parse the searchOptions
+  params.Delimiter := '&';
+  params.DelimitedText := userInfo;
+  dateCreated := now;
+  hashString :=  DateTimeToStr(dateCreated) + params.Values['password'];
+  hashPW := THashSHA2.GetHashString(hashString, THashSHA2.TSHA2Version.SHA512).ToUpper;
+  SQL := 'select * from users where username = ' + QuotedStr(params.Values['username'].toLower);
+  callsDB.UniQuery1.Close;
+  callsDB.UniQuery1.SQL.Text := SQL;
+  callsDB.UniQuery1.Open;
+  if callsDB.UniQuery1.IsEmpty then
+  begin
+    callsDB.UniQuery1.Insert;
+
+    callsDB.UniQuery1.FieldByName('username').AsString := params.Values['username'].toLower;
+    callsDB.UniQuery1.FieldByName('password').AsString := THashSHA2.GetHashString(hashString,
+                                THashSHA2.TSHA2Version.SHA512).ToUpper;
+    callsDB.UniQuery1.FieldByName('date_created').AsString := DateTimeToStr(dateCreated);
+    callsDB.UniQuery1.FieldByName('full_name').AsString := params.Values['fullname'];
+    callsDB.UniQuery1.FieldByName('phone_number').AsString := params.Values['phonenumber'];
+    callsDB.UniQuery1.FieldByName('email').AsString := params.Values['email'];
+    callsDB.UniQuery1.FieldByName('admin').AsBoolean := StrToBool(params.Values['admin']);
+    callsDB.UniQuery1.Post;
+    Result := 'Success:User successfully added';
+  end
+  else
+    Result := 'Failure:Username already taken';
+end;
+
+function TLookupService.DelUser(username: string): string;
+var
+SQL: string;
+
+begin
+  SQL := 'select * from users where username = ' + QuotedStr(username.toLower);
+  callsDB.UniQuery1.Close;
+  callsDB.UniQuery1.SQL.Text := SQL;
+  callsDB.UniQuery1.Open;
+  if callsDB.UniQuery1.IsEmpty then
+  begin
+    Result := 'Failure:User does not exist';
+  end
+  else
+  begin
+    SQL:= 'DELETE FROM users where username = ' +  QuotedStr(username.toLower);
+    callsDB.UniQuery1.SQL.Text := SQL;
+    callsDB.UniQuery1.ExecSQL;
+    Result := 'Success:User deleted';
+  end;
+end;
+
+initialization
+  RegisterServiceType(TLookupService);
+
+end.
+

kgOrdersServer/Source/Main.dfm

+object FMain: TFMain
+  Left = 0
+  Top = 0
+  Caption = 'envoy Calls Server 2'
+  ClientHeight = 597
+  ClientWidth = 764
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OnClose = FormClose
+  DesignSize = (
+    764
+    597)
+  TextHeight = 13
+  object memoInfo: TMemo
+    Left = 8
+    Top = 40
+    Width = 744
+    Height = 549
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ReadOnly = True
+    TabOrder = 0
+  end
+  object btnApiSwaggerUI: TButton
+    Left = 297
+    Top = 8
+    Width = 100
+    Height = 25
+    Caption = 'Api SwaggerUI'
+    TabOrder = 1
+    OnClick = btnApiSwaggerUIClick
+  end
+  object btnData: TButton
+    Left = 525
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Data'
+    TabOrder = 2
+    OnClick = btnDataClick
+  end
+  object btnExit: TButton
+    Left = 671
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Exit'
+    TabOrder = 3
+    OnClick = btnExitClick
+  end
+  object btnAuthSwaggerUI: TButton
+    Left = 169
+    Top = 8
+    Width = 100
+    Height = 25
+    Caption = 'Auth SwaggerUI'
+    TabOrder = 4
+    OnClick = btnAuthSwaggerUIClick
+  end
+  object tmrTwilio: TTimer
+    Enabled = False
+    Interval = 300000
+    OnTimer = tmrTwilioTimer
+    Left = 167
+    Top = 399
+  end
+  object initTimer: TTimer
+    OnTimer = initTimerTimer
+    Left = 58
+    Top = 398
+  end
+end

kgOrdersServer/Source/Main.pas

+unit Main;
+//Main form of the program. This program gets calls/recordings/transcriptions from
+//twilio and stores them in a database. From there it is able to be accessed by the client.
+//Has access to every visual form for debugging purposes.
+//Authors:
+//Elias Sarraf
+//Mac ...
+//Cameron Hayes
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Winapi.ShellApi,
+  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+  Vcl.StdCtrls, Vcl.ExtCtrls, System.Generics.Collections, System.IniFiles,
+  Auth.Service, Auth.Server.Module, Api.Server.Module, App.Server.Module;
+
+type
+  TFMain = class(TForm)
+    memoInfo: TMemo;
+    btnApiSwaggerUI: TButton;
+    btnData: TButton;
+    btnExit: TButton;
+    tmrTwilio: TTimer;
+    initTimer: TTimer;
+    btnAuthSwaggerUI: TButton;
+    procedure btnApiSwaggerUIClick(Sender: TObject);
+    procedure btnDataClick(Sender: TObject);
+    procedure btnExitClick(Sender: TObject);
+    procedure tmrTwilioTimer(Sender: TObject);
+    procedure ContactFormData(AText: String);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure initTimerTimer(Sender: TObject);
+    procedure btnAuthSwaggerUIClick(Sender: TObject);
+
+  strict private
+    phoneDict: TDictionary<string, string>;
+
+    procedure StartServers;
+    procedure UpdateGUI;
+  end;
+
+var
+  FMain: TFMain;
+
+implementation
+
+uses
+  Common.Logging,
+  Common.Config,
+  Sparkle.Utils,
+  Database, Data;
+
+{$R *.dfm}
+
+{ TMainForm }
+
+procedure TFMain.ContactFormData(AText: String);
+begin
+  if memoInfo.CanFocus then
+    TThread.Queue(nil, procedure
+    begin
+      memoInfo.Lines.Add(AText);
+    end)
+  else
+    TThread.Synchronize(nil, procedure
+    begin
+      memoInfo.Lines.Add(AText);
+    end);
+end;
+
+procedure TFMain.btnDataClick(Sender: TObject);
+begin
+  FData := TFData.Create( self );
+  FData.ShowModal;
+  FData.Free;
+end;
+
+procedure TFMain.btnExitClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFMain.btnAuthSwaggerUIClick(Sender: TObject);
+begin
+  ShellExecute(Handle, 'open', PChar(TSparkleUtils.CombineUrlFast(AuthServerModule.XDataServer.BaseUrl, 'swaggerui')), nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TFMain.btnApiSwaggerUIClick(Sender: TObject);
+begin
+  ShellExecute(Handle, 'open', PChar(TSparkleUtils.CombineUrlFast(ApiServerModule.XDataServer.BaseUrl, 'swaggerui')), nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TFMain.initTimerTimer(Sender: TObject);
+begin
+  initTimer.Enabled := False;
+  ServerConfig := TServerConfig.Create;
+  LoadServerConfig;
+  StartServers;
+end;
+
+procedure TFMain.StartServers;
+// Reads from the ini file to figure out what IP the database is located at and
+// whether or not Twilio automatic updates should be enabled
+var
+  iniFilename: string;
+  iniFile: TIniFile;
+  iniStr: string;
+begin
+  // this looks ok in the log file but not in the memo on the form
+  Logger.Log(1, '*******************************************************');
+  Logger.Log(1, '*            kgOrders Server - beta ver.            *');
+  Logger.Log(1, '*            Developed by EM Systems, Inc.            *');
+  Logger.Log(1, '*******************************************************');
+  Logger.Log(1, '');
+  Logger.Log(1, 'TMemoLogAppender - logLevel: ' + IntToStr(serverConfig.memoLogLevel));
+  Logger.Log(1, 'TFileLogAppender - logLevel: ' + IntToStr(serverConfig.fileLogLevel));
+  Logger.Log(1, '');
+
+  iniFilename := ChangeFileExt(Application.ExeName, '.ini');
+  Logger.Log( 1, 'iniFilename: ' + iniFileName);
+  iniFile := TIniFile.Create( iniFilename );
+  try
+    iniStr := iniFile.ReadString( 'Options', 'LogFileNum', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, '--Options->LogFileNum: Entry not found' )
+    else
+      Logger.Log( 1, '--Options->LogFileNum: ' + IntToStr(StrToInt(iniStr) - 1) );
+
+    iniStr := IniFile.ReadString( 'Database', 'Server', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, '--Database->Server: Entry not found' )
+    else
+      Logger.Log( 1, '--Database->Server: ' + iniStr );
+
+    iniStr := IniFile.ReadString( 'Options', 'TwilioUpdateTime', '' );
+    if iniStr.IsEmpty then
+      Logger.Log( 1, '--Options->TwilioUpdateTime: Entry not found' )
+    else
+    begin
+      Logger.Log( 1, '--Options->TwilioUpdateTime: ' + iniStr );
+      if iniStr = '0' then
+      begin
+        Logger.Log( 1, '--Twilio Update Timer not enabled due to timer length of ' +
+                    '0. Edit the ini file to enable auto updates.');
+        tmrTwilio.Enabled := False;
+      end
+      else
+      begin
+        Logger.Log( 1, '--Twilio Update Timer enabled and set to update every '+ iniStr + ' minutes.');
+        tmrTwilio.Interval := StrToInt(IniStr) * 60000;
+        tmrTwilio.Enabled := True;
+      end;
+
+    end;
+
+    Logger.Log(1, '');
+  finally
+    IniFile.Free;
+  end;
+
+  AuthServerModule := TAuthServerModule.Create(Self);
+  AuthServerModule.StartAuthServer(serverConfig.url, AUTH_MODEL);
+
+  ApiServerModule := TApiServerModule.Create( Self );
+  ApiServerModule.StartApiServer(serverConfig.url);
+
+  AppServerModule := TAppServerModule.Create(Self);
+  AppServerModule.StartAppServer( serverConfig.url );
+end;
+
+procedure TFMain.tmrTwilioTimer(Sender: TObject);
+var
+  key: string;
+  phoneNum: string;
+begin
+  memoInfo.Lines.Add('Timer set off');
+  tmrTwilio.Enabled := False;
+  tmrTwilio.Enabled := True;
+
+end;
+
+procedure TFMain.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  phoneDict.Free;
+  ServerConfig.Free;
+  AuthServerModule.Free;
+  ApiServerModule.Free;
+  AppServerModule.Free;
+end;
+
+procedure TFMain.UpdateGUI;
+const
+  cHttp = 'http://+';
+  cHttpLocalhost = 'http://localhost';
+begin
+  if AuthServerModule.SparkleHttpSysDispatcher.Active then
+    memoInfo.Lines.Add( 'AuthServer started at: ' + AuthServerModule.XDataServer.BaseUrl )
+  else
+    memoInfo.Lines.Add( 'AuthServer stopped' );
+
+  if ApiServerModule.SparkleHttpSysDispatcher.Active then
+    memoInfo.Lines.Add( 'ApiServer started at: ' + ApiServerModule.XDataServer.BaseUrl )
+  else
+    memoInfo.Lines.Add( 'ApiServer stopped' );
+end;
+
+end.

kgOrdersServer/Source/uLibrary.pas

+unit uLibrary;
+
+interface
+
+uses
+  System.Classes, Uni;
+
+const
+  ADD_REC_AUDIT_ENTRY = '0';
+  EDIT_REC_AUDIT_ENTRY = '1';
+  DEL_REC_AUDIT_ENTRY = '2';
+  REVIEW_REC_AUDIT_ENTRY = '3';
+  VIEW_REC_AUDIT_ENTRY = '4';
+  FIND_REC_AUDIT_ENTRY = '5';
+  PRINT_REC_AUDIT_ENTRY = '6';
+  OTHER_REC_AUDIT_ENTRY = '99';
+
+function GetServerTimeStamp( uq: TUniQuery ): TDateTime;
+procedure DoQuery( uq: TUniQuery; sql: string );
+function CalculateAge( const dob, dt: TDateTime ): Integer;
+function GetNextSeqVal( uq: TUniQuery; sequence: string ): string;
+function FormatNamePersonnel( uq: TUniQuery; format: string ): string;
+function FormatBkNum( bkNum: string ): string;
+function GetAssociatedNumber( uq: TUniQuery; numberType: string ): string;
+function FormatBookingAddress( uq: TUniQuery; format: string ): string;
+function SetMasterAuditEntry( uq: TUniQuery; const entryId, auditType, linkId, agency, personnelId, recUser, details, searchKey, execSource: string ): Boolean;
+function SetDetailAuditEntry( uq: TUniQuery; const entryId, title, auditType: string; auditList: TStringList ): Boolean;
+function GetOfficerName( agency, officer: string; uq: TUniQuery ): string;
+function GetRiciOfficerName( agency, officer: string; uq: TUniQuery ): string;
+
+implementation
+
+uses
+  System.SysUtils,
+  Data.DB;
+
+function GetServerTimeStamp( uq: TUniQuery ): TDateTime;
+var
+  sql: string;
+  serverDateTime: TDateTime;
+begin
+  sql := 'select sysdate as currentdatetime from dual';
+
+  DoQuery( uq, sql );
+  serverDateTime := uq.FieldByName('CURRENTDATETIME').AsDateTime;
+  uq.Close;
+  Result := serverDateTime;
+end;
+
+procedure DoQuery(uq: TUniQuery; sql: string);
+begin
+  uq.Close;
+  uq.SQL.Text := sql;
+  uq.Open;
+end;
+
+function CalculateAge( const dob, dt: TDateTime): Integer;
+var
+  age: Integer;
+  y1, m1, d1, y2, m2, d2: Word;
+begin
+  Result := 0;
+
+  if dt < dob then
+    Exit;
+
+  DecodeDate( dob, y1, m1, d1);
+  DecodeDate( dt, y2, m2, d2);
+  age := y2 - y1;
+  // Feb 29
+  //if ( (m1=2) and (d1=29) ) and ( not IsLeapYear(y2) ) then
+  //  d1 := 28;
+
+  if (m1 = 2) and (d1 = 29) and (not (IsLeapYear (y2))) then
+  begin
+    m1 := 3;
+    d1 := 1;
+  end;
+
+  if (m2 < m1) or ((m2 = m1) and (d2 < d1)) then
+    Dec(age);
+  Result := age
+end;
+
+function GetNextSeqVal(uq: TUniQuery; sequence: string ): string;
+var
+  sql: string;
+begin
+  sql := 'select ' + sequence + '.NEXTVAL as nextseqval from dual';
+  uq.Close;
+  uq.SQL.Text :=  sql;
+  uq.Open;
+  Result := uq.FieldByName('NEXTSEQVAL').AsString;
+end;
+
+function FormatNamePersonnel( uq: TUniQuery; format: string ): string;
+var
+  leng: Integer;
+  i: Integer;
+  officerText: String;
+begin
+  leng := Length( format );
+
+  for i := 0 to leng - 1 do
+  begin
+    case format[i+1] of
+      'S':
+          officerText := officerText + uq.FieldByName('PF_LNAME').AsString;
+      'F':
+        if not uq.FieldByName('PF_FNAME').AsString.IsEmpty then
+          officerText := TrimRight( officerText + uq.FieldByName('PF_FNAME').AsString ) ;
+      'M':
+        if not uq.FieldByName('PF_MI').AsString.IsEmpty then
+          officerText := TrimRight( officerText + uq.FieldByName('PF_MI').AsString );
+      ',':
+        officerText := officerText + ',';
+      '.':
+        officerText := officerText +  '.';
+      ' ':
+        officerText := officerText +  ' ';
+    end;
+  end;
+
+  Result := officerText;
+end;
+
+function FormatBkNum( bkNum: string ): string;
+var
+  bkNumStr: string;
+begin
+  bkNumStr := bkNum;
+  Result := bkNumStr.Insert( 4, '-' );
+end;
+
+function GetAssociatedNumber( uq: TUniQuery; numberType: string): string;
+var
+  TLocateOptions: set of TLocateOption;
+begin
+  if uq.Locate('OTHER_AGENCY_CODE', numberType, TLocateOptions)
+    then Result := uq.FieldByName('IDENTIFICATION').AsString
+end;
+
+function FormatBookingAddress( uq: TUniQuery; format: string ): string;
+var
+  addressText: AnsiString;
+  leng: Integer;
+  i : Integer;
+begin
+  leng := Length( format );
+
+  for i := 0 to leng - 1 do
+  begin
+    case format[i+1] of
+      'S':
+        begin
+          addressText := addressText + uq.FieldByName('STREET_NUM').AsString;
+          if uq.FieldByName('STREET_NUM_HALF').AsString = 'Y' then
+            addressText := addressText + ' 1/2';
+          if uq.FieldByName('STREET_DIRECTION').AsString <> '' then
+            addressText := addressText + ' ' + uq.FieldByName('STREET_DIRECTION').AsString;
+          if uq.FieldByName('STREET_NAME').AsString <> '' then
+            addressText := addressText + ' ' + TrimRight( uq.FieldByName('STREET_NAME').AsString );
+          if uq.FieldByName('STREET_TYPE').AsString <> '' then
+            addressText := addressText + ' ' + TrimRight( uq.FieldByName('STREET_TYPE').AsString );
+          if uq.FieldByName('APARTMENT_NUM').AsString <> '' then
+            addressText := addressText + ' APT: ' + TrimRight( uq.FieldByName('APARTMENT_NUM').AsString );
+        end;
+      'C':
+        if uq.FieldByName('CITY').AsString <> '' then
+          addressText := addressText + ' ' + TrimRight( uq.FieldByName('CITY').AsString );
+      'T':
+        if uq.FieldByName('STATE').AsString <> '' then
+          addressText := addressText + ' ' + TrimRight( uq.FieldByName('STATE').AsString );
+      'Z':
+        if uq.FieldByName('ZIP_CODE').AsString <> '' then
+          addressText := addressText + '  ' + TrimRight( uq.FieldByName('ZIP_CODE').AsString );
+      'R':
+        if uq.FieldByName('COUNTRY').AsString <> '' then
+          addressText := addressText + ' ' + TrimRight( uq.FieldByName('COUNTRY').AsString );
+      ',':
+        addressText := addressText + ',';
+      '.':
+        addressText := addressText + '.';
+      ' ':
+        addressText := addressText + ' ';
+    end;
+  end;
+
+  Result := addressText;
+end;
+
+function SetMasterAuditEntry(uq: TUniQuery; const entryId, auditType, linkId, agency, personnelId, recUser, details, searchKey, execSource: string) : Boolean;
+var
+  sql: string;
+begin
+  sql := 'insert into auditmaster ';
+  sql := sql + '( AUDITMASTERID, SOURCEID, AUDITTYPE, AGENCY, PERSONNELID, RECUSER, RECDATE, DETAILS, SEARCHKEY, EXECSRC) ';
+  sql := sql + 'values (';
+  sql := sql + entryID + ', ';
+  sql := sql + QuotedStr(linkID) + ', ';
+  sql := sql + QuotedStr(auditType) + ', ';
+  sql := sql + QuotedStr(agency) + ', ';
+  sql := sql + personnelid + ', ';
+  sql := sql + QuotedStr(recUser) + ', ';
+  sql := sql + 'sysdate, ';
+  sql := sql + QuotedStr(details) + ', ';
+  sql := sql + QuotedStr(searchKey) + ', ';
+  sql := sql + QuotedStr(execSource) + ')';
+
+  uq.Close;
+  uq.SQL.Text := sql;
+  uq.Execute;
+  uq.Close;
+
+  Result := True;
+end;
+
+function SetDetailAuditEntry(uq: TUniQuery; const entryId, title, auditType: string; auditList: TStringList) : Boolean;
+var
+  i: Integer;
+  sql: string;
+begin
+  for i := 0 to auditList.Count - 1 do
+  begin
+    sql := 'insert into auditdetail values (';
+    sql := sql + entryId + ', ';
+    sql := sql + QuotedStr( auditList.Names[i] ) + ', ';
+    sql := sql + QuotedStr( '' ) + ', ';
+    sql := sql + QuotedStr( auditList.ValueFromIndex[i] ) + ', ';
+    sql := sql + auditType + ')';
+
+    uq.Close;
+    uq.SQL.Text := sql;
+    uq.Execute;
+    uq.Close;
+  end;
+
+  Result := True;
+end;
+
+function GetOfficerName( agency, officer: string; uq: TUniQuery ): string;
+var
+  sql: string;
+begin
+  if agency.IsEmpty or officer.IsEmpty then
+    Exit;
+
+  sql :=  'select a.agency_id, p.agency, p.pf_nameid, pf_lname, pf_fname, pf_mi, pf_badge ';
+  sql := sql + 'from personnel p ';
+  sql := sql + 'join agencycodes a on a.agency = p.agency ';
+  sql := sql + 'where a.agency_id = ' + agency + ' and p.pf_nameid = ' + officer;
+
+  uq.Close;
+  uq.SQL.Text := sql;
+  uq.Open;
+
+  if uq.IsEmpty then
+    Result := agency + '-' + officer + ': not found'
+  else
+  begin
+    Result := uq.FieldByName('pf_lname').AsString + ', ' + uq.FieldByName('pf_fname').AsString;
+    Result := Result + ' ' + uq.FieldByName('pf_mi').AsString + ' (' + uq.FieldByName('pf_badge').AsString + ')';
+  end;
+end;
+
+function GetRiciOfficerName( agency, officer: string; uq: TUniQuery ): string;
+var
+  sql: string;
+begin
+  if agency.IsEmpty or officer.IsEmpty then
+    Exit;
+
+  sql :=  'select * from rici.officer@rici_link where agency = ' + agency + ' and empno = ' + QuotedStr(officer);
+
+  uq.Close;
+  uq.SQL.Text := sql;
+  uq.Open;
+
+  if uq.IsEmpty then
+    Result := agency + '-' + officer + ': not found'
+  else
+    Result := uq.FieldByName('surname').AsString + ', ' + uq.FieldByName('given1').AsString + ' (' + uq.FieldByName('empno').AsString + ')';
+end;
+
+end.

kgOrdersServer/kgOrdersServer.dpr

+program kgOrdersServer;
+
+uses
+  System.SyncObjs,
+  System.SysUtils,
+  Vcl.StdCtrls,
+  IniFiles,
+  Vcl.Forms,
+  Api.Server.Module in 'Source\Api.Server.Module.pas' {ApiServerModule: TDataModule},
+  Main in 'Source\Main.pas' {FMain},
+  Common.Logging in 'Source\Common.Logging.pas',
+  Database in 'Source\Database.pas' {FDatabaseModule: TDataModule},
+  Common.Middleware.Logging in 'Source\Common.Middleware.Logging.pas',
+  Common.Config in 'Source\Common.Config.pas',
+  Auth.Server.Module in 'Source\Auth.Server.Module.pas' {AuthServerModule: TDataModule},
+  Auth.Database in 'Source\Auth.Database.pas' {AuthDatabase: TDataModule},
+  uLibrary in 'Source\uLibrary.pas',
+  Auth.Service in 'Source\Auth.Service.pas',
+  Lookup.Service in 'Source\Lookup.Service.pas',
+  Auth.ServiceImpl in 'Source\Auth.ServiceImpl.pas',
+  Lookup.ServiceImpl in 'Source\Lookup.ServiceImpl.pas',
+  App.Server.Module in 'Source\App.Server.Module.pas' {AppServerModule: TDataModule},
+  Data in 'Source\Data.pas' {FData};
+
+type
+  TMemoLogAppender = class( TInterfacedObject, ILogAppender )
+  private
+    FLogLevel: Integer;
+    FLogMemo: TMemo;
+    FCriticalSection: TCriticalSection;
+  public
+    constructor Create(ALogLevel: Integer; ALogMemo: TMemo);
+    destructor Destroy; override;
+    procedure Send(logLevel: Integer; Log: ILog);
+  end;
+
+  TFileLogAppender = class( TInterfacedObject, ILogAppender )
+  private
+    FLogLevel: Integer;
+    FFilename: string;
+    FCriticalSection: TCriticalSection;
+  public
+    constructor Create(ALogLevel: Integer; AFilename: string);
+    destructor Destroy; override;
+    procedure Send(logLevel: Integer; Log: ILog);
+  end;
+
+{ TMemoLogAppender }
+constructor TMemoLogAppender.Create(ALogLevel: Integer; ALogMemo: TMemo);
+begin
+  FLogLevel := ALogLevel;
+  FLogMemo := ALogMemo;
+  FCriticalSection := TCriticalSection.Create;
+end;
+
+destructor TMemoLogAppender.Destroy;
+begin
+  FCriticalSection.Free;
+  inherited;
+end;
+
+procedure TMemoLogAppender.Send(logLevel: Integer; Log: ILog);
+var
+  FormattedMessage: string;
+  LogTime: TDateTime;
+  LogMsg: string;
+
+begin
+  FCriticalSection.Acquire;
+  try
+    LogTime := Now;
+
+    FormattedMessage := FormatDateTime('[yyyy-mm-dd HH:nn:ss.zzz]', LogTime);
+    LogMsg := Log.GetMessage;
+    if LogMsg.IsEmpty then
+      FormattedMessage := ''
+    else
+      FormattedMessage := FormattedMessage + '[' + IntToStr(logLevel) +'] ' + LogMsg;
+
+    if logLevel <= FLogLevel then
+      FLogMemo.Lines.Add( FormattedMessage );
+  finally
+    FCriticalSection.Release;
+  end;
+end;
+
+{ TFileLogAppender }
+constructor TFileLogAppender.Create(ALogLevel: integer; AFilename: string);
+var
+  iniFile: TIniFile;
+  fileNum: integer;
+begin
+  FLogLevel := ALogLevel;
+  FCriticalSection := TCriticalSection.Create;
+  IniFile := TIniFile.Create( ChangeFileExt( Application.ExeName, '.ini' ) );
+  try
+    fileNum := IniFile.ReadInteger( 'Options', 'LogFileNum', 0 );
+//    FFilename := AFilename + Format('%.*d',[4, fileNum]);
+    FFilename := AFilename + Format('%.4d',[fileNum]);
+    iniFile.WriteInteger( 'Options', 'LogFileNum', fileNum + 1 );
+  finally
+    iniFile.Free;
+  end;
+end;
+
+destructor TFileLogAppender.Destroy;
+begin
+  FCriticalSection.Free;
+  inherited;
+end;
+
+procedure TFileLogAppender.Send(logLevel: integer; Log: ILog);
+var
+  FormattedMessage: string;
+  LogFile: string;
+  LogTime: TDateTime;
+  LogMsg: string;
+  FLogFile: TextFile;
+
+begin
+  FCriticalSection.Acquire;
+  try
+    LogTime := Now;
+    LogFile := ExtractFilePath(Application.ExeName) + FFilename + '.log';
+
+    FormattedMessage := FormatDateTime('[yyyy-mm-dd HH:nn:ss.zzz]', LogTime);
+    LogMsg := Log.GetMessage;
+    if LogMsg.IsEmpty then
+      FormattedMessage := ''
+    else
+      FormattedMessage := FormattedMessage + '[' + IntToStr(logLevel) +'] ' + LogMsg;
+
+    try
+      AssignFile( FLogFile, LogFile );
+      if logLevel <= FLogLevel then
+      begin
+        if FileExists(LogFile) then
+          Append( FLogFile )
+        else
+          ReWrite( FLogFile );
+        WriteLn( FLogFile, FormattedMessage );
+      end;
+    finally
+      CloseFile(FLogFile);
+    end;
+  finally
+    FCriticalSection.Release;
+  end;
+end;
+
+{$R *.res}
+
+begin
+  ReportMemoryLeaksOnShutdown := True;
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TFMain, FMain);
+  Logger.AddAppender(TMemoLogAppender.Create( 5, FMain.memoinfo ));
+  Logger.AddAppender(TFileLogAppender.Create( 5, 'envoyCallsServer' ));
+  Application.Run;
+end.

kgOrdersServer/kgOrdersServer.dproj

+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{2A3028D9-BC39-4625-9BA5-0338012E2824}</ProjectGuid>
+        <ProjectVersion>20.1</ProjectVersion>
+        <FrameworkType>VCL</FrameworkType>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>3</TargetedPlatforms>
+        <AppType>Application</AppType>
+        <MainSource>kgOrdersServer.dpr</MainSource>
+        <ProjectName Condition="'$(ProjectName)'==''">kgOrdersServer</ProjectName>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
+        <Cfg_1_Win64>true</Cfg_1_Win64>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
+        <Cfg_2_Win64>true</Cfg_2_Win64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+        <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
+        <SanitizedProjectName>kgOrdersServer</SanitizedProjectName>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_UsePackage>gtFRExpD28;vclwinx;dacvcl280;FlexCel_Report;fmx;PKIEDB28;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;FireDACCommonODBC;aurelius;TMSCloudPkgDEDXE14;FireDACCommonDriver;sparkle;appanalytics;IndyProtocols;vclx;TatukGIS_DK11_RX11_VCL;FMXTMSFNCMapsPkgDXE14;IndyIPClient;dbxcds;vcledge;dac280;frxe28;bindcompvclwinx;gtScaleRichVwExpD28;VCLTMSFNCUIPackPkgDXE14;gtXPressExpD28;unidac280;gtPDFkitD11ProP;FlexCel_Pdf;bindcompfmx;AdvChartDEDXE14;madBasic_;VCLTMSFNCDashboardPackPkgDXE14;SKIA_FlexCel_Core;TMSVCLUIPackPkgDXE14;inetdb;TatukGIS_DK11_RX11_FMX;AcroPDF;TatukGIS_DK11_RX11;FireDACSqliteDriver;DbxClientDriver;soapmidas;vclCryptoPressStreamD28;vclactnband;gtRBExpD28;fmxFireDAC;dbexpress;DBXMySQLDriver;VclSmp;inet;unidacvcl280;dacfmx280;SigPlus;fcstudiowin;vcltouch;fmxase;VCLTMSFNCMapsPkgDXE14;ipstudiowin;TMSWEBCorePkgLibDXE14;frx28;dbrtl;QRWRunDXE11_w64;TMSWEBCorePkgDXE14;fmxdae;addict4_d28;FlexCel_XlsAdapter;gtAdvGridExpD28;FireDACMSAccDriver;VCL_FlexCel_Core;CustomIPTransport;tmsbcl;ipstudiowinwordxp;gtDocEngD28;gtRaveExpD28;FMXTMSFNCDashboardPackPkgDXE14;vcldsnap;madExcept_;DBXInterBaseDriver;frxDB28;IndySystem;ipstudiowinclient;VCLTMSFNCCorePkgDXE14;vcldb;CamRemoteD11;FMXTMSFNCUIPackPkgDXE14;TMSCloudPkgDXE14;gtQRExpD28;VirtualTreesR;WPViewPDF_RT;FlexCel_Core;vclFireDAC;vquery280;madDisAsm_;bindcomp;FireDACCommon;FlexCel_Render;unidacfmx280;FMXTMSFNCCorePkgDXE14;IndyCore;RESTBackendComponents;gtACEExpD28;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;VCL_FlexCel_Components;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;adortl;TMSVCLUIPackPkgExDXE14;WPViewPDF_DT;TMSVCLUIPackPkgWizDXE14;gtHtmVwExpD28;AdvChartDXE14;gtRichVwExpD28;vclimg;FireDACPgDriver;FireDAC;inetdbxpress;TMSVCLUIPackPkgXlsDXE14;xmlrtl;tethering;PKIECtrl28;crcontrols280;bindcompvcl;dsnap;xdata;CloudService;fmxobj;bindcompvclsmp;addict4db_d28;CEF4Delphi;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>vclwinx;FlexCel_Report;fmx;PKIEDB28;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;FireDACCommonODBC;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;FMXTMSFNCMapsPkgDXE14;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;VCLTMSFNCUIPackPkgDXE14;FlexCel_Pdf;bindcompfmx;VCLTMSFNCDashboardPackPkgDXE14;TMSVCLUIPackPkgDXE14;inetdb;FireDACSqliteDriver;DbxClientDriver;soapmidas;vclactnband;fmxFireDAC;dbexpress;DBXMySQLDriver;VclSmp;inet;fcstudiowin;vcltouch;fmxase;VCLTMSFNCMapsPkgDXE14;ipstudiowin;dbrtl;QRWRunDXE11_w64;fmxdae;FlexCel_XlsAdapter;FireDACMSAccDriver;VCL_FlexCel_Core;CustomIPTransport;vcldsnap;DBXInterBaseDriver;IndySystem;ipstudiowinclient;VCLTMSFNCCorePkgDXE14;vcldb;CamRemoteD11;FMXTMSFNCUIPackPkgDXE14;VirtualTreesR;WPViewPDF_RT;FlexCel_Core;vclFireDAC;bindcomp;FireDACCommon;FlexCel_Render;FMXTMSFNCCorePkgDXE14;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;VCL_FlexCel_Components;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;adortl;TMSVCLUIPackPkgExDXE14;AdvChartDXE14;vclimg;FireDACPgDriver;FireDAC;inetdbxpress;TMSVCLUIPackPkgXlsDXE14;xmlrtl;tethering;PKIECtrl28;bindcompvcl;dsnap;CloudService;fmxobj;bindcompvclsmp;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+        <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+        <DCC_RangeChecking>true</DCC_RangeChecking>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_ExeOutput>.</DCC_ExeOutput>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="Source\Api.Server.Module.pas">
+            <Form>ApiServerModule</Form>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="Source\Main.pas">
+            <Form>FMain</Form>
+        </DCCReference>
+        <DCCReference Include="Source\Common.Logging.pas"/>
+        <DCCReference Include="Source\Database.pas">
+            <Form>FDatabaseModule</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="Source\Common.Middleware.Logging.pas"/>
+        <DCCReference Include="Source\Common.Config.pas"/>
+        <DCCReference Include="Source\Auth.Server.Module.pas">
+            <Form>AuthServerModule</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="Source\Auth.Database.pas">
+            <Form>AuthDatabase</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="Source\uLibrary.pas"/>
+        <DCCReference Include="Source\Auth.Service.pas"/>
+        <DCCReference Include="Source\Lookup.Service.pas"/>
+        <DCCReference Include="Source\Auth.ServiceImpl.pas"/>
+        <DCCReference Include="Source\Lookup.ServiceImpl.pas"/>
+        <DCCReference Include="Source\App.Server.Module.pas">
+            <Form>AppServerModule</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="Source\Data.pas">
+            <Form>FData</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">kgOrdersServer.dpr</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp290.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Deployment Version="4">
+                <DeployFile LocalName="kgOrdersServer.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>kgOrdersServer.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClasses">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidFileProvider">
+                    <Platform Name="Android">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiv7aFile">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDefV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV31">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v26</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v26</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconBackground">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconForeground">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconMonochrome">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_AdaptiveIconV33">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v33</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v33</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Colors">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_ColorsDark">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-night-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-night-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon192">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon24">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Strings">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedNotificationIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v24</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v24</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplash">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplashDark">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplashV31">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_VectorizedSplashV31Dark">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXDebug">
+                    <Platform Name="OSX64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXEntitlements">
+                    <Platform Name="OSX32">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXInfoPList">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Linux64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSXARM64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectUWPManifest">
+                    <Platform Name="Win32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64x">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSInfoPList">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSLaunchScreen">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
+                        <Operation>64</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo150">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo44">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iOS_AppStore1024">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_AppIcon152">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_AppIcon167">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_LaunchDark2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Notification40">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Setting58">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_SpotLight80">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_AppIcon120">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_AppIcon180">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch3x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_LaunchDark2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_LaunchDark3x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Notification40">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Notification60">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Setting58">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Setting87">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Spotlight120">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Spotlight80">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimARM64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimARM64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
+            </Deployment>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">True</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

kgOrdersServer/kgOrdersServer.ini

+[Options]
+
+LogFileNum=15
+
+UpdateTimerLength=0
+
+[Database]
+Server=192.168.159.132
+--Server=192.168.102.129
+
+[Twilio]
+AccountSID=AC37aeef9c36a2cccbaecbadafc172b2ff
+AuthHeader=Basic QUMzN2FlZWY5YzM2YTJjY2NiYWVjYmFkYWZjMTcyYjJmZjo5NzM5OTAwYTgyZmRlNjVlMzI2ODFmZjVmMmI5ZGZjZgo=