Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
K
kgOrders
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Cam Hayes
kgOrders
Commits
6c810f28
Commit
6c810f28
authored
Jun 15, 2026
by
Elias Sarraf
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
ver 0.9.15.6 debugging
parent
baa3b955
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
16 additions
and
10 deletions
+16
-10
ConnectionModule.pas
kgOrdersClient/ConnectionModule.pas
+1
-1
View.Items.pas
kgOrdersClient/View.Items.pas
+8
-1
View.Main.dfm
kgOrdersClient/View.Main.dfm
+1
-0
config.json
kgOrdersClient/config/config.json
+2
-3
kgOrdersServer - Copy.ini
kgOrdersServer/bin/kgOrdersServer - Copy.ini
+1
-2
kgOrdersServer.dpr
kgOrdersServer/kgOrdersServer.dpr
+1
-1
kgOrdersServer.dproj
kgOrdersServer/kgOrdersServer.dproj
+2
-2
No files found.
kgOrdersClient/ConnectionModule.pas
View file @
6c810f28
...
@@ -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
);
...
...
kgOrdersClient/View.Items.pas
View file @
6c810f28
...
@@ -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'
);
...
...
kgOrdersClient/View.Main.dfm
View file @
6c810f28
...
@@ -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
...
...
kgOrdersClient/config/config.json
View file @
6c810f28
{
{
"AuthUrl"
:
"http
://localhost:2001/emsys
/kgOrders/auth/"
,
"AuthUrl"
:
"http
s://webapps.em-sys.net
/kgOrders/auth/"
,
"ApiUrl"
:
"http
://localhost:2001/emsys
/kgOrders/api/"
"ApiUrl"
:
"http
s://webapps.em-sys.net
/kgOrders/api/"
}
}
kgOrdersServer/bin/kgOrdersServer - Copy.ini
View file @
6c810f28
...
@@ -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
...
...
kgOrdersServer/kgOrdersServer.dpr
View file @
6c810f28
...
@@ -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, '
emT3XData
Server', iniEntries.logFileNum) );
Logger.AddAppender( TFileLogAppender.Create(iniEntries.fileLogLevel, '
kgOrders
Server', iniEntries.logFileNum) );
Logger.Log( 1, '*******************************************************' );
Logger.Log( 1, '*******************************************************' );
Logger.Log( 1, '* kgOrdersServer *' );
Logger.Log( 1, '* kgOrdersServer *' );
...
...
kgOrdersServer/kgOrdersServer.dproj
View file @
6c810f28
...
@@ -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>
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment