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
5b01b1ab
Commit
5b01b1ab
authored
Jan 30, 2025
by
cam
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Web Plate Orders is completely finished and I fixed some old errors to match the old program
parent
510c8469
Hide whitespace changes
Inline
Side-by-side
Showing
10 changed files
with
936 additions
and
553 deletions
+936
-553
View.OrderEntryCorrugated.dfm
kgOrdersClient/View.OrderEntryCorrugated.dfm
+61
-41
View.OrderEntryCorrugated.html
kgOrdersClient/View.OrderEntryCorrugated.html
+6
-6
View.OrderEntryCorrugated.pas
kgOrdersClient/View.OrderEntryCorrugated.pas
+18
-4
View.OrderEntryWeb.dfm
kgOrdersClient/View.OrderEntryWeb.dfm
+290
-294
View.OrderEntryWeb.html
kgOrdersClient/View.OrderEntryWeb.html
+39
-43
View.OrderEntryWeb.pas
kgOrdersClient/View.OrderEntryWeb.pas
+155
-92
View.Orders.pas
kgOrdersClient/View.Orders.pas
+0
-2
Lookup.Service.pas
kgOrdersServer/Source/Lookup.Service.pas
+112
-2
Lookup.ServiceImpl.pas
kgOrdersServer/Source/Lookup.ServiceImpl.pas
+254
-68
kgOrdersServer.ini
kgOrdersServer/kgOrdersServer.ini
+1
-1
No files found.
kgOrdersClient/View.OrderEntryCorrugated.dfm
View file @
5b01b1ab
...
@@ -354,19 +354,6 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
...
@@ -354,19 +354,6 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
DataField = 'staff_fields_job_name'
DataField = 'staff_fields_job_name'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtQuickBooksItem: TWebDBEdit
Left = 26
Top = 514
Width = 121
Height = 22
AutoSize = True
ChildOrder = 79
ElementID = 'edtquickbooksitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_quickbooks_item'
DataSource = WebDataSource1
end
object edtOther: TWebDBEdit
object edtOther: TWebDBEdit
Left = 316
Left = 316
Top = 348
Top = 348
...
@@ -692,32 +679,6 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
...
@@ -692,32 +679,6 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
DataField = 'plates_job_number'
DataField = 'plates_job_number'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPlateMaterial: TWebDBEdit
Left = 852
Top = 72
Width = 121
Height = 22
AutoSize = True
ChildOrder = 79
ElementID = 'edtplatematerial'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'plates_plate_material'
DataSource = WebDataSource1
end
object edtThickness: TWebDBEdit
Left = 852
Top = 39
Width = 121
Height = 22
AutoSize = True
ChildOrder = 79
ElementID = 'edtThickness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'plates_thickness'
DataSource = WebDataSource1
end
object cbArtApprovedAsIs: TWebDBCheckBox
object cbArtApprovedAsIs: TWebDBCheckBox
Left = 662
Left = 662
Top = 480
Top = 480
...
@@ -988,6 +949,53 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
...
@@ -988,6 +949,53 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnCancelClick
OnClick = btnCancelClick
end
end
object WebDBComboBox2: TWebDBComboBox
Left = 26
Top = 515
Width = 145
Height = 22
ElementID = 'wcbqbitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
DataField = 'staff_fields_quickbooks_item'
DataSource = WebDataSource1
ListField = 'name'
ListSource = wdsQBItem
end
object WebDBComboBox3: TWebDBComboBox
Left = 833
Top = 77
Width = 145
Height = 22
ElementID = 'wcbmaterial'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'PhotoPolymer'
'Rubber')
DataField = 'plates_plate_material'
DataSource = WebDataSource1
end
object WebDBComboBox4: TWebDBComboBox
Left = 833
Top = 48
Width = 145
Height = 22
ElementID = 'wcbthickness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'.250'
'.155'
'.107'
'.067'
'.045')
DataField = 'plates_thickness'
DataSource = WebDataSource1
end
object XDataWebClient1: TXDataWebClient
object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection
Connection = DMConnection.ApiConnection
Left = 160
Left = 160
...
@@ -1288,10 +1296,22 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
...
@@ -1288,10 +1296,22 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
Top = 436
Top = 436
end
end
object xdwdsShipTo: TXDataWebDataSet
object xdwdsShipTo: TXDataWebDataSet
Left =
19
2
Left =
20
2
Top = 4
8
6
Top = 4
1
6
object xdwdsShipToADDRESS: TStringField
object xdwdsShipToADDRESS: TStringField
FieldName = 'ADDRESS'
FieldName = 'ADDRESS'
end
end
end
end
object wdsQBItem: TWebDataSource
DataSet = xdwdsQBItem
Left = 240
Top = 518
end
object xdwdsQBItem: TXDataWebDataSet
Left = 200
Top = 512
object xdwdsQBItemname: TStringField
FieldName = 'name'
end
end
end
end
kgOrdersClient/View.OrderEntryCorrugated.html
View file @
5b01b1ab
...
@@ -68,7 +68,7 @@
...
@@ -68,7 +68,7 @@
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
QuickBooks Item:
</label>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
QuickBooks Item:
</label>
<
input
id=
"edtquickbooksitem"
class=
"form-control input-sm"
width=
'50%'
/
>
<
select
id=
"wcbqbitem"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Art Due:
</label>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Art Due:
</label>
...
@@ -278,15 +278,15 @@
...
@@ -278,15 +278,15 @@
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
class=
'pe-2'
style=
"font-weight: 700; font-size: 15px;"
id=
"lblthickness
"
>
Thickness:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2
"
>
Thickness:
</label>
<
input
id=
"edtThickness"
class=
"form-control input-sm"
style=
"width: 150px"
/
>
<
select
id=
"wcbthickness"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
class=
'pe-2'
style=
"font-weight: 700; font-size: 15px;"
id=
"lblplatematerial
"
>
Plate Material:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2
"
>
Plate Material:
</label>
<
input
id=
"edtplatematerial"
class=
"form-control input-sm"
style=
"width: 150px"
/
>
<
select
id=
"wcbmaterial"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
class=
'pe-2'
style=
"font-weight: 700; font-size: 15px;"
id=
"lbljobnumber"
>
Job Number:
</label>
<label
class=
"form-label mt-2"
style=
"font-weight: 700; font-size: 15px;"
id=
"lbljobnumber"
>
Job Number:
</label>
<input
id=
"edtjobnumber"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtjobnumber"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
</div>
</div>
...
...
kgOrdersClient/View.OrderEntryCorrugated.pas
View file @
5b01b1ab
...
@@ -42,7 +42,6 @@ type
...
@@ -42,7 +42,6 @@ type
edtInvoiceTo
:
TWebDBEdit
;
edtInvoiceTo
:
TWebDBEdit
;
edtPONumber
:
TWebDBEdit
;
edtPONumber
:
TWebDBEdit
;
edtJobName
:
TWebDBEdit
;
edtJobName
:
TWebDBEdit
;
edtQuickBooksItem
:
TWebDBEdit
;
edtOther
:
TWebDBEdit
;
edtOther
:
TWebDBEdit
;
edtCADFile
:
TWebDBEdit
;
edtCADFile
:
TWebDBEdit
;
edtAroundNo
:
TWebDBEdit
;
edtAroundNo
:
TWebDBEdit
;
...
@@ -68,8 +67,6 @@ type
...
@@ -68,8 +67,6 @@ type
edtMachineIndent
:
TWebDBEdit
;
edtMachineIndent
:
TWebDBEdit
;
edtCylinderSize
:
TWebDBEdit
;
edtCylinderSize
:
TWebDBEdit
;
edtJobNumber
:
TWebDBEdit
;
edtJobNumber
:
TWebDBEdit
;
edtPlateMaterial
:
TWebDBEdit
;
edtThickness
:
TWebDBEdit
;
cbArtApprovedAsIs
:
TWebDBCheckBox
;
cbArtApprovedAsIs
:
TWebDBCheckBox
;
cbPDFFile
:
TWebDBCheckBox
;
cbPDFFile
:
TWebDBCheckBox
;
cbWideFormat
:
TWebDBCheckBox
;
cbWideFormat
:
TWebDBCheckBox
;
...
@@ -191,6 +188,12 @@ type
...
@@ -191,6 +188,12 @@ type
XDataWebDataSet1supplied_by_customer_order_date
:
TStringField
;
XDataWebDataSet1supplied_by_customer_order_date
:
TStringField
;
btnEdit
:
TWebButton
;
btnEdit
:
TWebButton
;
btnCancel
:
TWebButton
;
btnCancel
:
TWebButton
;
WebDBComboBox2
:
TWebDBComboBox
;
wdsQBItem
:
TWebDataSource
;
xdwdsQBItem
:
TXDataWebDataSet
;
xdwdsQBItemname
:
TStringField
;
WebDBComboBox3
:
TWebDBComboBox
;
WebDBComboBox4
:
TWebDBComboBox
;
procedure
WebFormCreate
(
Sender
:
TObject
);
procedure
WebFormCreate
(
Sender
:
TObject
);
procedure
HideNotification
();
procedure
HideNotification
();
procedure
ShowNotification
(
Notification
:
string
);
procedure
ShowNotification
(
Notification
:
string
);
...
@@ -355,7 +358,7 @@ begin
...
@@ -355,7 +358,7 @@ begin
XDataWebDataSet1
.
Next
;
XDataWebDataSet1
.
Next
;
end
;
end
;
orderJSON
.
AddPair
(
'COMPANY_ID'
,
customerID
);
orderJSON
.
AddPair
(
'COMPANY_ID'
,
customerID
);
orderJSON
.
AddPair
(
'USER_ID'
,
'1011'
);
orderJSON
.
AddPair
(
'USER_ID'
,
JS
.
toString
(
AuthService
.
TokenPayload
.
Properties
[
'user_id'
])
);
orderJSON
.
AddPair
(
'mode'
,
mode
);
orderJSON
.
AddPair
(
'mode'
,
mode
);
if
mode
=
'EDIT'
then
if
mode
=
'EDIT'
then
orderJSON
.
AddPair
(
'ORDER_ID'
,
orderID
);
orderJSON
.
AddPair
(
'ORDER_ID'
,
orderID
);
...
@@ -480,6 +483,7 @@ var
...
@@ -480,6 +483,7 @@ var
color
:
TJSObject
;
color
:
TJSObject
;
colorJSON
:
TJSONObject
;
colorJSON
:
TJSONObject
;
colorListJSON
:
TJSONArray
;
colorListJSON
:
TJSONArray
;
items
:
TJSObject
;
begin
begin
xdcResponse
:=
await
(
XDataWebClient1
.
RawInvokeAsync
(
'ILookupService.GetOrder'
,
xdcResponse
:=
await
(
XDataWebClient1
.
RawInvokeAsync
(
'ILookupService.GetOrder'
,
[
Order_ID
]));
[
Order_ID
]));
...
@@ -602,7 +606,17 @@ begin
...
@@ -602,7 +606,17 @@ begin
cbStripMount
.
Checked
:=
false
;
cbStripMount
.
Checked
:=
false
;
if
mode
=
'EDIT'
then
if
mode
=
'EDIT'
then
begin
CustomerID
:=
XDataWebDataSet1COMPANY_ID
.
AsString
;
CustomerID
:=
XDataWebDataSet1COMPANY_ID
.
AsString
;
xdwdsShipTo
.
Close
;
xdwdsShipTo
.
SetJSONData
(
order
[
'ADDRESS_LIST'
]);
xdwdsShipTo
.
Open
;
end
;
xdwdsQBItem
.
Close
;
items
:=
TJSObject
(
order
[
'ITEMS'
]);
xdwdsQBItem
.
SetJsonData
(
items
[
'data'
]);
xdwdsQBITEM
.
Open
;
end
;
end
;
...
...
kgOrdersClient/View.OrderEntryWeb.dfm
View file @
5b01b1ab
object FOrderEntryWeb: TFOrderEntryWeb
object FOrderEntryWeb: TFOrderEntryWeb
Width = 1015
Width = 1015
Height = 628
Height = 628
OnShow = WebFormShow
object WebLabel2: TWebLabel
object WebLabel2: TWebLabel
Left = 26
Left = 26
Top = 72
Top = 72
...
@@ -331,19 +332,6 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -331,19 +332,6 @@ object FOrderEntryWeb: TFOrderEntryWeb
DataField = 'staff_fields_job_name'
DataField = 'staff_fields_job_name'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtQuickBooksItem: TWebDBEdit
Left = 26
Top = 514
Width = 121
Height = 23
AutoSize = True
ChildOrder = 79
ElementID = 'edtquickbooksitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_quickbooks_item'
DataSource = WebDataSource1
end
object WebDBComboBox1: TWebDBComboBox
object WebDBComboBox1: TWebDBComboBox
Left = 26
Left = 26
Top = 430
Top = 430
...
@@ -368,7 +356,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -368,7 +356,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtbworcolorcopy'
ElementID = 'edtbworcolorcopy'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_b_w_or_co
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPlates: TWebDBEdit
object edtPlates: TWebDBEdit
...
@@ -381,7 +369,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -381,7 +369,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtplates'
ElementID = 'edtplates'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_plates
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtDimensionalLayout: TWebDBEdit
object edtDimensionalLayout: TWebDBEdit
...
@@ -394,7 +382,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -394,7 +382,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtdimensionallayout'
ElementID = 'edtdimensionallayout'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_dimension
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtSample: TWebDBEdit
object edtSample: TWebDBEdit
...
@@ -407,20 +395,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -407,20 +395,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtsample'
ElementID = 'edtsample'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataField = 'supplied_by_customer_sample'
DataSource = WebDataSource1
end
object edtDisk: TWebDBEdit
Left = 276
Top = 375
Width = 121
Height = 23
AutoSize = True
ChildOrder = 79
ElementID = 'edtdisk'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtOther: TWebDBEdit
object edtOther: TWebDBEdit
...
@@ -433,12 +408,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -433,12 +408,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtother'
ElementID = 'edtother'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_other
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtEmail: TWebDBEdit
object edtEmail: TWebDBEdit
Left = 276
Left = 276
Top =
404
Top =
379
Width = 121
Width = 121
Height = 23
Height = 23
AutoSize = True
AutoSize = True
...
@@ -446,12 +421,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -446,12 +421,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtemail'
ElementID = 'edtemail'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_e_mail
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtTotalInchesUsed: TWebDBEdit
object edtTotalInchesUsed: TWebDBEdit
Left = 276
Left = 276
Top = 4
67
Top = 4
42
Width = 121
Width = 121
Height = 23
Height = 23
AutoSize = True
AutoSize = True
...
@@ -459,12 +434,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -459,12 +434,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edttotalinchesused'
ElementID = 'edttotalinchesused'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_total_inc
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtFTP: TWebDBEdit
object edtFTP: TWebDBEdit
Left = 276
Left = 276
Top = 4
33
Top = 4
08
Width = 121
Width = 121
Height = 23
Height = 23
AutoSize = True
AutoSize = True
...
@@ -472,12 +447,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -472,12 +447,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtftp'
ElementID = 'edtftp'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_ftp
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtSheetsUsed: TWebDBEdit
object edtSheetsUsed: TWebDBEdit
Left = 276
Left = 276
Top = 4
96
Top = 4
71
Width = 121
Width = 121
Height = 23
Height = 23
AutoSize = True
AutoSize = True
...
@@ -485,12 +460,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -485,12 +460,12 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtsheetsused'
ElementID = 'edtsheetsused'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_sheets_us
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtInitials: TWebDBEdit
object edtInitials: TWebDBEdit
Left = 276
Left = 276
Top = 5
29
Top = 5
04
Width = 121
Width = 121
Height = 23
Height = 23
AutoSize = True
AutoSize = True
...
@@ -498,7 +473,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -498,7 +473,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtinitials'
ElementID = 'edtinitials'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 's
taff_fields_ship_via
'
DataField = 's
upplied_by_customer_initials
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object cbPDF: TWebDBCheckBox
object cbPDF: TWebDBCheckBox
...
@@ -511,7 +486,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -511,7 +486,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'cbpdf'
ElementID = 'cbpdf'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'proofing_
full_size_panel
'
DataField = 'proofing_
pdf
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPDFTo: TWebDBEdit
object edtPDFTo: TWebDBEdit
...
@@ -524,7 +499,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -524,7 +499,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtpdfto'
ElementID = 'edtpdfto'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
proofing_pdf_to
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object dtpPDFDate1: TWebDateTimePicker
object dtpPDFDate1: TWebDateTimePicker
...
@@ -576,7 +551,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -576,7 +551,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'cbfullsizeinkjet'
ElementID = 'cbfullsizeinkjet'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'proofing_full_size_
panel
'
DataField = 'proofing_full_size_
ink_jet_for
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtInkJetTo2: TWebDBEdit
object edtInkJetTo2: TWebDBEdit
...
@@ -589,7 +564,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -589,7 +564,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtinkjetto2'
ElementID = 'edtinkjetto2'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
proofing_ink_jet_to_2
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtInkJetTo1: TWebDBEdit
object edtInkJetTo1: TWebDBEdit
...
@@ -602,7 +577,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -602,7 +577,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtinkjetto'
ElementID = 'edtinkjetto'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
proofing_ink_jet_to
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object dtpInkJetDate1: TWebDateTimePicker
object dtpInkJetDate1: TWebDateTimePicker
...
@@ -654,23 +629,10 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -654,23 +629,10 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcolorcontrastto'
ElementID = 'edtcolorcontrastto'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataField = 'proofing_color_contrac_to'
DataSource = WebDataSource1
end
object edtColorContrast: TWebDBEdit
Left = 444
Top = 406
Width = 121
Height = 23
AutoSize = True
ChildOrder = 79
ElementID = 'edtcolorcontrast'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object dtpColorContra
s
tDate1: TWebDateTimePicker
object dtpColorContra
c
tDate1: TWebDateTimePicker
Left = 444
Left = 444
Top = 464
Top = 464
Width = 170
Width = 170
...
@@ -683,7 +645,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -683,7 +645,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
Role = ''
Role = ''
Text = ''
Text = ''
end
end
object dtpColorContra
s
tDate2: TWebDateTimePicker
object dtpColorContra
c
tDate2: TWebDateTimePicker
Left = 444
Left = 444
Top = 488
Top = 488
Width = 170
Width = 170
...
@@ -706,7 +668,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -706,7 +668,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtdigitalcolorto'
ElementID = 'edtdigitalcolorto'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
proofing_digital_color_to
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtDigitalColorKey: TWebDBEdit
object edtDigitalColorKey: TWebDBEdit
...
@@ -719,7 +681,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -719,7 +681,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtdigitalcolorkey'
ElementID = 'edtdigitalcolorkey'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
proofing_digital_color_key
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object dtpDigitalColorDate: TWebDateTimePicker
object dtpDigitalColorDate: TWebDateTimePicker
...
@@ -745,7 +707,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -745,7 +707,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtanilaxinfo'
ElementID = 'edtanilaxinfo'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
quantity_and_colors_anilox_info
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPressName: TWebDBEdit
object edtPressName: TWebDBEdit
...
@@ -758,7 +720,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -758,7 +720,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtpressname'
ElementID = 'edtpressname'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
quantity_and_colors_press_name
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object WebButton1: TWebButton
object WebButton1: TWebButton
...
@@ -771,6 +733,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -771,6 +733,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'btnaddcolor'
ElementID = 'btnaddcolor'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = WebButton1Click
end
end
object edtMicroDots: TWebDBEdit
object edtMicroDots: TWebDBEdit
Left = 634
Left = 634
...
@@ -782,7 +745,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -782,7 +745,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtmicrodots'
ElementID = 'edtmicrodots'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_microdots
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtMicrodotsComments: TWebDBEdit
object edtMicrodotsComments: TWebDBEdit
...
@@ -795,7 +758,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -795,7 +758,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtmicrodotscomments'
ElementID = 'edtmicrodotscomments'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_microdots_comments
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtCrosshairsComments: TWebDBEdit
object edtCrosshairsComments: TWebDBEdit
...
@@ -808,7 +771,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -808,7 +771,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcrosshairscomments'
ElementID = 'edtcrosshairscomments'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_crosshairs_comments
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtCrosshairs: TWebDBEdit
object edtCrosshairs: TWebDBEdit
...
@@ -821,7 +784,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -821,7 +784,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcrosshairs'
ElementID = 'edtcrosshairs'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_crosshairs
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtColorBarsComments: TWebDBEdit
object edtColorBarsComments: TWebDBEdit
...
@@ -834,7 +797,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -834,7 +797,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcolorbarscomments'
ElementID = 'edtcolorbarscomments'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_color_bars_comments
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtColorBars: TWebDBEdit
object edtColorBars: TWebDBEdit
...
@@ -847,7 +810,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -847,7 +810,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcolorbars'
ElementID = 'edtcolorbars'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_color_bars
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPlateOther: TWebDBEdit
object edtPlateOther: TWebDBEdit
...
@@ -860,7 +823,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -860,7 +823,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtplateother'
ElementID = 'edtplateother'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plate_marks_other
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPlateOtherComments: TWebDBEdit
object edtPlateOtherComments: TWebDBEdit
...
@@ -873,20 +836,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -873,20 +836,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtplateothercomments'
ElementID = 'edtplateothercomments'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataField = 'plate_marks_other_comments'
DataSource = WebDataSource1
end
object edtPrintOrientation: TWebDBEdit
Left = 634
Top = 408
Width = 121
Height = 23
AutoSize = True
ChildOrder = 79
ElementID = 'edtprintorientation'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtAround: TWebDBEdit
object edtAround: TWebDBEdit
...
@@ -899,7 +849,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -899,7 +849,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtaround'
ElementID = 'edtaround'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_around
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtAccross: TWebDBEdit
object edtAccross: TWebDBEdit
...
@@ -912,7 +862,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -912,7 +862,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtaccross'
ElementID = 'edtaccross'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_accross
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtReversePrint: TWebDBEdit
object edtReversePrint: TWebDBEdit
...
@@ -925,7 +875,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -925,7 +875,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtreverseprint'
ElementID = 'edtreverseprint'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_reverse_print
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtSurfacePrint: TWebDBEdit
object edtSurfacePrint: TWebDBEdit
...
@@ -938,7 +888,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -938,7 +888,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtsurfaceprint'
ElementID = 'edtsurfaceprint'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_surface_print
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtCutoffDimension: TWebDBEdit
object edtCutoffDimension: TWebDBEdit
...
@@ -951,7 +901,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -951,7 +901,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcutoffdimension'
ElementID = 'edtcutoffdimension'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_cutoff_dimension
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtCylinderRepeat: TWebDBEdit
object edtCylinderRepeat: TWebDBEdit
...
@@ -964,7 +914,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -964,7 +914,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcylinderrepeat'
ElementID = 'edtcylinderrepeat'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_cylinder_repeat
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtPitch: TWebDBEdit
object edtPitch: TWebDBEdit
...
@@ -977,7 +927,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -977,7 +927,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtpitch'
ElementID = 'edtpitch'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_pitch
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtBleed: TWebDBEdit
object edtBleed: TWebDBEdit
...
@@ -990,7 +940,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -990,7 +940,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtbleed'
ElementID = 'edtbleed'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_bleed
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtTeeth: TWebDBEdit
object edtTeeth: TWebDBEdit
...
@@ -1003,7 +953,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1003,7 +953,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtteeth'
ElementID = 'edtteeth'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_teeth
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtCutback: TWebDBEdit
object edtCutback: TWebDBEdit
...
@@ -1016,7 +966,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1016,7 +966,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcutback'
ElementID = 'edtcutback'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_cutback
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtMinimumTrapDim: TWebDBEdit
object edtMinimumTrapDim: TWebDBEdit
...
@@ -1029,7 +979,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1029,7 +979,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtminimumtrapdimension'
ElementID = 'edtminimumtrapdimension'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_minimum_trap_dim
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtMaximumTrapDim: TWebDBEdit
object edtMaximumTrapDim: TWebDBEdit
...
@@ -1042,7 +992,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1042,7 +992,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtmaximumtrapdimension'
ElementID = 'edtmaximumtrapdimension'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
layout_maximum_trap_dim
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtSize: TWebDBEdit
object edtSize: TWebDBEdit
...
@@ -1055,7 +1005,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1055,7 +1005,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtsize'
ElementID = 'edtsize'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
upc_size
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtBarWidthReduction: TWebDBEdit
object edtBarWidthReduction: TWebDBEdit
...
@@ -1068,7 +1018,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1068,7 +1018,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtbarwidthreduction'
ElementID = 'edtbarwidthreduction'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
upc_bar_width_reduction
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtDistortionAmount: TWebDBEdit
object edtDistortionAmount: TWebDBEdit
...
@@ -1081,7 +1031,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1081,7 +1031,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtdistortionamount'
ElementID = 'edtdistortionamount'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
upc_distortion_amount
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtDistortionPercent: TWebDBEdit
object edtDistortionPercent: TWebDBEdit
...
@@ -1094,33 +1044,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1094,33 +1044,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtdistortionpercent'
ElementID = 'edtdistortionpercent'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataField = 'upc_distortion_percent'
DataSource = WebDataSource1
end
object edtPlateMaterial: TWebDBEdit
Left = 634
Top = 458
Width = 121
Height = 23
AutoSize = True
ChildOrder = 79
ElementID = 'edtplatematerial'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataSource = WebDataSource1
end
object edtThickness: TWebDBEdit
Left = 634
Top = 487
Width = 121
Height = 23
AutoSize = True
ChildOrder = 79
ElementID = 'edtthickness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'staff_fields_ship_via'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object edtJobNumber: TWebDBEdit
object edtJobNumber: TWebDBEdit
...
@@ -1133,7 +1057,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1133,7 +1057,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtjobnumber'
ElementID = 'edtjobnumber'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
plates_job_number
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object Comments: TWebDBEdit
object Comments: TWebDBEdit
...
@@ -1146,7 +1070,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1146,7 +1070,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'edtcomments'
ElementID = 'edtcomments'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = '
staff_fields_ship_via
'
DataField = '
general_comments
'
DataSource = WebDataSource1
DataSource = WebDataSource1
end
end
object btnConfirm: TWebButton
object btnConfirm: TWebButton
...
@@ -1159,6 +1083,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1159,6 +1083,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
ElementID = 'btnconfirm'
ElementID = 'btnconfirm'
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnConfirmClick
end
end
object btnEdit: TWebButton
object btnEdit: TWebButton
Left = 867
Left = 867
...
@@ -1182,6 +1107,83 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1182,6 +1107,83 @@ object FOrderEntryWeb: TFOrderEntryWeb
HeightPercent = 100.000000000000000000
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
end
object wcbQBItem: TWebDBComboBox
Left = 26
Top = 515
Width = 145
Height = 23
ElementID = 'wcbqbitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
DataField = 'staff_fields_quickbooks_item'
DataSource = WebDataSource1
ListField = 'name'
ListSource = wdsQBItem
end
object WebDBComboBox2: TWebDBComboBox
Left = 631
Top = 487
Width = 145
Height = 23
ElementID = 'wcbmaterial'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'PhotoPolymer'
'Rubber')
DataField = 'plates_plate_material'
DataSource = WebDataSource1
end
object WebDBComboBox3: TWebDBComboBox
Left = 631
Top = 458
Width = 145
Height = 23
ElementID = 'wcbthickness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'.250'
'.155'
'.107'
'.067'
'.045')
DataField = 'plates_thickness'
DataSource = WebDataSource1
end
object wcbPrint: TWebDBComboBox
Left = 621
Top = 408
Width = 145
Height = 23
ElementID = 'wcbprint'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'Portrait'
'Landscape')
DataField = 'print_orientation_print_orient'
DataSource = WebDataSource1
end
object WebDBComboBox4: TWebDBComboBox
Left = 444
Top = 402
Width = 145
Height = 23
ElementID = 'wcbcolorcontract'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
ItemIndex = -1
Items.Strings = (
'Cromapro Ink Jet'
'Kodak Approval')
DataField = 'print_orientation_print_orient'
DataSource = WebDataSource1
end
object XDataWebClient1: TXDataWebClient
object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection
Connection = DMConnection.ApiConnection
Left = 160
Left = 160
...
@@ -1189,6 +1191,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1189,6 +1191,7 @@ object FOrderEntryWeb: TFOrderEntryWeb
end
end
object tmrScrollTop: TWebTimer
object tmrScrollTop: TWebTimer
Interval = 100
Interval = 100
OnTimer = tmrScrollTopTimer
Left = 240
Left = 240
Top = 8
Top = 8
end
end
...
@@ -1208,18 +1211,6 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1208,18 +1211,6 @@ object FOrderEntryWeb: TFOrderEntryWeb
object XDataWebDataSet1ORDER_DATE: TDateField
object XDataWebDataSet1ORDER_DATE: TDateField
FieldName = 'ORDER_DATE'
FieldName = 'ORDER_DATE'
end
end
object XDataWebDataSet1START_DATE: TDateField
FieldName = 'START_DATE'
end
object XDataWebDataSet1END_DATE: TDateField
FieldName = 'END_DATE'
end
object XDataWebDataSet1ORDER_STATUS: TStringField
FieldName = 'ORDER_STATUS'
end
object XDataWebDataSet1SCHED_JSON: TStringField
FieldName = 'SCHED_JSON'
end
object XDataWebDataSet1NAME: TStringField
object XDataWebDataSet1NAME: TStringField
FieldName = 'NAME'
FieldName = 'NAME'
end
end
...
@@ -1250,224 +1241,217 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1250,224 +1241,217 @@ object FOrderEntryWeb: TFOrderEntryWeb
object XDataWebDataSet1staff_fields_job_name: TStringField
object XDataWebDataSet1staff_fields_job_name: TStringField
FieldName = 'staff_fields_job_name'
FieldName = 'staff_fields_job_name'
end
end
object XDataWebDataSet1plates_job_number: TStringField
object XDataWebDataSet1staff_fields_quickbooks_item: TStringField
FieldName = 'plates_job_number'
FieldName = 'staff_fields_quickbooks_item'
end
object XDataWebDataSet1supplied_by_customer_b_w_copy: TBooleanField
FieldName = 'supplied_by_customer_b_w_copy'
end
object XDataWebDataSet1supplied_by_customer_dimension: TStringField
FieldName = 'supplied_by_customer_dimension'
end
object XDataWebDataSet1supplied_by_customer_e_mail: TStringField
FieldName = 'supplied_by_customer_e_mail'
end
end
object XDataWebDataSet1s
upplied_by_customer_ftp
: TStringField
object XDataWebDataSet1s
taff_fields_quantity
: TStringField
FieldName = 's
upplied_by_customer_ftp
'
FieldName = 's
taff_fields_quantity
'
end
end
object XDataWebDataSet1s
upplied_by_customer_other
: TStringField
object XDataWebDataSet1s
taff_fields_art_location
: TStringField
FieldName = 's
upplied_by_customer_other
'
FieldName = 's
taff_fields_art_location
'
end
end
object XDataWebDataSet1s
upplied_by_customer_existing_
: TStringField
object XDataWebDataSet1s
taff_fields_order_date
: TStringField
FieldName = 's
upplied_by_customer_existing_
'
FieldName = 's
taff_fields_order_date
'
end
end
object XDataWebDataSet1s
upplied_by_customer_ref_art_p
: TStringField
object XDataWebDataSet1s
taff_fields_proof_date
: TStringField
FieldName = 's
upplied_by_customer_ref_art_p
'
FieldName = 's
taff_fields_proof_date
'
end
end
object XDataWebDataSet1s
upplied_by_customer_ref_art_a
: TStringField
object XDataWebDataSet1s
taff_fields_ship_date
: TStringField
FieldName = 's
upplied_by_customer_ref_art_a
'
FieldName = 's
taff_fields_ship_date
'
end
end
object XDataWebDataSet1
cut_die_cutdier
: TStringField
object XDataWebDataSet1
staff_fields_art_due
: TStringField
FieldName = '
cut_die_cutdier
'
FieldName = '
staff_fields_art_due
'
end
end
object XDataWebDataSet1
cut_die_cutdieb
: TStringField
object XDataWebDataSet1
staff_fields_plate_due
: TStringField
FieldName = '
cut_die_cutdieb
'
FieldName = '
staff_fields_plate_due
'
end
end
object XDataWebDataSet1
cut_die_cutdief
: TStringField
object XDataWebDataSet1
ADDRESS_LIST
: TStringField
FieldName = '
cut_die_cutdief
'
FieldName = '
ADDRESS_LIST
'
end
end
object XDataWebDataSet1
cut_die_cutdierk
r: TStringField
object XDataWebDataSet1
plates_job_numbe
r: TStringField
FieldName = '
cut_die_cutdierk
r'
FieldName = '
plates_job_numbe
r'
end
end
object XDataWebDataSet1
cut_die_cutdiefkr
: TStringField
object XDataWebDataSet1
supplied_by_customer_plates
: TStringField
FieldName = '
cut_die_cutdiefkr
'
FieldName = '
supplied_by_customer_plates
'
end
end
object XDataWebDataSet1
cut_die_cad_fi
le: TStringField
object XDataWebDataSet1
supplied_by_customer_samp
le: TStringField
FieldName = '
cut_die_cad_fi
le'
FieldName = '
supplied_by_customer_samp
le'
end
end
object XDataWebDataSet1
cut_die_attached
: TStringField
object XDataWebDataSet1
supplied_by_customer_dimension
: TStringField
FieldName = '
cut_die_attached
'
FieldName = '
supplied_by_customer_dimension
'
end
end
object XDataWebDataSet1
cut_die_boxpol250
: TStringField
object XDataWebDataSet1
supplied_by_customer_other
: TStringField
FieldName = '
cut_die_boxpol250
'
FieldName = '
supplied_by_customer_other
'
end
end
object XDataWebDataSet1
cut_die_boxpol155
: TStringField
object XDataWebDataSet1
supplied_by_customer_disk
: TStringField
FieldName = '
cut_die_boxpol155
'
FieldName = '
supplied_by_customer_disk
'
end
end
object XDataWebDataSet1
cut_die_boxpol125
: TStringField
object XDataWebDataSet1
supplied_by_customer_e_mail
: TStringField
FieldName = '
cut_die_boxpol125
'
FieldName = '
supplied_by_customer_e_mail
'
end
end
object XDataWebDataSet1
cut_die_brub
: TStringField
object XDataWebDataSet1
supplied_by_customer_ftp
: TStringField
FieldName = '
cut_die_brub
'
FieldName = '
supplied_by_customer_ftp
'
end
end
object XDataWebDataSet1p
roofing_fax
: TStringField
object XDataWebDataSet1p
lates_plate_material
: TStringField
FieldName = 'p
roofing_fax
'
FieldName = 'p
lates_plate_material
'
end
end
object XDataWebDataSet1p
roofing_fax_attn
: TStringField
object XDataWebDataSet1p
lates_thickness
: TStringField
FieldName = 'p
roofing_fax_attn
'
FieldName = 'p
lates_thickness
'
end
end
object XDataWebDataSet1
proofing_e_mail
: TStringField
object XDataWebDataSet1
supplied_by_customer_total_inc
: TStringField
FieldName = '
proofing_e_mail
'
FieldName = '
supplied_by_customer_total_inc
'
end
end
object XDataWebDataSet1
proofing_ship_to
: TStringField
object XDataWebDataSet1
supplied_by_customer_sheets_us
: TStringField
FieldName = '
proofing_ship_to
'
FieldName = '
supplied_by_customer_sheets_us
'
end
end
object XDataWebDataSet1
proofing_other
: TStringField
object XDataWebDataSet1
supplied_by_customer_initials
: TStringField
FieldName = '
proofing_other
'
FieldName = '
supplied_by_customer_initials
'
end
end
object XDataWebDataSet1proofing_
changes_required
: TStringField
object XDataWebDataSet1proofing_
pdf_to
: TStringField
FieldName = 'proofing_
changes_required
'
FieldName = 'proofing_
pdf_to
'
end
end
object XDataWebDataSet1proofing_
changes_date: TDate
Field
object XDataWebDataSet1proofing_
pdf_date_1: TString
Field
FieldName = 'proofing_
changes_date
'
FieldName = 'proofing_
pdf_date_1
'
end
end
object XDataWebDataSet1
layout_rsc_l
: TStringField
object XDataWebDataSet1
proofing_pdf_date_2
: TStringField
FieldName = '
layout_rsc_l
'
FieldName = '
proofing_pdf_date_2
'
end
end
object XDataWebDataSet1
layout_rcs_w
: TStringField
object XDataWebDataSet1
proofing_pdf_date_3
: TStringField
FieldName = '
layout_rcs_w
'
FieldName = '
proofing_pdf_date_3
'
end
end
object XDataWebDataSet1
layout_rcs_d
: TStringField
object XDataWebDataSet1
proofing_ink_jet_to
: TStringField
FieldName = '
layout_rcs_d
'
FieldName = '
proofing_ink_jet_to
'
end
end
object XDataWebDataSet1
layout_die_cut_no
: TStringField
object XDataWebDataSet1
proofing_ink_jet_to_2
: TStringField
FieldName = '
layout_die_cut_no
'
FieldName = '
proofing_ink_jet_to_2
'
end
end
object XDataWebDataSet1layout_accross_no: TStringField
object XDataWebDataSet1proofing_ink_jet_date_1: TStringField
FieldName = 'layout_accross_no'
FieldName = 'proofing_ink_jet_date_1'
Size = 0
end
end
object XDataWebDataSet1
layout_around_no
: TStringField
object XDataWebDataSet1
proofing_ink_jet_date_2
: TStringField
FieldName = '
layout_around_no
'
FieldName = '
proofing_ink_jet_date_2
'
end
end
object XDataWebDataSet1
layout_cad_file
: TStringField
object XDataWebDataSet1
proofing_ink_jet_date_3
: TStringField
FieldName = '
layout_cad_file
'
FieldName = '
proofing_ink_jet_date_3
'
end
end
object XDataWebDataSet1
mounting_standard_setup
: TStringField
object XDataWebDataSet1
proofing_color_contract
: TStringField
FieldName = '
mounting_standard_setup
'
FieldName = '
proofing_color_contract
'
end
end
object XDataWebDataSet1
mounting_custom_backing
: TStringField
object XDataWebDataSet1
proofing_color_contrac_to
: TStringField
FieldName = '
mounting_custom_backing
'
FieldName = '
proofing_color_contrac_to
'
end
end
object XDataWebDataSet1
mounting_custom_adhesive
: TStringField
object XDataWebDataSet1
proofing_color_contrac_date_1
: TStringField
FieldName = '
mounting_custom_adhesive
'
FieldName = '
proofing_color_contrac_date_1
'
end
end
object XDataWebDataSet1
colors_cylinder_size
: TStringField
object XDataWebDataSet1
proofing_color_contrac_date_2
: TStringField
FieldName = '
colors_cylinder_size
'
FieldName = '
proofing_color_contrac_date_2
'
end
end
object XDataWebDataSet1
colors_cross_hairs
: TStringField
object XDataWebDataSet1
proofing_digital_color_key
: TStringField
FieldName = '
colors_cross_hairs
'
FieldName = '
proofing_digital_color_key
'
end
end
object XDataWebDataSet1
colors_machine_ident
: TStringField
object XDataWebDataSet1
proofing_digital_color_to
: TStringField
FieldName = '
colors_machine_ident
'
FieldName = '
proofing_digital_color_to
'
end
end
object XDataWebDataSet1colors_clemson: TStringField
object XDataWebDataSet1proofing_digital_color_date_1: TStringField
FieldName = 'colors_clemson'
FieldName = 'proofing_digital_color_date_1'
Size = 0
end
end
object XDataWebDataSet1
plates_thickness
: TStringField
object XDataWebDataSet1
quantity_and_colors_press_name
: TStringField
FieldName = '
plates_thickness
'
FieldName = '
quantity_and_colors_press_name
'
end
end
object XDataWebDataSet1
plates_plate_material
: TStringField
object XDataWebDataSet1
quantity_and_colors_anilox_info
: TStringField
FieldName = '
plates_plate_material
'
FieldName = '
quantity_and_colors_anilox_info
'
end
end
object XDataWebDataSet1
general_special_instruction
s: TStringField
object XDataWebDataSet1
plate_marks_microdots_comment
s: TStringField
FieldName = '
general_special_instruction
s'
FieldName = '
plate_marks_microdots_comment
s'
end
end
object XDataWebDataSet1
colors_color
s: TStringField
object XDataWebDataSet1
plate_marks_microdot
s: TStringField
FieldName = '
colors_color
s'
FieldName = '
plate_marks_microdot
s'
end
end
object XDataWebDataSet1
staff_fields_quickbooks_item
: TStringField
object XDataWebDataSet1
plate_marks_crosshairs
: TStringField
FieldName = '
staff_fields_quickbooks_item
'
FieldName = '
plate_marks_crosshairs
'
end
end
object XDataWebDataSet1
staff_fields_quantity
: TStringField
object XDataWebDataSet1
plate_marks_crosshairs_comments
: TStringField
FieldName = '
staff_fields_quantity
'
FieldName = '
plate_marks_crosshairs_comments
'
end
end
object XDataWebDataSet1
layout_rsc_style
: TStringField
object XDataWebDataSet1
plate_marks_color_bars
: TStringField
FieldName = '
layout_rsc_style
'
FieldName = '
plate_marks_color_bars
'
end
end
object XDataWebDataSet1
staff_fields_art_location
: TStringField
object XDataWebDataSet1
plate_marks_color_bars_comments
: TStringField
FieldName = '
staff_fields_art_location
'
FieldName = '
plate_marks_color_bars_comments
'
end
end
object XDataWebDataSet1
supplied_by_customer_color_copy: TBoolean
Field
object XDataWebDataSet1
plate_marks_other: TString
Field
FieldName = '
supplied_by_customer_color_copy
'
FieldName = '
plate_marks_other
'
end
end
object XDataWebDataSet1
supplied_by_customer_plates: TBoolean
Field
object XDataWebDataSet1
plate_marks_other_comments: TString
Field
FieldName = '
supplied_by_customer_plate
s'
FieldName = '
plate_marks_other_comment
s'
end
end
object XDataWebDataSet1
supplied_by_customer_sample_ca: TBoolean
Field
object XDataWebDataSet1
print_orientation_print_orient: TString
Field
FieldName = '
supplied_by_customer_sample_ca
'
FieldName = '
print_orientation_print_orient
'
end
end
object XDataWebDataSet1
supplied_by_customer_disk_or_cd: TBoolean
Field
object XDataWebDataSet1
layout_around: TString
Field
FieldName = '
supplied_by_customer_disk_or_c
d'
FieldName = '
layout_aroun
d'
end
end
object XDataWebDataSet1
mounting_loose
: TStringField
object XDataWebDataSet1
layout_accross
: TStringField
FieldName = '
mounting_loose
'
FieldName = '
layout_accross
'
end
end
object XDataWebDataSet1
mounting_sticky_bak: TBoolean
Field
object XDataWebDataSet1
layout_surface_print: TString
Field
FieldName = '
mounting_sticky_bak
'
FieldName = '
layout_surface_print
'
end
end
object XDataWebDataSet1
mounting_full_mount: TBoolean
Field
object XDataWebDataSet1
layout_reverse_print: TString
Field
FieldName = '
mounting_full_mou
nt'
FieldName = '
layout_reverse_pri
nt'
end
end
object XDataWebDataSet1
mounting_strip_moun
t: TStringField
object XDataWebDataSet1
layout_cylinder_repea
t: TStringField
FieldName = '
mounting_strip_moun
t'
FieldName = '
layout_cylinder_repea
t'
end
end
object XDataWebDataSet1layout_
excalibur_die: TBoolean
Field
object XDataWebDataSet1layout_
cutoff_dimension: TString
Field
FieldName = 'layout_
excalibur_die
'
FieldName = 'layout_
cutoff_dimension
'
end
end
object XDataWebDataSet1
proofing_full_size_panel: TBoolean
Field
object XDataWebDataSet1
layout_pitch: TString
Field
FieldName = '
proofing_full_size_panel
'
FieldName = '
layout_pitch
'
end
end
object XDataWebDataSet1
proofing_print_card: TBoolean
Field
object XDataWebDataSet1
layout_teeth: TString
Field
FieldName = '
proofing_print_card
'
FieldName = '
layout_teeth
'
end
end
object XDataWebDataSet1
proofing_wide_format: TBoolean
Field
object XDataWebDataSet1
layout_bleed: TString
Field
FieldName = '
proofing_wide_format
'
FieldName = '
layout_bleed
'
end
end
object XDataWebDataSet1
proofing_pdf_file: TBoolean
Field
object XDataWebDataSet1
layout_minimum_trap_dim: TString
Field
FieldName = '
proofing_pdf_file
'
FieldName = '
layout_minimum_trap_dim
'
end
end
object XDataWebDataSet1
proofing_art_approved_as_is: TBoolean
Field
object XDataWebDataSet1
layout_maximum_trap_dim: TString
Field
FieldName = '
proofing_art_approved_as_is
'
FieldName = '
layout_maximum_trap_dim
'
end
end
object XDataWebDataSet1
proofing_e_mail_attn
: TStringField
object XDataWebDataSet1
upc_size
: TStringField
FieldName = '
proofing_e_mail_attn
'
FieldName = '
upc_size
'
end
end
object XDataWebDataSet1
proofing_approved_date
: TStringField
object XDataWebDataSet1
upc_bar_width_reduction
: TStringField
FieldName = '
proofing_approved_date
'
FieldName = '
upc_bar_width_reduction
'
end
end
object XDataWebDataSet1
staff_fields_order_date
: TStringField
object XDataWebDataSet1
general_comments
: TStringField
FieldName = '
staff_fields_order_date
'
FieldName = '
general_comments
'
end
end
object XDataWebDataSet1
staff_fields_proof_date
: TStringField
object XDataWebDataSet1
upc_distortion_percent
: TStringField
FieldName = '
staff_fields_proof_date
'
FieldName = '
upc_distortion_percent
'
end
end
object XDataWebDataSet1
staff_fields_ship_date
: TStringField
object XDataWebDataSet1
upc_distortion_amount
: TStringField
FieldName = '
staff_fields_ship_date
'
FieldName = '
upc_distortion_amount
'
end
end
object XDataWebDataSet1
staff_fields_art_due
: TStringField
object XDataWebDataSet1
layout_cutback
: TStringField
FieldName = '
staff_fields_art_due
'
FieldName = '
layout_cutback
'
end
end
object XDataWebDataSet1
staff_fields_plate_due: TString
Field
object XDataWebDataSet1
proofing_full_size_ink_jet_for: TBoolean
Field
FieldName = '
staff_fields_plate_due
'
FieldName = '
proofing_full_size_ink_jet_for
'
end
end
object XDataWebDataSet1
staff_fields_mount_due: TString
Field
object XDataWebDataSet1
proofing_pdf: TBoolean
Field
FieldName = '
staff_fields_mount_due
'
FieldName = '
proofing_pdf
'
end
end
object XDataWebDataSet1
ADDRESS_LIST
: TStringField
object XDataWebDataSet1
quantity_and_colors_qty_colors
: TStringField
FieldName = '
ADDRESS_LIST
'
FieldName = '
quantity_and_colors_qty_colors
'
end
end
object XDataWebDataSet1supplied_by_customer_
order_date
: TStringField
object XDataWebDataSet1supplied_by_customer_
b_w_or_co
: TStringField
FieldName = 'supplied_by_customer_
order_date
'
FieldName = 'supplied_by_customer_
b_w_or_co
'
end
end
end
end
object WebDataSource1: TWebDataSource
object WebDataSource1: TWebDataSource
...
@@ -1481,10 +1465,22 @@ object FOrderEntryWeb: TFOrderEntryWeb
...
@@ -1481,10 +1465,22 @@ object FOrderEntryWeb: TFOrderEntryWeb
Top = 436
Top = 436
end
end
object xdwdsShipTo: TXDataWebDataSet
object xdwdsShipTo: TXDataWebDataSet
Left =
192
Left =
208
Top =
486
Top =
398
object xdwdsShipToADDRESS: TStringField
object xdwdsShipToADDRESS: TStringField
FieldName = 'ADDRESS'
FieldName = 'ADDRESS'
end
end
end
end
object wdsQBItem: TWebDataSource
DataSet = xdwdsQBItem
Left = 240
Top = 518
end
object xdwdsQBItem: TXDataWebDataSet
Left = 200
Top = 512
object xdwdsQBItemname: TStringField
FieldName = 'name'
end
end
end
end
kgOrdersClient/View.OrderEntryWeb.html
View file @
5b01b1ab
...
@@ -68,7 +68,7 @@
...
@@ -68,7 +68,7 @@
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
QuickBooks Item:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
QuickBooks Item:
</label>
<
input
id=
"edtquickbooksitem"
class=
"form-control input-sm"
width=
'50%'
/
>
<
select
id=
"wcbqbitem"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Art Due:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Art Due:
</label>
...
@@ -103,10 +103,6 @@
...
@@ -103,10 +103,6 @@
<input
id=
"edtother"
class=
"form-control input-sm"
width=
'50%'
/>
<input
id=
"edtother"
class=
"form-control input-sm"
width=
'50%'
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Disk:
</label>
<input
id=
"edtdisk"
class=
"form-control input-sm"
width=
'50%'
/>
</div>
<div
class=
"col-auto"
>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Email:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Email:
</label>
<input
id=
"edtemail"
class=
"form-control input-sm"
width=
'50%'
/>
<input
id=
"edtemail"
class=
"form-control input-sm"
width=
'50%'
/>
</div>
</div>
...
@@ -131,7 +127,7 @@
...
@@ -131,7 +127,7 @@
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
PDF:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
PDF:
</label>
<input
type=
"checkbox"
id=
"cbpdf"
>
<input
type=
"checkbox"
id=
"cbpdf"
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
...
@@ -151,7 +147,7 @@
...
@@ -151,7 +147,7 @@
<input
class=
"form-control input-sm"
id=
"dtppdfdate3"
type=
"date"
>
<input
class=
"form-control input-sm"
id=
"dtppdfdate3"
type=
"date"
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Full Size Ink Jet For Layout Content Only:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Full Size Ink Jet For Layout Content Only:
</label>
<input
type=
"checkbox"
id=
"cbfullsizeinkjet"
>
<input
type=
"checkbox"
id=
"cbfullsizeinkjet"
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
...
@@ -175,11 +171,11 @@
...
@@ -175,11 +171,11 @@
<input
class=
"form-control input-sm"
id=
"dtpinkjetdate3"
type=
"date"
>
<input
class=
"form-control input-sm"
id=
"dtpinkjetdate3"
type=
"date"
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Color Contra
s
t:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Color Contra
c
t:
</label>
<
input
id=
"edtcolorcontrast"
class=
"form-control input-sm"
width=
'50%'
/
>
<
select
id=
"wcbcolorcontract"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Color Contra
s
t To:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Color Contra
c
t To:
</label>
<input
id=
"edtcolorcontrastto"
class=
"form-control input-sm"
width=
'50%'
/>
<input
id=
"edtcolorcontrastto"
class=
"form-control input-sm"
width=
'50%'
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
...
@@ -224,87 +220,87 @@
...
@@ -224,87 +220,87 @@
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Microdots:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Microdots:
</label>
<input
id=
"edtmicrodots"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtmicrodots"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Microdots Comments:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Microdots Comments:
</label>
<input
id=
"edtmicrodotscomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtmicrodotscomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Crosshairs:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Crosshairs:
</label>
<input
id=
"edtcrosshairs"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcrosshairs"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Crosshairs Comments:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Crosshairs Comments:
</label>
<input
id=
"edtcrosshairscomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcrosshairscomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Color Bars:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Color Bars:
</label>
<input
id=
"edtcolorbars"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcolorbars"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Color Bars Comments:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Color Bars Comments:
</label>
<input
id=
"edtcolorbarscomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcolorbarscomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Other:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Other:
</label>
<input
id=
"edtplateother"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtplateother"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Microdots Comments:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Microdots Comments:
</label>
<input
id=
"edtplateothercomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtplateothercomments"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
</div>
</div>
<h4
class=
"custom-h4 mt-3"
>
Plate Marks
</h4>
<h4
class=
"custom-h4 mt-3"
>
Layout
</h4>
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Around:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Around:
</label>
<input
id=
"edtaround"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtaround"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Accross:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Accross:
</label>
<input
id=
"edtaccross"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtaccross"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Surface Print:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Surface Print:
</label>
<input
id=
"edtsurfaceprint"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtsurfaceprint"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Reverse Print:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Reverse Print:
</label>
<input
id=
"edtreverseprint"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtreverseprint"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Cylinder Repeat:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Cylinder Repeat:
</label>
<input
id=
"edtcylinderrepeat"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcylinderrepeat"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Cutoff Dimension:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Cutoff Dimension:
</label>
<input
id=
"edtcutoffdimension"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcutoffdimension"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Pitch:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Pitch:
</label>
<input
id=
"edtpitch"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtpitch"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Teeth:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Teeth:
</label>
<input
id=
"edtteeth"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtteeth"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Bleed:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Bleed:
</label>
<input
id=
"edtbleed"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtbleed"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Cutback:
</label>
<label
label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Cutback:
</label>
<input
id=
"edtcutback"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtcutback"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Minimum Trap Dimension:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Minimum Trap Dimension:
</label>
<input
id=
"edtminimumtrapdimension"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtminimumtrapdimension"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Maximum Trap Dimension:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Maximum Trap Dimension:
</label>
<input
id=
"edtmaximumtrapdimension"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtmaximumtrapdimension"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
</div>
</div>
...
@@ -312,42 +308,42 @@
...
@@ -312,42 +308,42 @@
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Print Orientation:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Print Orientation:
</label>
<
input
id=
"edtprintorientation"
class=
"form-control input-sm"
style=
"width: 150px"
/
>
<
select
id=
"wcbprint"
class=
'form-select'
></select
>
</div>
</div>
</div>
</div>
<h4
class=
"custom-h4 mt-3"
>
UPC
</h4>
<h4
class=
"custom-h4 mt-3"
>
UPC
</h4>
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Size:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Size:
</label>
<input
id=
"edtsize"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtsize"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Bar Width Reduction:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Bar Width Reduction:
</label>
<input
id=
"edtbarwidthreduction"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtbarwidthreduction"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Distortion Percent:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Distortion Percent:
</label>
<input
id=
"edtdistortionpercent"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtdistortionpercent"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Distortion Amount:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Distortion Amount:
</label>
<input
id=
"edtdistortionamount"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtdistortionamount"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
<h4
class=
"custom-h4 mt-3"
>
Plates
</h4>
<h4
class=
"custom-h4 mt-3"
>
Plates
</h4>
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
class=
"form-label mt-2"
>
Plate Material
:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Thickness
:
</label>
<
input
id=
"edtplatematerial"
class=
"form-control input-sm"
style=
"width: 150px"
/
>
<
select
id=
"wcbthickness"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
class=
"form-label mt-2"
>
Thickness
:
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label mt-2"
>
Plate Material
:
</label>
<
input
id=
"edtthickness"
class=
"form-control input-sm"
style=
"width: 150px"
/
>
<
select
id=
"wcbmaterial"
class=
'form-select'
></select
>
</div>
</div>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name
"
class=
"form-label mt-2"
>
Job Number:
</label>
<label
style=
"font-weight: 700; font-size: 15px;
"
class=
"form-label mt-2"
>
Job Number:
</label>
<input
id=
"edtjobnumber"
class=
"form-control input-sm"
style=
"width: 150px"
/>
<input
id=
"edtjobnumber"
class=
"form-control input-sm"
style=
"width: 150px"
/>
</div>
</div>
</div>
</div>
...
@@ -355,7 +351,7 @@
...
@@ -355,7 +351,7 @@
<hr
class=
"custom-hr"
>
<hr
class=
"custom-hr"
>
<div
class=
"row"
>
<div
class=
"row"
>
<div
class=
"col-auto"
>
<div
class=
"col-auto"
>
<label
for=
"wdbe_first_name"
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label"
>
Comments
</label>
<label
style=
"font-weight: 700; font-size: 15px;"
class=
"form-label"
>
Comments
</label>
<textarea
id=
"edtcomments"
class=
"form-control"
style=
" width: 500px; height: 150px;"
></textarea>
<textarea
id=
"edtcomments"
class=
"form-control"
style=
" width: 500px; height: 150px;"
></textarea>
</div>
</div>
</div>
</div>
...
...
kgOrdersClient/View.OrderEntryWeb.pas
View file @
5b01b1ab
...
@@ -25,10 +25,6 @@ type
...
@@ -25,10 +25,6 @@ type
XDataWebDataSet1COMPANY_ID
:
TIntegerField
;
XDataWebDataSet1COMPANY_ID
:
TIntegerField
;
XDataWebDataSet1USER_ID
:
TIntegerField
;
XDataWebDataSet1USER_ID
:
TIntegerField
;
XDataWebDataSet1ORDER_DATE
:
TDateField
;
XDataWebDataSet1ORDER_DATE
:
TDateField
;
XDataWebDataSet1START_DATE
:
TDateField
;
XDataWebDataSet1END_DATE
:
TDateField
;
XDataWebDataSet1ORDER_STATUS
:
TStringField
;
XDataWebDataSet1SCHED_JSON
:
TStringField
;
XDataWebDataSet1NAME
:
TStringField
;
XDataWebDataSet1NAME
:
TStringField
;
XDataWebDataSet1SHORT_NAME
:
TStringField
;
XDataWebDataSet1SHORT_NAME
:
TStringField
;
XDataWebDataSet1staff_fields_ship_via
:
TStringField
;
XDataWebDataSet1staff_fields_ship_via
:
TStringField
;
...
@@ -39,79 +35,15 @@ type
...
@@ -39,79 +35,15 @@ type
XDataWebDataSet1staff_fields_ship_attention
:
TStringField
;
XDataWebDataSet1staff_fields_ship_attention
:
TStringField
;
XDataWebDataSet1staff_fields_po_number
:
TStringField
;
XDataWebDataSet1staff_fields_po_number
:
TStringField
;
XDataWebDataSet1staff_fields_job_name
:
TStringField
;
XDataWebDataSet1staff_fields_job_name
:
TStringField
;
XDataWebDataSet1plates_job_number
:
TStringField
;
XDataWebDataSet1supplied_by_customer_b_w_copy
:
TBooleanField
;
XDataWebDataSet1supplied_by_customer_dimension
:
TStringField
;
XDataWebDataSet1supplied_by_customer_e_mail
:
TStringField
;
XDataWebDataSet1supplied_by_customer_ftp
:
TStringField
;
XDataWebDataSet1supplied_by_customer_other
:
TStringField
;
XDataWebDataSet1supplied_by_customer_existing_
:
TStringField
;
XDataWebDataSet1supplied_by_customer_ref_art_p
:
TStringField
;
XDataWebDataSet1supplied_by_customer_ref_art_a
:
TStringField
;
XDataWebDataSet1cut_die_cutdier
:
TStringField
;
XDataWebDataSet1cut_die_cutdieb
:
TStringField
;
XDataWebDataSet1cut_die_cutdief
:
TStringField
;
XDataWebDataSet1cut_die_cutdierkr
:
TStringField
;
XDataWebDataSet1cut_die_cutdiefkr
:
TStringField
;
XDataWebDataSet1cut_die_cad_file
:
TStringField
;
XDataWebDataSet1cut_die_attached
:
TStringField
;
XDataWebDataSet1cut_die_boxpol250
:
TStringField
;
XDataWebDataSet1cut_die_boxpol155
:
TStringField
;
XDataWebDataSet1cut_die_boxpol125
:
TStringField
;
XDataWebDataSet1cut_die_brub
:
TStringField
;
XDataWebDataSet1proofing_fax
:
TStringField
;
XDataWebDataSet1proofing_fax_attn
:
TStringField
;
XDataWebDataSet1proofing_e_mail
:
TStringField
;
XDataWebDataSet1proofing_ship_to
:
TStringField
;
XDataWebDataSet1proofing_other
:
TStringField
;
XDataWebDataSet1proofing_changes_required
:
TStringField
;
XDataWebDataSet1proofing_changes_date
:
TDateField
;
XDataWebDataSet1layout_rsc_l
:
TStringField
;
XDataWebDataSet1layout_rcs_w
:
TStringField
;
XDataWebDataSet1layout_rcs_d
:
TStringField
;
XDataWebDataSet1layout_die_cut_no
:
TStringField
;
XDataWebDataSet1layout_accross_no
:
TStringField
;
XDataWebDataSet1layout_around_no
:
TStringField
;
XDataWebDataSet1layout_cad_file
:
TStringField
;
XDataWebDataSet1mounting_standard_setup
:
TStringField
;
XDataWebDataSet1mounting_custom_backing
:
TStringField
;
XDataWebDataSet1mounting_custom_adhesive
:
TStringField
;
XDataWebDataSet1colors_cylinder_size
:
TStringField
;
XDataWebDataSet1colors_cross_hairs
:
TStringField
;
XDataWebDataSet1colors_machine_ident
:
TStringField
;
XDataWebDataSet1colors_clemson
:
TStringField
;
XDataWebDataSet1plates_thickness
:
TStringField
;
XDataWebDataSet1plates_plate_material
:
TStringField
;
XDataWebDataSet1general_special_instructions
:
TStringField
;
XDataWebDataSet1colors_colors
:
TStringField
;
XDataWebDataSet1staff_fields_quickbooks_item
:
TStringField
;
XDataWebDataSet1staff_fields_quickbooks_item
:
TStringField
;
XDataWebDataSet1staff_fields_quantity
:
TStringField
;
XDataWebDataSet1staff_fields_quantity
:
TStringField
;
XDataWebDataSet1layout_rsc_style
:
TStringField
;
XDataWebDataSet1staff_fields_art_location
:
TStringField
;
XDataWebDataSet1staff_fields_art_location
:
TStringField
;
XDataWebDataSet1supplied_by_customer_color_copy
:
TBooleanField
;
XDataWebDataSet1supplied_by_customer_plates
:
TBooleanField
;
XDataWebDataSet1supplied_by_customer_sample_ca
:
TBooleanField
;
XDataWebDataSet1supplied_by_customer_disk_or_cd
:
TBooleanField
;
XDataWebDataSet1mounting_loose
:
TStringField
;
XDataWebDataSet1mounting_sticky_bak
:
TBooleanField
;
XDataWebDataSet1mounting_full_mount
:
TBooleanField
;
XDataWebDataSet1mounting_strip_mount
:
TStringField
;
XDataWebDataSet1layout_excalibur_die
:
TBooleanField
;
XDataWebDataSet1proofing_full_size_panel
:
TBooleanField
;
XDataWebDataSet1proofing_print_card
:
TBooleanField
;
XDataWebDataSet1proofing_wide_format
:
TBooleanField
;
XDataWebDataSet1proofing_pdf_file
:
TBooleanField
;
XDataWebDataSet1proofing_art_approved_as_is
:
TBooleanField
;
XDataWebDataSet1proofing_e_mail_attn
:
TStringField
;
XDataWebDataSet1proofing_approved_date
:
TStringField
;
XDataWebDataSet1staff_fields_order_date
:
TStringField
;
XDataWebDataSet1staff_fields_order_date
:
TStringField
;
XDataWebDataSet1staff_fields_proof_date
:
TStringField
;
XDataWebDataSet1staff_fields_proof_date
:
TStringField
;
XDataWebDataSet1staff_fields_ship_date
:
TStringField
;
XDataWebDataSet1staff_fields_ship_date
:
TStringField
;
XDataWebDataSet1staff_fields_art_due
:
TStringField
;
XDataWebDataSet1staff_fields_art_due
:
TStringField
;
XDataWebDataSet1staff_fields_plate_due
:
TStringField
;
XDataWebDataSet1staff_fields_plate_due
:
TStringField
;
XDataWebDataSet1staff_fields_mount_due
:
TStringField
;
XDataWebDataSet1ADDRESS_LIST
:
TStringField
;
XDataWebDataSet1ADDRESS_LIST
:
TStringField
;
XDataWebDataSet1supplied_by_customer_order_date
:
TStringField
;
WebDataSource1
:
TWebDataSource
;
WebDataSource1
:
TWebDataSource
;
WebLabel1
:
TWebLabel
;
WebLabel1
:
TWebLabel
;
dtpOrderDate
:
TWebDateTimePicker
;
dtpOrderDate
:
TWebDateTimePicker
;
...
@@ -125,7 +57,6 @@ type
...
@@ -125,7 +57,6 @@ type
edtInvoiceTo
:
TWebDBEdit
;
edtInvoiceTo
:
TWebDBEdit
;
edtPONumber
:
TWebDBEdit
;
edtPONumber
:
TWebDBEdit
;
edtJobName
:
TWebDBEdit
;
edtJobName
:
TWebDBEdit
;
edtQuickBooksItem
:
TWebDBEdit
;
WebDBComboBox1
:
TWebDBComboBox
;
WebDBComboBox1
:
TWebDBComboBox
;
wdsShipTo
:
TWebDataSource
;
wdsShipTo
:
TWebDataSource
;
xdwdsShipTo
:
TXDataWebDataSet
;
xdwdsShipTo
:
TXDataWebDataSet
;
...
@@ -135,7 +66,6 @@ type
...
@@ -135,7 +66,6 @@ type
edtPlates
:
TWebDBEdit
;
edtPlates
:
TWebDBEdit
;
edtDimensionalLayout
:
TWebDBEdit
;
edtDimensionalLayout
:
TWebDBEdit
;
edtSample
:
TWebDBEdit
;
edtSample
:
TWebDBEdit
;
edtDisk
:
TWebDBEdit
;
edtOther
:
TWebDBEdit
;
edtOther
:
TWebDBEdit
;
edtEmail
:
TWebDBEdit
;
edtEmail
:
TWebDBEdit
;
edtTotalInchesUsed
:
TWebDBEdit
;
edtTotalInchesUsed
:
TWebDBEdit
;
...
@@ -155,9 +85,8 @@ type
...
@@ -155,9 +85,8 @@ type
dtpInkJetDate3
:
TWebDateTimePicker
;
dtpInkJetDate3
:
TWebDateTimePicker
;
dtpInkJetDate2
:
TWebDateTimePicker
;
dtpInkJetDate2
:
TWebDateTimePicker
;
edtColorContrastTo
:
TWebDBEdit
;
edtColorContrastTo
:
TWebDBEdit
;
edtColorContrast
:
TWebDBEdit
;
dtpColorContractDate1
:
TWebDateTimePicker
;
dtpColorContrastDate1
:
TWebDateTimePicker
;
dtpColorContractDate2
:
TWebDateTimePicker
;
dtpColorContrastDate2
:
TWebDateTimePicker
;
edtDigitalColorTo
:
TWebDBEdit
;
edtDigitalColorTo
:
TWebDBEdit
;
edtDigitalColorKey
:
TWebDBEdit
;
edtDigitalColorKey
:
TWebDBEdit
;
dtpDigitalColorDate
:
TWebDateTimePicker
;
dtpDigitalColorDate
:
TWebDateTimePicker
;
...
@@ -175,7 +104,6 @@ type
...
@@ -175,7 +104,6 @@ type
edtPlateOther
:
TWebDBEdit
;
edtPlateOther
:
TWebDBEdit
;
edtPlateOtherComments
:
TWebDBEdit
;
edtPlateOtherComments
:
TWebDBEdit
;
WebLabel7
:
TWebLabel
;
WebLabel7
:
TWebLabel
;
edtPrintOrientation
:
TWebDBEdit
;
WebLabel8
:
TWebLabel
;
WebLabel8
:
TWebLabel
;
edtAround
:
TWebDBEdit
;
edtAround
:
TWebDBEdit
;
edtAccross
:
TWebDBEdit
;
edtAccross
:
TWebDBEdit
;
...
@@ -195,14 +123,81 @@ type
...
@@ -195,14 +123,81 @@ type
edtDistortionAmount
:
TWebDBEdit
;
edtDistortionAmount
:
TWebDBEdit
;
edtDistortionPercent
:
TWebDBEdit
;
edtDistortionPercent
:
TWebDBEdit
;
WebLabel10
:
TWebLabel
;
WebLabel10
:
TWebLabel
;
edtPlateMaterial
:
TWebDBEdit
;
edtThickness
:
TWebDBEdit
;
edtJobNumber
:
TWebDBEdit
;
edtJobNumber
:
TWebDBEdit
;
WebLabel11
:
TWebLabel
;
WebLabel11
:
TWebLabel
;
Comments
:
TWebDBEdit
;
Comments
:
TWebDBEdit
;
btnConfirm
:
TWebButton
;
btnConfirm
:
TWebButton
;
btnEdit
:
TWebButton
;
btnEdit
:
TWebButton
;
btnCancel
:
TWebButton
;
btnCancel
:
TWebButton
;
XDataWebDataSet1plates_job_number
:
TStringField
;
XDataWebDataSet1supplied_by_customer_plates
:
TStringField
;
XDataWebDataSet1supplied_by_customer_sample
:
TStringField
;
XDataWebDataSet1supplied_by_customer_dimension
:
TStringField
;
XDataWebDataSet1supplied_by_customer_other
:
TStringField
;
XDataWebDataSet1supplied_by_customer_disk
:
TStringField
;
XDataWebDataSet1supplied_by_customer_e_mail
:
TStringField
;
XDataWebDataSet1supplied_by_customer_ftp
:
TStringField
;
XDataWebDataSet1plates_plate_material
:
TStringField
;
XDataWebDataSet1plates_thickness
:
TStringField
;
XDataWebDataSet1supplied_by_customer_total_inc
:
TStringField
;
XDataWebDataSet1supplied_by_customer_sheets_us
:
TStringField
;
XDataWebDataSet1supplied_by_customer_initials
:
TStringField
;
XDataWebDataSet1proofing_pdf_to
:
TStringField
;
XDataWebDataSet1proofing_pdf_date_1
:
TStringField
;
XDataWebDataSet1proofing_pdf_date_2
:
TStringField
;
XDataWebDataSet1proofing_pdf_date_3
:
TStringField
;
XDataWebDataSet1proofing_ink_jet_to
:
TStringField
;
XDataWebDataSet1proofing_ink_jet_to_2
:
TStringField
;
XDataWebDataSet1proofing_ink_jet_date_1
:
TStringField
;
XDataWebDataSet1proofing_ink_jet_date_2
:
TStringField
;
XDataWebDataSet1proofing_ink_jet_date_3
:
TStringField
;
XDataWebDataSet1proofing_color_contract
:
TStringField
;
XDataWebDataSet1proofing_color_contrac_to
:
TStringField
;
XDataWebDataSet1proofing_color_contrac_date_1
:
TStringField
;
XDataWebDataSet1proofing_color_contrac_date_2
:
TStringField
;
XDataWebDataSet1proofing_digital_color_key
:
TStringField
;
XDataWebDataSet1proofing_digital_color_to
:
TStringField
;
XDataWebDataSet1proofing_digital_color_date_1
:
TStringField
;
XDataWebDataSet1quantity_and_colors_press_name
:
TStringField
;
XDataWebDataSet1quantity_and_colors_anilox_info
:
TStringField
;
XDataWebDataSet1plate_marks_microdots_comments
:
TStringField
;
XDataWebDataSet1plate_marks_microdots
:
TStringField
;
XDataWebDataSet1plate_marks_crosshairs
:
TStringField
;
XDataWebDataSet1plate_marks_crosshairs_comments
:
TStringField
;
XDataWebDataSet1plate_marks_color_bars
:
TStringField
;
XDataWebDataSet1plate_marks_color_bars_comments
:
TStringField
;
XDataWebDataSet1plate_marks_other
:
TStringField
;
XDataWebDataSet1plate_marks_other_comments
:
TStringField
;
XDataWebDataSet1print_orientation_print_orient
:
TStringField
;
XDataWebDataSet1layout_around
:
TStringField
;
XDataWebDataSet1layout_accross
:
TStringField
;
XDataWebDataSet1layout_surface_print
:
TStringField
;
XDataWebDataSet1layout_reverse_print
:
TStringField
;
XDataWebDataSet1layout_cylinder_repeat
:
TStringField
;
XDataWebDataSet1layout_cutoff_dimension
:
TStringField
;
XDataWebDataSet1layout_pitch
:
TStringField
;
XDataWebDataSet1layout_teeth
:
TStringField
;
XDataWebDataSet1layout_bleed
:
TStringField
;
XDataWebDataSet1layout_minimum_trap_dim
:
TStringField
;
XDataWebDataSet1layout_maximum_trap_dim
:
TStringField
;
XDataWebDataSet1upc_size
:
TStringField
;
XDataWebDataSet1upc_bar_width_reduction
:
TStringField
;
XDataWebDataSet1general_comments
:
TStringField
;
XDataWebDataSet1upc_distortion_percent
:
TStringField
;
XDataWebDataSet1upc_distortion_amount
:
TStringField
;
XDataWebDataSet1layout_cutback
:
TStringField
;
XDataWebDataSet1proofing_full_size_ink_jet_for
:
TBooleanField
;
XDataWebDataSet1proofing_pdf
:
TBooleanField
;
XDataWebDataSet1quantity_and_colors_qty_colors
:
TStringField
;
XDataWebDataSet1supplied_by_customer_b_w_or_co
:
TStringField
;
wcbQBItem
:
TWebDBComboBox
;
wdsQBItem
:
TWebDataSource
;
xdwdsQBItem
:
TXDataWebDataSet
;
xdwdsQBItemname
:
TStringField
;
WebDBComboBox2
:
TWebDBComboBox
;
WebDBComboBox3
:
TWebDBComboBox
;
wcbPrint
:
TWebDBComboBox
;
WebDBComboBox4
:
TWebDBComboBox
;
procedure
WebFormCreate
(
Sender
:
TObject
);
procedure
WebFormCreate
(
Sender
:
TObject
);
procedure
HideNotification
();
procedure
HideNotification
();
procedure
ShowNotification
(
Notification
:
string
);
procedure
ShowNotification
(
Notification
:
string
);
...
@@ -213,7 +208,7 @@ type
...
@@ -213,7 +208,7 @@ type
procedure
WebButton1Click
(
Sender
:
TObject
);
procedure
WebButton1Click
(
Sender
:
TObject
);
procedure
addColorRow
(
num
,
Color
,
LPI
,
Size
:
string
);
procedure
addColorRow
(
num
,
Color
,
LPI
,
Size
:
string
);
procedure
btnConfirmClick
(
Sender
:
TObject
);
procedure
btnConfirmClick
(
Sender
:
TObject
);
[
async
]
procedure
Add
Corrugated
Order
(
orderJSON
:
TJSONObject
);
[
async
]
procedure
Add
Web
Order
(
orderJSON
:
TJSONObject
);
procedure
btnCancelClick
(
Sender
:
TObject
);
procedure
btnCancelClick
(
Sender
:
TObject
);
private
private
FAgencyCode
:
string
;
FAgencyCode
:
string
;
...
@@ -248,10 +243,11 @@ var
...
@@ -248,10 +243,11 @@ var
colorJSON
,
orderJSON
,
colorListJSON
:
TJSONObject
;
colorJSON
,
orderJSON
,
colorListJSON
:
TJSONObject
;
fieldNames
:
TStringList
;
fieldNames
:
TStringList
;
itemList
:
TJSNodeList
;
itemList
:
TJSNodeList
;
header
,
value
:
string
;
header
,
value
,
info
:
string
;
Field
:
TField
;
Field
:
TField
;
Response
:
TXDataClientResponse
;
Response
:
TXDataClientResponse
;
begin
begin
console
.
log
(
'confirm'
);
orderJSON
:=
TJSONObject
.
Create
;
orderJSON
:=
TJSONObject
.
Create
;
colorList
:=
TJSONArray
.
Create
;
colorList
:=
TJSONArray
.
Create
;
container
:=
document
.
getElementById
(
'additionalFields'
);
container
:=
document
.
getElementById
(
'additionalFields'
);
...
@@ -273,7 +269,7 @@ begin
...
@@ -273,7 +269,7 @@ begin
colorListJSON
.
AddPair
(
'items'
,
colorList
);
colorListJSON
.
AddPair
(
'items'
,
colorList
);
XDataWebDataSet1
.
Edit
;
XDataWebDataSet1
.
Edit
;
XDataWebDataSet1
colors
_colors
.
Value
:=
colorListJSON
.
ToString
;
XDataWebDataSet1
quantity_and_colors_qty
_colors
.
Value
:=
colorListJSON
.
ToString
;
//Convert all dates to strings because I was having less issues with that data type.
//Convert all dates to strings because I was having less issues with that data type.
XDataWebDataSet1staff_fields_proof_date
.
Value
:=
DateTimeToStr
(
dtpProofDate
.
Date
);
XDataWebDataSet1staff_fields_proof_date
.
Value
:=
DateTimeToStr
(
dtpProofDate
.
Date
);
...
@@ -281,10 +277,15 @@ begin
...
@@ -281,10 +277,15 @@ begin
XDataWebDataSet1staff_fields_art_due
.
Value
:=
DateTimeToStr
(
dtpArtDue
.
Date
);
XDataWebDataSet1staff_fields_art_due
.
Value
:=
DateTimeToStr
(
dtpArtDue
.
Date
);
XDataWebDataSet1staff_fields_plate_due
.
Value
:=
DateTimeToStr
(
dtpPlateDue
.
Date
);
XDataWebDataSet1staff_fields_plate_due
.
Value
:=
DateTimeToStr
(
dtpPlateDue
.
Date
);
XDataWebDataSet1staff_fields_order_date
.
Value
:=
DateTimeToStr
(
dtpOrderDate
.
Date
);
XDataWebDataSet1staff_fields_order_date
.
Value
:=
DateTimeToStr
(
dtpOrderDate
.
Date
);
XDataWebDataSet1proofing_pdf_date_1
.
Value
:=
DateTimeToStr
(
dtpPDFDate1
.
Date
);
//TODO add all other dtps
XDataWebDataSet1proofing_pdf_date_2
.
Value
:=
DateTimeToStr
(
dtpPDFDate2
.
Date
);
XDataWebDataSet1proofing_pdf_date_3
.
Value
:=
DateTimeToStr
(
dtpPDFDate3
.
Date
);
// Convert all check boxes to strings because the database stores them as strings
XDataWebDataSet1proofing_ink_jet_date_1
.
Value
:=
DateTimeToStr
(
dtpInkJetDate1
.
Date
);
XDataWebDataSet1proofing_ink_jet_date_2
.
Value
:=
DateTimeToStr
(
dtpInkJetDate2
.
Date
);
XDataWebDataSet1proofing_ink_jet_date_3
.
Value
:=
DateTimeToStr
(
dtpInkJetDate3
.
Date
);
XDataWebDataSet1proofing_color_contrac_date_1
.
Value
:=
DateTimeToStr
(
dtpColorContractDate1
.
Date
);
XDataWebDataSet1proofing_color_contrac_date_2
.
Value
:=
DateTimeToStr
(
dtpColorContractDate2
.
Date
);
XDataWebDataSet1proofing_digital_color_date_1
.
Value
:=
DateTimeToStr
(
dtpDigitalColorDate
.
Date
);
XDataWebDataSet1
.
Post
;
XDataWebDataSet1
.
Post
;
XDataWebDataSet1
.
First
;
XDataWebDataSet1
.
First
;
...
@@ -310,15 +311,21 @@ begin
...
@@ -310,15 +311,21 @@ begin
XDataWebDataSet1
.
Next
;
XDataWebDataSet1
.
Next
;
end
;
end
;
orderJSON
.
AddPair
(
'COMPANY_ID'
,
customerID
);
orderJSON
.
AddPair
(
'COMPANY_ID'
,
customerID
);
orderJSON
.
AddPair
(
'USER_ID'
,
'1011'
);
orderJSON
.
AddPair
(
'USER_ID'
,
JS
.
toString
(
AuthService
.
TokenPayload
.
Properties
[
'user_id'
])
);
orderJSON
.
AddPair
(
'mode'
,
mode
);
orderJSON
.
AddPair
(
'mode'
,
mode
);
if
mode
=
'EDIT'
then
if
mode
=
'EDIT'
then
begin
orderJSON
.
AddPair
(
'ORDER_ID'
,
orderID
);
orderJSON
.
AddPair
(
'ORDER_ID'
,
orderID
);
AddCorrugatedOrder
(
orderJSON
);
info
:=
'Success:Order Successfully Edited'
;
FViewMain
.
ViewOrders
(
'Success:Order Successfully Added'
);
end
else
info
:=
'Success:Order Successfully Added'
;
AddWebOrder
(
orderJSON
);
FViewMain
.
ViewOrders
(
info
);
end
;
end
;
procedure
TFOrderEntryWeb
.
Add
Corrugated
Order
(
orderJSON
:
TJSONObject
);
procedure
TFOrderEntryWeb
.
Add
Web
Order
(
orderJSON
:
TJSONObject
);
// sends the order JSON object to the server
// sends the order JSON object to the server
var
var
Response
:
TXDataClientResponse
;
Response
:
TXDataClientResponse
;
...
@@ -435,17 +442,19 @@ var
...
@@ -435,17 +442,19 @@ var
color
:
TJSObject
;
color
:
TJSObject
;
colorJSON
:
TJSONObject
;
colorJSON
:
TJSONObject
;
colorListJSON
:
TJSONArray
;
colorListJSON
:
TJSONArray
;
items
:
TJSObject
;
begin
begin
xdcResponse
:=
await
(
XDataWebClient1
.
RawInvokeAsync
(
'ILookupService.GetOrder'
,
xdcResponse
:=
await
(
XDataWebClient1
.
RawInvokeAsync
(
'ILookupService.Get
Web
Order'
,
[
Order_ID
]));
[
Order_ID
]));
order
:=
TJSObject
(
xdcResponse
.
Result
);
order
:=
TJSObject
(
xdcResponse
.
Result
);
console
.
log
(
order
);
data
:=
TJSArray
(
order
[
'data'
]);
data
:=
TJSArray
(
order
[
'data'
]);
XDataWebDataSet1
.
Close
;
XDataWebDataSet1
.
Close
;
XDataWebDataSet1
.
SetJsonData
(
order
);
XDataWebDataSet1
.
SetJsonData
(
order
);
XDataWebDataSet1
.
Open
;
XDataWebDataSet1
.
Open
;
if
XDataWebDataSet1
colors
_colors
.
Value
<>
''
then
if
XDataWebDataSet1
quantity_and_colors_qty
_colors
.
Value
<>
''
then
begin
begin
colorObject
:=
TJSObject
(
TJSJSON
.
parse
(
XDataWebDataSet1
colors
_colors
.
Value
));
colorObject
:=
TJSObject
(
TJSJSON
.
parse
(
XDataWebDataSet1
quantity_and_colors_qty
_colors
.
Value
));
colorList
:=
TJSArray
(
colorObject
[
'items'
]);
colorList
:=
TJSArray
(
colorObject
[
'items'
]);
for
I
:=
0
to
colorList
.
length
-
1
do
for
I
:=
0
to
colorList
.
length
-
1
do
begin
begin
...
@@ -454,7 +463,7 @@ begin
...
@@ -454,7 +463,7 @@ begin
end
;
end
;
end
;
end
;
//
Check boxes and d
ates need to be manually set
//
D
ates need to be manually set
if
not
(
XDataWebDataSet1staff_fields_order_date
.
AsString
=
''
)
then
if
not
(
XDataWebDataSet1staff_fields_order_date
.
AsString
=
''
)
then
dtpOrderDate
.
Date
:=
StrToDateTime
(
XDataWebDataSet1staff_fields_order_date
.
Value
)
dtpOrderDate
.
Date
:=
StrToDateTime
(
XDataWebDataSet1staff_fields_order_date
.
Value
)
...
@@ -477,10 +486,64 @@ begin
...
@@ -477,10 +486,64 @@ begin
else
else
dtpPlateDue
.
Date
:=
0
;
dtpPlateDue
.
Date
:=
0
;
//TODO Add other dtps
if
not
(
XDataWebDataSet1proofing_pdf_date_1
.
AsString
=
''
)
then
dtpPDFDate1
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_pdf_date_1
.
Value
)
else
dtpPDFDate1
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_pdf_date_2
.
AsString
=
''
)
then
dtpPDFDate2
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_pdf_date_2
.
Value
)
else
dtpPDFDate2
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_pdf_date_3
.
AsString
=
''
)
then
dtpPDFDate3
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_pdf_date_3
.
Value
)
else
dtpPDFDate3
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_ink_jet_date_1
.
AsString
=
''
)
then
dtpInkJetDate1
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_ink_jet_date_1
.
Value
)
else
dtpInkJetDate1
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_ink_jet_date_2
.
AsString
=
''
)
then
dtpInkJetDate2
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_ink_jet_date_2
.
Value
)
else
dtpInkJetDate2
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_ink_jet_date_3
.
AsString
=
''
)
then
dtpInkJetDate3
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_ink_jet_date_3
.
Value
)
else
dtpInkJetDate3
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_color_contrac_date_1
.
AsString
=
''
)
then
dtpColorContractDate1
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_color_contrac_date_1
.
Value
)
else
dtpColorContractDate1
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_color_contrac_date_2
.
AsString
=
''
)
then
dtpColorContractDate2
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_color_contrac_date_2
.
Value
)
else
dtpColorContractDate2
.
Date
:=
0
;
if
not
(
XDataWebDataSet1proofing_digital_color_date_1
.
AsString
=
''
)
then
dtpDigitalColorDate
.
Date
:=
StrToDateTime
(
XDataWebDataSet1proofing_digital_color_date_1
.
Value
)
else
dtpDigitalColorDate
.
Date
:=
0
;
if
mode
=
'EDIT'
then
if
mode
=
'EDIT'
then
begin
CustomerID
:=
XDataWebDataSet1COMPANY_ID
.
AsString
;
CustomerID
:=
XDataWebDataSet1COMPANY_ID
.
AsString
;
xdwdsShipTo
.
Close
;
xdwdsShipTo
.
SetJSONData
(
order
[
'ADDRESS_LIST'
]);
xdwdsShipTo
.
Open
;
end
;
xdwdsQBItem
.
Close
;
items
:=
TJSObject
(
order
[
'ITEMS'
]);
xdwdsQBItem
.
SetJsonData
(
items
[
'data'
]);
xdwdsQBITEM
.
Open
;
end
;
end
;
...
...
kgOrdersClient/View.Orders.pas
View file @
5b01b1ab
...
@@ -345,7 +345,6 @@ begin
...
@@ -345,7 +345,6 @@ begin
StatusJSON
.
AddPair
(
'staff_fields_art_due'
,
DateToStr
(
newForm
.
dtpNewArtDue
.
Date
));
StatusJSON
.
AddPair
(
'staff_fields_art_due'
,
DateToStr
(
newForm
.
dtpNewArtDue
.
Date
));
console
.
log
(
StatusJSON
);
SetStatus
(
StatusJSON
.
ToString
);
SetStatus
(
StatusJSON
.
ToString
);
OrderID
:=
''
;
OrderID
:=
''
;
getOrders
(
GenerateSearchOptions
());
getOrders
(
GenerateSearchOptions
());
...
@@ -722,7 +721,6 @@ begin
...
@@ -722,7 +721,6 @@ begin
if
orderID
<>
''
then
if
orderID
<>
''
then
searchOptions
:=
searchOptions
+
'&orderID='
+
orderID
;
searchOptions
:=
searchOptions
+
'&orderID='
+
orderID
;
console
.
log
(
searchOptions
);
Result
:=
searchOptions
;
Result
:=
searchOptions
;
end
;
end
;
...
...
kgOrdersServer/Source/Lookup.Service.pas
View file @
5b01b1ab
...
@@ -125,13 +125,15 @@ type
...
@@ -125,13 +125,15 @@ type
data
:
TList
<
TCustomerItem
>;
data
:
TList
<
TCustomerItem
>;
end
;
end
;
TFullOrder
=
class
TFullOrder
=
class
//TODO change name to TCorrugatedOrder
Public
Public
//Company
//Company
COMPANY_ID
:
integer
;
COMPANY_ID
:
integer
;
NAME
:
string
;
NAME
:
string
;
SHORT_NAME
:
string
;
SHORT_NAME
:
string
;
inQuickBooks
:
string
;
inQuickBooks
:
string
;
ADDRESS_LIST
:
TList
<
TAddressItem
>;
ITEMS
:
TItemList
;
// Staff Fields:
// Staff Fields:
staff_fields_order_date
:
string
;
staff_fields_order_date
:
string
;
...
@@ -215,9 +217,115 @@ type
...
@@ -215,9 +217,115 @@ type
// General
// General
general_special_instructions
:
string
;
general_special_instructions
:
string
;
end
;
end
;
TWebOrder
=
class
Public
//Company
COMPANY_ID
:
integer
;
NAME
:
string
;
SHORT_NAME
:
string
;
inQuickBooks
:
string
;
ADDRESS_LIST
:
TList
<
TAddressItem
>;
ITEMS
:
TItemList
;
// Staff Fields:
staff_fields_order_date
:
string
;
staff_fields_proof_date
:
string
;
staff_fields_ship_date
:
string
;
staff_fields_ship_via
:
string
;
staff_fields_quantity
:
string
;
staff_fields_price
:
string
;
staff_fields_invoice_to
:
string
;
staff_fields_ship_to
:
string
;
staff_fields_po_number
:
string
;
staff_fields_job_name
:
string
;
staff_fields_quickbooks_item
:
string
;
staff_fields_art_due
:
string
;
staff_fields_plate_due
:
string
;
staff_fields_mount_due
:
string
;
staff_fields_art_location
:
string
;
// Supplied by Customer:
supplied_by_customer_b_w_or_co
:
string
;
supplied_by_customer_plates
:
string
;
supplied_by_customer_sample
:
string
;
supplied_by_customer_dimension
:
string
;
supplied_by_customer_other
:
string
;
supplied_by_customer_disk
:
string
;
supplied_by_customer_e_mail
:
string
;
supplied_by_customer_ftp
:
string
;
supplied_by_customer_total_inc
:
string
;
supplied_by_customer_sheets_us
:
string
;
supplied_by_customer_initials
:
string
;
// Proofing
proofing_pdf
:
boolean
;
proofing_pdf_to
:
string
;
proofing_pdf_date_1
:
string
;
proofing_pdf_date_2
:
string
;
proofing_pdf_date_3
:
string
;
proofing_full_size_ink_jet_for
:
boolean
;
proofing_ink_jet_to
:
string
;
proofing_ink_jet_to_2
:
string
;
proofing_ink_jet_date_1
:
string
;
proofing_ink_jet_date_2
:
string
;
proofing_color_contract
:
string
;
proofing_color_contrac_to
:
string
;
proofing_color_contrac_date_1
:
string
;
proofing_color_contrac_date_2
:
string
;
proofing_digital_color_key
:
string
;
proofing_digital_color_to
:
string
;
proofing_digital_color_date_1
:
string
;
// Print Orientation
print_orientation_print_orient
:
string
;
// Plate
plates_plate_material
:
string
;
plates_thickness
:
string
;
plates_job_number
:
string
;
// Quantity and Color
quantity_and_colors_press_name
:
string
;
quantity_and_colors_anilox_info
:
string
;
quantity_and_colors_qty_colors
:
string
;
// Plate Marks
plate_marks_microdots
:
string
;
plate_marks_microdots_comments
:
string
;
plate_marks_crosshairs
:
string
;
plate_marks_crosshairs_comments
:
string
;
plate_marks_color_bars
:
string
;
plate_marks_color_bars_comments
:
string
;
plate_marks_other
:
string
;
plate_marks_other_comments
:
string
;
// Layout
layout_around
:
string
;
layout_accross
:
string
;
layout_surface_print
:
string
;
layout_reverse_print
:
string
;
layout_cylinder_repeat
:
string
;
layout_cutoff_dimension
:
string
;
layout_pitch
:
string
;
layout_teeth
:
string
;
layout_bleed
:
string
;
layout_cutback
:
string
;
layout_minimum_trap_dim
:
string
;
layout_maximum_trap_dim
:
string
;
// UPC
upc_size
:
string
;
upc_bar_width_reduction
:
string
;
upc_distortion_percent
:
string
;
upc_distortion_amount
:
string
;
// General
general_comments
:
string
;
end
;
type
type
...
@@ -228,6 +336,7 @@ type
...
@@ -228,6 +336,7 @@ type
[
HttpGet
]
function
GetItems
(
searchOptions
:
string
):
TItemList
;
[
HttpGet
]
function
GetItems
(
searchOptions
:
string
):
TItemList
;
[
HttpGet
]
function
GetOrders
(
searchOptions
:
string
):
TOrderList
;
[
HttpGet
]
function
GetOrders
(
searchOptions
:
string
):
TOrderList
;
[
HttpGet
]
function
GetOrder
(
orderInfo
:
string
):
TFullOrder
;
[
HttpGet
]
function
GetOrder
(
orderInfo
:
string
):
TFullOrder
;
[
HttpGet
]
function
GetWebOrder
(
orderInfo
:
string
):
TWebOrder
;
[
HttpGet
]
function
GetCustomers
():
TCustomerList
;
[
HttpGet
]
function
GetCustomers
():
TCustomerList
;
[
HttpGet
]
function
GetCustomer
(
ID
:
string
):
TCustomerItem
;
[
HttpGet
]
function
GetCustomer
(
ID
:
string
):
TCustomerItem
;
[
HttpGet
]
function
GenerateReportPDF
(
searchOptions
:
string
):
string
;
[
HttpGet
]
function
GenerateReportPDF
(
searchOptions
:
string
):
string
;
...
@@ -238,6 +347,7 @@ type
...
@@ -238,6 +347,7 @@ type
function
DelUser
(
username
:
string
):
string
;
function
DelUser
(
username
:
string
):
string
;
function
EditUser
(
const
editOptions
:
string
):
string
;
function
EditUser
(
const
editOptions
:
string
):
string
;
function
AddCorrugatedOrder
(
orderInfo
:
string
):
TJSONObject
;
function
AddCorrugatedOrder
(
orderInfo
:
string
):
TJSONObject
;
function
AddWebOrder
(
orderInfo
:
string
):
TJSONObject
;
function
AddStatusSchedule
(
StatusType
:
string
;
order
:
TJSONObject
;
ORDER_ID
:
integer
):
string
;
function
AddStatusSchedule
(
StatusType
:
string
;
order
:
TJSONObject
;
ORDER_ID
:
integer
):
string
;
function
SetStatus
(
statusOptions
:
string
):
string
;
function
SetStatus
(
statusOptions
:
string
):
string
;
end
;
end
;
...
...
kgOrdersServer/Source/Lookup.ServiceImpl.pas
View file @
5b01b1ab
...
@@ -45,6 +45,7 @@ type
...
@@ -45,6 +45,7 @@ type
function
AddStatusSchedule
(
StatusType
:
string
;
order
:
TJSONObject
;
ORDER_ID
:
integer
):
string
;
function
AddStatusSchedule
(
StatusType
:
string
;
order
:
TJSONObject
;
ORDER_ID
:
integer
):
string
;
function
GenerateOrdersSQL
(
searchOptions
:
string
):
TSQLQuery
;
function
GenerateOrdersSQL
(
searchOptions
:
string
):
TSQLQuery
;
function
GetColorCount
(
colors
:
string
):
string
;
function
GetColorCount
(
colors
:
string
):
string
;
function
GetWebOrder
(
orderInfo
:
string
):
TWebOrder
;
function
GenerateStatusSelectSQL
(
statusTableShort
,
statusTableLong
,
startDate
,
endDate
,
statusType
:
string
):
string
;
function
GenerateStatusSelectSQL
(
statusTableShort
,
statusTableLong
,
startDate
,
endDate
,
statusType
:
string
):
string
;
function
GenerateStatusWhereSQL
(
status
:
TStatusSearchInfo
):
string
;
function
GenerateStatusWhereSQL
(
status
:
TStatusSearchInfo
):
string
;
function
CreateStatusSearchInfo
(
params
:
TStringList
;
statusNum
:
string
):
TStatusSearchInfo
;
function
CreateStatusSearchInfo
(
params
:
TStringList
;
statusNum
:
string
):
TStatusSearchInfo
;
...
@@ -475,6 +476,7 @@ var
...
@@ -475,6 +476,7 @@ var
orderID
:
string
;
orderID
:
string
;
SQL
:
string
;
SQL
:
string
;
table
:
string
;
table
:
string
;
ADDRESS
:
TAddressItem
;
begin
begin
orderID
:=
orderInfo
;
orderID
:=
orderInfo
;
SQL
:=
'select ORDER_TYPE from orders where ORDER_ID = '
+
quotedStr
(
orderID
);
SQL
:=
'select ORDER_TYPE from orders where ORDER_ID = '
+
quotedStr
(
orderID
);
...
@@ -647,6 +649,163 @@ begin
...
@@ -647,6 +649,163 @@ begin
result
.
general_special_instructions
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'general_special_instructions'
).
AsString
result
.
general_special_instructions
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'general_special_instructions'
).
AsString
else
else
//result.specialInstructions := ordersDB.UniQuery1.FieldByName('general_comments').AsString
//result.specialInstructions := ordersDB.UniQuery1.FieldByName('general_comments').AsString
ordersDB
.
UniQuery1
.
Close
;
SQL
:=
'SELECT s.ship_block FROM customers c JOIN customers_ship s ON c.CUSTOMER_ID = s.customer_id WHERE c.CUSTOMER_ID = '
+
IntToStr
(
result
.
COMPANY_ID
);
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
result
.
ADDRESS_LIST
:=
TList
<
TAddressItem
>.
Create
;
TXDataOperationContext
.
Current
.
Handler
.
ManagedObjects
.
Add
(
Result
.
ADDRESS_LIST
);
while
not
ordersDB
.
UniQuery1
.
Eof
do
begin
ADDRESS
:=
TAddressItem
.
Create
;
TXDataOperationContext
.
Current
.
Handler
.
ManagedObjects
.
Add
(
ADDRESS
);
ADDRESS
.
ADDRESS
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'ship_block'
).
AsString
;
result
.
ADDRESS_LIST
.
Add
(
ADDRESS
);
ordersDB
.
UniQuery1
.
Next
;
end
;
ordersDB
.
UniQuery1
.
Close
;
result
.
ITEMS
:=
GetItems
(
''
);
end
;
function
TLookupService
.
GetWebOrder
(
orderInfo
:
string
):
TWebOrder
;
var
orderType
:
string
;
orderID
:
string
;
SQL
:
string
;
ADDRESS
:
TAddressItem
;
begin
orderID
:=
orderInfo
;
SQL
:=
'select * from web_plate_orders o JOIN customers c ON c.CUSTOMER_ID = o.COMPANY_ID where ORDER_ID = '
+
quotedStr
(
orderID
);
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
result
:=
TWebOrder
.
Create
;
// Company
result
.
COMPANY_ID
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'COMPANY_ID'
).
AsInteger
;
result
.
NAME
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'NAME'
).
AsString
;
result
.
SHORT_NAME
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'SHORT_NAME'
).
AsString
;
result
.
inQuickBooks
:=
'?'
;
// Staff Fields
result
.
staff_fields_order_date
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_order_date'
).
AsString
;
result
.
staff_fields_proof_date
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_proof_date'
).
AsString
;
result
.
staff_fields_ship_date
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_ship_date'
).
AsString
;
result
.
staff_fields_ship_via
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_ship_via'
).
AsString
;
result
.
staff_fields_quantity
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_quantity'
).
AsString
;
result
.
staff_fields_ship_to
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_ship_to'
).
AsString
;
result
.
staff_fields_po_number
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_po_number'
).
AsString
;
result
.
staff_fields_job_name
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_job_name'
).
AsString
;
result
.
staff_fields_quickbooks_item
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_quickbooks_item'
).
AsString
;
result
.
staff_fields_art_due
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_art_due'
).
AsString
;
result
.
staff_fields_plate_due
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_plate_due'
).
AsString
;
result
.
staff_fields_price
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_price'
).
AsString
;
result
.
staff_fields_art_location
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_art_location'
).
AsString
;
result
.
staff_fields_invoice_to
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'staff_fields_invoice_to'
).
AsString
;
// Supplied by Customer
result
.
supplied_by_customer_b_w_or_co
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_b_w_or_co'
).
AsString
;
result
.
supplied_by_customer_plates
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_plates'
).
AsString
;
result
.
supplied_by_customer_sample
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_sample'
).
AsString
;
result
.
supplied_by_customer_dimension
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_dimension'
).
AsString
;
result
.
supplied_by_customer_other
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_other'
).
AsString
;
result
.
supplied_by_customer_disk
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_disk'
).
AsString
;
result
.
supplied_by_customer_e_mail
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_e_mail'
).
AsString
;
result
.
supplied_by_customer_ftp
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_ftp'
).
AsString
;
result
.
supplied_by_customer_total_inc
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_total_inc'
).
AsString
;
result
.
supplied_by_customer_sheets_us
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_sheets_us'
).
AsString
;
result
.
supplied_by_customer_initials
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'supplied_by_customer_initials'
).
AsString
;
// Proofing
result
.
proofing_pdf
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_pdf'
).
AsBoolean
;
result
.
proofing_pdf_to
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_pdf_to'
).
AsString
;
result
.
proofing_pdf_date_1
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_pdf_date_1'
).
AsString
;
result
.
proofing_pdf_date_2
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_pdf_date_2'
).
AsString
;
result
.
proofing_pdf_date_3
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_pdf_date_3'
).
AsString
;
result
.
proofing_full_size_ink_jet_for
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_full_size_ink_jet_for'
).
AsBoolean
;
result
.
proofing_ink_jet_to
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_ink_jet_to'
).
AsString
;
result
.
proofing_ink_jet_to_2
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_ink_jet_to'
).
AsString
;
result
.
proofing_ink_jet_date_1
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_ink_jet_date_1'
).
AsString
;
result
.
proofing_ink_jet_date_2
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_ink_jet_date_2'
).
AsString
;
result
.
proofing_color_contract
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_color_contract'
).
AsString
;
result
.
proofing_color_contrac_to
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_color_contrac_to'
).
AsString
;
result
.
proofing_color_contrac_date_1
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_color_contrac_date_1'
).
AsString
;
result
.
proofing_color_contrac_date_2
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_color_contrac_date_2'
).
AsString
;
result
.
proofing_digital_color_key
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_digital_color_key'
).
AsString
;
result
.
proofing_digital_color_to
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_digital_color_to'
).
AsString
;
result
.
proofing_digital_color_date_1
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'proofing_digital_color_date_1'
).
AsString
;
// Colors
result
.
quantity_and_colors_press_name
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'quantity_and_colors_press_name'
).
AsString
;
result
.
quantity_and_colors_anilox_info
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'quantity_and_colors_anilox_info'
).
AsString
;
result
.
quantity_and_colors_qty_colors
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'quantity_and_colors_qty_colors'
).
AsString
;
// Plate Marks
result
.
plate_marks_microdots
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_microdots'
).
AsString
;
result
.
plate_marks_microdots_comments
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_microdots_comments'
).
AsString
;
result
.
plate_marks_crosshairs
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_crosshairs'
).
AsString
;
result
.
plate_marks_crosshairs_comments
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_crosshairs'
).
AsString
;
result
.
plate_marks_color_bars
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_color_bars'
).
AsString
;
result
.
plate_marks_color_bars_comments
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_color_bars_comments'
).
AsString
;
result
.
plate_marks_other
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_other'
).
AsString
;
result
.
plate_marks_other_comments
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plate_marks_other_comments'
).
AsString
;
// Print Orientation
result
.
print_orientation_print_orient
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'print_orientation_print_orient'
).
AsString
;
// Plate
result
.
plates_plate_material
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plates_plate_material'
).
AsString
;
result
.
plates_thickness
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plates_thickness'
).
AsString
;
result
.
plates_job_number
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'plates_job_number'
).
AsString
;
// Layout
result
.
layout_around
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_around'
).
AsString
;
result
.
layout_accross
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_accross'
).
AsString
;
result
.
layout_surface_print
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_surface_print'
).
AsString
;
result
.
layout_reverse_print
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_reverse_print'
).
AsString
;
result
.
layout_cylinder_repeat
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_cylinder_repeat'
).
AsString
;
result
.
layout_cutoff_dimension
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_cutoff_dimension'
).
AsString
;
result
.
layout_pitch
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_pitch'
).
AsString
;
result
.
layout_teeth
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_teeth'
).
AsString
;
result
.
layout_bleed
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_bleed'
).
AsString
;
result
.
layout_cutback
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_cutback'
).
AsString
;
result
.
layout_minimum_trap_dim
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_minimum_trap_dim'
).
AsString
;
result
.
layout_maximum_trap_dim
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'layout_maximum_trap_dim'
).
AsString
;
// UPC
result
.
upc_size
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'upc_size'
).
AsString
;
result
.
upc_bar_width_reduction
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'upc_bar_width_reduction'
).
AsString
;
result
.
upc_distortion_percent
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'upc_distortion_percent'
).
AsString
;
result
.
upc_distortion_amount
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'upc_distortion_amount'
).
AsString
;
// General
result
.
general_comments
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'general_comments'
).
AsString
;
ordersDB
.
UniQuery1
.
Close
;
SQL
:=
'SELECT s.ship_block FROM customers c JOIN customers_ship s ON c.CUSTOMER_ID = s.customer_id WHERE c.CUSTOMER_ID = '
+
IntToStr
(
result
.
COMPANY_ID
);
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
result
.
ADDRESS_LIST
:=
TList
<
TAddressItem
>.
Create
;
TXDataOperationContext
.
Current
.
Handler
.
ManagedObjects
.
Add
(
Result
.
ADDRESS_LIST
);
while
not
ordersDB
.
UniQuery1
.
Eof
do
begin
ADDRESS
:=
TAddressItem
.
Create
;
TXDataOperationContext
.
Current
.
Handler
.
ManagedObjects
.
Add
(
ADDRESS
);
ADDRESS
.
ADDRESS
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'ship_block'
).
AsString
;
result
.
ADDRESS_LIST
.
Add
(
ADDRESS
);
ordersDB
.
UniQuery1
.
Next
;
end
;
ordersDB
.
UniQuery1
.
Close
;
result
.
ITEMS
:=
GetItems
(
''
);
end
;
end
;
function
TLookupService
.
GetItems
(
searchOptions
:
string
):
TItemList
;
function
TLookupService
.
GetItems
(
searchOptions
:
string
):
TItemList
;
...
@@ -670,14 +829,20 @@ begin
...
@@ -670,14 +829,20 @@ begin
params
.
Delimiter
:=
'&'
;
params
.
Delimiter
:=
'&'
;
params
.
DelimitedText
:=
searchOptions
;
params
.
DelimitedText
:=
searchOptions
;
PageNum
:=
StrToInt
(
params
.
Values
[
'pagenumber'
]);
SQL
:=
'select * from qb_items'
;
PageSize
:=
StrToInt
(
params
.
Values
[
'pagesize'
]);
OrderBy
:=
params
.
Values
[
'orderby'
];
if
(
(
params
.
Values
[
'pagenumber'
]
<>
''
)
and
(
params
.
Values
[
'pagesize'
]
<>
''
)
)
then
begin
pageNum
:=
StrToInt
(
params
.
Values
[
'pagenumber'
]);
PageSize
:=
StrToInt
(
params
.
Values
[
'pagesize'
]);
OrderBy
:=
params
.
Values
[
'orderby'
];
offset
:=
IntToStr
((
PageNum
-
1
)
*
PageSize
);
limit
:=
IntToStr
(
PageSize
);
SQL
:=
'select * from qb_items '
+
'limit '
+
limit
+
' offset '
+
offset
;
limit
:=
IntToStr
(
PageSize
);
offset
:=
IntToStr
((
PageNum
-
1
)
*
PageSize
);
SQL
:=
SQL
+
' limit '
+
limit
+
' offset '
+
offset
;
end
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
...
@@ -857,37 +1022,10 @@ begin
...
@@ -857,37 +1022,10 @@ begin
if
JSONData
=
nil
then
if
JSONData
=
nil
then
raise
Exception
.
Create
(
'Invalid JSON format'
);
// If parsing fails, raise an exception
raise
Exception
.
Create
(
'Invalid JSON format'
);
// If parsing fails, raise an exception
mode
:=
JSONData
.
GetValue
<
string
>(
'mode'
);
mode
:=
JSONData
.
GetValue
<
string
>(
'mode'
);
if
mode
=
'ADD'
then
SQL
:=
'select * from corrugated_plate_orders where ORDER_ID = 0 and ORDER_ID <> 0'
else
begin
ORDER_ID
:=
JSONData
.
GetValue
<
integer
>(
'ORDER_ID'
);
SQL
:=
'select * from corrugated_plate_orders where ORDER_ID = '
+
IntToStr
(
ORDER_ID
);
end
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
try
if
mode
=
'ADD'
then
ordersDB
.
UniQuery1
.
Insert
else
ordersDB
.
UniQuery1
.
Edit
;
for
Pair
in
JSONData
do
begin
Field
:=
ordersDB
.
UniQuery1
.
FindField
(
Pair
.
JsonString
.
Value
);
// Checks if the field exists in the dataset
if
Assigned
(
Field
)
then
begin
// handles any dates or datetimes
if
(
Field
is
TDateTimeField
)
and
(
Pair
.
JsonValue
.
Value
<>
''
)
then
TDateTimeField
(
Field
).
AsDateTime
:=
StrToDate
(
Pair
.
JsonValue
.
Value
)
else
if
Pair
.
JsonValue
.
Value
<>
''
then
Field
.
AsString
:=
Pair
.
JsonValue
.
Value
;
end
;
end
;
// Post the record to the database
// Add entry to Orders Table to retrieve the order ID
ordersDB
.
UniQuery1
.
Post
;
if
mode
=
'ADD'
then
if
mode
=
'ADD'
then
begin
begin
SQL
:=
'select * from orders where ORDER_ID = 0 and ORDER_ID <> 0'
;
SQL
:=
'select * from orders where ORDER_ID = 0 and ORDER_ID <> 0'
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
...
@@ -900,12 +1038,16 @@ begin
...
@@ -900,12 +1038,16 @@ begin
ordersDB
.
UniQuery1
.
Edit
;
ordersDB
.
UniQuery1
.
Edit
;
end
;
end
;
temp
:=
JSONData
.
GetValue
<
string
>(
'COMPANY_ID'
);
ordersDB
.
UniQuery1
.
FieldByName
(
'COMPANY_ID'
).
AsString
:=
JSONData
.
GetValue
<
string
>(
'COMPANY_ID'
);
ordersDB
.
UniQuery1
.
FieldByName
(
'COMPANY_ID'
).
AsString
:=
JSONData
.
GetValue
<
string
>(
'COMPANY_ID'
);
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_TYPE'
).
AsString
:=
'corrugated_plate'
;
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_TYPE'
).
AsString
:=
'corrugated_plate'
;
if
mode
=
'ADD'
then
if
mode
=
'ADD'
then
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
:=
Now
;
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
:=
Now
else
begin
// No idea why I need this line but without it an error gets thrown
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
;
end
;
if
JSONData
.
GetValue
<
string
>(
'staff_fields_price'
)
=
''
then
if
JSONData
.
GetValue
<
string
>(
'staff_fields_price'
)
=
''
then
ordersDB
.
UniQuery1
.
FieldByName
(
'PRICE'
).
AsString
:=
'0'
ordersDB
.
UniQuery1
.
FieldByName
(
'PRICE'
).
AsString
:=
'0'
...
@@ -919,6 +1061,8 @@ begin
...
@@ -919,6 +1061,8 @@ begin
ordersDB
.
UniQuery1
.
Post
;
ordersDB
.
UniQuery1
.
Post
;
ordersDB
.
UniQuery1
.
Close
;
ordersDB
.
UniQuery1
.
Close
;
//Retrieve Order ID
if
mode
=
'ADD'
then
if
mode
=
'ADD'
then
begin
begin
ordersDB
.
UniQuery1
.
SQL
.
Text
:=
'SELECT LAST_INSERT_ID() AS OrderID'
;
// Use database's method to get the last inserted ID
ordersDB
.
UniQuery1
.
SQL
.
Text
:=
'SELECT LAST_INSERT_ID() AS OrderID'
;
// Use database's method to get the last inserted ID
...
@@ -926,6 +1070,40 @@ begin
...
@@ -926,6 +1070,40 @@ begin
ORDER_ID
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'OrderID'
).
AsInteger
;
ORDER_ID
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'OrderID'
).
AsInteger
;
end
;
end
;
if
mode
=
'ADD'
then
SQL
:=
'select * from corrugated_plate_orders where ORDER_ID = 0 and ORDER_ID <> 0'
else
begin
ORDER_ID
:=
JSONData
.
GetValue
<
integer
>(
'ORDER_ID'
);
SQL
:=
'select * from corrugated_plate_orders where ORDER_ID = '
+
IntToStr
(
ORDER_ID
);
end
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
try
if
mode
=
'ADD'
then
ordersDB
.
UniQuery1
.
Insert
else
ordersDB
.
UniQuery1
.
Edit
;
for
Pair
in
JSONData
do
begin
Field
:=
ordersDB
.
UniQuery1
.
FindField
(
Pair
.
JsonString
.
Value
);
// Checks if the field exists in the dataset
if
Assigned
(
Field
)
then
begin
// handles any dates or datetimes
if
(
Field
is
TDateTimeField
)
and
(
Pair
.
JsonValue
.
Value
<>
''
)
then
TDateTimeField
(
Field
).
AsDateTime
:=
StrToDate
(
Pair
.
JsonValue
.
Value
)
else
if
Pair
.
JsonValue
.
Value
<>
''
then
Field
.
AsString
:=
Pair
.
JsonValue
.
Value
;
end
;
end
;
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_ID'
).
AsInteger
:=
ORDER_ID
;
// Post the record to the database
ordersDB
.
UniQuery1
.
Post
;
if
JSONData
.
GetValue
<
string
>(
'staff_fields_proof_date'
)
<>
''
then
if
JSONData
.
GetValue
<
string
>(
'staff_fields_proof_date'
)
<>
''
then
AddStatusSchedule
(
'PROOF'
,
JSONData
,
ORDER_ID
);
AddStatusSchedule
(
'PROOF'
,
JSONData
,
ORDER_ID
);
if
JSONData
.
GetValue
<
string
>(
'staff_fields_ship_date'
)
<>
''
then
if
JSONData
.
GetValue
<
string
>(
'staff_fields_ship_date'
)
<>
''
then
...
@@ -1233,37 +1411,8 @@ begin
...
@@ -1233,37 +1411,8 @@ begin
if
JSONData
=
nil
then
if
JSONData
=
nil
then
raise
Exception
.
Create
(
'Invalid JSON format'
);
// If parsing fails, raise an exception
raise
Exception
.
Create
(
'Invalid JSON format'
);
// If parsing fails, raise an exception
mode
:=
JSONData
.
GetValue
<
string
>(
'mode'
);
mode
:=
JSONData
.
GetValue
<
string
>(
'mode'
);
if
mode
=
'ADD'
then
SQL
:=
'select * from web_plate_orders where ORDER_ID = 0 and ORDER_ID <> 0'
else
begin
ORDER_ID
:=
JSONData
.
GetValue
<
integer
>(
'ORDER_ID'
);
SQL
:=
'select * from web_plate_orders where ORDER_ID = '
+
IntToStr
(
ORDER_ID
);
end
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
try
if
mode
=
'ADD'
then
ordersDB
.
UniQuery1
.
Insert
else
ordersDB
.
UniQuery1
.
Edit
;
for
Pair
in
JSONData
do
if
mode
=
'ADD'
then
begin
Field
:=
ordersDB
.
UniQuery1
.
FindField
(
Pair
.
JsonString
.
Value
);
// Checks if the field exists in the dataset
if
Assigned
(
Field
)
then
begin
// handles any dates or datetimes
if
(
Field
is
TDateTimeField
)
and
(
Pair
.
JsonValue
.
Value
<>
''
)
then
TDateTimeField
(
Field
).
AsDateTime
:=
StrToDate
(
Pair
.
JsonValue
.
Value
)
else
if
Pair
.
JsonValue
.
Value
<>
''
then
Field
.
AsString
:=
Pair
.
JsonValue
.
Value
;
end
;
end
;
// Post the record to the database
ordersDB
.
UniQuery1
.
Post
;
if
mode
=
'ADD'
then
begin
begin
SQL
:=
'select * from orders where ORDER_ID = 0 and ORDER_ID <> 0'
;
SQL
:=
'select * from orders where ORDER_ID = 0 and ORDER_ID <> 0'
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
...
@@ -1281,7 +1430,12 @@ begin
...
@@ -1281,7 +1430,12 @@ begin
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_TYPE'
).
AsString
:=
'web_plate'
;
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_TYPE'
).
AsString
:=
'web_plate'
;
if
mode
=
'ADD'
then
if
mode
=
'ADD'
then
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
:=
Now
;
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
:=
Now
else
begin
// No idea why I need this line but without it an error gets thrown
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_DATE'
).
AsDateTime
;
end
;
if
JSONData
.
GetValue
<
string
>(
'staff_fields_price'
)
=
''
then
if
JSONData
.
GetValue
<
string
>(
'staff_fields_price'
)
=
''
then
ordersDB
.
UniQuery1
.
FieldByName
(
'PRICE'
).
AsString
:=
'0'
ordersDB
.
UniQuery1
.
FieldByName
(
'PRICE'
).
AsString
:=
'0'
...
@@ -1302,6 +1456,38 @@ begin
...
@@ -1302,6 +1456,38 @@ begin
ORDER_ID
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'OrderID'
).
AsInteger
;
ORDER_ID
:=
ordersDB
.
UniQuery1
.
FieldByName
(
'OrderID'
).
AsInteger
;
end
;
end
;
if
mode
=
'ADD'
then
SQL
:=
'select * from web_plate_orders where ORDER_ID = 0 and ORDER_ID <> 0'
else
begin
ORDER_ID
:=
JSONData
.
GetValue
<
integer
>(
'ORDER_ID'
);
SQL
:=
'select * from web_plate_orders where ORDER_ID = '
+
IntToStr
(
ORDER_ID
);
end
;
doQuery
(
ordersDB
.
UniQuery1
,
SQL
);
try
if
mode
=
'ADD'
then
ordersDB
.
UniQuery1
.
Insert
else
ordersDB
.
UniQuery1
.
Edit
;
for
Pair
in
JSONData
do
begin
Field
:=
ordersDB
.
UniQuery1
.
FindField
(
Pair
.
JsonString
.
Value
);
// Checks if the field exists in the dataset
if
Assigned
(
Field
)
then
begin
// handles any dates or datetimes
if
(
Field
is
TDateTimeField
)
and
(
Pair
.
JsonValue
.
Value
<>
''
)
then
TDateTimeField
(
Field
).
AsDateTime
:=
StrToDate
(
Pair
.
JsonValue
.
Value
)
else
if
Pair
.
JsonValue
.
Value
<>
''
then
Field
.
AsString
:=
Pair
.
JsonValue
.
Value
;
end
;
end
;
ordersDB
.
UniQuery1
.
FieldByName
(
'ORDER_ID'
).
AsInteger
:=
ORDER_ID
;
// Post the record to the database
ordersDB
.
UniQuery1
.
Post
;
if
JSONData
.
GetValue
<
string
>(
'staff_fields_proof_date'
)
<>
''
then
if
JSONData
.
GetValue
<
string
>(
'staff_fields_proof_date'
)
<>
''
then
AddStatusSchedule
(
'PROOF'
,
JSONData
,
ORDER_ID
);
AddStatusSchedule
(
'PROOF'
,
JSONData
,
ORDER_ID
);
if
JSONData
.
GetValue
<
string
>(
'staff_fields_ship_date'
)
<>
''
then
if
JSONData
.
GetValue
<
string
>(
'staff_fields_ship_date'
)
<>
''
then
...
...
kgOrdersServer/kgOrdersServer.ini
View file @
5b01b1ab
[Settings]
[Settings]
MemoLogLevel
=
4
MemoLogLevel
=
4
FileLogLevel
=
5
FileLogLevel
=
5
LogFileNum
=
1
25
LogFileNum
=
1
46
webClientVersion
=
1.0.0
webClientVersion
=
1.0.0
[Database]
[Database]
...
...
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