Commit 6c810f28 by Elias Sarraf

ver 0.9.15.6 debugging

parent baa3b955
...@@ -19,7 +19,7 @@ type ...@@ -19,7 +19,7 @@ type
FUnauthorizedAccessProc: TUnauthorizedAccessProc; FUnauthorizedAccessProc: TUnauthorizedAccessProc;
public public
const clientVersion = '0.9.15.5'; const clientVersion = '0.9.15.6';
procedure InitApp(SuccessProc: TSuccessProc; procedure InitApp(SuccessProc: TSuccessProc;
UnauthorizedAccessProc: TUnauthorizedAccessProc); UnauthorizedAccessProc: TUnauthorizedAccessProc);
procedure SetClientConfig(Callback: TVersionCheckCallback); procedure SetClientConfig(Callback: TVersionCheckCallback);
......
...@@ -571,12 +571,19 @@ begin ...@@ -571,12 +571,19 @@ begin
xdwdsItemsstatus.AsString := string(item['status']); xdwdsItemsstatus.AsString := string(item['status']);
xdwdsItemsQB_ID.AsString := string(item['QB_ID']); xdwdsItemsQB_ID.AsString := string(item['QB_ID']);
if string(item['QB_ID']) <> xdwdsItemsQB_ID.AsString then
begin
change := true;
end;
xdwdsItemsQB_ID.AsString := string(item['QB_ID']);
xdwdsItems.Post; xdwdsItems.Post;
Utils.HideSpinner('spinner'); Utils.HideSpinner('spinner');
if change then if change then
begin begin
EditMode; EditMode;
ShowToast('Changes have been highlighted'); ShowToast('Item updated based on QuickBooks data');
end end
else else
ShowToast('No Changes needed'); ShowToast('No Changes needed');
......
...@@ -154,6 +154,7 @@ object FViewMain: TFViewMain ...@@ -154,6 +154,7 @@ object FViewMain: TFViewMain
HeightStyle = ssAuto HeightStyle = ssAuto
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
ParentFont = False ParentFont = False
Visible = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end end
object WebPanel1: TWebPanel object WebPanel1: TWebPanel
......
{ {
"AuthUrl" : "http://localhost:2001/emsys/kgOrders/auth/", "AuthUrl" : "https://webapps.em-sys.net/kgOrders/auth/",
"ApiUrl" : "http://localhost:2001/emsys/kgOrders/api/" "ApiUrl" : "https://webapps.em-sys.net/kgOrders/api/"
} }
...@@ -15,7 +15,6 @@ Server=192.168.159.10 ...@@ -15,7 +15,6 @@ Server=192.168.159.10
--Password=emsys!012 --Password=emsys!012
[Quickbooks] [Quickbooks]
Enabled=1
CompanyID=9341454336461805 CompanyID=9341454336461805
--BaseUrl=https://sandbox-quickbooks.api.intuit.com --BaseUrl=https://sandbox-quickbooks.api.intuit.com
--ClientID=ABYqlDx1EsacZYXvHIJ7RDB7zmnQdwABU3fwQLIZPmBgU0VW1P --ClientID=ABYqlDx1EsacZYXvHIJ7RDB7zmnQdwABU3fwQLIZPmBgU0VW1P
...@@ -25,7 +24,7 @@ CompanyID=9341454336461805 ...@@ -25,7 +24,7 @@ CompanyID=9341454336461805
BaseUrl=https://quickbooks.api.intuit.com/v3 BaseUrl=https://quickbooks.api.intuit.com/v3
ClientID=ABXLUuBrwvodIZMtaPcBg9acYBPafUxP80qk5aQ9HOAw1i2W3s ClientID=ABXLUuBrwvodIZMtaPcBg9acYBPafUxP80qk5aQ9HOAw1i2W3s
ClientSecret=a0DSQZdXH1FRTAFhpp2igeNFKxu7kPlzt0az7nbQ ClientSecret=a0DSQZdXH1FRTAFhpp2igeNFKxu7kPlzt0az7nbQ
RedirectUri=https://webapps.em-sys.net/kgOrdersTest/auth/AuthService/QBAuthorize RedirectUri=https://stage.em-sys.net/kgOrdersTest/auth/AuthService/QBAuthorize
RefreshToken=RT1-143-H0-1783193667426ef30b5u81echlyi4h RefreshToken=RT1-143-H0-1783193667426ef30b5u81echlyi4h
......
...@@ -166,7 +166,7 @@ begin ...@@ -166,7 +166,7 @@ begin
iniFile := TIniFile.Create( iniFilename ); iniFile := TIniFile.Create( iniFilename );
try try
Logger.AddAppender( TMemoLogAppender.Create(iniEntries.memoLogLevel, FMain.memoinfo) ); Logger.AddAppender( TMemoLogAppender.Create(iniEntries.memoLogLevel, FMain.memoinfo) );
Logger.AddAppender( TFileLogAppender.Create(iniEntries.fileLogLevel, 'emT3XDataServer', iniEntries.logFileNum) ); Logger.AddAppender( TFileLogAppender.Create(iniEntries.fileLogLevel, 'kgOrdersServer', iniEntries.logFileNum) );
Logger.Log( 1, '*******************************************************' ); Logger.Log( 1, '*******************************************************' );
Logger.Log( 1, '* kgOrdersServer *' ); Logger.Log( 1, '* kgOrdersServer *' );
......
...@@ -114,11 +114,11 @@ ...@@ -114,11 +114,11 @@
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<DCC_ExeOutput>.\bin</DCC_ExeOutput> <DCC_ExeOutput>.\bin</DCC_ExeOutput>
<DCC_UnitSearchPath>C:\RADTOOLS\FastMM4;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> <DCC_UnitSearchPath>C:\RADTOOLS\FastMM4;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<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_Keys>CompanyName=EM Systems;FileDescription=$(MSBuildProjectName);FileVersion=0.9.15.6;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.11;Comments=</VerInfo_Keys>
<VerInfo_MajorVer>0</VerInfo_MajorVer> <VerInfo_MajorVer>0</VerInfo_MajorVer>
<VerInfo_MinorVer>9</VerInfo_MinorVer> <VerInfo_MinorVer>9</VerInfo_MinorVer>
<VerInfo_Release>15</VerInfo_Release> <VerInfo_Release>15</VerInfo_Release>
<VerInfo_Build>4</VerInfo_Build> <VerInfo_Build>6</VerInfo_Build>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''"> <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> <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