Add logs into the server

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -134,11 +134,20 @@ begin
           RefreshAccessToken();
 
         Client := iniFile.ReadString('Quickbooks', 'ClientID', '');
+        logger.Log(5, 'Quickbooks.ClientID: ' + Client);
+
         Secret := iniFile.ReadString('Quickbooks', 'ClientSecret', '');
+        logger.Log(5, 'Quickbooks.ClientSecret: ' + Secret);
+
         CompanyID := iniFile.ReadString('Quickbooks', 'CompanyID', '');
+        logger.Log(5, 'Quickbooks.CompanyID: ' + CompanyID);
+
         RefreshToken := iniFile.ReadString('Quickbooks', 'RefreshToken', '');
+        logger.Log(5, 'Quickbooks.RefreshToken: ' + RefreshToken);
+
         AccessToken := iniFile.ReadString('Quickbooks', 'AccessToken', '');
         BaseUrl := iniFile.ReadString('Quickbooks', 'BaseUrl', '');
+        logger.Log(5, 'Quickbooks.BaseUrl: ' + BaseUrl);
 
         restClient.BaseURL := BaseUrl;
 
@@ -153,7 +162,7 @@ begin
         param.Value := 'Bearer ' + AccessToken;
 
         restRequest.Execute;
-
+        logger.Log(5, 'TLookupService.GetQBInfo - Raw Response: ' + restResponse.Content);
         jsValue := restResponse.JSONValue;
         jsObj := TJSONObject(jsValue);
         CompanyInfoList := TJSONArray(TJSONObject(jsObj.GetValue('QueryResponse')).GetValue('CompanyInfo'));
@@ -2909,10 +2918,20 @@ begin
         RefreshAccessToken();
 
       Client := iniFile.ReadString('Quickbooks', 'ClientID', '');
+      logger.Log(5, 'Quickbooks.ClientID: ' + Client);
+
       Secret := iniFile.ReadString('Quickbooks', 'ClientSecret', '');
+      logger.Log(5, 'Quickbooks.ClientSecret: ' + Secret);
+
+      CompanyID := iniFile.ReadString('Quickbooks', 'CompanyID', '');
+      logger.Log(5, 'Quickbooks.CompanyID: ' + CompanyID);
+
       RefreshToken := iniFile.ReadString('Quickbooks', 'RefreshToken', '');
+      logger.Log(5, 'Quickbooks.RefreshToken: ' + RefreshToken);
+
       AccessToken := iniFile.ReadString('Quickbooks', 'AccessToken', '');
       BaseUrl := iniFile.ReadString('Quickbooks', 'BaseUrl', '');
+      logger.Log(5, 'Quickbooks.BaseUrl: ' + BaseUrl);
 
       restClient.BaseURL := BaseUrl;
       restRequest.Method := rmGET;
@@ -3062,10 +3081,20 @@ begin
         RefreshAccessToken();
 
       Client := iniFile.ReadString('Quickbooks', 'ClientID', '');
+      logger.Log(5, 'Quickbooks.ClientID: ' + Client);
+
       Secret := iniFile.ReadString('Quickbooks', 'ClientSecret', '');
+      logger.Log(5, 'Quickbooks.ClientSecret: ' + Secret);
+
+      CompanyID := iniFile.ReadString('Quickbooks', 'CompanyID', '');
+      logger.Log(5, 'Quickbooks.CompanyID: ' + CompanyID);
+
       RefreshToken := iniFile.ReadString('Quickbooks', 'RefreshToken', '');
+      logger.Log(5, 'Quickbooks.RefreshToken: ' + RefreshToken);
+
       AccessToken := iniFile.ReadString('Quickbooks', 'AccessToken', '');
       BaseUrl := iniFile.ReadString('Quickbooks', 'BaseUrl', '');
+      logger.Log(5, 'Quickbooks.BaseUrl: ' + BaseUrl);
 
       restClient.BaseURL := BaseUrl;
       restRequest.Method := rmGET;
@@ -3367,10 +3396,20 @@ begin
         RefreshAccessToken();
 
       Client := iniFile.ReadString('Quickbooks', 'ClientID', '');
+      logger.Log(5, 'Quickbooks.ClientID: ' + Client);
+
       Secret := iniFile.ReadString('Quickbooks', 'ClientSecret', '');
+      logger.Log(5, 'Quickbooks.ClientSecret: ' + Secret);
+
+      CompanyID := iniFile.ReadString('Quickbooks', 'CompanyID', '');
+      logger.Log(5, 'Quickbooks.CompanyID: ' + CompanyID);
+
       RefreshToken := iniFile.ReadString('Quickbooks', 'RefreshToken', '');
+      logger.Log(5, 'Quickbooks.RefreshToken: ' + RefreshToken);
+
       AccessToken := iniFile.ReadString('Quickbooks', 'AccessToken', '');
       BaseUrl := iniFile.ReadString('Quickbooks', 'BaseUrl', '');
+      logger.Log(5, 'Quickbooks.BaseUrl: ' + BaseUrl);
 
       restClient.BaseURL := BaseUrl;
 

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.15.3;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.15.4;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>15</VerInfo_Release>
-        <VerInfo_Build>3</VerInfo_Build>
+        <VerInfo_Build>4</VerInfo_Build>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>