Version 0.9.13.9 test deployed

kgOrdersClient/ConnectionModule.pas

@@ -19,7 +19,7 @@ type
     FUnauthorizedAccessProc: TUnauthorizedAccessProc;
 
   public
-    const clientVersion = '0.9.13.8';
+    const clientVersion = '0.9.13.9';
     procedure InitApp(SuccessProc: TSuccessProc;
       UnauthorizedAccessProc: TUnauthorizedAccessProc);
     procedure SetClientConfig(Callback: TVersionCheckCallback);

kgOrdersClient/View.QBInfo.dfm

 object FQBInfo: TFQBInfo
   Width = 449
-  Height = 157
+  Height = 191
   OnCreate = WebFormCreate
   OnShow = WebFormShow
   object lblConnected: TWebLabel
@@ -33,8 +33,8 @@ object FQBInfo: TFQBInfo
     WidthPercent = 100.000000000000000000
   end
   object lblCompanyID: TWebLabel
-    Left = 16
-    Top = 76
+    Left = 15
+    Top = 73
     Width = 93
     Height = 21
     Caption = 'Company ID: '
@@ -47,16 +47,42 @@ object FQBInfo: TFQBInfo
     ParentFont = False
     WidthPercent = 100.000000000000000000
   end
-  object WebButton1: TWebButton
+  object lblLastRefresh: TWebLabel
+    Left = 16
+    Top = 100
+    Width = 92
+    Height = 21
+    Caption = 'Last Refresh: '
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    HeightPercent = 100.000000000000000000
+    ParentFont = False
+    WidthPercent = 100.000000000000000000
+  end
+  object btnLinkToQB: TWebButton
     Left = 13
-    Top = 107
+    Top = 137
     Width = 96
     Height = 25
     Caption = 'Link to QB'
     ChildOrder = 3
     HeightPercent = 100.000000000000000000
     WidthPercent = 100.000000000000000000
-    OnClick = WebButton1Click
+    OnClick = btnLinkToQBClick
+  end
+  object btnClose: TWebButton
+    Left = 115
+    Top = 137
+    Width = 96
+    Height = 25
+    Caption = 'Close'
+    ChildOrder = 3
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = btnCloseClick
   end
   object XDataWebClient1: TXDataWebClient
     Connection = DMConnection.ApiConnection

kgOrdersClient/View.QBInfo.pas

@@ -12,11 +12,14 @@ type
     lblConnected: TWebLabel;
     lblCompanyName: TWebLabel;
     lblCompanyID: TWebLabel;
-    WebButton1: TWebButton;
+    btnLinkToQB: TWebButton;
     XDataWebClient1: TXDataWebClient;
-    procedure WebButton1Click(Sender: TObject);
+    lblLastRefresh: TWebLabel;
+    btnClose: TWebButton;
+    procedure btnLinkToQBClick(Sender: TObject);
     procedure WebFormCreate(Sender: TObject);
     procedure WebFormShow(Sender: TObject);
+    procedure btnCloseClick(Sender: TObject);
   private
     { Private declarations }
     ClientID: string;
@@ -34,7 +37,7 @@ implementation
 
 uses View.Main, Utils;
 
-procedure TFQBInfo.WebButton1Click(Sender: TObject);
+procedure TFQBInfo.btnLinkToQBClick(Sender: TObject);
 var
   qblink, redirectUri: string;
   qbWindow: TJSWindow;
@@ -68,6 +71,11 @@ begin
   GetQBInfo();
 end;
 
+procedure TFQBInfo.btnCloseClick(Sender: TObject);
+begin
+  Close();
+end;
+
 procedure TFQBInfo.GetQBInfo();
 // retrieves customer list from server
 var
@@ -84,7 +92,8 @@ begin
     begin
       lblCompanyName.Caption := lblCompanyName.Caption + String(QBInfo['CompanyName']);
       lblCompanyID.Caption := lblCompanyID.Caption + String(QBInfo['CompanyID']);
-      lblConnected.Caption := 'QuickBooks is connected.'
+      lblConnected.Caption := 'QuickBooks is connected.';
+      lblLastRefresh.Caption := lblLastRefresh.Caption + String(QBInfo['LastRefresh']);
     end
     else
       lblConnected.Caption := 'Quickbooks is not connected.';

kgOrdersServer/Source/Lookup.Service.pas

@@ -26,6 +26,7 @@ type
     CompanyName: string;
     CompanyID: string;
     connected: boolean;
+    LastRefresh: string;
   end;
 
   TUserItem = class

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -162,6 +162,7 @@ begin
         result.CompanyName := CompanyInfo.GetValue('CompanyName').Value;
         result.CompanyID := CompanyID;
         result.connected := true;
+        result.LastRefresh := iniFile.ReadString('Quickbooks', 'LastRefresh', '');
       end;
     except
       on E: Exception do

kgOrdersServer/kgOrdersServer.dproj

@@ -114,11 +114,11 @@
         <VerInfo_Locale>1033</VerInfo_Locale>
         <DCC_ExeOutput>.\bin</DCC_ExeOutput>
         <DCC_UnitSearchPath>C:\RADTOOLS\FastMM4;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
-        <VerInfo_Keys>CompanyName=EM Systems;FileDescription=$(MSBuildProjectName);FileVersion=0.9.13.8;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.11;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=EM Systems;FileDescription=$(MSBuildProjectName);FileVersion=0.9.13.9;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.11;Comments=</VerInfo_Keys>
         <VerInfo_MajorVer>0</VerInfo_MajorVer>
         <VerInfo_MinorVer>9</VerInfo_MinorVer>
         <VerInfo_Release>13</VerInfo_Release>
-        <VerInfo_Build>8</VerInfo_Build>
+        <VerInfo_Build>9</VerInfo_Build>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>