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
c15c23b4
Commit
c15c23b4
authored
Nov 26, 2025
by
Cam Hayes
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor text changes
parent
f1dcb569
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
23 additions
and
25 deletions
+23
-25
View.Address.Add.dfm
kgOrdersClient/View.Address.Add.dfm
+3
-4
View.Login.dfm
kgOrdersClient/View.Login.dfm
+1
-1
View.Login.html
kgOrdersClient/View.Login.html
+3
-2
View.Main.pas
kgOrdersClient/View.Main.pas
+4
-4
View.OrderEntryCorrugated.html
kgOrdersClient/View.OrderEntryCorrugated.html
+3
-3
View.OrderEntryCuttingDie.html
kgOrdersClient/View.OrderEntryCuttingDie.html
+2
-2
View.OrderEntryWeb.html
kgOrdersClient/View.OrderEntryWeb.html
+2
-2
Lookup.ServiceImpl.pas
kgOrdersServer/Source/Lookup.ServiceImpl.pas
+2
-4
kgOrdersServer.ini
kgOrdersServer/bin/kgOrdersServer.ini
+3
-3
No files found.
kgOrdersClient/View.Address.Add.dfm
View file @
c15c23b4
object FViewAddAddress: TFViewAddAddress
Width = 281
Height = 402
TabOrder = 0
object WebLabel1: TWebLabel
Left = 8
Top = 283
...
...
@@ -120,10 +119,10 @@ object FViewAddAddress: TFViewAddAddress
Top = 8
Width = 198
Height = 22
TabStop = False
ChildOrder = 12
Enabled = False
HeightPercent = 100.000000000000000000
TabOrder = -1
WidthPercent = 100.000000000000000000
end
object btnSave: TWebButton
...
...
@@ -134,7 +133,7 @@ object FViewAddAddress: TFViewAddAddress
Caption = 'Save'
ChildOrder = 13
HeightPercent = 100.000000000000000000
Tab
Stop = False
Tab
Order = -1
WidthPercent = 100.000000000000000000
OnClick = btnSaveClick
end
...
...
@@ -146,7 +145,7 @@ object FViewAddAddress: TFViewAddAddress
Caption = 'Cancel'
ChildOrder = 13
HeightPercent = 100.000000000000000000
Tab
Stop = False
Tab
Order = -1
WidthPercent = 100.000000000000000000
OnClick = btnCancelClick
end
...
...
kgOrdersClient/View.Login.dfm
View file @
c15c23b4
...
...
@@ -46533,7 +46533,7 @@ object FViewLogin: TFViewLogin
Width = 72
Height = 13
Caption = 'lblClientVersion'
ElementID = '
lbl_client_
version'
ElementID = '
view.login.
version'
ElementFont = efCSS
ElementPosition = epRelative
HeightStyle = ssAuto
kgOrdersClient/View.Login.html
View file @
c15c23b4
<nav
class=
"navbar navbar-light bg-light login-navbar"
>
<div
class=
"container-fluid"
>
<a
class=
"navbar-brand"
href=
"#"
>
Koehler-Gibson Orders
</a>
<div
class=
"d-flex align-items-center"
>
<a
id=
"view.login.apptitle"
class=
"navbar-brand ps-2"
href=
"index.html"
>
Koehler-Gibson Orders
</a>
<span
id=
"view.login.version"
class=
"small text-muted ms-2"
></span>
</div>
</nav>
<div
class=
"container mt-5"
>
...
...
kgOrdersClient/View.Main.pas
View file @
c15c23b4
...
...
@@ -100,10 +100,9 @@ begin
lblCustomers
.
Enabled
:=
false
;
end
;
ShowForm
(
TFViewOrders
);
lblAppTitle
.
Caption
:=
'Koehler-Gibson Orders'
;
lblVersion
.
Caption
:=
'v'
+
DMConnection
.
clientVersion
;
ShowForm
(
TFViewOrders
);
setActive
(
'Orders'
);
end
;
...
...
@@ -126,8 +125,9 @@ procedure TFViewMain.lblHomeClick(Sender: TObject);
begin
if
(
not
(
change
)
)
then
begin
ShowForm
(
TFViewHome
);
lblAppTitle
.
Caption
:=
'Koehler-Gibson Home'
;
ShowToast
(
'Home page is not currently implemented'
,
'info'
);
//ShowForm(TFViewHome);
//lblAppTitle.Caption := 'Koehler-Gibson Home';
//setActive('Home');
end
else
...
...
kgOrdersClient/View.OrderEntryCorrugated.html
View file @
c15c23b4
...
...
@@ -97,14 +97,14 @@
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Quantity:
</label>
<input
id=
"edtquantity"
class=
"form-control input-sm"
style=
"width: 100px"
type=
"number"
min=
"1"
required
/>
<div
class=
"invalid-feedback"
style=
"font-size: 15px;"
required
>
Please Provide a Quantity.
Please Provide a
Valid
Quantity.
</div>
</div>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Price:
</label>
<input
id=
"edtprice"
class=
"form-control input-sm"
style=
"width: 100px"
type=
"number"
min=
"1"
required
/>
<div
class=
"invalid-feedback"
style=
"font-size: 15px;"
>
Please Provide a Price.
Please Provide a
Valid
Price.
</div>
</div>
<div>
...
...
@@ -358,7 +358,7 @@
</div>
<div
class=
"col-auto"
>
<input
type=
"checkbox"
id=
"cbartapprovedasis"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Art Approved As Is
:
</label>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Art Approved As Is
?
</label>
</div>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Approved Date:
</label>
...
...
kgOrdersClient/View.OrderEntryCuttingDie.html
View file @
c15c23b4
...
...
@@ -100,14 +100,14 @@
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Quantity:
</label>
<input
id=
"edtquantity"
class=
"form-control input-sm"
style=
"width: 100px"
type=
"number"
min=
"1"
required
/>
<div
class=
"invalid-feedback"
style=
"font-size: 15px;"
required
>
Please Provide a Quantity.
Please Provide a
Valid
Quantity.
</div>
</div>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Price:
</label>
<input
id=
"edtprice"
class=
"form-control input-sm"
style=
"width: 100px"
type=
"number"
min=
"1"
required
/>
<div
class=
"invalid-feedback"
style=
"font-size: 15px;"
>
Please Provide a Price.
Please Provide a
Valid
Price.
</div>
</div>
<div>
...
...
kgOrdersClient/View.OrderEntryWeb.html
View file @
c15c23b4
...
...
@@ -97,14 +97,14 @@
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Quantity:
</label>
<input
id=
"edtquantity"
class=
"form-control input-sm"
style=
"width: 100px"
type=
"number"
min=
"1"
required
/>
<div
class=
"invalid-feedback"
style=
"font-size: 15px;"
required
>
Please Provide a Quantity.
Please Provide a
Valid
Quantity.
</div>
</div>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Price:
</label>
<input
id=
"edtprice"
class=
"form-control input-sm"
style=
"width: 100px"
type=
"number"
min=
"1"
required
/>
<div
class=
"invalid-feedback"
style=
"font-size: 15px;"
>
Please Provide a Price.
Please Provide a
Valid
Price.
</div>
</div>
<div>
...
...
kgOrdersServer/Source/Lookup.ServiceImpl.pas
View file @
c15c23b4
...
...
@@ -1784,8 +1784,7 @@ begin
ordersDB
.
UniQuery1
.
FieldByName
(
'STATUS'
).
AsString
:=
'INACTIVE'
end
;
if
not
email
.
IsEmpty
then
ordersDB
.
UniQuery1
.
FieldByName
(
'EMAIL'
).
AsString
:=
email
;
ordersDB
.
UniQuery1
.
FieldByName
(
'EMAIL'
).
AsString
:=
email
;
if
not
access
.
IsEmpty
then
ordersDB
.
UniQuery1
.
FieldByName
(
'ACCESS_TYPE'
).
AsString
:=
Access
;
...
...
@@ -1796,8 +1795,7 @@ begin
if
not
perspective
.
IsEmpty
then
ordersDB
.
UniQuery1
.
FieldByName
(
'PERSPECTIVE_ID'
).
AsString
:=
perspective
;
if
not
QB
.
IsEmpty
then
ordersDB
.
UniQuery1
.
FieldByName
(
'QB_ID'
).
AsString
:=
QB
;
ordersDB
.
UniQuery1
.
FieldByName
(
'QB_ID'
).
AsString
:=
QB
;
if
((
not
(
Password
=
'hidden'
))
and
(
not
(
Password
.
IsEmpty
)))
then
begin
...
...
kgOrdersServer/bin/kgOrdersServer.ini
View file @
c15c23b4
[Settings]
MemoLogLevel
=
4
FileLogLevel
=
4
MemoLogLevel
=
0
FileLogLevel
=
0
webClientVersion
=
0.9.11
LogFileNum
=
18
3
LogFileNum
=
18
7
[Database]
--Server
=
192.168.116.132
...
...
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