program webKGOrders;

uses
  Vcl.Forms,
  XData.Web.Connection,
  WEBLib.Dialogs,
  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.ErrorPage in 'View.ErrorPage.pas' {FViewErrorPage: TWebForm} {*.html},
  App.Config in 'App.Config.pas',
  Paginator.Plugins in 'Paginator.Plugins.pas',
  View.Items in 'View.Items.pas' {FViewItems: TWebForm} {*.html},
  View.Main in 'View.Main.pas' {FViewMain: TWebForm} {*.html},
  View.Home in 'View.Home.pas' {FViewHome: TWebForm} {*.html},
  View.Users in 'View.Users.pas' {FViewUsers: TWebForm} {*.html},
  View.User.Add in 'View.User.Add.pas' {FViewEditUser: TWebForm} {*.html},
  View.Orders in 'View.Orders.pas' {FViewOrders: TWebForm} {*.html},
  View.OrderEntryCorrugated in 'View.OrderEntryCorrugated.pas' {FOrderEntryCorrugated: TWebForm} {*.html},
  View.Order.Add in 'View.Order.Add.pas' {FAddOrder: TWebForm} {*.html},
  View.Search in 'View.Search.pas' {FSearch: TWebForm} {*.html},
  View.SetStatus in 'View.SetStatus.pas' {FSetStatus: TWebForm} {*.html},
  View.OrderEntryCuttingDie in 'View.OrderEntryCuttingDie.pas' {FOrderEntryCuttingDie: TWebForm} {*.html},
  View.OrderEntryWeb in 'View.OrderEntryWeb.pas' {FOrderEntryWeb: TWebForm} {*.html},
  View.Customers in 'View.Customers.pas' {FViewCustomers: TWebForm} {*.html},
  View.Customer.Add in 'View.Customer.Add.pas' {FViewAddCustomer: TWebForm} {*.html},
  View.Address.Add in 'View.Address.Add.pas' {FViewAddAddress: TWebForm} {*.html},
  View.Customer.Select in 'View.Customer.Select.pas' {FSelectCustomer: TWebForm} {*.html},
  Utils in 'Utils.pas',
  View.Item.Add in 'View.Item.Add.pas' {fViewAddItem: TWebForm} {*.html},
  View.QBInfo in 'View.QBInfo.pas' {FQBInfo: 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
  if Pos('JWT', AMessage) > 0 then
    DisplayLoginView('Login token expired! Please login again')
  else
    DisplayLoginView(AMessage);
end;


procedure StartApplication;
var
  ClientVer: string;
begin
  ClientVer := TDMConnection.clientVersion;
  DMConnection.InitApp(
    procedure
    begin
      DMConnection.SetClientConfig(
        procedure(Success: Boolean; ErrorMessage: string)
        begin
          if Success then
          begin
            if (not AuthService.Authenticated) or AuthService.TokenExpired then
              DisplayLoginView
            else
              DisplayMainView;
          end
          else
          begin
//            asm
//              var dlg = document.createElement("dialog");
//              dlg.classList.add("shadow", "rounded", "border", "p-4");
//              dlg.style.maxWidth = "500px";
//              dlg.style.width = "90%";
//              dlg.style.fontFamily = "system-ui, sans-serif";
//
//              dlg.innerHTML =
//                "<h5 class='fw-bold mb-3 text-danger'>kgOrders web app</h5>" +
//                "<p class='mb-3' style='white-space: pre-wrap;'>" + ErrorMessage + "</p>" +
//                "<div class='text-end'>" +
//                "<button id='refreshBtn' class='btn btn-primary'>Reload</button></div>";
//
//              document.body.appendChild(dlg);
//              dlg.showModal();
//
//              document.getElementById("refreshBtn").addEventListener("click", function () {
//                var base = location.origin + location.pathname;
//                location.replace(base + "?ver=" + ClientVer + "&r=" + Date.now() + location.hash);
//              });
//            end;
            if Pos('version', ErrorMessage) > 0 then
              ShowMessage( ErrorMessage )
            else
              ShowMessage( 'Error connecting to kgOrdersServer' + sLineBreak + 'Please contact EM Systems support' );
          end;
        end);
    end,
    @UnauthorizedAccessProc
  );
end;


begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDMConnection, DMConnection);
  StartApplication;
  Application.Run;
end.

