Skip to content

K
kgOrders
Commit 353f7590 by Cam Hayes
Options

Add logs into the server

parent 7e3b07ca
Showing with 42 additions and 3 deletions
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>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment